+++ /dev/null
-# makefile / Makefile / ckuker.mak / CKUKER.MAK
-#
-# Sat Apr 17 14:49:18 2004
-BUILDID=20040417
-#
-CKVER= "8.0.211"
-#
-# -- Makefile to build C-Kermit for UNIX and UNIX-like platforms --
-#
-# Copyright (C) 1985, 2004,
-# Trustees of Columbia University in the City of New York.
-# All rights reserved. See the C-Kermit COPYING.TXT file or the
-# copyright text in the ckcmai.c module for disclaimer and permissions.
-#
-# Author: Frank da Cruz, Columbia University
-# 612 West 115th Street, New York NY 10025-7799, USA
-# E-mail: fdc@columbia.edu
-# Fax: +1 212 662-6442
-# Web: http://www.columbia.edu/kermit/
-#
-# Contributions from many others. Special thanks to Jeff Altman for the
-# secure-target entries, Peter Eichhorn, assyst GmbH, for the consolidated
-# HP-UX entries and the "uninstall" target, to Robert Lipe for the updated
-# and consolidated SCO UNIX / ODT / OSR5 entries, to Ric Anderson for the
-# IRIX 6.x entries.
-#
-# Most entries use the "xermit" target, which uses the select()-based CONNECT
-# module, ckucns.c. The "wermit" target uses the older fork()-base CONNECT
-# module, ckucon.c, which has some drawbacks (but is more portable). If your
-# entry still uses the "wermit" target, please try substituting the "xermit"
-# one and if it works, let us know (mailto:kermit-support@columbia.edu).
-# When changing a target over from wermit to xermit, also remove -DNOLOEARN.
-#
-# CAREFUL: Don't put the lowercase word "if", "define", or "end" as the first
-# word after the "#" comment introducer in the makefile, even if it is
-# separated by whitespace. Some versions of "make" understand these as
-# directives. Uppercase letters remove the danger, e.g. "# If you have..."
-#
-# WARNING: This is a huge makefile and it contains nested makes. Some "make"
-# programs might run out of memory. If this happens to you, edit away the
-# parts that do not apply to your platform and try again.
-#
-# Certain UNIX variations have their own separate makefiles:
-# . For 2.10 or 2.11 BSD on DEC PDP-11s, use ckubs2.mak.
-# . For Plan 9, use ckpker.mk.
-#
-# Separate build procedures are provided non-UNIX platforms: VMS, VOS,
-# AOS/VS, etc. See the ckaaaa.txt file for details.
-#
-#
-# DIRECTIONS
-#
-# Rename this file to "makefile" or "Makefile" if necessary. Pick out the
-# entry most appropriate for your UNIX version from the list below and then
-# give the appropriate "make" command, for example "make aix43", "make sys5r4",
-# "make linux". If you experience any difficulties with the build procedure,
-# then please also read any comments that accompany the make entry itself
-# (search for the make entry name on the left margin).
-#
-# Other entries:
-# 'make install' is an installation script (read accompanying comments!).
-# 'make clean' removes intermediate and object files.
-#
-# IMPORTANT:
-# For more detailed installation instructions, read the files ckuins.txt
-# and ckccfg.txt, also available at the Kermit website in HTML form:
-# http://www.columbia.edu/kermit/ckuins.html
-# http://www.columbia.edu/kermit/ckccfg.html
-#
-# For descriptions of known problems and limitations,
-# read the files ckcbwr.txt and ckubwr.txt (the "beware files") or:
-# http://www.columbia.edu/kermit/ckcbwr.html
-# http://www.columbia.edu/kermit/ckubwr.html
-#
-# Most entries build C-Kermit with its symbol table included. To reduce the
-# size of the executable program, add "LNKFLAGS=-s" to the end of your 'make'
-# command or to the makefile entry, or 'strip' the executable after
-# building. To further reduce the size after building, use 'mcs -d' if your
-# Unix version has such a command. For further details on size reduction, read
-# ckccfg.txt to find out how to remove features that you don't need.
-#
-# TCP/IP networking support: If your C-Kermit version does not include TCP/IP
-# networking, but your UNIX system does, try adding -DTCPSOCKET to the CFLAGS
-# of your makefile entry. If that doesn't work, look at some of the other
-# entries that include this flag for ideas about what libraries might need to
-# be included (typically -lsocket and/or -lBSD and/or -lnsl and/or -linet).
-# NOTE: In some cases (old versions of SCO or HP-UX), you might need not only
-# a C compiler, but also a "TCP/IP developers kit" for the required object
-# libraries and header files.
-#
-# Fullscreen file transfer display support: If you are going to use C-Kermit
-# for establishing connections (dialed, network, etc), you can configure it to
-# produce a formatted file transfer display by including the curses library
-# and adding -DCK_CURSES to the CFLAGS for your option, and linking with the
-# appropriate libraries. There are many examples below, usually ending in
-# "c", like sunos41c. Also add -DCK_WREFRESH if your curses library includes
-# clearok() and wrefresh() functions (or remove -DNOWREFRESH if the linker
-# complains that it can't find these functions).
-#
-# Please report modifications, failures (preferably with fixes) or successes
-# to the author.
-#
-# SECURE TARGETS
-# These are described after the next section. Search for ******* below.
-#
-# TARGETS FOR DIFFERENT UNIX PLATFORMS AND VERSIONS:
-#
-# + Marks those that have been built successfully for C-Kermit 8.0 or later.
-# - Those that once built OK but no longer do (e.g. too big).
-# ? Those that worked in a previous version but have not been tested recently.
-# --------------------------
-# ? for 386BSD (Jolix) 0.0, 0.1, "make 386bsd" (see comments in entry),
-# or (preferably, if it works) "make bsd44" or "make bsd44c".
-# ? for Acorn RISCiX, "make riscix" or "make riscix-gcc"
-# ? for Alliant FX/8 with Concentrix 4.1 or later, "make bsdlck"
-# ? for Altos 486, 586, 986 with Xenix 3.0, "make altos"
-# ? for Altos ACS68000, 8Mhz 68000, UNIX System 3 Rel 2, 512K, "make altos3"
-# ? for Amdahl UTS 2.4 on IBM 370 series & compatible mainframes, "make uts24"
-# ? for Amdahl UTSV IBM 370 series & compatible mainframes, "make utsv"
-# ? for Amdahl UTSV IBM 370 series mainframes with TCP/IP, "make utsvtcp"
-# ? for Amdahl mainframes with UNIX System V R 5.2.6b 580, "make sys3"
-# ? for Apollo Aegis 9.x, DOMAIN/IX 9.x, "make aegis"
-# (Last tested in C-Kermit 5A(189))
-# ? for Apollo DOMAIN/IX, if the above fails, try "make apollobsd"
-# ? for Apollo with SR10.0 or later, BSD environment, "make sr10-bsd"
-# ? for Apollo with SR10.0 or later, System V environment, "make sr10-s5r3"
-# ? for Apple Macintosh II with A/UX pre-3.0, "make aux", "auxgcc" or "auxufs"
-# ? for Apple Macintosh with A/UX 3.0 and gcc, "make aux3gcc" or aux3gccc
-# ? for Apple PowerMac with MkLinux, "make mklinux" (read Linux entry first)
-# + for Apple PowerMac with LinuxPPC, "make linuxppc"
-# ? for Apple Macintosh with Minix 1.5.10, "make minix68k" or "make minixc68"
-# + for Apple Macintosh with Mac OS X 1.0 (Rhapsody), "make macosx10"
-# (no curses), "make macosx10c" (curses), or "make macosx10nc" (ncurses).
-# Or "make macosx10ncx" (ncurses but "make macosx10nc" doesn't work).
-# + for Apple Macintosh with Mac OS X 10.2, "make macosx102nc" (ncurses).
-# + for Apple Macintosh with Mac OS X 10.3, "make macosx103"
-# ? for Arix System 90 with AT&T SVR3, "make sys5r3na"
-# - for AT&T 6300 with IN/ix, "make sys5"
-# - for AT&T 6300 PLUS, "make att6300" or (with no debugging) "make att6300nd"
-# ? for AT&T 6386 WGS UNIX PC, "make sys5r3"
-# + for AT&T 3B2, 3B20 systems, "make att3b2".
-# for AT&T 3B1, 7300 UNIX PC (see notes with the entries):
-# In C-Kermit 7.0, only the gcc entries work:
-# + "make sys3upcg", "make sys3upcgc", "make att351gm"
-# The others fail with "too many defines" (usually in ckuusr.h):
-# - "make sys3upc", "make sys3upcold", "make sys3upcc", "make sys3upcx",
-# "make sys3upcm", "make att351m"
-# ? for AT&T System III/System V R2 or earlier, "make sys3" or "make sys3nid"
-# ? for AT&T System III/System V with Honey DanBer UUCP, "make sys3hdb"
-# ? for AT&T System V on DEC VAX, "make sys3" or "make sys5r3"
-# + for AT&T System V R3, use "make sys5r3" or "make sys5r3c"
-# + for AT&T System V/386 R3.2 built on Interactive 4.1.1, "make sys5r32is".
-# ? for AT&T System V/386 R320.0 Versyss Systems, use "make sys5r3"
-# or "make sys5r3c".
-# + for AT&T System V R4, "make sys5r4", "make sys5r4sx", or "make sys5r4nx",
-# or if the ANSI C function prototyping makes trouble, add -DNOANSI,
-# as in "sys5r4sxna" entry
-# + for AT&T (USL) System V R4.2 use the sys5r4* entries.
-# ? for Atari Falcon with MiNT, "make posix"
-# ? for Atari ST with Minix ST 1.5.10.3, "make minix68k" or "make minixc68"
-# ? for BBN C/70 with IOS 2.0, "make c70"
-# ? for BeBox with Be OS 1.x DR7, "make beboxdr7"
-# Compiles OK but doesn't link with default linker which is limited to 64K.
-# Links OK with "Code Warrior Gold". Many hacks in the source code need
-# to be removed when DR8 and later come out.
-# (Last tested in C-Kermit 6.0)
-# - for BeBox with Be OS 1.x DR8, "make bebox"
-# (Needed functions missing from operating system and/or not working.)
-# - for Bell Labs UNIX Version 6 (6th Edition), there is no makefile entry.
-# ? for Bell Labs UNIX Version 7 (7th Edition), "make v7" (but see notes below)
-# (last built successfully in C-Kermit 5A188)
-# ? for Bell Labs Research UNIX Version 10, "make bellv10"
-# (last built successfully in C-Kermit 6.0)
-# ? for Bell Labs / Lucent Plan 9, use separate makefile ckpker.mk:
-# can be built for Intel, MIPS, 680x0, and PowerPC (last built C-Kermit 7.0)
-# + for BSDI BSD/386 1.x, "make bsdi"
-# + for BSDI BSD/OS 2.x, "make bsdi2"
-# + for BSDI BSD/OS 3.0 or 3.1, "make bsdi3"
-# + for BSDI BSD/OS 4.x, "make bsdi4"
-# + for BSDI BSD/OS 4.x, to build a binary that also works on FreeBSD,
-# "make bsdix".
-# ? for Berkeley Unix 2.4, "make v7" (but read v7 material below)
-# ? for Berkeley Unix 2.9 (DEC PDP-11 or Pro-3xx), "make bsd29"
-# - for Berkeley Unix 2.10, use ckubs2.mak (a separate makefile)
-# - for Berkeley Unix 2.11, use ckubs2.mak (a separate makefile)
-# This makefile is too big. Read the instructions in ckubs2.mak.
-# "make -f ckubs2.mak bsd210" or "make -f ckubs2.mak bsd211".
-# (last built successfully in C-Kermit 6.0 - later versions too big)
-# + for Berkeley Unix 2.11 "make -f ckubs2.mak bsd210noicp" (no command parser)
-# ? for Berkeley Unix 4.1, "make bsd41"
-# + for Berkeley Unix 4.2 on VAX, "make bsd42" or "make bsd42c"
-# ? for Berkeley Unix 4.2 or 4.3 with HoneyDanBer UUCP, "make bsdhdb"
-# + for Berkeley Unix 4.3 on VAX, "make bsd43", "make bsd43nc".
-# + for Berkeley Unix 4.3 on VAX, no networking "make bsd43nonet.
-# + for Berkeley Unix 4.3 without acucntrl program, "make bsd42" or "bsd42c"
-# NOTE: all the C-Kermit 7.0 full builds for old BSDs fail with
-# "too many defines" in CPP, even on big architectures like VAX. This
-# can be worked around with a clever ruse. See comments at target.
-# + for Berkeley Unix 4.3, command-line only, "make bsdm".
-# + for Berkeley Unix 4.3-Tahoe, same as 4.3 BSD
-# + for Berkeley Unix 4.3-Reno, "make bsd43" or "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.3-Carson City, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4-Networking/2 or -Alpha, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4-Lite, "make bsd44" or "make bsd44c"
-# ? for Bull DPX/2 with BOS/X, "make bulldpx2"
-# ? for Cadmus, "make sys3"
-# for Caldera, see SCO, Linux.
-# ? for Callan Unistar, "make sys3"
-# ? for CDC VX/VE 5.2.1 System V emulation, "make vxve"
-# ? for Charles River Data Systems Universe 680x0 with UNOS 9.2, maybe
-# also other UNOS versions, "make crds"
-# ? for CIE Systems 680/20 with Regulus, "make cie"
-# + for Commodore Amiga 3000UX Sys V R4, "make sys5r4sx"
-# + for Commodore Amiga 3000UX Sys V R4 and TCP/IP, "make svr4amiganet"
-# ? for Commodore Amiga with Minix 1.5.10, "make minix68k" of "make minixc68"
-# ? for Concurrent/Masscomp with RTU 4.0 or later, BSD environment, "make
-# rtubsd", "make rtubsd2", "make rtubsd3" (depending on where ndir.h
-# is stored, see entries below).
-# ? for Concurrent/Masscomp with RTU 4.0 or later, System V R2, "make rtus5"
-# ? for Concurrent (Perkin-Elmer) 3200 series, "make sys5".
-# ? for Concurrent (Perkin-Elmer) 3200 series with <dirent.h>, "make ccop1"
-# + for Concurrent PowerMAX OS SVR4, "make powermax"
-# ? for Consensys UNIX SV/386 R4V3, "make sys5r4sxtcpc" or "make sys5r4sx"
-# ? for Convergent with CTIX Sys V R2, "make sys5"
-# ? for Convergent with CTIX 6.4.1, "make ctix"
-# ? for Convex C1, "make convex"
-# ? for Convex C210 with Convex/OS 8, "make convex8"
-# ? for Convex C2 with Convex/OS 9.1, "make convex9"
-# ? for Convex C2 with Convex/OS 10.1 and gcc 2.x, "make convex10gcc"
-# ? for Cray Research X/MP or YMP or C90 with UNICOS 6.x (System V R3),
-# "make cray"
-# ? for Cray Research X/MP or YMP or C90 with UNICOS 7.x (System V R4),
-# "make cray"
-# ? for Cray Research X/MP or YMP or C90 with UNICOS 8.0 Alpha, "make cray8"
-# ? for Cray Research X/MP or Y-MP or C90 with UNICOS 9.0, "make cray9"
-# ? for Cray Computer Cray-2 or Cray3 with CSOS, "make craycsos"
-# ? for Cyber 910 (Silicon-Graphics Iris) with Irix 3.3, "irix33"
-# ? for Data General AViiON with DG/UX 5.4 before R3.00, "make dgux540"
-# or "make dgux540c" (compile ckwart separately if necessary)
-# + for DG/UX 5.4 on AViiON Intel models, "make dgux540i" or dgux540ic.
-# ? for DG/UX 5.4R4.11 on AViiON, all models, "make dgux54411"
-# + for DG/UX 5.4R4.20 on AViiON, all models, "make dgux54420"
-# + for Data General AViiON with DG/UX 4.3x using Sys V-isms, "make dgux430"
-# ? for Data General AViiON with DG/UX 4.3x using BSD-isms, "make dgux430bsd"
-# ? for Data General AViiON, earlier UNIX versions,
-# "make sys5r3" (maybe compile ckwart separately, or "touch ckcpro.c")
-# ? for Data General MV systems with DG/UX, ???
-# ? for Data General MV systems with MV/UX, use AOS/VS C-Kermit (CKDKER.MAK)
-# ? for Data General MV systems with AOS/VS, use CKDKER.MAK (last = C-K 7.0)
-# for DEC PDP-11 with Berkeley UNIX 2.x, see Berkeley UNIX 2.x.
-# ? for DEC PDP-11 with Mini-UNIX (Bell 6th Edition for PDP-11 with no MMU),
-# probably no way to fit C-Kermit without I&D space.
-# ? for DEC PDP-11 with Ultrix-11 3.x, ??? (probably needs overlays)
-# ? for DEC VAX with Ultrix 1.x "make bsd"
-# ? for DEC VAX with Ultrix 2.x "make ultrix2x"
-# ? for DEC VAX or DECstation with Ultrix 3.0, 3.1, "make ultrix3x"
-# ? for DECstation or VAX with Ultrix 4.0 or 4.1, "make ultrix40"
-# ? for DECstation or VAX with Ultrix 4.2, "make ultrix42" or "make ultrix42c"
-# ? for DECstation or VAX with Ultrix 4.x, POSIX world, "make posix"
-# + for DECstation or VAX with Ultrix 4.3, "make ultrix43".
-# + for DECstation or VAX with Ultrix 4.4, "make ultrix44".
-# ? for DECstation 5000/50, /150 or /260 (R4x00 MIPS CPU), Ultrix 4.3A or later
-# "make ultrix43-mips3" or "make ultrix43c-mips3"
-# ? for DECstation (MIPS) with Berkeley Sprite, "make bsd44"?
-# ? for DECstation (MIPS) with OSF/1 V1.0 to 1.3, "make dec-osf"
-# ? for DEC Alpha with OSF/1 1.0 to 1.3, "make dec-osf"
-# ? for DEC PC 486 with OSF/1, "make dec-osf"
-# ? for DEC Alpha with OSF/1 2.x, "make dec-osf20"
-# + for DEC Alpha with OSF/1 3.0, "make dec-osf30"
-# + for DEC Alpha with Digital UNIX 3.2, "make du32"
-# + for DEC Alpha with Digital UNIX 4.0-4.0D, "make du40" or "make du40gcc"
-# + for DEC Alpha with Digital UNIX 4.0E or higher, see Tru64.
-# - for DEC Pro-350 with Pro/Venix V1.x, "make provx1" (version 5A is too big)
-# ? for DEC Pro-380 with Pro/Venix V2.0 (Sys V), "make sys3" or "make sys3nid"
-# ? for DEC Pro-380 with 2.9, 2.10, or 2.11 BSD, "make bsd29" or "make bsd210"
-# for DEC PDP-11 with 2.xBSD (use separate makefile ckubs2.mak)
-# ? for Dell UNIX Issue 2.x (= USL Sys V/386 R4.x + fixes), "make dellsys5r4"
-# or "make dellsys5r4c" (last tested in C-Kermit 5A).
-# ? for DIAB DS90 with DNIX (any version) create an empty <sys/file.h> if
-# this file does not already exist (or add -DNOFILEH to the make entry).
-# ? for DIAB DS90 with DNIX 5.2 (Sys V.2) or earlier, "make dnix",
-# "make dnixnd", or (to add curses and TCP/IP) "make dnixnetc",
-# ? for DIAB DS90 with DNIX 5.3 (Sys V.3), "make dnix5r3"
-# ? for DIAB DS90 with DNIX 5.3 (Sys V.3) and TCP/IP, "make dnix5r3net"
-# ? for DIAB DS90 with DNIX 5.3 2.2 (Sys V.3), ANSI C, "make dnix5r3ansi"
-# or, to include TCP/IP, "make dnix5r3ansinet",
-# but you have to fix a bug in /usr/include/stdlib.h first:
-# change "extern void free(char *str);" to "extern void free(void *str);"
-# ? for Dolphin Server Technology Triton 88/17 with SV/88 R3.2, "make sv88r32"
-# ? for Encore Multimax 310, 510 with Umax 4.2, "make umax42"
-# ? for Encore Multimax 310, 510 with Umax 4.3, "make umax43"
-# ? for Encore Multimax 310, 510 with Umax V 2.2, use Berkeley cc, "make bsd"
-# ? for Encore 88K with Umax V 5.2, "make encore88k"
-# ? for ESIX System V R4.0.3 or 4.04 with TCP/IP support, "make esixr4"
-# NOTE: You can also build on Unixware 2.x with "make esixr4", and run
-# on ESIX, but there you must first:
-# ln /usr/lib/libsocket.so /usr/lib/libsocket.so.1
-# ln /usr/lib/libnsl.so /usr/lib/libnsl.so.1
-# (This worked for C-Kermit 6.0 but does not work for 7.0)
-# (But you can probably still build a non-networking version this way)
-# ? for Everex STEP 386/25 Rev G with ESIX Sys V R3.2D, "make sys5r3"
-# ? for Fortune 32:16, For:Pro 1.8, "make ft18"
-# ? for Fortune 32:16, For:Pro 2.1, "make ft21"
-# ? for FPS 500 with FPX 4.1, "made bsd"
-# + for FreeBSD 1.0, "make freebsd1"
-# + for FreeBSD 2.x, "make freebsd2" (ncurses) or "make freebsd2c" (curses)
-# + for FreeBSD 3.x, "make freebsd3" (ncurses) or "make freebsd3c" (curses)
-# + for FreeBSD 4.0, "make freebsd4"
-# + for FreeBSD 4.1, "make freebsd41"
-# + for FreeBSD 4.2, "make freebsd42"
-# + for FreeBSD 4.3, "make freebsd43"
-# + for FreeBSD 4.4, "make freebsd44"
-# + for FreeBSD 4.5, "make freebsd45"
-# + for FreeBSD 4.6, "make freebsd46"
-# + for FreeBSD 4.7, "make freebsd47"
-# + for FreeBSD 4.8, "make freebsd48"
-# + for FreeBSD 4.9, "make freebsd49"
-# ? for FreeBSD 5.0, "make freebsd50"
-# ? for FreeBSD 5.1, "make freebsd51"
-# ? for Harris HCX-2900, "make sys5r3"
-# ? for Harris Night Hawk 88K or 68K with CX/UX pre-6.1, "make sys5r3"
-# ? for Harris Night Hawk 88K or 68K with CX/UX 6.1 or later, "make cx_ux"
-# ? for Heurikon, "make sys3"
-# ? for HP-3000, MPE/ix, "make posix"?
-# + for HP-9000 Series 300 with 4.4BSD, "make bsd44"
-# + for HP-9000 Series 500, HP-UX 5.21 and no networking "make hpux0500"
-# + for HP-9000 Series 500, HP-UX 5.21 with WIN/TCP 1.2 "make hpux0500wintcp"
-# + for HP-9000 Series, HP-UX 6.5, without long filenames,
-# "make hpux0650" or "make hpux0650c"
-# + for HP-9000 Series, HP-UX 7.0 or later no long filenames, "make hpux0700sf"
-# or (to include tcp/ip, curses, etc) "make hpux0700sftcpc"
-# + for HP-9000 Series with HP-UX 7.0, TCP/IP,long filenames,"make hpux0700lfn"
-# + for HP-9000 300/400 Series (680x0) with HP-UX 8.0, TCP/IP, "make hpux0800"
-# or "make hpux0800c"
-# + for HP-9000 700/800 Series (PA-RISC), HP-UX 8.0, TCP/IP, "make hpux0800pa"
-# or "make hpux0800pac"
-# + for HP-9000 Series with HP-UX 8.0, no TCP/IP, long filenames,
-# "make hpux0800notcp"
-# + for HP-9000 Series, HP-UX 9.0 - 9.10, TCP/IP, curses, restricted compiler
-# (no optimization, no ANSI), all models, "make hpux0900". Read the
-# hpux0900 entry below for more info.
-# + for HP-9000 700 and 800 Series, HP-UX 9.x, TCP/IP, curses,
-# HP optimizing ANSI C compiler, "make hpux0900o700".
-# + for HP-9000 with Motorola CPUs, HP-UX 9.x, TCP/IP, curses,
-# HP optimizing ANSI C compiler, "make hpux0900mot".
-# + for HP-9000 on other CPUs, HP-UX 9.x, TCP/IP, curses,
-# HP optimizing ANSI C compiler, "make hpux0900o".
-# + for HP-9000 series, HP-UX 9.x, TCP/IP, curses, gcc, all models,
-# "make hpux0900gcc"
-# + for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
-# curses, restricted compiler (no optimization, no ANSI) "make hpux1000".
-# + for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
-# curses, HP ANSI/optimizing compiler "make hpux1000o" or "make hpux1000o+"
-# + for HP-9000 HP-UX 10.00 or later with gcc, "make hpux1000gcc"
-# + for Trusted HP-UX 10.xx "make hpux1000t", "make hpux1000to",
-# or make hpux1000to+"
-# + for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
-# (no optimization, no ANSI) "make hpux1100".
-# + for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
-# HP ANSI/optimizing compiler "make hpux1100o" or "make hpux1100o+"
-# + for Trusted HP-UX 11.xx "make hpux1100t", "make hpux1100to",
-# make hpux1100to+"
-# + for HP-9000 PA-RISC models with NeXTSTEP 3.3, "make nextquadfat".
-# + for HP-9000 PA-RISC models with OPENSTEP/Mach 4.1, "make nextquadfat".
-# ? for IBM 370 Series with IX/370, "make ix370"
-# ? for IBM 370 Series with AIX/370 1.2, "make aix370"
-# ? for IBM 370 Series with AIX/370 3.0, "make aix370"
-# ? for IBM 370 Series with AIX/ESA 2.1, "make aixesa"
-# - for IBM PC/AT 286 & compatibles with Mark Williams Coherent OS,
-# command-line-only version, "make coherent" (version 5A & later too big)
-# ? for IBM PC 386 & compatibles with Mark Williams Coherent OS,
-# minimum interactive version, "make coherentmi"
-# ? for IBM PC 386 & compatibles with Mark Williams Coherent OS,
-# full interactive version, prior to v4.2, "make coherentmax"
-# + for IBM PC 386 & compatibles with Mark Williams Coherent OS 4.2,
-# "make coherent42"
-# ? for IBM PC 386 & compatibles with LynxOS 2.0 or 2.1, "make lynx21"
-# ? for IBM PC 386 & compatibles with LynxOS 2.2, "make lynx"
-# - for IBM PC/AT & compatibles with original MINIX, "make minix" (too big)
-# ? for IBM PC family, 386-based, with MINIX/386 1.5, "make minix386"
-# or if you have GNU CC, "make minix386gcc"
-# + for IBM PC family, 386-based, with MINIX 2.0, "make minix20"
-# + for IBM PS/2 with PS/2 AIX 1.0, 1.1, or 1.2, "make ps2aix" or ps2aixnetc.
-# ? for IBM PS/2 with PS/2 AIX 1.3, "make ps2aix3"
-# ? for IBM RISC System/6000 with AIX 3.0, "make aix30"
-# ? for IBM RISC System/6000 with AIX 3.1.x, "make aix31"
-# + for IBM RISC System/6000 with AIX 3.2.0 thru 3.2.5, "make aix32"
-# + for IBM RS/6000 or Power Series with AIX 4.1.x, "make aix41"
-# + for IBM RS/6000 or Power Series with AIX 4.1.x with gcc, "make aix41g"
-# + for IBM RS/6000 or Power Series with AIX 4.1 with X.25, "make aix41x25"
-# + for IBM RS/6000 or Power Series with AIX 4.2, "make aix42"
-# + for IBM RS/6000 or Power Series with AIX 4.3, "make aix43" (or aix43gcc)
-# + for IBM RS/6000 or Power Series with AIX 4.4, "make aix44" (or aix44gcc)
-# + for IBM RS/6000 or Power Series with AIX 4.5, "make aix45" (or aix45gcc)
-# + for IBM RS/6000 or Power Series with AIX 5.0, "make aix50" (or aix50gcc)
-# + for IBM RS/6000 or Power Series with AIX 5.1, "make aix51" (or aix51gcc)
-# ? for IBM RS/6000 or Power Series with AIX 5.2, "make aix52" (or aix52gcc)
-# ? for IBM RS/6000 or Power Series with AIX 5.3, "make aix53" (or aix53gcc)
-# ? for IBM RT PC with AIX 2.1, "make sys3"
-# + for IBM RT PC with AIX 2.2.1, "make rtaix" or "make rtaixc"
-# ? for IBM RT PC with ACIS 4.2, "make bsd"
-# ? for IBM RT PC with ACIS 4.3, "make rtacis" or "make bsd KFLAGS=-DNOANSI"
-# ? for IBM RT PC with 4.3BSD/Reno, "make bsd44" or "make bsd44c"
-# ? for ICL DRS400 or 400E, "make iclsys5r3"
-# ? for ICL DRS3000 (80486) with DRS/NX, "make iclsys5r4_486"
-# ? for ICL DRS6000 (SPARC) with DRS/NX, "make iclsys5r4"
-# + for ICL DRS6000 (SPARC) with DRS/NX 4.2MP 7MPlus, "make iclsys5r4m+"
-# ? Ditto but with IKSD support included, "make iclsys5r4m+iksd"
-# ? for Integrated Solutions Inc V8S VME 68020, "make isi"
-# ? for Intel 302 with Bell Tech Sys V/386 R3.2, "make sys5r3"
-# ? for Intel Xenix/286, "make sco286"
-# ? for Interactive System III (PC/IX), "make pcix" or "make is3"
-# ? for Interactive System III (PC/IX) with gcc, "make is3gcc"
-# ? for Interactive 386/ix 1.0.6 with TCP/IP networking, "make is5r3net2"
-# ? for Interactive 386/ix 2.0.x, "make is5r3" or (POSIX) "make is5r3p"
-# ? for Interactive 386/ix 2.0.x with TCP/IP networking, "make is5r3net"
-# or "make is5r3net2"
-# ? for Interactive 386/ix 2.2.1, job control, curses, no net, gcc,
-# "make is5r3gcc"
-# + for Interactive UNIX Sys V R3.2 V2.2 - 4.0 without TCP/IP, "make is5r3jc"
-# + for Interactive UNIX Sys V R3.2 V2.2 - 4.0 with TCP/IP, "make is5r3netjc"
-# + for Intergraph Clipper, "make clix" or "make clixnet"
-# ? for Jolix (see 386BSD)
-# + for Red Hat Linux 7.1 (and higher) fully configured (krb5, SSL, etc):
-# "make redhat71", "make redhat72", "make redhat73", "make redhat80"
-# "make redhat9"
-# NOTE: You must use this target for Red Hat 7.1 since it
-# also includes a workaround for its broken curses library.
-# WARNING: These targets create binaries that include code for
-# strong encryption and are therefore not exportable. DO NOT PUT
-# THESE BINARIES ON US OR CANADIAN WEB OR FTP SITES.
-# + for Linux 1.2 and later, "make linux". Uses ncurses. This version
-# handles serial speeds up to 460800 bps, Linux FSSTD 1.2, TCP/IP, and
-# should work on both libc and glibc systems. For static linking, use
-# "make linux LNKFLAGS=-static". Please read the comments that accompany
-# the linux entry.
-# + for Linux builds that fail with "sys/select.h: No such file or directory",
-# "make linuxns"
-# + for Linux 1.2 and later but with curses.h and libcurses (rather than
-# ncurses.h and libncurses), use "make linuxc".
-# + for Linux 1.2 and later with no curses support at all, "make linuxnc".
-# + for Linux on PowerMac (Mklinux DR3), "make mklinux".
-# + for Linux 1.2 and later, to build with egcs, "make linuxegcs".
-# + for Linux with no TCP/IP, "make linuxnotcp"
-# + for Linux with lcc compiler, no TCP/IP, "make linuxnotcp-lcc"
-# ? for Linux 1.0 or earlier, "make linux10", or (to remove TCP/IP)
-# "make linuxnotcp".
-# IMPORTANT: Read the comments that accompany the "linux:" entry.
-# ? for Mach 2.6 on (anything, e.g. DECstation), "make bsd42" or "make bsd43".
-# ? for MachTen (Tenon) 2.1.1.D on (e.g.) Apple Powerbook, "make machten".
-# ? for Masscomp RTU AT&T System III, "make rtu"
-# for other Masscomp, see Concurrent.
-# ? for Microport SV/AT (System V R2), "make mpsysv" (last edit tested: 144)
-# ? for Microport SVR4 2.2, 3.1, or 4.1 "make sys5r4sx"
-# ? for Microsoft,IBM Xenix (/286, PC/AT, etc), "make xenix" or "make sco286"
-# ? for MIPS System with RISC/os (UMIPS) 4.52 = AT&T SVR3, "make mips"
-# or "make mipstcpc"
-# + for MkLinux on Power Macintosh, "make mklinux"
-# ? for Modcomp 9730, Real/IX, "make sys5r3" (or modify to use gcc = GLS cc)
-# ? for Modcomp Realstar 1000 with REAL/IX D.1, "make sv88r32"
-# ? for Motorola Four Phase, "make sys3" or "make sys3nid"
-# + for Motorola Delta System V/68 R3, "make sv68r3"
-# + for Motorola Delta System V/68 R3V5, "make sv68r3v5"
-# + for Motorola Delta System V/68 R3V5.1, "make sv68r3v51"
-# + for Motorola Delta System V/68 R3V6 with NSE TCP/IP, "make sv68r3v6"
-# + for Motorola Delta System V/88 R32, "make sv88r32"
-# + for Motorola Delta System V/88 R40, "make sv88r40"
-# ? for Mt Xinu Mach386 on 386/486-based PCs, "make bsd43"
-# ? for NCR Tower 1632, OS 1.02, "make tower1"
-# ? for NCR Tower 1632 or Minitower with System V R2, "make sys3"
-# or "make sys3nv"
-# ? for NCR Tower 32, OS Release 1.xx.xx, "make tower32-1"
-# ? for NCR Tower 32, OS Release 2.xx.xx, "make tower32-2"
-# ? for NCR Tower 32, OS Releases based on Sys V R3, "make tower32"
-# ? for NCR Tower 32, OS Releases based on Sys V R3 with gcc "make tower32g"
-# ? for NCR System 3000, AT&T UNIX System V R4 2.0, "make sys5r4sxna"
-# ? for NCR System 3000, AT&T UNIX System V R4 2.0 with Wollongong TCP/IP,
-# "make sys5r4net2" or "make sys5r4net2c".
-# Some header files might be misplaced; try this:
-# ln /usr/include/netinet/in.h /usr/include/sys/in.h
-# ln /usr/include/arpa/inet.h /usr/include/sys/inet.h
-# ln /usr/include/sys/termiox.h /usr/include/termiox.h
-# ? for NCR System 3000, NCR UNIX 02.02.01, same as above.
-# + for NCR MP-RAS System V R4 V2.03 or 3.02, "make mpras" or "make mprastcpc"
-# + for NetBSD through 1.4.x on any architecture, "make netbsd"
-# + for NetBSD 1.5.0 and later, "make netbsd15"
-# + for NeXT with NeXTSTEP 1.0 through 3.2, "make next" (on a NeXT)
-# + for NeXT with NeXTSTEP 3.3, "make next33"
-# ? for NeXT with OPENSTEP/Mach 4.1, "make nextquadfat".
-# + for NeXT with OPENSTEP/Mach 4.2, "make openstep42".
-# ? for NeXTSTEP/486, "make next" (on a PC)
-# ? for NeXTSTEP portable binary (runs on Intel or Motorola), "make nextfat"
-# ? for NeXTSTEP portable binary (Intel, Motorola, HP PA-RISC, or SPARC),
-# "make nextquadfat"
-# ? for Nixdorf Targon/31, "make t31tos40x"
-# ? for Norsk Data Uniline 88/17 with SV/88 R3.2, "make sv88r32"
-# for Novell UnixWare - see UnixWare
-# ? for OSF/1 (vanilla, from OS/F), "make posix"
-# ? for OkiStation 7300 Series, "make sys5r4sxtcp"
-# ? for Olivetti LSX-3020 with X/OS R.2.3, "make xos23" or "make xos23c"
-# + for OpenBSD, "make openbsd" (also see secure targets listed below).
-# ? for OPENSTEP/Mach 4.1, "make nextquadfat" (NeXT, Intel, PA-RISC, SPARC)
-# + for OPENSTEP/Mach 4.2, "make openstep42" (tested on NeXT)
-# ? for Perkin-Elmer (Concurrent) 3200 series, "make sys5".
-# ? for Perkin-Elmer (Concurrent) 3200 series with <dirent.h>, "make ccop1"
-# ? for Perkin-Elmer/Concurrent 3200 with Xelos R02, "make ccop1"
-# ? for PFU Compact A Series SX/A TISP V10/E50 (Japan), "make sxae50"
-# ? for Plexus, "make sys3"
-# + for Pyramid 9XXX (e.g. 9845) or MIServer T series, OSx 4.4b thru 5.1,
-# "ucb make pyramid" or for HDB UUCP, "ucb make pyramid-hdb" or:
-# + for Pyramid MIServer S or ES Series, DataCenter/OSx, "make pyrdcosx"
-# + for Pyramid MIS-S MIPS R3000, DataCenter OSx System V R4, "make pyrdcosx"
-# + for POSIX on anything, "make posix" (but adjustments might be necessary).
-# ? for Prime 8000 MIPS, SVR3, "make mips" or "make mipstcpc"
-# - for QNX 2.x (sorry we don't have a version of C-Kermit for QNX 2.x)
-# ? for QNX 4.0 or 4.1, 16-bit, on 286 PC, Watcom C 8.5, "make qnx16_41"
-# + for QNX 4.21 - 4.22A (286+), and 4.23 (386+), or higher, 16-bit,
-# Watcom C 9.5x or higher, "make qnx16"
-# + for QNX 4.21-4.25, 32-bit, 386 or above, Watcom C 10.6, "make qnx32"
-# NOTE: ("make qnx" == "make qnx32")
-# ? for QNX Neutrino 2+, "make qnx_nto2+" (crosscompiled on QNX4 with Watcom C)
-# + for QNX 6 = Neutrino 2.xx, "make qnx6"
-# ? for Ridge 32 (ROS3.2), "make ridge32"
-# ? for Samsung MagicStation, "make sys5r4"
-# ? for SCO Xenix 2.2.1 with development system 2.2 on 8086/8 "make sco86"
-# ? for SCO Xenix/286 2.2.1 with development system 2.2 on 80286, "make sco286"
-# NOTE: reportedly this makefile is too long for SCO Xenix/286 make, but it
-# works with "makeL", or if some of the other make entries are edited out.
-# ? for SCO Xenix/386 2.2.2, "make sco386"
-# ? for SCO Xenix/386 2.3.x, "make sco3r2"
-# ? for SCO Xenix/386 SCO 2.3.3 or 2.3.4 with gcc 1.37 or later,
-# "make sco386gcc" or (to add curses) "make sco386gccc".
-# ? for SCO Xenix/386 or UNIX/386 with Excelan TCP/IP, "make sco3r2net"
-# or (to add curses support) "make sco3r2netc" or "sco386netc"
-# + for SCO XENIX 2.3.4, "make sco234" or "make sco234c" to add curses.
-# + for SCO XENIX 2.3.4 with SCO TCP/IP & curses, "make sco234netc".
-# ? for SCO Xenix 2.3.x with Racal-InterLan TCP/IP, "make sco3r2netri"
-# for other UNIX varieties with Racal Interlan TCP/IP, read sco3r2netri entry
-# ? for SCO Xenix 2.3.x with SCO (Lachman) TCP/IP, "make sco3r2lai"
-# or (to add curses) "make sco3r2laic"
-# for SCO UNIX... ALSO READ COMMENTS in the SCO UNIX entries for more info!
-# ? for SCO UNIX/386 3.2.0 or 3.2.1, "make sco3r2" or "make sco3r2x"
-# ? for SCO UNIX/386 3.2.2, "make sco3r22" or "make sco3r22gcc"
-# or "make sco3r22c"
-# ? for SCO UNIX/386 3.2.2 with SCO TCP/IP, "make sco3r22net"
-# or "make sco3r22netc" (curses)
-# ? for SCO ODT 1.1, "make sco3r22net" or "make sco3r22netc" (curses)
-# + for SCO UNIX/386 3.2 V4.x, no network support, "make sco32v4"
-# + or "make sco32v4ns" (this one uses no select() or sockets library)
-# + for SCO UNIX/386 3.2 V4.x with TCP/IP, "make sco32v4net"
-# (also sco32v4gcc, sco32v4netgcc)
-# + for SCO UNIX/386 3.2 V5.0 - see SCO OpenServer.
-# + for SCO UNIX 3.2v4.x with TCP/IP, <dirent.h> for Extended Acer File
-# System (EAFS), curses, ANSI C compilation, "make sco32v4net"
-# + or (to use select()-based CONNECT module) "make sco32v4netx".
-# + for SCO UNIX 3.2v4.2, "make sco-odt30" (includes TCP/IP).
-# + for SCO MPX 3.0 - The SCO UNIX binary runs on the corresponding MPX system.
-#
-# NOTE: Also see below for other entries that are variations on these.
-# Also be sure to read the comments accompanying each SCO entry.
-# Also see Unixware section.
-#
-# + for SCO ODT 2.0, "make sco32v4net"
-# + for SCO ODT 3.0, "make sco-odt30"
-# + for SCO OpenServer 5.0 (OSR5), "make sco32v500"
-# + for SCO OpenServer 5.0 (OSR5) with networking, "make sco32v500net"
-# + for SCO OpenServer 5.0 (OSR5), gcc, "make sco32v500gcc"
-# + for SCO OpenServer 5.0 (OSR5), gcc, with networking, "make sco32v500netgcc"
-# + for SCO OpenServer 5.0 (OSR5), as above, ELF, "make sco32v500netgccelf"
-# + for SCO OpenServer 5.0.2, use "make sco32v502xxx" entries as above.
-# + for SCO OpenServer 5.0.4, use "make sco32v504xxx" entries as above.
-# + for SCO OpenServer 5.0.5, use "make sco32v505xxx" entries as above.
-# Use the sco32v505udkxxx entries if you have the UDK rather than /bin/cc.
-# + for SCO OpenServer 5.0.6, use "make sco32v506xxx" entries as above.
-# + for SCO OpenServer 5.0.6a,use "make sco32v506axxx" entries as above.
-# + for SCO OpenServer 5.0.7, use "make sco32v507", "make sco32v507net"
-# ? for SCO (Univel) UnixWare 1.x, "make unixware" or "make unixwarenetc".
-# If there are problems with this in C-K 7+ see notes at unixware entry.
-# + for SCO UnixWare 2.0.x, "make uw20"
-# + for SCO UnixWare 2.1.0, "make uw21"
-# + for SCO UnixWare 2.1.3, "make uw213"
-# + for SCO UnixWare 7, "make uw7"
-# + for SCO UnixWare 7 with IKSD support, "make uw7iksd" or "make uw7iksdudk"
-# + for SCO UnixWare 7 with OpenSSL, "make uw7ssl"
-# + for SCO (Caldera) Open UNIX 8, "make ou8"
-# + for Sharp Zaurus SL5500 PDA, "make zsl5500".
-# ? for Sequent with DYNIX/ptx 1.2.1, "make dynixptx12"
-# ? for Sequent with DYNIX/ptx 1.3 or 1.4 with TCP/IP, "make dynixptx13"
-# ? for Sequent with DYNIX/ptx 2.0 or 2.1 with TCP/IP, "make dynixptx20"
-# or "dynixptx20c"
-# + for Sequent with DYNIX/ptx 2.1.6 on i486, "dynixptx216c"
-# ? for Sequent with DYNIX/ptx V4.1.3 with TCP/IP, "make dynixptx41c"
-# + for Sequent with DYNIX/ptx V4.4.2 with TCP/IP, "make dynixptx44"
-# ? for Sequent Balance 8000 or B8 with DYNIX 3.0.xx, "make dynix3"
-# or "make dynix3noacu"
-# ? for Sequent Symmetry S81 with DYNIX 3.0.xx, "make dynix3"
-# ? for Sequent DYNIX 3.1.xx, "make dynix31" or "make dynix31c"
-# + for Siemens/Nixdorf SINIX-L Intel V5.41, "make sinix541i"
-# + for Siemens/Nixdorf SINIX-N MIPS V5.42, "make sinix542"
-# + for Siemens/Nixdorf SINIX-P MIPS V5.42 with gcc, "make sinix542g"
-# + for Siemens/Nixdorf SINIX-Z Intel V5.42, "make sinix542i"
-# + for Siemens/Nixdorf Reliant UNIX V5.43, "make sni543"
-# + for Siemens/Nixdorf Reliant UNIX V5.44, "make sni544"
-# ? for Silicon Graphics Iris System V IRIX 3.2 or earlier, "make iris"
-# ? for Silicon Graphics Sys V R3 with IRIX 3.3 or later, "make sys5r3"
-# ? for Silicon Graphics Iris Indigo with IRIX 4.0 or 5.0, "make irix40" or
-# (to include Yellow Pages and Curses) "make irix40ypc"
-# ? for Silicon Graphics Iris Indigo or Elan with IRIX 4.0.x with microcode
-# optimization and -O4, "make irix40u" or "irix40uc" (and read notes
-# accompanying these entries).
-# + for Silicon Graphics IRIX 5.1, "make irix51" or "irix51x" (no optimize)
-# + for Silicon Graphics IRIX 5.2, "make irix52"
-# + for Silicon Graphics IRIX 5.3, "make irix53" or "irix53x" (no optimize)
-# + for Silicon Graphics IRIX 6.0, "make irix60".
-# + for Silicon Graphics IRIX 6.2, "make irix62".
-# + for Silicon Graphics IRIX 6.3, "make irix63".
-# + for Silicon Graphics IRIX 6.4, "make irix64" or "make irix64gcc".
-# + for Silicon Graphics (SGI) IRIX 6.5, "make irix65" or "make irix65mips2"
-# ? for Solaris 2.0-2.3 on SPARC or Intel, SunPro CC, "make solaris2x",
-# ? or to add SunLink X.25 8.0x support, "make solaris2x25".
-# + for Solaris 2.4 built with gcc, "make solaris24g".
-# + for Solaris 2.0-2.3 on SPARC or Intel, GNU CC, "make solaris2xg".
-# + for Solaris 2.4 with X.25, "make solaris24x25".
-# + for Solaris 2.5 on SPARC or Intel, SunPro CC, "make solaris25".
-# + or to add SunLink X.25 8.0x support, "make solaris25x25".
-# + for Solaris 2.5 on SPARC or Intel, GNU CC, "make solaris25g".
-# + for Solaris 2.6 on SPARC or Intel, "make solaris26".
-# + for Solaris 7 on SPARC or Intel, SunPro CC, "make solaris7".
-# + for Solaris 7 on SPARC or Intel, GNU CC, "make solaris7g".
-# + for Solaris 8 on SPARC or Intel, SunPro CC, "make solaris8".
-# + for Solaris 8 on SPARC or Intel, GNU CC, "make solaris8g".
-# + for Solaris 9 on SPARC (or Intel?), 32-bit, SunPro CC, "make solaris9".
-# + for Solaris 9 on SPARC (or Intel?), 32-bit, GNU CC, "make solaris9g".
-# + for Solaris 9 on SPARC (or Intel?), 64-bit, GNU CC, "make solaris9g64".
-# + for Solbourne 4/500 with OS/MP 4 "make sunos4"
-# + for Solbourne 4/500 with OS/MP 4.1 "make sunos41" or "make sunos41c"
-# ? for SONY NEWS with NEWS-OS 4.0.1C, "make sonynews"
-# ? for SONY NEWS with NEWS-OS 4.1.2C, "make sonynews"
-# ? for Sperry/UNISYS 5000/20, UTS V 5.2 3R1, "make sys5"
-# ? for Sperry/UNISYS 5000/30/35/50/55, UTS V 5.2 2.01, "make unisys5r2"
-# ? for Sperry/UNISYS 5000/80 with System V R3, "make sys5r3"
-# ? for Sperry/UNISYS 5000/95 with System V R3, "make sys5r3"
-# For UNISYS SVR3 it might be necessary to "make sys5r3 KFLAGS=-UDYNAMIC"
-# ? for Stardent 1520, "make sys5r3"
-# ? for Stratus FTX 2.x, try "make ftx" or else "make sys5r4" or "sys5r4sx"
-# + for Stratus FTX 3.x, PA-RISC 1.0 or 2.0, "make ftx" or "make ftxtcp"
-# ? for Sun with Sun UNIX 3.5 and gcc, "make sunos3gcc"
-# ? for Sun with pre-4.0 SunOS versions, "make bsd" (or appropriate variant)
-# ? for Sun with SunOS 4.0, BSD environment, "make sunos4"
-# ? for Sun with SunOS 4.0, BSD, with SunLink X.25, make sunos4x25
-# + for Sun with SunOS 4.1 or 4.1.1, BSD environment, "make sunos41"
-# or "make sunos41c" (curses) or "make sunos41gcc" (compile with gcc)
-# + for Sun with SunOS 4.1.x, BSD, with SunLink X.25 7.00 or earlier,
-# "make sunos41x25" or "make sunos41x25c" (curses)
-# + for Sun with SunOS 4.1, 4.1.1, AT&T Sys V R3 environment, "make sunos41s5"
-# + for Sun with SunOS 4.1.2, "make sunos41" or any of its variations.
-# NOTE: All SunOS 4.x systems -- Shared libraries are used by default.
-# If this causes problems, add -Bstatic to CFLAGS.
-# NOTE2: When building C-Kermit under SunOS for the BSD universe,
-# but /usr/5bin/cc is ahead of /usr/ucb/cc in your PATH, add
-# "CC=/usr/ucb/cc CC2=/usr/ucb/cc" to the make entry.
-# NOTE3: If an executable built on one type of Sun hardware does not work
-# on another type, rebuild the program from source on the target machine.
-# for Sun with Solaris 1.x use SunOS 4.1 entries.
-# for Sun with Solaris 2.0 and higher use Solaris entries.
-# + for Sun SPARC with Linux, "make linux"
-# ? for Sun SPARC with OPENSTEP/Mach 4.1, "make nextquadfat"
-# ? for Sun SPARC with OPENSTEP/Mach 4.2, "make openstep42"
-# - for Tandy 16/6000 with Xenix 3.0, "make trs16" (C-Kermit 7.0 is too big)
-# ? for Tektronix 6130/4132/43xx (e.g.4301) with UTek OS, "make utek"
-# or (for models without hardware flow control), "make uteknohwfc"
-# ? for Tektronix XD88 series with UTekV OS, "make utekvr3"
-# ? for Tri Star Flash Cache with Esix SVR3.2, "make sys5r3"
-# + for Tru-64 UNIX 4.0E, "make tru64-40e"
-# + for Tru-64 UNIX 4.0F, "make tru64-40f"
-# + for Tru-64 UNIX 4.0G, "make tru64-40g"
-# + for Tru-64 UNIX 5.0A, "make tru64-50a"
-# + for Tru-64 UNIX 5.1A, "make tru64-51a"
-# ? for Unistar, "make sys5"
-# ? for Unisys S/4040 68040 CTIX SVR3.2 6.4.1, "make ctix" or "make sys5r3"
-# ? for Unisys U5000 UNIX SVR3 6.x, "make sys5r3" or "make sys5r3c"
-# ? for Unisys U6000 UNIX SVR4 1.x, "make sys5r4nx" or "make sys5r4nxnetc"
-# for Unisys ... (also see Sperry)
-# for Univel - see UnixWare
-# for Unixware - see SCO
-# ? for Valid Scaldstar, "make valid"
-# ? for Whitechapel MG01 Genix 1.3, "make white"
-# ? for Zilog ZEUS 3.21, "make zilog"
-#
-# The result should be a runnable program called "wermit" in the current
-# directory. After satisfactory testing, you can rename wermit to "kermit"
-# and put it where users can find it.
-#
-# To remove intermediate and object files, "make clean".
-# If your C compiler produces files with an extension other than "o",
-# then "make clean EXT=u", "make clean EXT=s", or whatever.
-#
-# To run lint on the source files, "make lintsun", "make lintbsd",
-# "make lints5", as appropriate.
-#
-# ******************************
-# SECURE TARGETS
-#
-# Beginning with C-Kermit 7.0, secure targets are included, as are the
-# source modules (ckuat*.[ch], ck_*.[ch]) needed to build them. Secure
-# target names are like the regular names, but with security features
-# indicated by plus (+) signs. The features are:
-#
-# krb4 MIT Kerberos IV
-# krb5 MIT Kerberos V
-# openssl OpenSSL (SSL/TLS)
-# zlib ZLIB compression for SSL/TLS
-# srp Stanford Secure Remote Password
-# pam PAM (pluggable authentication module)
-# shadow Shadow Password File
-#
-# You can build these targets if you have the Kermit source files and the
-# required libraries (Kerberos, OpenSSL, SRP, etc) and header files. See:
-# http://www.columbia.edu/kermit/security.html
-# for specific details regarding supported versions.
-#
-# NOTE: OpenSSL 0.9.6 and earlier are not compatible with 0.9.7 and later.
-# C-Kermit code is designed for 0.9.6. To build with 0.9.7 you must add
-# -DOPENSSL_097 to avoid missing symbols in the DES library and to use the
-# entry points that were renamed to avoid conflict with Kerberos 4.
-#
-# In OpenSSL builds add -ldl if you get unresolved references for
-# dlopen, dlclose, dlsym, and/or dlerror.
-#
-# The following symbols are used to specify library and header file locations
-# Redefine them to the values used on your system by:
-# . editing this file
-# . defining the values on the command line
-# . defining the values in the environment and use the -e option
-#
-prefix = /usr/local
-srproot = $(prefix)
-sslroot = $(prefix)
-manroot = $(prefix)
-
-K4LIB=-L/usr/kerberos/lib
-K4INC=-I/usr/kerberos/include
-K5LIB=-L/usr/kerberos/lib
-K5INC=-I/usr/kerberos/include
-SRPLIB=-L$(srproot)/lib
-SRPINC=-I$(srproot)/include
-SSLLIB=-L$(sslroot)/ssl/lib
-SSLINC=-I$(sslroot)/ssl/include
-#
-# aix41+krb5+krb4: IBM AIX 4.1 with Kerberos IV and V
-# aix43gcc+krb5+krb4: IBM AIX 4.3 built with gcc, ditto
-# aix43gcc+krb5+krb4+openssl: Ditto, plus OpenSSL (SSL/TLS)
-# aix43gcc+openssl: IBM AIX 4.3 with OpenSSL
-# freebsd44+srp+openssl FreeBSD 4.4 with SRP and OpenSSL
-# freebsd50+openssl FreeBSD 5.0 with OpenSSL
-# hpux1100o+openssl: HP-UX 11.xx with OpenSSL
-# hpux1000gcc+openssl: HP-UX 10.xx with OpenSSL (build with gcc)
-# hpux1100gcc+openssl: HP-UX 11.xx with OpenSSL (build with gcc)
-# irix6x+krb5: IRIX 6.x with Kerberos V
-# irix65+krb5: etc etc...
-# linux+krb5:
-# linux+krb5+krb4:
-# linux+srp:
-# linux+srp+pam:
-# linux+srp+gmp:
-# linux+srp+gmp+no-des:
-# linux+srp+gmp-export:
-# linux+srp+gmp+pam:
-# linux+shadow+pam:
-# linux+openssl:
-# linux+openssl+shadow:
-# linux+openssl+zlib+shadow+pam:
-# linux+srp+openssl:
-# linux+krb5+krb4+srp:
-# linux+krb5+krb4+srp+openssl:
-# linux+krb5+krb4+openssl:
-# linux+krb5+krb4+openssl+shadow:
-# linux+krb5+krb4+openssl+zlib+shadow:
-# linux+krb5+krb4+srp-export:
-# linux+krb5+krb4+srp+pam:
-# linux+krb5+krb4+srp+openssl+pam-debug:
-# linux+krb5+krb4+srp+openssl+pam:
-# linux+krb5+krb4+srp+openssl+zlib+pam:
-# linux+krb5+krb4+openssl+shadow+pam:
-# linux+krb5+openssl+zlib+shadow+pam:
-# openbsd30+ssl (includes OpenSSL):
-# redhat71, redhat72, redhat73, redhat80, redhat9
-# (Krb5, OpenSSL, Showdow, PAM, Zlib)
-# sco32v500net+ssl:
-# sco32v505net+ssl:
-# solaris2x+krb4:
-# solaris2xg+krb4:
-# solaris2xg+openssl+pam+shadow:
-# solaris2xg+openssl+zlib+pam+shadow:
-# solaris2xg+krb5+krb4+openssl+shadow:
-# solaris25+krb4:
-# solaris25g+krb4:
-# solaris26g+openssl:
-# solaris8g+openssl+zlib+pam+shadow:
-# solaris8g+krb4:
-# solaris9g+openssl+zlib+pam+shadow:
-# solaris9g+openssl+shadow+pam+zlib
-# sunos41gcc+krb4: SunOS 4.1 built with gcc with Kerberos IV
-# sunos41gcc+openssl: SunOS 4.1 built with gcc with OpenSSL
-# sunos41gcc+krb4+openssl: ...with Kerberos IV and OpenSSL
-# sunos41gcc+krb4+openssl+zlib: ditto, plus ZLIB compression
-# sunos41gcc+krb4+srp+openssl+zlib: ditto, plus SRP
-# sunos41gcc+srp+openssl+zlib:
-# uw7ssl
-#
-##############################################################################
-#
-# NOTES FOR V7 AND 2.X BSD (BASED ON VERSION 4E OF C-KERMIT, 1987):
-#
-# For Unix Version 7, several variables must be defined to the values
-# associated with your system. BOOTNAME=/edition7 is the kernel image on
-# okstate's Perkin-Elmer 3230. Others will probably be /unix. PROCNAME=proc
-# is the name of the structure assigned to each process on okstate's system.
-# This may be "_proc" or some other variation. See <sys/proc.h> for more
-# info on your systems name conventions. NPROCNAME=nproc is the name of a
-# kernel variable that tells how many "proc" structures there are. Again
-# this may be different on your system, but nproc will probably be somewhere.
-# The variable NPTYPE is the type of the nproc variable -- int, short, etc.
-# which can probably be gleaned from <sys/param.h>. The definition of DIRECT
-# is a little more complicated. If nlist() returns, for "proc" only, the
-# address of the array, then you should define DIRECT as it is below. If
-# however, nlist() returns the address of a pointer to the array, then you
-# should give DIRECT a null definition (DIRECT= ). The extern declaration in
-# <sys/proc.h> should clarify this for you. If it is "extern struct proc
-# *proc", then you should NOT define DIRECT. If it is "extern struct proc
-# proc[]", then you should probably define DIRECT as it is below. See
-# ckuv7.hlp for further information.
-#
-# For 2.9 BSD, the makefile may use pcc rather than cc for compiles; that's
-# what the CC and CC2 definitions are for (the current version of the
-# makefile uses cc for both; this was tested in version 4E of C-Kermit and
-# worked OK on the DEC Pro 380, but all bets are off for version 5A). 2.9
-# support basically follows the 4.1 path. Some 2.9 systems use "dir.h" for
-# the directory header file, others will need to change this to "ndir.h".
-#
-# The v7 and 2.9bsd versions assume I&D space on a PDP-11. When building
-# C-Kermit for v7 on a PDP-11, you should probably add the -i option to the
-# link flags. Without I&D space, overlays will be necessary (if available),
-# or code segment mapping (a`la Pro/Venix) if that's available.
-#
-# C-Kermit 5A (and 6.0?) can be built for 2.10 and 2.11BSD, using overlays,
-# but a separate makefile is used because this one is too big.
-#
-##############################################################################
-#
-# V7-specific variables.
-# These are set up for Perkin-Elmer 3230 V7 Unix:
-#
-PROC=proc
-DIRECT=
-NPROC=nproc
-NPTYPE=int
-BOOTFILE=/edition7
-#
-# ( For old Tandy TRS-80 Model 16A or 6000 V7-based Xenix, use PROC=_proc,
-# DIRECT=-DDIRECT, NPROC=_Nproc, NPTYPE=short, BOOTFILE=/xenix )
-#
-###########################################################################
-#
-# Compile and Link variables:
-#
-# EXT is the extension (file type) for object files, normally o.
-# See MINIX entry for what to do if another filetype must be used.
-#
-EXT=o
-#LNKFLAGS=
-SHAREDLIB=
-CC= cc
-CC2= cc
-MAKE= make
-SHELL=/bin/sh
-
-###########################################################################
-# SAMPLE INSTALLATION SCRIPT
-#
-# Modify to suit your own computer's file organization and permissions. If
-# you don't have write access to the destination directories, "make install"
-# fails. In most cases, a real installation also requires you to chown /
-# chgrp the Kermit binary for the UUCP lockfile and/or tty devices, and
-# perhaps also to chmod +s the corresponding permission fields.
-#
-# Default binary, man, and doc directories are supplied below. You can
-# override them in your 'make' command. Examples:
-#
-# make install # Accept defaults.
-# make "INFODIR=/usr/share/lib/kermit" install # Override INFODIR default.
-#
-# You can also build and install in one step, e.g.:
-#
-# make solaris8 install
-#
-# If you use the 'install' target to install C-Kermit, it creates an
-# UNINSTALL script that can be used to uninstall it.
-#
-WERMIT = makewhat
-BINARY = wermit
-DESTDIR =
-BINDIR = $(prefix)/bin
-MANDIR = $(manroot)/man/man1
-MANEXT = 1
-SRCDIR =
-INFODIR =
-CERTDIR =
-
-TEXTFILES = COPYING.TXT ckcbwr.txt ckubwr.txt ckuins.txt ckccfg.txt \
- ckcplm.txt ckermit.ini ckermod.ini ckermit70.txt ckermit80.txt
-
-ALL = $(WERMIT)
-
-all: $(ALL)
-
-.c.o:
- $(CC) $(CFLAGS) -DKTARGET=\"$(KTARGET)\" -c $<
-
-#Clean up intermediate and object files
-clean:
- @echo 'Removing object files...'
- -rm -f ckcmai.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
-ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckcpro.$(EXT) ckcfns.$(EXT) \
-ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) ckucon.$(EXT) ckutio.$(EXT) \
-ckufio.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) ckwart.$(EXT) ckuusx.$(EXT) \
-ckuusy.$(EXT) ckcnet.$(EXT) ckuus6.$(EXT) ckuus7.$(EXT) ckusig.$(EXT) \
-ckucns.$(EXT) ckcmdb.$(EXT) ckuath.$(EXT) ckctel.$(EXT) ckclib.$(EXT) \
-ckcuni.$(EXT) ck_crp.$(EXT) ck_ssl.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
-ckcpro.c wart
-
-# Install C-Kermit after building -- IMPORTANT: Read the instructions above
-# (SAMPLE INSTALLATION SCRIPT). For SSL/TLS versions, ca_certs.pem file
-# should be installed in the appropriate place for your OpenSSL library, e.g.:
-#
-# cp ca_certs.pem /usr/local/ssl/
-# cp ca_certs.pem /usr/share/ssl/
-#
-# To make sure 'man' notices the new source file and doesn't keep
-# showing the old formatted version, remove the old formatted version,
-# something like this:
-# rm -f $(MANDIR)/../cat$(MANEXT)/kermit.$(MANEXT)
-# or this (which requires CATDIR to be defined):
-# rm -f $(CATDIR)/kermit.$(MANEXT)
-#
-# As of C-Kermit 8.0.205 this target also builds an UNINSTALL script, and
-# so it might be too long for some old Bourne shells, in which case you can
-# use a different shell:
-#
-# make SHELL=ksh install
-# make SHELL=/bin/posix/sh install
-#
-install:
- @echo Installing C-Kermit version $(CKVER)...;\
- rm -f UNINSTALL;\
- exec 3>./UNINSTALL;\
- echo "# C-Kermit UNINSTALL script" >&3;\
- echo "# `date`\n" >&3;\
- echo "CKVER=$(CKVER)" >&3;\
- echo "PrN Uninstalling C-Kermit version $(CKVER)..." >&3;\
- echo DESTDIR=$(DESTDIR);\
- if test -n "$(DESTDIR)"; then\
- if test -d $(DESTDIR); then\
- echo "$(DESTDIR) exists...\n";\
- else\
- echo "Creating $(DESTDIR)...";\
- DESTDIR=`echo $(DESTDIR) | sed 's!/*$$!!'`;\
- mkdir $$DESTDIR || exit 1;\
- fi;\
- chmod 755 $(DESTDIR) || exit 1;\
- fi;\
- echo BINARY=$(BINARY);\
- if test -f $(BINARY); then\
- ls -l $(BINARY);\
- else\
- echo "?$(BINARY) not found";\
- exit 1;\
- fi;\
- if test -z "$(DESTDIR)$(BINDIR)"; then\
- echo "Binary directory not specified";\
- exit 1;\
- fi;\
- if test -d $(DESTDIR)$(BINDIR); then\
- echo "$(DESTDIR)$(BINDIR) exists...";\
- else\
- echo "Creating $(DESTDIR)$(BINDIR)/...";\
- mkdir $(DESTDIR)$(BINDIR) || exit 1;\
- chmod 755 $(DESTDIR)$(BINDIR);\
- fi;\
- rm -f $(DESTDIR)$(BINDIR)/kermit;\
- cp $(BINARY) $(DESTDIR)$(BINDIR)/kermit || exit 1;\
- chmod 755 $(DESTDIR)$(BINDIR)/kermit || exit 1;\
- rm -f $(DESTDIR)$(BINDIR)/kermit-sshsub;\
- ln -s $(DESTDIR)$(BINDIR)/kermit\
- $(DESTDIR)$(BINDIR)/kermit-sshsub || exit 1;\
- echo 'set flag=f\nPrC Removing binaries' >&3;\
- echo "RmF $(DESTDIR)$(BINDIR)/kermit-sshsub" >&3;\
- echo "RmF $(DESTDIR)$(BINDIR)/kermit" >&3;\
- if test -f ckermit.ini; then\
- echo "#!$(DESTDIR)$(BINDIR)/kermit" >\
- $(DESTDIR)$(BINDIR)/_tmp.ini;\
- cat ckermit.ini >> $(DESTDIR)$(BINDIR)/_tmp.ini;\
- mv $(DESTDIR)$(BINDIR)/_tmp.ini\
- $(DESTDIR)$(BINDIR)/ckermit.ini;\
- chmod 755 $(DESTDIR)$(BINDIR)/ckermit.ini;\
- echo "RmF $(DESTDIR)$(BINDIR)/ckermit.ini" >&3;\
- fi;\
- echo;\
- echo 'EfM' >&3;\
- echo "Kermit binary installed:";\
- ls -l $(DESTDIR)$(BINDIR)/kermit\
- $(DESTDIR)$(BINDIR)/kermit-sshsub\
- $(DESTDIR)$(BINDIR)/ckermit.ini;\
- echo;\
- echo " WARNING: If C-Kermit is to be used for dialing out,";\
- echo " you must change its owner and group and permissions";\
- echo " to match the 'cu' program. See the ckuins.txt file";\
- echo " for details.";\
- echo;\
- echo MANDIR=$(MANDIR);\
- if test -n "$(MANDIR)"; then\
- if test -d $(MANDIR); then\
- echo "$(MANDIR) exists...";\
- else\
- echo "Creating $(MANDIR)...";\
- mkdir $(MANDIR) || exit 1;\
- chmod 755 $(MANDIR) || exit 1;\
- fi;\
- echo "Installing man page...";\
- rm -f $(MANDIR)/kermit.$(MANEXT);\
- cp ckuker.nr $(MANDIR)/kermit.$(MANEXT) || exit 1;\
- chmod 644 $(MANDIR)/kermit.$(MANEXT) || exit 1;\
- echo 'set flag=f\nPrC Removing man pages' >&3;\
- echo "RmF $(MANDIR)/kermit.$(MANEXT)" >&3;\
- echo 'EfM' >&3;\
- echo;\
- else\
- echo "Not installing man page!\n";\
- fi;\
- echo CERTDIR=$(CERTDIR);\
- if test -n "$(CERTDIR)"; then\
- if test -f ca_certs.pem; then\
- if test -d $(CERTDIR); then\
- echo "$(CERTDIR) exists...";\
- else\
- echo "Creating $(CERTDIR)...";\
- mkdir $(CERTDIR) || exit 1;\
- chmod 755 $(CERTDIR) || exit 1;\
- fi;\
- echo "Installing certificates file...";\
- cp ca_certs.pem $(CERTDIR) || exit 1;\
- echo 'set flag=f' >&3;\
- echo 'PrC Removing certificates file' >&3;\
- echo "RmF $(CERTDIR)/ca_certs.pem" >&3;\
- echo 'EfM' >&3;\
- echo;\
- fi;\
- else\
- echo "Not installing certificates file!\n";\
- fi;\
- echo SRCDIR=$(DESTDIR)$(SRCDIR);\
- if test -n "$(SRCDIR)"; then\
- echo "Installing source files...";\
- if test -d $(DESTDIR)$(SRCDIR); then\
- echo "$(DESTDIR)$(SRCDIR) exists...";\
- else\
- echo "Creating $(DESTDIR)$(SRCDIR)/...";\
- mkdir $(DESTDIR)$(SRCDIR) || exit 1;\
- chmod 755 $(DESTDIR)$(SRCDIR);\
- fi;\
- echo "Copying source files to $(DESTDIR)$(SRCDIR)...";\
- echo 'set flag=f\nPrC Removing source files' >&3;\
- for TextFile in COPYING.TXT ck[cuw_]*.[cwh] makefile; do\
- cp $$TextFile $(DESTDIR)$(SRCDIR)/ && echo ".\c";\
- echo "RmF $(DESTDIR)$(SRCDIR)/$$TextFile" >&3;\
- done; echo;\
- echo 'EfM' >&3;\
- ( cd $(DESTDIR)$(SRCDIR)/ &&\
- ls -l COPYING.TXT ck[cuw_]*.[cwh] makefile );echo;\
- else\
- echo "Not installing source code!\n";\
- fi;\
- echo INFODIR=$(DESTDIR)$(INFODIR);\
- if test -n "$(INFODIR)"; then\
- echo "Installing info files...";\
- if test -d $(DESTDIR)$(INFODIR); then\
- echo "$(DESTDIR)$(INFODIR) exists...";\
- else\
- echo "Creating $(DESTDIR)$(INFODIR)/...";\
- mkdir $(DESTDIR)$(INFODIR) || exit 1;\
- chmod 755 $(DESTDIR)$(INFODIR);\
- fi;\
- echo "Copying text files to $(DESTDIR)$(INFODIR)...";\
- echo 'set flag=f\nPrC Removing text files' >&3;\
- FileCopyList='';\
- for TextFile in $(TEXTFILES); do\
- test -f $$TextFile || continue;\
- cp $$TextFile $(DESTDIR)$(INFODIR) && echo ".\c" &&\
- FileCopyList="$$FileCopyList $$TextFile";\
- echo "RmF $(DESTDIR)$(INFODIR)/$$TextFile" >&3;\
- done; echo;\
- echo 'EfM' >&3;\
- ( cd $(DESTDIR)$(INFODIR)/ && chmod 644 $$FileCopyList );\
- ( cd $(DESTDIR)$(INFODIR)/ && pwd && ls -l $$FileCopyList );\
- else\
- echo "Not installing text files!\n";\
- fi;\
- echo "set flag=d\nPrN Removing empty dirs..." >&3;\
- echo "RmD $(DESTDIR)$(BINDIR)" >&3;\
- echo "RmD $(DESTDIR)$(SRCDIR)" >&3;\
- echo "RmD $(DESTDIR)$(INFODIR)" >&3;\
- echo "RmD $(CERTDIR)" >&3;\
- echo "RmD $(MANDIR)" >&3;\
- echo "RmD $(DESTDIR)" >&3;\
- echo "EfM" >&3;\
- echo "PrN C-Kermit version $(CKVER) is uninstalled!" >&3;\
- echo C-Kermit version $(CKVER) installed!
-
-# UN-Install C-Kermit after building
-# Please to not remove the extra blanks before and after '{}' within the
-# functions. You would get syntax errors for some older Bourne shells! Best is
-# you don't change or remove anything.
-#
-uninstall:
- @if test ! -f UNINSTALL; then\
- echo "?C-Kermit UNINSTALL data file not found!";\
- exit 1;\
- fi; \
- X=`grep '^CKVER='$(CKVER)'$$' ./UNINSTALL || :`;\
- if test -z "$$X"; then\
- echo "?UNINSTALL file is not for C-Kermit version $(CKVER)";\
- exit 2;\
- fi;\
- PrN () { echo "$$*"; };\
- PrC () { echo "$$* \c"; };\
- RmF () { test -f "$$1" && rm -f "$$1" && echo ".\c" && flag=F ; };\
- RmD () { \
- dir=$$1;\
- while test -d "$$dir"; do\
- rmdir "$$dir" 2>&- || return && echo "$$dir" && flag=D;\
- dir=`echo "$$dir" | sed 's!/[^/]*/*$$!!'`;\
- done; \
- };\
- EfM () { \
- case "$$flag" in\
- f) echo "- Nothing to remove!";;\
- d) echo "Nothing to remove!";;\
- F) echo " done";;\
- D) echo "done";;\
- esac; \
- };\
- while read Act Args; do\
- case $$Act in\
- EfM) EfM;;\
- RmD) RmD $$Args;;\
- RmF) RmF $$Args;;\
- PrN) PrN $$Args;;\
- PrC) PrC $$Args;;\
- set) eval $$Args;;\
- esac;\
- done < ./UNINSTALL
-
-makewhat:
- @echo 'make what? You must tell which platform to make C-Kermit for.'
- @echo Examples: make linux, make hpux1100, make aix43, make solaris8.
- @echo Please read the comments at the beginning of the makefile.
-
-###########################################################################
-#
-# Dependencies Section:
-
-# Normal version
-
-wermit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucon.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT)
- $(CC2) $(LNKFLAGS) -o wermit \
- ckcmai.$(EXT) ckclib.$(EXT) ckutio.$(EXT) ckufio.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckcpro.$(EXT) ckucmd.$(EXT) ckuus2.$(EXT) ckuus3.$(EXT) \
- ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) ckuus7.$(EXT) \
- ckuusx.$(EXT) ckuusy.$(EXT) ckuusr.$(EXT) ckucon.$(EXT) \
- ckudia.$(EXT) ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) \
- ckusig.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
- $(LIBS)
-
-# Version with CONNECT module that uses select() instead of fork()
-
-xermit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) ckuath.$(EXT) \
- ck_crp.$(EXT) ck_ssl.$(EXT)
- $(CC2) $(LNKFLAGS) -o wermit \
- ckcmai.$(EXT) ckclib.$(EXT) ckutio.$(EXT) ckufio.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckcpro.$(EXT) ckucmd.$(EXT) ckuus2.$(EXT) ckuus3.$(EXT) \
- ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) ckuus7.$(EXT) \
- ckuusx.$(EXT) ckuusy.$(EXT) ckuusr.$(EXT) ckucns.$(EXT) \
- ckudia.$(EXT) ckuscr.$(EXT) ckcnet.$(EXT) ckusig.$(EXT) \
- ckctel.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
- ckuath.$(EXT) ck_crp.$(EXT) ck_ssl.$(EXT) $(LIBS)
-
-# Malloc Debugging version
-
-mermit: ckcmdb.$(EXT) ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckcpro.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) \
- ckuxla.$(EXT) ckucon.$(EXT) ckutio.$(EXT) ckufio.$(EXT) \
- ckudia.$(EXT) ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) \
- ckusig.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT)
- $(CC2) $(LNKFLAGS) -o mermit ckcmdb.$(EXT) ckclib.$(EXT) ckcmai.$(EXT)\
- ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) \
- ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) ckucmd.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckuusr.$(EXT) ckucon.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) \
- ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) ckcuni.$(EXT) \
- ckupty.$(EXT) ckcftp.$(EXT) $(LIBS)
-
-# Kerberized Version - Subject to USA export restrictions.
-
-# NOTE: We don't use this any more -- As of 15 Feb 2003, the "xermit"
-# target is used for both secure and regular version.
-
-krbmit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckuath.$(EXT) ck_crp.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) \
- ckcftp.$(EXT) ck_ssl.$(EXT)
- $(CC2) $(LNKFLAGS) -o krbmit ckcmai.$(EXT) ckclib.$(EXT) \
- ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) \
- ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) ckucmd.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckuusr.$(EXT) ckucns.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) \
- ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) ckuath.$(EXT) \
- ck_crp.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
- ck_ssl.$(EXT) $(LIBS)
-
-krbmit-debug: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckcpro.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) \
- ckuxla.$(EXT) ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) \
- ckudia.$(EXT) ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) \
- ckusig.$(EXT) ckuath.$(EXT) ck_crp.$(EXT) ckcuni.$(EXT) \
- ckupty.$(EXT) ck_ssl.$(EXT) ckcmdb.$(EXT) ckcftp.$(EXT)
- $(CC2) $(LNKFLAGS) -o krbmit ckcmdb.$(EXT) ckcmai.$(EXT) \
- ckclib.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) \
- ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) \
- ckucmd.$(EXT) ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) \
- ckuus5.$(EXT) ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) \
- ckuusy.$(EXT) ckuusr.$(EXT) ckucns.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckuath.$(EXT) ck_crp.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) \
- ckcftp.$(EXT) ck_ssl.$(EXT) $(LIBS)
-
-# SRP(TM) Version - Subject to USA export restrictions.
-
-srpmit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckuath.$(EXT) ck_crp.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) \
- ckcftp.$(EXT) ck_ssl.$(EXT)
- $(CC2) $(LNKFLAGS) -o srpmit ckcmai.$(EXT) ckclib.$(EXT) \
- ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) \
- ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) ckucmd.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckuusr.$(EXT) ckucns.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) \
- ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) ckuath.$(EXT) \
- ck_crp.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ck_ssl.$(EXT) \
- ckcftp.$(EXT) $(LIBS)
-
-# Kerberized Version - Not subject to USA export restrictions.
-
-krbmit-export: ckcmai.$(EXT) \
- ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckuath.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT)
- $(CC2) $(LNKFLAGS) -o krbmit-export ckcmai.$(EXT) ckclib.$(EXT) \
- ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) \
- ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) ckucmd.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckuusr.$(EXT) ckucns.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) \
- ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) ckuath.$(EXT) \
- ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) $(LIBS)
-
-# SRP(TM) Version - Not subject to USA export restrictions.
-
-srpmit-export: ckcmai.$(EXT) \
- ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
- ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
- ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
- ckcfns.$(EXT) ckcfn2.$(EXT) ckcfn3.$(EXT) ckuxla.$(EXT) \
- ckucns.$(EXT) ckutio.$(EXT) ckufio.$(EXT) ckudia.$(EXT) \
- ckuscr.$(EXT) ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) \
- ckuath.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT)
- $(CC2) $(LNKFLAGS) -o srpmit-export ckcmai.$(EXT) ckclib.$(EXT) \
- ckutio.$(EXT) ckufio.$(EXT) ckcfns.$(EXT) ckcfn2.$(EXT) \
- ckcfn3.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) ckucmd.$(EXT) \
- ckuus2.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) \
- ckuusr.$(EXT) ckucns.$(EXT) ckudia.$(EXT) ckuscr.$(EXT) \
- ckcnet.$(EXT) ckctel.$(EXT) ckusig.$(EXT) ckuath.$(EXT) \
- ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) $(LIBS)
-
-###########################################################################
-# man page...
-#
-ckuker.nr:
- @echo This target is obsolete.
- @echo The ckuker.nr file no longer needs any preprocessing.
-
-###########################################################################
-# Dependencies for each module...
-#
-ckcmai.$(EXT): ckcmai.c ckcker.h ckcdeb.h ckcsym.h ckcasc.h ckcnet.h ckcsig.h \
- ckuusr.h ckctel.h ckclib.h
-
-ckclib.$(EXT): ckclib.c ckclib.h ckcdeb.h ckcasc.h ckcsym.h
-
-ckcpro.$(EXT): ckcpro.c ckcker.h ckcdeb.h ckcsym.h ckcasc.h ckclib.h
-
-ckcpro.c: ckcpro.w wart ckcdeb.h ckcsym.h ckcasc.h ckcker.h ckcnet.h ckctel.h \
- ckclib.h
- ./wart ckcpro.w ckcpro.c
-
-ckcfns.$(EXT): ckcfns.c ckcker.h ckcdeb.h ckcsym.h ckcasc.h ckcxla.h ckcuni.h \
- ckuxla.h ckclib.h ckcnet.h
-
-ckcfn2.$(EXT): ckcfn2.c ckcker.h ckcdeb.h ckcsym.h ckcasc.h ckcxla.h \
- ckuxla.h ckctel.h ckclib.h ckcnet.h ckcuni.h
-
-ckcfn3.$(EXT): ckcfn3.c ckcker.h ckcdeb.h ckcsym.h ckcasc.h ckcxla.h \
- ckuxla.h ckclib.h ckcuni.h
-
-ckuxla.$(EXT): ckuxla.c ckcker.h ckcsym.h ckcdeb.h ckcxla.h ckuxla.h ckclib.h \
- ckcuni.h
-
-ckcuni.$(EXT): ckcuni.c ckcdeb.h ckcker.h ckucmd.h ckcuni.h ckcxla.h ckuxla.h
-
-ckuusr.$(EXT): ckuusr.c ckucmd.h ckcker.h ckuusr.h ckcsym.h ckcdeb.h ckcxla.h \
- ckuxla.h ckcasc.h ckcnet.h ckctel.h ckclib.h ckcuni.h
-
-ckuus2.$(EXT): ckuus2.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcxla.h ckuxla.h \
- ckcasc.h ckcnet.h ckcsym.h ckctel.h ckclib.h ckcuni.h
-
-ckuus3.$(EXT): ckuus3.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcxla.h ckuxla.h \
- ckcasc.h ckcnet.h ckcsym.h ckctel.h ckclib.h ckcuni.h
-
-ckuus4.$(EXT): ckuus4.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcxla.h ckuxla.h \
- ckcasc.h ckcnet.h ckuver.h ckcsym.h ckctel.h ckclib.h ckcuni.h
-
-ckuus5.$(EXT): ckuus5.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcasc.h ckcnet.h \
- ckcsym.h ckctel.h ckclib.h ckcxla.h ckuxla.h ckcuni.h
-
-ckuus6.$(EXT): ckuus6.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcasc.h ckcnet.h \
- ckcsym.h ckctel.h ckclib.h
-
-ckuus7.$(EXT): ckuus7.c ckucmd.h ckcker.h ckuusr.h ckcdeb.h ckcxla.h ckuxla.h \
- ckcasc.h ckcnet.h ckcsym.h ckctel.h ckclib.h ckcuni.h
-
-ckuusx.$(EXT): ckuusx.c ckcker.h ckuusr.h ckcdeb.h ckcasc.h ckcsym.h \
- ckcsig.h ckcnet.h ckctel.h ckclib.h ckcxla.h ckuxla.h ckcuni.h
-
-ckuusy.$(EXT): ckuusy.c ckcker.h ckcdeb.h ckcasc.h ckcnet.h ckcsym.h ckctel.h \
- ckclib.h
-
-ckucmd.$(EXT): ckucmd.c ckcasc.h ckucmd.h ckcdeb.h ckcsym.h ckctel.h ckclib.h
-
-ckufio.$(EXT): ckufio.c ckcdeb.h ckuver.h ckcsym.h ckclib.h \
- ckcxla.h ckuxla.h ckcuni.h
-
-ckutio.$(EXT): ckutio.c ckcdeb.h ckcnet.h ckuver.h ckcsym.h ckctel.h ckclib.h
-
-ckucon.$(EXT): ckucon.c ckcker.h ckcdeb.h ckcasc.h ckcnet.h ckcsym.h ckctel.h \
- ckclib.h
-
-ckucns.$(EXT): ckucns.c ckcker.h ckcdeb.h ckcasc.h ckcnet.h ckcsym.h ckctel.h \
- ckclib.h ckcxla.h ckuxla.h ckcuni.h
-
-ckcnet.$(EXT): ckcnet.c ckcdeb.h ckcker.h ckcnet.h ckcsym.h ckcsig.h ckctel.h \
- ckclib.h
-
-ckctel.$(EXT): ckcsym.h ckcdeb.h ckcker.h ckcnet.h ckctel.h ckclib.h
-
-wart: ckwart.$(EXT)
- $(CC) $(LNKFLAGS) -o wart ckwart.$(EXT) $(LIBS)
-
-ckcmdb.$(EXT): ckcmdb.c ckcdeb.h ckcsym.h ckclib.h
-
-ckwart.$(EXT): ckwart.c
-
-ckudia.$(EXT): ckudia.c ckcker.h ckcdeb.h ckucmd.h ckcasc.h ckcsym.h ckcsig.h \
- ckcnet.h ckctel.h ckclib.h
-
-ckuscr.$(EXT): ckuscr.c ckcker.h ckcdeb.h ckcasc.h ckcsym.h ckcsig.h \
- ckcnet.h ckctel.h ckclib.h
-
-ckusig.$(EXT): ckusig.c ckcasc.h ckcdeb.h ckcker.h ckcnet.h ckuusr.h \
- ckcsig.h ckctel.h ckclib.h
-
-ckcftp.$(EXT): ckcftp.c ckcdeb.h ckcasc.h ckcker.h ckucmd.h ckuusr.h \
- ckcnet.h ckctel.h ckcxla.h ckuxla.h ckcuni.h
-
-ckupty.$(EXT): ckupty.c ckupty.h ckcdeb.h
-
-ckuath.$(EXT): ckuath.c ckcdeb.h ckucmd.h ckuath.h ckuat2.h ckctel.h \
- ckclib.h ckcnet.h
-
-ck_crp.$(EXT): ck_crp.c ckcdeb.h ckcnet.h ckuath.h ckclib.h
-
-ck_ssl.$(EXT): ck_ssl.c ckcdeb.h ckucmd.h ckuath.h ckuat2.h ckctel.h \
- ckclib.h ck_ssl.h
-
-###########################################################################
-#
-# Entries to make C-Kermit for specific systems.
-#
-# Put the ones that need short makefiles first.
-
-#Apollo Aegis 9.x. Includes TCP/IP support.
-#You can also add processor-dependent optimization switches like -M570.
-aegis:
- @echo Making C-Kermit $(CKVER) for Apollo Aegis 9.x...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DNOCSETS -DCK_CURSES -O $(KFLAGS)" \
- "LIBS = -lcurses -ltermcap"
-
-#Apple Mac II, A/UX pre-3.0
-#Warning, if "send *" doesn't work, try the auxufs makefile entry below.
-aux:
- @echo Making C-Kermit $(CKVER) for Macintosh A/UX...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DAUX -DTCPSOCKET $(KFLAGS) -i -O" "LNKFLAGS = -i"
-
-#Apple Mac II, A/UX pre-3.0, compiled with gcc
-auxgcc:
- @echo Making C-Kermit $(CKVER) for Macintosh A/UX...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DAUX -DTCPSOCKET -traditional $(KFLAGS) -i -O" \
- "LNKFLAGS = " "CC = gcc" "CC2 = gcc"
-
-#Apple Mac II, A/UX, pre-3.0, but with ufs file volumes, uses <dirent.h>.
-auxufs:
- @echo Making C-Kermit $(CKVER) for Macintosh A/UX...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DAUX -DTCPSOCKET -DDIRENT $(KFLAGS) -i -O" "LNKFLAGS = -i"
-
-#Apple Mac II, A/UX 3.0, compiled with gcc
-aux3gcc:
- @echo Making C-Kermit $(CKVER) for Macintosh A/UX 3.0...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DAUX -DHDBUUCP -DLFDEVNO -DTCPSOCKET -DDIRENT $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = $(LIBS)" \
- "CC=gcc -pipe -traditional" "CC2=gcc -pipe -traditional"
-
-#Apple Mac II, A/UX 3.0, compiled with gcc, uses curses
-aux3cgcc:
- @echo Making C-Kermit $(CKVER) for Macintosh A/UX 3.0...
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) aux3gcc \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DCK_CURSES" "LIBS = -lcurses $(LIBS)"
-
-# Tenon MachTen, tested on Apple Powerbook with MachTen 2.1.1.D.
-# NOTE: This doesn't do anything about UUCP. It only works if /usr/spool/uucp
-# has permission of 777, and dialout device is world read/writeable.
-machten:
- @echo Making C-Kermit $(CKVER) for MachTen...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD43 -DTCPSOCKET -DSIG_V -DNDGPWNAM -DCK_CURSES -O \
- $(KFLAGS)" "LIBS=-lcurses -ltermcap"
-
-#Bell Labs Research UNIX V10
-#Can't add TCP/IP because there is no sockets library. It would have to
-#be done using streams, but there is no code in C-Kermit for that.
-#Remove -DNOJC if desired (if your system has csh, ksh, or bash).
-bellv10:
- @echo Making C-Kermit $(CKVER) for Bell Labs Research UNIX V10...
- $(MAKE) wermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBELLV10 -DBSD4 -DNDIR -DNOJC -DNOSYSIOCTLH -DNOSETREU \
- -DNOCSETS -MINIDIAL $(KFLAGS)"
-
-# WARNING: The early BSD entries do not build in version 7.0 with the stock
-# BSD compiler: "Too many defines". Unless you can rebuild cpp to have more
-# space for defines, these builds must be accomplished by:
-# copying the /usr/include tree to someplace else, preprocessing there with cc
-# -E -I./include or whatever (plus all the same -D's, adding any necessary
-# -U/-D to override the architecture)), renaming the the resulting files back
-# to their original names, bringing them back to the original BSD system, and
-# running the make target there. This technique was used for 4.2 and 4.3 BSD
-# on a VAX in C-Kermit 7.0 (later, cpp on that machine was rebuilt to allow
-# more symbols, so the C-Kermit 8.0 build proceeds normally).
-
-#Berkeley Unix 4.1
-bsd41:
- @echo Making C-Kermit $(CKVER) for 4.1BSD...
- $(MAKE) wermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD41" "LIBS = -ljobs"
-
-#Berkeley 4.2, 4.3, also Ultrix-32 1.x, 2.x, 3.x, many others
-# Add -O, -s, etc, if they work.
-# If you have a version of BSD but signal() is void rather than int,
-# "make bsd KFLAGS=-DSIG_V".
-bsd42:
- @echo Making C-Kermit $(CKVER) for 4.2BSD...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DNOREALPATH -DNOTIMEH -DNOIKSD \
- -DCK_CURSES -DSYSTIMEBH -DNOPUTENV -DNOANSI -DBIGBUFOK -DBSD42HACK \
- $(KFLAGS)" "LIBS=-lcurses -ltermcap $(LIBS)"
-
-bsd:
- $(MAKE) CC=$(CC) CC2=$(CC2) bsd42 KTARGET=$${KTARGET-$(@)}
-
-#Berkeley Unix 4.2 or 4.3 with HoneyDanBer UUCP
-bsdhdb:
- @echo Making C-Kermit $(CKVER) for 4.2BSD with HDB UUCP...
- $(MAKE) CC=$(CC) CC2=$(CC2) bsd KTARGET=$${KTARGET-$(@)} \
- "KFLAGS= -DHDBUUCP $(KFLAGS)"
-
-#Berkeley Unix 4.3 with acucntrl program, curses, TCP/IP included.
-bsd43:
- @echo Making C-Kermit $(CKVER) for 4.3BSD...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DBSD43 -DTCPSOCKET -DNOREALPATH -DNOTIMEH -DNOIKSD \
- -DCK_CURSES -DACUCNTRL -DSYSTIMEBH -DNOPUTENV -DNOANSI -DBIGBUFOK \
- -DBSD42HACK $(KFLAGS)" "LIBS=-lcurses -ltermcap $(LIBS)"
-
-#4.3BSD, curses excluded
-bsd43nc:
- @echo Making C-Kermit $(CKVER) for 4.3BSD...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DBSD43 -DTCPSOCKET -DNOREALPATH -DNOTIMEH \
- -DACUCNTRL -DSYSTIMEBH -DNOIKSD -DNOPUTENV -DNOANSI -DBIGBUFOK \
- -DBSD42HACK $(KFLAGS)" "LIBS=$(LIBS)"
-
-#4.3BSD, TCP/IP excluded.
-bsd43nonet:
- @echo Making C-Kermit $(CKVER) for 4.3BSD + curses...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DBSD43 -DTCPSOCKET -DNOREALPATH -DNOTIMEH -DNOIKSD \
- -DCK_CURSES -DACUCNTRL -DSYSTIMEBH -DNOPUTENV -DNOANSI -DBIGBUFOK \
- -DBSD42HACK -DNONET $(KFLAGS)" "LIBS=-lcurses -ltermcap $(LIBS)"
-
-#Berkeley Unix 4.2 or 4.3 with lock directory /usr/spool/uucp/LCK/LCK..ttyxx,
-#but without acucntrl program
-bsdlck:
- @echo Making C-Kermit $(CKVER) for 4.2BSD, /usr/spool/uucp/LCK/...
- $(MAKE) CC=$(CC) CC2=$(CC2) bsd KTARGET=$${KTARGET-$(@)} \
- "KFLAGS= -DLCKDIR $(KFLAGS)"
-
-#Berkeley UNIX 4.4-Lite, 4.4-Encumbered, Net/2, etc (Post-Reno),
-#with TCP/IP networking. This was the basis for FreeBSD, NetBSD, OpenBSD,
-#BSDI, BSD/OS, and Mac OS X (each of which has its own set of targets that
-#are newer than this one).
-#
-#NOTE: This is not a pure POSIX configuration. Using -DPOSIX instead of
-# -DBSD44 prevents any kind of directory-reading (for wildcard expansion),
-#and disallows use of ENOTCONN symbol for detecting broken network
-#connections, and disallows RTS/CTS flow control, and would also require
-#definition of the appropriate UUCP lockfile convention.
-#Do not add -DCK_POSIX_SIG without reading <signal.h> first! For example,
-#sigsetjmp(), etc, tend to be defined but not implemented.
-#
-#NOTE: originally crypt was in libc - later it was unbundled.
-#Remove the LIBS clause to build on an early 4.4BSD platform.
-#
-bsd44:
- @echo Making C-Kermit $(CKVER) for 4.4BSD...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DTCPSOCKET $(KFLAGS) -O" "LIBS=-lcrypt"
-
-#Berkeley UNIX 4.4, as above, but with curses for fullscreen display
-#Please read notes for bsd44 entry just above.
-# NOTE: This one dumped core on the real 4.4BSD development system at
-# UC Berkeley (an HP-9000/300), so the no-curses version was used
-# for that one, which was unplugged years ago.
-bsd44c:
- @echo Making C-Kermit $(CKVER) for 4.4BSD with curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET $(KFLAGS) -O" \
- "LIBS= -lcurses -ltermcap -lcrypt $(LIBS)"
-
-#For FreeBSD 1.x.
-freebsd1:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC -funsigned-char \
- -DFNFLOAT -DNOHTERMCAP -DNOREALPATH -DNOSYSCONF $(KFLAGS) -O -pipe" \
- "LIBS= -lcurses -ltermcap -lm $(LIBS)"
-
-#FreeBSD 2.x with ncurses
-freebsd2:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 2.x with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DTCPSOCKET -DNOCOTFMC -DUSE_STRERROR \
- -DTPUTSARGTYPE=int -DTPUTSARG1CONST -DFREEBSD2 -funsigned-char \
- -DFNFLOAT $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -ltermlib -lcrypt -lm $(LIBS)"
-
-#For FreeBSD 2.x -- Uses curses rather than ncurses
-freebsd2c:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 2.x with curses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC -DUSE_STRERROR \
- -DTPUTSARGTYPE=int -DTPUTSARG1CONST -DFREEBSD2 -DFNFLOAT \
- -funsigned-char $(KFLAGS) -O -pipe" \
- "LIBS= -lcurses -ltermlib -lcrypt -lm $(LIBS)"
-
-#FreeBSD 3.x with ncurses and uu_lock()
-#(Note: uu_lock() goes back to 2.2.2, but not necessarily 2.0)
-freebsd3:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 3.x with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DTCPSOCKET -DNOCOTFMC -funsigned-char \
- -DTPUTSARGTYPE=int -DUSE_STRERROR -DFREEBSD3 -DUSE_UU_LOCK -DFNFLOAT \
- $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#As above but with curses rather than ncurses.
-freebsd3c:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 3.x with curses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC -DUSE_UU_LOCK \
- -DTPUTSARGTYPE=int -DUSE_STRERROR -DFREEBSD3 $(KFLAGS) -DFNFLOAT \
- -funsigned-char -pipe -O" \
- "LIBS= -lcurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.0 with ncurses and uu_lock(). Note - there is no curses in 4.0.
-#ncurses 5.0 is broken requiring us to work around with setbuf().
-freebsd4:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.x with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DTCPSOCKET -DNOCOTFMC -DFNFLOAT \
- -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR -DFREEBSD4 \
- -DNONOSETBUF -DUSE_UU_LOCK $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.1, as above but without the NONOSETBUF hack and with CK_NEWTERM.
-#This works with ncurses 5.1.
-freebsd41:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.1 with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DUSE_UU_LOCK -DFNFLOAT \
- -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#Default FreeBSD make for C-Kermit 8.0...
-freebsd:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- KTARGET=$${KTARGET-$(@)} freebsd45
-
-#FreeBSD 4.2, like 4.1.
-freebsd42:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.2...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DUSE_UU_LOCK -DFNFLOAT \
- -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.3, like 4.2.
-freebsd43:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.3...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DUSE_UU_LOCK \
- -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) \
- -O -pipe" "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.4, like 4.3.
-freebsd44:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.4...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 \
- -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.5, like 4.3 and 4.4.
-freebsd45:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.5...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.6, like 4.5
-freebsd46:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.6...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.7, like 4.6
-freebsd47:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.8, like 4.7
-freebsd48:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DFREEBSD48 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.9
-freebsd49:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DFREEBSD48 -DFREEBSD49 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 5.0, like 4.6
-freebsd50:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0 with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 5.1
-freebsd51:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0 with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DFREEBSD51 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#Secure builds for FreeBSD... gcc required.
-
-freebsd44+srp+openssl:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.3 with SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
- -DCK_CURSES -DTCPSOCKET \
- $(SRPINC) $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp -lssl -lkrypto -lcrypto \
- -lcrypt "
-
-# The following fragmentary FreeBSD+SLL target was suggested, but it's not
-# clear which version of FreeBSD it applies to.
-#
-# ALL_TARGET= xermit
-# MAKE_ARGS= KTARGET=freebsd \
-# CFLAGS="${CFLAGS} -DBSD44 -DCK_NCURSES -DCK_NEWTERM \
-# -DTCPSOCKET -DNOCOTFMC -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT \
-# -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR -DCKHTTP \
-# -DCK_SSL -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_DES" \
-# LIBS="-lssl -lcrypto -ldes -lncurses -lcrypt -lutil -lm"
-
-#FreeBSD 5.0 with OpenSSL 0.9.7.
-freebsd50+openssl:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0, ncurses, openssl'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL $(SSLINC) -DZLIB \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lssl -lcrypto -lutil -lm $(SSLLIB) $(LIBS)"
-
-#NetBSD - all versions - with curses, not ncurses.
-#Some builds seem to need KFLAGS=-DTPUTSFNTYPE=int, others don't.
-#(Only to get rid of a warning -- the binaries are identical.)
-netbsd:
- @echo Making C-Kermit $(CKVER) for NetBSD with curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DTPUTSISVOID \
- -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
-
-#NetBSD 1.5.x in which the return type of the function pointer that is the
-#third argument of tputs() was changed from void to int... The regular NetBSD
-#target builds OK here but this one eliminates the (harmless) warning.
-netbsd15:
- @echo Making C-Kermit $(CKVER) for NetBSD with curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DNETBSD15 \
- -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
-
-#NetBSD 1.6 - like 1.5.x but with vanity banner saying 1.6.
-netbsd16:
- @echo Making C-Kermit $(CKVER) for NetBSD with curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR \
- -DNETBSD15 -DNETBSD16 \
- -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
-
-#NetBSD with ncurses requested explicitly rather than curses-which-is-ncurses
-netbsdn:
- @echo Making C-Kermit $(CKVER) for NetBSD with ncurses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC -DCK_DTRCD \
- -DCK_DTRCTS -DFNFLOAT -DUSE_STRERROR -DTPUTSISVOID -DTPUTSARGTYPE=int \
- $(KFLAGS) -O" \
- "LIBS= -L/usr/pkg/lib -lncurses -lcrypt -lm $(LIBS)"
-
-#OpenBSD - All versions.
-#Uses ncurses as its curses so use -ltermlib, not -ltermcap
-#But it doesn't use uu_lock() which was introduced in OpenBSD 2.3.
-#For that use the next entry.
-#Add -DMAINTYPE=int if you get complaints about main: return type is not int.
-openbsdold:
- @echo Making C-Kermit $(CKVER) for OpenBSD...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
- -DFNFLOAT -DNDSYSERRLIST $(KFLAGS) -O" "LIBS= -lcurses -ltermlib -lm"
-
-#OpenBSD 2.3 or later
-#Add -DMAINTYPE=int if you get complaints about main: return type is not int.
-#For C-Kermit 8.0 (Christian Weisgerber):
-# -ltermlib removed (presumably because -lcurses==ncurses already includes it)
-# -DUSE_UU_LOCK and -lutil added for uu_lock()
-# -DNDSYSERRLIST changed to -DUSE_STRERROR
-#If this gives you trouble use the previous entry.
-openbsd:
- @echo Making C-Kermit $(CKVER) for OpenBSD 2.3 or later...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
- -DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR $(KFLAGS) -O" \
- "LIBS= -lcurses -lutil -lm"
-
-#OpenBSD 3.0 or later includes OpenSSL
-#Add -DMAINTYPE=int if you get complaints about main: return type is not int.
-#For C-Kermit 8.0 (Christian Weisgerber):
-# -ltermlib removed (presumably because -lcurses==ncurses already includes it)
-# -DUSE_UU_LOCK and -lutil added for uu_lock()
-# -DNDSYSERRLIST changed to -DUSE_STRERROR
-#If this gives you trouble use the previous entry.
-openbsd30+ssl:
- @echo Making C-Kermit $(CKVER) for OpenBSD 3.0 or later...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
- -DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR -DCK_AUTHENTICATION \
- -DCK_SSL $(KFLAGS) -O" \
- "LIBS= -lcurses -lutil -lm -lssl -lcrypto"
-
-# make 386bsd 0.0new, posix
-# for 386bsd 0.1.24, change /usr/include/termios.h to #define NCCS if
-# _POSIX_SOURCE is #defined. (source: lewine, posix prgmrs guide, o`reilly)
-#NOTE: Lock directory is /var/spool/lock. Formerly, it was /var/spool/uucp,
-#but reportedly <wjones@halcyon.com> that was due to a typo in 'man tip'.
-386bsd:
- @echo 'Making C-Kermit $(CKVER) for jolix 386BSD 0.0new and 0.1.24...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DSETREUID -DPIDSTRING -DUSLEEP \
- -D_386BSD -DCK_CURSES -DTCPSOCKET \
- -DLOCK_DIR=\\\"/var/spool/lock\\\" \
- $(KFLAGS) -O" "LNKFLAGS = -s" "LIBS = -lcurses -ltermcap"
-
-#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP but no curses.
-macosx10:
- @echo Making C-Kermit $(CKVER) for `uname -s`...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DTCPSOCKET -DUSE_STRERROR -O $(KFLAGS)"
-
-#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP and curses.
-#Note: curses must be obtained separately. See next entry for ncurses.
-#Add "LIBS = -lcurses -ltermcap" if necessary (but reportedly it is not).
-macosx10c:
- @echo Making C-Kermit $(CKVER) for `uname -s` + curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DCK_CURSES -DTPUTSFNTYPE=void -DTPUTSISVOID \
- -DTCPSOCKET -DUSE_STRERROR -O $(KFLAGS)"
-
-#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP and ncurses.
-#Note: ncurses must be obtained separately.
-#In the event of trouble with this one try the next one.
-macosx10nc:
- @echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DCK_NCURSES -DTCPSOCKET -DUSE_STRERROR -O \
- $(KFLAGS)" "LIBS= -lncurses $(LIBS)"
-
-#Mac OS X 10.2 (Jaguar) ncurses.
-macosx102nc:
- @echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DCK_NCURSES -DTCPSOCKET -DUSE_STRERROR -O \
- $(KFLAGS) " "LIBS= -lncurses $(LIBS)"
-
-#The problem here is that if curses.h also exists, it conflicts with
-#ncurses.h and and we have fatal errors. If this happens to you, then
-#try this entry.
-macosx10ncx:
- @echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
- @rm -f ./curses.h; touch ./curses.h
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DCK_NCURSES -DTCPSOCKET -DUSE_STRERROR \
- -I. -O $(KFLAGS) " \
- "LIBS= -lncurses $(LIBS)"
- @rm -f ./curses.h
-
-#Mac OS X 10.3 (Panther) - Assumes ncurses is installed.
-macosx103:
- @echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DMACOSX103 -DCK_NCURSES -DTCPSOCKET \
- -DUSE_STRERROR -DUSE_NAMESER_COMPAT -O \
- $(KFLAGS) " "LIBS= -lncurses -lresolv $(LIBS)"
-
-macosx103nc:
- $(MAKE) MAKE=$(MAKE) CC=$(CC) CC2=$(CC2) macosx103
-
-#Acorn RISCiX, based on ...
-#Berkeley Unix 4.2 or 4.3 with lock directory /usr/spool/uucp/LCK/LCK..ttyxx,
-#but without acucntrl program
-riscix:
- @echo Making C-Kermit $(CKVER) for RISCiX, /usr/spool/uucp/LCK..ttyxx
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD42 -DBSD4 -DRISCIX -DNOCSETS \
- -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DDIRENT -DCK_CURSES \
- -DMAXSP=9024 -DMAXRD=9024 -DSBSIZ=9050 -DRBSIZ=9050 \
- -DDFTTY=\\\"/dev/serial\\\" -DNOCSETS -DNOCYRIL \
- -DNOANSI -w -O2 -fomit-frame-pointer" \
- "LIBS= -lcurses -ltermcap " \
- "CC= /usr/ucb/cc" \
- "CC2= /usr/ucb/cc"
-
-#Acorn RISCiX, as above, but using gcc
-riscix-gcc:
- @echo Making C-Kermit $(CKVER) for RISCiX, /usr/spool/uucp/LCK..ttyxx
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD42 -DBSD4 -DRISCIX -DNOCSETS \
- -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DDIRENT -DCK_CURSES \
- -DMAXSP=9024 -DMAXRD=9024 -DSBSIZ=9050 -DRBSIZ=9050 \
- -DDFTTY=\\\"/dev/serial\\\" -DNOCSETS -DNOCYRIL \
- -DNOANSI -w -O2 -fomit-frame-pointer" \
- "LIBS= -lcurses -ltermcap " \
- "CC= gcc -mbsd" \
- "CC2= gcc -mbsd"
-
-#Convergent CTIX 6.4.1
-ctix:
- @echo 'Making C-Kermit $(CKVER) for Convergent CTIX 6.4.1'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DTCPSOCKET -DHDBUUCP -DCK_CURSES \
- -DNONAWS -DNOLEARN $(KFLAGS) -XO" \
- "LNKFLAGS=-s" "LIBS=-lsocket -lcurses -lc_s"
- mcs -d wermit
-
-# The following makefile entry should work for any Harris Night Hawk system
-# (either 88k or 68k based) running release 6.1 or later of the CX/UX
-# operating system. This is a POSIX and ANSI-C compliant system which also
-# supports BSD networking. (Earlier CX/UX releases will probably work with
-# sys5r3, but this has not been verified).
-#
-cx_ux:
- @echo Making C-Kermit $(CKVER) for Harris Night Hawk CX/UX 6.1 or later
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS=-DPOSIX -DTCPSOCKET -DHDBUUCP -DPID_T=pid_t -DWAIT_T=int \
- -Dd_ino=d_fileno -DUID_T=uid_t -DGID_T=gid_t $(KFLAGS) -Xa \
- -O3 -g" "LNKFLAGS=-O3"
-
-#Intergraph Clipper, CLIX, job control, HDB UUCP.
-clix:
- @echo 'Making C-Kermit $(CKVER) for Intergraph CLIX...'
- $(MAKE) wermit "CC=acc" "CC2=acc" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -w -DSVR3 -DCLIX -DDIRENT -DHDBUUCP -DNOSYSLOG -DUSE_MEMCPY \
- -DNOGETUSERSHELL -DNOREALPATH -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS=" "LIBS= -lbsd"
-
-#As above + TCP/IP...
-clixnet:
- @echo 'Making networked C-Kermit $(CKVER) for Intergraph CLIX...'
- $(MAKE) wermit "CC=acc" "CC2=acc" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -w -DSVR3 -DCLIX -DDIRENT -DHDBUUCP -DNOSYSLOG -DUSE_MEMCPY \
- -DTCPSOCKET -DNOGETUSERSHELL -DNOLEARN -DNOREALPATH $(KFLAGS) -O" \
- "LNKFLAGS=" "LIBS= -lbsd"
-
-#Mark Williams Coherent 286 or 386 on IBM PC family.
-#There is a 64K limit on program size, so this is a command-line only version.
-coherent:
- $(MAKE) "CFLAGS = -O -DCOHERENT -DNOANSI -DNOICP -DNOSETKEY -DNOLEARN \
- -DNOCSETS -DNOHELP -DNODIAL -DNOSCRIPT -DNODEBUG -DNOTLOG -DNOXMIT \
- -DNOMSEND -DNOFRILLS -DNOSYSIOCTLH -DSELECT_H $(KFLAGS) -VSUVAR" \
- -DNOFLOAT KTARGET=$${KTARGET:-$(@)} wermit
-
-#Mark Williams Coherent 386 on IBM PC family.
-#This will make a "minimum interactive" version - no scripts,
-#no character sets, no help, no dial, no debug/transaction logging, no
-#transmit, msend, mail, type, etc.
-coherentmi:
- $(MAKE) "CFLAGS = -O -DCOHERENT -DNOANSI -DNOSETKEY -DNOLEARN \
- -DNOSHOW -DNOCSETS -DNOHELP -DNODIAL -DNOSCRIPT -DNODEBUG -DNOTLOG \
- -DNOXMIT -DNOMSEND -DNOFRILLS -DNOSYSIOCTLH -DNOSERVER -DNOUUCP \
- -DNOSPL -DNOPUSH -DNOMDMHUP -DNOJC -DNOFDZERO -DNOESCSEQ -DNOFLOAT \
- -DNOCMDL $(KFLAGS) -VSUVAR -DSELECT_H" KTARGET=$${KTARGET:-$(@)} \
- wermit
-
-#Mark Williams Coherent 386 on IBM PC/AT family.
-coherentmax:
- $(MAKE) "CFLAGS = -O -DCOHERENT -DNOANSI -DSELECT_H -DNOLEARN \
- -DNOFLOAT -DNOSYSIOCTLH $(KFLAGS) -VSUVAR" "LNKFLAGS = -O -s" \
- KTARGET=$${KTARGET:-$(@)} wermit
-
-#Mark Williams Coherent 386 4.2. Includes curses but not TCP/IP.
-#Requires updates to the 4.2.10 compiler; the regular compiler fails to
-#to handle "complex expressions". NOFLOAT is so it can work on old PCs
-#without floating-point hardware.
-coherent42:
- $(MAKE) "CFLAGS = -T500000 -DNOFLOAT -DCOHERENT -DNOANSI -DSELECT \
- -DNOSYSLOG -DDIRENT -DCK_CURSES -DCK_NEWTERM -DCK_WREFRESH -VSUVAR \
- -DDCLGETCWD -DNOSYSIOCTLH -DNOINITGROUPS -DNOSYMLINK -DSELECT_H \
- -DDCLGETCWD -O $(KFLAGS)" \
- "LNKFLAGS = -O -s" KTARGET=$${KTARGET:-$(@)} \
- "LIBS = -lsocket -lcurses" wermit
-
-#DEC Ultrix 2.x
-# Add -O, -DDYNAMIC, -s, etc, if they work.
-ultrix2x:
- @echo Making C-Kermit $(CKVER) for Ultrix 2.x ...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DDU2 -DNOGETUSERSHELL $(KFLAGS)"
-
-du2:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET-$(@)} ultrix2x
-
-#DEC Ultrix 3.0 and 3.1
-ultrix30:
- @echo Making C-Kermit $(CKVER) for Ultrix 3.0...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DDIRENT -DSIG_V -DNOGETUSERSHELL \
- -DULTRIX3 -DCK_CURSES $(KFLAGS) -O" "LIBS= -lcurses -ltermcap"
-
-du3:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET-$(@)} ultrix30
-
-ultrix3x:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET-$(@)} ultrix30
-
-#DEC Ultrix 4.0 or 4.1 on DECstation, VAXstation, VAX, etc.
-ultrix40:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.0 or 4.1...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DDU4 -DNOGETUSERSHELL \
- $(KFLAGS) -Olimit 1450" "LNKFLAGS = -s"
-
-#DEC Ultrix 4.2-4.5 on DECstation, DECsystem, VAXstation, VAX, etc.
-#Like ultrix40, except now C compiler supports -O2 optimization.
-ultrix42:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.2 or later...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DNOGETUSERSHELL $(KFLAGS) \
- -O2 -Olimit 1750" "LNKFLAGS = -s"
-
-du42:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET-$(@)} ultrix42
-
-#DEC Ultrix 4.2-4.5 on DECstation, DECsystem, VAXstation, VAX, etc.
-#Like du42, but with curses support added and a couple features.
-ultrix42c:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.2 or later...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DNOGETUSERSHELL \
- -DCK_CURSES -DNOIKSD $(KFLAGS)-G6 -O2 -Olimit 3000 " \
- "LNKFLAGS = -s" "LIBS= -lcurses -ltermcap"
-
-ultrix43:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- "KFLAGS=-DULTRIX43 $(KFLAGS)" KTARGET=$${KTARGET-$(@)} ultrix42c
-
-ultrix43notcp:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- "KFLAGS=-DULTRIX43 -DNONET $(KFLAGS)" \
- KTARGET=$${KTARGET-$(@)} ultrix42c
-
-# NOTE: need -DNODEBUG on MIPS to avoid relocation errors at link time.
-# Actually now (8.0) that we have discovered the -G option maybe debugging
-# can be put back.
-ultrix44:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- "KFLAGS=-DULTRIX44 -G7 -DNODEBUG -DNETPTY -DNO_DEVTTY $(KFLAGS)" \
- KTARGET=$${KTARGET-$(@)} ultrix42c
-
-ultrix45:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- "KFLAGS=-DULTRIX45 $(KFLAGS)-DNETPTY -DNO_DEVTTY $(KFLAGS)" \
- KTARGET=$${KTARGET-$(@)} ultrix42c
-
-du42c:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- KTARGET=$${KTARGET-$(@)} ultrix42c
-
-#DEC Ultrix 4.3A or later on DECsystem and DECstation 5000/50, /150 or /260
-#with MIPS R4x00 processor. The "-mips3" switch generates R4000-specific
-#code, which is faster and more compact, but *won't* run on earlier
-#DECsystems and DECstations.
-ultrix43-mips3:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.3A or later, R4000 cpu...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DNOGETUSERSHELL \
- $(KFLAGS) -O2 -Olimit 1750 -mips3" "LNKFLAGS = -s -mips3"
-
-du43-mips3:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) ultrix43-mips3
-
-#DEC Ultrix 4.3A or later on MIPS R4x000 based systems.
-#Like ultrix43-mips3 but with curses support added
-ultrix43c-mips3:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.3A or later, R4000 cpu...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DNOGETUSERSHELL -DCK_CURSES \
- $(KFLAGS) -O2 -Olimit 3000 -mips3" "LNKFLAGS = -s -mips3" \
- "LIBS= -lcurses -ltermcap"
-
-du43c-mips3:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- KTARGET=$${KTARGET-$(@)} ultrix43c-mips3
-
-#DEC Ultrix 4.4 on DECstation 5000/50 or /150 with R4000 MIPS processor,
-#or 5000/260 with R4400. The "-mips3" switch generates R4000-specific code,
-#which is faster and more compact but *won't* run on earlier DECstations.
-ultrix44-mips3:
- @echo Making C-Kermit $(CKVER) for Ultrix 4.4, R4000 cpu ...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DSIG_V -DNOGETUSERSHELL \
- $(KFLAGS) -O2 -Olimit 1450 -mips3" "LNKFLAGS = -s -mips3"
-
-du44-mips3:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- KTARGET=$${KTARGET-$(@)} ultrix44c-mips3
-
-#DEC Ultrix 4.2 on DECstation, VAXstation, VAX, etc, System V R4 environment
-ultrix42s5r4:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4 on Ultrix...'
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS = -O2 -Olimit 1500 -DSVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DTCPSOCKET $(KFLAGS)" "LNKFLAGS = -s"
-
-#OSF/1
-osf:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD4 -DOSF -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
- -DCK_CURSES -DCK_RTSCTS -DFNFLOAT $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lbsd -lcurses -ltermcap -lm"
-
-#DEC OSF/1 V1.0-1.3 on DECstation, VAX, Alpha, or PC.
-dec-osf:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD4 -DOSF -DOSF13 -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
- -DNOREALPATH -DNOIKSD -DCK_CURSES -DCK_RTSCTS -DFNFLOAT -DNODEBUG \
- -DNOUNICODE $(KFLAGS)" \
- "LNKFLAGS = -non_shared" "LIBS = -lbsd -lcurses -ltermcap -lm"
-
-# This one causes "relocation out-of-range" errors in the linker.
-old-dec-osf:
- @echo Making C-Kermit $(CKVER) for DEC OSF/1 V1.x...
- @echo If you are building for DEC OSF/1 2.0, please use dec-osf20.
- @echo Remove or adjust -O2 and/or -Olimit if they cause trouble.
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -O2 -Olimit 2400 $(KFLAGS)"
-
-#DEC OSF/1 2.0 on Alpha and probably nowhere else.
-#The only difference from OSF/1 is that optimization is omitted.
-#The optimized version gets strange runtime errors, like the PAUSE command
-#not working. Add "-unsigned" to make all chars unsigned.
-dec-osf20:
- @echo Making C-Kermit $(CKVER) for DEC OSF/1 V2.0...
- @echo Optimization omitted because it causes runtime errors.
- @echo See comments in makefile.
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF20 $(KFLAGS)"
-
-dec-osf30:
- @echo Making C-Kermit $(CKVER) for DEC OSF/1 V3.0...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF30 -O2 -Olimit 2400 $(KFLAGS)"
-
-#Digital UNIX 3.2
-# Must compile ckuus[6x].c separately without optimization otherwise
-# the optimizer dumps core - keep CFLAGS here in sync with those from osf.
-du32:
- @echo Making C-Kermit $(CKVER) for Digital UNIX 3.2...
- $(MAKE) CC=$(CC) CC2=$(CC2) ckuus6.$(EXT) \
- "CFLAGS= -DBSD4 -DOSF -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
- -DCK_CURSES -DCK_RTSCTS -DFNFLOAT -DOSF32 -DHDBUUCP $(KFLAGS)"
- $(MAKE) CC=$(CC) CC2=$(CC2) ckuusx.$(EXT) \
- "CFLAGS= -DBSD4 -DOSF -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
- -DCK_CURSES -DCK_RTSCTS -DFNFLOAT -DOSF32 -DHDBUUCP $(KFLAGS)"
- $(MAKE) CC=$(CC) CC2=$(CC2) osf \
- "KFLAGS= -DOSF32 -DHDBUUCP -O2 -Olimit 3200 $(KFLAGS)"
-
-dec-osf32:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) du32 \
- KTARGET=$${KTARGET:-$(@)}
-
-#Digital UNIX 4.0 through 4.0D (use tru64 targets for 4.0E and above)...
-du40:
- @echo Making C-Kermit $(CKVER) for Digital UNIX 4.0...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DHDBUUCP -DFNFLOAT \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)" "LIBS=-lm"
-
-du40gcc:
- @echo Making C-Kermit $(CKVER) for Digital UNIX 4.0 with gcc ...
- $(MAKE) osf CC=gcc CC2=gcc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DHDBUUCP $(KFLAGS)"
-
-#Tru64 Unix 4.0E
-tru64-40e:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 4.0E...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DOSF40E -DTRU64 -DHDBUUCP -DFNFLOAT -DNOCOTFMC \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)" "LIBS=-lm"
-
-tru64-40f:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 4.0F...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DOSF40F -DTRU64 -DHDBUUCP -DFNFLOAT -DNOCOTFMC \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)" "LIBS=-lm"
-
-tru64-40g:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 4.0G...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DOSF40G -DTRU64 -DHDBUUCP -DFNFLOAT -DNOCOTFMC \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)" "LIBS=-lm"
-
-tru64-50a:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.0A...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DTRU64 -DOSF50 -DHDBUUCP \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)"
-
-tru64-51a:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.1A...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DTRU64 -DOSF50 -DOSF51A -DHDBUUCP \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)"
-
-tru64-51b:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.1A...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DTRU64 -DOSF50 -DOSF51A -DOSF51B -DHDBUUCP \
- -unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)"
-
-du50:
- $(MAKE) CC=$(CC) CC2=$(CC2) tru64-50a KTARGET=$${KTARGET:-$(@)}
-
-du40-ridiculous-checking:
- @echo Making C-Kermit $(CKVER) for Digital UNIX 4.0.
- @echo Checking everything - assumes DECC...
- $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DOSF40 -DHDBUUCP -w0 -warnprotos -check -portable \
- -unsigned -std1 -O3 -Olimit 1760 $(KFLAGS)"
-
-#Sequent DYNIX/ptx 1.2.1
-dynixptx12:
- @echo Making C-Kermit $(CKVER) for Sequent DYNIX/ptx 1.2.1...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DPTX -DNOGETUSERSHELL -DNOLEARN \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-#Sequent DYNIX/ptx 1.3 or 1.4
-dynixptx13:
- @echo Making C-Kermit $(CKVER) for Sequent DYNIX/ptx 1.3 TCP/IP...
- $(MAKE) xermit "CFLAGS= -O KTARGET=$${KTARGET:-$(@)} \
- -DSVR3 -DDIRENT -DHDBUUCP -DPTX -DCK_POLL -DNOGETUSERSHELL \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DTCPSOCKET $(KFLAGS) -i" \
- "LNKFLAGS = -i" "LIBS = -lsocket -linet -lnsl"
-
-#Sequent DYNIX/ptx 2.0, ANSI C compilation
-#Should work on any hardware platform when DYNIX/ptx runs, including
-#386, 486, Pentium.
-dynixptx20:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 2.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DHDBUUCP -DTCPSOCKET \
- -DWAIT_T=int -DPTX -DNOGETUSERSHELL $(KFLAGS) -O" \
- "LIBS = -lsocket -linet -lnsl"
-
-#Sequent DYNIX/ptx 2.0, ANSI C compilation, with curses
-dynixptx20c:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 2.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DHDBUUCP -DTCPSOCKET -DWAIT_T=int -DPTX -DCK_CURSES \
- -DCK_NEWTERM -DNOGETUSERSHELL $(KFLAGS) -O" \
- "LIBS = -lsocket -linet -lnsl -lcurses -ltermcap"
-
-#Sequent DYNIX/ptx 2.1.6, 80486, ANSI C compilation, with curses:
-# -Xa -- use ANSI compiler.
-# -Wc,-pw -- suppress portability warnings.
-# -Wc,-i386 -- 80386 cpu.
-# -Wc,-i486 -- 80486 cpu.
-# -Wc,-P5 -- Pentium (default).
-# -Wc,-O3 -- highest optimization.
-# -Wa,-N17061 -- increase symbol table from default of 15013 for ckcuni.c.
-# Early versions of DYNIX/ptx 2.1.x may need -DCK_POLL instead of -DSELECT.
-# Add "$&" after the colon in the "xermit" target for parallel makes.
-dynixptx216c:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 2.1.6'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DHDBUUCP -DDYNAMIC -DTCPSOCKET \
- -DSELECT -DCK_REDIR -DCK_NAWS -DCK_WREFRESH -DSW_ACC_ID \
- -DTCP_NODELAY=1 -DTRMBUFL=2048 -DBIGBUFOK -DHADDRLIST \
- -DPTX -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL -DNOREALPATH \
- $(KFLAGS) -Xa -Wc,-pw -Wc,-i486 -Wc,-O3 -Wa,-N17061" \
- "LIBS = -lXbsd -lseq -lsocket -linet -lnsl -lmalloc -lm -lcurses" \
- "LNKFLAGS = -s"
-
-#Sequent DYNIX/ptx 2.1.6, gcc 2.7.2.2, with curses:
-dynixptx216cgcc:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 2.1.6 gcc'
- $(MAKE) xermit "CC = gcc" "CC2 = gcc" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DHDBUUCP -DDYNAMIC -DTCPSOCKET \
- -DSELECT -DCK_REDIR -DCK_NAWS -DCK_WREFRESH -DSW_ACC_ID \
- -DTCP_NODELAY=1 -DTRMBUFL=2048 -DBIGBUFOK -DHADDRLIST \
- -DPTX -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL -DNOREALPATH \
- $(KFLAGS) -O3 -pipe -funsigned-char" \
- "LIBS = -lXbsd -lseq -lsocket -linet -lnsl -lmalloc -lm -lcurses" \
- "LNKFLAGS = -s"
-
-#Sequent DYNIX/ptx 4.0, ANSI C compilation, with curses
-dynixptx41c:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 4.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DHDBUUCP -DTCPSOCKET \
- -DWAIT_T=int -DPTX -DPTX4 -DCK_CURSES -DCK_NEWTERM \
- -DNOGETUSERSHELL $(KFLAGS) -O" \
- "LIBS = -lsocket -lnsl -lcurses -ltermcap"
-
-#Sequent DYNIX/ptx 4.4, ANSI C compilation, with curses
-dynixptx44:
- @echo 'Making C-Kermit $(CKVER) for POSIX, Sequent DYNIX/ptx 4.4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPTX -DPTX4 -DPOSIX -DHDBUUCP -DTCPSOCKET -DWAIT_T=int \
- -DCK_CURSES -DCK_NEWTERM -DBIGBUFOK -DSELECT -DNOGETUSERSHELL \
- $(KFLAGS) -O" "LIBS = -lsocket -lnsl -lcurses -ltermcap"
-
-#Sequent DYNIX 3.0.x
-dynix3:
- @echo Making C-Kermit $(CKVER) for Sequent DYNIX 3.0.x...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD43 -DACUCNTRL -DTCPSOCKET -O \
- -DPWUID_T=int -DGID_T=int $(KFLAGS)"
-
-#Sequent DYNIX 3.0.x, no ACUCNTRL
-dynix3noacu:
- @echo Making C-Kermit $(CKVER) for Sequent DYNIX 3.0.x...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD43 -DLCKDIR -DTCPSOCKET -O \
- -DUID_T=int -DGID_T=int $(KFLAGS)"
-
-#Sequent DYNIX 3.1.x
-dynix31:
- @echo Making C-Kermit $(CKVER) for Sequent DYNIX 3.1.x...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DDCLPOPEN -DLCKDIR -DBSD4 -DTCPSOCKET $(KFLAGS)"
-
-#Sequent DYNIX 3.1.2, as above but with curses, to be compiled by gcc 2.3.3.
-dynix31c:
- @echo 'Making C-Kermit $(CKVER) for Sequent DYNIX 3.1.2, curses...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O2 -DDCLPOPEN -DACUCNTRL \
- -DBSD43 -DTCPSOCKET -DCK_CURSES -DUID_T=int \
- $(KFLAGS)" "LIBS= -lcurses -ltermcap"
-
-#Convex C1 with Berkeley Unix
-convex:
- @echo Making C-Kermit $(CKVER) for Convex C1 / BSD...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD4 -DNOLEARN $(KFLAGS) -Dmsleep=mnap"
-
-#Convex C210 with Convex/OS 8
-convex8:
- @echo Making C-Kermit $(CKVER) for Convex C210 with OS 8
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DNODEBUG -DDIRENT -DNOFILEH \
- $(KFLAGS) -DSIG_V -Dmsleep=mnap"
-
-#Convex C2 with Convex OS 9.1 (should also work with 8.1 or later)
-#with ANSI C compiler, uses BSD 4.3 uucp lockfile convention.
-convex9:
- @echo Making C-Kermit $(CKVER) for Convex C210 with OS 9.1
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DCONVEX9 -DNOIEXTEN -DDIRENT -DNOFILEH -DTCPSOCKET \
- -D__STDC__ -DLCKDIR -Dmsleep=mnap -O -ext -tm c1 $(KFLAGS)" \
- "LNKFLAGS = -ext"
-
-#Convex C2 with Convex OS 10.1 or later
-#with gcc 2.x C compiler
-convex10gcc:
- @echo Making C-Kermit $(CKVER) for Convex C2 with OS 10.1 using gcc
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DCONVEX9 -DNOIEXTEN -DDIRENT -DNOFILEH -DTCPSOCKET \
- -D__STDC__ -Dmsleep=mnap -O2 $(KFLAGS)" CC=gcc CC2=gcc
-
-#Cray X-MP or Y-MP UNICOS 6.x or 7.x.
-#NOTE: NPROC tells how many parallel makes to run. If your Cray has multiple
-#processors, you can set NPROC up to the number of CPUs, e.g. NPROC=16.
-cray:
- @echo 'Making C-Kermit $(CKVER) for Cray X/Y-MP UNICOS 6.x or 7.0...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} NPROC=1 \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS) -O1"
-
-#Cray X-MP or Y-MP UNICOS 8.0 Alpha.
-cray8:
- @echo 'Making C-Kermit $(CKVER) for Cray X/Y-MP UNICOS 8.0 Alpha...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} NPROC=1 \
- "CFLAGS= -DSVR4 -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS) -O1"
-
-#Cray X-MP or Y-MP UNICOS 9.0.
-#This one was executed successfully for C-Kermit 8.0.209.
-#Earlier versions of Unicos will probably need the same flags.
-cray9:
- @echo 'Making C-Kermit $(CKVER) for Cray X/Y-MP UNICOS 9.0...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} NPROC=1 \
- "CFLAGS= -DSVR4 -DDIRENT -DHDBUUCP -DNOLFDEVNO \
- -DTCPSOCKET $(KFLAGS) -O1"
-
-#Cray-2 or Cray 3-CSOS
-#NOTE: NPROC tells how many parallel makes to run. If your Cray has multiple
-#processors, you can set NPROC up to the number of CPUs, e.g. NPROC=16.
-craycsos:
- @echo 'Making C-Kermit $(CKVER) for Cray-2/3 CSOS
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} NPROC=1 \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DTCPSOCKET \
- $(KFLAGS) -DCK_ANSIC -DCK_CURSES" "LIBS=-lnet"
-
-#NeXTSTEP 1.0 through 3.2.
-#Includes fullscreen file transfer display (curses) and TCP/IP support.
-#Uses shared library to make executable program about 80K smaller.
-#Remove "LIBS = -lsys_s" if this causes trouble.
-next:
- @echo Making C-Kermit $(CKVER) for NeXTSTEP...
- @echo 'If you get errors in ckutio.c about w_S, w_T, etc,'
- @echo 'add KFGLAGS=-DNOREDIRECT to your make command.'
- $(MAKE) xermit CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNEXT -DTCPSOCKET -DLCKDIR -DNOPUTENV -DFNFLOAT \
- -pipe -DCK_CURSES $(KFLAGS) -O -w" "LIBS = -lsys_s -lcurses -ltermcap"
-
-nextc:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) next \
- KTARGET=$${KTARGET:-$(@)}
-
-nextg:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) next \
- KFLAGS=-Wall KTARGET=$${KTARGET:-$(@)}
-
-nextgc:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) next \
- KFLAGS=-Wall KTARGET=$${KTARGET:-$(@)}
-
-#NeXTSTEP 3.3.
-#Includes fullscreen file transfer display and TCP/IP.
-next33:
- @echo Making C-Kermit $(CKVER) for NeXTSTEP 3.3...
- $(MAKE) xermit CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNEXT33 -DTCPSOCKET -DLCKDIR -DNOPUTENV -DFNFLOAT \
- -pipe -DCK_CURSES $(KFLAGS) -O -w" "LIBS = -lsys_s -lcurses -ltermcap"
-
-#OPENSTEP 4.2 for Sparc, m680x0, HP PA-RISC, and Intel.
-#Includes fullscreen file transfer display and TCP/IP.
-#ckcpro.c compiled without optimization because it crashes the compiler.
-openstep42:
- @echo Making C-Kermit $(CKVER) for OPENSTEP 4.2...
- $(MAKE) ckcpro.$(EXT) \
- "CFLAGS= -DOPENSTEP42 -DNEXT33 -DTCPSOCKET -DLCKDIR -DNOPUTENV \
- -DFNFLOAT -pipe -DCK_CURSES $(KFLAGS) -w"
- $(MAKE) xermit CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DOPENSTEP42 -DNEXT33 -DTCPSOCKET -DLCKDIR -DNOPUTENV \
- -DFNFLOAT -pipe -DCK_CURSES $(KFLAGS) -O -w" \
- "LIBS = -lsys_s -lcurses -ltermcap"
-
-#NeXT with malloc debugger
-nextmd:
- @echo Making C-Kermit $(CKVER) for NeXT with malloc debugging...
- $(MAKE) mermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNEXT -DTCPSOCKET -DLCKDIR -DNOPUTENV -DFNFLOAT \
- -DCK_CURSES $(KFLAGS) -O -w -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG" \
- "LIBS = -lsys_s -lcurses -ltermcap"
-
-#Build for NeXTSTEP with "fat" binaries (MABs) that run on both Motorola
-#and Intel platforms.
-nextfat:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- next KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-Wall -arch m68k -arch i386" "LNKFLAGS = -arch m68k -arch i386"
-
-#NeXTSTEP on Intel Platforms.
-next486:
- @echo Making C-Kermit $(CKVER) for NeXTSTEP on Intel Platforms...
- @echo 'If you get errors in ckutio.c about w_S, w_T, etc,'
- @echo 'add KFGLAGS=D-DNOREDIRECT to your make command.'
- $(MAKE) xermit CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNEXT -DTCPSOCKET -DLCKDIR -DNOPUTENV -DFNFLOAT \
- -DNODEBUG -O3 -fno-omit-frame-pointer -fschedule-insns2 -pipe \
- -DCK_CURSES $(KFLAGS) -w" "LIBS = -lsys_s -lcurses -ltermcap"
-
-#Single binary that runs on NeXT 68030 and 68040, Intel, HP, and Sparc,
-#as well as on OpenStep/Mach.
-nextquadfat:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) next \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-Wall -arch m68k -arch i386 -arch hppa -arch sparc" \
- "LNKFLAGS = -arch m68k -arch i386 -arch hppa -arch sparc"
-
-#BeBox
-beboxdr7:
- @echo 'Making C-Kermit $(CKVER) for the BeBox...'
- @echo 'Link step will fail with default Metroworks linker 64K limit.'
- @echo 'Code Warrior Gold required to link big programs.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CC=/boot/develop/tools/mwcc" "CC2=/boot/develop/tools/mwld" \
- "CFLAGS= -DBEBOX -DBE_DR_7 -DPOSIX -DNOUUCP -DNOLEARN $(KFLAGS) -O"
-
-#BeBox BeOS DR7 only
-bebox:
- @echo 'Making C-Kermit $(CKVER) for BeBox...'
- @echo 'Link step will fail with default Metroworks linker 64K limit.'
- @echo 'Code Warrior Pro 3.0 for BeBox required to link big programs.'
- $(MAKE) wermit "CC=mwcc" "CC2=mwld" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBEBOX -DPOSIX -DNOLEARN -DNOUUCP $(KFLAGS) -O"
-
-#BeOS 4.5
-#We have to use the wermit target because 'fd_set' is unknown.
-beos45:
- $(MAKE) wermit "CC=$(CC)" "CC2=$(CC2)" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBEOS -DBEOS45 -DPOSIX -DNOIKSD -DNOREALPATH -DSYSTIMEH \
- -DNOCOTFMC -DNOUUCP -DNOLEARN $(KFLAGS) -O" \
- "LIBS = $(LIBS)"
-
-#BeOS 4.5
-beos45net:
- $(MAKE) CC=$(CC) CC2=$(CC2) beos45 \
- "KFLAGS=-DTCPSOCKET -DNO_DNS_SRV $(KFLAGS)" "LIBS=-lnet -lnetapi"
-
-#Plan 9 from Bell Labs
-plan9:
- @echo 'C-Kermit for Plan 9 from Bell Labs - calling ckpker.mk...'
- make -f ckpker.mk
-
-#POSIX
-posix:
- @echo 'Making C-Kermit $(CKVER) for pure POSIX...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DPOSIX -DNOUUCP -DNOLEARN $(KFLAGS) -O"
-
-# PowerMAX OS (SVR4) from Concurrent (tested on PowerMAX 5.1)
-powermax:
- @echo 'Making C-Kermit $(CKVER) for Concurrent PowerMAX OS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DPOWERMAX \
- -DNETPTY -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME -DPUSH_PTEM \
- -DPUSH_LDTERM -DPUSH_TTCOMPAT \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lresolv -lcurses -lgen -lc -lucbc"
-
-#Berkeley Software Design Inc. BSDI
-# Substitute "LIBS= -lnewcurses -ltermcap" if desired.
-bsdi:
- @echo 'Making C-Kermit $(CKVER) for BSDI ...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DSETREUID -DSW_ACC_ID -DBIGBUFOK -DFIXCRTSCTS \
- -DTCPSOCKET -DCK_CURSES -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -ltermcap -lm"
-
-#Berkeley Software Design Inc. BSDI - has higher serial speeds than 1.x.
-bsdi2:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DBSDI2 $(KFLAGS)"
-
-bsdi3:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DBSDI2 -DBSDI3 $(KFLAGS)"
-
-bsdi4:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DBSDI2 -DBSDI3 -DBSDI4 -DTPUTSFNTYPE=void -DTPUTSISVOID \
- -m486 $(KFLAGS)"
-
-# (old name for the above)
-bsdiposix:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi
-
-
-#Build a BSDI 4.x binary that also runs under FreeBSD (Terry Kennedy).
-#But watch out for details like serial-port locking.
-bsdix:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DBSDI2 -DBSDI3 -DBSDI4 -DTPUTSFNTYPE=void -DTPUTSISVOID \
- -m486 $(KFLAGS)" "LNKFLAGS=-static -Wl,-m,i386bsdi -Wl,-e,_start"
-
-#Pyramid 9XXX (e.g. 9845) or MIServer T series, OSx 4.4b thru 5.1
-pyramid:
- @echo Making C-Kermit $(CKVER) for Pyramid Dual Port OSx
- ucb $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD43 -DTCPSOCKET -DPYRAMID -O $(KFLAGS)" "LNKFLAGS = -s"
-
-#Pyramid Dual Port OSx using HoneyDanBer UUCP, curses and TCP
-pyramid-hdb:
- @echo Making C-Kermit $(CKVER) for Pyramid Dual Port OSx
- ucb $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD43 -DTCPSOCKET -DHBDUUCP -DCK_CURSES -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lcurses -ltermcap"
-
-#Pyramid DC/OSx (UNIX System V R4).
-#Has <sys/termiox.h>, regular Berkeley sockets library, i.e. in.h and inet.h
-#are not misplaced in sys (rather than netinet and arpa, respectively).
-#Uses ANSI C.
-#NOTE: Remove -O and Olimit:2500 from CFLAGS if TELNET connections do not work.
-pyrdcosx:
- @echo 'Making C-Kermit $(CKVER) for Pyramid DC/OSx...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -Xa -O -DSVR4 -DDIRENT -DHDBUUCP -DSELECT -DNOGETUSERSHELL \
- -DCK_CURSES -DSTERMIOX -DTCPSOCKET -DPYRAMID -K Olimit:3100 \
- -DNO_DNS_SRV $(KFLAGS)" "LIBS= -lcurses -lsocket -lnsl" "LNKFLAGS = -s"
-
-#IBM's AIX 3.0 on IBM 370 mainframe, tested on AIX F44 thru F50.
-aix370:
- @echo Making C-Kermit $(CKVER) for IBM System/370 AIX 3.0...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIX370 -DTCPSOCKET -DLCKDIR -DDIRENT $(KFLAGS)" \
- "LIBS = -lbsd"
-
-#IBM's AIX/ESA 2.1 (OSF/1) on IBM mainframe
-aixesa:
- @echo Making C-Kermit $(CKVER) for IBM AIX/ESA...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXESA -DTCPSOCKET $(KFLAGS) -O"
-
-#IBM PS/2 with AIX 1.0 thru 1.3.
-# Reports indicate that -O switch must be omitted.
-# It is also possible that "make bsd" will work (reports welcome).
-# One report said "make LIBS=-lbsd bsd" did the trick.
-# NOTLOG is to get around a 'tlog' symbol defined in one of the headers.
-ps2aix:
- @echo 'Making C-Kermit $(CKVER) for IBM AIX 1.x PS/2...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOREALPATH -DPS2AIX10 -DSIG_V \
- -DNOUNICODE -DNOTLOG -DNOLEARN $(KFLAGS) -i" \
- "LNKFLAGS = -i"
-
-ps2aixnetc:
- @echo 'Making C-Kermit $(CKVER) for IBM AIX 1.x PS/2...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOREALPATH -DPS2AIX10 -DTCPSOCKET -DCK_CURSES \
- -DSIG_V -DNOUNICODE -DNOTLOG -DNOLEARN $(KFLAGS) -i" \
- "LIBS = -lcurses" "LNKFLAGS = -i"
-
-ps2aix3:
- $(MAKE) ps2aix KTARGET=$${KTARGET:-$(@)}
-
-#IBM RT PC with AIX 2.2.1, valid as of C-Kermit 8.0.
-#NOTLOG because of a conflict in <sys/termio.h>.
-#This one has unique and strange lockfiles.
-# -O removed on purpose (8.0).
-# In case of "compiler error: symbol table full", increase the -Nn number.
-# In case of "compiler error: Constant pool too big", boost the -Np number.
-# Add -DNOPUTENV if putenv() causes trouble.
-# Put -DNOIKSD back if IKSD-related problems occur.
-rtaix:
- @echo 'Making C-Kermit $(CKVER) for IBM RT PC, AIX 2.2.1...'
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS = -DATTSV -DRTAIX -DHDBUUCP -DDIRENT -DNOTLOG -DTCPSOCKET \
- -DNOGETUSERSHELL -DCLSOPN -DNOREALPATH -DNOUNICODE -DBSD_INCLUDES \
- -DUSE_LSTAT -DFNFLOAT -Nn2500 -Np1000 -Wq,-SJ2 -a -w $(KFLAGS)" \
- "LIBS = -lm $(LIBS)" "LNKFLAGS = -s"
-
-#IBM RT PC with AIX 2.2.1 + curses
-rtaixc:
- $(MAKE) rtaix CC=$(CC) CC2=$(CC2) "KFLAGS=-DCK_CURSES" "LIBS=-lcurses"
-
-#IBM RT PC with AIX (ACIS) 2.2.1 (BSD 4.3)
-# Add -O, -DDYNAMIC, -s, etc, if they work.
-rtacis:
- @echo Making C-Kermit $(CKVER) for RT PC with ACIS 2.2.1 = BSD 4.3...
- $(MAKE) xermit KTARGET=$${KTARGET-$(@)} \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DNOREALPATH -DNOIKSD -DNOPUTENV \
- $(KFLAGS) -U__STDC__" "LNKFLAGS = -s"
-
-#IBM AIX 3.0, 3.1, or 3.2 for RISC System/6000.
-rs6000:
- @echo Making C-Kermit $(CKVER) for IBM AIX 3.0 or 3.1, RS/6000...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DTCPSOCKET -DSVR3 -DDIRENT -DCK_ANSIC \
- -DCK_POLL -DCLSOPN -DSELECT_H -DNOTTYLOCK -O $(KFLAGS)" \
- "LNKFLAGS = -s"
-
-#IBM AIX 3.0, 3.1, or 3.2 for RISC System/6000, with curses.
-rs6000c:
- @echo Making C-Kermit $(CKVER) for IBM AIX 3.0 or 3.1, RS/6000...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DTCPSOCKET -DSVR3 -DDIRENT -DCK_ANSIC \
- -DCK_POLL -DCLSOPN -DCK_CURSES -DSELECT_H -DNOTTYLOCK -DNOREALPATH \
- -O $(KFLAGS)" "LIBS= -lcurses -ltermcap" "LNKFLAGS = -s"
-
-aix30:
- $(MAKE) rs6000 CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)}
-
-aix31:
- $(MAKE) rs6000 CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)}
-
-#IBM AIX 3.2 for RISC System/6000.
-#In case of "subprogram too complex" warnings, add "-qmaxmem=16000" to CFLAGS.
-rs6aix32:
- @echo Making C-Kermit $(CKVER) for IBM AIX 3.2, RS/6000...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DTCPSOCKET -DSVR4 -DDIRENT -DCK_ANSIC -DNOREALPATH \
- -DSELECT_H -DCLSOPN -DNOTTYLOCK -O $(KFLAGS)" "LNKFLAGS = -s"
-
-#IBM AIX 3.2 for RISC System/6000.
-rs6aix32c:
- @echo Making C-Kermit $(CKVER) for IBM AIX 3.2, RS/6000, TCP+curses...
- @echo In case of Subprogram Too Complex warnings,
- @echo add -qmaxmem=16000 to CFLAGS.
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DTCPSOCKET -DSVR4 -DDIRENT -DCK_ANSIC -DNOREALPATH \
- -DCLSOPN -DCK_CURSES -DSELECT_H -DNOTTYLOCK -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=-lcurses"
-
-aix32:
- $(MAKE) rs6aix32c KTARGET=$${KTARGET:-$(@)}
-
-#IBM AIX 4.1, 4.1.x on RISC System/6000 or Power Series.
-#Generates common binary for all platforms if using xlc (IBM C compiler).
-#When using gcc, add -mcpu=common to generate common binary.
-#Note that this one needs CK_NEWTERM.
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix41:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.1.1 RS/6000 or PowerPC...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DSVR4 -DSTERMIOX -DTCPSOCKET -DDIRENT \
- -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -qmaxmem=16000 -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=-lcurses"
-
-#Ditto but with gcc.
-#Remove "CC=gcc CC2=gcc" if you have gcc installed as cc.
-aix41g:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.1.1 RS/6000 or PowerPC...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC=gcc" "CC2=gcc" \
- "CFLAGS= -DAIXRS -DAIX41 -DSVR4 -DSTERMIOX -DTCPSOCKET -DDIRENT \
- -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -O $(KFLAGS)" \
- "LNKFLAGS = -s -Xlinker -bbigtoc" "LIBS=-lcurses"
-
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix41+krb5+krb4:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.1.1 RS/6000 or PowerPC...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DSVR4 -DSTERMIOX -DTCPSOCKET -DDIRENT \
- -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_DES $(K5INC) $(K5INC)/krb5 \
- -DNOGETUSERSHELL -qmaxmem=16000 -O $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS = $(K5LIB) -lcurses -lkrb4 -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lgssapi_krb5"
-
-#Old name for "aix41".
-rs6aix41c:
- $(MAKE) aix41 KTARGET=$${KTARGET:-$(@)}
-
-#IBM AIX 4.1, 4.1.x, or 4.2 on RISC System/6000 or Power Series,
-# with X.25 support
-#Generates common binary for all platforms if using xlc (IBM C compiler).
-#When using gcc, add -mcpu=common to generate common binary.
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix41x25:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.1.1 RS/6000 or PowerPC...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DSVR4 -DSTERMIOX -DTCPSOCKET -DDIRENT \
- -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DIBMX25 -DDEBUG -DNOGETUSERSHELL -qmaxmem=16000 -g $(KFLAGS)" \
- "LNKFLAGS = -g -bI:/lib/pse.exp" "LIBS=-lcurses -lodm -lcfg"
- -@echo "\e]0;kermit done\a\c"
-
-#As above but without -g in LNKFLAGS.
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix41x25o:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.1.1 RS/6000 or PowerPC...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DSVR4 -DSTERMIOX -DTCPSOCKET -DDIRENT \
- -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DIBMX25 -DNODEBUG -DNOGETUSERSHELL -qmaxmem=16000 $(KFLAGS)" \
- "LNKFLAGS = -bI:/lib/pse.exp" "LIBS=-lcurses -lodm -lcfg"
- -@echo "\e]0;kermit done\a\c"
-
-#AIX 4.2 -- Must have CK_NEWTERM or echoing is lost after curses.
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix42:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.2 or higher...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DAIX42 -DSVR4 -DSTERMIOX -DTCPSOCKET \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DFNFLOAT \
- -DSELECT -DSELECT_H -DNOGETUSERSHELL -qmaxmem=16000 -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=-lcurses -lm"
-
-#AIX 4.3 -- Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
-# -bbigtoc needed on some systems but not others to avoid TOC overflow.
-# "man ld" says -bbigtoc makes program run slower.
-aix43:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 or higher...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DAIX43 -DSVR4 -DSTERMIOX -DTCPSOCKET \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DFNFLOAT -DNOGETUSERSHELL -qmaxmem=16000 -bbigtoc -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=-lcurses -lm"
-
-#AIX 4.3 with IBM X.25.
-aix43x25:
- @echo "Making C-Kermit $(CKVER) for IBM AIX 4.3 with X.25..."
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DAIXRS -DAIX41 -DAIX43 -DSVR4 -DSTERMIOX -DTCPSOCKET \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DFNFLOAT -DNOGETUSERSHELL -DIBMX25 \
- -qmaxmem=16000 -bbigtoc -O $(KFLAGS)" \
- "LNKFLAGS = -bI:/lib/pse.exp" "LIBS=-lcurses -lodm -lcfg -lm"
-
-#AIX 4.3 -- Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
-# -mminimal-toc needed on some systems but not others to avoid TOC overflow.
-# "man ld" says -bbigtoc makes program run slower.
-aix43g:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 gcc...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS=-lcurses -lm"
-
-aix43gcc:
- $(MAKE) aix43g
-
-# None of the following aix43gcc attempts work on a gcc-only AIX 4.3.3 box.
-# It just plain can't find the math routines (fmod, pow, exp, sqrt, log10,...)
-# Which is odd because nm /usr/lib/libC.a finds them...
-
-#in case aix43gcc can't find its math library...
-aix43gccx:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 gcc...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS= -L/usr/local/lib/gcc-lib/powerpc-ibm-aix4.3.1.0/2.95.2 \
- -lcurses -bloadmap -bnoquiet"
-
-#in case aix43gccx can't find its math library...
-aix43gccy:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 gcc...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS= -lcurses -bloadmap -bnoquiet"
-
-#in case aix43gccx can't find its math library...
-aix43gccz:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 gcc...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS= -L. -lcurses -bloadmap -bnoquiet"
-
-
-#AIX 4.3 with MIT Kerberos 5 and Kerberos 4 compatibility mode
-# Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
-# -mminimal-toc needed on some systems but not others to avoid TOC overflow.
-# "man ld" says -bbigtoc makes program run slower.
-aix43gcc+krb5+krb4:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 or higher w/Kerberos...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_DES -funsigned-char $(K5INC) $(K5INC)/krb5 \
- $(KFLAGS)" \
- "LIBS=$(K5LIB) -lcurses -lm -lkrb4 -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lcrypt -lgssapi_krb5"
-
-#AIX 4.3 with MIT Kerberos 5, Kerberos 4 compatibility mode and OpenSSL
-# Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
-# -mminimal-toc needed on some systems but not others to avoid TOC overflow.
-# "man ld" says -bbigtoc makes program run slower.
-aix43gcc+krb5+krb4+openssl:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 or higher w/Kerberos...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CAST -DLIBDES -DCK_SSL \
- -funsigned-char $(K5INC) $(K5INC)/krb5 $(SSLINC) $(KFLAGS)" \
- "LIBS=$(K5LIB) $(SSLLIB) -lssl -lcrypto \
- -lcurses -lm -lkrb4 -ldes425 -lkrb5 -lcom_err -lk5crypto -lcrypt \
- -lgssapi_krb5"
-
-aix43gcc+openssl:
- @echo Making C-Kermit $(CKVER) for IBM AIX 4.3 or higher w/OpenSSL...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS= -mminimal-toc -g -O -DAIXRS -DAIX41 -DAIX43 -DSVR4 \
- -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DSELECT -DSELECT_H \
- -DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL \
- -DCK_AUTHENTICATION -DCK_SSL -funsigned-char $(SSLINC) $(KFLAGS)" \
- "LIBS=$(SSLLIB) -lssl -lcrypto -lcurses -lm -lcrypt"
-
-aix44:
- $(MAKE) aix42 "KFLAGS=-DAIX44 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix45:
- $(MAKE) aix42 "KFLAGS=-DAIX45 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix50:
- $(MAKE) aix42 "KFLAGS=-DAIX50 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix51:
- $(MAKE) aix42 "KFLAGS=-DAIX51 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix52:
- $(MAKE) aix42 "KFLAGS=-DAIX52 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix53:
- $(MAKE) aix42 "KFLAGS=-DAIX53 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix44gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX44 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix45gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX45 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix50gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX50 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix51gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX51 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix52gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX52 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix53gcc:
- $(MAKE) aix43g "KFLAGS=-DAIX53 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-#Bull DPX/2 with BOS/X, like AIX/RS6000
-bulldpx2:
- @echo Making C-Kermit $(CKVER) for Bull DPX/2 with BOS/X...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DCK_ANSIC -DCKTYP_H=<sys/types.h> \
- -DCK_POLL -DNOGETUSERSHELL -DCLSOPN -DNOLEARN -O $(KFLAGS)" \
- "LNKFLAGS = -s"
-
-#Sun UNIX 3.5 with gcc 2.3.3.
-sunos3gcc:
- @echo Making C-Kermit $(CKVER) for Sun UNIX 3.5 and gcc...
- $(MAKE) xermit CC=gcc CC2=gcc KTARGET=$${KTARGET:-$(@)} \
- CFLAGS="-g -O -DBSD4 -DTCPSOCKET $(KFLAGS)"
-
-#SunOS version 4.0, BSD environment, has saved original euid feature.
-# Add "CC=/usr/ucb/cc CC2=/usr/ucb/cc" if necessary.
-# Note: Including Unicode crashes the assembler in ckcuni.c.
-sunos4:
- @echo Making C-Kermit $(CKVER) for SunOS 4.0, BSD environment...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS4 -DFNFLOAT -DNOUNICODE $(KFLAGS)" \
- "LIBS=-lm"
-
-#As above, but with SunLink X.25 support
-sunos4x25:
- @echo SunLink X.25 support
- $(MAKE) "MAKE=$(MAKE)" sunos4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DFNFLOAT -DSUNX25" \
- "LIBS=-lm"
-
-#SUN OS version 4.1 - 4.1.3, BSD environment, has saved original euid feature.
-#Uses Honey DanBer UUCP. Requires presence of /usr/spool/locks directory.
-# /var/spool/ should be a symbolic link to /usr/spool/.
-# ... or 'make xermit "CC= /usr/ucb/cc " \'
-# Note: "xermit" means use the select() version of the CONNECT module.
-sunos41:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 / BSD...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNOUNICODE $(KFLAGS)" \
- "LIBS= $(LIBS) -lresolv -lm"
-
-#As above, but compiled with gcc. Gives 24-32K size reduction
-#with gcc 2.1 or 2.2.2. CAUTION: make sure "fixincludes" has been run on
-#the include files, so gcc's are in sync with the regular Sun ones!
-#This includes the curses library for fullscreen file transfer display.
-#NDGPWNAM needed for GCC 2.5.6, not needed for 2.4.0, but it's uncertain
-#whether it will do any harm for 2.4.0 compilation -- if so, remove it.
-sunos41gcc:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 with gcc and curses...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -funsigned-char $(KFLAGS)" "LIBS= -lcurses -ltermcap -lresolv -lm"
-
-# As above, but without -funsigned-char so I can see the warnings that
-# everybody else will get when they use ANSI compilers that don't have this
-# option (gsc = gcc signed char).
-sunos41gsc:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 with gcc and curses...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- $(KFLAGS)" "LIBS= -lcurses -ltermcap -lresolv -lm"
-
-#As above but with ckucon.c rather than ckucns.c (for testing only)
-sunos41gccfork:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 with gcc and curses...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DNOLEARN -funsigned-char $(KFLAGS)" \
- "LIBS= -lcurses -ltermcap -lresolv -lm"
-
-#as above but configured for Kerberos IV
-sunos41gcc+krb4:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1, gcc, curses, krb4...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DTCPSOCKET -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CAST -DBIGBUFOK -funsigned-char \
- $(K4INC) $(KFLAGS)" \
- "LIBS= $(K4LIB) -lcurses -ltermcap -lresolv -lm -lkrb -ldes"
-
-#as above but configured for SSL/TLS
-sunos41gcc+openssl:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1, gcc, curses, ssl...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DCK_AUTHENTICATION -funsigned-char \
- -DCK_SSL -DTCPSOCKET -DBIGBUFOK $(SSLINC) $(KFLAGS)" \
- "LIBS= $(SSLLIB) -lcurses -ltermcap -lresolv -lm -lssl -lcrypto"
-
-#as above but configured for Kerberos IV and SSL/TLS
-sunos41gcc+krb4+openssl:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1, gcc, curses, krb4...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 -DCK_ENCRYPTION -DCK_DES \
- -DCK_CAST -DCK_SSL -DLIBDES -DTCPSOCKET -DBIGBUFOK -funsigned-char \
- $(K4INC) $(SSLINC) $(KFLAGS)" \
- "LIBS= $(K4LIB) $(SSLLIB) \
- -lcurses -ltermcap -lresolv -lm -lkrb -lssl -lcrypto"
-
-#as above but configured for Kerberos IV and ZLIB enabled SSL/TLS
-sunos41gcc+krb4+openssl+zlib:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1, gcc, curses, krb4...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 -DCK_ENCRYPTION -DCK_DES \
- -DCK_CAST -DCK_SSL -DLIBDES -DTCPSOCKET -DBIGBUFOK -funsigned-char \
- -DZLIB $(K4INC) $(SSLINC) \
- $(KFLAGS)" \
- "LIBS= $(K4LIB) $(SSLLIB) \
- -lcurses -ltermcap -lresolv -lm -lkrb -lssl -lcrypto -lz"
-
-#as above but configured for Kerberos IV and SRP and ZLIB enabled SSL/TLS
-sunos41gcc+krb4+srp+openssl+zlib:
- @echo "C-Kermit $(CKVER) SunOS 4.1: gcc,curses,krb4,srp,ssl,zlib..."
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 -DCK_ENCRYPTION -DCK_DES \
- -DCK_CAST -DCK_SSL -DLIBDES -DTCPSOCKET -DBIGBUFOK -funsigned-char \
- -DZLIB -DCK_SRP $(K4INC) $(SRPINC) $(SSLINC) $(KFLAGS)" \
- "LIBS= $(K4LIB) $(SRPLIB) $(SSLLIB) \
- -lcurses -ltermcap -lresolv -lm -lkrb -lkrypto \
- -lsrp -lssl -lcrypto -lz"
-
-#as above but configured for Kerberos IV and SRP and ZLIB enabled SSL/TLS
-sunos41gcc+srp+openssl+zlib:
- @echo "C-Kermit $(CKVER) SunOS 4.1: gcc,curses,srp,ssl,zlib..."
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNDGPWNAM -DCK_CURSES -DFNFLOAT \
- -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_DES \
- -DCK_CAST -DCK_SSL -DLIBDES -DTCPSOCKET -DBIGBUFOK -funsigned-char \
- -DZLIB -DCK_SRP $(SRPINC) $(SSLINC) \
- $(KFLAGS)" \
- "LIBS= $(SRPLIB) $(SSLLIB) \
- -lcurses -ltermcap -lresolv -lm -lkrypto -lsrp -lssl -lcrypto -lz "
-
-#SUNOS 4.1 as sunos41 above, but also with curses support
-sunos41c:
- @echo Curses support
- $(MAKE) "MAKE=$(MAKE)" sunos41 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DCK_CURSES -DFNFLOAT " \
- "LIBS= -lcurses -ltermcap"
-
-#As SunOS 4.1.x, gcc, configured as Internet Kermit Server.
-# . NOLOCAL removes capability to make connections
-# . TNCODE allows server-side Telnet negotiation.
-# . used to include -lpwent, why?
-# . used to include -L/usr/local/lib -lm, why?
-sunos41giks:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 with gcc for IKS...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc" "CC2= gcc" \
- "CFLAGS= -O -DSUNOS41 -DNDGPWNAM -DFNFLOAT \
- -DNOLOCAL -DTCPSOCKET -DTNCODE -DNOPUSH $(KFLAGS)" \
- "LIBS= -lm -lresolv"
-
-#SUNOS 4.1 with SunLink X.25 support
-sunos41x25:
- @echo SunLink X.25 support
- $(MAKE) "MAKE=$(MAKE)" wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNOUNICODE -DFNFLOAT -DSUNX25 \
- -DNOLEARN $(KFLAGS)" "LIBS= $(LIBS) -lresolv -lm"
-
-#SUNOS 4.1 with SunLink X.25 support and curses
-sunos41x25c:
- @echo SunLink X.25 support + curses
- $(MAKE) "MAKE=$(MAKE)" wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DNOUNICODE -DFNFLOAT -DSUNX25 \
- -DCK_CURSES -DNOLEARN $(KFLAGS)" \
- "LIBS= $(LIBS) -lcurses -ltermcap -lresolv -lm"
-
-#SUN with Solaris 2.0 = SunOS 5.0.
-#Mostly the same as System V R4. Don't use this with later Solaris versions.
-solaris20:
- @echo 'Making C-Kermit $(CKVER) for Sun with Solaris 2.0 and curses...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DSOLARIS -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DTCPSOCKET -DCK_CURSES -DFNFLOAT -DCK_POLL $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermlib -lm" "LNKFLAGS = -s"
-
-#SUN with Solaris 2.0.
-#As above, but built with the gcc compiler from the Cygnus CD-ROM.
-solaris20g:
- @echo 'Making C-Kermit $(CKVER) for Sun Solaris 2.0, gcc, and curses..'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DSOLARIS -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DTCPSOCKET -DCK_CURSES -DCK_POLL -DFNFLOAT $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermlib -lm" "LNKFLAGS = -s" \
- CC=/opt/cygnus-sol2-1.1/bin/gcc CC2=/opt/cygnus-sol2-1.1/bin/gcc
-
-#SunOS 5.1 = Solaris 2.1.
-#NOTE: A C compiler is no longer bundled with SunOS 5.1, so to compile C
-#programs, you might have to change your PATH to include the directory
-#/usr/ccs/bin AFTER the directory containing the compiler. SunPRO C is
-#installed by default in /opt/SUNWspro/bin. So a sample PATH might be:
-#
-# /usr/local/bin:/usr/bin:/opt/SUNWspro/bin:/usr/ccs/bin:\
-# /usr/ucb:/usr/sbin:/sbin:.
-#
-# or:
-#
-# /usr/openwin/bin:/export/home/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/usr/bin.
-#
-#NOTE 2: Compilation with the Apogee C compiler (apcc) might not work,
-#because it refuses to allow "-Usun". Reportedly, newer releases of apcc
-#(such as 1.2.17) work OK, use: "make -e sunos51 CC=apcc CC2=apcc".
-solaris21:
- @echo 'Making C-Kermit $(CKVER) for SunOS 5.x....'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -Usun -DSVR4 -DSOLARIS -DDIRENT -DHDBUUCP -DFNFLOAT \
- -DSELECT -DNODEBUG -DSTERMIOX $(KFLAGS)" "LIBS = -lm" "LNKFLAGS = -s"
-
-#C-Kermit for Solaris 2.0-2.4 compiled with gcc, includes curses and TCP/IP.
-#Change -O2 to -O if -O2 gives trouble.
-#Remove -Usun if it causes trouble.
-#Your PATH should start with something like:
-# /usr/local/gnu/bin:/usr/ccs/bin:
-#Produces a huge executable -- strip with /usr/ccs/bin/strip (not Gnu strip).
-#Also don't add "LNKFLAGS = -s" -- strip manually instead.
-#Also note: this can NOT be linked statically - Sun makes it impossible.
-#And for Solaris 2.4, you might have to replace:
-# /usr/local/lib/gcc-lib/i486-sun-solaris2/2.4.5/include/sys/stat.h
-#with /usr/include/sys/stat.h.
-solaris2xg:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with GNU cc...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv $(LIBS)"
-
-#ditto but no curses.
-solaris2xgnc:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with GNU cc...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lm -lresolv $(LIBS)"
-
-#and with Kerberos IV
-solaris2xg+krb4:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with GNU cc, krb4...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 -DCK_ENCRYPTION \
- -DCK_DES -DCK_CAST -DBIGBUFOK $(K4INC) $(KFLAGS)" \
- "LIBS= $(K4LIB) -ltermlib -lsocket -lnsl -lm -lresolv -lkrb -ldes \
- $(LIBS)"
-
-#and with OpenSSL,ZLIB,PAM,SHADOW
-solaris2xg+openssl+zlib+pam+shadow:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with gcc, OpenSSL...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DCK_SHADOW -DZLIB \
- -DBIGBUFOK $(SSLINC) $(KFLAGS)" \
- "LIBS= $(SSLLIB) -ltermlib \
- -lsocket -lnsl -lm -lresolv -lssl -lcrypto -lpam -lz"
-
-#Ditto but with GCC 3.1 in which you have to specify 32-bit with -m32.
-#In Solaris 9 (and maybe 8) you'll also need specifiy the Library path.
-#Reportedly this can't be done here, but only with:
-# crle -l /usr/lib:/usr/local/ssl/lib
-#prior to building. Note: 64-bit not tested with SSL.
-#For no-crypto 64-bit builds see the solaris9g64 target.
-solaris2xg32+openssl+zlib+pam+shadow:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with gcc, OpenSSL...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC="gcc -m32" CC2="gcc -m32" \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DCK_SHADOW -DZLIB \
- -DBIGBUFOK $(SSLINC) $(KFLAGS)" \
- "LIBS= $(SSLLIB) -ltermlib \
- -lsocket -lnsl -lm -lresolv -lssl -lcrypto -lpam -lz"
-
-#and with Krb5,Krb4,OpenSSL,SHADOW
-solaris2xg+krb5+krb4+openssl+shadow:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with gcc,k5,k4,ssl...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_SSL -DCK_DES -DCK_CAST -DBIGBUFOK \
- $(K5INC) $(K5INC)/krb5 $(SSLINC) $(KFLAGS)" \
- "LIBS= $(K5LIB) $(SSLLIB) -ltermlib -lsocket -lnsl -lm -lresolv \
- -lkrb4 -lssl -lcrypto -lgssapi_krb5 -lkrb5 -lcom_err -lk5crypto \
- -ldes $(LIBS)"
-
-#and with OpenSSL
-solaris2xg+openssl+pam+shadow:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with gcc, OpenSSL...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DCK_SHADOW \
- -DBIGBUFOK $(SSLINC) $(KFLAGS)" \
- "LIBS= $(SSLLIB) -ltermlib \
- -lsocket -lnsl -lm -lresolv -lssl -lcrypto -lpam"
-
-solaris2xg+openssl+zlib+srp+pam+shadow:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with gcc, OpenSSL...'
- @echo 'Please read the comments that accompany the solaris2xg target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DFNFLOAT \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET -DBIGBUFOK \
- -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_DES -DLIBDES -DCK_CAST \
- -DCK_SSL -DCK_PAM -DCK_SHADOW -DZLIB -DCK_SRP $(SSLINC) $(KFLAGS)" \
- "LIBS= $(SSLLIB) -ltermlib -lsocket -lnsl -lm -lresolv -lsrp -lssl \
- -ldes -lkrypto -lcrypto -lpam -lz"
-
-solaris22g:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=-DPOSIX_CRTSCTS $(KFLAGS)" solaris2xg \
- KTARGET=$${KTARGET:-$(@)}
-
-solaris23g:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=-DPOSIX_CRTSCTS $(KFLAGS)" solaris2xg \
- KTARGET=$${KTARGET:-$(@)}
-
-#Solaris 2.4 built with gcc
-solaris24g:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} \
- solaris2xg "KFLAGS=-DSOLARIS24 -DPOSIX_CRTSCTS $(KFLAGS)"
-
-#Solaris 2.5 built with gcc
-solaris25g:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.5 built with gcc and Kerberos IV
-solaris25g+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.5 built with gcc and Kerberos V/IV, SSL, ...
-solaris25g+krb5+krb4+openssl+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.6 with gcc
-solaris26g:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xg \
- "KFLAGS= -DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS = -lpam"
-
-#Solaris 2.6 with gcc and SSL
-solaris26g+openssl:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS= -DSOLARIS26 $(KFLAGS)"
-
-#Solaris 2.6 with gcc, no curses (e.g. because libtermlib is missing).
-solaris26gnc:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgnc \
- "KFLAGS= -DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 7 with gcc (32-bit)
-solaris7g:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 7 with gcc + Kerberos IV (32-bit)
-solaris7g+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-solaris7g+openssl+zlib+pam+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)"
-
-#Solaris 7 with gcc + OpenSSL (32-bit)
-solaris7g+openssl+zlib+srp+pam+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+srp+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)"
-
-#Solaris 8 with gcc (32-bit)
-solaris8g:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 9 with gcc + OpenSSL + Shadow (32-bit)
-solaris9g+openssl+shadow+pam+zlib:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -DZLIB -DCK_PAM -DCK_SHADOW \
- -DLIBDES $(KFLAGS)" "LIBS= -lpam -ldes425 -lz $(LIBS)"
-
-#Solaris 9 with gcc + OpenSSL + Kerberos 5 + Krb4 + Shadow (32-bit)
-solaris9g+krb5+krb4+openssl+shadow+pam+zlib:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -DZLIB -DCK_PAM -DCK_SHADOW \
- -DLIBDES $(KFLAGS)" "LIBS= -lpam -ldes425 -lz $(LIBS)"
-
-#Solaris 9 with gcc 3.1 (32-bit)
-solaris9g:
- @echo 'Making C-Kermit $(CKVER) for Solaris 9 with gcc'
- $(MAKE) "MAKE=$(MAKE)" CC="gcc -m32" CC2="gcc -m32" xermit \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSOLARIS9 -DUSE_STRERROR \
- -DSTERMIOX -DSELECT -DFNFLOAT -DCK_PAM -DCK_SHADOW -funsigned-char \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam"
-
-#Solaris 9 with gcc 3.1 (64-bit)
-#Peeking inside struct FILE at its members ist strengst verboten.
-solaris9g64:
- @echo 'Making C-Kermit $(CKVER) for Solaris 9 with gcc'
- $(MAKE) "MAKE=$(MAKE)" CC="gcc -m64" CC2="gcc -m64" xermit \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSOLARIS9 -DNOARROWKEYS \
- -DSTERMIOX -DSELECT -DFNFLOAT -DUSE_STRERROR -DCK_PAM -DCK_SHADOW \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam"
-
-# In OpenSSL builds add -ldl if you get unresolved references for
-# dlclose, dlsym, dlopen, dlerror.
-
-#Solaris 8 with gcc + OpenSSL (32-bit)
-solaris8g+openssl+zlib+pam+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DSOLARIS8 $(KFLAGS)"
-
-#Solaris 9 with gcc 3.1 + OpenSSL (32-bit)
-solaris9g+openssl+zlib+pam+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg32+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DUSE_STRERROR $(KFLAGS)"
-
-#Solaris 8 with gcc + Kerberos IV (32-bit)
-solaris8g+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 2.0-2.4, gcc, SunLink X.25 added.
-#NOTE: Can't use xermit target with X.25.
-solaris2xgx25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x + X.25 with GNU cc...'
- @echo 'Please read the comments that accompany the solaris2xg entry.'
- $(MAKE) wermit CC=gcc CC2=gcc KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DSUNX25 \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET -DFNFLOAT \
- -DNOLEARN $(KFLAGS)" \
- "LIBS= -ltermlib -lm -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl"
-
-#Solaris 2.5, gcc, SunLink X.25 added.
-solaris25gx25:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.6, gcc, SunLink X.25 added.
-solaris26gx25:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
- "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 2.0 - 2.4, SunPro compiler, includes curses and TCP/IP.
-#When using SUNWspro CC 2.0.1 under Solaris 2.3, be sure all cc patches
-#are applied, otherwise corrupt or truncated object files can result.
-#To build, set your PATH as follows:
-# /usr/local/bin:/usr/bin:/opt/SUNWspro/bin:/usr/ccs/bin:\
-# /usr/ucb:/usr/sbin:/sbin:.
-# or (depending on where the compiler has been installed):
-# /usr/openwin/bin:/export/home/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/usr/bin.
-#For additional optimization try using "-fast -xO4 -xdepend".
-solaris2x:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv"
-
-#as above but configured for Kerberos IV
-solaris2x+krb4:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x, SunPro cc, krb4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CAST $(K4INC) $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= $(K4LIB) -ltermlib -lsocket -lnsl -lm -lresolv -lkrb -ldes"
-
-solaris23:
- $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS)"
-
-solaris24:
- $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS24 -DPOSIX_CRTSCTS $(KFLAGS)"
-
-# template for Solaris 2.5 and above.
-solaris25x:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DFNFLOAT -O -Usun -i $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv $(LIBS)"
-
-#Solaris 2.5, SunPro compiler, curses, TCP/IP
-solaris25:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.5, SunPro compiler, curses, TCP/IP, Kerberos IV
-solaris25+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris25x+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.6, SunPro compiler, curses, TCP/IP
-solaris26:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 7 (aka 2.7)
-solaris7:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 8
-solaris8:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 9
-solaris9:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DCK_PAM -DCK_SHADOW -DUSE_STRERROR $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 9 with malloc debugging
-solaris9md:
- $(MAKE) mermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DFNFLOAT -O -Usun -i \
- -DSOLARIS9 -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG \
- -DCK_PAM -DCK_SHADOW -DUSE_STRERROR $(KFLAGS)" \
- "LIBS= -lpam -ltermlib -lsocket -lnsl -lm -lresolv"
-
-#Solaris 2.0-2.3, SunPro compiler, with SunLink X.25 support.
-#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
-#exists and can be dynamically linked.
-#NOTE: Do not change target to xermit -- it doesn't support X.25.
-solaris2x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DDIRENT \
- -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DNOLEARN \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
-
-#Solaris 2.4, SunPro compiler, with SunLink X.25 support.
-#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
-#exists and can be dynamically linked.
-solaris24x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.4+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DSOLARIS24 -DDIRENT -DNOLEARN \
- -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DPOSIX_CRTSCTS \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
-
-#Solaris 2.5, SunPro compiler, with SunLink X.25 support.
-solaris25x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.5+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS25 -DDIRENT -DSUNX25 \
- -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES \
- -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
- -I/opt/SUNWconn/include $(KFLAGS)" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
-
-#Solaris 2.6, SunPro compiler, with SunLink X.25 support.
-solaris26x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.6+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS26 -DDIRENT -DSUNX25 \
- -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES -DCK_PAM -DCK_SHADOW \
- -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
- -I/opt/SUNWconn/include $(KFLAGS)" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv -lpam"
-
-#The following sunosxxx entries are for debugging and testing only.
-
-sunos41x:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS41 -DDIRENT -DNOTLOG -DNOMSEND \
- -DNOUUCP -DNOSIGWINCH -DNOREDIRECT -DNOPUSH -DNOCCTRAP \
- -DNOICP -DNOLOCAL $(KFLAGS)"
-
-#SunOS 4.1.x, debugging with Pure Software, Inc., Purify 2 (commercial runtime
-#error-detection software for catching wild array references, etc).
-#Before running the resulting wermit, you'll also need to define and export
-#the following environment variables (as in this example):
-#PURIFYHOME=/usr/local/purify ; export PURIFYHOME
-#PURIFYCACHEDIR=/tmp ; export PURIFYCACHEDIR
-sunos41cp:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 / BSD / Curses / Purify...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CC2= purify -cache_dir=/usr/tmp cc" \
- "CFLAGS= -g -DSUNOS41 -DHDBUUCP -DDIRENT -DTCPSOCKET \
- -DSAVEDUID -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses -ltermcap"
-
-#SunOS 4.1 with malloc debugger
-sunos41md:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 malloc debug...
- $(MAKE) mermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DSUNOS41 -DHDBUUCP -DDIRENT -DTCPSOCKET \
- -DSAVEDUID $(KFLAGS) -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG"
-
-sunos41gmd:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 with gcc and curses...
- $(MAKE) mermit KTARGET=$${KTARGET:-$(@)} "CC= gcc " "CC2= gcc" \
- "CFLAGS= -g -DSUNOS41 -DHDBUUCP -DDIRENT -DTCPSOCKET \
- -DNDGPWNAM -DSAVEDUID -DCK_CURSES -DRLOGCODE \
- $(KFLAGS) -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG" \
- "LIBS= -lcurses -ltermcap"
-
-#SunOS version 4.1, gcc, profiling with gprof, no debugging.
-#To get profile, "make sunos41p" (on Sun), then "./wermit". After running
-#wermit, "gprof ./wermit | lpr" (or whatever) to get execution profile.
-sunos41p:
- @echo Making C-Kermit $(CKVER) for SunOS 4.x with profiling...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC= gcc " "CC2= gcc" \
- "CFLAGS= -DSUNOS41 -DNODEBUG -DSAVEDUID -DDIRENT -DTCPSOCKET \
- -DNDGPWNAM $(KFLAGS) -pg" "LNKFLAGS = -pg"
-
-#SunOS version 4.1 or later, BSD environment, minimum features.
-sunos41min:
- @echo Minimum interactive
- $(MAKE) "MAKE=$(MAKE)" sunos41 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOSPL -DNOXMIT -DNOMSEND -DNOFRILLS -DNORETRY \
- -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG -DNOSCRIPT -DNOCSETS \
- -DNOSHOW -DNOSETKEY -DNOUUCP -DNORECALL -DNOREDIRECT \
- -DNOPUSH -DNOMDMHUP -DNOJC -DNOFDZERO -DNOESCSEQ \
- -DNONET -DCK_SMALL -DNOCKSPEED -DNOCKTIMERS -DNOLOGIN \
- -DNOCKXYZ -DNOKERBEROS -DNOMKDIR -DNOPATTERNS -DNOPERMS -DNOPIPESEND \
- -DNORECURSIVE -DNORENAME -DNORESEND -DNOSETKEY \
- -DNOTRIGGER -DNOTUNING $(KFLAGS)" "LNKFLAGS = -s"
-
-#SunOS version 4.1, BSD environment, min size, command-line only...
-sunos41m:
- @echo Minimum size
- $(MAKE) "MAKE=$(MAKE)" sunos41min KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOICP $(KFLAGS)"
-
-#SunOS version 4.1, BSD environment, min size, cmd-line only, remote only...
-#
-sunos41mr:
- @echo Minimum size
- $(MAKE) "MAKE=$(MAKE)" sunos41min KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOICP -DNOLOCAL $(KFLAGS)"
-
-#SunOS version 4.1, BSD environment, min size, interactive...
-sunos41mi:
- @echo Minimum size
- $(MAKE) "MAKE=$(MAKE)" sunos41min KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOCMDL $(KFLAGS)"
-
-#SunOS version 4.1, BSD environment, min size, interactive, remote only...
-sunos41mir:
- @echo Minimum size
- $(MAKE) "MAKE=$(MAKE)" sunos41min KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOCMDL -DNOLOCAL $(KFLAGS)"
-
-#SunOS 4.1, System V R3 environment (-i option omitted).
-sunos41s5:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 System V R3...
- @echo For testing purposes only - NOT for production use.
- @echo For a useable version, make sunos41 instead.
- $(MAKE) wermit "CC= /usr/5bin/cc " "CC2=/usr/5bin/cc " \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSUN4S5 -DDIRENT -DHDBUUCP -DNOLEARN -DCK_POLL $(KFLAGS) -O"
-
-#As above, but with curses support
-sunos41s5c:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 System V R3...
- @echo Curses included.
- @echo For testing purposes only - NOT for production use.
- @echo For a useable version, make sunos41 instead.
- $(MAKE) wermit "CC= /usr/5bin/cc " "CC2=/usr/5bin/cc " \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSUN4S5 -DDIRENT -DHDBUUCP -DNOLEARN \
- -DCK_POLL -DCK_CURSES -DCK_NEWTERM $(KFLAGS) -O" "LIBS= -lcurses"
-
-#As above, but with curses support AND net support
-sunos41s5tcpc:
- @echo Making C-Kermit $(CKVER) for SunOS 4.1 System V R3...
- @echo TCP/IP and curses included. No debug log.
- @echo For testing purposes only - NOT for production use.
- @echo For a useable version, make sunos41 instead.
- $(MAKE) xermit "CC= /usr/5bin/cc " "CC2=/usr/5bin/cc " \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSUN4S5 -DDIRENT -DHDBUUCP -DCK_POLL \
- -DNODEBUG -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET $(KFLAGS) -O" \
- "LIBS= -lcurses -lresolv"
-
-# (End of SunOS test entries...)
-
-#Apollo with Domain SR10.0 or later, BSD environment
-#Reportedly, it might also help to add '-A,systype=bsd4.3' to CFLAGS.
-#Reportedly, there is also a problem with getc & putc macros that can
-#be handled by using '#ifdef apollo' somewhere to redefine them???
-#On the other hand, other reports indicate that it works fine as-is.
-#NOTE: This entry was previously like this:
-# $(MAKE) wermit "CFLAGS= -DNOFILEH -DBSD4 $(KFLAGS) -Uaegis \
-# -DTCPSOCKET -U__STDC__"
-#Reports (Dec 91) indicate SR10 has an ANSI-compliant C compiler,
-#in addition to an older one that claimed to be ANSI-compliant but wasn't.
-#The following make entry (plus checks that are made in ckcdeb.h) detect
-#which compiler is used and define the CK_ANSIC or NOANSI flags accordingly.
-sr10-bsd:
- @echo Making C-Kermit $(CKVER) for Apollo SR10.0 / BSD ...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DAPOLLOSR10 -DBSD43 -DTCPSOCKET -DCK_CURSES -DNOLEARN \
- -Uaegis $(KFLAGS)" "LIBS= -lcurses -ltermcap"
-
-#Apollo with Domain SR10.0 or later, System V R3 environment.
-#Don't use the optimizer (-O), it causes problems at runtime.
-sr10-s5r3:
- @echo Making C-Kermit $(CKVER) for Apollo SR10.0 / Sys V R3 ...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNOFILEH -DSVR3 -DAPOLLOSR10 -DNOLEARN $(KFLAGS) \
- -Uaegis -U__STDC__"
-
-#Apollo Domain/IX (untested, try this if sr10-bsd doesn't work)
-# -DTCPSOCKET can probably be added here.
-apollobsd:
- @echo Making C-Kermit $(CKVER) for Apollo Domain/IX...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CC= /bin/cc " "CC2= /bin/cc " \
- "CFLAGS= -DNOFILEH -DBSD4 -DAPOLLOBSD -DNOLEARN $(KFLAGS) -Uaegis"
-
-#Version 7 Unix (see comments near top of makefile)
-v7:
- @echo Making C-Kermit $(CKVER) for UNIX Version 7.
- @echo Read the makefile if you have trouble with this...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS=-DV7 -DPROCNAME=\\\"$(PROC)\\\" \
- -DBOOTNAME=\\\"$(BOOTFILE)\\\" -DNPROCNAME=\\\"$(NPROC)\\\" \
- -DNPTYPE=$(NPTYPE) $(DIRECT) -DO_RDWR=2 -DO_NDELAY=0 -DO_SCCS_ID \
- -DNOLEARN $(KFLAGS)"
-
-#AT&T UNIX System V R3, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer UUCP.
-#Add the -i link option if necessary.
-#If you get errors like "ws_row undefined" in ckutio.c, add -DNONAWS.
-sys5r3:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS="
-
-#As above, plus curses.
-sys5r3c:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R3 + curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DCK_CURSES -DNONAWS -DNOLEARN \
- $(KFLAGS) -O" "LNKFLAGS=" "LIBS = -ltermlib"
-
-#System V R3.2 for PCs built on Interactive UNIX SV/386 R4.x
-#but with all calls to dup2() disabled because generic SVR3 does not have dup2.
-# (The -linet library might not need to be in this one.)
-sys5r32is:
- @echo 'Making C-Kermit $(CKVER) for System V/386 R32
- $(MAKE) wermit CC="$(CC)" CC2="$(CC2)" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -O -DNOCSETS -DNOREALPATH \
- -DUID_T=ushort -DGID_T=ushort -DI386IX -DSVR3JC -DCK_CURSES -DNONAWS \
- -DPOSIX_JC -DCK_REDIR -DCK_POLL -DDCLGETCWD -DNOFDZERO -DNOREDIRECT \
- -DNOZEXEC -DNOLEARN $(KFLAGS)" "LIBS=-lcurses -lc_s -linet"
-
-#System V R3.2 for PCs built on Interactive UNIX SV/386 R4.x
-#but with all calls to dup2() disabled because generic SVR3 does not have dup2.
-#With TCP/IP added.
-sys5r32isnet:
- @echo 'Making C-Kermit $(CKVER) for System V/386 R32 + TCP/IP
- $(MAKE) wermit CC="$(CC)" CC2="$(CC2)" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -O -DNOCSETS -DNOREALPATH \
- -DUID_T=ushort -DGID_T=ushort -DI386IX -DSVR3JC -DCK_CURSES -DNONAWS \
- -DPOSIX_JC -DCK_REDIR -DCK_POLL -DDCLGETCWD -DNOFDZERO -DNOREDIRECT \
- -DNOLEARN -DNOZEXEC -DTCPSOCKET $(KFLAGS)" "LIBS=-lcurses -lc_s -linet"
-
-iclsys5r3:
- make sys5r3 KTARGET=$${KTARGET:-$(@)} KFLAGS=-DICLSVR3
-
-#AT&T UNIX System V R3. As above, but no ANSI prototyping.
-sys5r3na:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -DNOANSI -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS="
-
-#AT&T UNIX System V R3, for 3B computers with Wollongong TCP/IP.
-sys5r3net3b:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX SVR3/3B/Wollongong...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DWOLLONGONG -DNOLEARN $(KFLAGS) \
- -O" "LIBS= -lnet -lnsl_s" "LNKFLAGS ="
-
-#AT&T UNIX System V R3, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer uucp, has <termiox.h>.
-#Has <termiox.h> for RTS/CTS flow control.
-sys5r3tx:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DTERMIOX -DNOLEARN \
- $(KFLAGS) -i -O" "LNKFLAGS ="
-
-#AT&T UNIX System V R3, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer uucp, has <termiox.h>.
-#Has <sys/termiox.h> for RTS/CTS flow control.
-sys5r3sx:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DSTERMIOX -DNOLEARN \
- $(KFLAGS) -i -O" "LNKFLAGS ="
-
-#AT&T UNIX System V R4.
-#Has <termiox.h>.
-sys5r4:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DTERMIOX -DNOLEARN $(KFLAGS)" \
- "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4 with Wollongong TCP/IP.
-#Has <termiox.h>.
-sys5r4net:
- @echo 'Making C-Kermit $(CKVER) for System V R4 + Wollongong TCP/IP...'
- @echo ' If sockets-library routines are missing at link time, then'
- @echo ' try the sys5r4net2 entry.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DNOLEARN \
- -DTERMIOX -DWOLLONGONG $(KFLAGS)" "LNKFLAGS = -s"
-
-#As above, but needs libs included.
-sys5r4net2:
- @echo ' PLEASE READ ckuins.txt IF YOU GET MISSING HEADER FILES.'
- @echo ' (Search for WOLLONGONG...)'
- $(MAKE) sys5r4net KTARGET=$${KTARGET:-$(@)} "LIBS= -lsocket -lnsl"
-
-#As above plus curses.
-sys5r4net2c:
- echo 'Making C-Kermit $(CKVER) for System V R4 + Wollongong TCP/IP...'
- @echo ' PLEASE READ ckuins.txt IF YOU GET MISSING HEADER FILES.'
- @echo ' (Search for WOLLONGONG...)'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DNOLEARN \
- -DTERMIOX -DWOLLONGONG -DCK_CURSES $(KFLAGS)" "LNKFLAGS = -s" \
- "LIBS= -lsocket -lnsl -lcurses"
-
-#DELL UNIX System V R4.
-#Has <sys/termiox.h>, regular Berkeley sockets library, i.e. in.h and inet.h
-#are not misplaced in sys (rather than netinet and arpa, respectively).
-#Uses ANSI C constructs, advisory file locking on devices, etc.
-#Warning: -DSTERMIOX enables hardware flow control (RTS/CTS), but reportedly
-#this does not work with the normal drivers. However, it might still work
-#on non-Dell systems, or even Dell systems with different drivers installed.
-dellsys5r4:
- @echo 'Making C-Kermit $(CKVER) for DELL UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDELL_SVR4 -DDIRENT -DHDBUUCP \
- -DTCPSOCKET -DSTERMIOX -DCK_POLL $(KFLAGS)" \
- "LIBS= -lsocket -lnsl" "LNKFLAGS = -s"
-
-#As above, curses support added...
-dellsys5r4c:
- @echo 'Making C-Kermit $(CKVER) for DELL UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDELL_SVR4 -DDIRENT -DHDBUUCP \
- -DTCPSOCKET -DSTERMIOX -DCK_CURSES -DCK_POLL \
- $(KFLAGS)" "LIBS= -lsocket -lnsl -lcurses -ltermcap" "LNKFLAGS = -s"
-
-#Minimum interactive: As above, but with every conceivable option removed.
-dellsys5r4mi:
- @echo 'Making C-Kermit $(CKVER) for DELL UNIX System V R4...'
- @echo 'Minimum-size interactive'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDELL_SVR4 -DDIRENT \
- -UTCPSOCKET -DNOCMDL -DNOSPL -DNOXMIT -DCK_POLL \
- -DNOMSEND -DNOFRILLS -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
- -DNOSCRIPT -DNOCSETS -DNOSHOW -DNOSETKEY -DNOSERVER -DNOUUCP \
- -DNOPUSH -DNOMDMHUP -DNOJC -DNOFDZERO -DNOESCSEQ \
- $(KFLAGS)" "LNKFLAGS = -s"
-
-#Command-line only version.
-dellsys5r4m:
- @echo 'Making C-Kermit $(CKVER) for DELL UNIX System V R4...'
- @echo 'Command-line only'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDELL_SVR4 -DDIRENT \
- -UTCPSOCKET -DNOICP -DNOFRILLS -DNODIAL -DNODEBUG -DNOTLOG -DNOCSETS \
- -DNOSETKEY -DNOESCSEQ -DNOJC -DNOFDZERO -DCK_POLL \
- $(KFLAGS)" "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4.
-#Has <sys/termiox.h>.
-sys5r4sx:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DSTERMIOX -DNOLEARN \
- $(KFLAGS)" "LNKFLAGS = -s" "LIBS=$(LIBS)"
-
-#AT&T UNIX System V R4.
-#Has <sys/termiox.h>, regular Berkeley sockets library, i.e. in.h and inet.h
-#are not misplaced in sys (rather than netinet and arpa, respectively).
-#Uses ANSI C constructs, <sys/termiox.h>, etc etc.
-sys5r4sxtcp:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl $(LIBS)" "LNKFLAGS= -s"
-
-#AT&T UNIX System V R4.
-#As above + curses.
-sys5r4sxtcpc:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DCK_CURSES -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap $(LIBS)" "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4. CONSENSYS SVR4.2-1.
-#Has <sys/termiox.h>, regular Berkeley sockets library, i.e. in.h and inet.h
-#are not misplaced in sys (rather than netinet and arpa, respectively).
-#Uses ANSI C constructs, <sys/termiox.h>, etc.
-# Fullscreen -DCK_CURSES added (with curses & termcap libs)
-# Submission by Robert Weiner/Programming Plus, rweiner@watsun.cc.columbia.edu
-sys5r4sxtcpf:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -L/usr/ccs/lib -lcurses -ltermcap" \
- "LIBS=$(LIBS)" "LNKFLAGS = -s"
-
-#Smallest possible version for System V R4
-s5r4m:
- @echo Minimum size
- $(MAKE) "MAKE=$(MAKE)" sys5r4sx KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
- -DNOSCRIPT -DNOCSETS -DNOICP -DNOMSEND -UTCPSOCKET" "LNKFLAGS = -s"
-
-#Smallest possible interactive version of above
-s5r4mi:
- @echo Minimum interactive
- $(MAKE) "MAKE=$(MAKE)" sys5r4sx \
- "KFLAGS=-DNOSPL -DNOXMIT -DNOMSEND -DNOFRILLS -DNOSHOW \
- -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG -DNOSCRIPT -DNOCSETS -DNOSETKEY \
- -UTCPSOCKET $(KFLAGS)" "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4, has <sys/termiox.h>
-#ANSI C function prototyping disabled.
-sys5r4sxna:
- @echo No ANSI C prototyping...
- $(MAKE) "MAKE=$(MAKE)" sys5r4sx KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DNOANSI"
-
-#Stratus FTX.
-ftx:
- @echo 'Making C-Kermit $(CKVER) for Stratus FTX 3.x...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DFTX -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DNOGETUSERSHELL -DNOLEARN +DA1.1 $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=$(LIBS)"
-
-#Stratus FTX + TCP/IP.
-ftxtcp:
- @echo 'Making C-Kermit $(CKVER) for Stratus FTX 3.x...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DFTX -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DSTERMIOX -DTCPSOCKET -DNO_DNS_SRV +DA1.1 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl $(LIBS)" "LNKFLAGS= -s"
-
-#NCR MP-RAS 2.03 or 3.02
-mpras:
- @echo 'Making C-Kermit $(CKVER) for NCR MP-RAS...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DNCRMPRAS -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DNOGETUSERSHELL -DUSE_FILE__CNT -DNOLEARN -DNO_DNS_SRV $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=$(LIBS)"
-
-#NCR MP-RAS 2.03 or 3.02 with TCP/IP and curses
-mprastcpc:
- @echo 'Making C-Kermit $(CKVER) for NCR MP-RAS + TCP/IP + curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CFLAGS=-DTCPSOCKET \
- -DCK_CURSES -DSVR4 -DNCRMPRAS -DDIRENT -DHDBUUCP -DSTERMIOX -DNOLEARN \
- -DNOGETUSERSHELL -DNO_DNS_SRV DUSE_FILE__CNT -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS= -lsocket -lnsl -lcurses -ltermcap $(LIBS)"
-
-#SINIX-L V5.41 - includes curses, tcp/ip - Use this one for i386.
-#This version of SINIX doesn't like fdopen() or popen().
-sinix541:
- @echo 'Making C-Kermit $(CKVER) for Siemens/Nixdorf SINIX V5.41/i386'
- $(MAKE) ckcpro.$(EXT) "CFLAGS = -DSINIX -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC -DNO_DNS_SRV \
- -DSNI541 -DNOGETUSERSHELL -DNONETCMD -DNOPOPEN -kansi -W0 $(KFLAGS)"
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSINIX -DSVR4 -DDIRENT -DHDBUUCP -DNO_DNS_SRV -DNOPOPEN \
- -DFNFLOAT -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC \
- -DSNI541 -DNOGETUSERSHELL -DNONETCMD -kansi -W0 -O $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lm" "LNKFLAGS = -s"
-
-sinix541i:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" sinix541
-
-#SINIX V5.42 - includes curses, tcp/ip, everything - Use this one for MIPS.
-# As of C-Kermit 7.1, optimization removed -- takes (literally) forever.
-sinix542:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSINIX -DSVR4 -DDIRENT -DHDBUUCP -DNO_DNS_SRV \
- -DFNFLOAT -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC \
- -DSNI542 -DNOGETUSERSHELL -kansi -W0 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lm" "LNKFLAGS = -s"
-
-#SINIX V5.42 gcc - includes curses, tcp/ip, everything.
-#This one was used to build the Pyramid-architecture RM600 version
-#on SINIX-P 5.42 A10 with gcc but should work for SINIX 5.42 on any other
-#architecture with gcc.
-sinix542g:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC=gcc" "CC2=gcc" \
- "CFLAGS = -DSINIX -DSVR4 -DDIRENT -DHDBUUCP -DNO_DNS_SRV \
- -DFNFLOAT -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC \
- -DSNI542 -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lm" \
- "LNKFLAGS = -s"
-
-#SINIX V5.42 - includes curses, tcp/ip, everything - Use this one for Intel.
-# (Note: SNI discontinued Intel support after 5.42.)
-sinix542i:
- @echo 'Making C-Kermit $(CKVER) for Siemens/Nixdorf SINIX-Z V5.42...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSINIX -DSVR4 -DDIRENT -DHDBUUCP -DFNFLOAT -DSTERMIOX \
- -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC -DNO_DNS_SRV -kansi \
- -DSNI542 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lm" \
- "LNKFLAGS = -s"
-
-#Siemens Nixdorf Reliant UNIX V5.43 - includes curses, tcp/ip, everything:
-# . gettimeofday() suddenly has only one arg instead of two (GTODONEARG).
-# . The syntax of the Olimit specifier changed.
-# . The name was changed from SINIX to Reliant UNIX in version 5.43C.
-sni543:
- @echo 'Making C-Kermit $(CKVER) for Siemens/Nixdorf Reliant UNIX V5.43'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSINIX -DSNI543 -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC -DGTODONEARG \
- -DNO_DNS_SRV -kansi -W0 -O -F Olimit,3100 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap" "LNKFLAGS = -s"
-
-#Siemens Nixdorf Reliant UNIX V5.44 - Like 5.43 but with different banner.
-sni544:
- @echo 'Making C-Kermit $(CKVER) for Siemens/Nixdorf Reliant UNIX V5.44'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSINIX -DSNI544 -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DSELECT -DCK_ANSIC -DGTODONEARG \
- -DNO_DNS_SRV -kansi -W0 -O -K Olimit,3100 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap" "LNKFLAGS = -s"
-
-#Commodore Amiga with AT&T UNIX System V R4 and TCP/IP support.
-#Has <sys/termiox.h>.
-svr4amiganet:
- @echo 'Making C-Kermit $(CKVER) for Amiga SVR4 + TCP/IP...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC=gcc" "CC2=gcc" \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DTCPSOCKET -DCK_CURSES $(KFLAGS)" "LNKFLAGS = -s" \
- "LIBS = -lsocket -lnsl -ltermlib"
-
-#SCO (Novell (Univel)) UnixWare 1.x or 2.0, no TCP/IP.
-#This assumes the Novell SDK 1.0, which has <sys/termiox.h>.
-#UnixWare users with the "Prime Time Freeware" CD-ROM SDK will probably have
-#to use the sys5r4 entry (no termiox.h file, so no hardware flow control).
-#Change -DSELECT to -DCK_POLL if -DSELECT causes problems.
-# NOTE: Unixware 1.x builds have not been tried in C-Kermit 7.0.
-unixware:
- $(MAKE) "MAKE=$(MAKE)" sys5r4sx KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DOLD_UNIXWARE -DCK_NEWTERM -DSELECT -DNOGETUSERSHELL \
- -DNOSYSLOG $(KFLAGS)" "LIBS=-lcrypt"
-
-#UnixWare 1.x or 2.0 with TCP/IP and curses.
-#fork()-based CONNECT - no high serial speeds.
-unixwarenetc:
- $(MAKE) "MAKE=$(MAKE)" sys5r4sxtcpc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DOLD_UNIXWARE -DCK_NEWTERM -DSELECT -DNOGETUSERSHELL \
- -DNOSYSLOG $(KFLAGS)" "LIBS=-lcrypt -lresolv"
-
-uw10:
- $(MAKE) unixwarenetc KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS)"
-
-#This is for Unixware 2.0.x only - use unixware21 for UW 2.1.x.
-#Has special library search and enables special kludge around library
-#foulup regarding vfork() (which Kermit doesn't use). Forces POSIX-style
-#hangup.
-unixware20:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 2.0.x...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DOLD_UNIXWARE -DUNIXWARE2 -DSELECT -DSVR4 -DDIRENT \
- -DHDBUUCP -DBIGBUFOK -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES \
- -DTCPSOCKET -DUW200 -DFNFLOAT -DCK_NEWTERM -DNOSYSLOG $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lcrypt -lgen -lm -lresolv" \
- "LNKFLAGS = -s"
-
-uw20:
- $(MAKE) unixware20 KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS)"
-
-#Adds big buffers ("large memory model") - otherwise the same as UnixWare 1.x.
-unixware21:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 2.1.x...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DNOSYSLOG -DSTERMIOX -DCK_CURSES -DTCPSOCKET \
- -DCK_NEWTERM -DFNFLOAT -DUNIXWARE2 $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv \
- $(LIBS)" "LNKFLAGS = -s"
-
-#Unixware 2.1.0
-uw21:
- $(MAKE) unixware21 KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS)"
-
-#Unixware 2.1.3
-uw213:
- $(MAKE) unixware21 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DUSE_FILE__CNT $(KFLAGS)"
-
-#Unixware 2.1 with IKSD support
-uw21iksd:
- $(MAKE) unixware21 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_SHADOW $(KFLAGS)" "LIBS= -lgen"
-
-#UnixWare 7 with tc[gs]etspeed() high serial speeds & select()-based CONNECT
-#NOTE: This is the one we use.
-unixware7t:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 7 with POSIX i/o...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DFNFLOAT -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DPOSIX \
- -DUW7 -DUSETCSETSPEED -DCK_NEWTERM -DNOLSTAT -DDCLTIMEVAL \
- -DNEEDMDMDEFS $(KFLAGS)" \
- "LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv $(LIBS)" \
- "LNKFLAGS = -s"
-
-#UnixWare 7 - select()-based CONNECT - no POSIX i/o - no high serial speeds.
-#In other words, just like the UnixWare 1 and 2 builds.
-unixware7x:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 7...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DUW7 -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DNOLSTAT \
- -DFNFLOAT -DCK_NEWTERM $(KFLAGS)" \
- "LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv $(LIBS)" \
- "LNKFLAGS = -s"
-
-#UnixWare 7 with POSIX cfset[oi]speed() to allow high serial speeds.
-#(but the high speeds don't work)
-unixware7p:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 7 with POSIX i/o...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DUW7 -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DPOSIX \
- -DFNFLOAT -DCK_NEWTERM -DNOLSTAT $(KFLAGS)" \
- "LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv $(LIBS)" \
- "LNKFLAGS = -s"
-
-# UnixWare 7 built with gcc - This does not work at all...
-# Reportedly gcc 2.8.1 is broken on Unixware 7. Try egcs?
-unixware7g:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 7 with gcc...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -s -shlib"
- "CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DUW7 -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DNOLSTAT \
- -DFNFLOAT -DCK_NEWTERM $(KFLAGS)" \
- "LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv $(LIBS)" \
- "LNKFLAGS = -s"
-
-unixware7:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" unixware7t \
- KTARGET=$${KTARGET:-$(@)}
-
-uw7:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" unixware7t \
- KTARGET=$${KTARGET:-$(@)}
-
-#SCO OpenUNIX 8.0
-ou8:
- @echo 'Making C-Kermit $(CKVER) for Open UNIX 8...'
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=-DOU8 $(KFLAGS)" unixware7t \
- KTARGET=$${KTARGET:-$(@)}
-
-#UnixWare 7 with OpenSSL
-uw7ssl:
- @echo 'Making C-Kermit $(CKVER) for UnixWare 7 and OpenSSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DCK_AUTHENTICATION -DCK_SSL -DCK_SHADOW \
- -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
- -DFNFLOAT -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DPOSIX \
- -DUW7 -DUSETCSETSPEED -DCK_NEWTERM -DNOLSTAT -DDCLTIMEVAL \
- $(SSLINC) $(KFLAGS)" \
- "LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv \
- -lgen -lcudk70 $(SSLLIB) -lssl -lcrypto $(LIBS)" \
- "LNKFLAGS = -s"
-
-#As above but includes Shadow password support needed for IKSD.
-uw7iksd:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=-DCK_SHADOW $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)} "LIBS= -lgen" unixware7t
-
-#As above but links with static API for realpath() so a binary built
-#with this target on UW7.1 will also work on 7.0. Requires SCO UDK
-#rather than the stock compiler.
-uw7iksdudk:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=-DCK_SHADOW $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)} "LIBS= -lgen -lcudk70" unixware7t
-
-#ESIX SVR4.0.3 or 4.04 with TCP/IP support.
-#Has <sys/termiox.h>, ANSI C function prototyping disabled.
-#Add -m486 to CFLAGS if desired.
-esixr4:
- @echo 'Making C-Kermit $(CKVER) for ESIX SVR4 + TCP/IP...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DNOANSI \
- -DSTERMIOX -DTCPSOCKET $(KFLAGS)" "LNKFLAGS = -s" \
- "LIBS = -lsocket -lnsl"
-
-#AT&T UNIX System V R4.
-#Has <sys/termiox.h>, Wollongong WIN/TCP TCP/IP.
-sys5r4sxnet:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP \
- -DSTERMIOX -DWOLLONGONG $(KFLAGS)" "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4, no <termio.x> or <sys/termio.x>.
-sys5r4nx:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DNOLEARN $(KFLAGS)" \
- "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4, no <termio.x> or <sys/termio.x>, curses, TCP/IP.
-sys5r4nxnetc:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP \
- -DCK_CURSES -DTCPSOCKET $(KFLAGS)" \
- "LIBS = -lcurses -lsocket -lnsl -ltcpip" \
- "LNKFLAGS = -s"
-
-#AT&T UNIX System V R4, no <termio.x> or <sys/termio.x>, Wollongong TCP/IP.
-sys5r4nxtwg:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System V R4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DDIRENT -DHDBUUCP -DWOLLONGONG $(KFLAGS)"
- "LNKFLAGS = -s"
-
-#ICL UNIX System V R4.(DRS N/X) version :-
-#UNIX System V Release 4.0 ICL DRS 6000 (SPARC)
-#DRS/NX 6000 SVR4 Version 5 Level 1 Increment 4
-#Has <sys/termiox.h>, regular Berkeley sockets library, i.e. in.h and inet.h
-#are not misplaced in sys (rather than netinet and arpa, respectively).
-#Uses ANSI C constructs, advisory file locking on devices, etc.
-#Remove -lnsl if it causes trouble.
-iclsys5r4:
- @echo 'Making C-Kermit $(CKVER) for ICL UNIX System V R4 (DRS N/X)'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DICL_SVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lresolv " "LNKFLAGS = -s"
-
-#As above but for DRS/NX 4.2MP 7MPlus.
-iclsys5r4m+:
- @echo 'Making C-Kermit $(CKVER) for ICL UNIX System V R4 DRS/NX 4.2MP+'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DICL_SVR4 -DDIRENT -DHDBUUCP -DNOIKSD \
- -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lm -lc -g -lgen " "LNKFLAGS = -s"
-
-#As above but for DRS/NX 4.2MP 7MPlus with IKSD support.
-iclsys5r4m+iksd:
- @echo 'Making C-Kermit $(CKVER) for ICL UNIX System V R4 DRS/NX 4.2MP+'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DICL_SVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lm -lc -g -lgen -lresolv " "LNKFLAGS = -s"
-
-iclsys5r4_486:
- $(MAKE) "MAKE=$(MAKE)" iclsys5r4 KTARGET=$${KTARGET:-$(@)}
-
-#Data General DG/UX 4.30 (System V R3) for DG AViiON, with TCP/IP support.
-dgux430:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 4.30...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX430 -DSVR3 -DDIRENT -DTCPSOCKET \
- -DNOINADDRX -DNOGETUSERSHELL $(KFLAGS)"
-
-#Data General DG/UX 4.30 for DG AViiON, with TCP/IP support with BSDisms.
-dgux430bsd:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 4.30...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX430 -D_BSD_SOURCE -DBSD4 \
- -DNOINADDRX -DTCPSOCKET -DNOGETUSERSHELL $(KFLAGS)"
-
-#Data General DG/UX 5.4 (System V R4) for DG AViiON, with TCP/IP support.
-#Add -lsocket -lnsl if inet_addr comes up missing...
-#Hmmm - I really think CK_POLL can be removed from this one in which case
-#there is no difference between dgux540 and dgux540i.
-dgux540:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 5.40...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDIRENT -DHDBUUCP -DNOINADDRX \
- -DSTERMIOX -DTCPSOCKET -DCK_POLL -DNOGETUSERSHELL $(KFLAGS)"
-
-#Data General DG/UX 5.40 (System V R4) for Intel AViiON, with TCP/IP support.
-dgux540i:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 5.40...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDIRENT -DHDBUUCP -DNOINADDRX \
- -DSTERMIOX -DTCPSOCKET -DNOGETUSERSHELL $(KFLAGS)" \
- "LIBS = -lsocket -lnsl"
-
-dgux54:
- make dgux540 KTARGET=$${KTARGET:-$(@)}
-
-#Data General DG/UX 5.4 (= System V R4) for DG AViiON, with TCP/IP support.
-# And curses.
-dgux540c:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 5.4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDIRENT -DHDBUUCP -DNOINADDRX \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- $(KFLAGS)" "LIBS= -lcurses8 -ltermcap" "LNKFLAGS = -s"
-
-#As above but for Intel - only difference is name library names.
-dgux540ic:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 5.40...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDIRENT -DHDBUUCP -DNOINADDRX \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- $(KFLAGS)" "LIBS = -lsocket -lnsl -lcurses -ltermcap"
-
-dgux54c:
- make dgux540c KTARGET=$${KTARGET:-$(@)}
-
-#DG/UX 5.4R3.10
-dgux54310:
- @echo 'Making C-Kermit $(CKVER) for DG AViiON DG/UX 5.4R3...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DDGUX540 -DDGUX54310 -DDIRENT -DHDBUUCP -DSELECT \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- -DNOINADDRX $(KFLAGS)" "LIBS= -lcurses8 -ltermcap" "LNKFLAGS = -s"
-
-#DG/UX 5.4R4.10 - Includes everything.
-dgux54410:
- @echo 'Making C-Kermit $(CKVER) for DG/UX 5.4R4.10...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDGUX54410 -DDIRENT -DHDBUUCP -DSELECT \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- -DNOINADDRX $(KFLAGS)" "LIBS = -lsocket -lnsl -lcurses -ltermcap"
-
-#DG/UX 5.4R4.11 - Includes everything.
-dgux54411:
- @echo 'Making C-Kermit $(CKVER) for DG/UX 5.4R4.11...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDGUX54411 -DDIRENT -DHDBUUCP -DSELECT \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- -DNOINADDRX $(KFLAGS)" "LIBS = -lsocket -lnsl -lcurses -ltermcap"
-
-#DG/UX 5.4R4.20 - Includes everything.
-dgux54420:
- @echo 'Making C-Kermit $(CKVER) for DG/UX 5.4R4.20...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DDGUX540 -DDGUX54420 -DDIRENT -DHDBUUCP -DSELECT \
- -DSTERMIOX -DTCPSOCKET -DCK_CURSES -DCK_NEWTERM -DNOGETUSERSHELL \
- -DNOINADDRX $(KFLAGS)" \
- "LIBS = -lsocket -lresolv -lnsl -lcurses -ltermcap"
-
-#Silicon Graphics System V R3 with BSD file system (IRIS)
-iris:
- @echo Making C-Kermit $(CKVER) for Silicon Graphics IRIX pre-3.3...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR3 -DLONGFN -DNOLEARN $(KFLAGS) -I/usr/include/bsd" \
- "LIBS = -lbsd"
-
-#Silicon Graphics IRIS System V R3
-irix33:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 3.3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS = -s"
-
-#Silicon Graphics Iris Indigo with IRIX 4.0.0 or 5.0...
-#Strict ANSI C compilation, TCP/IP support included
-irix40:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 4.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX40 -DSVR3 -DDIRENT -DHDBUUCP -DPWID_T=uid_t \
- -DCK_ANSIC -DTCPSOCKET $(KFLAGS) -O -Olimit 1600 -I/usr/include/bsd" \
- "LNKFLAGS = -s"
-
-#As above, but with fullscreen display (curses) and Sun Yellow Pages support.
-#NOTE: IRIX versions prior to 5 run COFF binaries.
-irix40ypc:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 4.0.'
- @echo 'Includes fullscreen file display and Sun Yellow Pages...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX40 -DSVR3 -DDIRENT -DHDBUUCP -DCK_CURSES \
- -DPWID_T=uid_t -DCK_ANSIC -DTCPSOCKET $(KFLAGS) \
- -O -Olimit 1600 -I/usr/include/bsd" \
- "LIBS = -lcurses -lsun" "LNKFLAGS = -s"
-
-# Silicon Graphics Iris Series 4D/*, IRIX 4.0.x, -O4 ucode optimized.
-# Huge temporary file space needed for ucode optimizer. If you get an error
-# like "ugen: internal error writing to /tmp/ctmca08777: Error 0", define the
-# the TMPDIR environment variable to point to a file system that has more
-# space available, e.g. "setenv TMPDIR /usr/tmp".
-irix40u:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 4.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX40 -DSVR3 -DDIRENT -DHDBUUCP -DPWID_T=uid_t \
- -DCK_ANSIC -DTCPSOCKET $(KFLAGS) -O4 -Olimit 1600" \
- "LNKFLAGS=-O4 -Olimit 1600 -s" "EXT=u"
-
-# As above, with Curses Support added
-irix40uc:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 4.0...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX40 -DSVR3 -DDIRENT -DHDBUUCP -DPWID_T=uid_t \
- -DCK_ANSIC -DCK_CURSES -DTCPSOCKET $(KFLAGS) -O4 -Olimit 1600" \
- "LNKFLAGS=-O4 -Olimit 1600 -s" "EXT=u" "LIBS= -lcurses -ltermcap"
-
-#Silicon Graphics IRIX 5.x.
-#Yellow Pages and Curses support included.
-#IRIX version 5.x can run COFF or ELF binaries.
-irix51:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 5.x'
- @echo 'Includes fullscreen file display and Yellow Pages...'
- @echo 'Add -mips<n> to CFLAGS specify a particular hardware target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX51 -DSVR4 -DDIRENT -DHDBUUCP -DCK_CURSES -DCK_NEWTERM \
- -DPWID_T=uid_t -DCK_ANSIC -DTCPSOCKET -DSELECT -DNOGETUSERSHELL \
- -DSYSTIMEH -DDCLPOPEN -DDCLFDOPEN $(KFLAGS) -ansi -O -Olimit 3000" \
- "LIBS = -lcurses" "LNKFLAGS = -s"
-
-#Use this one if irix51 blows up due to lack of swap space or whatever.
-irix51x:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 5.x'
- @echo 'Includes fullscreen file display and Yellow Pages...'
- @echo 'Add -mips<n> to CFLAGS specify a particular hardware target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DIRIX51 -DSVR4 -DDIRENT -DHDBUUCP -DCK_CURSES -DCK_NEWTERM \
- -DPWID_T=uid_t -DCK_ANSIC -DTCPSOCKET -DSELECT -DNOGETUSERSHELL \
- -DSYSTIMEH -DDCLPOPEN -DDCLFDOPEN $(KFLAGS)" \
- "LIBS = -lcurses" "LNKFLAGS = -s"
-
-irix51ypc:
- $(MAKE) "MAKE=$(MAKE)" irix51 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)"
-
-#IRIX 5.2 adds RTS/CTS
-irix52:
- $(MAKE) "MAKE=$(MAKE)" irix51 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DIRIX52 -DCK_RTSCTS $(KFLAGS)"
-
-irix53:
- $(MAKE) "MAKE=$(MAKE)" irix51 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DIRIX52 -DIRIX53 -DCK_RTSCTS $(KFLAGS)"
-
-irix53x:
- $(MAKE) "MAKE=$(MAKE)" irix51x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DIRIX52 -DIRIX53 -DCK_RTSCTS $(KFLAGS)"
-
-#Silicon Graphics IRIX 6.[024] common stuff.
-#Yellow Pages and Curses support included.
-#IRIX version 6.0 and later runs only ELF binaries.
-#Depends on code changes in ckudeb.h that make -DIRIX6x define all
-#lower IRIX6x values and IRIX51.
-irix6x:
- @echo 'Includes fullscreen file display and Yellow Pages...'
- @echo 'Add -mips<n> to specify a particular hardware target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DCK_CURSES -DCK_NEWTERM -DPWID_T=uid_t -DCK_ANSIC -DTCPSOCKET \
- -DSELECT -DCK_RTSCTS -O $(KFLAGS)" \
- "LIBS = -lcurses" "LNKFLAGS = -s $(LNKFLAGS)"
-
-#Silicon Graphics IRIX 6.0.
-irix60:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.0'
- @$(MAKE) "MAKE=$(MAKE)" \
- "KFLAGS=-DIRIX60 -Olimit 2138 $(KFLAGS)" \
- irix6x KTARGET=$${KTARGET:-$(@)}
-
-#Silicon Graphics IRIX 6.2.
-#Serial speeds > 38400 are available in IRIX 6.2 on O-class machines only.
-#Note: Olimit must be a number > 0.
-irix62:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.2'
- @$(MAKE) "MAKE=$(MAKE)" \
- LNKFLAGS="-Wl,-woff,84" \
- "KFLAGS=-DIRIX62 -Olimit 4700 $(KFLAGS)" \
- irix6x KTARGET=$${KTARGET:-$(@)}
-
-#Silicon Graphics IRIX 6.3.
-irix63:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.3'
- @$(MAKE) "MAKE=$(MAKE)" irix62 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DIRIX63"
-
-#Silicon Graphics IRIX 6.4.
-# -woff,84 to linker stops complaints about no symbols loaded from
-# curses, and -woff 1110 stops complaints about unreachable "break;"
-# statements in ckcpro.c among others.
-# tested on SGI Octane, running IRIX 6.4 up to 115200 bps.
-# -Olimit 0 means infinite.
-irix64:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.4'
- @$(MAKE) "MAKE=$(MAKE)" \
- LNKFLAGS="-Wl,-woff,84" \
- "KFLAGS=-DIRIX64 -DCK_RTSCTS -Olimit 3000 -woff 1110 $(KFLAGS)" \
- irix6x KTARGET=$${KTARGET:-$(@)}
-
-irix64gcc:
- @echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.4 gcc'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -DSVR4 -DIRIX64 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC \
- $(KFLAGS) -O" "LIBS= -lcurses -ltermcap -lcrypt"
-
-#Note the new Optimization option syntax for MIPSpro CC 7.2.1.2m.
-irix65:
- @echo 'Making C-Kermit $(CKVER) for SGI IRIX 6.5'
- @$(MAKE) "MAKE=$(MAKE)" LNKFLAGS="-Wl,-woff,84" \
- "KFLAGS=-DIRIX65 -DCK_RTSCTS -OPT:Olimit=0 -woff 1110,1552,1174 \
- $(KFLAGS)" \
- irix6x KTARGET=$${KTARGET:-$(@)}
-
-#Dumb down to MIPS-2 if building on R5000 or higher...
-irix65mips2:
- @echo 'Making C-Kermit $(CKVER) for SGI IRIX 6.5 MIPS-2'
- @$(MAKE) "MAKE=$(MAKE)" LNKFLAGS="-o32 -mips2 -Wl,-woff,84" \
- "KFLAGS=-DIRIX65 -DCK_RTSCTS -OPT:Olimit=0 -o32 -mips2 \
- -woff 1110,1552,1174 $(KFLAGS)" \
- irix6x KTARGET=$${KTARGET:-$(@)}
-
-irix6x+krb5:
- @echo 'Includes fullscreen file display and Yellow Pages...'
- @echo 'Add -mips<n> to specify a particular hardware target.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
- -DCK_CURSES -DCK_NEWTERM -DPWID_T=uid_t -DCK_ANSIC -DTCPSOCKET\
- -DSELECT -DCK_RTSCTS -O \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DCK_ENCRYPTION -DCK_DES \
- $(K5INC) $(K5INC)/krb5 $(KFLAGS)" \
- "LIBS = -lcurses $(K5LIB) -ldes425 -lkrb5 \
- -lcom_err -lcrypto -lcrypt -lgssapi_krb5" \
- "LNKFLAGS = -s $(LNKFLAGS)"
-
-irix65+krb5:
- @echo 'Making C-Kermit $(CKVER) for SGI IRIX 6.5'
- @$(MAKE) "MAKE=$(MAKE)" \
- LNKFLAGS="-Wl,-woff,84" \
- "KFLAGS=-DIRIX65 -DCK_RTSCTS -OPT:Olimit=0 -woff 1110,1552,1174 \
- $(KFLAGS)" \
- irix6x+krb5 KTARGET=$${KTARGET:-$(@)}
-
-#In case they type "make sys5"...
-sys5:
- $(MAKE) "MAKE=$(MAKE)" sys3 KTARGET=$${KTARGET:-$(@)}
-
-#Generic ATT System III or System V (with I&D space)
-sys3:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System III'
- @echo 'or System V R2 or earlier...'
- @echo 'add -DNOMKDIR if mkdir is an undefined symbol.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOUNICODE -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL \
- -DNOINITGROUPS -DNOFTRUNCATE -DNOREALPATH -DNOLEARN $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-#Generic ATT System III or System V (no I&D space)
-sys3nid:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System III'
- @echo 'or System V R2 or earlier, no I&D space...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOREALPATH -DNOUNICODE -DNOSYSLOG -DNOSYMLINK \
- -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS ="
-
-#Generic ATT System III or System V R2 or earlier, "no void":
-#special entry to remove "Illegal pointer combination" warnings.
-sys3nv:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System III'
- @echo 'or System V R2 or earlier...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DATTSV -DNOREALPATH -DNOUNICODE -DNOSYSLOG -DNOGETUSERSHELL \
- -DNOSYMLINK -DNOFTRUNCATE -DNOINITGROUPS -DNOLEARN \
- -Dvoid=int $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-# AT&T 7300 UNIX PC. As of C-Kermit 6.1, many of these entries don't work
-# any more due to "Out of memory" or "Too many defines" errors during
-# compilation, at least not on systems without lots of memory. The sys3upcgc
-# entry works (using gcc) with optimization removed, and might also work
-# with optimization enabled on machines with larger memories.
-
-#AT&T 7300/UNIX PC (3B1) systems, sys3 but special handling for internal modem.
-#Link with the shared library -- the conflict with openi in shared library
-#is solved with -Dopeni=xopeni. Note that the xermit target can't be used
-#for the Unix PC; there is no select().
-sys3upc:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC, shared lib...'
- @echo 'If shared lib causes trouble, use make sys3upcold.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DATT7300 -DNOMKDIR -DUSE_MEMCPY -DNOREALPATH -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOREDIRECT -DNOGFTIMER -DNOUNICODE $(KFLAGS) -Dopeni=xopeni" \
- "CC2 = ld /lib/crt0s.o /lib/shlib.ifile" "LNKFLAGS = -s"
-
-#AT&T 7300/Unix PC systems, minimum kermit for those with smaller amounts
-#of memory.
-sys3upcm:
- @echo Minimum interactive
- $(MAKE) "MAKE=$(MAKE)" sys3upc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOSPL -DNOFRILLS -DNOHELP -DNODEBUG -DNOTLOG -DNOCSETS \
- -DNOSYSLOG -DNOSETKEY -DNOREALPATH"
-
-#AT&T 7300/UNIX PC (3B1) systems, with curses support.
-#Curses and the shared library don't get along, so we don't use the
-#shared library. We need to include CK_NEWTERM to avoid a conflict
-#with curses and buffering on stdout. Merged with submission by
-#Robert Weiner/Programming Plus, rweiner@watsun.cc.columbia.edu.
-#We don't need -Dopeni=xopeni since we're not using the shared library,
-#but we keep it to be consistent with the other entries.
-sys3upcc:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC, curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DATT7300 -DNOREALPATH \
- -DCK_CURSES -DCK_NEWTERM -DNOMKDIR -DNOREDIRECT -DNOGFTIMER -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DUSE_MEMCPY -DNOUNICODE $(KFLAGS) -Dopeni=xopeni" \
- "LIBS = -lcurses" "LNKFLAGS = -s"
-
-#Like sys3upcc but for AT&T UNIX 3.51m (released as a patch on Fix Disk 2),
-#adds hardware flow control.
-att351m:
- $(MAKE) "MAKE=$(MAKE)" sys3upcc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_RTSCTS -DUNIX351M"
-
-#As above but with gcc.
-att351gm:
- $(MAKE) "MAKE=$(MAKE)" sys3upcgc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_RTSCTS -DUNIX351M"
-
-#AT&T 7300 UNIX PC (3B1), as above, but no newterm().
-sys3upcx:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC, curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DATT7300 -DNOREALPATH -DNOUNICODE -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DCK_CURSES -DNOMKDIR -DNOREDIRECT -DNOGFTIMER -DUSE_MEMCPY $(KFLAGS) \
- -Dopeni=xopeni" "LIBS = -lcurses -ltermcap" "LNKFLAGS = -s"
-
-#AT&T 7300/UNIX PC (3B1) systems, with curses and shared library support.
-sys3upcshcc:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC, shared lib...'
- @echo 'With curses. Requires shcc.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DATT7300 -DNOMKDIR -DNOREALPATH -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DCK_NEWTERM -DCK_CURSES -DNOREDIRECT -DNOGFTIMER \
- -DUSE_MEMCPY -DNOUNICODE $(KFLAGS) -Dopeni=xopeni" \
- "LNKFLAGS = -i -s" "CC = shcc" "CC2 = shcc" "LIBS = -lcurses"
-
-#AT&T 7300/UNIX PC (3B1) systems, as above, no curses, but use gcc.
-sys3upcg:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT7300 -DNOREDIRECT -DUSE_MEMCPY -DNOUNICODE -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOGFTIMER -DNOMKDIR -DNOREALPATH $(KFLAGS) -Dopeni=xopeni" \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -s -shlib"
-
-#AT&T 7300/UNIX PC (3B1) systems, curses and gcc.
-#Optimization omitted -- add it back in if your machine has lots of memory.
-sys3upcgc:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC, curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT7300 -DNOREDIRECT -DUSE_MEMCPY -DNOGFTIMER -DNOUNICODE \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DCK_CURSES -DCK_NEWTERM -DNOMKDIR -DNOREALPATH -DNOLEARN $(KFLAGS)" \
- "CC = gcc" "CC2 = gcc" "LIBS = -lcurses" "LNKFLAGS = -s"
-
-#AT&T 7300/UNIX PC (3B1) systems, special handling for internal modem.
-#No FULLSCREEN file transfer display (curses).
-sys3upcold:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT7300 -DNOMKDIR -DUSE_MEMCPY -DNOUNICODE -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOGFTIMER -DNOREDIRECT -DNOREALPATH $(KFLAGS) -O" "LNKFLAGS = -i"
-
-#As above, but with gcc. mininum features - fits on a 400K UNIX PC floppy
-#after compression with room to spare; add -DNOSHOW or other -DNOxxxx items
-#to reduce size even further.
-sys3upcgm:
- @echo Minimum interactive
- $(MAKE) "MAKE=$(MAKE)" sys3upcg KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DNOSPL -DNOFRILLS -DNOHELP -DNODEBUG -DNOTLOG -DNOCSETS \
- -DNOSETKEY $(KFLAGS)"
-
-#This target is designed to create a version with the most features possible
-#that, after compression, still fits on a 400K UNIX PC floppy.
-sys3upcgfd:
- @echo 'Making C-Kermit $(CKVER) for AT&T 7300 UNIX PC floppy...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT7300 -DNOREDIRECT -DUSE_MEMCPY -DNOSPL -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOGFTIMER -DNOREALPATH -Dopeni=xopeni \
- -DNOHELP -DNODEBUG -DNOTLOG -DNOCSETS -DNOSETKEY -DNOMKDIR $(KFLAGS)" \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -s"
-
-#AT&T 6300 PLUS (warning, -O might make it run out of space).
-#NOTE: Remove -DHDBUUCP if not using Honey DanBer UUCP.
-att6300:
- @echo 'Making C-Kermit $(CKVER) for AT&T 6300 PLUS...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT6300 -DHDBUUCP -DNOFILEH -DNOREALPATH -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOUNICODE $(KFLAGS) -O -Ml -i" "LNKFLAGS = -i -Ml"
-
-#As above, but with curses support. Debugging disabled to prevent thrashing.
-att6300c:
- @echo 'Making C-Kermit $(CKVER) for AT&T 6300 PLUS...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT6300 -DHDBUUCP -DNOFILEH -DNOCSETS -DNOREALPATH \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DCK_CURSES -DNODEBUG -DNOUNICODE -DNOLEARN $(KFLAGS) -O -Ml -i" \
- "LNKFLAGS = -i -Ml" "LIBS = -lcurses"
-
-#AT&T 6300 PLUS with no curses, no debugging (about 34K smaller)
-# -Optimization saves about 20K too.
-att6300nd:
- @echo 'Making C-Kermit $(CKVER) for AT&T 6300 PLUS, no debugging...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATT6300 -DHDBUUCP -DNODEBUG -DNOFILEH -DNOREALPATH \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOUNICODE -DNOLEARN $(KFLAGS) -O -i -Ml" "LNKFLAGS = -i -Ml"
-
-#AT&T 3B2 and maybe 3B20-series computers running AT&T UNIX System V R3.
-#This one was actually used to build C-Kermit 7.0 successfully on a 3B2/300.
-att3b2:
- @echo 'Making C-Kermit $(CKVER) for AT&T 3B2'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOREDIRECT -DUSE_MEMCPY \
- -DNOTIMEVAL -DNOTIMEZONE -DMINIDIAL -DNOCHANNELIO -DNOBIGBUF \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOGFTIMER -DNOREALPATH -Dopeni=xopeni -DNOFRILLS -DNOLEARN \
- -DNOHELP -DNODEBUG -DNOTLOG -DNOCSETS -DNOSETKEY -DNOMKDIR $(KFLAGS)" \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -s"
-
-# The next two are likely not to work as-is.
-
-#AT&T 3B2, 3B20-series computers running AT&T UNIX System V.
-#This is just generic System V with Honey DanBer UUCP, so refer to sys3hdb.
-#Remove -DNONAWS if you can get away with it.
-att3bx:
- $(MAKE) "MAKE=$(MAKE)" sys3hdb KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DNONAWS -DNOTIMEVAL"
-
-# 3Bx with charsets (except Unicode) but no curses.
-att3bx1:
- @echo 'Making C-Kermit $(CKVER) for AT&T 3B2 or 3B20'
- @echo 'with Honey DanBer UUCP no curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DHDBUUCP $(KFLAGS) -DNOREDIRECT \
- -DNOTIMEVAL -DNOTIMEZONE -DMINIDIAL -DNOCHANNELIO -DNOBIGBUF \
- -DNOHELP -DNODEBUG -DNOGFTIMER -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOREALPATH -DNOUNICODE -i" \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -i -s"
-
-#AT&T 3B2, 3B20-series computers running AT&T UNIX System V,
-#with fullscreen file transfer display.
-att3bxc:
- @echo 'Making C-Kermit $(CKVER) for AT&T 3B2 or 3B20'
- @echo 'with Honey DanBer UUCP and curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DHDBUUCP -DNONAWS -DNOTIMEVAL $(KFLAGS) \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOREALPATH -DCK_CURSES -DCK_NEWTERM -DNOUNICODE -DNOLEARN -i -O" \
- "LNKFLAGS = -i" "LIBS=-lcurses"
-
-#3bx with curses but no charsets
-att3bxc3:
- @echo 'Making C-Kermit $(CKVER) for AT&T 3B2 or 3B20'
- @echo 'with Honey DanBer UUCP with curses... no CSETS'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DHDBUUCP $(KFLAGS) -DNOREDIRECT \
- -DNOTIMEVAL -DNOTIMEZONE -DMINIDIAL -DNOCHANNELIO -DNOBIGBUF \
- -DNOHELP -DNODEBUG -DNOGFTIMER -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOREALPATH -DNOCSETS -DCK_CURSES -DCK_NEWTERM -i" \
- "CC = gcc" "CC2 = gcc" "LNKFLAGS = -i -s" "LIBS = -lcurses"
-
-#Any System V R2 or earlier with Honey DanBer UUCP (same as above)
-sys3hdb:
- @echo 'Making C-Kermit $(CKVER) for AT&T UNIX System III'
- @echo 'or System V R2 or earlier with Honey DanBer UUCP...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DHDBUUCP -DNOREALPATH -DNOUNICODE -DNOLEARN \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- $(KFLAGS) -i -O" "LNKFLAGS = -i"
-
-#Sperry/UNISYS 5000 UTS V 5.2 (System V R2), Honey DanBer UUCP
-unisys5r2:
- @echo 'Making C-Kermit $(CKVER) for Sperry/UNISYS 5000 UTS V 5.2...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DUNISYS52 -DHDBUUCP -DNOREALPATH -DNOUNICODE \
- -DNOSYSLOG -DNOSYMLINK -DNOGETUSERSHELL -DNOINITGROUPS -DNOFTRUNCATE \
- -DNOLEARN $(KFLAGS) -i -O" "LNKFLAGS = -i"
-
-#In case they say "make sys5hdb" instead of "make sys3hdb"...
-sys5hdb:
- $(MAKE) "MAKE=$(MAKE)" sys3hdb
-
-#Create the common header line for all hpux[5-10]* entries. This extra entry is
-#here because our header message length may differ for each C-Kermit version.
-#Don't use 'fold -s' for HP-UX 5.x - 7.x! This option is there only since
-#HP-UX 8.0!
-hpux-header:
- @HPUX=`uname -r | sed -e 's/^[^1-9]*//' -e 's/\.00$$/.0/'` ; \
- [ "$(MESSAGE0)" ] && MESSAGE1="$(MESSAGE0)" ; \
- Message0='Making C-Kermit $(CKVER) for HP9000 HP-UX' ; \
- Message1=$${MESSAGE1:='without any extra compiler optimization'} ; \
- MessageH="$$Message0 $$HPUX" ; \
- case $$HPUX in \
- [567].*) echo "$$MessageH\n$$Message1" ;; \
- *.*) echo "$$MessageH $${Message1}$(MESSAGE1A)" | fold -s ;; \
- esac | sed -e 's/^ //' -e 's/ *$$//'
-
-# Peter E's updated HP-UX 5.xx entries Oct 2001.
-
-#HP-9000 500 HP-UX 5.xx, no TCP/IP.
-hpux0500:
- @MESSAGE0="no TCP/IP and no compiler optimization";\
- MESSAGE0=$${MESSAGE1:-$$MESSAGE0} \
- $(MAKE) hpux-header
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUX -DHPUX5 -DHPUXPRE65 -DNOREDIRECT -DDCLGETCWD \
- -DNOGETUSERSHELL -DNOGFTIMER -DNOSYSLOG -DNOTOMACROS -DNOLSTAT \
- -DNOSYMLINK -DNOINITGROUPS -DNOUNICODE -DNOLEARN $(KFLAGS)" \
- "LIBS = $(LIBS)" "LNKFLAGS = "
-
-#HP-9000 500 HP-UX 5.21 with Wollongong WIN/TCP 1.2 TCP/IP.
-#Requires /usr/wins/usr/include and /usr/lib/libnet.a from Wollongong.
-#Optimization skipped - takes forever. Really.
-# WARNING: this doesn't work if a file called "hpux0500" is on the disk.
-hpux0500wintcp:
- @MESSAGE1="with WIN/TCP but without any extra compiler optimization" \
- $(MAKE) hpux0500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = -DTCPSOCKET -DHPUX5WINTCP -DINADDRX -DNO_DNS_SRV -DNOMHHOST \
- -DNOHADDRLIST -I/usr/wins/usr/include $(KFLAGS)" \
- "LIBS = /usr/lib/libnet.a"
-
-#HP-UX 6.5, short filenames, no network and no curses support.
-#ckcpro, ckuusr, ckuus3 and others are broken out because they make the
-#optimizer run away. Note that xermit target does not work with this one!
-#If you get compiler warnings like 'Switch table overflow' increase the '...'
-#value in '-Wc,-Nw...'!
-hpux0650:
- @$(MAKE) hpux-header
- @echo 'supporting: NO long filenames, NO network${MESSAGE2}.'
-
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- ckuusr.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) \
- "CFLAGS = -DHPUX -DHPUX6 -DSIG_V -DNOSYSLOG -DNOSELECT -DFNFLOAT \
- -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN $(KFLAGS) \
- -Wc,-Nw260"
-
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUX -DHPUX6 -DSIG_V -DNOSYSLOG -DNOSELECT -DFNFLOAT \
- -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN $(KFLAGS) \
- -Wc,-Nw260 $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm $(LIBS)"
-
-#Exactly as above, plus curses:
-hpux0650c:
- @MESSAGE2=", but with curses" \
- $(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses"
-
-#Exactly as above, plus curses + network:
-#(doesn't work -- HP-UX 6 lacks the FD_SET macros -- this can be addressed
-
-hpux0650tcpc:
- @MESSAGE2=", but with curses and with tcp/ip" \
- $(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES -DTCPSOCKET -DNOHADDRLIST $(KFLAGS)" \
- "LIBS= -lcurses"
-
-#Exactly as hpux0650 but with compiler optimization:
-hpux0650o:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#Exactly as hpux0650c but with compiler optimization:
-hpux0650oc:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0650c KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#Take this as startup entry for all 'none optimized' files under HP-UX 7.x!
-#Make sure we doesn't call it with the '-O' option because this will blow up
-#the compiler!
-hpux0700noopt:
- @case "$(CFLAGS)" in \
- *-O*) echo "Don't use CFLAGS= -O here!" ;; \
- *) $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- ckuusr.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuus7.$(EXT) ckuxla.$(EXT) \
- ckcuni.$(EXT) ckcftp.$(EXT) ckcpro.$(EXT) \
- ;; \
- esac
-
-#HP-UX 7.0, no long filenames, no network support, no curses.
-#If you get compiler warnings like 'Switch table overflow' increase the '...'
-#value in '-Wc,-Nw...'!
-hpux0700sf:
- @$(MAKE) hpux-header
- @echo 'supporting: NO long filenames, NO network, NO curses.'
- $(MAKE) hpux0700noopt KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUX -DHPUX7 -DSIG_V -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV $(KFLAGS) -Wc,-Nw260"
-
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUX -DHPUX7 -DSIG_V -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV $(KFLAGS) -Wc,-Nw260 $(OFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lm $(LIBS)"
-
-#Exactly as hpux0700sf but with compiler optimization:
-hpux0700osf:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0700sf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#HP-UX 7.0, short filenames, but with tcp/ip and curses.
-#To use this, you must have bought the ARPA Services Product from HP, and you
-#must have /usr/lib/libBSD.a.
-hpux0700sftcpc:
- @$(MAKE) hpux-header
- @echo 'supporting: NO long filenames, \c'
- @echo 'but with networking, curses, HDB uucp...'
- $(MAKE) hpux0700noopt KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V \
- -DCK_REDIR -DCK_RTSCTS -DCK_CURSES -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" $(KFLAGS) \
- -Wc,-Nw260"
-
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V \
- -DCK_REDIR -DCK_RTSCTS -DCK_CURSES -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" $(KFLAGS) \
- -Wc,-Nw260 $(OFLAGS)" "LNKFLAGS = -s" "LIBS= -lm -lBSD -lcurses"
-
-#Exactly as above but with compiler optimization:
-hpux0700osftcpc:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0700sftcpc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#HP 9000 series 300/800 HP-UX 7.0, long filenames, network support, HDB uucp,
-#but NO curses. See comments in hpux0700sftcpc about TCP/IP support.
-hpux0700lfn:
- @$(MAKE) hpux-header
- @echo 'supporting: long filenames, networking, HDB uucp$(MESSAGE2)...'
- $(MAKE) hpux0700noopt KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V -DFNFLOAT \
- -DNOGETUSERSHELL -DNOSETBUF -DCK_REDIR -DCK_RTSCTS -DLONGFN \
- -DNO_DNS_SRV -DDIRENT -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
- $(KFLAGS) -Wc,-Nw260"
-
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V -DFNFLOAT \
- -DNOGETUSERSHELL -DNOSETBUF -DCK_REDIR -DCK_RTSCTS -DLONGFN \
- -DNO_DNS_SRV -DDIRENT -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
- $(KFLAGS) -Wc,-Nw260 \
- $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
-
-#Exactly as above + curses.
-hpux0700lfnc:
- @MESSAGE2=', curses' \
- $(MAKE) hpux0700lfn KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses"
-
-#Exactly as above hpux0700lfn but with compiler optimization:
-hpux0700olfn:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0700lfn KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#Exactly as above hpux0700lfnc but with compiler optimization:
-hpux0700olfnc:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0700lfnc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
-
-#HP 9000 Series 300 or 400, HP-UX 8.0, long filenames and TCP/IP support.
-#This one should also work on 700/800, but without PA-specific optimization.
-#In case -DCK_RTSCTS and -DCK_REDIR make trouble, remove them.
-#NOTE: ckcpro.c, ckuusr.c and ckuus3.c blow up the optimizer, so don't optimize
-#them.
-#For HP-UX 8.0 on Motorola CPUs, you might have to reinstall your kernel with
-#maxdsiz >= 0x03000000. But if physical memory is small, that still will not
-#help much.
-hpux0800:
- @$(MAKE) hpux-header
- @MESSAGE3=$${MESSAGE3:='TCP/IP'}; \
- echo "supporting: long filenames, $$MESSAGE3, HDB UUCP$(MESSAGE2)..."
- $(MAKE) -B "CC=$(CC)" "CC2=$(CC2)" KTARGET=$${KTARGET:-$(@)} \
- ckcpro.$(EXT) ckuusr.$(EXT) ckuus3.$(EXT) \
- "CFLAGS = -DCK_REDIR -DHPUXDEBUG -DHPUX -DHPUX8 -DRENAME -DSIG_V \
- -DNOSETBUF -DDIRENT -DCK_RTSCTS -DSTERMIOX -DLONGFN -DTCPSOCKET \
- -DHDBUUCP -DNO_DNS_SRV -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT \
- $(KFLAGS)"
-
- $(MAKE) -B "CC=$(CC)" "CC2=$(CC2)" xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DCK_REDIR -DHPUXDEBUG -DHPUX -DHPUX8 -DRENAME -DSIG_V \
- -DNOSETBUF -DDIRENT -DCK_RTSCTS -DSTERMIOX -DLONGFN -DTCPSOCKET \
- -DHDBUUCP -DNO_DNS_SRV -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT \
- $(KFLAGS) $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
-
-#Exactly as above hpux0800 + curses.
-hpux0800c:
- @MESSAGE2=', curses' \
- $(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -DCK_CURSES" "LIBS = -lcurses"
-
-#HP 9000 HP-UX 8.0, no TCP/IP because /usr/lib/libBSD.a can't be found,
-#or TCP/IP header files missing.
-hpux0800notcp:
- @MESSAGE3='NO network, NO curses' \
- $(MAKE) "MAKE=$(MAKE)" hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -UTCPSOCKET"
-
-#Now the same as above hpux0800 but with compiler optimization
-hpux0800o:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
-
-#Exactly as above hpux0800 + curses and with compiler optimization.
-hpux0800oc:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) hpux0800c KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS)" "OFLAGS = -O" "LIBS = -lcurses"
-
-#Exactly as above hpux0800notcp but with compiler optimization
-hpux0800onotcp:
- @MESSAGE1="with compiler optimization" \
- $(MAKE) "MAKE=$(MAKE)" hpux0800notcp KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
-
-#HP 9000 Series 700 or 800, HP-UX 8.0, long filenames and TCP/IP support.
-# Like the previous entries, but with PA-RISC-specific optimization.
-hpux0800pa:
- @MESSAGE1="with PA-RISC-specific optimization" \
- $(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) +Obb1100"
-
-#As above, but with curses.
-hpux0800pac:
- @MESSAGE1="with PA-RISC-specific optimization" \
- $(MAKE) hpux0800c KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) +Obb1100"
-
-#As above, but compiled with GCC 2.3.3.
-hpux0800pagcc:
- @MESSAGE1='using the gcc compiler' \
- $(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "CC=gcc" "CC2=gcc" "KFLAGS= -funsigned-char $(KFLAGS)"
-
-#HP-UX 9.0, 9.01, 9.03, 9.04, 9.05, 9.07, 9.10 ..., + TCP/IP + curses, fully
-#configured. Use this entry with the restricted compiler: no optimization, no
-#ANSI support. If you get unresolved sockets library references at link time,
-#then try adding -lBSD to LIBS, or else remove -DTCPSOCKET to build a version
-#without TCP/IP support.
-hpux0900:
- @MESSAGE1A='. Read hpux0900 entry comments if you have trouble.' \
- $(MAKE) hpux-header
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DHPUXDEBUG -DHPUX9 -DSTERMIOX -DDIRENT -DUTIMEH \
- -DNOSETBUF -DCK_CURSES -DTCPSOCKET -DRENAME -DCK_REDIR -DLONGFN \
- -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lm -lcurses" "CC=$(CC)" "CC2=$(CC2)"
-
-#Like hpux0900, but for the "value-added" compiler on all HP 9000 models.
-#Adds optimization and ANSI compilation:
-# +O2 makes smaller executable (= -O = Level-1 and global optimization)
-# +O3 adds interprocedural global optimization, makes bigger executable.
-# If optimization fails on some modules, you can add:
-# +Obb<n>, +Olimit <n>, or +Onolimit, depending on your cc version,
-# where <n> is a number, e.g. +Obb1200. In other words, if you get optimizer
-# warnings, add (for example) +Obb1200; if you still get optimizer warnings,
-# increase the number. Repeat until warnings go away. If your compiler
-# permits it, use +Onolimit. If optimizer blows up on ckcpro.c, see next entry.
-# Reportedly, on some configurations, such as HP9000/425e or /340, perhaps
-# depending on the amount of main memory, this entry might fail no matter what
-# you do ("Out of Memory", "cc: Fatal error in /lib/c.c1", etc). In that case
-# use "make hpux0900" (no "o").
-hpux0900o:
- @MESSAGE1=$${MESSAGE1:-"with compiler optimization"} \
- $(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2"
-
-# For HP-UX 9.0 on Motorola CPUs, optimization of ckcpro.c tends to blow up
-# the compiler. You might have to reinstall your kernel with maxdsiz >=
-# 0x03000000. But if physical memory is small, that still will not help much.
-# In that case, use this entry to skip optimization of ckcpro.c. But for
-# C-Kermit 8.0.208 you need a kernel with maxdsiz >= 0x02000000 to compile an
-# optimized ckcftp.c.
-hpux0900m68ko:
- @MESSAGE1='without compiler optimization for ckcpro.$(EXT) ...' \
- $(MAKE) hpux-header
- $(MAKE) ckuusr.$(EXT) ckuus3.$(EXT) ckcpro.$(EXT) \
- "CFLAGS = -DHPUXDEBUG -DHPUX9 -DSTERMIOX -DDIRENT \
- -DNOSETBUF -DCK_CURSES -DTCPSOCKET -DRENAME -DCK_REDIR -DLONGFN \
- -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT $(KFLAGS)"
- @echo
- @MESSAGE1="with compiler optimization for the rest" \
- $(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2"
-
-# Old name for hpux0900m68ko.
-hpux0900mot:
- $(MAKE) hpux0900m68ko KTARGET=$${KTARGET:-$(@)} "KFLAGS = $(KFLAGS)"
-
-#Like hpux0900o but with additional model-700/800-specific optimizations.
-# +ESlit = consolidate strings in read-only memory.
-# +ESfsc = inline millicode calls when comparing pointers.
-hpux0900o700:
- @echo 'If you get optimizer warnings \c'
- @echo 'try "make hpux0900o700 KFLAGS=+Obb1200"'
- @MESSAGE1="with PA-RISC-specific optimizations" \
- $(MAKE) hpux0900o KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) +ESlit +ESsfc"
-
-#HP-UX 9.0, 9.01, 9.03, 9.04, 9.05, 9.07, 9.10 ..., + TCP/IP + curses, fully
-#configured, built with gcc, all models except 800 series.
-#You might need to add the include path for gcc headers, for example:
-# 'KFLAGS=-I/usr/gnu/lib/gcc-lib/hppa1.1-hp-hpux/2.4.5/include/'
-hpux0900gcc:
- @MESSAGE1='using the gcc compiler' \
- $(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "KFLAGS = $(KFLAGS) -DCK_ANSIC -funsigned-char -O2"
-
-#HP-9000 HP-UX 10.0 + TCP/IP + curses, fully configured.
-#Use with restricted (bundled) compiler: no optimization, no ANSI support.
-#libcurses needed for fullscreen file xfer display in HP-UX 10.00 and 10.01.
-#libHcurses (NOT libcurses!) for fullscreen display, to work around fatal bugs
-#in HP-UX 10.10 and 10.20 curses. Maybe we could use lcurses for 10.30, since
-#the 10.10 curses problem is supposedly fixed in 10.30.
-# +DA1.0 = Generate PA-RISC 1.0 code that runs on both 700 and 800 models.
-# +DA1.1 = Generate PA-RISC 1.1 code that runs on both 700 and 800 models.
-# Note that HP-UX 10.20 and upwards not support PA-RISC 1.0 systems.
-# And that as of Dec 2001, 11.00 and 11.11 are PA-only and 11.20 is IA64-only.
-# Later 11.2x releases are expected to be for both. Architecture can be
-# determined with the model command, at least in 10.20 and later...
-#For future releases, we need to include +DA1.1 for PA builds, so that a
-#binary built on PA 2.0 will still work on PA 1.1 machines, whereas +DA1.1
-#must NOT be included for IA64 builds.
-#
-hpux1000:
- @$(MAKE) hpux-header
- @LIBS='-lHcurses' ; \
- AFLAGS='+DA1.1' ; \
- case `uname -r` in \
- [AB].10.0*) KFLAGS='-DHPUX1000 $(KFLAGS)' ; \
- AFLAGS='+DA1.0' ; LIBS='-lcurses' ;; \
- [AB].10.1*) KFLAGS='-DHPUX1010 -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].10.2*) KFLAGS='-DHPUX1020 -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].10.3*) KFLAGS='-DHPUX1030 -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].10.?*) KFLAGS='-DHPUX10XX -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].11.0*) KFLAGS='-DHPUX1100 -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].11.1*) KFLAGS='-DHPUX1100 -D__HP_CURSES $(KFLAGS)' ; \
- ;; \
- [AB].11.?*) KFLAGS='-DHPUX1100 -D__HP_CURSES $(KFLAGS)' ; \
- AFLAGS='' ; LIBS='-lcurses' ;; \
- esac ; \
- OFLAGS=$${OFLAGS:-$$AFLAGS} ; \
- $(MAKE) "SHELL=/usr/bin/sh" xermit KTARGET=$${KTARGET:-$(@)} \
- "CC=$(CC)" "CC2=$(CC2)" \
- "CFLAGS = -DHPUX10 -DDIRENT -DSTERMIOX -DCK_DSYSINI -DHDBUUCP \
- -DCK_CURSES -DCK_WREFRESH -DTCPSOCKET -DCK_REDIR -DRENAME -DFNFLOAT \
- $$KFLAGS $$OFLAGS" \
- "LNKFLAGS=-s $(LNKFLAGS)" "LIBS = -lm $$LIBS $(KLIBS)"
-
-# This is a kludge, copying hpux0900gcc and adapting hpux1000
-# (add CC and CC2, drop the A1.[0||1])
-# Builds w/ no compiler warnings but minimally tested.
-#
-hpux1000gcc:
- @MESSAGE1="using the gcc compiler $(MESSAGE1)" \
- $(MAKE) hpux1000 KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "KFLAGS = $(KFLAGS)" OFLAGS=" -DCK_ANSIC -funsigned-char -O2"
-
-# Trusted HP-UX 10
-# echo KFLAGS=$(KFLAGS) YTARGET YTARGET=$(YTARGET) $(XTARGET) ;
-hpux1000t:
- @case "$(KTARGET)" in \
- *+openssl) \
- KENTRY=hpux1000o+openssl ;; \
- *gcc) \
- KENTRY=hpux1000gcc ;; \
- *o+) KENTRY=hpux1000o+ ;; \
- *o) KENTRY=hpux1000o ;; \
- *) KENTRY=hpux1000 ;; \
- esac ; \
- MESSAGE1="and support for 'Trusted HP-UX'" \
- $(MAKE) $$KENTRY KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS) -DHPUX10_TRUSTED" "KLIBS=-lsec"
-
-hpux1000to:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-hpux1000to+:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-hpux1000tgcc:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-hpux1000to+openssl:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-hpux1000tgcc+openssl:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-#HP-9000 HP-UX 10.00 and higher with ANSI prototyping and optimization.
-#PA-RISC only, no Motorola or other hardware is support in HP-UX 10.00++.
-#The unbundled optional compiler is required.
-#Your path should start with /opt/ansic/bin.
-# -Wl,-Fw = Remove stack unwind table (info used by debuggers).
-# +O2 makes a smaller executable (= -O = Level-1 and global optimization).
-# +O3 adds interprocedural global optimization, makes a bigger executable.
-# +Onolimit allows all modules to be optimized, no matter how complex. But:
-# (a) +Onolimit does not seem to always be there in HP-UX 10.00, and:
-# (b) some modules might take hours on low-memory and/or slow systems.
-# The following are PA-RISC-specific optimizations:
-# +ESlit = Consolidate strings in read-only memory.
-# +ESfsc = Inline millicode calls when comparing pointers.
-# You might need to configure your kernel for a maxdsiz of 0x0B000000 (176MB)
-# or greater to prevent the optimizer from running out of space.
-# December 2001: +ESlit +ESsfc removed because not supported on IA64.
-# Somebody who cares can use 'model' to see whether it's PA-RISC or IA64
-# and include the architecture-specific optimization flags. Also note:
-# +DA1.1 is PA-only. If this is included in in HP-UX 11.00 or later,
-# then +DS2.0 should be included too (but don't use +DS2.0 without +DA1.1,
-# or else the binary won't run on older PA hardware).
-hpux1000o:
- @case `uname -m` in \
- ia64) ;; \
- *) MFLAGS='+ESlit +ESsfc' ;; \
- esac ; \
- MESSAGE1="with PA-RISC-specific optimizations $(MESSAGE1)" \
- $(MAKE) "SHELL=/usr/bin/sh" "PATH=/opt/ansic/bin:$$PATH" hpux1000 \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = $(KFLAGS) \
- -Aa -D_HPUX_SOURCE -DCK_ANSIC -DUTIMEH \
- +O2 -Wl,-Fw $$MFLAGS"
-
-#Like hpux1000o but with "+Onolimit".
-#On 700 series set kernel parameter maxdsiz >= 0x0D000000 (=208MB).
-#Takes a long time.
-hpux1000o+:
- @MESSAGE1="and +Onolimit $(MESSAGE1)" KTARGET=$${KTARGET:-$(@)} \
- $(MAKE) hpux1000o \
- "KFLAGS = $(KFLAGS) +Onolimit"
-
-#HP-UX 10.xx + 11.xx with optimizing ANSI compiler and OpenSSL.
-#Define SSLLIB and SSLINC appropriately for your OpenSSL installation.
-#Do overwrite the default SSLLIB and SSLINC settings you can also use the
-#command-line variable KSSLLIB and KSSLINC like:
-#make hpux1000o+openssl KSSLLIB=-L/opt/openssl/lib KSSLINC=-I/...
-#Ditto for the Zlib location.
-#This entry works for C-Kermit 8.0.206 on HP-UX 10.20 + 11.11
-#with OpenSSL 0.9.6 + 0.9.7
-#NOTE: an ANSI C compiler is required for the SSL interface. If you don't
-#have the HP Optimizing ANSI compiler, see the hpux1000gcc+openssl target
-#below.
-hpux1000o+openssl:
- @case "$(KTARGET)" in \
- *gcc+*) KENTRY=hpux1000gcc ;; \
- *) KENTRY=hpux1000o ;; \
- esac ; \
- SSLINC=$${KSSLINC:-$(SSLINC)}; \
- SSLLIB=$${KSSLLIB:-$(SSLLIB)}; \
- MESSAGE1="and with OpenSSL $(MESSAGE1)" \
- $(MAKE) $$KENTRY KTARGET=$${KTARGET:-$(@)} \
- KFLAGS="-DCK_AUTHENTICATION -DCK_SSL -DOPENSSL_097 -DZLIB \
- $$SSLINC $(KFLAGS)" \
- KLIBS="$(KLIBS) \
- $$SSLLIB -lssl -lcrypto \
- -L/opt/zlib/lib -lz \
- "
-
-#HP-UX 10.00 or higher with OpenSSL 0.9.7. Compiled with gcc.
-#From Chris Chaney, NEC America Inc. His instructions:
-# (1) Install gcc version 3.2.3 & binutils version 2.13.2
-# (used binary depot from http://hpux.cs.utah.edu/)
-# (2) Install gcc make version 3.80 from http://hpux.cs.utah.edu/
-#
-# or: gcc 2.9.2000-12-1 from "Linux to hp-ux 11.0/11i porting kit version 1.0
-# (2CD)" free from: http://www.software.hp.com
-#
-# (3) Install openSSL version 0.9.7b from http://www.software.hp.com
-# (4) Install flex version 2.5.4 from http://hpux.cs.utah.edu/
-# (5) Install gmp version 3.1.1 from http://hpux.cs.utah.edu/
-#
-#Note from Peter Eichhorn, assyst Munich. It works also without gcc make!
-hpux1000gcc+openssl:
- $(MAKE) hpux1000o+openssl KTARGET=$${KTARGET:-$(@)}
-
-# Same for HP-UX 11
-hpux1100o+openssl:
- $(MAKE) hpux1000o+openssl KTARGET=$${KTARGET:-$(@)}
-
-hpux1100gcc+openssl:
- $(MAKE) hpux1000gcc+openssl KTARGET=$${KTARGET:-$(@)}
-
-# HP-UX 11
-hpux1100:
- $(MAKE) hpux1000 KTARGET=$${KTARGET:-$(@)}
-
-hpux1100o:
- $(MAKE) hpux1000o KTARGET=$${KTARGET:-$(@)}
-
-hpux1100o+:
- $(MAKE) hpux1000o+ KTARGET=$${KTARGET:-$(@)}
-
-hpux1100gcc:
- $(MAKE) hpux1000gcc KTARGET=$${KTARGET:-$(@)}
-
-# Trusted HP-UX 11
-hpux1100t:
- $(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-
-hpux1100to:
- $(MAKE) hpux1000to KTARGET=$${KTARGET:-$(@)}
-
-hpux1100to+:
- $(MAKE) hpux1000to+ KTARGET=$${KTARGET:-$(@)}
-
-hpux1100tgcc:
- $(MAKE) hpux1000tgcc KTARGET=$${KTARGET:-$(@)}
-
-hpux1100to+openssl:
- $(MAKE) hpux1000to+openssl KTARGET=$${KTARGET:-$(@)}
-
-hpux1100tgcc+openssl:
- $(MAKE) hpux1000tgcc+openssl KTARGET=$${KTARGET:-$(@)}
-
-#Regulus on CIE Systems 680/20
-cie:
- @echo 'Making C-Kermit $(CKVER) for CIE Systems 680/20 Regulus...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DATTSV -DNOFILEH -DCIE -DNOLEARN $(KFLAGS) -O" "LNKFLAGS ="
-
-# Linux 1.2 or later with gcc, dynamic libraries, ncurses, TCP/IP.
-#
-# If your Linux system has curses rather than ncurses, use the linuxc
-# entry, or if that doesn't work, linuxnc.
-#
-# The Kermit "large memory model" is used by default to configure big packet
-# and script buffers, etc. For small-memory or limited-resource systems,
-# "make linux KFLAGS=-DNOBIGBUF".
-#
-# -DLINUXFSSTND (Linux File System Standard 1.2) gives UUCP lockfile /var/lock
-# with string pid. Remove this to get /usr/spool/uucp with int pid, used in
-# very early Linux versions. FSSTND 1.2 also says that the PID string in the
-# UUCP lock file has leading spaces. This is a change from FSSTND 1.0, which
-# used leading zeros. Add -DFSSTND10 to support FSSTND 1.0 instead of 1.2.
-# I hope subsequent editions of the file-system standard did not change these
-# again.
-#
-# Add -DOLINUXHISPEED (Old Linux High Speed support) to turn on an ugly kludge
-# in Linux 1.0 and earlier to support speeds of 57600 and 115200. Extremely
-# old Linux systems (pre-0.99pl15) will not support this. If OLINUXHISPEED is
-# not defined, then only the standard POSIX termios methods of setting the port
-# speed will be used, and in this case speeds can be as high as 460800 in most
-# modern Linux versions.
-#
-# -DCK_POSIX_SIG (POSIX signal handling) is good for Linux releases back to at
-# least 0.99.14; if it causes trouble for you, remove it from the CFLAGS.
-#
-# -pipe removes the need for temp files - remove it if it causes trouble.
-#
-# -funsigned-char makes all characters unsigned, as they should have been
-# in the first place.
-#
-# Add -DCK_DSYSINI if you want a shared system-wide init file.
-#
-# See ckubwr.txt about -DNOCOTFMC. In fact, you really should read the
-# entire Linux section of ckubwr.txt.
-#
-# The "linuxa" entry can be referenced directly on LIBC systems, but not
-# GLIBC, where -lcrypt is required. The "make linux" entry should normally
-# be used for all builds on all Linux distributions unless you have special
-# requirements, in which case keep reading. CK_NEWTERM added after 7.0B04
-# due to new complaints about ncurses changing buffering of tty.
-
-linuxa:
- @echo 'Making C-Kermit $(CKVER) for Linux 1.2 or later...'
- @echo 'IMPORTANT: Read the comments in the linux section of the'
- @echo 'makefile if you have trouble.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -DLINUX -pipe -funsigned-char -DFNFLOAT -DCK_POSIX_SIG \
- -DCK_NEWTERM -DTCPSOCKET -DLINUXFSSTND -DNOCOTFMC -DPOSIX \
- -DUSE_STRERROR $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" "LIBS = $(LIBS) -lm"
-
-# As above but with profiling
-linuxp:
- $(MAKE) linuxa KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS) -pg" \
- "LIBS=-pg -lcrypt -lresolv"
-
-#New primary Linux entry for C-Kermit 8.0, replacing big nested
-#if-then-else construction full of repeated clauses with a simpler scheme
-#for automatically detecting:
-# . Old versus new pty handling (new == glibc 2.1++)
-# . Presence or absence of librypt.a and <crypt.h>
-# . Presence or absence of libresolv.a
-#Unlike the previous scheme, this one is easily extended to include more tests.
-#Note: The HAVE_PTMX test was previously "if test -c /dev/ptmx" but this was
-#not sufficient for Debian 2.1, because although it had /dev/ptmx, it did not
-#have grantpt(), unlockpt(), or ptsname(), so has been changed to look for a
-#grantpt() prototype in the header files. Warning: uses a temporary file in
-#the current directory. Modified in 8.0.206 to allow for libraries that
-#contain .so's but no .a's, e.g. Mandrake 9.0.
-#HAVE_BAUDBOY added in 8.0.210 for Red Hat -- it's like AIX ttylock().
-linux:
- @if test \
- `grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
- then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
- else HAVE_PTMX=''; fi; fi ; \
- if test -f /usr/include/baudboy.h ; \
- then HAVE_BAUDBOY='-DHAVE_BAUDBOY' ; \
- else HAVE_BAUDBOY='' ; fi ; \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_NCURSES -I/usr/include/ncurses \
- $$HAVE_PTMX $$HAVE_BAUDBOY \
- `if test -f /usr/include/crypt.h; then echo -DHAVE_CRYPT_H; fi` \
- $(KFLAGS)" \
- "LIBS=-lncurses \
- `if test -f /usr/lib/libresolv.a || test -f /usr/lib/libresolv.so; \
- then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a || test -f /usr/lib/libcrypt.so; \
- then echo -lcrypt; fi`" \
- linuxa
-
-# As above but for Linux systems that have no <sys/select.h>.
-linuxns:
- $(MAKE) linux KTARGET=$${KTARGET:-$(@)} KFLAGS=-DNO_SYS_SELECT_H
-
-# As above, but forces use of curses rather than ncurses.
-# Add -ltermcap to LIBS if necessary.
-# Also watch out for libcurses and/or libtermcap having been moved.
-# In that case you might need something like:
-# "LIBS = -L/usr/lib/curses -lcurses -L/usr/lib/termcap -ltermcap"
-
-linuxc:
- @if test \
- `grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
- then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
- else HAVE_PTMX=''; fi; fi ; \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_CURSES $$HAVE_PTMX \
- `if test -f /usr/lib/libcrypt.a; then echo -DHAVE_CRYPTH; fi` \
- $(KFLAGS)" \
- "LIBS=-lcurses \
- `if test -f /usr/lib/libresolv.a; then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a; then echo -lcrypt; fi`" \
- linuxa
-
-# As above but with with no curses support, for example because you installed
-# the developer tools but did not install (n)curses.
-linuxnc:
- @if test \
- `grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
- then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
- else HAVE_PTMX=''; fi; fi ; \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $$HAVE_PTMX \
- `if test -f /usr/lib/libcrypt.a; then echo -DHAVE_CRYPTH; fi` \
- $(KFLAGS)" "LIBS= \
- `if test -f /usr/lib/libresolv.a; then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a; then echo -lcrypt; fi`" \
- linuxa
-
-#Sharp Zaurus SL-5500 - Linux based
-zsl5500:
- @echo 'Making C-Kermit $(CKVER) for Sharp Zaurus SL-5500...'
- @touch ckcpro.c
- @touch wart
- $(MAKE) linuxnc KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DZSL5500" \
- "CC = gcc" "CC2 = gcc"
-
-# A minimum-size version for Linux that does only scripting and
-# serial communication -- no networks, no file transfer.
-linuxso:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -DLINUX -pipe -funsigned-char -DPOSIX -DCK_POSIX_SIG \
- -DLINUXFSSTND -DNOCOTFMC -DNOXFER -DNODEBUG -DNOCSETS -DNOHELP \
- -DNONET -DMINIDIAL -DNOSCRIPT -DNOIKSD -DNOPUSH $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" "LIBS = "
-
-#Mklinux DR3 has horrible bug in <utmpbits.h> - see ckufio.c.
-mklinux:
- $(MAKE) KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DUTMPBUG" \
- "LIBS=-lcrypt -lresolv" linuxa
-
-#LinuxPPC 1999
-linuxppc:
- @echo 'Making C-Kermit $(CKVER) for LinuxPPC 1999...'
- @if test -f /usr/lib/libcrypt.a; then \
- if test -f /usr/lib/libresolv.a; then \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(NCURSES_CPP) -DHAVE_CRYPT_H \
- -DLOCK_DIR=\\\\\\"\"/var/lock/modem\\\\\\"\" $(KFLAGS)" \
- "LIBS=-lncurses -lresolv -lcrypt" linuxa ; \
- else \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(NCURSES_CPP) -DHAVE_CRYPT_H \
- -DLOCK_DIR=\\\\\\"\"/var/lock/modem\\\\\\"\" $(KFLAGS)" \
- "LIBS=-lncurses -lcrypt" linuxa ; \
- fi \
- else \
- if test -f /usr/lib/libresolv.a; then \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(NCURSES_CPP) \
- -DLOCK_DIR=\\\\\\"\"/var/lock/modem\\\\\\"\" $(KFLAGS)" \
- "LIBS=-lncurses -lresolv" linuxa ; \
- else \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(NCURSES_CPP) \
- -DLOCK_DIR=\\\\\\"\"/var/lock/modem\\\\\\"\" $(KFLAGS)" \
- "LIBS=-lncurses" linuxa ; \
- fi \
- fi
-
-
-# The remaining Linux entries are for special or customized builds. They
-# have not been generalized like the ones above. Ideally, we should allow
-# for every combination of libc vs glibc, gcc vs egcs, curses vs ncurses,
-# Kerberos IV vs Kerberos V vs SRP (in any combination), and so on --
-# volunteers welcome.
-
-# If you get "Internal compiler error xxx, output pipe has been closed",
-# try removing -pipe.
-
-# Like "make linux" but built with egcs rather than gcc.
-linuxegcs:
- @echo 'Making C-Kermit $(CKVER) for Linux 1.2 or later with egcs...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = egcs" "CC2 = egcs" \
- "CFLAGS = -O -DLINUX -pipe -funsigned-char \
- -DPOSIX -DCK_POSIX_SIG -DCK_NCURSES -DNOCOTFMC \
- -DTCPSOCKET -DLINUXFSSTND $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lncurses -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1 (no K4 compatibility).
-linux+krb5:
- @echo 'Making C-Kermit $(CKVER) for Linux on Intel with Kerberos...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CURSES -DCK_POSIX_SIG \
- -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H $(K5INC) $(K5INC)/krb5 \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) -lncurses -ltermcap -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lgssapi_krb5 -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1 with K4 compatibility.
-#
-# Requires the Kerberos 1.2.1 be compiled with KRB4 compatibility.
-linux+krb5+krb4:
- @echo 'Making C-Kermit $(CKVER) for Linux on Intel with Kerberos...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CURSES -DCK_POSIX_SIG \
- -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H $(K5INC) $(K5INC)/krb5 \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) -lncurses -ltermcap -lkrb4 -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lcrypt -lgssapi_krb5 -lresolv"
-
-# Linux on Intel PC with SRP 1.7.4 using GNU MP, Krypto, and Eric Young's
-# DES library. Remove the -DCK_DES, -DLIBDES and -ldes if you do not have
-# Eric Young's# libdes.a installed.
-#
-linux+srp+gmp:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) srpmit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(SRPINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) \
- -lncurses -ltermcap -lsrp -lgmp -ldes -lkrypto -lcrypt -lresolv"
-
-linux+srp+gmp+no-des:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP ...'
- $(MAKE) srpmit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(SRPINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) \
- -lncurses -ltermcap -lsrp -lgmp -lkrypto -lcrypt -lresolv"
-
-linux+srp+gmp-export:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) srpmit-export KTARGET=$${KTARGET:-$(@)} \
- "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DFNFLOAT \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(SRPINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) \
- -lncurses -ltermcap -lsrp -lgmp -lkrypto -lcrypt -lm -lresolv"
-
-linux+srp+gmp+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) srpmit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_PAM -DFNFLOAT $(SRPINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) -lncurses -ltermcap -lsrp -lgmp -ldes -lkrypto \
- -lcrypt -lpam -ldl -lm -lresolv"
-
-#Linux on Intel PC with SRP 1.7.4 built with OpenSSL for Big Number Math
-#and Cryptographic functionality.
-#
-linux+srp:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) srpmit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(SRPINC) $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp -lkrypto -lcrypto -lcrypt -lresolv"
-
-linux+srp+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) srpmit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_PAM -DFNFLOAT $(SRPINC) $(SSLINC) $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(SSLLIB) -lncurses -ltermcap -lsrp -lkrypto \
- -lcrypto -lcrypt -lpam -ldl -lm -lresolv"
-
-linux+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with Shadow+PAM...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_SHADOW -DCK_PAM -DFNFLOAT \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = -lncurses -ltermcap -lcrypt -lpam -ldl -lm -lresolv"
-
-#Linux configured for SSL/TLS.
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt"
-
-#Linux configured for SSL/TLS and Shadow Passwords
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl+shadow:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT -DCK_SHADOW $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt"
-
-#Linux configured for SSL/TLS, ZLIB, PAM and Shadow Passwords
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl+zlib+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT -DCK_SHADOW $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt -lz -lpam -ldl"
-
-#Linux on Intel PC with SRP and SSL/TLS.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 or higher to be compiled with KRB4 compatibility.
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+srp+openssl:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(SRPINC) $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp -lssl -lkrypto -lcrypto \
- -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2 and SRP.
-#
-# libsrp.a should be build with GNU MP (libgmp.a)
-# instead of AT&T CryptoLib (libcrypt.a) due to naming conflicts with
-# standard distribution Linux libraries.
-# Requires the Kerberos 1.2.2 or higher to be compiled with KRB4 compatibility.
-linux+krb5+krb4+srp:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB54+SRP...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SRPINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SRPLIB) \
- -lncurses -ltermcap -lsrp -lgmp -lgssapi_krb5 -lkrypto \
- -ldes -lkrb4 -ldes425 -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, SRP and SSL/TLS.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 or higher to be compiled with KRB4 compatibility.
-# Requires OpenSSL 0.9.6a or higher
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+srp+openssl:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SRPINC) $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SRPLIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp \
- -lkrb4 -lssl -lkrypto -lcrypto \
- -lkrb5 -lcom_err -lk5crypto -lgssapi_krb5 -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, SSL/TLS.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+openssl:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lncurses -ltermcap \
- -lkrb4 -lssl -lcrypto -lkrb5 -lcom_err \
- -lk5crypto -lgssapi_krb5 -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1, SSL/TLS.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+openssl+shadow:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_SHADOW \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lncurses -ltermcap \
- -lkrb4 -lssl -lcrypto -lkrb5 -lcom_err \
- -lk5crypto -lgssapi_krb5 -lcrypt -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2, SSL/TLS.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+openssl+zlib+shadow:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 -DZLIB \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_SHADOW \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lncurses -ltermcap \
- -lkrb4 -lssl -lcrypto -lkrb5 -lcom_err \
- -lk5crypto -lgssapi_krb5 -lcrypt -lresolv -lz"
-
-linux+krb5+krb4+srp-export:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) xermit-export KTARGET=$${KTARGET:-$(@)} \
- "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SRPINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) \
- -lncurses -ltermcap -lsrp -lgmp -lkrb4 -ldes425 -lkrb5 -lgssapi_krb5 \
- -lcom_err -lk5crypto -lkrypto -lcrypt -lresolv"
-
-linux+krb5+krb4+srp+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SRP...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_PAM $(K5INC) $(K5INC)/krb5 $(SRPINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) \
- -lncurses -ltermcap -lsrp -lgmp -ldes -lkrb4 -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lgssapi_krb5 -lkrypto -lcrypt -lpam -ldl \
- -lresolv"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, SRP and SSL/TLS.
-# and PAM.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+srp+openssl+pam-debug:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit-debug KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -w -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG $(K5INC) $(K5INC)/krb5 \
- $(SRPINC) $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp -lkrb4 -lssl -lkrypto -lcrypto \
- -lkrb5 -lcom_err -lk5crypto -lgssapi_krb5 -lcrypt -lresolv -lpam -ldl"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1, SRP and SSL/TLS.
-# and PAM.
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+srp+openssl+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SRPINC) $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap -lsrp \
- -lkrb4 -lssl -lkrypto -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, SRP, OpenSSL
-# with ZLIB and PAM
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+srp+openssl+zlib+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SRPINC) $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap -lsrp \
- -lkrb4 -lssl -lkrypto -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl -lz"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, SRP, OpenSSL
-# with ZLIB, Shadow Passwords, and PAM
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+srp+openssl+zlib+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SRP -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_SHADOW $(K5INC) $(K5INC)/krb5 $(SRPINC) $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap -lsrp -lkrypto \
- -lkrb4 -lssl -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl -lz"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, OpenSSL
-# with Shadow Passwords, PAM
-#
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-linux+krb5+krb4+openssl+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SSL,...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_SHADOW $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap \
- -lkrb4 -lssl -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, OpenSSL
-# with ZLIB, Shadow Passwords, PAM
-#
-# libsrp.a should be build with OpenSSL
-# Requires the Kerberos 1.2.2 be compiled with KRB4 compatibility.
-# If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+krb5+krb4+openssl+zlib+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB,SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_SHADOW $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap \
- -lkrb4 -lssl -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl -lz"
-
-#Red Hat 9 - full install includes Kerberos 5 (4 compat), PAM, SSL.
-#Also works around bug in curses in which terminal goes dead after
-#returning from file-transfer display. Assumes OpenSSL 0.9.7 or later.
-redhat9:
- @echo "Building SECURE Kermit for Red Hat 9.0..."
- $(MAKE) linux+krb5+krb4+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH90 -DOPENSSL_097 $(KFLAGS)"
-
-#Ditto plus SRP (which is not normally included with RH Linux).
-redhat9+srp:
- @echo "Building SECURE Kermit for Red Hat 9.0..."
- $(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH90 -DOPENSSL_097 $(KFLAGS)"
-
-#Red Hat Linux 8.0 - full install includes Kerberos 5 (4 compat), PAM, SSL.
-#Also works around bug in curses in which terminal goes dead after
-#returning from file-transfer display.
-redhat80:
- @echo "Building SECURE Kermit for Red Hat 8.0..."
- $(MAKE) linux+krb5+krb4+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH80 $(KFLAGS)"
-
-redhat80+srp:
- @echo "Building SECURE Kermit for Red Hat 8.0..."
- $(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH80 $(KFLAGS)"
-
-#Red Hat Linux 7.3 - full install includes Kerberos 5 (4 compat), PAM, SSL.
-#Also works around bug in curses in which terminal goes dead after
-#returning from file-transfer display.
-redhat73:
- @echo "Building SECURE Kermit for Red Hat 7.3..."
- $(MAKE) linux+krb5+krb4+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH73 $(KFLAGS)"
-
-redhat73+srp:
- @echo "Building SECURE Kermit for Red Hat 7.3..."
- $(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH73 $(KFLAGS)"
-
-#Red Hat Linux 7.2 - full install includes Kerberos 5 (4 compat), PAM, SSL.
-#Also works around bug in curses in which terminal goes dead after
-#returning from file-transfer display.
-redhat72:
- @echo "Building SECURE Kermit for Red Hat 7.2..."
- $(MAKE) linux+krb5+krb4+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH72 $(KFLAGS)"
-
-redhat72+srp:
- @echo "Building SECURE Kermit for Red Hat 7.2..."
- $(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH72 $(KFLAGS)"
-
-#Red Hat Linux 7.1 - full install includes Kerberos 5 (4 compat), PAM, SSL.
-#Also works around bug in curses in which terminal goes dead after
-#returning from file-transfer display.
-redhat71:
- @echo "Building SECURE Kermit for Red Hat 7.1..."
- $(MAKE) linux+krb5+krb4+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH71 $(KFLAGS)"
-
-redhat71+srp:
- @echo "Building SECURE Kermit for Red Hat 7.1..."
- $(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH71 $(KFLAGS)"
-
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.2, OpenSSL
-# with ZLIB and PAM and Shadow passwords
-linux+krb5+openssl+zlib+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB5,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DCK_SHADOW \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- $(K5INC) $(K5INC)/krb5 $(SSLINC) \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) $(SSLLIB) \
- -lm -lncurses -ltermcap -lssl -lcrypto -lgssapi_krb5 \
- -lkrb5 -lcom_err -lk5crypto -lcrypt -lresolv -lpam -ldl -lz"
-
-linuxnotcp:
- $(MAKE) linux KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DNONET $(KFLAGS)"
-
-# "make linuxnotcp" with lcc (see http://www.cs.princeton.edu/software/lcc)
-# lcc does not understand various gcc extensions:
-# "__inline__" -- can be eliminated by adding "-D__inline__="
-# "__asm__ and "long long" -- in header files, should be surrounded by
-# "#ifndef(__STRICT_ANSI__)"/"#endif"
-# however, TCP requires some __asm__ functions, so cannot be compiled
-linuxnotcp-lcc:
- @echo 'Making C-Kermit $(CKVER) for Linux with lcc ...'
- @echo 'Read comments in makefile for additional information.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = lcc" "CC2 = lcc" \
- "CFLAGS = -DLINUX -DPOSIX -DCK_CURSES -DCK_POSIX_SIG \
- -UTCPSOCKET -DLINUXFSSTND -DNOLEARN $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lcurses -ltermcap"
-
-# Linux 0.99.14 thru 1.0 with gcc, dynamic libraries, curses, TCP/IP.
-# For Linux 1.2 or later, use "make linux" (above).
-#
-# -DLINUXFSSTND (Linux File System Standard) gives UUCP lockfile /var/lock with
-# string pid. Remove this and get /usr/spool/uucp with int pid, which was used
-# in early Linux versions.
-#
-# If you get compiler errors regarding <linux/serial.h>, add -DNOHISPEED.
-#
-# -DCK_POSIX_SIG (POSIX signal handling) is good for Linux releases back to at
-# least 0.99.14; if it causes trouble for you, just remove it.
-#
-# -DCK_CURSES: Here we link with the regular curses library. But you should
-# be using ncurses. Internally, the ckuusx.c module includes <curses.h>, but
-# this really should be <ncurses.h>. Thus if you have the new curses
-# material, you should either install it with the standard names, or else
-# create symbolic links from the standard names to the new ones. If you get
-# compile-time errors complaining about data definitions in termcap.h, it
-# means you have new kernel material mixed with older libc header files. To
-# fix, add "#include <termios.h>" to the <termcap.h> file. Or if all this is
-# too confusing, create a new makefile entry based on this one, but with
-# -DCK_CURSES removed from CFLAGS and the entire LIBS= clause removed.
-#
-# But wait, there's more. On most Linux systems, -ltermcap must be included
-# in LIBS. But on others, the linker complains that libtermcap can't be
-# found. In that case, try removing -ltermcap from LIBS=.
-#
-# But wait, there's more. The format of the PID string in the UUCP lockfile
-# changed between Linux FSSTND 1.0 and 1.2. In the earlier standard, it had
-# leading zeros; in the second, it has leading spaces. By default this entry
-# uses the newer standard. To force the older one, add -DFSSTND10.
-#
-# "The nice thing about the Linux standard is there are so many to choose from"
-#
-# NOTE: Remove -DBIGBUFOK for small-memory or limited-resource systems.
-linux10:
- @echo 'Making C-Kermit $(CKVER) for Linux 1.0 or earlier...'
- @echo 'IMPORTANT: Read the comments in the linux section of the'
- @echo 'makefile if you get compilation or link errors.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -DPOSIX -DCK_CURSES -DCK_POSIX_SIG -DLINUX \
- -DTCPSOCKET -DLINUXFSSTND -DOLINUXHISPEED -DNOLEARN $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lcurses -ltermcap"
-
-#This version was used for Linux prior to C-Kermit 6.0.192.
-#Now the "Linux File System Standard" is considered standard, ditto TCP/IP.
-linuxold:
- @echo 'Making C-Kermit $(CKVER) for Linux...'
- @echo 'For FSSTND-recommended UUCP lockfiles, use:'
- @echo ' make linux "KFLAGS=-DLINUXFSSTND".'
- @echo 'Read comments in makefile for additional options.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -DLINUX -DPOSIX -DCK_CURSES -DCK_POSIX_SIG -DNOLEARN \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lcurses -ltermcap"
-
-# LynxOS 2.2 with GCC compiler, TCP/IP and fullscreen display.
-# Probably also works with Lynx 2.1, and maybe even Lynx 2.0.
-# -X means use termios serial drivers rather than BSD4.3-style sgtty drivers.
-# If you have trouble with this, try "make bsd KFLAGS=-DNOFDZERO".
-lynx:
- @echo 'Making C-Kermit $(CKVER) for LynxOS 2.2 with TCP/IP'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -O -DPOSIX -DDIRENT -DSETREUID -DCK_CURSES -DTCPSOCKET \
- -DCK_ANSIC -DLYNXOS -DNOLEARN" "LNKFLAGS = -X" "LIBS = -lcurses -lbsd"
-
-lynx22:
- $(MAKE) lynx KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS)"
-
-# LynxOS 2.1 with GCC compiler 1.40 and TCP/IP.
-lynx21:
- @echo 'Making C-Kermit $(CKVER) for LynxOS 2.1 with TCP/IP'
- $(MAKE) kermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -O -DSETREUID -DTCPSOCKET -DCK_ANSIC -DBSD4 -DLYNXOS" \
- "LIBS = -lbsd"
-
-#SCO Xenix 2.2.1 for IBM PC, XT, PS2/30, or other 8088 or 8086 machine
-#Should this not work, try some of the tricks from sco286.
-#NOTE: -DRENAME is omitted for early SCO Xenix releases because it didn't
-#exist, or its semantics were different from the later POSIX-compliant
-#version of rename().
-sco86:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/86...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DNOFILEH -DNOIKSD -DNOUNICODE -DNOLEARN \
- $(KFLAGS) -Dunix -F 3000 -i -M0me" \
- "LNKFLAGS = -F 3000 -i -s -M0me" "LIBS = -lx"
-
-#SCO Xenix/286 2.2.1, e.g. for IBM PC/AT, PS/2 Model 50, etc.
-#Reportedly, this "make" can fail simply because of the size of this
-#makefile. If that happens, use "makeL", or edit out some of the
-#other entries. No debugging or character-set translation.
-sco286:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/286...'
- @echo 'If make fails, try using makeL.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -xenix -s -O -LARGE -DXENIX -DNOFILEH -Dunix -DRDCHK -DNAP \
- -DNOIKSD -DNODEBUG -DNOTLOG -DNOCSETS -DNOLEARN \
- $(KFLAGS) -F 3000 -i -M2let16" \
- "LIBS = -lx" "LNKFLAGS = -xenix -s -O -LARGE -F 3000 -i -M2let16"
-
-#SCO Xenix/286 2.2.1, e.g. for IBM PC/AT, PS/2 Model 50, etc.
-#As above, but with HDBUUCP (This one might need fixing -- see sco286).
-sco286hdb:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/286 with HDB UUCP...'
- @echo 'If make fails, try using makeL.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -s -O -LARGE -DXENIX -DNOFILEH -Dunix -DRDCHK -DNAP \
- -DHDBUUCP -DNOIKSD -DNOUNICODE -DNOLEARN \
- $(KFLAGS) -F 3000 -i -M2let32" \
- "LIBS = -lx" "LNKFLAGS = -s -O -LARGE -F 3000 -i -M2let32"
-
-#SCO Xenix/386 2.2.2 and 2.2.3
-sco386:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/386 2.2.2...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DNOFILEH -DNOIKSD -DNOREDIRECT -DNOLEARN \
- -Dunix -DRDCHK -DNAP -DNOUNICODE $(KFLAGS) -Otcl -M3e" \
- "LNKFLAGS = -s" "LIBS = -lx"
-
-#SCO XENIX/386 2.2.3 with Excelan TCP/IP + curses.
-# NOTE: This one might need some work in C-Kermit 6.0.
-# You might need to include /usr/include/sys/types.h
-# containing "typedef char *caddr_t;". Then at least it compiles.
-sco386netc:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/386 2.2.3 + Excelan TCP'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -I/usr/include/exos -DXENIX -DCK_CURSES -DNOUNICODE \
- -Dunix -DRDCHK -DNAP -DTCPSOCKET -DEXCELAN -DNOJC -DNOMKDIR -DNOFILEH \
- -DNOLEARN -DNOREDIRECT -DNOIKSD -DNO_DNS_SRV $(KFLAGS) -Otcl -M3e" \
- "LNKFLAGS = -s" "LIBS = -lc -lx -lsocket -lcurses -ltermcap"
-
-#SCO XENIX/386 2.3.3 with gcc 1.37 or later...
-sco386gcc:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/386 2.3.3, gcc...'
- @echo 'Add -D_NO_PROTOTYPE if you have trouble with Xenix header files'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -O -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP \
- -DNOJC -DNODEBUG -DNOUNICODE -DNOLEARN $(KFLAGS) \
- -traditional -fpcc-struct-return -fstrength-reduce \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 \
- -DM_SYSIII -DM_SYSV -DM_WORDSWAP -DM_XENIX -DNOIKSD -DNOREDIRECT \
- -DPWID_T=int " "LNKFLAGS = -s" "LIBS = -lx"
-
-#As above, but with curses...
-sco386gccc:
- @echo 'Making C-Kermit $(CKVER) for SCO Xenix/386 2.3.3, gcc...'
- @echo 'Add -D_NO_PROTOTYPE if you have trouble with Xenix header files'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -O -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP \
- -DNOJC -DNODEBUG -DCK_CURSES -DNOUNICODE -DNOLEARN $(KFLAGS) \
- -traditional -fpcc-struct-return -fstrength-reduce \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM -DNOREDIRECT \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 \
- -DM_SYSIII -DM_SYSV -DM_WORDSWAP -DM_XENIX -DNOIKSD \
- -DPWID_T=int " "LNKFLAGS = -s" "LIBS = -lx -lcurses -ltermlib"
-
-#SCO UNIX (and ODT) entries...
-#
-#NOTE: All SCO UNIX entry LIBS should have "-lc_s -lc -lx" IN THAT ORDER (if
-#shared C library is desired), or else "-lc -lx" IN THAT ORDER. Use shared C
-#libraries to save memory, but then don't expect to run the resulting binary
-#on a different machine. When using -lc_s, you must also use -lc, because the
-#shared C library does not contain all of libc.a. And in all cases, -lc must
-#ALWAYS precede -lx.
-#
-#ANOTHER NOTE: -DRENAME is included in all SCO UNIX entries. Remove it if it
-#causes trouble. No harm is done by removing it (see ckuins.txt).
-#
-#AND ANOTHER: In theory, it should be possible to run SCO UNIX binaries on
-#SCO Xenix 2.3 and later. In practice, this might not work because of the
-#libraries, etc. Also, don't add the -link -z switch (which is supposed to
-#root out references to null pointers) because it makes UNIX binaries core
-#dump when they are run under Xenix.
-
-#NOTE: -Otcl removed and replaced by -O, since -Otcl produced incorrect code.
-#SCO UNIX/386 3.2.0, 3.2.1, and SCO Xenix 2.3.x
-sco3r2:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2.0 or 3.2.1 ...'
- @echo 'Warning: If make blows up, edit the makefile to join'
- @echo 'the following three continued lines into one line.'
- @echo 'Also, remove -DRENAME if _rename unresolved at link time.'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP -DNOLEARN \
- -DRENAME -DNOIKSD -DNOJC $(KFLAGS) -O" \
- "LNKFLAGS = -s" "LIBS = -lc -lx"
-
-#SCO UNIX/386 3.2.0 and SCO Xenix 2.3.x with Excelan TCP/IP support.
-#In case of compilation or runtime problems, try adding
-#"-DUID_T=int -DGID_T=int" to the CFLAGS. If that doesn't work, try
-#"-DUID_T=uid_t -DGID_T=gid_t".
-sco3r2net:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 / Excelan...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -I/usr/include/exos -DXENIX -DSVR3 -DNOFILEH -DNOLEARN \
- -DHDBUUCP -DRDCHK -DNAP -DRENAME -DTCPSOCKET -DEXCELAN -DNOJC \
- -DNOIKSD -DNOREDIRECT $(KFLAGS) -O" \
- "LNKFLAGS = -s" "LIBS = -lc -lx -lsocket"
-
-#SCO UNIX/386 3.2.0 and SCO Xenix 2.3.x with Excelan TCP/IP support.
-#As above, with curses added.
-sco3r2netc:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 / Excelan / curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -I/usr/include/exos -DXENIX -DSVR3 -DNOFILEH -DNOLEARN \
- -DHDBUUCP -DRDCHK -DNAP -DTCPSOCKET -DEXCELAN -DNOJC $(KFLAGS) \
- -DRENAME -DCK_CURSES -DNOREDIRECT -DNOIKSD -O" "LNKFLAGS = -s" \
- "LIBS = -lc -lx -lsocket -lcurses -ltermcap"
-
-#SCO UNIX 3.2.x or SCO Xenix 2.3.x with Racal InterLan TCP/IP support
-# Extra compile flags for other version of Racal InterLan TCP/IP:
-# Xenix286/NP621-286, use -Ml -DPARAMH -DINTERLAN -Di286 -DSYSV
-# Xenix386/NP621-386, use -DPARAMH -DINTERLAN -Di386 -DSYSV
-# ISC386ix/NP622I, use -DSYSV -Di386
-# SCO Unix3.2/NP622S, use -DSYSV -Di386 -DSCO_UNIX
-# AT&T SVR3.2/NP622A, use -DSYSV -Di386 -DATT
-sco3r2netri:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 / Racal InterLan...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -I/usr/include/interlan -DXENIX -DNOFILEH -DHDBUUCP \
- -DSVR3 -DRDCHK -DNAP -DTCPSOCKET -DPARAMH -DINTERLAN -Di386 -DSYSV \
- -DRENAME -DNOREDIRECT -DNOIKSD -DNOJC -DNOLEARN $(KFLAGS) -Otcl -M3e" \
- "LNKFLAGS = -s" "LIBS = -lc -lx -ltcp"
-
-# SCO XENIX/386 2.3.3 SysV with SCO TCP/IP
-# System V STREAMS TCP developed by Lachman Associates Inc and
-# Convergent Technologies.
-# -DRENAME removed since some reports indicate it is not supported
-# (whereas others say it is.)
-sco3r2lai:
- @echo 'Making C-Kermit $(CKVER) for SCO XENIX/386 2.3.3 + TCP/IP...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DLAI_TCP -Di386 -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK \
- -DNAP -DTCPSOCKET -DPWID_T=int -DNOREDIRECT -DNOIKSD -DNOLEARN \
- $(KFLAGS) -Otcl -i -M3e" \
- "LNKFLAGS = -i -s" "LIBS = -lc -lx -lsocket"
-
-sco3r2laic:
- @echo 'Making C-Kermit $(CKVER) for SCO XENIX/386 2.3.3 + TCP/IP...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DLAI_TCP -Di386 -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK \
- -DNAP -DTCPSOCKET -DCK_ANSIC -DCK_CURSES -DM_TERMINFO -DNOLEARN \
- -DPWID_T=int -DNOREDIRECT -DNOIKSD $(KFLAGS) -Otcl -i -M3e" \
- "LNKFLAGS = -i -s" "LIBS = -ltinfo -lc -lx -lsocket"
-
-#SCO UNIX/386 3.2v2 (POSIX job control), shared libraries.
-sco3r22:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v2 ...'
- make wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNOLEARN \
- -DNAP -DRENAME -DPID_T=pid_t -DPWID_T=int -DDIRENT -DNOIKSD \
- -DNOREDIRECT $(KFLAGS) -O" \
- "LNKFLAGS = -s" "LIBS = -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v2, POSIX job control, fullscreen file transfer display,
-#dynamic memory allocation, shared C library
-sco3r22c:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v2 ...'
- @echo 'Warning: If make blows up, edit the makefile to join'
- @echo 'the following four continued lines into one line.'
- make wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP -DNOLEARN \
- -DCK_CURSES -DDIRENT -DRENAME -DNOREDIRECT -DNOIKSD \
- -DPID_T=pid_t -DPWID_T=int $(KFLAGS) -O" \
- "LNKFLAGS = -s" "LIBS = -lcurses -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v2 with gcc 1.40 or later (POSIX job control)
-sco3r22gcc:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v2, gcc'
- @echo 'Warning: If make blows up, edit the makefile to join'
- @echo 'the following seven continued lines into one line.'
- make wermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" \
- "CFLAGS= -O -DPOSIX -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP \
- -DNOLEARN -DRENAME -traditional -fpcc-struct-return -fstrength-reduce \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 \
- -DM_SYSIII -DM_SYSV -DM_UNIX -DM_WORDSWAP -DM_XENIX -Dunix \
- -DPID_T=pid_t -DPWID_T=int -DNOREDIRECT -DNOIKSD $(KFLAGS) " \
- "LNKFLAGS = -s" "LIBS = -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v2 (ODT 1.1) (POSIX job control) with SCO TCP/IP, shared libs
-#Requires SCO TCP/IP or ODT development system for telnet.h, etc.
-sco3r22net:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2.2 + TCP/IP...'
- @echo 'Warning: If make blows up, edit the makefile to join'
- @echo 'the following three continued lines into one line.'
- make xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP -DTCPSOCKET \
- -DRENAME -DPID_T=pid_t -DPWID_T=int -DDIRENT -DNOREDIRECT -DNOIKSD \
- $(KFLAGS) -O" "LNKFLAGS = -s" "LIBS = -lsocket -lc_s -lc -lx"
-
-#As above, but with curses for fullscreen file transfer display.
-#Requires SCO TCP/IP or ODT development system for telnet.h, etc.
-sco3r22netc:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v2 + TCP/IP...'
- @echo 'Warning: If make blows up, edit the makefile to join'
- @echo 'the following three continued lines into one line.'
- make xermit KTARGET=$${KTARGET:-$(@)} "CFLAGS= \
- -DXENIX -DSVR3 -DNOFILEH -DHDBUUCP -DRDCHK -DNAP -DTCPSOCKET -DRENAME \
- -DCK_CURSES -DDIRENT -DNOIKSD -DNOREDIRECT \
- -DPID_T=pid_t -DPWID_T=int -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lcurses -lsocket -lc_s -lc -lx"
-
-#SCO XENIX 2.3.4, no curses, no TCP/IP, no IKSD.
-#This one built and tested in C-Kermit 7.0.
-#lcfp is C library floating-point support.
-#Use -M3 to generate 32-bit i386 code instead of 16-bit segmented i286 code.
-#Use -Me to enable MS nonstandard keywords in system headers.
-#Use -W2 or W3 to increase the warning level.
-sco234:
- @echo 'Making C-Kermit $(CKVER) for SCO XENIX 2.3.4...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSCO32 -DXENIX -DNOFILEH -DHDBUUCP -DRDCHK -DNOLEARN \
- -DNAP -DNOJC -DNOCOTFMC -DNOIKSD -DNOREDIRECT -DNOTNCODE -DNOGFTIMER \
- -DNOTIMEVAL -DNOTIMEZONE -DNOSYMLINK -DSCO234 -DDCLGETCWD $(KFLAGS) \
- -Otcl" "LNKFLAGS = -s" "LIBS = -lcfp -lc -lx"
-
-#SCO XENIX 2.3.4, no TCP/IP, no IKSD, but with curses.
-# Built and tested in C-Kermit 7.0.
-# Note: XENIX 2.3.4 does not have newterm() so no point in adding -DCK_NEWTERM.
-sco234c:
- @echo 'Making C-Kermit $(CKVER) for SCO XENIX 2.3.4 + curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSCO32 -DXENIX -DNOFILEH -DHDBUUCP -DRDCHK -DNOLEARN \
- -DNAP -DNOJC -DNOCOTFMC -DNOIKSD -DNOREDIRECT -DNOTNCODE -DNOGFTIMER \
- -DNOTIMEVAL -DNOTIMEZONE -DNOSYMLINK -DCK_CURSES -DSCO234 \
- -DDCLGETCWD $(KFLAGS) -Otcl" \
- "LNKFLAGS = -s" "LIBS = -lcfp -lc -ltinfo -lx"
-
-#SCO XENIX 2.3.4 with SCO TCP/IP and curses, no IKSD.
-# Built and tested in C-Kermit 7.0. TCP/IP works and curses works.
-# Previous versions of this target included -lmalloc, but this caused "error:
-# " _calloc : symbol defined more than once" at link time so I removed it.
-# Results are likely to vary depending on exactly which version of the SDK
-# and TCP/IP SDK you have.
-sco234netc:
- @echo 'Making C-Kermit $(CKVER) for SCO XENIX 2.3.4 + TCP + curses...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DSCO32 -DXENIX -DNOFILEH -DHDBUUCP -DRDCHK -DNOLEARN \
- -DNAP -DNOJC -DNOCOTFMC -DNOIKSD -DNOREDIRECT -DNOTNCODE -DNOGFTIMER \
- -DNOTIMEVAL -DNOTIMEZONE -DNOSYMLINK -DCK_CURSES -DSCO234 \
- -DDCLGETCWD -DTCPSOCKET -DNO_DNS_SRV $(KFLAGS) -Otcl" \
- "LNKFLAGS = -s" "LIBS = -ltinfo -lsocket -lcfp -lc -lx"
-
-# SCO 3.2v4.x targets...
-
-# NOTE: Add -DDCLPOPEN and/or -DDCLFDOPEN to anySCO 3.2v4.x non-gcc entries
-# that complain about fdopen() or popen() at compile time. They compile OK
-# without these flags as of July 1999. However, the gcc entries seem to
-# need them, at least for gcc 2.7.2.2.
-
-# NOTE 2: To enable IKSD support, add:
-# -DCK_LOGIN -DNOGETUSERSHELL -DNOINITGROUPS
-# to CFLAGS (not tested).
-
-#SCO UNIX/386 3.2v4 (POSIX job control), curses, ANSI C compilation,
-#<dirent.h> (EAFS) file system. Remove -lmalloc if it causes trouble. It was
-#put there to avoid core dumps caused by regular libc.a malloc. Add -J to make
-#all chars unsigned. This version uses select() for CONNECT and also has
-#high-precision timers and so might not work on non-TCP systems, in which case
-#sco32v4ns should be used instead.
-# If you get _ftime redefinition_ complaint, try adding -DODT30 to CFLAGS.
-sco32v4:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v4...'
- make xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DCK_SCO32V4 -DNOFILEH -DHDBUUCP -DCK_CURSES -DM_TERMINFO \
- -DNOANSI -DSELECT -DNOIKSD -DDCLGETCWD -NOLSTAT \
- -DNOLINKBITS -DDCLGETCWD $(KFLAGS) -O" \
- "LNKFLAGS = -s" "LIBS = -lcurses -lmalloc -lsocket -lc_s -lc -lx"
-
-# As above, but with no dependence on sockets library or select().
-sco32v4ns:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v4...'
- @echo 'No select() and no sockets library.'
- make wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DCK_SCO32V4 -DNOFILEH -DHDBUUCP -DCK_CURSES -DM_TERMINFO \
- -DNOANSI -DNOIKSD -DNOGFTIMER -DCK_POLL -DNAP -DDCLGETCWD -DNOLSTAT \
- -DNOLINKBITS -DDCLGETCWD -DNOLEARN -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lcurses -lmalloc -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v4 (POSIX job control), TCP/IP, curses, ANSI C compilation,
-#<dirent.h> (EAFS) file system. With DIRENT, -lc must come before -lx.
-#Reportedly it's OK to add -DCK_REDIR and -DCK_WREFRESH, and to remove -lc_s.
-#Requires SCO TCP/IP development system or ODT for telnet.h, etc.
-#See sco32v4 above for additional comments.
-#NOTE: No more room for -Dxxx -- 25 seems to be the limit. Move some to
-#ckcdeb.h or somewhere...
-sco32v4net:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v4...'
- @echo 'If you get _ftime redefinition_ complaint,'
- @echo 'use make sco-odt30.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNOFILEH -DHDBUUCP -DTCPSOCKET -DCK_ANSIC -DCK_CURSES \
- -DNAP -DCK_WREFRESH -DNOLINKBITS -D_IBCS2 -DSELECT -DNOLSTAT \
- -DDCLGETCWD -DCK_SCO32V4 -DNOIKSD -O \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS) -s" \
- "LIBS = $(LIBS) -lcurses -lsocket -lmalloc -lsocket -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v4 with gcc 1.40 or later, POSIX job control.
-#Also see comments in sco32r4 entry.
-sco32v4gcc:
- make xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" \
- "CFLAGS= -O -DNOFILEH -DHDBUUCP -DNOANSI -DCK_CURSES -DM_TERMINFO \
- -traditional -fpcc-struct-return -fstrength-reduce -funsigned-char \
- -D_KR -D_NO_PROTOTYPE -D_SVID -DNOIKSD -DCK_SCO32V4 -DNOLINKBITS \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM -DSELECT -DNOLSTAT \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 -DDCLGETCWD \
- -DM_SYSIII -DM_SYSV -DM_UNIX -DM_WORDSWAP -DM_XENIX -Dunix \
- -DDCLPOPEN -DDCLFDOPEN $(KFLAGS) " \
- "LNKFLAGS = -s" "LIBS = -lcurses -lsocket -lc_s -lc -lx"
-
-#SCO UNIX/386 3.2v4 (POSIX job control), TCP/IP, curses, ANSI C compilation,
-#Requires SCO TCP/IP or ODT development system for telnet.h, etc.
-#<dirent.h> (EAFS) file system. With DIRENT, -lc must come before -lx.
-#gcc 1.40 or later. Also see comments in sco32r4 entry.
-sco32v4netgcc:
- make xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2=gcc" \
- "CFLAGS= -O2 -DNOFILEH -DHDBUUCP -DSELECT -DNOLSTAT \
- -DNOANSI -DTCPSOCKET -DCK_CURSES -DM_TERMINFO \
- -D_KR -D_NO_PROTOTYPE -D_SVID -DNOIKSD -DCK_SCO32V4 -DNOLINKBITS \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM -DDCLGETCWD \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 \
- -DM_SYSIII -DM_SYSV -DM_UNIX -DM_WORDSWAP -DM_XENIX -Dunix \
- -DDCLPOPEN -DDCLFDOPEN $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lcurses -lsocket -lc_s -lc -lx"
-
-#As above but with bgcc BOUNDS CHECKING (for developers only). -lcheck has
-#bounds-checking replacements for malloc, memcpy, bcopy, etc, so must come
-#before -lsocket and -lc.
-sco32v4netbgcc:
- make xermit KTARGET=$${KTARGET:-$(@)} \
- "CC = bgcc -pipe -m386" "CC2=bgcc -pipe -m386" \
- "CFLAGS= -O1 -g -DNOFILEH -DHDBUUCP -DSELECT \
- -DNOANSI -DTCPSOCKET -DCK_CURSES -DM_TERMINFO \
- -D_KR -D_NO_PROTOTYPE -D_SVID -DNOIKSD -DCK_SCO32V4 -DNOLSTAT \
- -DM_BITFIELDS -DM_COFF -DM_I386 -DM_I86 -DM_I86SM -DNOLINKBITS \
- -DM_INTERNAT -DM_SDATA -DM_STEXT -DM_SYS3 -DM_SYS5 -DDCLGETCWD \
- -DM_SYSIII -DM_SYSV -DM_UNIX -DM_WORDSWAP -DM_XENIX -Dunix \
- -DDCLPOPEN -DDCLFDOPEN $(KFLAGS) " \
- "LNKFLAGS = -g" "LIBS = -lcurses -lcheck -lsocket -lx"
-
-sco32v4netnd:
- @echo sco32v4net with no debug
- $(MAKE) "MAKE=$(MAKE)" sco32v4net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DNODEBUG -DNOTLOG" "LIBS=$(LIBS)"
-
-sco3r2netnd:
- @echo sco32v4netnd built for SCO XENIX 2.3 under SCO UNIX...
- @echo requires copying /lib/386/Slibc.a to /lib/386/Slibc_s.a and
- @echo getting /lib/386/Slibsocket.a from a XENIX devkit.
- @echo WARNING: poll/CK_POLL supported only on XENIX 2.3.4
- echo For earlier XENIX systems, replace CK_POLL with RDCHK.
- $(MAKE) "MAKE=$(MAKE)" sco32v4netnd KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -x2.3 -DNORENAME -DNOSYMLINK" \
- "LNKFLAGS = $(LNKFLAGS) -x2.3" \
- "LIBS=-ldir -lcfp $(LIBS)"
-
-#SCO UNIX/386 3.2v4 (POSIX job control), TCP/IP, curses, ANSI C compilation,
-#<dirent.h> (EAFS) file system. With DIRENT, -lc must come before -lx.
-#Reportedly it's OK to add -DCK_REDIR and -DCK_WREFRESH, and to remove -lc_s.
-#Requires SCO TCP/IP development system or ODT for telnet.h, etc.
-#See sco32v4 above for additional comments.
-# Note: "xermit" means use the select() version of the CONNECT module.
-sco32v4netx:
- @echo 'Making C-Kermit $(CKVER) for SCO UNIX/386 3.2v4...'
- @echo 'If you get _ftime redefinition_ complaint,'
- @echo 'use make sco-odt30.'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DNOFILEH -DHDBUUCP -DTCPSOCKET -DCK_ANSIC -DCK_CURSES -DNAP \
- -DCK_WREFRESH -DNOLINKBITS -D_IBCS2 -DSELECT -DDCLGETCWD \
- -DCK_SCO32V4 -DNOIKSD -DNOLSTAT -O $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS) -s" \
- "LIBS = $(LIBS) -lcurses -lsocket -lmalloc -lsocket -lc_s -lc -lx"
-
-sco32v4netndx:
- @echo sco32v4netx with no debug
- $(MAKE) "MAKE=$(MAKE)" sco32v4netx KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DNODEBUG -DNOTLOG" "LIBS=$(LIBS)"
-
-sco3r2netndx:
- @echo sco32v4netndx built for SCO XENIX 2.3 under SCO UNIX...
- @echo requires copying /lib/386/Slibc.a to /lib/386/Slibc_s.a and
- @echo getting /lib/386/Slibsocket.a from a XENIX devkit.
- @echo WARNING: poll/CK_POLL supported only on XENIX 2.3.4
- echo For earlier XENIX systems, replace CK_POLL with RDCHK.
- $(MAKE) "MAKE=$(MAKE)" sco32v4netndx KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -x2.3 -DNORENAME -DNOSYMLINK" \
- "LNKFLAGS = $(LNKFLAGS) -x2.3" \
- "LIBS=-ldir -lcfp $(LIBS)"
-
-sco-odt30:
- @echo SCO ODT 3.0
- $(MAKE) "MAKE=$(MAKE)" sco32v4net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS) -DODT30"
-
-#SCO OpenServer 5.0 (SCO UNIX 3.2v5.0) with SCO development tools, no TCP/IP.
-#SCO OSR5 is much more like standard System V than previous SCO releases.
-#The SCO development tools include TCP/IP, so this target is only for creating
-#artificially limited versions of kermit required by site policy rather than
-#the operating system. NOSYSLOG is included because syslog() requires the
-#sockets library.
-sco32v500:
- @echo Making C-Kermit $(CKVER) for SCO OpenServer Release 5...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DNOSYSLOG \
- $(KFLAGS)" \
- "LIBS=-lcurses $(LIBS)" "LNKFLAGS=$(LNKFLAGS)"
-
-sco32v5:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" sco32v500
-
-
-#SCO OpenServer 5.0 with networking, SCO development tools.
-#Networking libraries are now provided with the OS.
-sco32v500net:
- @echo Making C-Kermit $(CKVER) for SCO OpenServer Release 5...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DTCPSOCKET \
- -DNO_DNS_SRV $(KFLAGS)" \
- "LIBS=-lcurses -lsocket $(LIBS)" "LNKFLAGS=$(LNKFLAGS)"
-
-sco32v5net:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" sco32v500net
-
-#SCO OpenServer 5.0 with networking and OpenSSL, SCO development tools.
-#Networking libraries are now provided with the OS.
-sco32v500net+ssl:
- @echo Making C-Kermit $(CKVER) for SCO OSR5 with OpenSSL...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -O -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DTCPSOCKET \
- -DNO_DNS_SRV -DCK_AUTHENTICATION -DCK_SSL -DCK_TRIGGER \
- $(SSLINC) $(SSLLIB) $(KFLAGS)" \
- "LIBS=$(SSLLIB) -lcurses -lsocket -lssl -lcrypto $(LIBS)" \
- "LNKFLAGS=$(LNKFLAGS)"
-
-#SCO OpenServer 5.0 with gcc, no networking.
-#Note: NOSYSLOG required for non-net entries because it requires <socket.h>
-sco32v500gcc:
- @echo Using gcc...
- $(MAKE) "MAKE=$(MAKE)" sco32v500CC=gcc CC2=gcc \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS= $(KFLAGS)"
-
-#SCO OpenServer 5.0 with networking, gcc.
-sco32v500netgcc:
- @echo TCP/IP networking added - using gcc...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net CC=gcc CC2=gcc \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS)"
-
-#SCO OpenServer 5.0 with networking, gcc, elf.
-sco32v500netgccelf:
- @echo TCP/IP networking added - using gcc, dynamic elf library
- $(MAKE) "MAKE=$(MAKE)" sco32v500net "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=-O3 -belf" "LNKFLAGS=-belf"
-
-sco32v502:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR502 $(KFLAGS)"
-
-#SCO OpenServer 5.0.2 with networking, SCO development tools.
-sco32v502net:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-b elf -DSCO_OSR502 $(KFLAGS)"
-
-#SCO OpenServer 5.0.4 (SCO UNIX 3.2v5.0.4) with SCO development tools.
-#Like 5.0, but adds high serial speeds. First POSIX-based SCO version.
-#Note: the -O flag is deliberately omitted for /bin/cc (= /usr/ccs/bin/cc).
-sco32v504:
- @echo Making C-Kermit $(CKVER) for SCO OpenServer Release 5.0.4...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
- -DSCO_OSR504 -b elf -DPOSIX \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DNOSYSLOG $(KFLAGS)" \
- "LIBS=-lcurses $(LIBS)" "LNKFLAGS=$(LNKFLAGS)"
-
-#SCO OpenServer 5.0.4 with gcc, no networking.
-sco32v504gcc:
- @echo Using gcc...
- $(MAKE) "MAKE=$(MAKE)" sco32v504 "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS= $(KFLAGS)"
-
-#SCO OpenServer 5.0.4 with networking.
-#SCO development tools (/bin/cc = /usr/ccs/bin/cc).
-#Optimization deliberately suppressed.
-sco32v504net:
- @echo Making C-Kermit $(CKVER) for SCO OpenServer Release 5.0.4...
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
- -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DTCPSOCKET \
- -b elf -DSCO_OSR504 -DPOSIX -DNO_DNS_SRV $(KFLAGS)" \
- "LIBS=-lcurses -lsocket $(LIBS)" "LNKFLAGS=$(LNKFLAGS)"
-
-#SCO OpenServer 5.0.4 with networking, gcc.
-sco32v504netgcc:
- @echo TCP/IP networking added - using gcc...
- @echo If gcc crashes on ckwart.c then build it by hand:
- @echo " gcc -o wart -DCK_SCOV5 ckwart.c"
- $(MAKE) "MAKE=$(MAKE)" sco32v500net "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DSCO_OSR504 -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.4 with networking, gcc, elf.
-sco32v504netgccelf:
- @echo TCP/IP networking added - using gcc, dynamic elf library
- $(MAKE) "MAKE=$(MAKE)" sco32v500net "CC=gcc" "CC2=gcc"
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR504 -DPOSIX -O3 -belf $(KFLAGS)" \
- LNKFLAGS="-belf"
-
-#SCO OpenServer 5.0.5 (SCO UNIX 3.2v5.0.5) with SCO /bin/cc.
-#Like 5.0, but adds high serial speeds. First POSIX-based SCO version.
-#You might have to add "LIBS=-ltinfo" (some do, some don't).
-sco32v505:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DNOSHADOW -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 (SCO UNIX 3.2v5.0.5) with SCO UDK.
-#This one can't see the high serial speeds and anything to do with modem
-#signals doesn't work because UKD cc has its own alternative universe of
-#header files.
-sco32v505udk:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DDCLTIMEVAL -DNOSHADOW -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 with networking, SCO /bin/cc.
-#See comments with sco32v505 targets.
-sco32v505net:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DNOSHADOW -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 with networking and OpenSSL, SCO /bin/cc.
-#See comments with sco32v505 targets.
-sco32v505net+ssl:
- @echo TCP/IP networking and OpenSSL added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net+ssl KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DNOSHADOW -b elf -DPOSIX $(KFLAGS) " \
-
-#SCO OpenServer 5.0.5 with networking, SCO UDK.
-#See comments with above sco32v505 targets.
-sco32v505udknet:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DDCLTIMEVAL -DNOSHADOW -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 with gcc, no networking.
-sco32v505gcc:
- @echo Using gcc...
- $(MAKE) "MAKE=$(MAKE)" sco32v500 "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DPOSIX -funsigned-char $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 with gcc, no networking, no shadow passwords.
-sco32v505xgcc:
- @echo Using gcc...
- $(MAKE) "MAKE=$(MAKE)" sco32v500 "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DNOSHADOW -DPOSIX -funsigned-char $(KFLAGS)"
-
-#SCO OpenServer 5.0.5 with networking, gcc.
-sco32v505netgcc:
- @echo TCP/IP networking added - using gcc...
- @echo If gcc crashes on ckwart.c then build it by hand:
- @echo " gcc -o wart -DCK_SCOV5 ckwart.c"
- $(MAKE) "MAKE=$(MAKE)" sco32v500net "CC=gcc" "CC2=gcc" \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DNOSHADOW -DPOSIX -funsigned-char $(KFLAGS)"
-
-#egcs is just like gcc but generates ELF by default.
-#Or you can include -melf (not -belf) to force it.
-sco32v505netegcs:
- $(MAKE) "MAKE=$(MAKE)" "KFLAGS=$(KFLAGS)" sco32v505netgcc \
- KTARGET=$${KTARGET:-$(@)}
-
-#SCO OpenServer 5.0.5 with networking, gcc, elf.
-sco32v505netgccelf:
- @echo TCP/IP networking added - using gcc, dynamic elf library
- $(MAKE) "MAKE=$(MAKE)" sco32v500net "CC=gcc" "CC2=gcc" \
- "KFLAGS=-DSCO_OSR505 -DPOSIX -funsigned-char -O3 -belf $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)} LNKFLAGS="-belf"
-
-#SCO OpenServer 5.0.6 with SCO /bin/cc.
-# Add -DDCLTIMEVAL when building with UDK.
-#Like 5.0.5. IMPORTANT: Use sco32v506a target for 5.0.6a.
-sco32v506:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.6 with networking, SCO /bin/cc.
-# Add -DDCLTIMEVAL when building with UDK.
-# IMPORTANT: Use sco32v506a target for 5.0.6a.
-sco32v506net:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.6a, no networking, SCO development tools.
-#This one has patched sio drivers that, for the first time,
-#actually handle modem signals correctly.
-# Add -DDCLTIMEVAL when building with UDK.
-sco32v506a:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR506A -DNEEDMDMDEFS \
- -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.6a with networking, SCO development tools.
-# Add -DDCLTIMEVAL when building with UDK.
-sco32v506anet:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR506A -DNEEDMDMDEFS \
- -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.7, no networking, SCO development tools.
-#Adds flags to make PTY and SSH commands work. These have been tested
-#only in 5.0.7 but probably they can also be added to earlier OSR5 targets.
-sco32v507:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
- -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
- -b elf -DPOSIX $(KFLAGS)"
-
-#SCO OpenServer 5.0.7 as above but with networking.
-sco32v507net:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
- -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
- -b elf -DPOSIX $(KFLAGS)"
-
-#Tandy 16/6000 with Xenix 3.0
-#Add more -DNOxxx options to remove features if program won't load.
-#Successful operation is a function of program size, physical memory,
-#available swap space, etc. The following stripped-down configuration
-#seems to work on most Tandy 6000s. NOTE: "-+" means allow long variable
-#names, needed for C-Kermit 6.0 because some identifiers are not unique
-#within the first six characters.
-#C-Kermit 7.0 does not build here; "too many defines".
-trs16:
- @echo 'Making C-Kermit $(CKVER) for Tandy 16/6000, Xenix 3.0...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -+ -DATTSV -DTRS16 -DNOMKDIR -DDCLPOPEN -DCK_CURSES \
- -DNODEBUG -DNOTLOG -DNOHELP -DNOSCRIPT -DNOCSETS -DNOIKSD \
- -DNOREDIRECT -DNOSYSLOG -DNOPUTENV -DNOREALPATH -DNOLEARN \
- $(KFLAGS) -O" "LIBS= -lcurses -ltermcap" "LNKFLAGS = -+ -n -s"
-
-#MINIX/2.0 32 Bit version for intel 386+ running the POSIX-compliant MINIX
-# version 2.0 (The definition of fatal avoids a conflict with a symbol by
-# the same name in the curses library.) It is impossible to compile with
-# network support since Minix does not support Berkeley sockets.
-# Note: use chmem liberally on the compiler passes, make, and the final
-# kermit executable. (3 megabytes of memory for each is sufficient.)
-# From Terry McConnell, Syracuse U, and Will Rose. Will says:
-# The stacks for make and some compiler passes needed to be increased
-# with chmem as follows:
-# make 1MB
-# /usr/lib/em_cemcom.ansi 3MB
-# /usr/lib/em_opt 1MB
-# /usr/lib/i386/cg 1MB
-# /usr/lib/i386/as 1MB
-# The compiler temporary directory was set to /usr/tmp via the TMPDIR
-# environment variable; more than 1MB of temporary space was needed.
-# Kermit itself needs at least 1MB of stack.
-minix20:
- @echo 'Making C-Kermit $(CKVER) for MINIX 2.0/386...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} EXT=o \
- "CFLAGS= -wo -DV7 -DMINIX2 -DMINIX -DSIG_V -D_POSIX_SOURCE \
- -DCKCPU=\\\"i-386\\\" -DNOIKSD -Dfatal=myfatal -DCK_CURSES -DNOLEARN \
- -DNOSYSLOG -DUSE_MEMCPY -DNOREALPATH $(KFLAGS)" "LIBS= -lcurses"
-
-#MINIX/386 (PC Minix modified by Bruce Evans in Australia for 386 addressing)
-# For MINIX 1.5+ (but < 2.0)
-minix386:
- @echo 'Making C-Kermit $(CKVER) for MINIX/386...'
- @echo 'TOTALLY UNTESTED!'
- $(MAKE) wermit EXT=s KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DV7 -DMINIX -D_POSIX_SOURCE -DNOLEARN $(KFLAGS)"
-
-#MINIX/386 Minix modified by Bruce Evans in Australia to use 386 addressing
-minix386gcc:
- @echo 'Making C-Kermit $(CKVER) for MINIX/386 with gcc...'
- @echo 'TOTALLY UNTESTED!'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} "CC=gcc -g -O" "CC2=gcc -g" \
- "CFLAGS= -DV7 -DMINIX -D_POSIX_SOURCE -DNOLEARN $(KFLAGS)"
-
-#MINIX - 68k version with ACK compiler.
-# If you have trouble compiling or running wart, "touch wart".
-# If it still doesn't work, "touch ckcpro.c".
-# The version configured below has many features removed, including
-# the TRANSMIT, MSEND, HELP, and SCRIPT commands, international
-# character set support, and the entire script programming language.
-# But it does have an interactive command parser.
-# Make sure make(1) has (at least) 100000 chmemory!
-# If you are using the Amsterdam C compiler, you might have to add "-D__ACK__".
-minix68k:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with ACK...
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE -DNOLEARN \
- -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
- -DNOSCRIPT -DNOCSETS -DNOSPL $(KFLAGS) \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DSIG_V"
-
-#MINIX - 68k version with c68 compiler.
-# If you have trouble compiling or running wart, "touch wart" or
-# "touch ckcpro.c". Compiling ckudia.c (no -DNODIAL!) might fail. :-(
-# Give c68 250000 bytes of stack+heap; make sure make(1) has at least
-# 100000 chmemory. On a 1MB Atari ST this means that the recursive
-# call of make fails due to memory shortage. Try "make -n minixc68 >makeit",
-# followed by ". makeit". Otherwise, as above.
-minixc68:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...
- $(MAKE) wermit "CC= cc -c68" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE -DNOLEARN \
- -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
- -DNOSCRIPT -DNOCSETS -DNOSPL $(KFLAGS) \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DSIG_V"
-
-#MINIX - 68k version with c68 compiler.
-#A variation on the above that was recently (Sep 95) reported to work.
-minixc68a:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...
- $(MAKE) wermit "CC= cc -c68" KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE \
- -DCK_ANSIC -DNODEBUG -DNOTLOG -DMINIDIAL -DEXTEN -DMYCURSES \
- -DNOSCRIPT -DNOCSETS -DNOSPL -DNOJC -DDIRENT -DNOLEARN \
- -DNOSETKEY -DNOESCSEQ $(KFLAGS) \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DSIG_V"
-
-#MIPS Computer Systems with UMIPS RISC/OS 4.52 = AT&T UNIX System V R3.0.
-#Remove -DNOJC if job control can be safely used.
-mips:
- @echo 'Making C-Kermit $(CKVER) for MIPS RISC/OS...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DMIPS -DDIRENT -DCK_POLL -DNOJC -DNOLEARN -DPID_T=int \
- -DGID_T=gid_t -DUID_T=uid_t -i -O1500 $(KFLAGS)"
-
-#As above, but with TCP/IP and fullscreen support.
-mipstcpc:
- @echo 'Making C-Kermit $(CKVER) for MIPS RISC/OS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DMIPS -DDIRENT -DCK_POLL -DNOJC \
- -DTCPSOCKET -DCK_CURSES -I/usr/include/bsd \
- -DPID_T=int -DGID_T=gid_t -DUID_T=uid_t -i -O1500 $(KFLAGS)" \
- "LIBS = -lcurses -lbsd"
-
-#Motorola Delta System V/68 R3, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer uucp. Supports TCP/IP.
-#After building, use "mcs -d" to reduce size of the executable program.
-sv68r3:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/68 R3...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DSV68 -DDIRENT -DHDBUUCP -DNO_DNS_SRV -DTCPSOCKET \
- -DNOUNICODE -DNOLEARN -DUSE_MEMCPY $(KFLAGS) -O" "LNKFLAGS ="
-
-#Motorola Delta System V/68 R3V5, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer UUCP. Supports TCP/IP.
-#After building, use "mcs -d" to reduce size of the executable program.
-sv68r3v5:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/68 R3V5'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DSV68 -DDIRENT -DHDBUUCP -DNO_DNS_SRV -DUSE_MEMCPY \
- -DTCPSOCKET -DINADDRX -DNOUNICODE -DFNFLOAT -DNOLEARN $(KFLAGS) -O" \
- "LNKFLAGS =" "LIBS = -linet -lm"
-
-#Motorola MVME147 System V/68 R3 V5.1. Requires gcc 2.1 to compile.
-#After building, use "mcs -d" to reduce size of the executable program.
-sv68r3v51:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/68 R3V5.1'
- $(MAKE) wermit "CC=gcc-delta" "CC2=gcc-delta" \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DNODEBUG -DNO_DNS_SRV -DNOLEARN \
- -DNOUNICODE -DFNFLOAT -DSV68 -DUSE_MEMCPY $(KFLAGS) \
- -O2 -v -ftraditional" \
- "LNKFLAGS = -s -v" "LIBS = -lm881 -lm"
-
-#Motorola MVME147 System V/68 R3V6. derived from Motorola Delta System R3V5.
-#Checked on larger Motorola System V/68 R3V6 (with NSE Network Services Ext.)
-#After building, use "strip" to reduce size of the executable program.
-# "LIBS = -lnsl" removed in C-Kermit 6.1 - put back if needed.
-# "LIBS = lm" added in 7.1/8.0 for floating-point math.
-# ckuusr.c clobbers the optimizer.
-sv68r3v6:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/68 R3V6'
- $(MAKE) ckuusr.$(EXT) KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSV68R3V6 -DDIRENT -DHDBUUCP -DNOLOGIN -DNOINITGROUPS \
- -DNOSYMLINK -DNOREDIRECT -DNOGFTIMER -DTCPSOCKET -DDCLGETCWD -DSV68 \
- -DNO_DNS_SRV -DNOUNICODE -DFNFLOAT -DSELECT -DUSE_MEMCPY $(KFLAGS)"
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSV68R3V6 -DDIRENT -DHDBUUCP -DNOLOGIN -DNOINITGROUPS \
- -DNOSYMLINK -DNOREDIRECT -DNOGFTIMER -DTCPSOCKET -DDCLGETCWD -DSV68 \
- -DNO_DNS_SRV -DNOUNICODE -DFNFLOAT -DSELECT -DUSE_MEMCPY $(KFLAGS)" \
- "LNKFLAGS =" "LIBS = -lm"
-
-#Motorola Delta System V/88 R32, signal() is void rather than int.
-#Uses dirent.h and Honey DanBer uucp. Needs <sys/utime.h> for setting
-#file dates. Supports TCP/IP.
-#After building, use "mcs -d" to reduce size of the executable program.
-sv88r32:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/88 R32...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DSV88R32 -DDIRENT -DHDBUUCP -DTCPSOCKET \
- -DSYSUTIMEH -DCK_CURSES -DNOGETUSERSHELL -DGTODONEARG $(KFLAGS) -O" \
- "LIBS= -lcurses -lresolv" "LNKFLAGS = -s"
-
-#Motorola Delta System V/88 R40. Has <sys/termiox.h>, regular Berkeley
-#sockets library, i.e. in.h and inet.h are not misplaced in sys (rather than
-#netinet and arpa, respectively). Uses ANSI C constructs, advisory file
-#locking on devices, etc. curses support added. Reportedly, the
-#/usr/include/sys/vnode.h file has a bug which must be fixed before this
-#makefile entry can work correctly. The "if DEBUG" directive at about line
-#320 must be changed to "ifdef DEBUG" (Reportedly, this was fixed in
-#in System V/88 R4.3).
-#After building, use "mcs -d" to reduce size of the executable program.
-sv88r40:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/88 R40...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DMOTSV88R4 -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL -DGTODONEARG -DFNFLOAT \
- $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -lresolv -lm" "LNKFLAGS = -s"
-
-#As above but without the floating-point math library.
-sv88r40nm:
- @echo 'Making C-Kermit $(CKVER) for Motorola UNIX System V/88 R40...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -DSVR4 -DMOTSV88R4 -DDIRENT -DHDBUUCP -DSTERMIOX \
- -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL -DGTODONEARG $(KFLAGS)" \
- "LIBS= -lsocket -lnsl -lcurses -lresolv" "LNKFLAGS = -s"
-
-#As above but with floating-point math library support \ffp...() functions
-#and S-Expressions.
-
-#Olivetti X/OS R2.3, 3.x.
-#NOTES:
-# . If you build the executable on 2.x X/OS, it will also run on 3.x.
-# . If you build it on 3.x X/OS, it will NOT run on 2.x.
-# . Kermit can run with no privileges unless the uucp lines are protected,
-# in which case kermit must be owned by uucp with suid bit set:
-# chown uucp kermit ; chmod 4111 kermit.
-xos23:
- @echo 'Making C-Kermit $(CKVER) for Olivetti X/OS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- 'CFLAGS=-OLM -DOXOS -DTCPSOCKET -DHDBUUCP $(KFLAGS)' \
- "LIBS=" "LNKFLAGS="
-
-#As above, but with curses.
-xos23c:
- @echo 'Making C-Kermit $(CKVER) for Olivetti X/OS with curses...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- 'CFLAGS=-OLM -DOXOS -DTCPSOCKET -DHDBUUCP -DCK_CURSES $(KFLAGS)' \
- "LIBS=-lcurses" "LNKFLAGS="
-
-ckuuid:
- @echo 'building C-Kermit $(CKVER) set-UID/set-GID test programs'
- $(CC) -DANYBSD -DSAVEDUID -o ckuuid1 ckuuid.c
- $(CC) -DANYBSD -o ckuuid2 ckuuid.c
- $(CC) -DANYBSD -DNOSETREU -o ckuuid3 ckuuid.c
- $(CC) -DANYBSD -DSETEUID -DNOSETREU -o ckuuid4 ckuuid.c
- $(CC) -o ckuuid5 ckuuid.c
- @echo 'Read the top of ckuuid.c for directions...for testing'
- @echo 'you must make these programs setuid and setgid'
-
-############################################################################
-# A N T I Q U I T I E S
-#
-# The following are antique targets from C-Kermit 5A or earlier. They have
-# not been updated or tested in years. Most of them will need recent features
-# disabled, usually with some combination of -DNOUNICODE, -DNOIKSD, -DNOANSI,
-# -DNOCKGHNLHOST, -DNO_DNS_SRV, -DNOREDIRECT, -DNOREALPATH, -DNOCURSES, etc.
-# They are also missing the KTARGET=$${KTARGET:-$(@)} business.
-# For details see ckuins.txt and ckccfg.txt.
-#
-############################################################################
-
-#Berkeley Unix 2.8, 2.9 for PDP-11s with I&D space, maybe also Ultrix-11???
-#C-Kermit(5A) is simply too large (even turning off almost every feature
-#available) to run without both I&D space plus overlays. The old comment
-#suggested running 'pcc' but that won't help. Changing 'cc' to 'ckustr.sed'
-#will cause a string extraction to be done, saving D space by moving strings
-#to a file.
-bsd29:
- @echo Making C-Kermit $(CKVER) for 2.8 or 2.9BSD.
- @echo Read the makefile if you have trouble with this...
- $(MAKE) ovwermit \
- "CFLAGS= -DBSD29 -DNODEBUG -DNOTLOG -DNOCSETS -DNOHELP \
- -DNOSCRIPT -DNOSPL -DNOXMIT -DNODIAL $(KFLAGS)" \
- "LNKFLAGS= -i -lndir" "CC= cc " "CC2= cc"
-
-bsd210:
- @echo Please use ckubs2.mak to build C-Kermit $(CKVER) for 2.10BSD.
-
-bsd211:
- @echo Please use ckubs2.mak to build C-Kermit $(CKVER) for 2.11BSD.
-
-#Charles River Data Systems Universe with UNOS Version 9.2
-crds:
- @echo 'Making C-Kermit $(CKVER) for Charles River Data Systems...'
- make xermit \
- "CFLAGS = -DATTSV -DNOANSI -DDIRENT -DLONGFN -DTCPSOCKET \
- -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DNOSETREU \
- -Dsuspend=ksuspend $(KFLAGS) -O" "LNKFLAGS ="
-
-#Microport SV/AT for IBM PC/AT 286 and clones, System V R2.
-#The -O flag may fail on some modules (like ckuus2.c), in which case you
-#should compile them by hand, omitting the -O. If you get "hash table
-#overflow", try adding -DNODEBUG.
-#Also, reportedly this compiles better with gcc than with cc.
-mpsysv:
- @echo 'Making C-Kermit $(CKVER) for Microport SV/AT 286...'
- $(MAKE) wermit \
- "CFLAGS= -DATTSV -DNOLEARN $(KFLAGS) -O -Ml" "LNKFLAGS = -Ml"
-
-#Microsoft "Xenix/286" e.g. for IBM PC/AT
-xenix:
- @echo 'Making C-Kermit $(CKVER) for Xenix/286'
- $(MAKE) wermit \
- "CFLAGS= -DXENIX -DNOFILEH -DNOLEARN $(KFLAGS) -Dunix -F 3000 -i" \
- "LNKFLAGS = -F 3000 -i"
-
-#PC/IX, Interactive Corp System III for IBM PC/XT
-pcix:
- @echo 'Making C-Kermit $(CKVER) for PC/IX...'
- $(MAKE) wermit \
- "CFLAGS= -DPCIX -DISIII -DNOLEARN $(KFLAGS) \
- -Dsdata=sdatax -O -i" "LNKFLAGS = -i"
-
-#Integrated Solutions Inc V8S VME 68020
-isi:
- @echo Making C-Kermit $(CKVER) for 4.2BSD on ISI...
- $(MAKE) wermit "CC = cc" \
- "CFLAGS= -DBSD4 -DTCPSOCKET -DINADDRX -DDCLPOPEN -DDEBUG -DNOSETREU \
- -DCK_CURSES -DNOLEARN $(KFLAGS)" "LIBS = -lcurses -ltermcap"
-
-#Interactive Corp version of AT&T System III
-#is3: (very old, probably not sufficient for 5A or later)
-# @echo 'Making C-Kermit $(CKVER) for Interactive System III...'
-# make wermit "CFLAGS = -DISIII -Ddata=datax -O -i" "LNKFLAGS = -i"
-#The following should work, use it if you don't have gcc.
-#Use is3gcc if you have gcc.
-is3:
- @echo 'Making C-Kermit $(CKVER) for Interactive System III...'
- $(MAKE) wermit \
- "CFLAGS= -DISIII $(KFLAGS) -Ddata=datax -DNAP -DHDBUUCP
- -DLOCK_DIR=\"/usr/spool/uucp\" -DSIGTYP=void -O -i" "LNKFLAGS = -i"
-
-#Interactive UNIX System V R3, no network support. Uses <dirent.h> and Honey
-#DanBer UUCP. If this entry does not compile correctly, try any or all of the
-#following. These suggestions also apply more or less to the other is5r3xxx
-#entries that follow this one.
-# . Remove the UID_T and GID_T definitions, or change them as required.
-# . Change -DDIRENT to -DSDIRENT.
-# . Add -DSIGTYP=void.
-# . Remove -g from LNKFLAGS.
-# . Add -DNOANSI to remove compiler complaints about ANSI C constructions
-# . Add other -DNOxxx's to save space (e.g. -DNOCSETS)
-# See the next few makefile entries for related examples.
-# Also see sys5r32is for making a portable i386 SVR3 binary.
-is5r3:
- @echo 'Making C-Kermit $(CKVER) for Interactive 386/ix or later...'
- @echo 'If this does not work please read the makefile entry.'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -g -DNOCSETS -DNOREALPATH \
- -DUID_T=ushort -DGID_T=ushort -DI386IX $(KFLAGS)" \
- "LNKFLAGS = -g"
-
-#Interactive Corp System System V R3 with gcc
-is3gcc:
- @echo 'Making C-Kermit $(CKVER) for Interactive System V R3 / gcc...'
- $(MAKE) wermit CC=gcc CC2=gcc \
- 'CFLAGS = -D_SYSV3 -DISIII -Ddata=datax -DNAP -DHDBUUCP -DNOREALPATH \
- -DLOCK_DIR=\"/usr/spool/uucp\" -DSIGTYP=void -O' "LNKFLAGS ="
-
-#Interactive UNIX System V R3, POSIX variant. Untested.
-#Uses dirent.h and Honey DanBer uucp. Read comments in is5r3 entry.
-is5r3p:
- @echo 'Making C-Kermit $(CKVER) for Interactive 386/ix or later...'
- $(MAKE) wermit \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP -g -DNOCSETS -DNOREALPATH \
- -DI386IX -DPOSIX $(KFLAGS)" "LNKFLAGS=" "LIBS=-lcposix"
-
-#Interactive UNIX SVR3 2.2.1, job control, curses, no net, gcc.
-is5r3gcc:
- $(MAKE) wermit CC=gcc CC2=gcc \
- "CFLAGS=-g -posix -DSVR3 -DDIRENT -DNOREALPATH \
- -DHDBUUCP -O -DNOCSETS -DI386IX -DSVR3JC -DCK_CURSES \
- $(KFLAGS)" LNKFLAGS="-posix" LIBS="-lcurses -lc_s"
-
-#Interactive UNIX System V R3 with TCP/IP network support.
-#Needs -linet for net functions. signal() is void rather than int.
-#Uses dirent.h and Honey DanBer uucp. Read comments in is5r3 entry.
-#Also see is5r3net2 if you have trouble with this entry.
-is5r3net:
- @echo 'Making C-Kermit $(CKVER) for Interactive 386/ix...'
- @echo 'If this does not work please read the makefile entry.'
- $(MAKE) wermit CC="$(CC)" CC2="$(CC2)" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DTCPSOCKET -DNOREALPATH \
- -DI386IX $(KFLAGS) -O" "LIBS = -linet"
-
-is5r3netgcc:
- $(MAKE) is5r3net CC=gcc CC2=gcc
-
-#Interactive UNIX System V R3, no job control, signal() void rather than int.
-#Uses dirent.h and Honey DanBer uucp. Needs -linet for net functions.
-#Read comments in is5r3 entry. Use this entry if is5r3net fails.
-#Saves some space by stripping (-s) and using shared library (-lc_s).
-is5r3net2:
- @echo 'Making C-Kermit $(CKVER) for Interactive 386/ix...'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DTCPSOCKET -DNOJC -DNOREALPATH \
- -DSIGTYP=void -DNOANSI -DI386IX $(KFLAGS) -O" \
- "LNKFLAGS= -s" "LIBS = -linet -lc_s"
-
-#Interactive UNIX System V R3 (version 2.2 or later) with job control & curses.
-#Uses dirent.h and Honey DanBer UUCP.
-is5r3jc:
- @echo 'Making C-Kermit $(CKVER) for Interactive Unix 2.2 or later...'
- $(MAKE) wermit CC="$(CC)" CC2="$(CC2)" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -O -DNOCSETS -DNOREALPATH \
- -DUID_T=ushort -DGID_T=ushort -DI386IX -DSVR3JC -DCK_CURSES \
- -DPOSIX_JC -DCK_REDIR -DCK_POLL -DDCLGETCWD \
- $(KFLAGS)" "LIBS=-lcurses -lc_s -linet"
-
-is5r3jcgcc:
- $(MAKE) is5r3jc CC="gcc -DCK_ANSILIBS -DDCGPWNAM -O4" CC2=gcc \
- KFLAGS="$(KFLAGS)" LNKFLAGS="$(LNKFLAGS)"
-
-#Sunsoft/Interactive UNIX System V R3 (version 2.2 or later)
-#with job control, curses, and TCP/IP networking.
-#Uses dirent.h and Honey DanBer UUCP.
-is5r3netjc:
- @echo 'Making C-Kermit $(CKVER) for Interactive Unix 2.2 or later...'
- $(MAKE) wermit CC="$(CC)" CC2="$(CC2)" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -O -DNOCSETS -DNOREALPATH \
- -DUID_T=ushort -DGID_T=ushort -DI386IX -DSVR3JC -DCK_CURSES \
- -DPOSIX_JC -DCK_REDIR -DTCPSOCKET -DSELECT \
- $(KFLAGS)" "LIBS=-linet -lcurses -lc_s"
-
-is5r3netjcgcc:
- $(MAKE) is5r3netjc CC="gcc -DCK_ANSILIBS -DDCGPWNAM -O4" CC2=gcc \
- KFLAGS="$(KFLAGS)" LNKFLAGS="$(LNKFLAGS)"
-
-#Masscomp System III
-rtu:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU System III...'
- $(MAKE) wermit \
- "CFLAGS= -UFIONREAD -DATTSV $(KFLAGS) -O" "LNKFLAGS =" "LIBS= -ljobs"
-
-#Masscomp/Concurrent RTU 4.0 or later, Berkeley environment.
-#Includes <ndir.h> = /usr/include/ndir.h
-#Note "LIBS = -lndir" might not be necessary because of "ucb make".
-rtubsd:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU 4.1A...'
- ucb make wermit \
- "CFLAGS= -DBSD4 -DRTU -DNDIR -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS = -lndir"
-
-#Masscomp/Concurrent RTU 4.0 or later, same as above,
-#Includes "usr/lib/ndir.h"
-#Note "LIBS = -lndir" might not be necessary because of "ucb make".
-rtubsd2:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU 4.1A...'
- ucb make wermit \
- "CFLAGS= -DBSD4 -DRTU -DXNDIR -DHDBUUCP $(KFLAGS)" \
- "LIBS = -lndir"
-
-#Masscomp/Concurrent RTU 4.0 or later, same as above,
-#Includes <sys/ndir.h>
-#Note "LIBS = -lndir" might not be necessary because of "ucb make".
-rtubsd3:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU 4.x BSD...'
- ucb make wermit "CFLAGS= -DBSD4 -DRTU -DHDBUUCP $(KFLAGS)" \
- "LIBS = -lndir"
-
-#Masscomp/Concurrent RTU 4.0 or later, System V R2, using <dirent.h>.
-#In case of problems, add back the -DRTU switch.
-#In case -DTCPSOCKET gives trouble, remove it.
-rtus5:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU 4.x...'
- $(MAKE) wermit \
- "CFLAGS= -DATTSV -DHDBUUCP -DDIRENT -DTCPSOCKET $(KFLAGS)"
-
-#Masscomp/Concurrent RTU 4.x, System V R3, using <dirent.h>.
-#Use this one if rtus5 gives warnings about pointer type mismatches.
-#In case of problems, add back the -DRTU switch.
-rtus5r3:
- @echo 'Making C-Kermit $(CKVER) for Masscomp RTU Sys V R3...'
- $(MAKE) wermit "CFLAGS= -DSVR3 -DHDBUUCP -DDIRENT $(KFLAGS)"
-
-#DEC Pro-3xx with Pro/Venix V1.0 or V1.1
-# Requires code-mapping on non-I&D-space 11/23 processor, plus some
-# fiddling to get interrupt targets into resident code section.
-# This almost certainly doesn't work any more.
-provx1:
- @echo 'Making C-Kermit $(CKVER) for DEC Pro-3xx, Pro/Venix 1.x...'
- $(MAKE) wart "CFLAGS= -DPROVX1 $(KFLAGS)" "LNKFLAGS= "
- $(MAKE) wermit "CFLAGS = -DPROVX1 -DNOFILEH -md780" \
- "LNKFLAGS= -u _sleep -lc -md780"
-
-#Nixdorf Targon/31.
-#AT&T UNIX System V R3, signal() is void rather than int.
-#Uses dirent.h without Honey DanBer uucp.
-t31tos40x:
- @echo 'Making C-Kermit $(CKVER) for Targon/31 with TOS 4.0.xx...'
- $(MAKE) wermit \
- "CFLAGS= -DSVR3 -DDIRENT $(KFLAGS) -O" \
- "LNKFLAGS="
-
-#NCR Tower 1632, OS 1.02
-tower1:
- @echo 'Making C-Kermit $(CKVER) for NCR Tower 1632, OS 1.02...'
- $(MAKE) wermit "CFLAGS= -DTOWER1 $(KFLAGS)"
-
-#NCR Tower 32, OS Release 1.xx.xx
-tower32-1:
- @echo 'Making C-Kermit $(CKVER) for NCR Tower 32 Rel 1 System V R2...'
- @echo 'Add KFLAGS=-DISDIRBUG if you get errors about S_ISREG/S_ISDIR.'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV $(KFLAGS) -O" "LNKFLAGS = -n"
-
-#NCR Tower 32, OS Release 2.xx.xx
-tower32-2:
- @echo 'Making C-Kermit $(CKVER) for NCR Tower 32 Rel 2 System V R2...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DHDBUUCP $(KFLAGS) -O2" \
- "LNKFLAGS = -n"
-
-#NCR Tower 32, OS Releases based on System V R3
-#Don't add -DNAP (doesn't work right) or -DRDCHK (not available in libc).
-tower32:
- @echo 'Making C-Kermit $(CKVER) for NCR Tower 32 System V R3...'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DNOSYSIOCTLH $(KFLAGS) \
- -DUID_T=ushort -DGID_T=ushort -O1"
-
-#NCR Tower 32, OS Releases based on System V R3
-tower32g:
- @echo 'Making C-Kermit $(CKVER) for NCR Tower 32 System V R3, gcc...'
- $(MAKE) wermit "CC = gcc" \
- "CFLAGS = -DSVR3 -DDIRENT -DHDBUUCP -DNOSYSIOCTLH $(KFLAGS) \
- DUID_T=ushort -DGID_T=ushort -O -fstrength-reduce -fomit-frame-pointer"
-
-#Fortune 32:16, For:Pro 1.8 (mostly like 4.1bsd)
-ft18:
- @echo 'Making C-Kermit $(CKVER) for Fortune 32:16 For:Pro 1.8...'
- $(MAKE) wermit \
- "CFLAGS= -DNODEBUG -DBSD4 -DFT18 -DNOFILEH $(KFLAGS) \
- -DPID_T=short"
-
-#Fortune 32:16, For:Pro 2.1 (mostly like 4.1bsd).
-#The modules that break the optimizer are compiled separately.
-ft21:
- @echo 'Making C-Kermit $(CKVER) for Fortune 32:16 For:Pro 2.1...'
- $(MAKE) ckuusx.$(EXT) "CFLAGS= -DNODEBUG -DBSD4 -DFT21 -DNOFILEH \
- -SYM 800 -DCK_CURSES $(KFLAGS) -DPID_T=short" \
- "LNKFLAGS= -n -s" "LIBS= -lcurses -ltermcap -lv -lnet"
- $(MAKE) ckuxla.$(EXT) "CFLAGS= -DNODEBUG -DBSD4 -DFT21 -DNOFILEH \
- -SYM 800 -DCK_CURSES $(KFLAGS) -DPID_T=short" \
- "LNKFLAGS= -n -s" "LIBS= -lcurses -ltermcap -lv -lnet"
- $(MAKE) ckudia.$(EXT) "CFLAGS= -DNODEBUG -DBSD4 -DFT21 -DNOFILEH \
- -SYM 800 -DCK_CURSES $(KFLAGS) -DPID_T=short" \
- "LNKFLAGS= -n -s" "LIBS= -lcurses -ltermcap -lv -lnet"
- $(MAKE) wermit \
- "CFLAGS= -O -DNODEBUG -DBSD4 -DFT21 -DNOFILEH -SYM 800 \
- -DCK_CURSES $(KFLAGS) -DPID_T=short" \
- "LNKFLAGS= -n -s" "LIBS= -lcurses -ltermcap -lv -lnet"
-
-#Valid Scaldstar
-#Berkeleyish, but need to change some variable names.
-valid:
- @echo 'Making C-Kermit $(CKVER) for Valid Scaldstar...'
- $(MAKE) wermit \
- "CFLAGS= -DBSD4 -DNODEBUG -DNOTLOG -Dcc=ccx -DFREAD=1 $(KFLAGS)"
-
-#IBM IX/370 on IBM 370 Series mainframes
-#Mostly like sys3, but should buffer packets.
-ix370:
- @echo 'Making C-Kermit $(CKVER) for IBM IX/370...'
- $(MAKE) wermit "CFLAGS = -DIX370 -DATTSV $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-#Amdahl UTS 2.4 on IBM 370 series compatible mainframes.
-#Mostly like V7, but can't do initrawq() buffer peeking.
-uts24:
- @echo 'Making C-Kermit $(CKVER) for Amdahl UTS 2.4...'
- $(MAKE) wermit "CFLAGS=-DV7 -DPROCNAME=\\\"$(PROC)\\\" \
- -DUTS24 -DBOOTNAME=\\\"$(BOOTFILE)\\\" -DNPROCNAME=\\\"$(NPROC)\\\" \
- -DNPTYPE=$(NPTYPE) $(DIRECT) $(KFLAGS)"
-
-#Amdahl UTSV UNIX System V = System V R2 or earlier.
-utsv:
- @echo 'Making C-Kermit $(CKVER) for Amdahl UTSV...'
- $(MAKE) wermit \
- "CFLAGS = -DUTSV $(KFLAGS) -i -O" "LNKFLAGS = -i"
-
-#Amdahl UTSV UNIX System V = System V R2 or earlier, with TCP sockets library.
-utsvtcp:
- @echo 'Making C-Kermit $(CKVER) for Amdahl UTSV w/tcp...'
- $(MAKE) wermit "CFLAGS = \
- -DTCPSOCKET -DUTSV $(KFLAGS) -i -O" "LNKFLAGS = -i" \
- "LIBS = -lsocket"
-
-#BBN C/70 with IOS 2.0
-#Mostly Berkeley-like, but with some ATTisms
-c70:
- @echo 'Making C-Kermit $(CKVER) for BBN C/70 IOS 2.0...'
- $(MAKE) wermit "CFLAGS= -DBSD4 -DC70 $(KFLAGS)"
-
-#Zilog ZEUS 3.21
-zilog:
- @echo 'Making C-Kermit $(CKVER) for Zilog Zeus 3.21...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DZILOG -DNODEBUG $(KFLAGS) -i -O" \
- "LNKFLAGS = -i -lpw"
-
-#Whitechapel MG-1 Genix 1.3
-white:
- @echo 'Making C-Kermit $(CKVER) for Whitechapel MG-1 Genix 1.3...'
- @touch ckcpro.c
- $(MAKE) wermit "CFLAGS= -DBSD4 -Dzkself()=0 $(KFLAGS)"
-
-#Pixel 1000
-pixel:
- @echo 'Making C-Kermit $(CKVER) for Pixel 1000...'
- $(MAKE) wermit "CFLAGS= -DBSD4 -Dzkself()=0 $(KFLAGS)"
-
-ptx:
- $(MAKE) "MAKE=$(MAKE)" dynixptx12
-
-#CDC VX/VE 5.2.1
-vxve:
- @echo 'Making C-Kermit $(CKVER) for CDC VX/VE 5.2.1...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DVXVE -DNODEBUG -DNOTLOG $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-#DIAB DS90 or LUXOR ABC-9000 with pre-5.2 DNIX. Sys V with nap() and rdchk().
-# nd = no opendir(), readdir(), closedir(), etc.
-# Some of the modules fail to compile with -O.
-dnixnd:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with very old DNIX 5.2.'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DNAP -DRDCHK -DDCLPOPEN \
- -U__STDC__ $(KFLAGS)"
-
-#DIAB DS90 with DNIX 5.2. Sys V with nap() and rdchk().
-# This one has opendir(), readdir(), closedir(), etc.
-# Some of the modules fail to compile with -O.
-dnix:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with old DNIX 5.2...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DNAP -DRDCHK -DDIRENT \
- -U__STDC__ $(KFLAGS)"
-
-#DIAB DS90 with DNIX 5.2. Sys V with nap() and rdchk().
-# As above, but with curses and TCP/IP.
-# You might get complaints about redefinition of O_RDONLY, etc, because
-# of bugs in the DNIX header files, which can be fixed by adding #ifndef...
-# around the offending definitions in the header files.
-dnixnetc:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with old DNIX 5.2...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DNAP -DRDCHK -DDIRENT \
- -DTCPSOCKET -DCK_CURSES -I/usr/include/bsd -U__STDC__ $(KFLAGS)" \
- "LIBS = -ln -lcurses"
-
-#DIAB DS90 with DNIX 5.3 or later, with HDB UUCP, nap() and rdchk().
-dnix5r3:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with DNIX 5.3...'
- @echo 'with Honey DanBer UUCP'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DHDBUUCP -DNAP -DRDCHK -DDIRENT \
- -DCK_CURSES -DRENAME $(KFLAGS) -O" "LIBS= -lcurses"
-
-#DIAB DS90 with DNIX 5.3 or later, with HDB UUCP, nap() and rdchk() + TCP/IP
-dnix5r3net:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with DNIX 5.3...'
- @echo 'with Honey DanBer UUCP and TCP/IP'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DHDBUUCP -DNAP -DRDCHK -DDIRENT \
- -DTCPSOCKET -DCK_CURSES -DRENAME $(KFLAGS) -O \
- -I/usr/include/bsd" "LIBS = -ln -lcurses"
-
-#DIAB DS90 with DNIX 5.3 2.2 or later, with HDB UUCP, nap() and rdchk(),
-#ANSI C compilation and libraries.
-#Note that for DNIX 5.3 2.2 you have to correct a bug in /usr/include/stdlib.h:
-#change "extern void free(char *str);"
-#to "extern void free(void *str);"
-#NOTE: This bug is reportedly fixed in DNIX 5.3 2.2.1.
-#Should you get fatal errors caused by harmless pointer-type mismatches,
-#like between signed and unsigned char, just remove -X7.
-dnix5r3ansi:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with DNIX 5.3...'
- @echo 'with ANSI C Honey DanBer UUCP'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DDIAB -DHDBUUCP -DNAP -DRDCHK -DDIRENT \
- -DCK_ANSILIBS -DCK_CURSES -DRENAME -O -X7 -X9 $(KFLAGS)" \
- "LIBS= -lcurses"
-
-#DIAB DS90 with DNIX 5.3 2.2 or later, with HDB UUCP, nap() and rdchk(),
-# + TCP/IP, ANSI C compilation and libraries.
-#Should you get fatal errors caused by harmless pointer-type mismatches,
-#like between signed and unsigned char, just remove -X7.
-dnix5r3ansinet:
- @echo 'Making C-Kermit $(CKVER) for DIAB DS90 with DNIX 5.3...'
- @echo 'with ANSI C Honey DanBer UUCP'
- $(MAKE) wermit \
- "CFLAGS = -DSVR3 -DDIAB -DHDBUUCP -DNAP -DRDCHK -DDIRENT \
- -DTCPSOCKET -DCK_ANSILIBS -DCK_CURSES -DRENAME -O -X7 -X9 $(KFLAGS) \
- -I/usr/include/bsd" "LIBS= -ln -lcurses"
-
-# QNX 4.21 and above, 32-bit version, Watcom C32 10.6, fully configured,
-# except no job control because QNX 4.x does not support it. New NCURSES
-# library used instead of CURSES.
-#
-# -Oatx optimizes to favor speed over size: loop optimization, inline fn's.
-# -Os favors size over speed. Saves 30-40K out of about 1.75M.
-# -3r = generate 386 code with register-based arg passing.
-# -3s = generate 386 code with stack-based arg passing.
-# -ms = separate code & data 4GB segments (32-bit builds only).
-# -mf = flat memory model code+data in one 4GB segment (ditto).
-# -zc = place literal strings in code segment.
-# -N4M = Big stack (increase the digit upon SIGSEGVs at runtime).
-# chars are unsigned by default (-j makes them signed by default).
-# -NOUUCP is included because QNX doesn't use it.
-# Add these to the end if you like but they dump core on my QNX 4.25 system:
-#
-# @wermit -h >use.qnx
-# @usemsg wermit use.qnx
-# @rm use.qnx
-#
-# If you get warnings about HEADER or C_IN add -DNO_DNS_SRV.
-qnx32:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -N4M -3r" \
- "CFLAGS = -ms -3r -DQNX -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
- -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
- -DNOINITGROUPS -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
- "LIBS= -lsocket -lncurses -ltermcap"
-
-# As above but no networking since some QNX systems do not have TCP/IP
-# installed, or the TCP/IP developers kit, which includes all the needed
-# header files. This entry has not been tested on a QNX system that, in
-# fact, does not have TCP/IP installed; some adjustments might be necessary,
-# in particular regarding the use of select(): is -lsocket needed, can we
-# get the needed definitions from non-TCP/IP header files (FD_SET, etc)?
-qnx32nonet:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit, no net...'
- $(MAKE) xermit \
- "LNKFLAGS = -N4M -3r" \
- "CFLAGS = -3r -ms -DQNX -DNONET -DNOIKSD -DCK_CURSES \
- -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
- -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
- "LIBS= -lsocket -lncurses -ltermcap"
- @wermit -h >use.qnx
- @usemsg wermit use.qnx
- @rm use.qnx
-
-# Synonym for qnx32.
-qnx:
- $(MAKE) qnx32 "KFLAGS=$(KFLAGS)"
-
-# QNX 4.21 and above, 16-bit version, Watcom C 8.5 - and higher on i286 PCs
-# and above.
-#
-# IMPORTANT: Do not use Watcom C 10.6!!!
-# If you have it installed, add "-v9.52 to CFLAGS"
-#
-# NOTE: QNX 4.23 onward does not work on 286's anyway.
-# Stacksize 26000, objects larger than 100 bytes in their own segments,
-# string constants to the codesegment, etc. Fully configured except job ctrl.
-# This entry works for building a 16-bit executable on a 32-bit system, but
-# has not been tested on a 16-bit system. Uses large memory model, links
-# explicitly with large-model sockets library. Correct-model curses library
-# is chosen automatically. See comment in qnx32 entry about -DNOUUCP.
-#
-# WARNING:
-#
-# Watcom C prior to 10.6 never had released curses library. To link against it,
-# you must obtain ported free curses source from ftp://ftp.qnx.com/usr/free,
-# then compile and build library (cursesl.lib) and place it in /usr/lib. You
-# must also copy curses.h to /usr/include. Be aware that if you have Watcom
-# 10.6 installed, you should already have curses.h, which is the new ncurses
-# library. You must back it up and use free curses.h instead, since ncurses is
-# only for 32-bit applications and some definitions in these files are
-# different (e.g., clearok()). For safety, curses is not defined in build.
-#
-# In 7.0 -DNOHELP added to keep ckuus2.c from blowing up; NOCSETS and NOSPL
-# added because ckuus4 was blowing up, and NOFLOAT just because it seemed
-# dangerous (remove -DNOFLOAT if you want to try it), The result works OK
-# except for some mysterious beeps upon termination of the top-level keyword.
-#
-# Things to try next time we get in trouble:
-# . Change -zt100 to something smaller like -zt25
-# . Change -Oatx to -Omilerat (enable stack checking)
-# . Maybe get rid of -v9.52 -- it's only there because we were warned.
-#
-qnx16:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.21, 16-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -2 -ml -N 26000" \
- "CFLAGS = -2 -Oatx -zc -zt100 -ml -DQNX -DQNX16 -DNOUUCP -DNOHELP \
- -DCK_REDIR -DSELECT -DSELECT_H -DNOJC -DNOGETUSERSHELL -DNOCSETS \
- -v9.52 -DTCPSOCKET -DCK_RTSCTS -DCK_ANSIC -DNOINITGROUPS -DNOKVERBS \
- -DNORANDOM -DNOCSETS -DNOSPL -DNOFLOAT -DPID_T=pid_t $(KFLAGS)"
-
-# QNX 4.1, 16-bit version, with Watcom C 8.5 on i286 PCs and above.
-# stacksize 26000, objects larger than 100 bytes in their own segments,
-# string constants to the codesegment, etc. Add -DNOUUCP if desired.
-qnx16_41:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.1, 16-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -mh -N 26000" "CFLAGS = -Wc,-fpc -Wc,-j -DNOGETUSERSHELL \
- -Wc,-Ols -Wc,-zdf -Wc,-zc -Wc,-zt100 -mh -DPOSIX -DQNX -DDIRENT \
- -DNOCYRIL -DNODEBUG -DNOMSEND -DMINIDIAL -DNOXMIT -DNOSCRIPT -DNOSPL \
- -DNOSETKEY -DNOINITGROUPS -DQNX16 -DPID_T=pid_t $(KFLAGS)"
-
-# QNX Neutrino 2 (pwaechtler@qnx.de) crosscompiled on QNX 4.25.
-# Gets lots of compiler warnings.
-qnx_nto2+:
- @echo 'Making C-Kermit $(CKVER) for QNX Neutrino 2+ '
- cc -o wart ckwart.c
- $(MAKE) xermit \
- "CC = qcc -Vgcc_ntox86" \
- "CC2 = qcc -Vgcc_ntox86" \
- "LNKFLAGS = " \
- "CFLAGS = -DNEUTRINO -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
- -DNOUUCP -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS \
- -DNOJC -DNOINITGROUPS -DCK_ANSIC -DPID_T=pid_t -DUNIX -DDIRENT \
- -DMYREAD -DBSD44ORPOSIX -DSVORPOSIX -DNDGPWNAM $(KFLAGS)" \
- "LIBS= -lsocket -lncurses "
-
-# QNX 6 (= Neutrino 2.xx) native build (kirussel@cisco.com).
-qnx6:
- @echo 'Making C-Kermit $(CKVER) for QNX6'
- $(MAKE) xermit KTARGET=QNX6 \
- "CFLAGS = -DPOSIX -DCK_POSIX_SIG -DNETPTY -DNOARROWKEYS \
- -DUSE_TIOCSDTR -DBIGBUFOK -DCKMAXOPEN=100 -DRLOGCODE -DNOREALPATH \
- -DMAXNAMLEN=48 -DQNX6 -DUSE_TERMIO -DINIT_SPTY \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DDYNAMIC \
- -DTCPSOCKET -DNOGETUSERSHELL -DCK_REDIR -DSELECT -DSELECT_H \
- -DCK_RTSCTS -DNOJC -DSVORPOSIX -DBSD44ORPOSIX -DNOUUCP -DCK_ANSIC \
- $(KFLAGS) -O" \
- "LIBS= -lsocket -lncurses"
-
-#Ridge 32 with ROS 3.2
-ridge32:
- @echo 'Making C-Kermit $(CKVER) Ridge 32 ROS 3.2'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DNOFILEH -DNODEBUG -DNOTLOG $(KFLAGS) -i -O" \
- "LNKFLAGS = -i"
-
-#Altos 486, 586, or 986 with Xenix 3.0
-altos:
- @echo 'Making C-Kermit $(CKVER) for Altos x86 with Xenix 3.0...'
- $(MAKE) wermit \
- "CFLAGS= -DATTSV -DA986 -DNODEBUG -DNOTLOG $(KFLAGS) -i -O" \
- "LNKFLAGS= -i"
-
-#Altos 986 with Xenix 3.0, as above, but command-line only, minimal size.
-#For systems with small memories. It might also be necessary to chop certain
-#modules up into smaller pieces, e.g. ckuus3-6, because of symbol table
-#overflow. If this makefile is too big or complex for the Altos, compile
-#and link by hand or write shell scripts.
-altosc:
- @echo 'Making C-Kermit $(CKVER) for Altos x86 Xenix 3.0, remote...'
- $(MAKE) wermit \
- "CFLAGS= -DATTSV -DA986 -DNODEBUG -DNOTLOG -DNOSCRIPT -DNODIAL \
- -DNOCSETS -DNOANSI -DNOMSEND -DNOSPL -DNOICP $(KFLAGS) -Mm -O" \
- "LNKFLAGS= -Mm -s"
-
-#Altos 986 with Xenix 3.0, as above, but interactive only, minimal size.
-altosi:
- @echo 'Making C-Kermit $(CKVER) for Altos x86 Xenix 3.0, local...'
- $(MAKE) wermit \
- "CFLAGS= -DATTSV -DA986 -DNODEBUG -DNOTLOG -DNOSCRIPT -DNODIAL \
- -DNOCSETS -DNOANSI -DNOMSEND -DNOSPL -DNOCMDL -DNOFRILLS -DNOHELP \
- -DNOSETKEY $(KFLAGS) -Mm -O" "LNKFLAGS= -Mm -s"
-
-# Altos ACS68000 68000 System, UNIX System 3 Release 2, 512k memory.
-# also needs getcwd() external function; see ckuins.txt file.
-# also, sys/types.h needed modifying:
-# #ifdef __SYS_TYPES_H__, #define ..., #endif
-# also, ckuus2.c MUST be compiled NOOPT else symbol table is destroyed!
-# Submission by Robert Weiner/Programming Plus, rweiner@progplus.com.
-#
-altos3:
- @echo 'Making C-Kermit $(CKVER) for Altos ACS68k UNIX System III'
- $(MAKE) ckuus2.$(EXT) "CFLAGS = -DATTSV -DNOCSETS -DNOSETKEY -DNOJC \
- -DNODIAL -DDCLPOPEN -DNOSCRIPT -DNOHELP $(KFLAGS) -i"
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -DNOCSETS -DNOSETKEY -DNOJC \
- -DNODIAL -DDCLPOPEN -DNOSCRIPT -DNOHELP $(KFLAGS) -i -O" \
- "LNKFLAGS = -i" "LIBS = getcwd.$(EXT)"
-
-#MINIX - Original PC version with 64K+64K limit.
-# Reportedly, the linker (asld) can run out of space while linking. The only
-# way around this is to make a copy of libc.a from which all modules that are
-# not used by Kermit are removed. If you have trouble compiling or running
-# wart, "touch wart". If that doesn't help, "touch ckcpro.c".
-# The version configured below has no interactive command parser.
-# If you can build this version successfully, maybe there will be room for
-# a minimal interactive command parser too; try replacing -DNOICP with
-# -DNOSPL, plus every other -DNOxxx flag there is, except for -DNOICP
-# (see ckccfg.txt).
-minix:
- @echo 'Making C-Kermit $(CKVER) for MINIX, no command parser...
- @echo 'TOTALLY UNTESTED!'
- $(MAKE) wermit EXT=s \
- "CFLAGS= -DV7 -DMINIX -i -D_MINIX -D_POSIX_SOURCE \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DSIG_V \
- -DNOXMIT -DNOMSEND -DNOFRILLS -DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
- -DNOSCRIPT -DNOCSETS -DNOICP -DNOSETKEY $(KFLAGS)" \
- "LNKFLAGS= -i -T"
-
-#MINIX - PC version with 64K+64K limit, new (as yet unreleased) ACK 2.0 beta C
-#compiler, which outputs .o object files, rather than .s. But 'make' still
-#expects .s files, so must be patched to use .o. Tested on Minix 1.5.10.
-minixnew:
- @echo 'Making C-Kermit $(CKVER) for MINIX (new ACK 2.0 compiler),'
- @echo 'no command parser... TOTALLY UNTESTED!'
- $(MAKE) wermit \
- "CFLAGS= -DV7 -DMINIX -i -D_MINIX -D_POSIX_SOURCE \
- -DPID_T=pid_t -DUID_T=uid_t -DGID_T=gid_t -DSIG_V -DNODIAL \
- -DNOHELP -DNODEBUG -DNOTLOG -DNOSCRIPT -DNOCSETS -DNOICP $(KFLAGS)" \
- "LNKFLAGS= -i -T"
-
-#PFU Compact A Series UNIX System V R3, SX/A TISP V10/L50 (Japan)
-#Maybe the -i link option should be removed?
-sxae50:
- @echo 'Making C-Kermit $(CKVER) for PFU SX/A V10/L50...'
- $(MAKE) xermit \
- "CFLAGS= -DSVR3 -DDIRENT -DsxaE50 -DTCPSOCKET $(KFLAGS) -i -O" \
- "LNKFLAGS= "
-
-#Tektronix 6130, 4319, 4301, etc, with UTek OS, /usr/spool/uucp/LCK./...
-#The models that support hardware flow control.
-utek:
- @echo 'Making C-Kermit $(CKVER) for 4.2BSD/UTek, hardware flow control'
- $(MAKE) wermit \
- "CFLAGS= -O -DLCKDIR -DBSD4 -DTCPSOCKET \
- -DUTEK -DDCLPOPEN -DLOCK_DIR=\\\"/usr/spool/uucp/LCK.\\\" \
- -DTRMBUFL=2048 -DCK_DTRCTS $(KFLAGS)"
-
-#Tektronix 4315, 4316, 4317 with UTek OS, /usr/spool/uucp/LCK./...
-#The models that do not fully support hardware flow control.
-uteknohwfc:
- @echo 'Making C-Kermit $(CKVER) for 4.2BSD/UTek, no h/w flow control'
- $(MAKE) wermit \
- "CFLAGS= -O -DLCKDIR -DBSD4 -DTCPSOCKET \
- -DUTEK -DDCLPOPEN -DLOCK_DIR=\\\"/usr/spool/uucp/LCK.\\\" \
- -DTRMBUFL=2048 $(KFLAGS)"
-
-#Tektronix XD88 with UTekV OS
-utekvr3:
- @echo 'Making C-Kermit $(CKVER) for Tektronix XD88 UTekV R3...'
- $(MAKE) wermit \
- "CFLAGS= -DSVR3 -DDIRENT -DHDBUUCP \
- -DTCPSOCKET -DSYSUTIMEH -DCK_CURSES $(KFLAGS) -O" \
- "LIBS= -lcurses" "LNKFLAGS= -s"
-
-#Perkin-Elmer 3200 Xelos R02 or earlier
-ccop1:
- @echo 'Making C-Kermit $(CKVER) for Xelos & Public Domain Dirent calls'
- @echo 'or System V R2 or earlier...'
- $(MAKE) wermit \
- "CFLAGS = -DATTSV -Dvoid=int -DDIRENT -DCK_CURSES \
- $(KFLAGS) -O" "LNKFLAGS =" "LIBS= -lcurses -ltermlib"
-
-#Encore, UMAX 4.3 (BSD) but without acucntrl program.
-encore:
- $(MAKE) "MAKE=$(MAKE)" umax43 "KFLAGS=$(KFLAGS)"
-
-#Encore, as above, but with curses file transfer display included.
-encorec:
- $(MAKE) "MAKE=$(MAKE)" umax43 "KFLAGS=-DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses -ltermcap"
-
-#Encore, UMAX 4.3 (BSD) but without acucntrl program.
-umax43:
- @echo Making C-Kermit $(CKVER) for Encore UMAX 4.3...
- $(MAKE) "MAKE=$(MAKE)" PARALLEL=4 xermit \
- "CFLAGS= -DBSD43 -DENCORE -DTCPSOCKET $(KFLAGS) -O"
-
-#Encore, UMAX 4.2 (BSD)
-umax42:
- @echo Making C-Kermit $(CKVER) for Encore UMAX 4.2...
- $(MAKE) "MAKE=$(MAKE)" PARALLEL=4 xermit \
- "CFLAGS= -DBSD4 -DENCORE -DTCPSOCKET $(KFLAGS) -O"
-
-#Encore 88K UMAX 5.3 with TCP/IP support
-encore88k:
- @echo 'Making C-Kermit $(CKVER) for Encore 88K UMAX V, TCP/IP...'
- $(MAKE) xermit \
- "CFLAGS = -q ext=pcc -DSVR3 -DTCPSOCKET -DDIRENT \
- -DNOGETID_PROTOS -DHDBUUCP $(KFLAGS) -O" "LNKFLAGS ="
-
-#Encore 88K UMAX 5.3 with TCP/IP support
-encore88kgcc:
- @echo 'Making C-Kermit $(CKVER) for Encore 88K UMAX V, TCP/IP, gcc...'
- $(MAKE) xermit CC=gcc CC2=gcc \
- "CFLAGS = -DSVR3 -DTCPSOCKET -DDIRENT \
- -DNOGETID_PROTOS -DHDBUUCP $(KFLAGS) -O" "LNKFLAGS ="
-
-#SONY NEWS, NEWS-OS 4.01C
-sonynews:
- @echo Making C-Kermit $(CKVER) for SONY NEWS-OS 4.01C...
- $(MAKE) xermit "CFLAGS= -DBSD43 -DACUCNTRL -DTCPSOCKET -O"
-
-#Run Lint on this mess for selected versions.
-#These are pretty much obsolete since ANSI C / gcc.
-lintsun:
- @echo 'Running Lint on C-Kermit $(CKVER) sources for SunOS version...'
- lint -x -DSUNOS4 -DDIRENT -DTCPSOCKET -DSAVEDUID \
- ck[cu]*.c > ckuker.lint.sun
-
-lintbsd:
- @echo 'Running Lint on C-Kermit $(CKVER) sources for BSD 4.2 version..'
- lint -x -DBSD4 -DTCPSOCKET ck[cu]*.c > ckuker.lint.bsd42
-
-lints5:
- @echo 'Running Lint on C-Kermit $(CKVER) sources for Sys V version...'
- lint -x -DATTSV ck[cu]*.c > ckuker.lint.s5
-
-#Who remembers TECO?
-love:
- @echo 'Not war?'
+++ /dev/null
-.\" @(#) kermit.1 8.0.211 2004/04/10 Columbia University
-.TH KERMIT 1 "APRIL 2004" "User Manuals"
-.na
-.SH NAME
-kermit \-
-.B C-Kermit 8.0:
-transport- and platform-independent
-interactive and scriptable communications software.
-.IP
-
-This document is intended to give the beginner sufficient information to make
-basic (if not advanced) use of C-Kermit 8.0. Although it might be rather long
-for a Unix manual page, it's still far shorter than the C-Kermit manual, which
-should be consulted for advanced topics such as customization, character-sets,
-scripting, etc. We also attempt to provide a clear structural overview of
-C-Kermit's many capabilities, functional areas, states, and modes and their
-interrelation, that should be helpful to beginners and veterans alike, as well
-as to those upgrading to version 8.0 from earlier releases.
-.PP
-This document is also available as a Web page at:
-.IP
-http://www.columbia.edu/kermit/ckututor.html
-.SH DESCRIPTION
-C-Kermit is an all-purpose communications software package from the Kermit
-Project at Columbia University that:
-.PP
-.nf
-\(bu Is portable to many platforms, Unix and non-Unix alike.
-.br
-\(bu Can make both serial and network connections.
-.br
-\(bu Can conduct interactive terminal sessions over its connection.
-.br
-\(bu Can transfer text or binary files over the same connection.
-.br
-\(bu Can convert character sets in the terminal session.
-.br
-\(bu Can convert character sets during text-file file transfer.
-.br
-\(bu Is customizable in every aspect of its operation.
-.fi
-.PP
-C-Kermit is a modem program, a Telnet client, an Rlogin client, an FTP
-client, an HTTP client, and on selected platforms, also an X.25 client. It
-can make its own secure Internet connections using IETF-approved security
-methods including Kerberos IV, Kerberos V, SSL/TLS, and SRP and it can also
-make SSH connections through your external SSH client application. It can
-be the far-end file-transfer or client/server partner of your desktop
-Kermit client. It can also accept incoming dialed and network connections.
-It can even be installed as an Internet service on its own standard TCP
-socket, 1649 [RFC2839, RFC2840].
-.PP
-And perhaps most important, everything you can do "by hand" (interactively)
-with C-Kermit, can be "scripted" (automated) using its built-in
-cross-platform transport-independent script programming language, which
-happens to be identical to its interactive command language.
-.PP
-This manual page offers an overview of C-Kermit 8.0 for Unix ("Unix" is an
-operating system family that includes AIX, DG/UX, FreeBSD, HP-UX, IRIX,
-Linux, Mac OS X, NetBSD, OpenBSD, Open Server, Open Unix, QNX, Solaris,
-SunOS, System V R3, System V R4, Tru64 Unix, Unixware, Xenix, and many
-others). For thorough coverage, please consult the published C-Kermit
-manual and supplements (see DOCUMENTATION below). For further information
-about C-Kermit, Kermit software for other platforms, and Kermit manuals,
-visit the Kermit Project website:
-.PP
- http://www.columbia.edu/kermit/
-.PP
-This is a longer-than-average manual page, and yet it barely scratches the
-surface. Don't be daunted. C-Kermit is a large and complex package,
-evolving over decades of practice and experience, but that doesn't mean
-it's hard to learn or use. Its most commonly used functions are explained
-here with pointers to additional information elsewhere.
-.SH SYNOPSIS
-.B kermit [
-.I filename
-.B ] [
-.I options
-.B ] [ {=,--,+}
-.I text
-.B ] ]
-.PP
-or:
-.PP
-.B kermit
-.I URL
-.PP
-If the first command-line argument is the name of a file, interactive-mode
-commands are executed from the file. The '=' (or "--") argument tells
-Kermit not to parse the remainder of the command line, but to make the
-words following '=' available as \e%1, \e%2, ... \e%9. The "+" argument is
-like "=" but for use in "kerbang scripts" (explained below). A second
-command-line format allows the one and only argument to be a Telnet, FTP,
-HTTP, or IKSD URL.
-.PP
-Order of execution:
-.TP
- 1.
-The command file (if any).
-.TP
-.nf
- 2.
-The initialization file, if any, unless suppressed with -Y.
-.fi
-.TP
- 3.
-The customization file (if it is executed by the initialization file).
-.TP
- 4.
-The command-line URL (if any, and if so, execution stops here).
-.TP
- 5.
-Command-line options (if any).
-.TP
- 6.
-Interactive commands.
-.PP
-Some command-line options can cause actions (such as -s to send a file);
-others just set parameters. If any action options are included on the
-command line, Kermit exits when finished unless also given the -S ("stay")
-option. If no action options are given, no initialization or command files
-contained an EXIT or QUIT command, and no fatal errors occurred, Kermit
-issues its prompt and waits for you to type commands.
-.IP
-Bear in mind that C-Kermit can be built with selected features
-disabled, and also that certain features are not available on all
-platforms. For example, C-Kermit can't be built with TCP/IP
-support on a platform that does not have TCP/IP header files and
-libraries (and even if Kermit does include TCP/IP support, it
-can't be used to make TCP/IP connections on a computer that does
-not have a TCP/IP stack installed). If your version of lacks
-C-Kermit a feature mentioned here, use its SHOW FEATURES command to
-see what might have been excluded.
-.PP
-C-Kermit has three kinds of commands: regular single-letter command-line
-options, extended-format command-line options, and interactive commands.
-.PP
-Like most Unix commands, C-Kermit can be be given options on the command
-line. But C-Kermit also can be used interactively by giving it commands
-composed of words, which are more intuitive than cryptic command-line
-options, and more flexible too. In other words, you don't have to use
-C-Kermit's command-line options, but they are available if you want to. (By
-the same token, you don't have to use its interactive commands either --
-you can use either or both in any combination.)
-.PP
-C-Kermit is generally installed in the PATH as "kermit", and therefore is
-invoked by typing the word "kermit" (lowercase) at the shell prompt, and
-then pressing the Return or Enter key. If you wish to include command-line
-options, put them after the word "kermit" but before pressing Return or
-Enter, separated by spaces, for example:
-.PP
- $ kermit -s ckermit.tar.gz
-.PP
-('$' is the shell prompt; "kermit -s ckermit.tar.gz" is what you type,
-followed by Return or Enter.)
-.SH OPTIONS
-Here is a list of C-Kermit's single-letter command-line options, which
-start with a single dash (-), in ASCII ("alphabetical") order. Alphabetic
-case is significant (-A is not the same as -a). Action options are
-tagged "ACTION".
-.TP
--0
-(digit zero) 100% transparent Connect state for
-"in-the-middle" operation: 8 bits, no parity, no
-escape character, everything passes through.
-.TP
--8
-(digit eight) Connection is 8-bit clean (this is the
-default in C-Kermit 8.0). Equivalent to the EIGHTBIT
-command, which in turn is a shortcut for SET TERMINAL
-BYTESIZE 8, SET COMMAND BYTESIZE 8, SET PARITY NONE.
-.TP
--9 arg
-(digit nine) Make a connection to an FTP server.
-Equivalent to the FTP OPEN command.
-Argument: IP-address-or-hostname[:optional-TCP-port].
-NOTE: C-Kermit also has a separate FTP command-line
-personality, with regular FTP-like command-line
-syntax. More about this below.
-.TP
--A
-Kermit is to be started as an Internet service (IKSD)
-(only from inetd.conf).
-.TP
--B
-Kermit is running in Batch or Background (no
-controlling terminal). To be used in case Kermit
-doesn't automatically sense its background status.
-Equivalent to the SET BACKGROUND ON command.
-.TP
--C arg
-Interactive-mode Commands to be executed.
-Argument: Commands separated by commas, list in
-doublequotes.
-.TP
--D arg
-Delay before starting to send in Remote mode.
-Equivalent to the SET DELAY command.
-Argument: Number of seconds.
-.TP
--E
-Exit automatically when connection closes. Equivalent
-to SET EXIT ON-DISCONNECT ON.
-.TP
--F arg
-Use an open TCP connection.
-Argument: Numeric file descriptor of open TCP
-connection.
-Also see: -j, -J.
-.TP
--G arg
-(ACTION) Get file(s) from server, send contents to standard
-output, which normally would be piped to another
-process.
-Argument: Remote file specification, in quotes if it
-contains metacharacters.
-Also see: -g, -k.
-.TP
--H
-Suppress program startup Herald and greeting.
-.TP
--I
-Tell Kermit it has a reliable connection, to force streaming to be used where
-it normally would not be. Equivalent to the SET RELIABLE ON command.
-.TP
--J arg
-(ACTION) "Be like Telnet." Like -j but implies -E. Argument: IP
-hostname/address optionally followed by service. NOTE: C-Kermit also has a
-separate Telnet command-line personality, with regular Telnet-like
-command-line syntax. More about this below.
-.TP
--L
-Recursive directory descent for files in -s option.
-.TP
--M arg
-My user name (for use with Telnet, Rlogin, FTP, etc).
-Equivalent to the SET LOGIN USER command.
-Argument: Username string.
-.TP
--O
-(ACTION) (Uppercase letter O) Be a server for One command only.
-Also see: -x.
-.TP
--P
-Don't convert file (Path) names of transferred files.
-Equivalent to SET FILE NAMES LITERAL.
-.TP
--Q
-Quick Kermit protocol settings. Equivalent to the FAST
-command. This is the default in C-Kermit 7.0 and later.
-.TP
--R
-Remote-only (this just makes IF REMOTE true).
-.TP
--S
-Stay (enter command parser after action options).
-.TP
--T
-Force Text mode for file transfer; implies -V.
-Equivalent to SET TRANSFER MODE MANUAL, SET FILE TYPE TEXT.
-.TP
--V
-Disable automatic per-file text/binary switching.
-Equivalent to SET TRANSFER MODE MANUAL.
-.TP
--Y
-Skip (don't execute) the initialization file.
-.TP
--a arg
-As-name for file(s) in -s, -r, or -g.
-Argument: As-name string (alternative filename). When
-receiving files, this can be a directory name.
-.TP
--b arg
-Speed for serial device. Equivalent to SET SPEED.
-Argument: Numeric Bits per second for serial
-connections.
-.TP
--c
-(ACTION) Enter Connect state before transferring files.
-.TP
--d
-Create a debug.log file with detailed debugging
-information (a second -d adds timestamps). Equivalent
-to LOG DEBUG but takes effect sooner.
-.TP
--e arg
-Maximum length for incoming Kermit file-transfer
-packets. Equivalent to SET RECEIVE PACKET-LENGTH.
-Argument: Length in bytes.
-.TP
--f
-(ACTION) Send a FINISH command to a Kermit server.
-.TP
--g arg
-Get file(s) from a Kermit server.
-Argument: File specification on other computer, in
-quotes if it contains metacharacters. Equivalent to
-GET. Also see: -a, -G, -r.
-.TP
--h
-(ACTION) Print Help text for single-letter command-line options
-(pipe thru 'more' to prevent scrolling).
-.TP
--i
-Force binary (Image) mode for file transfer; implies
--V. Equivalent to SET TRANSFER MODE MANUAL, SET FILE
-TYPE BINARY.
-.TP
--j arg
-Make a TCP/IP connection.
-Argument: IP host name/address and optional service
-name or number. Equivalent to the TELNET command.
-Also see: -J, -F.
-.TP
--k
-(ACTION) Receive file(s) to standard output, which normally
-would be piped to another process.
-Also see: -r, -G.
-.TP
--l arg
-(Lowercase letter L) Make a connection on the given
-serial communications device. Equivalent to the SET
-LINE (SET PORT) command.
-Argument: Serial device name, e.g. /dev/ttyS0.
-.TP
--m arg
-Modem type for use with the -l device. Equivalent to
-the SET MODEM TYPE command.
-Argument: Modem name as in SET MODEM TYPE command,
-e.g. "usrobotics".
-.TP
--n
-(ACTION) Enter Connect state after transferring files (historical).
-.TP
--p arg
-Parity. Equivalent to the SET PARITY command.
-Argument: One of the following: e(ven), o(dd), m(ark),
-n(one), s(pace).
-.TP
--q
-Quiet (suppress most messages). Equivalent to SET QUIET ON.
-.TP
--r
-(ACTION) Receive file(s). Equivalent to the RECEIVE command.
-Argument: (none, but see -a)
-.TP
--s arg
-Send file(s).
-Argument: One or more local file specifications.
-Equivalent to the SEND command.
-Also see: -a.
-.TP
--t
-(Historical) Xon (Ctrl-Q) Turnaround character for
-half-duplex connections (used on serial linemode
-connections to old mainframes). Equivalent to SET
-DUPLEX HALF, SET HANDSHAKE XON.
-.TP
--v arg
-Window size for Kermit protocol (ignored when
-streaming). Equivalanet to SET WINDOW-SIZE.
-Argument: Number, 1 to 32.
-.TP
--w
-Incoming files Write over existing files. Equivalent
-to SET FILE COLLISION OVERWRITE.
-.TP
--x
-(ACTION) Enter server mode. Equivalent to the SERVER command.
-Also see: -O.
-.TP
--y arg
-Alternative initialization file.
-Argument: Filename.
-.TP
--z
-Force foreground behavior. To be used in case Kermit
-doesn't automatically sense its foreground status.
-Equivalent to the SET BACKGROUND OFF command.
-.PP
-Extended command-line options (necessary because single-letter ones are
-about used up) start with two dashes (--), with words rather than single
-letters as option names. If an extended option takes an argument, it is
-separated from the option word by a colon (:). Extended options include:
-
-.TP
- --bannerfile:filename
-File to display upon startup or IKSD login.
-.TP
- --cdfile:filename
-File to be sent for display to the client when
-server changes directory (filename is relative to
-the changed-to directory).
-.TP
- --cdmessage:{on,off}
-Enable/disable the server CD message feature.
-.TP
- --help
-Prints usage message for extended options.
-.TP
- --helpfile:filename
-Designates a file containing custom text to
-replace the top-level HELP command.
-.TP
- --nointerrupts
-Disables keyboard interrupts.
-.TP
- --noperms
-Disables the Kermit protocol file Permissions
-attribute, to prevent transmission of file
-permissions (protection) from sender to receiver.
-.TP
- --version
-(ACTION) C-Kermit prints its version number.
-.PP
-Plus several other IKSD-Only options described at:
-.PP
- http://www.columbia.edu/kermit/iksd.html
-.PP
-See the file-transfer section for examples of command-line invocation.
-.SH COMMAND LANGUAGE
-C-Kermit's interactive command language is the subject of a 622-page book
-and another several hundred pages of updates, far too much for a manual
-page. But it's not hard to get started. At the shell prompt, just type
-"kermit" to get C-Kermit's interactive command prompt:
-.PP
-.nf
- $ kermit
- (/current/directory) C-Kermit>
-.fi
-.PP
-Begin by typing "help" (and then press the Return or Enter key) for a
-top-level overview, read it, and go from there. Your second command should
-probably be "intro" (introduction). Note the prompt shows your current
-directory (unless you tell Kermit to prompt you with something else).
-.PP
-Interactive commands are composed mainly of regular English words, usually
-in the form of imperative sentences, such as:
-.PP
- send oofa.txt
-.PP
-which tells Kermit to send (transfer) the file whose name is oofa.txt, or:
-.PP
- set transfer mode automatic
-.PP
-which sets Kermit's "transfer mode" to "automatic" (whatever that means).
-.PP
-While typing commands, you can abbreviate, ask for help (by pressing the
-"?" key anywhere in a command), complete keywords or filenames (with the
-Tab or Esc key), and edit your typing with Backspace or Delete, Ctrl-W,
-Ctrl-U, etc. You can also recall previous commands, save your command
-history, and who knows what else. Give the INTRO command for details.
-.PP
-C-Kermit has hundreds of commands, and they can be issued in infinite
-variety and combinations, including commands for:
-.nf
-.PP
-\(bu Making connections (SET LINE, DIAL, TELNET, SSH, FTP, ...)
-.br
-\(bu Breaking connections (HANGUP, CLOSE)
-.br
-\(bu Transferring files (SEND, GET, RECEIVE, MOVE, RESEND, ...)
-.br
-\(bu Establishing preferences (SET)
-.br
-\(bu Displaying preferences (SHOW)
-.br
-\(bu Managing local files (CD, DELETE, MKDIR, DIR, RENAME, TYPE, ...)
-.br
-\(bu Managing remote files (RCD, RDEL, RMKDIR, RDIR, ...)
-.br
-\(bu Using local files (FOPEN, FCLOSE, FREAD, FWRITE)
-.br
-\(bu Programming (TAKE, DEFINE, IF, FOR, WHILE, SWITCH, DECLARE, ...)
-.br
-\(bu Interacting with the user (ECHO, ASK, ...)
-.br
-\(bu Interacting with a remote computer (INPUT, OUTPUT, ...)
-.br
-\(bu Interacting with local programs (RUN, EXEC, PTY, ...)
-.br
-\(bu Logging things (LOG SESSION, LOG PACKETS, LOG DEBUG, ...)
-.PP
-.fi
-And of course QUIT or EXIT to get out and HELP to get help, and for
-programmers: loops, decision making, variables, arrays, associative arrays,
-integer and floating point arithmetic, macros, built-in and user-defined
-functions, string manipulation, pattern matching, block structure, scoping,
-recursion, and all the rest. To get a list of all C-Kermit's commands, type
-a question mark (?) at the prompt. To get a description of any command,
-type HELP followed by the name of the command, for example:
-.PP
- help send
-.PP
-The command interruption character is Ctrl-C (hold down the Ctrl key and
-press the C key).
-.PP
-The command language "escape character", used to introduce variable names,
-function invocations, and so on, is backslash (\). If you need to include a
-literal backslash in a command, type two of them, e.g.:
-.PP
- get c:\ek95\ek95custom.ini
-.SS Command Files, Macros, and Scripts
-A file containing Kermit commands is called a Kermit command file or Kermit
-script. It can be executed with Kermit's TAKE command:
-.PP
- (/current/dir) C-Kermit> take commandfile
-.PP
-(where "commandfile" is the name of the command file). Please don't pipe a
-command file into Kermit's standard input (which might or might not work);
-if you have Kermit commands in a file, tell Kermit to TAKE the file.
-.PP
-In Unix only, a Kermit command file can also be executed directly by
-including a "kerbang" line as the first line of the file:
-.PP
- #!/usr/local/bin/kermit +
-.PP
-That is, a top line that starts with "#!", followed immediately by the full
-path of the Kermit executable, and then, if the Kermit script is to be
-given arguments on the command line, a space and a plus sign. The script
-file must also have execute permission:
-.PP
- chmod +x commandfile
-.PP
-Except for the " +" part, this is exactly the same as you would do for a
-shell script, a Perl script, etc. Here's a simple but useless example
-script that regurgitates its arguments (up to three of them):
-.PP
- #!/usr/local/bin/kermit +
- if defined \e%1 echo "Argument 1: \e%1"
- if defined \e%2 echo "Argument 2: \e%2"
- if defined \e%3 echo "Argument 3: \e%3"
- if defined \e%4 echo "etc..."
- exit
-.PP
-If this file is stored in your current directory as "commandfile", then:
-.PP
- ./commandfile one two three four five
-.PP
-prints:
-.PP
- Argument 1: one
- Argument 2: two
- Argument 3: three
- etc...
-.PP
-This illustrates the basic structure of a standalone Kermit script: the
-"kerbang line", then some commands. It should end with "exit" unless you
-want the Kermit prompt to appear when it is finished. \e%1 is the first
-argument, \e%2 the second, and so on.
-.PP
-You can also create your own commands by defining named macros composed of
-other Kermit commands (or macros). For example:
-.PP
-.nf
- define mydelete {
- local trash
- assign trash \ev(home)trashcan/
- if not defined \e%1 end 1 "Delete what?"
- if wild \e%1 {
- end 1 "Deleting multiple files is too scary"
- }
- if not exist \e%1 end 1 "I can't find \e%1"
- if not directory \em(trash) {
- mkdir \em(trash)
- if fail end 1 "No trash can"
- }
- rename /list \e%1 \em(trash)
- }
- define myundelete {
- local trash
- assign trash \ev(home)trashcan/
- if not defined \e%1 end 1 "Undelete what?"
- if wild \e%1 {
- end 1 "Undeleting multiple files is too hard"
- }
- if not directory \em(trash) end 1 "No trash can"
- if not exist \em(trash)\e%1 {
- end 1 "I can't find \e%1 in trash can"
- }
- rename /list \em(trash)\e%1 .
- }
-.PP
-.fi
-These sample macros are not exactly production quality (they don't handle
-filenames that include path segments, they don't handle multiple files,
-etc), but you get the idea: you can pass arguments to macros, and they can
-check them and make other kinds of decisions. If you put the above lines
-into your initialization or customization file (explained below), you'll
-have MYDELETE and MYUNDELETE commands available every time you start
-Kermit, at least as long as you don't suppress execution of the
-initialization file. (Exercise for the reader: Make these macros generally
-useful: remove limitations, add trashcan display, browsing, emptying, etc.)
-.PP
-Kerbang scripts execute without the initialization file. This to keep them
-portable and also to make them start faster. If you want to write Kerbang
-scripts that depend on the initialization file, include the command
-.PP
- take \ev(home).kermrc
-.PP
-at the desired spot in the script. By the way, \ev(xxx) is a built-in
-variable (xxx is the variable name, "home" in this case). To see what
-built-in variables are available, type "show variables" at the C-Kermit
-prompt. To see what else you can show, type "show ?". \em(xxx) is a user
-defined variable (strictly speaking, it is a macro used as a variable).
-.SS Command List
-C-Kermit has more than 200 top-level commands, and some of these, such as
-SET, branch off into hundreds of subcommands of their own, so it's not
-practical to describe them all here. Instead, here's a concise list of the
-most commonly used top-level commands, grouped by category. To learn about
-each command, type "help" followed by the command name, e.g. "help set".
-Terms such as Command state and Connect state are explained in subsequent
-sections.
-.PP
-Optional fields are shown in [ brackets ]. "filename" means the
-name of a single file. filespec means a file specification that is allowed
-to contain wildcard characters like '*' to match groups of files. options
-are (optional) switches like /PAGE, /NOPAGE, /QUIET, etc, listed in the
-HELP text for each command. Example:
-.PP
-.nf
- send /recursive /larger:10000 /after:-1week /except:*.txt *
-.fi
-.PP
-which can be read as "send all the files in this directory and all the ones
-underneath it that are larger than 10000 bytes, no more than one week old,
-and whose names don't end with ".txt".
-.SS
-Basic Commands
-.RS
-.TP
-HELP
-Requests top-level help.
-.TP
-HELP command
-Requests help about the given command.
-.TP
-INTRODUCTION
-Requests a brief introduction to C-Kermit.
-.TP
-LICENSE
-Displays the C-Kermit software copyright and license.
-.TP
-VERSION
-Displays C-Kermit's version number.
-.TP
-EXIT [ number ]
-Exits from Kermit with the given
-status code. Synonyms: QUIT, E, Q.
-.TP
-TAKE filename [ parameters... ]
-Executes commands from the given
-.TP
-LOG item [ filename ]
-Keeps a log of the given item in the given file.
-.TP
-[ DO ] macro [ parameters... ]
-Executes commands from the given macro.
-.TP
-SET parameter value
-Sets the given parameter to the given value.
-.TP
-SHOW category
-Shows settings in a given category.
-.TP
-STATUS
-Tells whether previous command succeeded or failed.
-.TP
-DATE [ date-and/or-time ]
-Shows current date-time or interprets given date-time.
-.TP
-RUN [ extern-command [ parameters... ]
-Runs the given external command. Synonym: !.
-.TP
-EXEC [ extern-command [ params... ]
-Kermit overlays itself with the given command.
-.TP
-SUSPEND
-Stops Kermit and puts it in the background. Synonym: Z.
-.RE
-.SS
-Local File Management
-.RS
-.TP
-TYPE [ options ] filename
-Displays the contents of the given file.
-.TP
-MORE [ options ] filename
-Equivalent to TYPE /PAGE (pause after each screenful).
-.TP
-CAT [ options ] filename
-Equivalent to TYPE /NOPAGE.
-.TP
-HEAD [ options ] filename
-Displays the first few lines of a given file.
-.TP
-TAIL [ options ] filename
-Displays the last few lines of a given file.
-.TP
-GREP [ options ] pattern filespec
-Displays lines from files that match
-the pattern. Synonym: FIND.
-.TP
-DIRECTORY [ options ] [filespec ]
-Lists files (built-in, many options).
-.TP
-LS [ options ] [ filespec ]
-Lists files (runs external "ls" command).
-.TP
-DELETE [ options ] [ filespec ]
-Deletes files. Synonym: RM.
-.TP
-PURGE [ options ] [ filespec ]
-Removes backup (*.~n~) files.
-.TP
-COPY [ options ] [ filespecs... ]
-Copies files. Synonym: CP.
-.TP
-RENAME [ options ] [ filespecs... ]
-Renames files. Synonym: MV.
-.TP
-CHMOD [ options ] [ filespecs... ]
-Changes permissions of files.
-.TP
-TRANSLATE filename charsets [ filename ]
-Converts file's character set. Synonym: XLATE.
-.TP
-CD
-Changes your working directory to your home directory.
-.TP
-CD directory
-Changes your working directory to the one given.
-.TP
-CDUP
-Changes your working directory one level up.
-.TP
-PWD
-Displays your working directory.
-.TP
-BACK
-Returns to your previous working directory.
-.TP
-MKDIR [ directory ]
-Creates a directory.
-.TP
-RMDIR [ directory ]
-Removes a directory.
-.RE
-.SS
-Making Connections
-.RS
-.TP
-SET LINE [ options ] devicename
-Opens the named serial port. Synonym: SET PORT.
-.TP
-OPEN LINE [ options ] devicename
-Same as SET LINE. Synonym: OPEN PORT.
-.TP
-SET MODEM TYPE [ name ]
-Tells Kermit what kind of modem is on the port.
-.TP
-DIAL [ number ]
-Tells Kermit to dial the given phone number with the modem.
-.TP
-REDIAL
-Redials the most recently dialed phone number.
-.TP
-ANSWER
-Waits for and answers an incoming call on the modem.
-.TP
-AUTHENTICATE [ parameters... ]
-Performs secure authentication on a TCP/IP connection.
-.TP
-SET NETWORK TYPE { TCP/IP, X.25, ... }
-Selects network type for subsequent SET HOST commands.
-.TP
-SET HOST [ options ] host [ port ]
-Opens a network connection to the given host and port.
-.TP
-SET HOST * port
-Waits for an incoming TCP/IP connection on the given port.
-.TP
-TELNET [ options ] host
-Opens a Telnet connection to the host and enters Connect state.
-.TP
-RLOGIN [ options ] host
-Opens an Rlogin connection to the host and enters Connect state.
-.TP
-IKSD [ options ] host
-Opens a connection to an Internet Kermit Service.
-.TP
-SSH [ options ] host
-Opens an SSH connection to the host and enters Connect state.
-.TP
-FTP OPEN host [ options ]
-Opens an FTP connection to the host.
-.TP
-HTTP [ options ] OPEN host
-Opens an HTTP connection to the host.
-.TP
-PTY external-command
-Runs the command on a pseudoterminal as if it were a connection.
-.TP
-PIPE external-command
-Runs the command through a pipe as if it were a connection.
-.RE
-.SS
-Using Connections
-.RS
-.TP
-CONNECT [ options ]
-Enters Connect (terminal) state. Synonym: C.
-.TP
-REDIRECT command
-Redirects the given external command over the connection.
-.TP
-TELOPT command
-Sends a Telnet protocol command (Telnet connections only).
-.TP
-Ctrl-\eC
-"Escapes back" from Connect state to Command state.
-.TP
-Ctrl-\eB
-(In Connect state) Sends a BREAK signal (serial or Telnet).
-.TP
-Ctrl-\e!
-(In Connect state) Enters inferior shell; "exit" to return.
-.TP
-Ctrl-\e?
-(In Connect state) Shows a menu of other escape-level options.
-.TP
-Ctrl-\eCtrl-\e
-(In Connect state) Type two
-Ctrl-Backslashes to send one of them.
-.TP
-SET ESCAPE [ character ]
-Changes Kermit's Connect-state escape character.
-.RE
-.SS
-Closing Connections
-.RS
-.TP
-HANGUP
-Hangs up the currently open
-serial-port or network connection.
-.TP
-CLOSE
-Closes the currently open
-serial-port or network connection.
-.TP
-SET LINE (with no devicename)
-Closes the currently open
-serial-port or network connection.
-.TP
-SET HOST (with no hostname)
-Closes the currently open serial-port or network connection.
-.TP
-FTP CLOSE
-Closes the currently open FTP connection.
-.TP
-HTTP CLOSE
-Closes the currently open HTTP connection.
-.TP
-EXIT
-Also closes all connections. Synonym: QUIT.
-.TP
-SET EXIT WARNING OFF
-Suppresses warning about open connections on exit or close.
-.RE
-.SS
-File Transfer
-.RS
-.TP
-SEND [ options ] filename [ as-name ]
-Sends the given file. Synonym: S.
-.TP
-SEND [ options ] filespec
-Sends all files that match.
-.TP
-RESEND [ options ] filespec
-Resumes an interupted SEND from the point of failure.
-.TP
-RECEIVE [ options ] [ as-name ]
-Waits passively for files to arrive. Synonym: R.
-.TP
-LOG TRANSACTIONS [ filename ]
-Keeps a record of file transfers.
-.TP
-FAST
-Use fast file-transfer settings (default).
-.TP
-CAUTIOUS
-Use cautious and less fast file-transfer settings.
-.TP
-ROBUST
-Use ultra-conservative and slow file-transfer settings.
-.TP
-STATISTICS [ options ]
-Gives statistics about the most recent file transfer.
-.TP
-WHERE
-After transfer: "Where did my files go?".
-.TP
-TRANSMIT [ options ] [ofilename ]
-Sends file without protocol. Synonym: XMIT.
-.TP
-LOG SESSION [ filename ]
-Captures remote text or files without protocol.
-.TP
-SET PROTOCOL [ name... ]
-Tells Kermit to use an external file-transfer protocol.
-.TP
-FTP { PUT, MPUT, GET, MGET, ... }
-FTP client commands.
-.TP
-HTTP { PUT, GET, HEAD, POST, ... }
-HTTP client commands.
-.RE
-.SS
-Kermit Server
-.RS
-.TP
-ENABLE, DISABLE
-Controls which server features can be used by clients.
-.TP
-SET SERVER
-Sets parameters prior to entering Server state.
-.TP
-SERVER
-Enters Server state.
-.RE
-.SS
-Client of Kermit or FTP Server
-.RS
-.TP
-[ REMOTE ] LOGIN [ user password ]
-Logs in to a Kermit server or IKSD that requires it.
-.TP
-[ REMOTE ] LOGOUT
-Logs out from a Kermit server or IKSD.
-.TP
-SEND [ options ] filename [ as-name ]
-Sends the given file to the server. Synonyms: S, PUT.
-.TP
-SEND [ options ] filespec
-Sends all files that match.
-.TP
-RESEND [ options ] filespec
-Resumes an interupted SEND from the point of failure.
-.TP
-GET [ options ] remote-filespec
-Asks the server to send the given files. Synonym: G.
-.TP
-REGET [ options ] remote-filespec
-Resumes an interrupted GET from the point of failure.
-.TP
-REMOTE CD [ directory ]
-Asks server to change its working
-directory. Synonym: RCD.
-.TP
-REMOTE PWD [ directory ]
-Asks server to display its working directory. Synonym: RPWD.
-.TP
-REMOTE DIRECTORY [ filespec... ]
-Asks server to send a directory listing. Synonym: RDIR.
-.TP
-REMOTE DELETE [ filespec... ]
-Asks server to delete files. Synonym: RDEL.
-.TP
-REMOTE [ command... ]
-(Many other commands: "remote ?" for a list).
-.TP
-MAIL [ options ] filespec
-Sends file(s) to be delivered as e-mail (Kermit only).
-.TP
-FINISH
-Asks the server to exit server state (Kermit only).
-.TP
-BYE
-Asks the server to log out and close the connection.
-.RE
-.SS
-Script Programming
-.PP
-.RS
-DEFINE, DECLARE, UNDEFINE, UNDECLARE, ASSIGN, EVALUATE, SEXPRESSION,
-ARRAY, SORT, INPUT, OUTPUT, IF, FOR, WHILE, SWITCH, GOTO, ECHO, ASK,
-GETC, GETOK, ASSERT, WAIT, SLEEP, FOPEN, FREAD, FWRITE, FCLOSE, STOP,
-END, RETURN, LEARN, SHIFT, TRACE, VOID, INCREMENT, DECREMENT, ... For
-these and many more you'll need to consult the manual and supplements,
-and/or visit the Kermit Script Library, which also includes a brief
-tutorial. Hint: HELP LEARN to find out how to get Kermit to write
-simple scripts for you.
-.RE
-.PP
-Many of Kermit's commands have synonyms, variants, relatives, and so on.
-For example, MSEND is a version of SEND that accepts a list of file
-specifications to be sent, rather than just one file specification, and
-MPUT is a synonym of MSEND. MOVE means to SEND and then DELETE the source
-file if successful. MMOVE is like MOVE, but accepts a list of filespecs,
-and so on. These are described in the full documentation.
-.PP
-Use question mark to feel your way through an unfamiliar command, as in
-this example:
-.PP
-.nf
- C-Kermit> remote ? One of the following:
- assign directory kermit print rmdir
- cd exit login pwd set
- copy help logout query space
- delete host mkdir rename type
- C-Kermit> remote set ? One of the following:
- attributes file retry transfer
- block-check receive server window
- C-Kermit> remote set file ? One of the following:
- character-set incomplete record-length
- collision names type
- C-Kermit> remote set file names ? One of the following:
- converted literal
- C-Kermit> remote set file names literal
- C-Kermit>
-.PP
-.fi
-This is called menu on demand: you get a menu when you want one, but menus
-are not forced on you even when know what you're doing. Note that you can
-also abbreviate most keywords, and you can complete them with the Tab or
-Esc key. Also note that ? works for filenames too, and that you can use it
-in the middle of a keyword or filename, not just at the beginning. For
-example, "send x?" lists all the files in the current directory whose names
-start with 'x'.
-.SH INITIALIZATION FILE
-In its default configuration, C-Kermit executes commands from a file
-called .kermrc in your home directory when it starts, unless it is given the
--Y or -y command-line option. Custom configurations might substitute a shared
-system-wide initialization file. The SHOW FILE command tells what
-initialization file, if any, was used. The standard initialization file
-"chains" to an individual customization file, .mykermc, in the home directory,
-in which each user can establish her/his own preferences, define macros, and
-so on.
-.PP
-Since execution of the initialization file (at least the standard one)
-makes C-Kermit take longer to start, it might be better not to have an
-initialization file, especially now that Kermit's default startup
-configuration is well attuned to modern computing and networking -- in
-other words, you no longer have do anything special to make Kermit
-transfers go fast. So instead of having an initialization file that is
-executed every time Kermit starts, you might consider making one or more
-kerbang scripts (with names other that .kermrc) that do NOT include an
-"exit" command, and invoke those when you need the settings, macro
-definitions, and/or scripted actions they contain, and invoke C-Kermit
-directly when you don't.
-.PP
-To put it another way... We still distribute the standard initialization
-file since it's featured in the manual and backwards compatibility is
-important to us. But there's no harm in not using it if you don't need the
-stuff that's in it (services directory, dialing directory, network
-directory, and associated macro definitions). On the other hand, if there
-are settings or macros you want in effect EVERY time you use Kermit, the
-initialization file (or the customization file it chains to) is the place
-to put them, because that's the only place Kermit looks for them
-automatically each time you start it.
-.SH MODES OF OPERATION
-Kermit is said to be in Local mode if it has made a connection to another
-computer, e.g. by dialing it or establishing a Telnet connection to it. The
-other computer is remote, so if you start another copy of Kermit on the
-remote computer, it is said to be in Remote mode (as long as it has not
-made any connections of its own). The local Kermit communicates over the
-communications device or network connection, acting as a conduit between
-the the remote computer and your keyboard and screen. The remote Kermit is
-the file-transfer partner to the local Kermit and communicates only through
-its standard input and output.
-.PP
-At any moment, a Kermit program can be in any of the following states. It's
-important to know what they are and how to change from one to the other.
-.TP
-Command state
-In this state, Kermit reads commands from:
-.sp
-\(bu Your keyboard; or:
-.br
-\(bu A file, or:
-.br
-\(bu A macro definition.
-.sp
-You can exit from Command state back to Unix with the EXIT or QUIT
-command (same thing). You can enter Connect state with any of various
-commands (CONNECT, DIAL, TELNET, etc). You can enter file transfer
-state with commands like SEND, RECEIVE, and GET. You can enter Server
-state with the SERVER command. The TAKE command tells Kermit to read
-and execute commands from a file. The (perhaps implied) DO command
-tells Kermit to read and execute commands from a macro definition.
-While in Command state, you can interrupt any command, macro, or
-command file by typing Ctrl-C (hold down the Ctrl key and press the C
-key); this normally brings you back to the prompt.
-.TP
-Shell state
-You can invoke an inferior shell or external command from the Kermit
-command prompt by using the PUSH, RUN (!), EDIT, or BROWSE command.
-While the inferior shell or command is active, Kermit is suspended and
-does nothing. Return to Kermit Command state by exiting from the
-inferior shell or application.
-.TP
-Connect state
-In this state, which can be entered only when in Local mode (i.e. when
-Kermit has made a connection to another computer), Kermit is acting as
-a terminal to the remote computer. Your keystrokes are sent to the
-remote computer and characters that arrive over the communication
-connection are displayed on your screen. This state is entered when
-you give a CONNECT, DIAL, TELNET, RLOGIN, or IKSD command. You can
-return to command state by logging out of the remote computer, or by
-typing:
-.sp
- Ctrl-\ec
-.sp
-That is: Hold down the Ctrl key and press the backslash key, then let
-go of the Ctrl key and press the C key. This is called escaping back.
-Certain other escape-level commands are also provided; type Ctrl-\e?
-for a list. For example, you can enter Shell state with:
-.sp
- Ctrl-\e!
-.sp
-To send a Ctrl-\e to the host while in Connect state, type two of them
-in a row. See HELP CONNECT and HELP SET ESCAPE for more info.
-.TP
-Local file-transfer state
-In this state, Kermit is sending packets back and forth with the other
-computer in order to transfer a file or accomplish some other
-file-related task. And at the same time, it is displaying its progress
-on your screen and watching your keyboard for interruptions. In this
-state, the following single-keystroke commands are accepted:
-.sp
-.RS
-.TP
-X
-Interrupt the current file and go on to the next (if any).
-.TP
-Z
-Interrupt the current file and skip all the rest.
-.TP
-E
-Like Z but uses a "stronger" protocol (use if X or Z don't work).
-.TP
-Ctrl-C
-Interrupt file-transfer mode (use if Z or E don't work).
-.sp
-.RE
-Kermit returns to its previous state (Command or Connect) when the
-transfer is complete or when interrupted successfully by X, Z, E, or
-Ctrl-C (hold down the Ctrl key and press the C key).
-.TP
-Remote file-transfer state
-In this state, Kermit is exchanging file-transfer packets with its
-local partner over its standard i/o. It leaves this state
-automatically when the transfer is complete. In case you find your
-local Kermit in Connect state and the remote one in File-transfer
-state (in which it seems to ignore your keystrokes), you can usually
-return it to command state by typing three Ctrl-C's in a row. If that
-doesn't work, return your local Kermit to Command state (Ctrl-\e C) and
-type "e-packet" and then press the Return or Enter key; this forces a
-fatal Kermit protocol error.
-.TP
-Remote Server state
-This is like Remote File-transfer state, except it never returns
-automatically to Command state. Rather, it awaits further instructions
-from the client program; that is, from your Local Kermit program. You
-can return the Remote Server to its previous state by issuing a
-"finish" command to the client, or if you are in Connect state, by
-typing three Ctrl-C's in a row. You can tell the server job to log out
-and break the connection by issuing a "bye" command to the client.
-.TP
-Local Server state
-Like Remote-Server state, but in local mode, and therefore with its
-file-transfer display showing, and listening for single-key commands,
-as in Local File-transfer state. Usually this state is entered
-automatically when a remote Kermit program gives a GET command.
-.sp
-C-Kermit, Kermit 95, and MS-DOS Kermit all can switch automatically from
-Connect state to Local File-transfer state when you initiate a file
-transfer from the remote computer by starting Kermit and telling it to send
-or get a file, in which case, Connect state is automatically resumed after
-the file transfer is finished.
-.sp
-Note that C-Kermit is not a terminal emulator. It is a communications
-application that you run in a terminal window (e.g. console or Xterm). The
-specific emulation, such as VT100, VT220, Linux Console, or Xterm, is
-provided by the terminal window in which you are running C-Kermit. Kermit
-95 and MS-DOS Kermit, on the other hand, are true terminal emulators. Why
-is C-Kermit not a terminal emulator? CLICK HERE to read about it.
-.SH MAKING CONNECTIONS
-Here is how to make different kinds of connections using interactive Kermit
-commands (as noted above, you can also make connections with command-line
-options). Note that you don't have to make connections with Kermit. It can
-also be used on the far end of a connection as the remote file transfer and
-management partner of your local communications software.
-.TP
-Making a Telnet Connection
-At the C-Kermit command prompt, simply type:
-.sp
-.nf
- telnet foo.bar.com
-.fi
-.sp
-(substituting desired hostname or address).
-You can also include a port number:
-.sp
-.nf
- telnet xyzcorp.com 3000 ;
-.fi
-.sp
-If the connection is successful, Kermit automically enters Connect
-state. When you logout from the remote host, Kermit automatically
-returns to its prompt. More info: HELP TELNET, HELP SET TELNET, HELP
-SET TELOPT. Also see the IKSD section below.
-.TP
-Making an Rlogin connection
-This is just like Telnet, except you have to be root to do it because
-Rlogin uses a privileged TCP port:
-.sp
-.nf
- rlogin foo.bar.com
-.fi
-.sp
-More info: HELP RLOGIN.
-.TP
-Making an SSH Connection
-Unlike Telnet and Rlogin, SSH connections are not built-in, but
-handled by running your external SSH client through a pseudoterminal.
-Using C-Kermit to control the SSH client gives you all of Kermit's
-features (file transfer, character-set conversion, scripting, etc)
-over SSH.
-.sp
- ssh foo.bar.com
-.sp
-More info: HELP SSH, HELP SET SSH.
-.TP
-Dialing with a Modem
-If it's an external modem, make sure it is connected to a usable
-serial port on your computer with a regular (straight-through) modem
-cable, and to the telephone jack with a telephone cable, and that it's
-turned on. Then use these commands:
-.sp
-.nf
- set modem type usrobotics ; Or other supported type
- set line /dev/ttyS0 ; Specify device name
- set speed 57600 ; Or other desired speed
- set flow rts/cts ; Most modern modems support this
- set dial method tone ; (or pulse)
- dial 7654321 ; Dial the desired number
-.fi
-.sp
-Type "set modem type ?" for a list of supported modem types. If you
-omit the SET MODEM TYPE command, the default type is
-"generic-high-speed", which should work for most modern AT-command-set
-modems. If the line is busy, Kermit redials automatically. If the call
-does not succeed, use "set dial display on" and try it again to watch
-what happens. If the call succeeds, Kermit enters Connect state
-automatically and returns to its prompt automatically when you log out
-from the remote computer or the connection is otherwise lost.
-.sp
-You can also dial from a modem that is accessible by Telnet, e.g. to a
-reverse terminal server. In this case the command sequence is:
-.sp
-.nf
- set host ts.xxx.com 2000 ; Terminal-server and port
- set modem type usrobotics ; Or other supported type
- set dial method tone ; (or pulse)
- dial 7654321 ; Dial the desired number
-.fi
-.sp
-If the terminal server supports the Telnet Com Port Option, RFC 2217,
-you can also give serial-port related commands such as SET SPEED, SET
-PARITY, and so on, and Kermit relays them to the terminal server using
-the protocol specified in the RFC.
-.sp
-More info: HELP SET MODEM, HELP SET LINE, HELP SET SPEED, HELP SET
-FLOW, HELP DIAL, HELP SET DIAL, HELP SET MODEM, HELP SET
-CARRIER-WATCH, SHOW COMMUNICATIONS, SHOW MODEM, SHOW DIAL.
-.TP
-Direct Serial Port
-Connect the two computers, A and B, with a null modem cable (or two
-modem cables interconnected with a null-modem adapter or modem
-eliminator). From Computer A:
-.sp
-.nf
- set modem type none ; There is no modem
- set line /dev/ttyS0 ; Specify device name
- set carrier-watch off ; If DTR CD are not cross-connected
- set speed 57600 ; Or other desired speed
- set flow rts/cts ; If RTS and CTS are cross-connected
- set parity even ; (or "mark" or "space", if necessary)
- set stop-bits 2 ; (rarely necessary)
- set flow xon/xoff ; If you can't use RTS/CTS
- connect ; Enter Connect (terminal) state
-.fi
-.sp
-This assumes Computer B is set up to let you log in. If it isn't, you
-can run a copy of Kermit on Computer B and follow approximately the
-same directions. More info: As above plus HELP CONNECT.
-.PP
-With modems or direct serial connections, you might also have to "set
-parity even" (or "mark" or "space") if it's a 7-bit connection.
-.PP
-Of the connection types listed above, only one can be open at a time.
-However, any one of these can be open concurrently with an FTP or HTTP
-session. Each connection type can be customized to any desired degree,
-scripted, logged, you name it. See the manual.
-.PP
-NOTE: On selected platforms, C-Kermit also can make X.25 connections. See
-the manual for details.
-.SH TRANSFERRING FILES WITH KERMIT
-There is a widespread and persistent belief that Kermit is a slow protocol.
-This is because, until recently, it used conservative tuning by default to
-make sure file transfers succeeded, rather than failing because they
-overloaded the connection. Some extra commands (or command-line options,
-like -Q) were needed to make it go fast, but nobody bothered to find out
-about them. Also, it takes two to tango: most non-Kermit-Project Kermit
-protocol implementations really ARE slow. The best file-transfer partners
-for C-Kermit are: another copy of C-Kermit (7.0 or later) and Kermit 95.
-These combinations work well and they work fast by default. MS-DOS Kermit
-is good too, but you have to tell it to go fast (by giving it the FAST
-command).
-.PP
-Furthermore, all three of these Kermit programs support "autodownload" and
-"autoupload", meaning that when they are in Connect state and a Kermit
-packet comes in from the remote, they automatically switch into file
-transfer mode.
-.PP
-And plus, C-Kermit and K95 also switch automatically between text and
-binary mode for each file, so there is no need to "set file type binary" or
-"set file type text", or to worry about files being corrupted because they
-were transferred in the wrong mode.
-.PP
-What all of these words add up to is that now, when you use up-to-date
-Kermit software from the Kermit Project, file transfer is not only fast,
-it's ridiculously easy. You barely have to give any commands at all.
-.TP
-Downloading Files
-Let's say you have Kermit 95, C-Kermit, or MS-DOS Kermit on your
-desktop computer, with a connection to a Unix computer that has
-C-Kermit installed as "kermit". To download a file (send it from Unix
-to your desktop computer), just type the following command at your
-Unix shell prompt:
-.sp
- kermit -s oofa.txt
-.sp
-(where oofa.txt is the filename). If you want to send more than one
-file, you can put as many filenames as you want on the command line,
-and they can be any combination of text and binary:
-.sp
- kermit -s oofa.txt oofa.zip oofa.html oofa.tar.gz
-.sp
-and/or you can use wildcards to send groups of files:
-.sp
- kermit -s oofa.*
-.sp
-If you want to send a file under an assumed name, use:
-.sp
- kermit -s friday.txt -a today.txt
-.sp
-This sends the file friday.txt but tells the receiving Kermit that its
-name is today.txt. In all cases, as noted, when the file transfer is
-finished, your desktop Kermit returns automatically to Connect state.
-No worries about escaping back, re-connecting, text/binary mode
-switching. Almost too easy, right?
-.TP
-Uploading Files
-To upload files (send them from your desktop computer to the remote
-Unix computer) do the same thing, but use the -g (GET) option instead
-of -s:
-.sp
- kermit -g oofa.txt
-.sp
-This causes your local Kermit to enter server mode; then the remote
-Kermit program requests the named file and the local Kermit sends it
-and returns automatically to Connect state when done.
-.sp
-If you want to upload multiple files, you have have use shell quoting
-rules, since these aren't local files:
-.sp
-.nf
- kermit -g "oofa.txt oofa.zip oofa.html oofa.tar.gz"
- kermit -g "oofa.*"
-.fi
-.sp
-If you want to upload a file but store it under a different name, use:
-.sp
- kermit -g friday.txt -a today.txt
-.TP
-Kermit Transfers the Old-Fashioned Way
-If your desktop communications software does not support autoupload or
-autodownload, or it does not include Kermit server mode, the procedure
-requires more steps.
-.sp
-To download a file, type:
-.sp
- kermit -s filename
-.sp
-on the host as before, but if nothing happens automatically in
-response to this command, you have to switch your desktop
-communications software into Kermit Receive state. This might be done
-by escaping back using keyboard characters or hot keys (Alt-x is
-typical) and/or with a command (like RECEIVE) or a menu. When the file
-transfer is complete, you have to go back to Connect state, Terminal
-emulation, or whatever terminology applies to your desktop
-communications software.
-.sp
-To upload a file, type:
-.sp
- kermit -r
-.sp
-on the host (rather than "kermit -g"). This tells C-Kermit to wait
-passively for a file to start arriving. Then regain the attention of
-your desktop software (Alt-x or whatever) and instruct it to send the
-desired file(s) with Kermit protocol. When the transfer is finished,
-return to the Connect or Terminal screen.
-.TP
-If File Transfer Fails
-Although every aspect of Kermit's operation can be finely tuned, there
-are also three short and simple "omnibus tuning" commands you can use
-for troubleshooting:
-.RS
-.TP
-FAST
-Use fast file-transfer settings. This has been the default since
-C-Kermit 7.0 now that most modern computers and connections
-support it. If transfers fail with fast settings, try . . .
-.TP
-CAUTIOUS
-Use cautious but not paranoid settings. File transfers, if they
-work, will go at medium speed. If not, try . . .
-.TP
-ROBUST
-Use the most robust, resilient, conservative, safe, and reliable
-settings. File transfers will almost certainly work, but they
-will be quite slow (of course this is a classic tradeoff; ROBUST
-was C-Kermit's default tuning in versions 6.0 and earlier, which
-made everybody think Kermit protocol was slow). If ROBUST doesn't
-do the trick, try again with SET PARITY SPACE first in case it's
-not an 8-bit connection.
-.RE
-.sp
-Obviously the success and performance of a file transfer also depends
-on C-Kermit's file transfer partner. Up-to-date, real Kermit Project
-partners are recommended because they contain the best Kermit protocol
-implementations and because we can support them in case of trouble.
-.sp
-If you still have trouble, consult Chapter 10 of Using C-Kermit, or
-send email to kermit-support@columbia.edu.
-.TP
-Advanced Kermit File-Transfer Features
-Obviously there is a lot more to Kermit file transfer, including all
-sorts of interactive commands, preferences, options, logging,
-debugging, troubleshooting, and anything else you can imagine but
-that's what the manual and updates are for. Here are a few topics you
-can explore if you're interested by Typing HELP for the listed
-commands:
-.RS
-.TP
-Logging transfers:
-LOG TRANSACTIONS (HELP LOG)
-.TP
-Automatic per-file text/binary mode switching:
-SET TRANSFER MODE { AUTOMATIC, MANUAL } (HELP SET TRANSFER).
-.TP
-Cross-platform recursive directory tree transfer:
-SEND /RECURSIVE, GET /RECURSIVE (HELP SEND, HELP GET).
-.TP
-File collision options:
-SET FILE COLLISION { OVERWRITE, BACKUP, DISCARD, ... } (HELP SET FILE).
-.TP
-Update: Transfer only files that changed since last time:
-SET FILE COLLISION UPDATE (HELP SET FILE).
-.TP
-Filename selection patterns:
-(HELP WILDCARD).
-.TP
-Flexible file selection:
-SEND (or GET) /BEFORE /AFTER /LARGER /SMALLER /TYPE /EXCEPT, ...
-.TP
-Character-set conversion:
-SET { FILE, TRANSFER } CHARACTER-SET, ASSOCIATE, ...
-.TP
-File/Pathname control:
-SET { SEND, RECEIVE } PATHNAMES, SET FILE NAMES.
-.TP
-Atomic file movement:
-SEND (or GET) /DELETE /RENAME /MOVE-TO
-.TP
-Transferring to/from standard i/o of other commands:
-SEND (or GET) /COMMAND
-.TP
-Recovery of interrupted transfer from point of failure:
-RESEND, REGET (HELP RESEND, HELP REGET).
-.RE
-.TP
-Non-Kermit File Transfer
-You can also use C-Kermit to transfer files with FTP or HTTP Internet
-protocols; see below.
-.sp
-On a regular serial or Telnet connection where the other computer
-doesn't support Kermit protocol at all, you have several options. For
-example, if your desktop communications software supports Zmodem, use
-"rz" and "sz" on the host rather than Kermit. But if Kermit is your
-desktop software, and you are using it to make calls or network
-connections to other computers that don't support Kermit protocol (or
-that don't have a good implementation of it), then if your computer
-also has external X, Y, or Zmodem programs that are redirectable,
-Kermit can use them as external protocols. HELP SET PROTOCOL for
-details.
-.sp
-You can also capture "raw" data streams from the other computer with
-LOG SESSION (HELP LOG and HELP SET SESSION-LOG for details), and you
-can upload files without any protocol at all with TRANSMIT (HELP
-TRANSMIT, HELP SET TRANSMIT).
-.SH KERMIT'S BUILT-IN FTP AND HTTP CLIENTS
-Kermit's FTP client is like the regular Unix FTP client that you're used
-to, but with some differences:
-.TP
-\(bu
-It has lots more commands and features.
-.TP
-\(bu
-Each FTP command must be prefixed with "ftp", for example "ftp open",
-"ftp get", "ftp bye", etc (this is not strictly true, but until you're
-more familiar with it, it's best to follow this rule).
-.TP
-\(bu
-Commands like "cd", "directory", etc, execute locally, not on the
-server. Use "ftp cd", "ftp dir", etc, to have them act on the server.
-.TP
-\(bu
-You can have an FTP session and a regular Kermit serial or Telnet
-session open at the same time.
-.TP
-\(bu
-FTP sessions can be fully automated.
-.PP
-Pending publication of the next edition of the manual, the Kermit FTP
-client is thoroughly documented at the Kermit Project website:
-.sp
- http://www.columbia.edu/kermit/ftpclient.html
-.sp
-You also can use HELP FTP and HELP SET FTP to get descriptions of Kermit's
-FTP-related commands.
-.PP
-The HTTP client is similar to the FTP one, except you prefix each command
-with HTTP instead of FTP: HTTP OPEN, HTTP GET, HTTP PUT, HTTP CLOSE, etc.
-Type HELP HTTP for details, or visit the to view the manual supplements.
-HTTP connections can be open at the same time as regular serial or Telnet
-connections and FTP connections. So Kermit can manage up to three types
-connections simultaneously.
-.SH INTERNET KERMIT SERVICE
-C-Kermit can be configured and run as an Internet service (called IKSD),
-similar to an FTP server (FTPD) except you can (but need not) interact with
-it directly, plus it does a lot more than an FTP server can do. The TCP
-port for IKSD is 1649. It uses Telnet protocol. C-Kermit can be an Internet
-Kermit Server, or it can be a client of an IKSD. You can make connections
-from C-Kermit to an IKSD with any of the following commands:
-.sp
-.nf
- telnet foo.bar.edu 1649
- telnet foo.bar.edu kermit ; if "kermit" is listed in /etc/services
- iksd foo.bar.edu
-.fi
-.sp
-The IKSD command is equivalent to a TELNET command specifying port 1649.
-For more information about making and using connections to an IKSD, see:
-.sp
- http://www.columbia.edu/kermit/cuiksd.html
-.sp
-You can run an Internet Kermit Service on your own computer too (if you are
-the system administrator). For instructions, see:
-.sp
- http://www.columbia.edu/kermit/iksd.html
-.SH SECURITY
-All of C-Kermit's built-in TCP/IP networking methods (Telnet, Rlogin, IKSD,
-FTP, and HTTP) can be secured by one or more of the following IETF-approved
-methods:
-.PP
-\(bu MIT Kerberos IV
-.br
-\(bu MIT Kerberos V
-.br
-\(bu SSL/TLS
-.br
-\(bu Stanford SRP
-.PP
-For complete instructions see:
-.PP
- http://www.columbia.edu/kermit/security.html
-.PP
-And as noted previously, you can also make SSH connections with C-Kermit if
-you already have an SSH client installed.
-.SH ALTERNATIVE COMMAND-LINE PERSONALITIES
-When invoked as "kermit" or any other name besides "ftp" or "telnet",
-C-Kermit has the command-line options described above in the OPTIONS
-section. However, if you invoke C-Kermit as "telnet" or "ftp", it changes
-its command-line personality to match. This can be done (among other ways)
-with symbolic links (symlinks). For example, if you want C-Kermit to be
-your regular Telnet client, or the Telnet helper of your Web browser, you
-can create a link like the following in a directory that lies in your PATH
-ahead of the regular telnet program:
-.sp
- ln -s /usr/local/bin/kermit telnet
-.sp
-Now when you give a "telnet" command, you are invoking Kermit instead, but
-with its Telnet command-line personality so, for example:
-.sp
- telnet xyzcorp.com
-.sp
-Makes a Telnet connection to xyzcorp.com, and Kermit exits automatically
-when the connection is closed (just like the regular Telnet client). Type
-"telnet -h" to get a list of Kermit's Telnet-personality command-line
-options, which are intended to be as compatible as possible with the
-regular Telnet client.
-.PP
-Similarly for FTP:
-.sp
- ln -s /usr/local/bin/kermit ftp
-.sp
-And now type "ftp -h" to see its command-line options, and command lines
-just like you would give your regular FTP client:
-.sp
- ftp xyzcorp.com
-.sp
-but with additional options allowing an entire session to be specified on
-the command line. Finally, if Kermit's
-first command-line option is a Telnet, FTP, IKSD, or HTTP URL, Kermit
-automatically makes the appropriate kind of connection and, if indicated by
-the URL, takes the desired action:
-.TP
-kermit telnet:xyzcorp.com
-Opens a Telnet session
-.TP
-kermit telnet://olga@xyzcorp.com
-Ditto for user olga
-.TP
-kermit ftp://olga@xyzcorp.com/public/oofa.zip
-Downloads a file
-.TP
-kermit kermit://kermit.columbia.edu/kermit/f/READ.ME
-Ditto for IKSD
-.TP
-kermit iksd://kermit.columbia.edu/kermit/f/READ.ME
-(This works too)
-.TP
-kermit http://www.columbia.edu/kermit/index.html
-Grabs a web page
-.fi
-.SH LICENSE
-C-Kermit has an unusual license, but a fair and sensible one since the
-Kermit Project must support itself out of revenue: it's not a BSD license,
-not GPL, not Artistic, not commercial, not shareware, not freeware. It can
-be summed up like this: if you want C-Kermit for your own use, you can
-download and use it without cost or license (but we'd appreciate it if you
-would purchase the manual). But if you want to sell C-Kermit or bundle it
-with a product or otherwise distribute it in a commercial setting EXCEPT
-WITH AN OPEN-SOURCE OPERATING SYSTEM DISTRIBUTION such as Linux, FreeBSD,
-NetBSD, or OpenBSD, you must license it. To see the complete license, give
-the LICENSE command at the prompt, or see the COPYING.TXT file distributed
-with C-Kermit 7.0 or later, or download it from
-.sp
- ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
-.sp
-Send licensing inquiries to kermit@columbia.edu.
-.SH BUGS
-See the following files for listings of known bugs, limitations,
-workarounds, hints and tips:
-.TP
-ckcbwr.txt
-General C-Kermit bugs, hints, tips.
-.TP
-ckubwr.txt
-Unix-specific C-Kermit bugs, hints, tips.
-.PP
-Report bugs and problems by email to:
-.sp
- kermit-support@columbia.edu.
-.sp
-Before requesting technical support, please read the hints here:
-.sp
- http://www.columbia.edu/kermit/support.html
-.sp
-and also read the C-Kermit Frequently Asked Questions:
-.sp
- http://www.columbia.edu/kermit/ckfaq.html
-.SH OTHER TOPICS
-There's way more to C-Kermit than we've touched on here -- troubleshooting,
-customization, character sets, dialing directories, sending pages, script
-writing, and on and on, all of which are covered in the manual and updates
-and supplements. For the most up-to-date information on documentation (or
-updated documentation itself) visit the Kermit Project website:
-.sp
- http://www.columbia.edu/kermit/
-.PP
-There you will also find Kermit software packages for other platforms:
-different Unix varieties, Windows, DOS, VMS, IBM mainframes, and many
-others: 20+ years' worth.
-.SH DOCUMENTATION AND UPDATES
-The manual for C-Kermit is:
-.TP
-.I
-Using C-Kermit
-Frank da Cruz and Christine M. Gianone,
-Second Edition, Digital Press / Butterworth-Heinemann, Woburn, MA, 1997, 622
-pages, ISBN 1-55558-164-1. This is a printed book. It covers C-Kermit 6.0.
-.TP
-The C-Kermit 7.0 Supplement
-http://www.columbia.edu/kermit/ckermit2.html
-.TP
-The C-Kermit 8.0 Supplement
-http://www.columbia.edu/kermit/ckermit3.html
-.PP
-Visit C-Kermit home page:
-.sp
- http://www.columbia.edu/kermit/ckermit.html
-.sp
-to learn about new versions, Beta tests, and other news; to
-read case studies and tutorials; to download source code, install packages,
-and prebuilt binaries for many platforms. Also visit:
-.TP
-http://www.columbia.edu/kermit/scriptlib.html
-The Kermit script library and tutorial
-.TP
-http://www.columbia.edu/kermit/newfaq.html
-The Kermit FAQ (Frequently Asked Questions about Kermit)
-.TP
-http://www.columbia.edu/kermit/ckfaq.html
-The C-Kermit FAQ (Frequently Asked Questions about C-Kermit)
-.TP
-http://www.columbia.edu/kermit/telnet.html
-C-Kermit Telnet client documentation
-.TP
-http://www.columbia.edu/kermit/security.html
-C-Kermit security documentation (Kerberos, SSL/TLS, etc)
-.TP
-http://www.columbia.edu/kermit/cuiksd.html
-Internet Kermit Service user documentation
-.TP
-http://www.columbia.edu/kermit/iksd.html
-Internet Kermit Service administrator documentation
-.TP
-http://www.columbia.edu/kermit/studies.html
-Case studies.
-.TP
-http://www.columbia.edu/kermit/support.html
-Technical support.
-.TP
-http://www.columbia.edu/kermit/k95tutorial.html
-Kermit 95 tutorial.
-.TP
-comp.protocols.kermit.misc
-The Kermit newsgroup (unmoderated).
-.SH FILES
-.TP
-COPYING.TXT
-C-Kermit license.
-.TP
-~/.kermrc
-Initialization file.
-.TP
-~/.mykermrc
-Customization file.
-.TP
-~/.kdd
-Kermit dialing directory (see manual).
-.TP
-~/.knd
-Kermit network directory (see manual).
-.TP
-~/.ksd
-Kermit services directory (see manual).
-.TP
-ca_certs.pem
-Certificate Authority certifcates used for SSL connections.
-.TP
-ckuins.txt
-Installation instructions for Unix. Also at
-http://www.columbia.edu/kermit/ckuins.html.
-.TP
-ckcbwr.txt
-General C-Kermit bugs, hints, tips.
-.TP
-ckubwr.txt
-Unix-specific C-Kermit bugs, hints, tips.
-.TP
-ckcplm.txt
-C-Kermit program logic manual.
-.TP
-ckccfg.txt
-C-Kermit compile-time configuration options.
-.TP
-ssh
-(in your PATH) SSH connection helper.
-.TP
-rz, sz, etc.
-(in your PATH) external protocols for XYZmodem.
-.TP
-/var/spool/locks (or whatever)
-UUCP lockfile for dialing out (see installation instructions).
-.SH AUTHORS
-.TP
-Software
-Frank da Cruz and Jeffrey E Altman,
-.br
-1985-present, with contributions from hundreds of others all over the
-world.
-.TP
-Documentation
-Frank da Cruz and Christine M Gianone
-.TP
-Address
-.nf
-The Kermit Project - Columbia Univerity
-612 West 115th Street
-New York NY 10025-7799
-USA
-.fi
-.TP
-E-Mail
-kermit@columbia.edu
-.TP
-Web
-http://www.columbia.edu/kermit/
-.fi
-.br
+++ /dev/null
-#include "ckcsym.h"
-#ifndef NOICP
-
-/* C K U U S 6 -- "User Interface" for Unix Kermit (Part 6) */
-
-/*
- Authors:
- Frank da Cruz <fdc@columbia.edu>,
- The Kermit Project, Columbia University, New York City
- Jeffrey E Altman <jaltman@secure-endpoints.com>
- Secure Endpoints Inc., New York City
-
- Copyright (C) 1985, 2004,
- Trustees of Columbia University in the City of New York.
- All rights reserved. See the C-Kermit COPYING.TXT file or the
- copyright text in the ckcmai.c module for disclaimer and permissions.
-*/
-
-/* Includes */
-
-#include "ckcdeb.h"
-#include "ckcasc.h"
-#include "ckcker.h"
-#include "ckuusr.h"
-#include "ckcxla.h"
-#include "ckcnet.h" /* Network symbols */
-#include <signal.h>
-
-#ifdef VMS
-#ifndef TCPSOCKET
-#include <errno.h>
-#endif /* TCPSOCKET */
-#endif /* VMS */
-
-#ifdef datageneral
-#define fgets(stringbuf,max,fd) dg_fgets(stringbuf,max,fd)
-#endif /* datageneral */
-
-#ifdef QNX6
-#define readblock kreadblock
-#endif /* QNX6 */
-
-/* External Kermit Variables, see ckmain.c for description. */
-
-extern xx_strp xxstring;
-
-extern int local, xitsta, binary, parity, escape, flow, cmd_rows, turn,
- turnch, duplex, ckxech, seslog, dfloc, cnflg, tlevel, pflag, msgflg, mdmtyp,
- zincnt, quiet, repars, techo, network, nzxopts, what, filepeek, recursive;
-
-extern int xaskmore, tt_rows, tt_cols, cmd_cols, g_matchdot, diractive,
- xcmdsrc, nscanfile, reliable, nolinks;
-
-#ifdef VMSORUNIX
-extern int zgfs_dir, zgfs_link;
-#endif /* VMSORUNIX */
-
-#ifdef CK_IFRO
- extern int remonly;
-#endif /* CK_IFRO */
-
-#ifdef OS2
-extern int StartedFromDialer ;
-extern int vmode;
-extern int k95stdout;
-#ifndef NT
-#define INCL_NOPM
-#define INCL_VIO /* Needed for ckocon.h */
-#include <os2.h>
-#undef COMMENT
-#else
-#define APIRET ULONG
-#include <windows.h>
-#include <tapi.h>
-#include "ckntap.h"
-#endif /* NT */
-#include "ckocon.h"
-#endif /* OS2 */
-
-extern long vernum, speed;
-extern char *versio, *protv, *ckxv, *ckzv, *fnsv, *connv, *dftty, *cmdv;
-extern char *dialv, *loginv, *for_def[], *whil_def[], *xif_def[], *sw_def[];
-extern char *foz_def[];
-extern char *ckxsys, *ckzsys;
-#ifndef OS2
-extern char *DIRCMD;
-#ifndef UNIX
-extern char *DELCMD;
-#endif /* UNIX */
-#endif /* OS2 */
-extern char ttname[], filnam[];
-extern CHAR sstate, feol;
-extern char *zinptr;
-
-#ifdef UNIX
-extern char ** mtchs; /* zxpand() file list */
-#endif /* UNIX */
-
-#ifndef NOXFER
-extern int oopts, omode, oname, opath; /* O-Packet options */
-
-extern int stdinf, sndsrc, size, rpsiz, urpsiz, fncnv, fnrpath, displa,
- stdouf, isguest, pktlog, nfils, keep, maxrps, fblksiz, frecl, frecfm,
- atcapr, atdiso, spsizf, spsiz, spsizr, spmax, wslotr, prefixing,
- fncact, fnspath, nprotos, g_proto, g_urpsiz, g_spsizf,
- g_spsiz, g_spsizr, g_spmax, g_wslotr, g_prefixing, g_fncact, g_fncnv,
- g_fnspath, g_fnrpath, xfrxla, g_xfrxla;
-
-extern char *cmarg, *cmarg2;
-
-#ifndef NOMSEND /* Multiple SEND */
-extern char *msfiles[];
-#endif /* NOMSEND */
-extern char fspec[]; /* Most recent filespec */
-extern int fspeclen;
-
-#ifdef CK_TMPDIR
-extern int f_tmpdir; /* Directory changed temporarily */
-extern char savdir[]; /* For saving current directory */
-#endif /* CK_TMPDIR */
-
-extern struct keytab protos[]; /* File transfer protocols */
-extern struct ck_p ptab[NPROTOS];
-#endif /* NOXFER */
-
-#ifdef DCMDBUF /* Declarations from cmd package */
-extern char *cmdbuf, *atmbuf; /* Command buffers */
-#else
-extern char cmdbuf[], atmbuf[]; /* Command buffers */
-#endif /* DCMDBUF */
-
-extern int nopush;
-
-#ifndef NOSPL
-int askflag = 0; /* ASK-class command active */
-extern char **a_ptr[];
-extern int a_dim[];
-extern char **m_xarg[];
-extern int n_xarg[];
-extern struct mtab *mactab;
-extern int nmac;
-extern long ck_alarm;
-extern char alrm_date[], alrm_time[];
-extern int x_ifnum;
-#endif /* NOSPL */
-
-extern int inserver; /* I am IKSD */
-extern int backgrd; /* Kermit executing in background */
-extern char psave[]; /* For saving & restoring prompt */
-extern char *tp; /* Temporary buffer */
-
-int readblock = 4096; /* READ buffer size */
-CHAR * readbuf = NULL; /* Pointer to read buffer */
-int readsize = 0; /* Number of chars actually read */
-int getcmd = 0; /* GET-class command was given */
-
-extern int zchkod, zchkid;
-
-struct keytab deltab[] = { /* DELETE Command Options */
- { "/all", DEL_ALL, CM_INV },
- { "/after", DEL_AFT, CM_ARG },
- { "/ask", DEL_ASK, 0 },
- { "/before", DEL_BEF, CM_ARG },
- { "/directories", DEL_DIR, 0 },
- { "/dotfiles", DEL_DOT, 0 },
- { "/except", DEL_EXC, CM_ARG },
- { "/heading", DEL_HDG, 0 },
- { "/l", DEL_LIS, CM_INV|CM_ABR },
- { "/larger-than", DEL_LAR, CM_ARG },
- { "/list", DEL_LIS, 0 },
- { "/log", DEL_LIS, CM_INV },
- { "/noask", DEL_NAS, 0 },
- { "/nodotfiles", DEL_NOD, 0 },
- { "/noheading", DEL_NOH, 0 },
- { "/nol", DEL_NOL, CM_INV|CM_ABR },
- { "/nolist", DEL_NOL, 0 },
- { "/nolog", DEL_NOL, CM_INV },
- { "/nopage", DEL_NOP, 0 },
- { "/not-after", DEL_NAF, CM_ARG },
- { "/not-before", DEL_NBF, CM_ARG },
- { "/not-since", DEL_NAF, CM_INV|CM_ARG },
- { "/page", DEL_PAG, 0 },
- { "/quiet", DEL_QUI, CM_INV },
- { "/recursive", DEL_REC, 0 },
- { "/simulate", DEL_SIM, 0 },
- { "/since", DEL_AFT, CM_ARG|CM_INV },
- { "/smaller-than", DEL_SMA, CM_ARG },
- { "/summary", DEL_SUM, 0 },
- { "/tree", DEL_ALL, 0 },
- { "/type", DEL_TYP, CM_ARG },
- { "/verbose", DEL_VRB, CM_INV }
-};
-int ndeltab = sizeof(deltab)/sizeof(struct keytab);
-
-/* /QUIET-/VERBOSE (/LIST-/NOLIST) (/LOG-/NOLOG) table */
-
-struct keytab qvswtab[] = {
- { "/l", DEL_LIS, CM_INV|CM_ABR },
- { "/list", DEL_LIS, 0 },
- { "/log", DEL_LIS, CM_INV },
- { "/nol", DEL_NOL, CM_INV|CM_ABR },
- { "/nolist", DEL_NOL, 0 },
- { "/nolog", DEL_NOL, CM_INV },
- { "/quiet", DEL_QUI, CM_INV },
- { "/verbose", DEL_VRB, CM_INV }
-};
-int nqvswtab = sizeof(qvswtab)/sizeof(struct keytab);
-
-struct keytab copytab[] = {
- { "/append", 998, 0 },
-#ifndef NOSPL
- { "/fromb64", 997, 0 },
-#endif /* NOSPL */
- { "/l", DEL_LIS, CM_INV|CM_ABR },
- { "/list", DEL_LIS, 0 },
- { "/log", DEL_LIS, CM_INV },
- { "/nol", DEL_NOL, CM_INV|CM_ABR },
- { "/nolist", DEL_NOL, 0 },
- { "/nolog", DEL_NOL, CM_INV },
- { "/quiet", DEL_QUI, CM_INV },
- { "/swap-bytes", 999, 0 },
-#ifndef NOSPL
- { "/tob64", 996, 0 },
-#endif /* NOSPL */
- { "/verbose", DEL_VRB, CM_INV }
-};
-int ncopytab = sizeof(copytab)/sizeof(struct keytab);
-
-#ifndef NOXFER
-static struct keytab gettab[] = { /* GET options */
- { "/as-name", SND_ASN, CM_ARG },
- { "/binary", SND_BIN, 0 },
-#ifdef CALIBRATE
- { "/calibrate", SND_CAL, CM_INV },
-#endif /* CALIBRATE */
-#ifdef PIPESEND
- { "/command", SND_CMD, CM_PSH },
-#endif /* PIPESEND */
- { "/delete", SND_DEL, 0 },
- { "/except", SND_EXC, CM_ARG },
- { "/filenames", SND_NAM, CM_ARG },
-#ifdef PIPESEND
- { "/filter", SND_FLT, CM_ARG|CM_PSH },
-#endif /* PIPESEND */
-#ifdef VMS
- { "/image", SND_IMG, 0 },
- { "/labeled", SND_LBL, 0 },
-#else
- { "/image", SND_BIN, CM_INV },
-#endif /* VMS */
-#ifdef CK_TMPDIR
- { "/move-to", SND_MOV, CM_ARG },
-#endif /* CK_TMPDIR */
- { "/pathnames", SND_PTH, CM_ARG },
- { "/pipes", SND_PIP, CM_ARG|CM_PSH },
- { "/quiet", SND_SHH, 0 },
-#ifdef CK_RESEND
- { "/recover", SND_RES, 0 },
-#endif /* CK_RESEND */
- { "/recursive", SND_REC, 0 },
- { "/rename-to", SND_REN, CM_ARG },
-#ifdef COMMENT
- { "/smaller-than", SND_SMA, CM_ARG },
-#endif /* COMMENT */
- { "/subdirectories", SND_REC, CM_INV },
- { "/text", SND_TXT, 0 },
- { "/transparent", SND_XPA, 0 }
-};
-#define NGETTAB sizeof(gettab)/sizeof(struct keytab)
-static int ngettab = NGETTAB;
-
-static struct keytab rcvtab[] = { /* RECEIVE options */
- { "/as-name", SND_ASN, CM_ARG },
- { "/binary", SND_BIN, 0 },
-#ifdef CALIBRATE
- { "/calibrate", SND_CAL, CM_INV },
-#endif /* CALIBRATE */
-#ifdef PIPESEND
- { "/command", SND_CMD, CM_PSH },
-#endif /* PIPESEND */
- { "/except", SND_EXC, CM_ARG },
- { "/filenames", SND_NAM, CM_ARG },
-#ifdef PIPESEND
- { "/filter", SND_FLT, CM_ARG|CM_PSH },
-#endif /* PIPESEND */
-#ifdef VMS
- { "/image", SND_IMG, 0 },
- { "/labeled", SND_LBL, 0 },
-#else
- { "/image", SND_BIN, CM_INV },
-#endif /* VMS */
-#ifdef CK_TMPDIR
- { "/move-to", SND_MOV, CM_ARG },
-#endif /* CK_TMPDIR */
- { "/pathnames", SND_PTH, CM_ARG },
- { "/pipes", SND_PIP, CM_ARG|CM_PSH },
-#ifdef CK_XYZ
- { "/protocol", SND_PRO, CM_ARG },
-#else
- { "/protocol", SND_PRO, CM_ARG|CM_INV },
-#endif /* CK_XYZ */
- { "/quiet", SND_SHH, 0 },
- { "/recursive", SND_REC, 0 },
- { "/rename-to", SND_REN, CM_ARG },
- { "/text", SND_TXT, 0 },
- { "/transparent", SND_XPA, 0 }
-};
-#define NRCVTAB sizeof(rcvtab)/sizeof(struct keytab)
-static int nrcvtab = NRCVTAB;
-#endif /* NOXFER */
-
-/* WAIT table */
-
-#define WAIT_FIL 997
-#define WAIT_MDM 998
-
-struct keytab waittab[] = {
- { "cd", BM_DCD, CM_INV }, /* (Carrier Detect) */
- { "cts", BM_CTS, CM_INV }, /* (Clear To Send) */
- { "dsr", BM_DSR, CM_INV }, /* (Data Set Ready) */
- { "file", WAIT_FIL, 0 }, /* New category selector keywords */
- { "modem-signals", WAIT_MDM, 0 }, /* ... */
- { "ri", BM_RNG, CM_INV } /* (Ring Indicator) */
-};
-int nwaittab = (sizeof(waittab) / sizeof(struct keytab));
-
-/* Modem signal table */
-
-struct keytab mstab[] = {
- { "cd", BM_DCD, 0 }, /* Carrier Detect */
- { "cts", BM_CTS, 0 }, /* Clear To Send */
- { "dsr", BM_DSR, 0 }, /* Data Set Ready */
- { "ri", BM_RNG, 0 } /* Ring Indicator */
-};
-int nms = (sizeof(mstab) / sizeof(struct keytab));
-
-#define WF_MOD 1
-#define WF_DEL 2
-#define WF_CRE 3
-
-struct keytab wfswi[] = { /* WAIT FILE switches */
- { "creation", WF_CRE, 0 }, /* Wait for file to be created */
- { "deletion", WF_DEL, 0 }, /* Wait for file to be deleted */
- { "modification", WF_MOD, 0 } /* Wait for file to be modified */
-};
-int nwfswi = (sizeof(wfswi) / sizeof(struct keytab));
-
-#ifndef NOSPL
-struct keytab asgtab[] = { /* Assignment operators for "." */
- { "::=", 2, 0 }, /* ASSIGN and EVALUATE */
- { ":=", 1, 0 }, /* ASSIGN */
- { "=", 0, 0 } /* DEFINE */
-};
-int nasgtab = (sizeof(asgtab) / sizeof(struct keytab));
-
-struct keytab opntab[] = {
-#ifndef NOPUSH
- { "!read", OPN_PI_R, CM_INV },
- { "!write", OPN_PI_W, CM_INV },
-#endif /* NOPUSH */
- { "append", OPN_FI_A, 0 },
- { "host", OPN_NET, 0 },
-#ifdef OS2
- { "line", OPN_SER, CM_INV },
- { "port", OPN_SER, 0 },
-#else
- { "line", OPN_SER, 0 },
- { "port", OPN_SER, CM_INV },
-#endif /* OS2 */
- { "read", OPN_FI_R, 0 },
- { "write", OPN_FI_W, 0 }
-};
-int nopn = (sizeof(opntab) / sizeof(struct keytab));
-
-/* IF conditions */
-
-#define XXIFCO 0 /* IF COUNT */
-#define XXIFER 1 /* IF ERRORLEVEL */
-#define XXIFEX 2 /* IF EXIST */
-#define XXIFFA 3 /* IF FAILURE */
-#define XXIFSU 4 /* IF SUCCESS */
-#define XXIFNO 5 /* IF NOT */
-#define XXIFDE 6 /* IF DEFINED */
-#define XXIFEQ 7 /* IF EQUAL (strings) */
-#define XXIFAE 8 /* IF = (numbers) */
-#define XXIFLT 9 /* IF < (numbers) */
-#define XXIFGT 10 /* IF > (numbers) */
-#define XXIFLL 11 /* IF Lexically Less Than (strings) */
-#define XXIFLG 12 /* IF Lexically Greater Than (strings) */
-#define XXIFEO 13 /* IF EOF (READ file) */
-#define XXIFBG 14 /* IF BACKGROUND */
-#define XXIFNU 15 /* IF NUMERIC */
-#define XXIFFG 16 /* IF FOREGROUND */
-#define XXIFDI 17 /* IF DIRECTORY */
-#define XXIFNE 18 /* IF NEWER */
-#define XXIFRO 19 /* IF REMOTE-ONLY */
-#define XXIFAL 20 /* IF ALARM */
-#define XXIFSD 21 /* IF STARTED-FROM-DIALER */
-#define XXIFTR 22 /* IF TRUE */
-#define XXIFNT 23 /* IF FALSE */
-#define XXIFTM 24 /* IF TERMINAL-MACRO */
-#define XXIFEM 25 /* IF EMULATION */
-#define XXIFOP 26 /* IF OPEN */
-#define XXIFLE 27 /* IF <= */
-#define XXIFGE 28 /* IF >= */
-#define XXIFIP 29 /* IF INPATH */
-#define XXIFTA 30 /* IF TAPI */
-#define XXIFMA 31 /* IF MATCH */
-#define XXIFFL 32 /* IF FLAG */
-#define XXIFAB 33 /* IF ABSOLUTE */
-#define XXIFAV 34 /* IF AVAILABLE */
-#define XXIFAT 35 /* IF ASKTIMEOUT */
-#define XXIFRD 36 /* IF READABLE */
-#define XXIFWR 37 /* IF WRITEABLE */
-#define XXIFAN 38 /* IF ... AND ... */
-#define XXIFOR 39 /* IF ... OR ... */
-#define XXIFLP 40 /* IF left parenthesis */
-#define XXIFRP 41 /* IF right parenthesis */
-#define XXIFNQ 42 /* IF != (== "NOT =") */
-#define XXIFQU 43 /* IF QUIET */
-#define XXIFCK 44 /* IF C-KERMIT */
-#define XXIFK9 45 /* IF K-95 */
-#define XXIFMS 46 /* IF MS-KERMIT */
-#define XXIFWI 47 /* IF WILD */
-#define XXIFLO 48 /* IF LOCAL */
-#define XXIFCM 49 /* IF COMMAND */
-#define XXIFFP 50 /* IF FLOAT */
-#define XXIFIK 51 /* IF IKS */
-#define XXIFKB 52 /* IF KBHIT */
-#define XXIFKG 53 /* IF KERBANG */
-#define XXIFVE 54 /* IF VERSION */
-#define XXIFDC 55 /* IF DECLARED */
-#define XXIFGU 56 /* IF GUI */
-
-struct keytab iftab[] = { /* IF commands */
- { "!", XXIFNO, 0 },
- { "!=", XXIFNQ, 0 },
- { "&&", XXIFAN, 0 },
- { "(", XXIFLP, 0 },
- { ")", XXIFRP, 0 },
- { "<", XXIFLT, 0 },
- { "<=", XXIFLE, 0 },
- { "=", XXIFAE, 0 },
- { "==", XXIFAE, CM_INV },
- { ">", XXIFGT, 0 },
- { ">=", XXIFGE, 0 },
- { "absolute", XXIFAB, 0 },
- { "alarm", XXIFAL, 0 },
- { "and", XXIFAN, 0 },
- { "asktimeout", XXIFAT, 0 },
- { "available", XXIFAV, 0 },
- { "background", XXIFBG, 0 },
- { "c-kermit", XXIFCK, 0 },
- { "command", XXIFCM, 0 },
- { "count", XXIFCO, 0 },
- { "dcl", XXIFDC, CM_INV },
- { "declared", XXIFDC, 0 },
- { "defined", XXIFDE, 0 },
-#ifdef CK_TMPDIR
- { "directory", XXIFDI, 0 },
-#endif /* CK_TMPDIR */
- { "emulation", XXIFEM, 0 },
-#ifdef COMMENT
- { "eof", XXIFEO, 0 },
-#endif /* COMMENT */
- { "equal", XXIFEQ, 0 },
- { "error", XXIFFA, CM_INV },
- { "exist", XXIFEX, 0 },
- { "failure", XXIFFA, 0 },
- { "false", XXIFNT, 0 },
- { "flag", XXIFFL, 0 },
-#ifdef CKFLOAT
- { "float", XXIFFP, 0 },
-#endif /* CKFLOAT */
- { "foreground", XXIFFG, 0 },
-#ifdef OS2
- { "gui", XXIFGU, 0 },
-#else
- { "gui", XXIFGU, CM_INV },
-#endif /* OS2 */
-#ifdef IKSD
- { "iksd", XXIFIK, 0 },
-#else
- { "iksd", XXIFIK, CM_INV },
-#endif /* IKSD */
- { "integer", XXIFNU, CM_INV },
- { "k-95", XXIFK9, 0 },
- { "kbhit", XXIFKB, 0 },
-#ifdef UNIX
- { "kerbang", XXIFKG, 0 },
-#else
- { "kerbang", XXIFKG, CM_INV },
-#endif /* UNIX */
- { "lgt", XXIFLG, 0 },
- { "llt", XXIFLL, 0 },
- { "local", XXIFLO, 0 },
- { "match", XXIFMA, 0 },
- { "ms-kermit", XXIFMS, CM_INV },
-#ifdef ZFCDAT
- { "newer", XXIFNE, 0 },
-#endif /* ZFCDAT */
- { "not", XXIFNO, 0 },
- { "numeric", XXIFNU, 0 },
- { "ok", XXIFSU, CM_INV },
- { "open", XXIFOP, 0 },
- { "or", XXIFOR, 0 },
- { "quiet", XXIFQU, 0 },
- { "readable", XXIFRD, 0 },
- { "remote-only",XXIFRO, 0 },
- { "started-from-dialer",XXIFSD, CM_INV },
- { "success", XXIFSU, 0 },
- { "tapi", XXIFTA, 0 },
-#ifdef OS2
- { "terminal-macro", XXIFTM, 0 },
-#else
- { "terminal-macro", XXIFTM, CM_INV },
-#endif /* OS2 */
- { "true", XXIFTR, 0 },
- { "version", XXIFVE, 0 },
- { "wild", XXIFWI, 0 },
- { "writeable", XXIFWR, 0 },
- { "||", XXIFOR, 0 },
- { "", 0, 0 }
-};
-int nif = (sizeof(iftab) / sizeof(struct keytab)) - 1;
-
-struct keytab iotab[] = { /* Keywords for IF OPEN */
- { "!read-file", ZRFILE, CM_INV },
- { "!write-file", ZWFILE, CM_INV },
- { "append-file", ZWFILE, CM_INV },
- { "connection", 8888, 0 },
-#ifdef CKLOGDIAL
- { "cx-log", 7777, 0 },
-#endif /* CKLOGDIAL */
- { "debug-log", ZDFILE, 0 },
- { "error", 9999, 0 },
- { "packet-log", ZPFILE, 0 },
- { "read-file", ZRFILE, 0 },
- { "screen", ZSTDIO, 0 },
- { "session-log", ZSFILE, 0 },
- { "transaction-log", ZTFILE, 0 },
- { "write-file", ZWFILE, 0 }
-};
-int niot = (sizeof(iotab) / sizeof(struct keytab));
-#endif /* NOSPL */
-
-/* Variables and prototypes */
-
-#ifdef NETCONN
-extern int nnetdir; /* How many network directories */
-#endif /* NETCONN */
-#ifdef CK_SECURITY
-_PROTOTYP(int ck_krb4_is_installed,(void));
-_PROTOTYP(int ck_krb5_is_installed,(void));
-_PROTOTYP(int ck_ntlm_is_installed,(void));
-_PROTOTYP(int ck_srp_is_installed,(void));
-_PROTOTYP(int ck_ssleay_is_installed,(void));
-_PROTOTYP(int ck_ssh_is_installed,(void));
-_PROTOTYP(int ck_crypt_is_installed,(void));
-#else
-#define ck_krb4_is_installed() (0)
-#define ck_krb5_is_installed() (0)
-#define ck_ntlm_is_installed() (0)
-#define ck_srp_is_installed() (0)
-#define ck_ssleay_is_installed() (0)
-#define ck_ssh_is_installed() (0)
-#define ck_crypt_is_installed() (0)
-#endif /* CK_SECURITY */
-
-#define AV_KRB4 1
-#define AV_KRB5 2
-#define AV_NTLM 3
-#define AV_SRP 4
-#define AV_SSL 5
-#define AV_CRYPTO 6
-#define AV_SSH 7
-
-struct keytab availtab[] = { /* Available authentication types */
- { "crypto", AV_CRYPTO, CM_INV }, /* and encryption */
- { "encryption", AV_CRYPTO, 0 },
- { "k4", AV_KRB4, CM_INV },
- { "k5", AV_KRB5, CM_INV },
- { "kerberos4", AV_KRB4, 0 },
- { "kerberos5", AV_KRB5, 0 },
- { "krb4", AV_KRB4, CM_INV },
- { "krb5", AV_KRB5, CM_INV },
- { "ntlm", AV_NTLM, 0 },
- { "srp", AV_SRP, 0 },
- { "ssh", AV_SSH, 0 },
- { "ssl", AV_SSL, 0 },
- { "tls", AV_SSL, 0 },
- { "", 0, 0 }
-};
-int availtabn = sizeof(availtab)/sizeof(struct keytab)-1;
-
-#ifndef NODIAL
-_PROTOTYP(static int ddcvt, (char *, FILE *, int) );
-_PROTOTYP(static int dncvt, (int, int, int, int) );
-_PROTOTYP(char * getdname, (void) );
-
-static int partial = 0; /* For partial dial */
-static char *dscopy = NULL;
-int dialtype = -1;
-
-char *dialnum = (char *)0; /* Remember DIAL number for REDIAL */
-int dirline = 0; /* Dial directory line number */
-extern char * dialdir[]; /* Dial directory file names */
-extern int dialdpy; /* DIAL DISPLAY on/off */
-extern int ndialdir; /* How many dial directories */
-extern int ntollfree; /* Toll-free call info */
-extern int ndialpxx; /* List of PBX exchanges */
-extern char *dialtfc[];
-char * matchpxx = NULL; /* PBX exchange that matched */
-extern int nlocalac; /* Local area-code list */
-extern char * diallcac[];
-extern int tttapi;
-#ifdef CK_TAPI
-extern int tapiconv; /* TAPI Conversions */
-extern int tapipass; /* TAPI Passthrough */
-#endif /* CK_TAPI */
-extern int dialatmo;
-extern char * dialnpr, * dialsfx;
-extern char * dialixp, * dialixs, * dialmac;
-extern char * dialldp, * diallds, * dialtfp;
-extern char * dialpxi, * dialpxo, * diallac;
-extern char * diallcp, * diallcs, * diallcc;
-extern char * dialpxx[];
-
-extern int dialcnf; /* DIAL CONFIRMATION */
-int dialfld = 0; /* DIAL FORCE-LONG-DISTANCE */
-int dialsrt = 1; /* DIAL SORT ON */
-int dialrstr = 6; /* DIAL RESTRICTION */
-int dialtest = 0; /* DIAL TEST */
-int dialcount = 0; /* \v(dialcount) */
-
-extern int dialsta; /* Dial status */
-int dialrtr = -1, /* Dial retries */
- dialint = 10; /* Dial retry interval */
-extern long dialcapas; /* Modem capabilities */
-extern int dialcvt; /* DIAL CONVERT-DIRECTORY */
-#endif /* NODIAL */
-
-#ifndef NOSPL
-#define IFCONDLEN 256
-int ifc, /* IF case */
- not = 0, /* Flag for IF NOT */
- ifargs = 0; /* Count of IF condition words */
-char ifcond[IFCONDLEN]; /* IF condition text */
-char *ifcp; /* Pointer to IF condition text */
-#ifdef DCMDBUF
-extern int
- *ifcmd, *count, *iftest, *intime,
- *inpcas, *takerr, *merror, *xquiet;
-#else
-extern int ifcmd[]; /* Last command was IF */
-extern int iftest[]; /* Last IF was true */
-extern int count[]; /* For IF COUNT, one for each cmdlvl */
-extern int intime[]; /* Ditto for other stackables... */
-extern int inpcas[];
-extern int takerr[];
-extern int merror[];
-extern int xquiet[];
-#endif /* DCMDBUF */
-#else
-extern int takerr[];
-#endif /* NOSPL */
-
-#ifdef DCMDBUF
-extern char *line; /* Character buffer for anything */
-extern char *tmpbuf;
-#else
-extern char line[], tmpbuf[];
-#endif /* DCMDBUF */
-extern char *lp; /* Pointer to line buffer */
-
-int cwdf = 0; /* CWD has been done */
-
-/* Flags for ENABLE/DISABLE */
-extern int en_cwd, en_cpy, en_del, en_dir, en_fin,
- en_get, en_hos, en_ren, en_sen, en_set, en_spa, en_typ, en_who, en_bye,
- en_asg, en_que, en_ret, en_mai, en_pri, en_mkd, en_rmd, en_xit, en_ena;
-
-extern FILE *tfile[]; /* File pointers for TAKE command */
-extern char *tfnam[]; /* Names of TAKE files */
-extern int tfline[]; /* TAKE-file line number */
-
-extern int success; /* Command success/failure flag */
-extern int cmdlvl; /* Current position in command stack */
-
-#ifndef NOSPL
-extern int maclvl; /* Macro to execute */
-extern char *macx[]; /* Index of current macro */
-extern char *mrval[]; /* Macro return value */
-extern char *macp[]; /* Pointer to macro */
-extern int macargc[]; /* ARGC from macro invocation */
-
-#ifdef COMMENT
-extern char *m_line[];
-#endif /* COMMENT */
-
-extern char *m_arg[MACLEVEL][NARGS]; /* Stack of macro arguments */
-extern char *g_var[]; /* Global variables %a, %b, etc */
-
-#ifdef DCMDBUF
-extern struct cmdptr *cmdstk; /* The command stack itself */
-#else
-extern struct cmdptr cmdstk[]; /* The command stack itself */
-#endif /* DCMDBUF */
-#endif /* NOSPL */
-
-#define xsystem(s) zsyscmd(s)
-
-static int x, y, z = 0;
-static char *s, *p;
-
-#ifdef OS2
-_PROTOTYP( int os2settitle, (char *, int) );
-#endif /* OS2 */
-
-extern struct keytab yesno[], onoff[], fntab[];
-extern int nyesno, nfntab;
-
-#ifndef NOSPL
-
-/* Do the ASK, ASKQ, GETOK, and READ commands */
-
-int asktimedout = 0;
-
-#define ASK_PUP 1
-#define ASK_TMO 2
-#define ASK_GUI 3
-#define ASK_QUI 4
-#define ASK_DEF 5
-
-static struct keytab asktab[] = {
- { "/default", ASK_DEF, CM_ARG },
- { "/gui", ASK_GUI,
-#ifdef KUI
- 0
-#else /* KUI */
- CM_INV
-#endif /* KUI */
- },
- { "/popup", ASK_PUP,
-#ifdef OS2
- 0
-#else /* OS2 */
- CM_INV
-#endif /* OS2 */
- },
- { "/quiet", ASK_QUI, 0 },
- { "/timeout", ASK_TMO, CM_ARG },
- { "", 0, 0 }
-};
-static int nasktab = sizeof(asktab)/sizeof(struct keytab)-1;
-
-int
-doask(cx) int cx; {
- extern int cmflgs, asktimer, timelimit;
-#ifdef CK_RECALL
- extern int on_recall;
-#endif /* CK_RECALL */
- int popupflg = 0;
- int guiflg = 0;
- int nomsg = 0;
- int mytimer = 0;
-#ifdef CK_APC
- extern int apcactive, apcstatus;
-#endif /* CK_APC */
-
- char dfbuf[1024]; /* Buffer for default answer */
- char * dfanswer = NULL; /* Pointer to it */
-
- char vnambuf[VNAML+1]; /* Buffer for variable names */
- char *vnp = NULL; /* Pointer to same */
-
- dfbuf[0] = NUL;
- vnambuf[0] = NUL;
-
-#ifdef CK_APC
- if ( apcactive != APC_INACTIVE && (apcstatus & APC_NOINP) ) {
- return(success = 0);
- }
-#endif /* CK_APC */
-
- mytimer = asktimer; /* Inherit global ASK timer */
-
- if (cx == XXASK || cx == XXASKQ) {
- struct FDB sw, fl;
- int getval;
- char c;
- if (cx == XXASKQ) /* Don't log ASKQ response */
- debok = 0;
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Variable name or switch",
- "", /* default */
- "", /* addtl string data */
- nasktab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- asktab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- NULL,
- NULL,
- NULL
- );
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case ASK_QUI:
- nomsg = 1;
- break;
- case ASK_PUP:
- popupflg = 1;
- break;
- case ASK_GUI:
- guiflg = 1;
- break;
- case ASK_TMO: {
- if ((y = cmnum("seconds","1",10,&x,xxstring)) < 0)
- return(y);
- if (x < 0)
- x = 0;
- mytimer = x;
- break;
- }
- case ASK_DEF: {
- if ((y = cmfld("Text to supply if reply is empty",
- "",&s,xxstring)) < 0)
- return(y);
- ckstrncpy(dfbuf,s,1024);
- dfanswer = dfbuf;
- break;
- }
- default: return(-2);
- }
- }
- /* Have variable name, make copy. */
- ckstrncpy(vnambuf,cmresult.sresult,VNAML);
- vnp = vnambuf;
- if (vnambuf[0] == CMDQ &&
- (vnambuf[1] == '%' || vnambuf[1] == '&'))
- vnp++;
- y = 0;
- if (*vnp == '%' || *vnp == '&') {
- if ((y = parsevar(vnp,&x,&z)) < 0)
- return(y);
- }
- } else if (cx != XXGOK && cx != XXRDBL) { /* Get variable name */
- if ((y = cmfld("Variable name","",&s,NULL)) < 0) {
- if (y == -3) {
- printf("?Variable name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(vnambuf,s,VNAML); /* Make a copy. */
- vnp = vnambuf;
- if (vnambuf[0] == CMDQ &&
- (vnambuf[1] == '%' || vnambuf[1] == '&'))
- vnp++;
- y = 0;
- if (*vnp == '%' || *vnp == '&') {
- if ((y = parsevar(vnp,&x,&z)) < 0)
- return(y);
- }
- }
- if (cx == XXREA || cx == XXRDBL) { /* READ or READBLOCK command */
- if ((y = cmcfm()) < 0) /* Get confirmation */
- return(y);
- if (chkfn(ZRFILE) < 1) { /* File open? */
- printf("?Read file not open\n");
- return(success = 0);
- }
- if (!(s = (char *)readbuf)) { /* Where to read into. */
- printf("?Oops, no READ buffer!\n");
- return(success = 0);
- }
- y = zsinl(ZRFILE, s, readblock); /* Read a line. */
- debug(F111,"read zsinl",s,y);
- if (y < 0) { /* On EOF or other error, */
- zclose(ZRFILE); /* close the file, */
- delmac(vnp,0); /* delete the variable, */
- return(success = 0); /* and return failure. */
- } else { /* Read was OK. */
- readsize = (int) strlen(s);
- success = (addmac(vnp,s) < 0 ? 0 : 1); /* Define variable */
- debug(F111,"read addmac",vnp,success);
- return(success); /* Return success. */
- }
- }
-
- /* ASK, ASKQ, GETOK, or GETC */
-
- if (cx == XXGOK) { /* GETOK can take switches */
- struct FDB sw, fl;
- int getval;
- char c;
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Variable name or question prompt",
- "", /* default */
- "", /* addtl string data */
- nasktab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- asktab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMTXT, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- NULL,
- NULL,
- NULL
- );
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case ASK_PUP:
- popupflg = 1;
- break;
- case ASK_GUI:
- guiflg = 1;
- break;
- case ASK_TMO: {
- if ((y = cmnum("seconds","1",10,&x,xxstring)) < 0)
- return(y);
- if (x < 0)
- x = 0;
- mytimer = x;
- break;
- }
- case ASK_DEF: {
- if ((y = cmfld("Text to supply if reply is empty",
- "",&s,xxstring)) < 0)
- return(y);
- ckstrncpy(dfbuf,s,1024);
- dfanswer = dfbuf;
- break;
- }
- case ASK_QUI:
- nomsg = 1;
- break;
- default: return(-2);
- }
- }
- p = cmresult.sresult;
- } else
- if ((y = cmtxt(
-"Prompt,\n\
- enclose in { braces } or \" quotes \" to preserve leading and trailing\n\
- spaces, precede question mark with backslash (\\).",
- "",&p,xxstring)) < 0)
- return(y);
-
- if (!p) p = "";
-#ifndef NOLOCAL
-#ifdef OS2
- if (popupflg) { /* Popup requested */
- int len = -1;
- ckstrncpy(tmpbuf,brstrip(p),TMPBUFSIZ);
- p = tmpbuf;
- if (cx == XXASK || cx == XXASKQ) {
- if (cx == XXASK)
- len = popup_readtext(vmode,NULL,p,line,LINBUFSIZ,mytimer);
- else
- len = popup_readpass(vmode,NULL,p,line,LINBUFSIZ,mytimer);
- asktimedout = ( len < 0 && mytimer );
- } else if (cx == XXGOK) {
- printf("?Sorry, GETOK /POPUP not implemented yet\n");
- timelimit = 0;
- return(-9);
- }
- if (len >= 0) {
- y = addmac(vnp,(char *)line); /* Add it to the macro table. */
- } else if ( asktimedout && dfanswer ) {
- y = addmac(vnp,dfanswer); /* Add it to the macro table. */
- asktimedout = 0;
- len = 0;
- }
- timelimit = 0;
- return(success = ((len >= 0) && (y >= 0)) && !asktimedout);
- }
-#ifdef KUI
- if (guiflg) { /* GUI requested */
- int rc, n;
- char * s1;
- s1 = tmpbuf;
- n = TMPBUFSIZ-1;
- zzstring(brstrip(p),&s1,&n);
- p = tmpbuf;
- if (cx == XXASK || cx == XXASKQ) {
- rc = gui_txt_dialog(NULL,p,(cx == XXASK),
- line,LINBUFSIZ,dfanswer,mytimer);
- asktimedout = (rc == -1 && mytimer);
- if (rc == 1) {
- y = addmac(vnp,(char *)line); /* Add it to the macro table. */
- } else if ( asktimedout && dfanswer ) {
- y = addmac(vnp,dfanswer); /* Add default to macro table. */
- asktimedout = 0;
- rc = 1;
- }
- timelimit = 0;
- return(success = (rc == 1 && (y >= 0)) && !asktimedout);
- } else if (cx == XXGOK) {
- int x;
- x = lookup(yesno,dfanswer,nyesno,NULL);
- if (x != 1) x = 2;
- rc = uq_ok(NULL, p, 3, NULL, x);
- return(success = (rc == 1));
- }
- }
-#endif /* KUI */
-#endif /* OS2 */
-#endif /* NOLOCAL */
-
- concb((char)escape); /* Enter CBREAK mode */
- cmsavp(psave,PROMPTL); /* Save old prompt */
- cmsetp(brstrip(p)); /* Make new prompt */
-reprompt:
- if (cx == XXASKQ) { /* For ASKQ, */
- cmini(0); /* no-echo mode. */
- } else { /* For others, regular echoing. */
- cmini(ckxech);
- }
- askflag = 1;
- x = -1; /* This means to reparse. */
- cmflgs = 0;
- if (pflag)
- prompt(xxstring); /* Issue prompt. */
-
- asktimedout = 0; /* Handle timed responses. */
- timelimit = mytimer;
-reparse:
- cmres();
- if (cx == XXGOK) { /* GETOK */
-#ifdef CK_RECALL
- on_recall = 0;
-#endif /* CK_RECALL */
- askflag = 0;
- /* GETOK uses keyword table */
- x = cmkey(yesno,nyesno,"",dfanswer,xxstring);
- if (x < 0) { /* Parse error */
- if (x == -10) {
- char * ds;
- ds = dfanswer ? dfanswer : "No";
- if (!nomsg)
- printf("?Timed out, assuming \"%s\"",ds);
- printf("\n");
- asktimedout = 1;
- x = lookup(yesno,ds,nyesno,NULL);
- if (x != 1) x = 0;
- goto gokdone;
- } else if (x == -3) { /* No answer? */
- printf("Please respond Yes or No\n"); /* Make them answer */
- cmini(ckxech);
- goto reprompt;
- } else if (x == -1) {
- goto reparse;
- } else
- goto reprompt;
- }
- if (cmcfm() < 0) /* Get confirmation */
- goto reparse;
- gokdone:
- askflag = 0;
- cmsetp(psave); /* Restore prompt */
-#ifdef VMS
- if (cmdlvl > 0) /* In VMS and not at top level, */
- conres(); /* restore console again. */
-#endif /* VMS */
- timelimit = 0;
- return(x); /* Return success or failure */
- } else if (cx == XXGETC /* GETC */
-#ifdef OS2
- || cx == XXGETK /* or GETKEYCODE */
-#endif /* OS2 */
- ) { /* GETC */
- char tmp[16];
- conbin((char)escape); /* Put keyboard in raw mode */
-#ifndef NOSETKEY
-#ifdef OS2
- if (cx == XXGETK) { /* GETKEYCODE */
- extern int os2gks;
- int t;
- t = os2gks; /* Turn off kverb recognition */
- os2gks = 0;
- x = congks(timelimit); /* Read a key event, blocking */
- os2gks = t; /* Put back kverb recognition */
- } else /* GETC */
-#endif /* OS2 */
-#endif /* NOSETKEY */
- {
- debug(F101,"GETC conchk","",conchk());
- x = coninc(timelimit); /* Just read one character */
- debug(F101,"GETC coninc","",x);
- }
- concb((char)escape); /* Put keyboard back in cbreak mode */
- if (x > -1) {
- if (xcmdsrc == 0)
- printf("\r\n");
-#ifdef OS2
- if (cx == XXGETK) { /* GETKEYCODE */
- sprintf(tmp,"%d",x); /* SAFE */
- } else {
-#endif /* OS2 */
- tmp[0] = (char) (x & 0xff);
- tmp[1] = NUL;
-#ifdef OS2
- }
-#endif /* OS2 */
- y = addmac(vnp,tmp); /* Add it to the macro table. */
- debug(F111,"getc/getk addmac",vnp,y);
- } else y = -1;
- cmsetp(psave); /* Restore old prompt. */
- if (x < -1) {
- asktimedout = 1;
- if (!quiet && !nomsg)
- printf("?Timed out");
- printf("\n");
- }
- timelimit = 0;
- return(success = ((y < 0 ? 0 : 1) && (asktimedout == 0)));
- } else { /* ASK or ASKQ */
-#ifdef CK_RECALL
- on_recall = 0;
-#endif /* CK_RECALL */
- y = cmdgquo(); /* Get current quoting */
- cmdsquo(0); /* Turn off quoting */
- while (x == -1) { /* Prompt till they answer */
- x = cmtxt("Please respond.",dfanswer,&s,NULL);
- debug(F111,"ASK cmtxt",s,x);
- cmres();
- }
- cmdsquo(y); /* Restore previous quoting */
- if (cx == XXASKQ) /* ASKQ must echo CRLF here */
- printf("\r\n");
- if (x == -10 && dfanswer) { /* Don't fail on timeout if */
- s = dfanswer; /* a default was specified */
- asktimedout = 0; /* and don't fail */
- x = 0;
- }
- if (x < 0) { /* If cmtxt parse error, */
- cmsetp(psave); /* restore original prompt */
-#ifdef VMS
- if (cmdlvl > 0) /* In VMS and not at top level, */
- conres(); /* restore console again. */
-#endif /* VMS */
- if (x == -10) { /* Timed out with no response */
- if (!nomsg)
- printf("?Timed out");
- printf("\n");
- asktimedout = 1;
- if (dfanswer) /* Supply default answer if any */
- s = dfanswer;
- success = x = 0; /* (was "x = -9;") */
- }
- timelimit = 0;
- return(x); /* and return cmtxt's error code. */
- }
- if (!s || *s == NUL) { /* If user typed a bare CR, */
- cmsetp(psave); /* Restore old prompt, */
- delmac(vnp,0); /* delete variable if it exists, */
-#ifdef VMS
- if (cmdlvl > 0) /* In VMS and not at top level, */
- conres(); /* restore console again. */
-#endif /* VMS */
- timelimit = 0;
- return(success = 1); /* and return. */
- }
- y = addmac(vnp,s); /* Add it to the macro table. */
- debug(F111,"ask addmac",vnp,y);
- cmsetp(psave); /* Restore old prompt. */
-#ifdef VMS
- if (cmdlvl > 0) /* In VMS and not at top level, */
- conres(); /* restore console again. */
-#endif /* VMS */
- timelimit = 0;
- return(success = (y < 0 ? 0 : 1) && (asktimedout == 0));
- }
-}
-#endif /* NOSPL */
-
-#ifndef NOSPL
-int
-doincr(cx) int cx; { /* INCREMENT, DECREMENT */
- char vnambuf[VNAML+1]; /* Buffer for variable names */
- int eval = 0;
- eval = (cx == XX_DECR || cx == XX_INCR);
-
- if ((y = cmfld("Variable name","",&s, eval ? xxstring : NULL)) < 0) {
- if (y == -3) {
- printf("?Variable name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(vnambuf,s,VNAML);
- if ((y = cmnum("by amount","1",10,&x,xxstring)) < 0)
- return(y);
- if ((y = cmcfm()) < 0)
- return(y);
-
- z = (cx == XX_INCR || cx == XXINC) ? 1 : 0; /* Increment or decrement? */
-
- if (incvar(vnambuf,x,z) < 0) {
- printf("?Variable %s not defined or not numeric\n",vnambuf);
- return(success = 0);
- }
- return(success = 1);
-}
-
-/* Used by doundef() */
-static int
-xxundef(s,verbose,simulate) char * s; int verbose, simulate; {
- int rc = 0;
- if (!s) return(0);
- if (*s == CMDQ && *(s+1) == '%') {
- char c = *(s+2), * p = NULL;
- if (c >= '0' && c <= '9') {
- if (maclvl < 0)
- p = g_var[c];
- else
- p = m_arg[maclvl][c - '0'];
- } else {
- if (isupper(c)) c += ('a'-'A');
- if (c >= 'a' && c <= 'z')
- p = g_var[c];
- }
- if (!p) return(-1);
- }
- if (verbose)
- printf(" %s ",s);
- if (simulate) {
- printf("(SELECTED)\n");
- } else if ((x = delmac(s,1)) > -1) { /* Full name required */
- rc = 1;
- if (verbose) printf("(OK)\n");
- } else if (verbose)
- printf("(FAILED)\n");
- return(rc);
-}
-
-/* Do the (_)DEFINE, (_)ASSIGN, and UNDEFINE commands */
-
-#define UND_MAT 1
-#define UND_VRB 2
-#define UND_EXC 3
-#define UND_SIM 3
-
-static struct keytab undefswi[] = {
- { "/list", UND_VRB, 0 },
-#ifdef COMMENT
- { "/except", UND_EXC, CM_ARG },
-#endif /* COMMENT */
- { "/matching", UND_MAT, 0 },
- { "/simulate", UND_SIM, 0 },
- { "/verbose", UND_VRB, CM_INV }
-};
-static int nundefswi = sizeof(undefswi) / sizeof(struct keytab);
-
-#define UNDEFMAX 64
-static char ** undeflist = NULL;
-int
-doundef(cx) int cx; { /* UNDEF, _UNDEF */
- int i, j, n, rc = 0, arraymsg = 0;
- int domatch = 0, verbose = 0, errors = 0, simulate = 0, flag = 0;
- char *vnp, vnbuf[4];
-#ifdef COMMENT
- char *except = NULL;
-#endif /* COMMENT */
- struct FDB sw, fl;
- int getval;
- char c;
-
- if (!undeflist) { /* Allocate list if necessary */
- undeflist = (char **)malloc(UNDEFMAX * sizeof(char *));
- if (!undeflist) {
- printf("?Memory allocation failure\n");
- return(-9);
- }
- for (i = 0; i < UNDEFMAX; i++)
- undeflist[i] = NULL;
- }
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Variable name or switch",
- "", /* default */
- "", /* addtl string data */
- nundefswi, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- undefswi, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- (cx == XXUNDEF) ? NULL : xxstring,
- NULL,
- NULL
- );
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case UND_MAT: domatch = 1; break;
- case UND_SIM: simulate = 1; /* fall thru on purpose */
- case UND_VRB: verbose = 1; break;
-
-#ifdef COMMENT
- case UND_EXC:
- if (!getval) break;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Pattern required\n");
- x = -9;
- }
- goto xgetx;
- }
- makestr(&except,cmresult.sresult);
- break;
-#endif /* COMMENT */
-
- default:
- return(-2);
- }
- }
- n = 0;
- makestr(&(undeflist[n++]),cmresult.sresult);
- for (i = 1; i < UNDEFMAX; i++) {
- x = cmfld("Macro or variable name","",&s,
- ((cx == XXUNDEF) ? NULL : xxstring)
- );
- if (x == -3) {
- if ((y = cmcfm()) < 0)
- return(y);
- break;
- } else if (y < 0) {
- return(y);
- }
- makestr(&(undeflist[n++]),s);
- }
- /* Now we have a list of n variables or patterns to undefine */
-
- for (i = 0; i < n; i++) {
- flag = 0;
- if (!(vnp = undeflist[i]))
- continue;
- if (vnp[0] == CMDQ && (vnp[1] == '%' || vnp[1] == '&')) {
- flag++;
- vnp++;
- }
- if (!domatch) { /* Pattern match not requested */
- if (flag) {
- if ((y = parsevar(vnp,&x,&z)) < 0) {
- vnp--;
- if (verbose) printf(" %s...error\n",vnp);
- continue;
- }
- vnp--;
- }
- x = xxundef(vnp,verbose,simulate);
- if (x > -1) {
- if (!x && !simulate) errors++;
- rc += x;
- }
- continue;
- }
- /* Pattern match requested */
-
- if (!flag) { /* It's a macro */
- for (j = 0; j < nmac; j++) {
- if (ckmatch(vnp,mactab[j].kwd,0,1)) {
- x = xxundef(mactab[j].kwd,verbose,simulate);
- if (x > -1) {
- rc += x;
- if (!x) errors++;
- }
- if (!simulate)
- j--; /* Because mactab shifted up */
- }
- }
- } else if (vnp[0] == '%') { /* It's a \%x variable */
- vnbuf[0] = CMDQ;
- vnbuf[1] = '%';
- vnbuf[3] = NUL;
- for (j = '0'; j <= 'z'; j++) { /* 0..9 a..z */
- vnbuf[2] = j;
- if (ckmatch(vnp,&vnbuf[1],0,1)) {
- x = xxundef(vnbuf,verbose,simulate);
- if (x > -1) {
- if (!x) errors++;
- rc += x;
- }
- }
- if (j == '9') j = (int)'a' - 1; /* 9 -> a */
- }
- } else if (vnp[0] == '&') {
- if (!arraymsg && !quiet) {
- printf("?UNDEFINE /MATCH can't be used with arrays.\n");
- printf("(Type HELP ARRAY to see other methods.)\n");
- }
- arraymsg++;
- errors++;
- }
- }
- if (verbose)
- printf("undefined: %d, errors: %d\n",rc,errors);
-
- for (i = 0; i < UNDEFMAX; i++) { /* Check them all */
- if (undeflist[i]) { /* in case we were interrupted */
- free(undeflist[i]); /* previously... */
- undeflist[i] = NULL;
- }
- }
- return(success = (errors == 0) ? 1 : 0);
-}
-
-int
-dodef(cx) int cx; {
- extern int xxdot;
- extern char ppvnambuf[];
- int doeval = 0;
- char vnambuf[VNAML+1]; /* Buffer for variable names */
- char *vnp; /* Pointer to same */
- int k, mydot;
- mydot = xxdot; /* Copy */
- xxdot = 0; /* and reset */
-/*
- In case we got here from a command that begins like ".\%a", cmkey() has
- already evaluated \%a, but we don't want that, so we retrieve the variable
- name from a special pre-evaluation buffer in the command module, and we
- undo the "unget word" that would be done because of the token, because if
- the variable was defined, it will unget its value rather than its name.
-*/
- s = NULL;
-
- if (mydot && ppvnambuf[0] == '.' && ppvnambuf[1]) {
- s = ppvnambuf+1;
- unungw();
- }
- if (!s) {
- if (cx == XXDFX || cx == XXASX)
- /* Evaluate variable name */
- y = cmfld("Macro or variable name","",&s,xxstring);
- else
- /* Don't evaluate the variable name */
- y = cmfld("Macro or variable name","",&s,NULL);
- if (y < 0) {
- if (y == -3) {
- printf("?Variable name required\n");
- return(-9);
- } else return(y);
- }
- }
- k = strlen(s);
- if (k > VNAML) {
- printf("?Name too long: \"%s\"\n",s);
- return(-9);
- }
- ckstrncpy(vnambuf,s,VNAML);
- vnambuf[VNAML] = NUL;
- vnp = vnambuf;
- if (vnambuf[0] == CMDQ && (vnambuf[1] == '%' || vnambuf[1] == '&')) vnp++;
- if (*vnp == '%' || *vnp == '&') {
- if ((y = parsevar(vnp,&x,&z)) < 0) return(y);
-#ifdef COMMENT
- if (cx == XXUNDEF) { /* Undefine */
- if ((y = cmtxt("Text to be ignored","",&s,NULL)) < 0) return(y);
- delmac(vnp,0);
- return(success = 1);
- }
-#endif /* COMMENT */
- debug(F101,"dodef parsevar x","",x);
- if (mydot) {
- if ((doeval = cmkey(asgtab,nasgtab,"operator","=",NULL)) < 0)
- return(doeval);
- if (doeval > 0) /* Type of assignment */
- cx = XXASS;
- }
- if (y == 1) { /* Simple variable */
- if ((y = cmtxt("Definition of variable","",&s,NULL)) < 0)
- return(y);
- s = brstrip(s);
- debug(F110,"xxdef var name",vnp,0);
- debug(F110,"xxdef var def",s,0);
- } else if (y == 2) { /* Array element */
- if ((y = arraynam(vnp,&x,&z)) < 0) return(y);
- if (x == 96) {
- printf("?Argument vector array is read-only\n");
- return(-9);
- }
- if (chkarray(x,z) < 0) return(-2);
- if ((y = cmtxt("Definition of array element","",&s,NULL)) < 0)
- return(y);
- debug(F110,"xxdef array ref",vnp,0);
- debug(F110,"xxdef array def",s,0);
- }
- } else { /* Macro */
-#ifdef COMMENT
- if (cx == XXUNDEF) { /* Undefine */
- if ((y = cmtxt("Text to be ignored","",&s,NULL)) < 0) return(y);
- delmac(vnp,0);
- return(success = 1);
- }
-#endif /* COMMENT */
- if (mydot) {
- if ((doeval = cmkey(asgtab,nasgtab,"operator","=",NULL)) < 0)
- return(doeval);
- if (doeval > 0)
- cx = XXASS;
- }
- if ((y = cmtxt("Definition of macro","",&s,NULL)) < 0) return(y);
-#ifdef DEBUG
- if (deblog) {
- debug(F110,"xxdef macro name",vnp,0);
- debug(F010,"xxdef macro def",s,0);
- }
-#endif /* DEBUG */
- s = brstrip(s);
- }
- if (*s == NUL) { /* No arg given, undefine */
- delmac(vnp,1); /* silently... */
- return(success = 1); /* even if it doesn't exist... */
- }
- /* Defining a new macro or variable */
-
- if (cx == XXASS || cx == XXASX) { /* ASSIGN rather than DEFINE? */
- int t;
- t = LINBUFSIZ-1;
- lp = line; /* If so, expand its value now */
- zzstring(s,&lp,&t);
- s = line;
- }
- if (doeval == 2) { /* Arithmetic evaluation wanted too? */
- ckstrncpy(line,evala(s),LINBUFSIZ);
- line[LINBUFSIZ] = NUL;
- }
- /* debug(F111,"calling addmac",s,(int)strlen(s)); */
-
- y = addmac(vnp,s); /* Add it to the appropriate table. */
- if (y < 0) {
- printf("?%s failed\n",(cx == XXASS || cx == XXASX) ?
- "ASSIGN" : "DEFINE");
- return(success = 0);
- } else if (cx == XXASX || cx == XXDFX) /* For _ASG or _DEF, */
- return(1); /* don't change success variable */
- else
- return(success = 1);
-}
-#endif /* NOSPL */
-
-
-#ifndef NODIAL
-/*
- L U D I A L -- Lookup up dialing directory entry.
-
- Call with string to look up and file descriptor of open dialing directory
- file. On success, returns number of matches found, with numbers stored
- in an array accessible via getdnum().
-*/
-static char *dn_p[MAXDNUMS + 1]; /* Dial Number pointers */
-static char *dn_p2[MAXDNUMS + 1]; /* Converted dial number pointers */
-static int dn_x[MAXDNUMS + 1]; /* Type of call */
-static int dncount = 0;
-char * d_name = NULL; /* Dial name pointer */
-
-char * /* Get dial directory entry name */
-getdname() {
- return(d_name ? d_name : "");
-}
-
-char *
-getdnum(n) int n; { /* Get dial number n from directory */
- if (n < 0 || n > dncount || n > MAXDNUMS)
- return("");
- else
- return(dn_p[n]);
-}
-
-char * /* Check area code for spurious leading digit */
-chk_ac(i,buf) int i; char buf[]; {
- char *p;
- if (!buf)
- return("");
- p = (char *) buf; /* Country we are calling: */
- if (i == 44 || /* UK */
- i == 49 || /* Germany */
- i == 39 || /* Italy */
- i == 31 || /* Netherlands */
- i == 351 || /* Portugal */
- i == 55 || /* Brazil */
- i == 972 || /* Israel */
- i == 41 || /* Switzerland */
- i == 43 || /* Austria */
- i == 42 || /* Czech Republic */
- i == 36 || /* Hungary */
- i == 30 || /* Greece */
- i == 352 || /* Luxembourg */
- i == 48 || /* Poland */
- i == 27 || /* South Africa */
- i == 33 || /* France (as of 1997) */
- i == 358 /* Finland (ditto) */
- ) {
- if (buf[0] == '0')
- p++;
- }
- return(p);
-}
-
-/* Call Is Long Distance -- Expand this to cover 10-digit local dialing etc */
-/*
- src = area code of caller
- dest = area code of callee
- Returns:
- 0 if call is local
- 1 if call is long distance
- 2 if call is local but area code must be dialed anyway
-*/
-static int
-callisld(src, dest) char * src, * dest; {
- int i;
- if (dialfld) /* Force long distance? */
- return(1);
- if (!strcmp(src,dest)) { /* Area codes are the same */
- for (i = 0; i < nlocalac; i++) /* Is AC in the lc-area-codes list? */
- if (!strcmp(src,diallcac[i]))
- return(2); /* Yes so must be dialed */
- return(0); /* No so don't dial it. */
- }
- for (i = 0; i < nlocalac; i++) /* ACs not the same so look in list */
- if (!strcmp(dest,diallcac[i])) /* Match */
- return(2); /* So local call with area code */
- return(1); /* Not local so long-distance */
-}
-
-char pdsfx[64] = { NUL, NUL };
-
-#ifndef NOSPL
-static char *
-xdial(s) char *s; { /* Run dial string thru macro */
- int x, m;
- if (!dialmac) /* Dial macro name given? */
- return(NULL);
- if ((x = mxlook(mactab,dialmac,nmac)) < 0) /* Is the macro defined? */
- return(NULL);
- m = maclvl;
- x = dodo(x,s,0); /* Set up the macro */
- if (x > 0) {
- while (maclvl > m) /* Execute the parser */
- parser(1);
- return(mrval[maclvl+1]); /* Return the result */
- }
- return(NULL);
-}
-#endif /* NOSPL */
-
-static int
-dncvt(k,cx, prefix, suffix)
- int k, cx, prefix, suffix; { /* Dial Number Convert */
- int i, j, n, what; /* cx is top-level command index */
- char *ss; /* prefix - add prefixes? */
- char *p, *p2, *pxo; /* suffix - add suffixes? */
- char *lac;
- char *npr;
- char *sfx;
- /* char *psfx; */
- char ccbuf[128];
- int cc;
- char acbuf[24];
- char *acptr;
- char outbuf[256];
-/*
- First pass for strict (punctuation-based) interpretation.
- If it fails, we try the looser (length-based) one.
-*/
- dialtype = -1;
- what = 0; /* Type of call */
- s = dn_p[k]; /* Number to be converted. */
- debug(F111,"dncvt",s,k);
- if (dn_p2[k]) {
- free(dn_p2[k]);
- dn_p2[k] = NULL;
- }
- if (!s) {
- printf("Error - No phone number to convert\n");
- return(-1);
- }
- if ((int)strlen(s) > 200) {
- ckstrncpy(outbuf,s,40);
- printf("?Too long: \"%s...\"\n",outbuf);
- return(-1);
- }
- npr = (prefix && dialnpr) ? dialnpr : "";
- sfx = (suffix && dialsfx) ? dialsfx : "";
- /* if (partial) psfx = dialsfx ? dialsfx : ""; */
- pxo = (prefix && dialpxo) ? dialpxo : "";
- lac = diallac ? diallac : ""; /* Local area code */
-
- outbuf[0] = NUL; /* Initialize conversion buffer */
- ss = s; /* Remember original string */
-
- if (*s != '+') { /* Literal number */
- dn_x[k] = DN_UNK; /* Sort key is "unknown". */
- ckmakmsg(outbuf,256, /* Sandwich it between */
- pxo,npr,s,sfx /* DIAL PREFIX and SUFFIX */
- );
-#ifdef CK_TAPI
- if (tttapi && /* TAPI does its own conversions */
- !tapipass && /* if not in passthru mode */
- tapiconv == CK_AUTO || /* and TAPI conversions are AUTO */
- tapiconv == CK_ON /* OR if TAPI conversions are ON */
- ) {
- char * p = NULL;
- dialtype = -2;
- if (!cktapiConvertPhoneNumber(dn_p[k], &p))
- return(-1);
- makestr(&dn_p2[k], p);
- if (p) free(p);
- return(0);
- } else
-#endif /* CK_TAPI */
- makestr(&dn_p2[k], outbuf); /* Not TAPI */
- dialtype = what;
- return(0); /* Done. */
- }
- i = 0; /* Portable number */
- s++; /* Tiptoe past the plus sign */
- ccbuf[0] = NUL; /* Do country code first */
-
- if (!diallcc) { /* Do we know our own? */
- if (cx != XXLOOK)
- printf("Error - prior SET DIAL COUNTRY-CODE command required\n");
- return(-1);
- }
-
- /* Parse the number */
-
- while (1) { /* Get the country code */
- while (*s == HT || *s == SP)
- s++;
- if (!s) /* Not in standard format */
- break;
- if (*s == '(') { /* Beginning of area code */
- s++; /* Skip past parenthesis */
- ccbuf[i] = NUL; /* End of country code */
- if (!s) { /* Check for end of string */
- printf("Error - phone number ends prematurely: \"%s\"\n",ss);
- return(-1);
- }
- break;
- } else { /* Collect country code */
- if (isdigit(*s))
- ccbuf[i++] = *s; /* copy this character */
- s++;
- if (!*s || i > 127) /* watch out for memory leak */
- break;
- }
- }
- cc = atoi(ccbuf); /* Numeric version of country code */
-
- i = 0; /* Now get area code */
- acbuf[0] = NUL; /* Initialize area-code buffer */
- acptr = acbuf; /* and pointer. */
- while (1) {
- while (*s == HT || *s == SP) /* Ignore whitespace */
- s++;
- if (!s) /* String finished */
- break;
- if (*s == ')') { /* End of area code */
- s++; /* Skip past parenthesis */
- acbuf[i] = NUL; /* Terminate area-code buffer */
- break;
- } else { /* Part of area code */
- if (isdigit(*s)) /* If it's a digit, */
- acbuf[i++] = *s; /* copy this character */
- s++; /* Point to next */
- if (!*s || i > 23) /* Watch out for overflow */
- break;
- }
- }
-
-/*
- Here we strip any leading 0 for countries that we know have
- 0 as a long-distance prefix and do not have any area codes that
- start with 0 (formerly also ditto for "9" in Finland...)
-*/
- i = atoi(ccbuf);
- acptr = chk_ac(i,acbuf);
-
- while (*s == HT || *s == SP) /* Skip whitespace */
- s++;
-
-/* printf("S=[%s], ACPTR=[%s]\n",s,acptr); */
-
- if (*s && *acptr) { /* Area code was delimited */
-
- while (*s == '-' || *s == '.') /* Skip past gratuitious punctuation */
- s++;
- if (!*s) s--; /* But not to end of string */
-
- if (strcmp(diallcc,ccbuf)) { /* Out of country? */
- if (!dialixp) { /* Need intl-prefix */
- if (cx != XXLOOK)
- printf("Error - No international dialing prefix defined\n");
- return(-1);
- }
- what = dn_x[k] = DN_INTL;
- p = (prefix && dialixp) ? dialixp : ""; /* Intl-prefix */
- p2 = (suffix && dialixs) ? dialixs : ""; /* Intl-suffix */
-
- /* Form the final phone number */
-#ifdef COMMENT
- sprintf(pdsfx,"%s%s",p2,sfx); /* UNSAFE */
- sprintf(outbuf,
- "%s%s%s%s%s%s%s%s",
- pxo,npr,p,ccbuf,acptr,s,p2,sfx
- );
-#else
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
- ckmakxmsg(outbuf,256,pxo,npr,p,ccbuf,acptr,s,p2,sfx,
- NULL,NULL,NULL,NULL);
-#endif /* COMMENT */
-
- } else if ((x = callisld(lac,acptr)) >= 1) { /* In-country LD */
- if (!diallac && cx != XXLOOK) { /* Don't know my own area code */
- if (cc == 1)
- printf("WARNING - Prior SET DIAL AREA-CODE needed\n");
- }
- if (x == 2) { /* Local call with area code */
- what = dn_x[k] = DN_LOCAL; /* Local-call */
- p = (prefix && diallcp) ? diallcp : ""; /* local-prefix */
- p2 = (suffix && diallcs) ? diallcs : ""; /* local-suffix */
- } else {
- what = dn_x[k] = DN_LONG; /* Long-distance */
- for (i = 0; i < ntollfree; i++) { /* But toll-free too? */
- if (!strcmp(acptr,dialtfc[i])) {
- what = dn_x[k] = DN_FREE;
- break;
- }
- }
- if (what == DN_FREE) { /* Toll-free call */
- p = (prefix && dialtfp) ? dialtfp :
- ((prefix && dialldp) ? dialldp : "");
- p2 = ""; /* no suffix */
- } else { /* normal long distance */
- p = (prefix && dialldp) ? dialldp : ""; /* ld-prefix */
- p2 = (suffix && diallds) ? diallds : ""; /* ld-suffix */
- }
- }
- /* Form the number to be dialed */
-#ifdef COMMENT
- sprintf(outbuf,"%s%s%s%s%s%s%s",
- pxo,npr,p,acptr,s,p2,sfx
- );
- sprintf(pdsfx,"%s%s",p2,sfx);
-#else
- ckmakxmsg(outbuf,256,
- pxo,npr,p,acptr,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL);
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
-#endif /* COMMENT */
- } else { /* Same country, same area code */
- what = dn_x[k] = DN_LOCAL; /* So it's a local call. */
- if (!prefix || !(dialpxo || ndialpxx)) { /* Not dialing from PBX */
- p = (prefix && diallcp) ? diallcp : ""; /* local-prefix */
- p2 = (suffix && diallcs) ? diallcs : ""; /* local-suffix */
-#ifdef COMMENT
- if (x == 2)
- sprintf(outbuf,"%s%s%s%s%s%s",npr,p,acptr,s,p2,sfx);
- else
- sprintf(outbuf,"%s%s%s%s%s",npr,p,s,p2,sfx);
- sprintf(pdsfx,"%s%s",p2,sfx);
-#else
- if (x == 2)
- ckmakxmsg(outbuf,256,
- npr,p,acptr,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL);
- else
- ckmakxmsg(outbuf,256,
- npr,p,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL,NULL);
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
-#endif /* COMMENT */
-
- } else { /* Dialing from a PBX and not TAPI */
- if (ndialpxx) { /* Is it internal? */
-#ifdef COMMENT
- i = (int) strlen(dialpxx);
- j = (int) strlen(s);
- x = -1;
- if (j > i)
- x = ckstrcmp(dialpxx,s,i,0);
-#else
- int kx;
- x = -1;
- j = (int) strlen(s);
- for (kx = 0; kx < ndialpxx; kx++) {
- i = (int) strlen(dialpxx[kx]);
- if (j > i)
- if (!(x = ckstrcmp(dialpxx[kx],s,i,0)))
- break;
- }
-#endif /* COMMENT */
- if (!x) {
- char * icp, buf[32];
- makestr(&matchpxx,dialpxx[kx]);
- debug(F111,"dncvt matchpxx",matchpxx,kx);
- what = dn_x[kx] = DN_INTERN; /* Internal call. */
- s += i;
- /* Internal-call prefix */
- icp = dialpxi;
-#ifndef NOSPL
- if (icp) {
- if (*icp == '\\') {
- char c, *bp;
- int n;
- c = *(icp+1);
- if (isupper(c)) c = tolower(c);
- if (c == 'v' || c == 'f') {
- n = 32;
- bp = buf;
- zzstring(icp,&bp,&n);
- icp = buf;
- }
- }
- }
-#endif /* NOSPL */
- p = (prefix && icp) ? icp : "";
-#ifdef COMMENT
- sprintf(outbuf,"%s%s%s%s",npr,p,s,sfx);
-#else
- ckmakmsg(outbuf,256,npr,p,s,sfx);
-#endif /* COMMENT */
- } else { /* External local call */
- /* local-prefix */
- p = (prefix && diallcp) ? diallcp : "";
- /* local-suffix */
- p2 = (prefix && diallcs) ? diallcs : "";
-#ifdef COMMENT
- if (x == 2)
- sprintf(outbuf,"%s%s%s%s%s%s%s",
- dialpxo ? dialpxo : "",
- npr,p,acptr,s,p2,sfx);
- else
- sprintf(outbuf,
- "%s%s%s%s%s%s",
- dialpxo ? dialpxo : "",
- npr,p,s,p2,sfx
- );
-#else
- if (x == 2)
- ckmakxmsg(outbuf, 256,
- dialpxo ? dialpxo : "",
- npr,p,acptr,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL);
- else
- ckmakxmsg(outbuf, 256,
- dialpxo ? dialpxo : "",
- npr,p,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL);
-#endif /* COMMENT */
- }
- }
- }
- }
-
- } else { /* Area code was not delimited */
-
- char xbuf[256]; /* Comparison based only on length */
- char ybuf[256];
- int x, j;
-
- s = ss;
-
- for (i = 0; i < 255; i++) {
- if (!*s) break;
- while (!isdigit(*s)) { /* Pay attention only to digits */
- s++;
- if (!*s) break;
- }
- xbuf[i] = *s++;
- }
- xbuf[i] = NUL;
-
- x = 1; /* Assume LD */
- n = 0;
- if (!dialfld) { /* If LD not forced */
- for (j = 0; j < nlocalac; j++) { /* check local AC list? */
- ckmakmsg(ybuf,256,diallcc,diallcac[j],NULL,NULL);
- n = (int) strlen(ybuf);
- if (n > 0 && !ckstrcmp(xbuf,ybuf,n,0)) {
- x = 2;
- break;
- }
- }
- if (x == 1) { /* Or exact match with local CC+AC? */
- ckmakmsg(ybuf,256,diallcc,lac,NULL,NULL);
- n = (int) strlen(ybuf);
- if (n > 0 && !ckstrcmp(xbuf,ybuf,n,0))
- x = 0;
- }
- }
- if (x == 0 || x == 2) { /* Local call */
- int xx,kx; /* Begin 1 Dec 2001... */
- /* Account for PBX internal calls */
- if (ndialpxx) {
- xx = -1;
- j = (int) strlen(ybuf);
- for (kx = 0; kx < ndialpxx; kx++) {
- i = (int) strlen(dialpxx[kx]);
- if (j >= i)
- if (!(xx = ckstrcmp(dialpxx[kx],&xbuf[j],i,0)))
- break;
- }
- }
- if (!xx) {
- char * icp, buf[32];
- makestr(&matchpxx,dialpxx[kx]);
- debug(F111,"dncvt matchpxx",matchpxx,kx);
- what = dn_x[kx] = DN_INTERN; /* Internal call. */
- s = xbuf + j + i;
- icp = dialpxi; /* Internal-call prefix */
-#ifndef NOSPL
- if (icp) {
- if (*icp == '\\') {
- char c, *bp;
- int n;
- c = *(icp+1);
- if (isupper(c)) c = tolower(c);
- if (c == 'v' || c == 'f') {
- n = 32;
- bp = buf;
- zzstring(icp,&bp,&n);
- icp = buf;
- }
- }
- }
-#endif /* NOSPL */
- p = (prefix && icp) ? icp : "";
- ckmakmsg(outbuf,256,npr,p,s,sfx);
- /* End 1 Dec 2001... */
-
- } else { /* Not PBX internal */
-
- dn_x[k] = DN_LOCAL;
- p = (prefix && diallcp) ? diallcp : "";
- p2 = (suffix && diallcs) ? diallcs : "";
- s = (char *) (xbuf + ((x == 0) ? n : (int)strlen(diallcc)));
- ckmakxmsg(outbuf,256,
- pxo,npr,p,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL);
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
- }
- } else { /* Not local */
- n = ckstrncpy(ybuf,diallcc,256);
- if (n > 0 && !ckstrcmp(xbuf,ybuf,n,0)) { /* Long distance */
- dn_x[k] = DN_LONG;
- p = (prefix && dialldp) ? dialldp : "";
- p2 = (suffix && diallds) ? diallds : "";
- s = xbuf + n;
- while (*s == '-' || *s == '.')
- s++;
-#ifdef COMMENT
- sprintf(outbuf,"%s%s%s%s%s%s",pxo,npr,p,s,p2,sfx);
- sprintf(pdsfx,"%s%s",p2,sfx);
-#else
- ckmakxmsg(outbuf,256,
- pxo,npr,p,s,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL);
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
-#endif /* COMMENT */
- } else {
- dn_x[k] = DN_INTL; /* International */
- if (!dialixp) {
- if (cx != XXLOOK) {
- printf(
- "Error - No international dialing prefix defined\n"
- );
- return(-1);
- }
- }
- p = (prefix && dialixp) ? dialixp : "";
- p2 = (suffix && dialixs) ? dialixs : "";
-#ifdef COMMENT
- sprintf(outbuf,"%s%s%s%s%s%s",pxo,npr,p,xbuf,p2,sfx);
- sprintf(pdsfx,"%s%s",p2,sfx);
-#else
- ckmakxmsg(outbuf,256,
- pxo,npr,p,xbuf,p2,sfx,
- NULL,NULL,NULL,NULL,NULL,NULL);
- ckmakmsg(pdsfx,64,p2,sfx,NULL,NULL);
-#endif /* COMMENT */
- }
- }
- }
-#ifdef CK_TAPI
- if (tttapi && /* TAPI performs the conversions */
- !tapipass &&
- tapiconv == CK_AUTO ||
- tapiconv == CK_ON
- ) {
- p = NULL;
- dialtype = -2;
- if (!cktapiConvertPhoneNumber(dn_p[k],&p))
- return(-1);
- makestr(&dn_p2[k], p);
- if (p) free(p);
- return(0);
- } else {
-#endif /* CK_TAPI */
- makestr(&dn_p2[k], outbuf);
-#ifdef CK_TAPI
- }
-#endif /* CK_TAPI */
- dialtype = what;
- return(0);
-}
-
-static int
-ddcvt(s, f, n) char * s; FILE * f; int n; { /* Dial Directory Convert */
- char linebuf[1024], *s2; /* Buffers and pointers */
-#ifdef VMS
- char * temp = NULL;
-#endif /* VMS */
- char *info[8]; /* Pointers to words from entry */
- FILE * f2 = NULL;
- int x, rc;
- rc = -1;
-
- debug(F110,"ddcvt file",s,0);
-
- if (!s || !f) /* No filename or file */
- return(-1);
- if (!*s)
-
- fclose(f);
- znewn(s,&s2); /* s2 = address of static buffer */
- debug(F110,"ddcvt newname",s2,0);
-
-#ifdef VMS
- /* In VMS, znewn() returns the same file name with a new version number */
- makestr(&temp,s); /* Swap - otherwise the new */
- s = s2; /* version has the older version */
- s2 = temp; /* number... */
- debug(F110,"ddcvt after swap s",s,0);
- debug(F110,"ddcvt after swap s2",s2,0);
- makestr(&(dialdir[n]),s); /* New file gets new version number */
- debug(F110,"ddcvt after makestr s2",s2,0);
- debug(F111,"ddcvt dialdir[n]",dialdir[n],n);
-#else
- if (zrename(s,s2) < 0) { /* Not VMS - rename old file */
- perror(s2); /* to new (wierd) name. */
- goto ddexit;
- }
-#endif /* VMS */
- debug(F110,"ddcvt s2 (old)",s2,0);
- if ((f = fopen(s2,"r")) == NULL) { /* Reopen old file with wierd name */
- debug(F110,"ddcvt s2 open error",ck_errstr(),0);
- dirline = 0; /* (or in VMS, old version) */
- perror(s2);
- goto ddexit;
- }
- debug(F110,"ddcvt fopen(s2) OK",s2,0);
-
- debug(F110,"ddcvt s (new)",s,0);
- if ((f2 = fopen(s,"w")) == NULL) { /* Create new file with old name */
- debug(F110,"ddcvt s open error",ck_errstr(),0);
- perror(s); /* (or in VMS, new version) */
- goto ddexit;
- }
- debug(F110,"ddcvt fopen(s) OK",s,0);
-
- printf("\nSaving old directory as %s.\nConverting %s...",s2,s);
- fprintf(f2,"; %s - Kermit dialing directory\n", s);
- fprintf(f2,"%-16s %-20s ; %5s %-6s ; %s\n",
- "; Name","Number","Speed","Parity","Comment"
- );
-
- while (1) {
- linebuf[0] = NUL; /* Read a line */
- if (fgets(linebuf,1023,f) == NULL)
- break;
- debug(F110,"ddcvt linebuf",linebuf,0);
- if (!linebuf[0]) { /* Empty line */
- fprintf(f2,"\n");
- continue;
- }
- x = (int) strlen(linebuf); /* Strip line terminator, */
- while (x-- > 0) { /* if any. */
- if (linebuf[x] <= SP)
- linebuf[x] = NUL;
- else
- break;
- }
- xwords(linebuf,5,info,1); /* Parse it the old way */
- for (x = 1; x < 6; x++)
- if (!info[x]) info[x] = "";
- fprintf(f2,"%-16s %-20s ; %5s %-6s %s\n",
- info[1],info[2],info[3],info[4],info[5]
- );
- }
- printf(" OK\n\n");
- rc = 0; /* Success */
- ddexit:
- if (f) fclose(f);
- if (f2) fclose(f2);
-#ifdef VMS
- if (temp) free(temp);
-#endif /* VMS */
- return(rc);
-}
-
-int /* s = name to look up */
-#ifdef CK_ANSIC /* cx = index of command */
-ludial(char *s, int cx) /* (DIAL, LOOKUP, etc) */
-#else
-ludial(s, cx) char *s; int cx;
-#endif /* CK_ANSIC */
-/* ludial */ {
-
- int dd, n1, n2, n3, i, j, t; /* Workers */
- int olddir, newdir, oldentry, newentry;
- int pass = 0;
- int oldflg = 0;
- int ambiguous = 0; /* Flag for lookup was ambiguous */
- char *info[7]; /* Pointers to words from entry */
- char *pp; /* Pointer to element of array */
- FILE * f;
- char *line; /* File input buffer */
-
-/* #define LUDEBUG */
-
-#ifdef LUDEBUG
-int zz = 1;
-#endif /* LUDEBUG */
-
- if (!s || ndialdir < 1) /* Validate arguments */
- return(-1);
-
- if ((n1 = (int) strlen(s)) < 1) /* Length of string to look up */
- return(-1);
-
- if (!(line = malloc(1024))) /* Allocate input buffer */
- return(-1);
-
-#ifdef LUDEBUG
-if (zz) printf("LUDIAL 1 s[%s], n1=%d\n",s,n1);
-#endif /* LUDEBUG */
-
- pass = 0;
- lu_again:
- f = NULL; /* Dial directory file descriptor */
- t = dncount = 0; /* Dial-number match count */
- dd = 0; /* Directory counter */
- olddir = 0;
- newdir = 0;
-/*
- We need to recognize both old- and new-style directories.
- But we can't allow old-style and new-style entries in the same
- directory because there is no way to tell for sure the difference between
- an old-style entry like this:
-
- foo 5551212 9600
-
- and a new-style literal entry like this:
-
- foo 555 9600
-
- I.e. is the "9600" a speed, or part of the phone number?
-*/
- while (1) { /* We make one pass */
- if (!f) { /* Directory not open */
- if (dd >= ndialdir) /* No directories left? */
- break; /* Done. */
- debug(F111,"ludial dialdir[dd]",dialdir[dd],dd);
- if ((f = fopen(dialdir[dd],"r")) == NULL) { /* Open it */
- perror(dialdir[dd]); /* Can't, print message saying why */
- if (line) {
- free(line);
- line = NULL;
- }
- dd++; /* Go on to next one, if any... */
- continue;
- }
- dirline = 0; /* Directory file line number */
- if (dialdpy && !pass)
- printf("Opening: %s...\n",dialdir[dd]);
- dd++;
- if (!oldflg) olddir = 0;
- newdir = 0;
- }
- oldentry = 0;
- newentry = 0;
- line[0] = NUL;
- if (getnct(line,1023,f,1) < 0) { /* Read a line */
- if (f) { /* f can be clobbered! */
- fclose(f); /* Close the file */
- f = NULL; /* Indicate next one needs opening */
- oldflg = 0;
- }
- continue;
- }
- if (!line[0]) /* Empty line */
- continue;
-#ifdef LUDEBUG
-if (zz) printf("LUDIAL 2 s[%s]\n",s);
-#endif /* LUDEBUG */
-
- /* Make a copy and parse it the old way */
- /* A copy is needed because xwords() pokes NULs into the string */
-
- if ((pp = malloc((int)strlen(line) + 1))) {
- strcpy(pp,line); /* safe */
- xwords(pp,5,info,0); /* Parse it the old way */
-
-#ifdef LUDEBUG
-if (zz) printf("LUDIAL 3 s[%s]\n",s);
-#endif /* LUDEBUG */
-
- if (!info[1])
- continue;
- if (*info[1] == ';') { /* If full-line comment, */
- newdir = 1; /* (only new directories have them) */
- continue; /* keep reading. */
- }
- if (!info[2])
- continue;
- if (*info[2] == '+')
- newentry = 1;
- if (info[4]) {
- if ((*info[4] == '=') ||
- !ckstrcmp(info[4],"none", 4,0) ||
- !ckstrcmp(info[4],"even", 4,0) ||
- !ckstrcmp(info[4],"space",5,0) ||
- !ckstrcmp(info[4],"mark", 4,0) ||
- !ckstrcmp(info[4],"odd", 3,0)
- )
- oldentry = 1;
- }
- }
- if (pp) {
- free(pp);
- pp = NULL;
- }
-
- /* Check consistency */
-
- if ((oldentry || olddir) && (newentry || newdir)) {
- printf(
-"\nERROR: You seem to have old- and new-format entries mixed in your\n");
- printf(
-"dialing directory. You'll have to edit it by hand to convert it to the\n");
-#ifndef NOHELP
- printf("new format. Type HELP DIAL for further information.\n\n");
-#else
- printf("new format.\n\n");
-#endif /* NOHELP */
- if (line) {
- free(line);
- line = NULL;
- }
- return(-1);
- }
- if (!olddir && oldentry) {
- int convert = 0;
- olddir = 1;
- if (dialcvt == 2) { /* 2 == ASK */
- sprintf(tmpbuf,
-"WARNING: Old-style dialing directory detected:\n%s", line);
- convert = uq_ok(tmpbuf,
- "Shall I convert it for you? ",3,NULL,0);
- } else
- convert = dialcvt;
- if (convert) {
- debug(F111,"ludial calling ddcvt",dialdir[dd-1],dd);
- if (ddcvt(dialdir[dd-1],f,dd-1) < 0) {
- debug(F111,"ludial ddcvt failed",dialdir[dd-1],dd);
- oldflg = 1;
- printf(
-" Sorry, can't convert.");
- printf(
-" Will ignore speed and parity fields, continuing...\n\n");
- } else {
- olddir = newdir = 0;
- debug(F111,"ludial ddcvt ok",dialdir[dd-1],dd);
- }
- dd--;
- f = NULL;
- continue;
- } else {
- if (dialcvt == 2)
- printf(
-" OK, will ignore speed and parity fields, continuing...\n\n");
- olddir = 1;
- }
- }
-
-#ifdef LUDEBUG
-if (zz) printf("LUDIAL XX s[%s], n1=%d\n",s,n1);
-#endif /* LUDEBUG */
-
- /* Now parse again for real */
-
- if (oldentry) /* Parse it the old way */
- xwords(line,5,info,0);
- else /* Parse it the new way */
- xwords(line,2,info,1);
-
-#ifdef LUDEBUG
-if (zz) printf("LUDIAL YY s[%s], n1=%d\n",s,n1);
-if (zz) printf("%s [%s]\n",info[1],info[2]);
-#endif /* LUDEBUG */
-
- if (info[1]) { /* First word is entry name */
- if ((n3 = (int) strlen(info[1])) < 1) /* Its length */
- continue; /* If no first word, keep reading. */
- if (n3 < n1) /* Search name is longer */
- continue; /* Can't possibly match */
- if (ambiguous && n3 != n1)
- continue;
-
-#ifdef LUDEBUG
-if (zz) printf("MATCHING: [%s] [%s], n1=%d\n",s,info[1],n1);
-#endif /* LUDEBUG */
-
- if (ckstrcmp(s,info[1],n1,0)) /* Caseless string comparison */
- continue;
-
-#ifdef LUDEBUG
-if (zz) printf("MATCH OK: [%s] [%s], n1=%d\n",s,info[1],n1);
-#endif /* LUDEBUG */
-
- if (!info[2]) /* No phone number given */
- continue;
- if ((n2 = (int) strlen(info[2])) < 1) /* Length of phone number */
- continue; /* Ignore empty phone numbers */
-
- /* Got one */
-
- if (!(pp = (char *)malloc(n2 + 1))) { /* Allocate storage for it */
- printf("?internal error - ludial malloc 1\n");
- if (line) {
- free(line);
- line = NULL;
- }
- dncount = 0;
- return(-1);
- }
- strcpy(pp,info[2]); /* safe */
-
- if (dncount > MAXDNUMS) {
- printf("Warning: %d matches found, %d max\n",
- dncount,
- MAXDNUMS
- );
- dncount = MAXDNUMS;
- break;
- }
- dn_p[dncount++] = pp; /* Add pointer to array. */
- if (dncount == 1) { /* First one... */
- if (d_name) free(d_name);
- if (!(d_name = (char *)malloc(n3 + 1))) { /* Save its name */
- printf("?internal error - ludial malloc 2\n");
- if (line) {
- free(line);
- line = NULL;
- }
- dncount = 0;
- return(-1);
- }
- t = n3; /* And its length */
- strcpy(d_name,info[1]); /* safe */
- } else { /* Second or subsequent one */
-
-#ifdef LUDEBUG
- if (zz)
- printf("d_name=[%s],info[1]=%s,t=[%d]\n",d_name,info[1],t);
-#endif /* LUDEBUG */
-
- if ((int) strlen(info[1]) == t) /* Lengths compare */
- if (!ckstrcmp(d_name,info[1],t,0)) /* Caseless compare OK */
- continue;
-
- /* Name given by user matches entries with different names */
-
- if (ambiguous) /* Been here before */
- break;
-
- ambiguous = 1; /* Now an exact match is required */
- for (j = 0; j < dncount; j++) { /* Clean out previous list */
- if (dn_p[j]) {
- free(dn_p[j]);
- dn_p[j] = NULL;
- }
- }
- pass++; /* Second pass... */
- goto lu_again; /* Do it all over again. */
- }
- }
- }
- if (line) free(line);
- if (dncount == 0 && ambiguous) {
- printf(" Lookup: \"%s\" - ambiguous%s\n",
- s,
- cx == XXLOOK ? "" : " - dialing skipped"
- );
- return(-2);
- }
- return(dncount);
-}
-
-char *
-pncvt(s) char *s; { /* Phone number conversion */
- char *p = NULL; /* (just a wrapper for dncvt() */
- char *q = NULL;
- static char pnbuf[128];
- makestr(&p,dn_p[0]); /* Save these in case they are */
- makestr(&q,dn_p2[0]); /* being used */
- makestr(&dn_p[0],s); /* Copy the argument string to here */
- dncvt(0,XXLOOK,1,1); /* Convert it */
- if (!dn_p2[0]) /* Put result where can return it */
- pnbuf[0] = NUL;
- else
- ckstrncpy(pnbuf,dn_p2[0],127);
- makestr(&dn_p[0],p); /* Restore these */
- makestr(&dn_p2[0],q);
- makestr(&p,NULL); /* Free these */
- makestr(&q,NULL);
- return((char *)pnbuf);
-}
-
-int
-dodial(cx) int cx; { /* DIAL or REDIAL */
- int i = 0, x = 0; /* Workers */
- int sparity = -1; /* For saving global parity value */
- int previous = 0;
- int len = 0;
- int literal = 0;
- int flowsave;
- int lufound = 0; /* Did any lookup succeed? */
- int prefix = 1;
- int postfix = 1;
- int wasalpha = 0;
- int xredial = 0;
- int braces = 0;
-
- char *p = NULL, *s3 = NULL, * sav = NULL;
- int j = 0, t = 0, n = 0;
- int xretries, xlcc;
-
- debug(F101,"dodial cx","",cx);
- debug(F111,"dodial diallcc",diallcc,diallcc);
-
- xretries = dialrtr; /* If retries not set, */
- if (diallcc) { /* choose default based on */
- xlcc = atoi(diallcc); /* local country code. */
- if (xretries < 0) {
- switch (xlcc) {
- case 1: xretries = 10; break; /* No restrictions in NANP */
- /* Add other country codes here */
- /* that are known to have no restrictions on redialing. */
- default: xretries = 1;
- }
- }
- }
- if (cx == XXPDIA) { /* Shortcut... */
- cx = XXDIAL;
- partial = 1;
- debug(F100,"PDIAL sets partial=1","",0);
- postfix = 0; /* Do not add postfix */
- } else {
- partial = 0;
- debug(F100,"DIAL sets partial=0","",0);
- }
- previous = dialsta; /* Status of previous call, if any */
- if (previous == DIA_PART) {
- prefix = 0; /* do not add prefix */
- }
- s = NULL; /* Initialize user's dial string */
- if (cx == XXRED) { /* REDIAL or... */
- if ((y = cmcfm()) < 0)
- return(y);
- } else if (cx == XXANSW) { /* ANSWER or ... */
- if ((y = cmnum("timeout (seconds)","0",10,&x,xxstring)) < 0)
- return(y);
- dialatmo = x;
- if ((y = cmcfm()) < 0)
- return(y);
- } else { /* DIAL or LOOKUP */
- if (ndialdir > 0)
- s3 = "Number to dial or entry from dial directory";
- else
- s3 = "Number to dial";
- if ((x = cmtxt(s3, dialnum ? dialnum : "",&s,xxstring)) < 0)
- return(x);
- if (s) {
- len = (int) strlen(s);
- ckstrncpy(tmpbuf,s,TMPBUFSIZ); /* Save literal copy */
-#ifdef COMMENT
- if (len > 1) { /* Strip outer braces if given */
- if (*s == '{') {
- if (s[len-1] == '}') {
- s[len-1] = NUL;
- s++;
- len -= 2;
- }
- }
- }
-#else
- s = brstrip(s); /* Strip outer braces or quotes */
-#endif /* COMMENT */
- }
- }
-
- if (cx != XXLOOK) { /* Not LOOKUP */
-#ifdef IKSD
- if (inserver) {
- printf("Sorry, dialing is disabled.\r\n");
- return(success = 0);
- }
-#endif /* IKSD */
-#ifdef CK_TAPI
- if (tttapi && !tapipass) {
- ; /* Skip the modem test if TAPI */
- } else
-#endif /* CK_TAPI */
- if (mdmtyp < 1 && !dialtest) {
- if (network
-#ifdef TN_COMPORT
- && !istncomport()
-#endif /* TN_COMPORT */
- )
- printf("Please SET HOST first, and then SET MODEM TYPE\n");
- else
- printf("Sorry, you must SET MODEM TYPE first\n");
- dialsta = DIA_NOMO;
- return(success = 0);
- }
- if (!local && !dialtest) {
- printf("Sorry, you must SET %s or SET HOST first\n",
-#ifdef OS2
- "PORT"
-#else
- "LINE"
-#endif /* OS2 */
- );
- dialsta = DIA_NOLI;
- return(success = 0);
- }
- if ((!network
-#ifdef TN_COMPORT
- || istncomport()
-#endif /* TN_COMPORT */
- ) && !dialtest &&
-#ifdef CK_TAPI
- !tttapi &&
-#endif /* CK_TAPI */
- (speed < 0L)
-#ifdef UNIX
- && (strcmp(ttname,"/dev/null"))
-#else
-#ifdef OSK
- && (strcmp(ttname,"/nil"))
-#endif /* OSK */
-#endif /* UNIX */
- ) {
- printf("\nSorry, you must SET SPEED first\n");
- dialsta = DIA_NOSP;
- return(success = 0);
- }
- }
- if (cx != XXANSW) {
- for (j = 0; j < MAXDNUMS; j++) { /* Initialize dial-number list */
- if (!dialnum) { /* First time dialing */
- dn_p[j] = NULL; /* initialize all pointers. */
- dn_p2[j] = NULL;
- } else if (dn_p[j]) { /* Not the first time, */
- free(dn_p[j]); /* free previous, if any, */
- dn_p[j] = NULL; /* then set to NULL. */
- if (dn_p2[j])
- free(dn_p2[j]);
- dn_p2[j] = NULL;
- } else break; /* Already NULL */
- }
- if (len == 0)
- s = NULL;
- if (!s)
- s = dialnum;
- if (!s) {
- if (cx == XXLOOK)
- printf("?Lookup what?\n");
- else
- printf("%s\n", (cx == XXRED) ?
- "?No DIAL command given yet" :
- "?You must specify a number to dial"
- );
- return(-9);
- }
-
- /* Now we have the "raw" dial or lookup string and s is not NULL */
-
- makestr(&dscopy,s); /* Put it in a safe place */
- s = dscopy;
- n = 0;
-
- debug(F111,"dodial",s,ndialdir);
-
- wasalpha = 0;
- if (isalpha(*s)) {
- wasalpha = 1;
- if (ndialdir > 0) { /* Do we have a dialing directory? */
- n = ludial(s,cx); /* Look up what the user typed */
- if (n == 0)
- printf(" Lookup: \"%s\" - not found%s\n",
- s,
- cx == XXLOOK ? "" : " - dialing as given\n"
- );
- }
- debug(F101,"dodial",s,n);
- if (n < 0 && cx != XXLOOK) { /* Error out if they wanted to dial */
- if (n == -1) /* -2 means ludial already gave msg */
- printf(" Lookup: fatal error - dialing skipped\n");
- dialsta = DIA_DIR;
- return(-9);
- }
- if (n > 0) /* A successful lookup */
- lufound = 1;
- } else if (*s == '=') { /* If number starts with = sign */
- s++; /* strip it */
- literal = 1; /* remember this */
- while (*s == SP) s++; /* and then also any leading spaces */
- } else if (tmpbuf[0] == '{' && tmpbuf[1] == '{') {
- makelist(tmpbuf,dn_p,MAXDNUMS);
- makestr(&dscopy,tmpbuf);
- s = tmpbuf;
- for (n = 0; n < MAXDNUMS; n++) /* (have to count how many) */
- if (!dn_p[n]) break;
- braces = 1;
- }
- if (cx == XXLOOK && !wasalpha && !braces) {
- /* We've been told to lookup a number or a quoted name */
- char *p;
- n = 0;
- p = literal ? s : pncvt(dscopy);
- if (!p) p = "";
- if (*p) {
- printf("%s => %s\n", dscopy, p);
- return(success = 1);
- } else {
- printf("?Bad phone number\n");
- return(success = 0);
- }
- }
- /* Save DIAL or successful LOOKUP string for future DIAL or REDIAL */
- /* But don't save pieces of partial dial ... */
-
- debug(F101,"DIAL save dialnum partial","",partial);
- debug(F101,"DIAL save dialnum previous","",previous);
- if ((cx == XXDIAL && partial == 0 && previous != DIA_PART) ||
- (cx == XXLOOK && n > 0)) {
- makestr(&dialnum,dscopy);
- if (!quiet && dscopy && !dialnum)
- printf("WARNING - memory allocation failure: redial number\n");
- }
- if (n > 0) {
- if (!quiet && !backgrd && !braces /* && dialdpy */ ) {
- if (!strcmp(d_name,s))
- printf(" Lookup: \"%s\" - exact match\n",s);
- else
- printf(" Lookup: \"%s\" - uniquely matches \"%s\"\n",
- s,
- d_name
- );
- }
- if ((cx == XXLOOK) ||
- ((n > 1) && !quiet && !backgrd /* && dialdpy */ )) {
- printf(" %d telephone number%sfound for \"%s\"%s\n",
- n,
- (n == 1) ? " " : "s ",
- s,
- (n > 0) ? ":" : "."
- );
- s3 = getdname();
- }
- for (i = 0; i < n; i++) { /* Convert */
- dn_x[i] = -1;
- if (dncvt(i,cx,prefix,postfix) < 0) {
- if (cx != XXLOOK) {
- dialsta = DIA_DIR;
- return(-9);
- }
- }
- }
- if (dialsrt && n > 1) { /* Sort into optimal order */
- for (i = 0; i < n-1; i++) {
- for (j = i+1; j < n; j++) {
- if (dn_x[j] < dn_x[i]) {
- t = dn_x[j];
- dn_x[j] = dn_x[i];
- dn_x[i] = t;
- p = dn_p[j];
- dn_p[j] = dn_p[i];
- dn_p[i] = p;
- p = dn_p2[j];
- dn_p2[j] = dn_p2[i];
- dn_p2[i] = p;
- }
- }
- }
- }
- if ((cx == XXLOOK) ||
- ((n > 1) && !quiet && !backgrd /* && dialdpy */ )) {
- int nn = n;
-#ifndef NOSPL
- char * p;
-#endif /* NOSPL */
- if (cx != XXLOOK)
- if (n > 12) nn = 12;
- for (i = 0; i < nn; i++) {
- printf("%3d. %-12s %-20s => %-20s (%d)\n",i+1,
- s3, dn_p[i],
- dn_p2[i] ? dn_p2[i] : "(processing failed)",
- dn_x[i]
- );
- }
- if (cx != XXLOOK && n != nn)
- printf("And %d more...\n", n - nn);
- }
- } else if (n == 0) { /* Not found in directory */
- makestr(&(dn_p[0]),literal ? s : dscopy);
- makestr(&d_name,literal ? s : dscopy);
- dncount = 1;
- n = 1;
- if (dncvt(0,cx,prefix,postfix) < 0) { /* In case they typed a */
- dialsta = DIA_DIR; /* portable-format number ... */
- return(-9);
- }
- }
-
-#ifndef NONET
-#ifdef NETCONN
- /* It's not good that the networks directory depends on NOT-NODIAL.. */
- if (cx == XXLOOK && dscopy) { /* Networks here too... */
- extern char *nh_p[], *nh_p2[], *n_name;
- extern char *nh_px[4][MAXDNUMS+1];
- n = -1;
- if (nnetdir > 0) { /* Do we have a network directory? */
- dirline = 0;
- n = lunet(dscopy); /* Look up what the user typed */
- }
- if (n > -1) {
- int k;
- if (n > 0) /* A successful lookup */
- lufound = 1;
- if (cx == XXLOOK && n == 0)
- printf(" Lookup: \"%s\" - not found\n",dscopy);
- else
- printf("%s %d network entr%s found for \"%s\"%s\n",
- cx == XXLOOK ? " Lookup:" : "",
- n,
- (n == 1) ? "y" : "ies",
- dscopy,
- (n > 0) ? ":" : "."
- );
-
- for (i = 0; i < n; i++) {
-
- printf("%3d. %-12s => %-9s %s",
- i+1,n_name,nh_p2[i],nh_p[i]);
- for (k = 0; k < 4; k++) {
- if (nh_px[k][i]) {
- printf(" %s",nh_px[k][i]);
- } else
- break;
- }
- printf("\n");
- }
- }
- }
-#endif /* NETCONN */
-#endif /* NONET */
- if (cx == XXLOOK)
- return(success = lufound);
- } /* cx != XXANSW */
-
-#ifdef VMS
- conres(); /* So Ctrl-C/Y will work */
-#endif /* VMS */
-/*
- Some modems do not react well to parity. Also, if we are dialing through a
- TCP/IP TELNET modem server, parity can be fatally misinterpreted as TELNET
- negotiations.
-
- This should work even if the user interrupts the DIAL command, because the
- DIAL module has its own interrupt handler. BUT... if, for some reason, a
- dialing device actually *requires* parity (e.g. CCITT V.25bis says that even
- parity should be used), this might prevent successful dialing. For that
- reason, we don't do this for V.25bis modems.
-*/
- sparity = parity; /* Save current parity */
- if ((dialcapas & CKD_V25) == 0) /* If not V.25bis... */
- parity = 0; /* Set parity to NONE */
-
- flowsave = flow;
-/*
- These modems use some kind of screwy flow control while in command mode,
- and do not present CTS as they should. So if RTS/CTS is set (or even if
- it isn't) disable flow control during dialing.
-*/
-#ifndef MINIDIAL
- if (mdmtyp == n_ATT1910 || mdmtyp == n_ATT1900) {
- flow = FLO_NONE; /* This is not enough */
-#ifdef CK_TTSETFLOW
- ttsetflow(FLO_NONE); /* Really turn it off */
-#endif /* CK_TTSETFLOW */
- }
-#endif /* MINIDIAL */
- if (!network
-#ifdef TN_COMPORT
- || istncomport()
-#endif /* TN_COMPORT */
- ) {
- int x;
- if ((x = ttgmdm()) > -1) {
- if (!x && msgflg) {
- printf(
-"WARNING - No modem signals detected. Is your modem turned on? If not,\n\
-use Ctrl-C to interrupt dialing, turn on your modem, then %s.\n",
- cx == XXANSW ?
- "ANSWER again" :
- "REDIAL"
- );
- }
- if (flow == FLO_RTSC) {
- if (!(x & BM_CTS)) {
- if (msgflg)
- printf(
-"WARNING - SET FLOW RTS/CTS is in effect but modem's CTS signal is off.\n\
-Disabling flow control temporarily %s...\n",
- cx == XXANSW ?
- "while waiting for call" :
- "during dialing"
- );
- flow = FLO_NONE;
- }
- }
- }
- }
- if (cx == XXANSW) { /* ANSWER */
- success = ckdial("",0,0,1,0);
- goto dialfin;
- }
-
-/* Edit 192 adds the ability to dial repeatedly. */
-
- i = 0;
- dialcount = 0;
- do {
- if (i > 0) printf("\nDial attempt %d of %d...\n", i+1, xretries);
- dialcount = i+1;
- success = 0;
- /* And the ability to dial alternate numbers. */
- /* Loop to dial each in a list of numbers for the same name... */
- for (j = 0; j < n && !success; j++) { /* until one answers. */
- s = dn_p2[j]; /* Next number in list */
- if (dn_x[j] >= dialrstr) { /* Dial restriction */
- printf("Restricted: %s, skipping...\n",dn_p[j]);
- continue;
- }
- xredial = (i == 0 && j == 0) ? 0 : 1;
- if (!s) s = dn_p[j];
-
-#ifndef NOSPL
- sav = s;
- p = xdial(s); /* Apply DIAL macro now */
- if (p) s = p;
-#endif /* NOSPL */
-
- /* Dial confirmation */
- /* NOTE: the uq_xxx() calls allow for a GUI dialog */
-
- if (i == 0 && dialcnf) {
- char msgbuf[128];
- ckmakmsg(msgbuf,128,"Dialing ",s,NULL,NULL);
- x = uq_ok(msgbuf,"Is this number correct? ",3,NULL,0);
- if (!x) {
-
-#ifndef COMMENT
- x = uq_txt( /* Allow GUI dialog */
-#ifdef OS2
-" Please enter the correct number,\r\n or press Enter to skip.",
-#else
-" Please enter the correct number,\r\n or press Return to skip.",
-#endif /* OS2 */
- "Corrected phone number: ",
- 1,
- NULL,
- atmbuf,
- ATMBL,
- s,
- DEFAULT_UQ_TIMEOUT
- );
- if (x && atmbuf[0]) { /* They gave a new one */
- s = atmbuf;
- makestr(&(dn_p2[j]), s);
- }
-
-#else /* COMMENT */
-
-#ifdef CK_RECALL
- extern int on_recall;
-#endif /* CK_RECALL */
- cmsavp(psave,PROMPTL);
- cmsetp(
-#ifdef OS2
-" Please enter the correct number,\r\n or press Enter to skip: "
-#else
-" Please enter the correct number,\r\n or press Return to skip: "
-#endif /* OS2 */
- );
- cmini(ckxech);
- x = -1;
- if (pflag) prompt(NULL);
-#ifdef CK_RECALL
- on_recall = 0;
-#endif /* CK_RECALL */
- y = cmdgquo();
- cmdsquo(0);
- while (x < 0) {
- x = cmtxt("Corrected phone number","",&s,NULL);
- cmres();
- }
- if ((int) strlen(s) < 1) {
- cmsetp(psave);
- continue;
- }
- makestr(&(dn_p2[j]), s);
- cmdsquo(y);
- cmsetp(psave);
-#endif /* COMMENT */
- }
- }
- if (dialtest) { /* Just testing */
- if (i + j == 0)
- printf("\nTESTING...\n");
- if (dialmac)
- printf(" Number: \"%s\" => \"%s\"\n",sav,s);
- else
- printf(" Number: \"%s\"\n",s);
- dialsta = DIA_BUSY;
- success = 0;
- } else {
- what |= W_DIALING;
- success = ckdial(s,i,j,partial ? 3 : 0, xredial); /* Dial it */
- what &= ~(W_DIALING);
- if (!success) {
- if (dialsta < 8 || /* Break out if unrecoverable error */
- dialsta == DIA_INTR ||
- dialsta == DIA_ERR ||
- previous == DIA_PART
- )
- break;
- }
- }
- }
- if (success) /* Succeeded, leave the outer loop */
- break;
- if (dialsta < 8 || /* Break out if unrecoverable error */
- dialsta == DIA_INTR || /* Interrupted */
- dialsta == DIA_NODT || /* No dialtone */
- dialsta == DIA_NOAC || /* Access forbidden */
- dialsta == DIA_BLCK || /* Blacklisted */
- dialsta == DIA_DIR || /* Dialing directory error */
- dialsta == DIA_ERR || /* Modem command error */
- previous == DIA_PART)
- break;
- if (++i >= xretries) /* Break out if too many tries */
- break;
- if (!backgrd && !quiet) {
- if (dialint > 5)
- printf(
-"\nWill redial in %d second%s- press any key to redial immediately.\n",
- dialint,
- dialint == 1 ? " " : "s "
- );
- printf("Ctrl-C to cancel...\n");
- }
- x = dialint; /* Redial interval */
- while (x-- > 0) {
- if ((y = conchk()) > 0) { /* Did they type something? */
- while (y--) coninc(0); /* Yes, absorb it */
- break; /* And wake up */
- }
- sleep(1); /* No interrupt, sleep a sec */
- }
- } while (!success);
-
- dialfin:
-
- if (cx != XXLOOK) {
- if (!success)
- bleep((short) BP_FAIL);
- else if (!quiet)
- bleep((short) BP_NOTE);
-#ifdef OS2
- setint(); /* Fix OS/2 interrupts */
-#endif /* OS2 */
- if (sparity > -1)
- parity = sparity; /* Restore parity if we saved it */
- flow = flowsave;
-#ifdef OS2
- ttres(); /* Restore DIAL device */
-#endif /* OS2 */
-#ifdef VMS
- concb((char)escape); /* Restore console */
-#endif /* VMS */
-#ifdef OS2
- { /* Set session title */
- char * p, name[72]; /* in window list. */
- char * q;
- if (cx == XXANSW) {
- q = "Incoming call";
- } else {
- if (d_name)
- q = d_name;
- else if (dialnum)
- q = dialnum;
- else if (ttname[0])
- q = ttname;
- else q = "";
- }
- p = name;
- if (success) {
- strncpy(name,q,48);
- while (*p) { /* Uppercase it for emphasis. */
- if (islower(*p))
- *p = toupper(*p);
- p++;
- }
- } else
- name[0] = NUL ;
- os2settitle((char *) name, TRUE);
- }
-#endif /* OS2 */
- }
- if (cx != XXLOOK) {
- if (success) {
- if (reliable == SET_AUTO) { /* It's not a reliable connection. */
- reliable = SET_OFF;
- debug(F101,"dodial reliable","",reliable);
- }
- } else {
-#ifndef NOHINTS
- extern int hints;
- if (hints && !quiet && dialsta != 9) { /* 9 == User interrupted */
- extern int dialmhu, dialhng, dialdpy;
- extern char * dialmsg[];
- printf("\n*************************\n");
- printf("DIAL-class command failed.\n");
- printf("Modem type: %s\n", gmdmtyp());
- printf("Device: %s\n", ttname);
- printf("Speed: %ld\n", speed);
- printf("Dial status: %d",dialsta);
- if (dialsta < 35 && dialmsg[dialsta])
- printf(" [%s]",dialmsg[dialsta]);
- printf("\n");
- if (dialsta == DIA_TIMO ||
- dialsta == DIA_NRDY ||
- (dialsta > 13 && dialsta != DIA_BUSY && dialsta != DIA_NOAN)
- ) {
- switch (dialsta) {
- case DIA_TIMO:
- printf(
-" . SET DIAL TIMEOUT to a greater value and try again.\n"
- );
- break;
- case DIA_NRSP:
- case DIA_NRDY:
- case DIA_NOIN:
- printf(
-" . Is the modem turned on?\n"
- );
- printf(
-" . Are you using the right communication port?\n"
- );
- break;
- case DIA_NODT:
- printf(
-" . Is the modem connected to the telephone line?\n"
- );
- }
- if (mdmtyp == n_GENERIC) {
- printf(
-" . Please choose a specific modem type with SET MODEM TYPE and try again.\n"
- );
- printf(
-" SET MODEM TYPE ? to see the list of known modem types.\n"
- );
- } else {
- printf(
-" . Are you sure you have chosen the appropriate modem type?\n"
- );
- }
- if (speed > 19200L) {
- printf(
-" . Maybe the interface speed (%ld) is too fast:\n", speed
- );
- printf(
-" SET SPEED to a lower speed and try again.\n"
- );
- printf(
-" SET SPEED ? to see the list of valid speeds.\n"
- );
- }
- if (dialhng) {
- if (dialmhu)
- printf(
-" . SET MODEM HANGUP-METHOD RS232 and try again.\n"
- );
- else
- printf(
-" . SET MODEM HANGUP-METHOD MODEM-COMMAND and try again.\n"
- );
- printf(
-" . If that doesn't work, try again with SET DIAL HANGUP OFF.\n"
- );
- } else {
- printf(
-" . Give a HANGUP or SET DIAL HANGUP ON command and try again.\n"
- );
- }
- if (!dialdpy)
- printf(
-" . Use SET DIAL DISPLAY ON to watch the dialog between Kermit and modem.\n"
- );
- }
-#ifndef NOSHOW
- printf(
-" . SHOW COMMUNICATIONS, SHOW MODEM, SHOW DIAL to see current settings.\n"
- );
-#endif /* NOSHOW */
-
-#ifndef NOHELP
- printf(
-" . HELP SET MODEM, HELP SET DIAL, and HELP DIAL for more information.\n"
- );
-#endif /* NOHELP */
- printf("(Use SET HINTS OFF to suppress future hints.)\n");
- printf("*************************\n\n");
- }
-#endif /* NOHINTS */
- }
- }
- return(success);
-}
-#endif /* NODIAL */
-
-/* D O T Y P E -- Type (display) a file with various options... */
-
-#ifdef BIGBUFOK
-#define TYPBUFL 16384
-#else
-#define TYPBUFL 256
-#endif /* BIGBUFOK */
-
-int typ_lines = 0; /* \v(ty_ln) */
-int typ_mtchs = 0; /* \v(ty_lm) */
-static int typ_int = 0; /* Flag if TYPE interrupted */
-
-#ifdef UNICODE
-extern int fcharset, fileorder, byteorder, ucsorder;
-#define TYPXBUFL TYPBUFL+TYPBUFL+TYPBUFL+4
-static char * mp = NULL;
-static char * mbuf = NULL;
-static long xn = 0L;
-
-static int
-#ifdef CK_ANSIC
-storechar(char c)
-#else
-storechar(c) char c;
-#endif /* CK_ANSIC */
-{
- if (!mp) return(-1);
- if (++xn > TYPXBUFL)
- return(-1);
- debug(F111,"storechar xn",ckitoa((int)c),xn);
- *mp++ = c;
- return(0);
-}
-#endif /* UNICODE */
-
-static FILE * ofp = NULL; /* For /OUTPUT: file */
-
-static int
-typeline(buf,len,outcs,ofp) char * buf; int len, outcs; FILE * ofp; {
- register int i;
-
- debug(F011,"typeline buf",buf,len);
- /* debug(F101,"typeline outcs","",outcs); */
-
-#ifdef OS2
-#ifndef NOLOCAL
-#ifdef UNICODE
- /* In K95 only, the buffer is guaranteed to be in UCS-2 if outcs >= 0. */
- /* Len is its length in bytes. There is no line terminator. */
- /* outcs is the file character-set number (FC_xxx) of the target set */
- /* that was requested by the user. */
- if (!inserver && !k95stdout) {
- extern int wherex[], wherey[];
- extern unsigned char colorcmd;
-
- VscrnWrtUCS2StrAtt( VCMD, (unsigned short *)buf, len/2,
- wherey[VCMD], wherex[VCMD], &colorcmd);
- printf("\r\n");
- return(0);
- }
-#endif /* UNICODE */
-#endif /* NOLOCAL */
-#endif /* OS2 */
-
-/* In Unix, VMS, etc, the line has already been converted to the desired */
-/* character-set, if one was given. OR... on all platforms, including in */
-/* K95, we don't know the character set. In either case we dump the line */
-/* byte by byte in case it contains NULs (printf() would truncate). */
-
-#ifdef COMMENT
- for (i = 0; i < len; i++)
- putchar(buf[i]);
-#else
- for (i = 0; i < len; i++) {
- if (ofp == stdout) {
- putchar(buf[i]);
- } else {
- putc(buf[i],ofp);
- }
- }
-#endif /* COMMENT */
-
-#ifdef IKSD
- if (inserver) {
-#ifdef UNICODE
- if (outcs == FC_UCS2) {
- if (ofp == stdout) {
- putchar(NUL);
- } else {
- putc(NUL,ofp);
- }
- }
-#endif /* UNICODE */
- if (ofp == stdout) {
- putchar('\r');
- } else {
- putc('\r',ofp);
- }
- }
-#endif /* IKSD */
-#ifdef UNICODE
- if (outcs == FC_UCS2) {
- if (ofp == stdout) {
- putchar(NUL);
- } else {
- putc(NUL,ofp);
- }
- }
-#endif /* UNICODE */
- if (ofp == stdout) {
- putchar('\n');
- } else {
- putc('\n',ofp);
- }
- fflush(stdout);
- return(0);
-}
-
-static int /* Get translated line */
-typegetline(incs, outcs, buf, n) int incs, outcs, n; char * buf; {
- int x = 0, c0, c1, len = 0, count = 0, eof = 0, xlate = 0;
-#ifdef UNICODE
- int xxn = -1;
- int yyn = -9;
- xn = 0L;
-
-#ifdef DEBUG
- if (deblog && typ_lines == 0) {
- debug(F101,"typegetline incs","",incs);
- debug(F101,"typegetline outcs","",outcs);
- debug(F101,"typegetline feol","",feol);
- debug(F101,"typegetline byteorder","",byteorder);
- debug(F101,"typegetline ucsorder ","",ucsorder);
- debug(F111,"typegetline fileorder","1",fileorder);
- }
-#endif /* DEBUG */
-
- if (incs < 0) /* Shouldn't happen */
- return(-2);
-
- if (outcs == -1) /* Can happen */
- outcs = incs;
-
- if (incs != outcs || incs == FC_UCS2) { /* See if we should translate */
- xlate = 1;
- if (!mbuf) { /* Allocate buffer if not allocated */
- mbuf = (char *)malloc(TYPXBUFL+1); /* yet */
- if (!mbuf) {
- printf("WARNING: Translation buffer allocation failure.\n");
- printf("Translation will be skipped...\n");
- xlate = 0;
- }
- }
- }
- if (xlate) { /* Translating... */
- mp = mbuf; /* Reset working buffer pointer */
-/*
- Here we call xgnbyte() in a loop, having it return UCS-2 bytes. In K95, we
- use UCS-2 directly. Elsewhere, we feed the UCS-2 bytes into xpnbyte() to
- convert them to the desired target character set. But since we are using
- UCS-2, we have several sources for confusion: (1) xgnbyte() might return in
- LE or BE byte order, with no explicit indication of what the order is; but
- (2) xpnbyte() wants BE; but (3) Windows wants LE.
-*/
- while (1) {
- if (typ_int) /* Quit if interrupted */
- return(0);
- c0 = xgnbyte(FC_UCS2,incs,NULL); /* Convert to UCS-2 */
- debug(F000,"typegetline c0","",c0);
- if (c0 < 0) { /* EOF */
- eof++;
- break;
- }
- c1 = xgnbyte(FC_UCS2,incs,NULL); /* Convert to UCS-2 */
- debug(F000,"typegetline c1","",c1);
- if (c1 < 0) { /* EOF */
- eof++;
- break;
- }
-#ifdef DEBUG
- if (deblog && typ_lines == 0) {
- if (count == 0) /* Check fileorder after BOM */
- debug(F111,"typegetline fileorder","2",fileorder);
- }
-#endif /* DEBUG */
-
-#ifdef COMMENT
-/* Now we have the two UCS-2 bytes. Which order are they in? */
-
- if (fileorder > 0) { /* Little Endian */
- int t; /* So swap them */
- debug(F100,"typegetline swapping","",0);
- t = c1;
- c1 = c0;
- c0 = t;
- }
-#endif /* COMMENT */
- if (c0 == 0 && c1 == 0x0D) /* Now see if we have EOL */
- yyn = xn;
-
- if (c0 == 0 && c1 == 0x0A) /* Now see if we have EOL */
- xxn = xn;
-
- count++; /* Count byte */
-
-/* Give the two bytes to xpnbyte() in BE order */
-
- if ((x = xpnbyte(c0,TC_UCS2,outcs,storechar)) < 0) return(-1);
- if ((x = xpnbyte(c1,TC_UCS2,outcs,storechar)) < 0) return(-1);
-
- if (xxn > -1) { /* Have end of line? */
- xn = xxn;
- if (yyn == xxn - 2) /* Adjust for CRLF */
- xn = yyn;
- break; /* And break out of loop. */
- }
- }
- mbuf[xn] = NUL;
- if (xn > n) /* Can truncate here... */
- xn = n;
- memcpy(buf,mbuf,xn);
- debug(F011,"typegetline xlate",buf,xn);
- return((eof && (xn == 0)) ? -1 : xn);
- }
-#endif /* UNICODE */
-#ifdef COMMENT
- /* We can't use this because, stupidly, zsinl() doesn't return a length. */
- /* It could be changed but then we'd have to change all ck?fio.c modules */
- x = zsinl(ZIFILE,buf,n);
-#else
- /* So instead, we copy zsinl() to here... */
- /* But note: This does not necessarily handle UCS-2 alignment properly; */
- /* that's what the code in the first section of this routine is for. */
- /* But it does tolerate files that contain NULs. */
- {
- int a;
- char *s;
-
- s = buf;
- a = -1; /* Current character, none yet. */
- debug(F101,"typegetline zsinl simulation","",n);
- while (n--) { /* Up to given length */
-#ifdef COMMENT
- int old = 0;
- if (feol) /* Previous character */
- old = a;
-#endif /* COMMENT */
- if (zchin(ZIFILE,&a) < 0) { /* Read a character from the file */
- debug(F101,"typegetline zchin fail","",count);
- if (count == 0)
- x = -1; /* EOF or other error */
- break;
- } else
- count++;
- if (feol) { /* Single-character line terminator */
- if (a == feol)
- break;
- } else { /* CRLF line terminator */
-#ifdef COMMENT
-/* Debug log shows that in Windows, <CR><LF> is returned as <LF>. */
-/* Apparently we're not reading the file in binary mode. */
-
- if (a == '\015') /* CR, get next character */
- continue;
- if (old == '\015') { /* Previous character was CR */
- if (a == '\012') { /* This one is LF, so we have a line */
- break;
- } else { /* Not LF, deposit CR */
- *s++ = '\015';
- n--;
- len++;
- }
- }
-#else
- if (a == LF) {
- if (s[len] == CR) { /* This probably won't happen */
- s[len] = NUL;
- s--;
- len--;
- }
- break;
- }
-#endif /* COMMENT */
- }
- *s = a; /* Deposit character */
- s++;
- len++;
- }
- *s = '\0'; /* Terminate the string */
- }
-#endif /* COMMENT */
- return(x < 0 ? -1 : len);
-}
-
-
-#ifndef MAC
-SIGTYP
-#ifdef CK_ANSIC
-tytrap(int foo) /* TYPE interrupt trap */
-#else
-tytrap(foo) int foo;
-#endif /* CK_ANSIC */
-/* tytrap */ {
-#ifdef __EMX__
- signal(SIGINT, SIG_ACK);
-#endif
- debug(F100,"type tytrap SIGINT","",0);
- typ_int = 1; /* (Need arg for ANSI C) */
- SIGRETURN;
-}
-#endif /* MAC */
-
-int
-dotype(file, paging, first, head, pat, width, prefix, incs, outcs, outfile, z)
- char * file, * pat, * prefix; int paging, first, head, width, incs, outcs;
- char * outfile; int z;
-/* dotype */ {
- extern long ffc;
- char buf[TYPBUFL+2];
- char * s = NULL;
- int rc = 1, lines = 0, ucs2 = 0;
- char ** tail = NULL;
- int * tlen = NULL;
- int tailing = 0, counting = 0;
- int x, c, n, i, j, k = 0;
- int number = 0, save, len, pfxlen = 0, evalpfx = 1;
-#ifdef UNICODE
- int ucsbom_sav;
- extern int ucsbom;
-#endif /* UNICODE */
-#ifdef NT
- int gui = 0;
-#endif /* NT */
-
-#ifndef MAC
-#ifdef OS2
-#ifdef NT
- SIGTYP (* oldsig)(int); /* For saving old interrupt trap. */
-#else /* NT */
- SIGTYP (* volatile oldsig)(int);
-#endif /* NT */
-#else /* OS2 */
- SIGTYP (* oldsig)();
-#endif /* OS2 */
-#endif /* MAC */
-
-#ifdef KUI
- if (outfile == (char *)1) {
- gui = 1;
- outfile = "";
- }
-#endif /* KUI */
-
- if (!file) file = "";
- if (!*file) return(-2);
-
- if (ofp != stdout) { /* In case of previous interruption */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- if (!outfile) outfile = "";
- if (outfile[0]) {
- ofp = fopen(outfile,"w"); /* Open output file */
- if (!ofp) {
- printf("?Can't open output file %s: %s\n",outfile,ck_errstr());
- ofp = stdout;
- return(-9);
- }
- }
- number = z;
- if (number && prefix) prefix = NULL;
-
-#ifdef UNICODE
- ucsbom_sav = ucsbom; /* We are not creating a file */
- ucsbom = 0; /* Do not use BOM bytes */
-#endif /* UNICODE */
-
- typ_int = 0;
-
- save = binary; /* Save file type */
-
- debug(F101,"dotype incs","",incs);
- debug(F101,"dotype outcs","",outcs);
-
-#ifdef UNICODE
- debug(F111,"dotype fileorder","A",fileorder);
-#ifdef OS2
- if (!inserver && !k95stdout)
- outcs = FC_UCS2;
-#endif /* OS2 */
-
- if (outcs == FC_UCS2) /* Output is UCS-2? */
- ucs2 = 1;
- if (fileorder < 0)
- fileorder = ucsorder;
- debug(F111,"dotype fileorder","B",fileorder);
-#endif /* UNICODE */
-
-#ifdef CK_TTGWSIZ
-#ifdef OS2
- ttgcwsz();
-#else /* OS2 */
- /* Check whether window size changed */
- if (ttgwsiz() > 0) {
- if (tt_rows > 0 && tt_cols > 0) {
- cmd_rows = tt_rows;
- cmd_cols = tt_cols;
- debug(F101,"dotype cmd_rows","",cmd_rows);
- debug(F101,"dotype cmd_cols","",cmd_cols);
- }
- }
-#endif /* OS2 */
-#endif /* CK_TTGWSIZ */
-
- if (prefix)
- pfxlen = strlen(prefix);
-
- if (paging < 0) { /* Count only, don't print */
- counting = 1;
- prefix = NULL;
- width = 0;
- paging = 0;
- }
- if (ucs2) /* Crude... */
- width *= 2;
-
-#ifdef OS2
- if (*file) {
- ckstrncpy(buf, file, TYPBUFL); /* Change / to \. */
- p = buf;
- while (*p) {
- if (*p == '/') *p = '\\';
- p++;
- }
- file = buf;
- } else {
- rc = 0;
- goto xdotype;
- }
-#endif /* OS2 */
-
- if (zchki(file) == -2) { /* It's a directory */
- debug(F111,"dotype zchki failure",file,-2);
- if (xcmdsrc == 0) {
- printf("?Not a regular file: \"%s\"\n",file);
- rc = -9;
- } else
- rc = 0;
- goto xdotype;
- }
- if (!zopeni(ZIFILE, file)) { /* Not a directory, open it */
- debug(F111,"dotype zopeni failure",file,0);
- if (xcmdsrc == 0) {
- printf("?Can't open file: \"%s\"\n",file);
- rc = -9;
- } else
- rc = 0;
- goto xdotype;
- }
-
-#ifndef AMIGA
-#ifndef MAC
- errno = 0;
- oldsig = signal(SIGINT, tytrap); /* Save current interrupt trap. */
- debug(F111,"type SIGINT trap set",ckitoa(errno),oldsig);
-#endif /* MAC */
-#endif /* AMIGA */
-
- if (paging > -1) /* More-prompting */
- xaskmore = paging;
-
- binary = 0;
-
- if (head < 0) { /* "tail" was requested */
- tailing = 1; /* Set flag */
- head = 0 - head; /* Get absolute number of lines */
- if (!counting) {
- tail = (char **) malloc(head * sizeof(char *)); /* Allocate list */
- if (!tail) {
- printf("?Memory allocation failure\n");
- goto xdotype;
-
- }
- tlen = (int *) malloc(head * sizeof(int));
- if (!tlen) {
- printf("?Memory allocation failure\n");
- goto xdotype;
-
- }
- for (i = 0; i < head; i++) { /* Initialize each pointer in list. */
- tail[i] = NULL;
- tlen[i] = 0;
- }
- }
- }
- typ_lines = 0;
- typ_mtchs = 0;
-
-#ifdef UNICODE
- if (outcs > -1 && (incs != outcs || incs == FC_UCS2)) { /* Translating? */
- ffc = 0L;
- initxlate(incs,outcs); /* Set up translation functions */
- } else
-#endif /* UNICODE */
- outcs = -1; /* Means we don't know the charset */
-
- debug(F101,"dotype ffc","",ffc);
- debug(F101,"dotype outcs 2","",outcs);
-#ifdef UNICODE
- debug(F111,"dotype fileorder","C",fileorder);
-#endif /* UNICODE */
-
- /* Allow the buffer to contain NULs */
-
- for (n = first;
- (len = typegetline(incs,outcs,buf,TYPBUFL)) > -1;
- lines++
- ) {
- debug(F011,"dotype line",buf,len);
-#ifndef MAC
- if (typ_int) { /* Interrupted? */
- typ_int = 0;
- debug(F101,"type interrupted line","",lines);
- printf("^C...\n"); /* Print message */
- if (ofp != stdout) { /* Close any output file */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- goto xxdotype;
- }
-#endif /* MAC */
- typ_lines++; /* For \v(ty_ln) */
- if (pat) /* Matching? */
- if (!ckmatch(pat,buf,1,1+4)) /* Line matches pattern? */
- continue; /* No, skip it */
- typ_mtchs++;
-
- if (head > 0 && !tailing && lines == head) /* Handle /HEAD:n */
- break;
-
- buf[TYPBUFL+1] = NUL; /* Just in case... */
- if (prefix) { /* Add specified prefix to each line */
- char pbuf[64];
- char * pp;
- pp = prefix;
-#ifndef NOSPL
- if (evalpfx) { /* Prefix is a variable? */
- int n = 63; /* Maybe - evaluate it and see */
- char * p = pbuf;
- zzstring(prefix,&p,&n); /* If there is no change */
- if (!strcmp(prefix,pbuf)) { /* it's not a variable */
- evalpfx = 0; /* So don't do this again. */
- } else { /* It was a variable */
- pp = pbuf; /* So substitute its value */
- pfxlen = 63 - n; /* and get its new length */
- }
- }
-#endif /* NOSPL */
- if (len + pfxlen + 2 < TYPBUFL) {
- /* Shift right to make room for prefix */
- memcpy((char *)line+pfxlen,(char *)buf,len);
- lset((char *)line,pp,pfxlen,SP);
- debug(F110,"dotype prefix",line,pfxlen);
- len += pfxlen;
- memcpy((char *)buf,(char *)line,len);
- }
- } else if (number) { /* Line numbers */
- int x;
- sprintf(line,"%4d. ",typ_lines);
- x = strlen(line);
- len += x;
- if (len < LINBUFSIZ) {
- memcpy((char *)&line[x],(char *)buf,len);
- memcpy((char *)buf,(char *)line,len);
- }
- }
- if (width > 0 && width <= TYPBUFL) { /* Truncate at given width. */
- char * obuf = line; /* But to do that first we must */
- int i,k,z; /* expand tabs; assume every 8 cols. */
- line[0] = NUL;
- for (i = 0, k = 0; i < width; k++) { /* Character loop... */
- if (!buf[k]) /* No more chars in this line, done. */
- break;
- if (buf[k] != '\t') { /* If it's not a tab */
- if (i >= LINBUFSIZ) /* Check for overflow */
- break;
- obuf[i++] = buf[k]; /* and then deposit it. */
- obuf[i] = NUL; /* Keep it null-terminated */
- continue;
- }
- z = 8 - (i % 8); /* It's a tab, expand it. */
- if (z == 0) z = 8;
- for (j = 0; j < z && i < LINBUFSIZ; j++) {
-#ifdef UNICODE
- if (ucs2 && !ucsorder)
- obuf[i++] = NUL;
-#endif /* UNICODE */
- obuf[i++] = ' ';
-#ifdef UNICODE
- if (ucs2 && ucsorder)
- obuf[i++] = NUL;
-#endif /* UNICODE */
- }
- obuf[i++] = NUL;
- obuf[i] = NUL;
- }
- obuf[width] = NUL; /* Now truncate at given width. */
-#ifdef COMMENT
- /* This doesn't work for UCS-2 because it contains NULs */
- ckstrncpy(buf,obuf,TYPBUFL); /* and copy it back (again?) */
-#else
- memcpy((char *)buf,(char *)obuf,i); /* Copy it back */
-#endif /* COMMENT */
- len = (i > width) ? width : i; /* Spare us another strlen()... */
- }
- if (tailing) { /* If /TAIL:n... */
- k = lines % head; /* save this line in circular buffer */
- if (!counting) {
- if (tail[k]) free(tail[k]);
- tail[k] = malloc(len+2);
- if (!tail[k]) {
- printf("?Memory allocation failure\n");
- goto xdotype;
- }
- memcpy(tail[k],buf,len);
- tlen[k] = len;
- continue;
- }
- }
- if (counting) /* If only counting */
- continue; /* we're done with this line */
-
- if (paging) { /* Displaying this line... */
- int u;
- u = len; /* Length in BYTES */
- if (ucs2) /* If outputting in UCS-2 */
- u /= 2; /* convert length to CHARACTERS */
- x = (u / cmd_cols) + 1; /* Crudely allow for wrap */
- if (cmd_rows > 0 && cmd_cols > 0)
- n += x; /* This assumes terminal will wrap */
- }
-#ifdef KUI
- if ( gui ) {
- int i;
- unsigned short * uch = (unsigned short *)buf;
- for ( i=0; i<len/2; i++)
- gui_text_popup_append(uch[i]);
- gui_text_popup_append(CR);
- gui_text_popup_append(LF);
- }
- else
-#endif /* KUI */
- typeline(buf,len,outcs,ofp); /* Print line, length based */
-#ifdef CK_TTGWSIZ
- debug(F101,"dotype n","",n);
- if (paging > 0 && ofp == stdout) { /* Pause at end of screen */
- if (cmd_rows > 0 && cmd_cols > 0) {
- if (n > cmd_rows - 3) {
- if (!askmore())
- goto xdotype;
- else
- n = 0;
- }
- }
- }
-#endif /* CK_TTGWSIZ */
- }
-
- xdotype:
- if (counting) {
- fprintf(ofp,
- "%s: %d line%s\n",file,typ_lines,typ_lines == 1 ? "" : "s");
- if (pat)
- fprintf(ofp,
- "%s: %d match%s\n",pat,typ_mtchs,typ_mtchs == 1 ? "" : "es");
- goto xxdotype;
- }
- if (tailing && tail) { /* Typing tail of file? */
- if (lines < head) { /* Yes, show the lines we saved */
- k = 0; /* Show all lines */
- } else { /* More lines than tail number */
- lines = k; /* Last line to show */
- k++; /* First line to show */
- if (k >= head)
- k = 0;
- }
- n = first; /* Output line counter */
- for (i = k ;; i++) { /* Loop thru circular buffer */
-#ifndef MAC
- if (typ_int) { /* Interrupted? */
- printf("^C...\n"); /* Print message */
- goto xxdotype;
- }
-#endif /* MAC */
- j = i % head; /* Index of this line */
- s = tail[j]; /* Point to line to display */
- if (!s) /* (shouldn't happen...) */
- break;
- if (paging) { /* Crudely allow for line wrap */
- x = tlen[j];
- if (ucs2) x /= 2;
- x = x / cmd_cols + 1;
- if (cmd_rows > 0 && cmd_cols > 0)
- n += x;
- }
- typeline(s,tlen[j],outcs,ofp); /* Display this line */
- if (paging && ofp == stdout) { /* Pause at end of screen */
- if (cmd_rows > 0 && cmd_cols > 0) {
- if (n > cmd_rows - 3) {
- if (!askmore())
- break;
- else
- n = 0;
- }
- }
- }
- tail[j] = NULL;
- free(s); /* Free the line */
- if (i % head == lines) /* When to stop */
- break;
- }
- free((char *)tail); /* Free the list */
- tail = NULL;
- if (tlen) free((char *)tlen);
- tlen = NULL;
- }
-
-/* Come here when finished or on SIGINT */
-
- xxdotype:
-#ifndef AMIGA
-#ifndef MAC
- signal(SIGINT,oldsig); /* Put old signal action back. */
-#endif /* MAC */
-#endif /* AMIGA */
- if (tailing && tail) {
- for (i = 0; i < head; i++) { /* Free each line. */
- if (tail[i])
- free(tail[i]);
- }
- free((char *)tail); /* Free list pointer */
- if (tlen)
- free((char *)tlen);
- }
- x = zclose(ZIFILE); /* Done, close the input file */
- if (ofp != stdout) { /* Close any output file */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- binary = save; /* Restore text/binary mode */
-#ifdef UNICODE
- ucsbom = ucsbom_sav; /* Restore BOM usage */
-#endif /* UNICODE */
-
-#ifdef KUI
- if ( gui )
- gui_text_popup_wait(-1); /* Wait for user to close the dialog */
-#endif /* KUI */
- return(rc);
-}
-
-/* GREP command */
-
-#define GREP_CASE 0 /* /CASE */
-#define GREP_COUN 1 /* /COUNT */
-#define GREP_DOTF 2 /* /DOTFILES */
-#define GREP_NAME 3 /* /NAMEONLY */
-#define GREP_NOBK 4 /* /NOBACKUP */
-#define GREP_NODO 5 /* /NODOTFILES */
-#define GREP_NOLI 6 /* /NOLIST */
-#define GREP_NOMA 7 /* /INVERT = /NOMATCH */
-#define GREP_NOPA 8 /* /NOPAGE */
-#define GREP_NUMS 9 /* /LINENUMBERS */
-#define GREP_PAGE 10 /* /PAGE */
-#define GREP_RECU 11 /* /RECURSIVE */
-#define GREP_TYPE 12 /* /TYPE: */
-#define GREP_OUTP 13 /* /OUTPUTFILE: */
-
-static struct keytab greptab[] = {
- { "/count", GREP_COUN, CM_ARG },
- { "/dotfiles", GREP_DOTF, 0 },
- { "/linenumbers", GREP_NUMS, 0 },
- { "/nameonly", GREP_NAME, 0 },
- { "/nobackupfiles",GREP_NOBK, 0 },
- { "/nocase", GREP_CASE, 0 },
- { "/nodotfiles", GREP_NODO, 0 },
- { "/nolist", GREP_NOLI, 0 },
- { "/nomatch", GREP_NOMA, 0 },
- { "/nopage", GREP_NOPA, 0 },
- { "/output", GREP_OUTP, CM_ARG },
- { "/page", GREP_PAGE, 0 },
- { "/quiet", GREP_NOLI, CM_INV },
-#ifdef RECURSIVE
- { "/recursive", GREP_RECU, 0 },
-#endif /* RECURSIVE */
- { "/type", GREP_TYPE, CM_ARG },
- { "", 0, 0 }
-};
-static int ngreptab = sizeof(greptab)/sizeof(struct keytab)-1;
-
-int
-dogrep() {
- int match, x, y, fc, getval, mc = 0, count = 0, bigcount = 0;
- int fline = 0, sline = 0, wild = 0, len = 0;
- int xmode = -1, scan = 0;
- char c, name[CKMAXPATH+1], outfile[CKMAXPATH+1], *p, *s, *cv = NULL;
- FILE * fp = NULL;
-
- int /* Switch values and defaults */
- gr_coun = 0,
- gr_name = 0,
- gr_nobk = 0,
- gr_case = 1,
- gr_noli = 0,
- gr_noma = 0,
- gr_nums = 0,
- gr_page = xaskmore;
-
- struct FDB sw, fl;
-
- g_matchdot = matchdot; /* Save global matchdot setting */
- outfile[0] = NUL;
-
- if (ofp != stdout) { /* In case of previous interruption */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "String or pattern to search for, or switch",
- "", /* default */
- "", /* addtl string data */
- ngreptab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- greptab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring, /* xxstring */
- NULL,
- NULL
- );
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if ((cmresult.nresult != GREP_COUN) && !getval &&
- (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case GREP_COUN: {
- gr_coun++;
- if (getval) {
- if ((x = cmfld("Variable for result","",&s,NULL)) < 0)
- return(x);
- makestr(&cv,s);
- }
- break;
- }
- case GREP_CASE: gr_case=0; break;
- case GREP_NAME: gr_name++; gr_noli=0; break;
- case GREP_NOBK: gr_nobk++; break;
- case GREP_NOLI: gr_noli++; gr_name=0; gr_nums=0; break;
- case GREP_NOMA: gr_noma++; break;
- case GREP_NOPA: gr_page=0; break;
- case GREP_NUMS: gr_nums++; gr_noli=0; break;
- case GREP_PAGE: gr_page++; gr_noli=0; break;
- case GREP_NODO:
- matchdot = 0;
- break;
- case GREP_DOTF:
- matchdot = 1;
- break;
-#ifdef RECURSIVE
- case GREP_RECU:
- recursive = 1;
- break;
-#endif /* RECURSIVE */
- case GREP_TYPE: {
- extern struct keytab txtbin[];
- if ((x = cmkey(txtbin,3,"","",xxstring)) < 0)
- return(x);
- if (x == 2) { /* ALL */
- xmode = -1;
- } else { /* TEXT or BINARY only */
- xmode = x;
- scan = 1;
- }
- break;
- }
- case GREP_OUTP: /* Send output to file */
- if ((x = cmofi("File for GREP'd lines","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(outfile,s,CKMAXPATH);
- break;
- }
- }
- if (outfile[0]) {
- ofp = fopen(outfile,"w"); /* Open output file */
- if (!ofp) {
- printf("?Can't open output file %s: %s\n",outfile,ck_errstr());
- ofp = stdout;
- return(-9);
- }
- gr_page = 0;
- }
- s = cmresult.sresult;
- s = brstrip(s); /* Strip braces from pattern */
- if (!*s) {
- printf("?Pattern required\n");
- return(-9);
- }
- ckstrncpy(tmpbuf,s,TMPBUFSIZ); /* Save pattern */
- if ((x = cmifi("File(s) to search","",&s,&wild,xxstring)) < 0) {
- if (x == -3) {
- printf("?File specification required\n");
- x = -9;
- }
- return(x);
- }
- s = brstrip(s); /* Strip braces from filename */
-#ifndef ZXREWIND
- ckstrncpy(line,s,LINBUFSIZ);
-#endif /* ZXREWIND */
- if ((y = cmcfm()) < 0)
- return(y);
-
- if (gr_page > -1)
- xaskmore = gr_page; /* Paging... */
-
- p = tmpbuf; /* Point to pattern */
-#ifdef COMMENT
-/* Now this is done in ckmatch */
- if (*p == '^') { /* '^' anchors pattern to beginning */
- p++;
- } else if (*p != '*') { /* Otherwise prepend implied '*' */
- tmpbuf[0] = '*';
- p = tmpbuf;
- }
- x = strlen(p); /* Get length of result */
- if (x > 0 && x < TMPBUFSIZ) { /* '$' at end anchors pattern to end */
- if (p[x-1] == '$') {
- p[x-1] = NUL;
- } else if (p[x-1] != '*') {
- p[x] = '*';
- p[x+1] = NUL;
- }
- }
-#endif /* COMMENT */
- debug(F111,"grep pat",p,x);
-
-#ifdef ZXREWIND
- fc = zxrewind(); /* Rewind the file list */
-#else
- {
- int flags = ZX_FILONLY; /* Expand file list */
- if (matchdot) flags |= ZX_MATCHDOT;
- if (recursive) flags |= ZX_RECURSE;
- fc = nzxpand(line,flags);
- }
-#endif /* ZXREWIND */
-#ifdef UNIX
- sh_sort(mtchs,NULL,fc,0,0,filecase);
-#endif /* UNIX */
-
- debug(F101,"grep cmd_rows","",cmd_rows);
- debug(F101,"grep cmd_cols","",cmd_cols);
-
- while (1) { /* Loop for each file */
- znext(name); /* Get next file */
- if (!name[0]) /* No more, done */
- break;
- if (gr_nobk) /* Skipping backup files? */
- if (ckmatch("*.~[1-9]*~",name,1,1)) /* Backup file? */
- continue; /* Yes, skip */
- if (scan) { /* /TYPE: given? */
- switch (scanfile(name,&y,nscanfile)) { /* Yes, scan the file */
- case FT_BIN:
- if (xmode != 1)
- continue;
- break;
- case FT_TEXT:
- case FT_7BIT:
- case FT_8BIT:
-#ifdef UNICODE
- case FT_UTF8:
- case FT_UCS2:
-#endif /* UNICODE */
- if (xmode != 0)
- continue;
- }
- }
- fp = fopen(name,"r"); /* Open */
- if (!fp) /* Can't */
- continue; /* Skip */
- count = 0; /* Match count, this file */
- fline = 0; /* Line count, this file */
- while (1) { /* Loop for each line */
- if (fgets(line,LINBUFSIZ,fp) == NULL) { /* Get next line */
- fclose(fp);
- fp = NULL;
- debug(F100,"GREP EOF","",0);
- break;
- }
- fline++; /* Count this line */
- line[LINBUFSIZ] = NUL; /* Make sure it's terminated */
- debug(F111,"GREP",line,fline);
- len = (int)strlen(line); /* Get length */
- while (len > 0 && (line[len-1] == '\n' || line[len-1] == '\r'))
- line[--len] = NUL; /* Chop off terminators */
- match = ckmatch(p,line,gr_case,1+4); /* Match against pattern */
- if (gr_noma) /* Invert match sense if requested */
- match = !match;
- if (match) { /* Have a matching line */
- mc++; /* Total match count */
- count++; /* Match count this file */
- if (gr_name) { /* Don't care how many lines match */
- fclose(fp); /* Close the file */
- fp = NULL; /* and quit the line-reading loop. */
- break;
- }
- if (gr_coun || gr_noli) /* Not listing each line */
- continue; /* so don't print anything now. */
- if (wild) { /* If searching multiple files */
- fprintf(ofp,"%s:",name); /* print filename. */
- len += (int)strlen(name) + 1;
- }
- if (gr_nums) { /* If line numbers wanted */
- char nbuf[32];
- len += ckmakmsg(nbuf,32,ckitoa(fline),":",NULL,NULL);
- fprintf(ofp,"%s",nbuf);
- }
- if (cmd_rows > 0 && cmd_cols > 0)
- sline += (len / cmd_cols) + 1;
- fprintf(ofp,"%s\n",line); /* Print the line. */
- if (sline > cmd_rows - 3) {
- if (!askmore()) goto xgrep; else sline = 0;
- }
- }
- }
- if (!gr_noli) { /* If not not listing... */
- x = 0;
- if (gr_coun) { /* Show match count only */
- fprintf(ofp,"%s:%d\n",name,count);
- x++;
- } else if (gr_name && count > 0) { /* Show name only */
- fprintf(ofp,"%s\n",name);
- x++;
- }
- if (x > 0) {
- if (++sline > cmd_rows - 3) {
- if (!askmore()) goto xgrep; else sline = 0;
- }
- }
- }
- bigcount += count; /* Overall count */
- }
- xgrep:
-#ifndef NOSPL
- if (gr_coun && cv) { /* /COUNT:blah */
- addmac(cv,ckitoa(bigcount)); /* set the variable */
- makestr(&cv,NULL); /* free this */
- }
-#endif /* NOSPL */
- if (fp) fclose(fp); /* close input file if still open */
- if (ofp != stdout) { /* Close any output file */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- return(success = mc ? 1 : 0);
-}
-
-/* System-independent directory */
-
-static char ** dirlist = NULL;
-static int ndirlist = 0;
-
-static VOID
-freedirlist() {
- if (dirlist) {
- int i;
- for (i = 0; i < ndirlist; i++) {
- if (dirlist[i])
- free(dirlist[i]);
- }
- free((char *)dirlist);
- dirlist = NULL;
- }
- ndirlist = 0;
-}
-
-static struct keytab dirswtab[] = { /* DIRECTORY command switches */
- { "/after", DIR_AFT, CM_ARG },
- { "/all", DIR_ALL, 0 },
-#ifndef NOSPL
- { "/array", DIR_ARR, CM_ARG },
-#endif /* NOSPL */
- { "/ascending", DIR_ASC, 0 },
- { "/backup", DIR_BUP, 0 },
- { "/before", DIR_BEF, CM_ARG },
- { "/brief", DIR_BRF, 0 },
- { "/descending", DIR_DSC, CM_INV },
- { "/directories", DIR_DIR, 0 },
- { "/dotfiles", DIR_DOT, 0 },
- { "/englishdate", DIR_DAT, 0 },
- { "/except", DIR_EXC, CM_ARG },
- { "/files", DIR_FIL, 0 },
- { "/heading", DIR_HDG, 0 },
- { "/isodate", DIR_ISO, 0 },
- { "/larger-than", DIR_LAR, CM_ARG },
-#ifdef CKSYMLINK
- { "/followlinks", DIR_LNK, 0 },
-#endif /* CKSYMLINK */
- { "/message", DIR_MSG, CM_ARG },
- { "/nobackupfiles",DIR_NOB, 0 },
- { "/nodotfiles", DIR_NOD, 0 },
-#ifdef CKSYMLINK
- { "/nofollowlinks",DIR_NLK, 0 },
-#endif /* CKSYMLINK */
- { "/noheading", DIR_NOH, 0 },
- { "/nomessage", DIR_NOM, 0 },
-#ifdef CK_TTGWSIZ
- { "/nopage", DIR_NOP, 0 },
-#endif /* CK_TTGWSIZ */
-#ifdef RECURSIVE
- { "/norecursive", DIR_NOR, 0 },
-#else
-#ifdef VMS
- { "/norecursive", DIR_NOR, 0 },
-#else
-#ifdef datageneral
- { "/norecursive", DIR_NOR, 0 },
-#endif /* datageneral */
-#endif /* VMS */
-#endif /* RECURSIVE */
- { "/nosort", DIR_NOS, 0 },
- { "/not-after", DIR_NAF, CM_ARG },
- { "/not-before", DIR_NBF, CM_ARG },
- { "/not-since", DIR_NAF, CM_INV|CM_ARG },
- { "/noxfermode", DIR_NOT, 0 },
- { "/output", DIR_OUT, CM_ARG },
-#ifdef CK_TTGWSIZ
- { "/page", DIR_PAG, 0 },
-#endif /* CK_TTGWSIZ */
-#ifdef RECURSIVE
- { "/recursive", DIR_REC, 0 },
-#else
-#ifdef VMS
- { "/recursive", DIR_REC, 0 },
-#else
-#ifdef datageneral
- { "/recursive", DIR_REC, 0 },
-#endif /* datageneral */
-#endif /* VMS */
-#endif /* RECURSIVE */
- { "/reverse", DIR_DSC, 0 },
- { "/since", DIR_AFT, CM_ARG|CM_INV },
- { "/smaller-than",DIR_SMA, CM_ARG },
- { "/sort", DIR_SRT, CM_ARG },
- { "/summary", DIR_SUM, 0 },
- { "/type", DIR_BIN, CM_ARG },
- { "/xfermode", DIR_TYP, 0 },
- { "/verbose", DIR_VRB, 0 },
- { "",0,0 }
-};
-static int ndirswtab = (sizeof(dirswtab) / sizeof(struct keytab)) - 1;
-
-static struct keytab dirsort[] = { /* DIRECTORY /SORT: options */
- { "date", DIRS_DT, 0 },
- { "name", DIRS_NM, 0 },
- { "size", DIRS_SZ, 0 }
-};
-static int ndirsort = (sizeof(dirsort) / sizeof(struct keytab));
-
-static int dir_date = -1; /* Option defaults (-1 means none) */
-static int dir_page = -1;
-static int dir_verb = 1;
-static int dir_msg = -1;
-#ifdef VMS
-static int dir_sort = -1; /* Names are already sorted in VMS */
-static int dir_rvrs = -1;
-#else
-static int dir_sort = 1; /* Sort by default */
-static int dir_rvrs = 0; /* Not in reverse */
-#endif /* VMS */
-static int dir_skey = DIRS_NM; /* By name */
-#ifdef RECURSIVE
-static int dir_recu = -1;
-#endif /* RECURSIVE */
-static int dir_mode = -1;
-static int dir_show = -1; /* Show all files by default */
-int dir_dots = -1; /* Except dot files */
-int dir_back = 1;
-int dir_head = 0;
-static char * dirmsg = NULL;
-static int dirmsglen = 0;
-
-#ifndef NOSHOW
-VOID
-showdiropts() {
- int x = 0;
- extern int optlines;
- prtopt(&optlines,"DIRECTORY");
- if (dir_show > 0) {
- prtopt(&optlines,(dir_show == 1) ? "/FILES" :
- ((dir_show == 2) ? "/DIRECTORIES" : "/ALL"));
- x++;
- } else {
- prtopt(&optlines,"/ALL");
- x++;
- }
- if (dir_verb > -1) {
- prtopt(&optlines,dir_verb ? "/VERBOSE" : "/BRIEF");
- x++;
- }
- if (dir_page > -1) {
- prtopt(&optlines,dir_page ? "/PAGE" : "/NOPAGE");
- x++;
- }
- if (dir_date > -1) {
- prtopt(&optlines,dir_date ? "/ENGLISHDATE" : "/ISODATE");
- x++;
- }
- if (dir_dots > -1) {
- prtopt(&optlines,dir_dots ? "/DOTFILES" : "/NODOTFILES");
- x++;
- }
- if (dir_back > -1) {
- prtopt(&optlines,dir_back ? "/BACKUP" : "/NOBACKUP");
- x++;
- }
- if (dir_head > -1) {
- prtopt(&optlines,dir_head ? "/HEADING" : "/NOHEADING");
- x++;
- }
-#ifdef RECURSIVE
- if (dir_recu > -1) {
- prtopt(&optlines,dir_recu ? "/RECURSIVE" : "/NORECURSIVE");
- x++;
- }
-#endif /* RECURSIVE */
- if (dir_mode > -1) {
- prtopt(&optlines,dir_mode ? "/XFERMODE" : "/NOXFERMODE");
- x++;
- }
- if (dir_sort == 0) {
- x++;
- prtopt(&optlines,"/NOSORT ");
- } else if (dir_sort > 0) {
- x++;
- if (dir_skey == DIRS_NM) s = "/SORT:NAME";
- else if (dir_skey == DIRS_SZ) s = "/SORT:SIZE";
- else if (dir_skey == DIRS_DT) s = "/SORT:DATE";
- prtopt(&optlines,s);
- }
- if (dir_rvrs > -1) {
- prtopt(&optlines,dir_rvrs ? "/REVERSE" : "/ASCENDING");
- x++;
- }
- if (dir_msg > -1) {
- if (dir_msg == 0) {
- prtopt(&optlines,"/NOMESSAGE");
- } else {
- ckmakmsg(tmpbuf,TMPBUFSIZ,"/MESSAGE:{",dirmsg,"}",NULL);
- prtopt(&optlines,tmpbuf);
- }
- x++;
- }
- if (!x) prtopt(&optlines,"(no options set)");
- prtopt(&optlines,"");
-}
-#endif /* NOSHOW */
-
-int
-setdiropts() { /* Set DIRECTORY option defaults */
- int xb = -1, xv = -1, xp = -1, xd = -1, xh = -1, xf = -1;
- int xk = -1, xr = -1, xs = -1, xx = -1, xm = -1, xa = -1, xg = -1;
- int getval;
- char c;
- while (1) {
- if ((y = cmswi(dirswtab,ndirswtab,"Switch","",xxstring)) < 0) {
- if (y == -3)
- break;
- else
- return(y);
- }
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (y) {
- case DIR_BRF: xv = 0; break;
- case DIR_VRB: xv = 1; break;
- case DIR_PAG: xp = 1; break;
- case DIR_NOP: xp = 0; break;
- case DIR_ISO: xd = 0; break;
- case DIR_DAT: xd = 1; break;
- case DIR_HDG: xh = 1; break;
- case DIR_NOH: xh = 0; break;
- case DIR_DOT: xf = 1; break;
- case DIR_NOD: xf = 0; break;
- case DIR_ALL: xa = 3; break;
- case DIR_DIR: xa = 2; break;
- case DIR_FIL: xa = 1; break;
- case DIR_SRT:
- x = DIRS_NM;
- if (getval)
- if ((x = cmkey(dirsort,ndirsort,"Sort key","name",xxstring)) < 0)
- return(x);
- xk = x;
- xs = 1;
- break;
- case DIR_NOS: xs = 0; break;
- case DIR_ASC: xx = 0; break;
- case DIR_DSC: xx = 1; break;
- case DIR_REC: xr = 1; break;
- case DIR_NOR: xr = 0; break;
- case DIR_TYP: xm = 1; break;
- case DIR_NOT: xm = 0; break;
- case DIR_BUP: xb = 1; break;
- case DIR_NOB: xb = 0; break;
- case DIR_NOM: xg = 0; break;
- case DIR_MSG:
- if (getval)
- if ((x = cmfld("Message to append to each line",
- "",
- &s,
- xxstring
- )) < 0)
- return(x);
- xg = 1;
- ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
- break;
- default:
- printf("?This option can not be set\n");
- return(-9);
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (xv > -1) dir_verb = xv; /* Confirmed, save defaults */
- if (xp > -1) dir_page = xp;
- if (xd > -1) dir_date = xd;
- if (xh > -1) dir_head = xh;
- if (xs > -1) dir_sort = xs;
- if (xk > -1) dir_skey = xk;
- if (xx > -1) dir_rvrs = xx;
- if (xf > -1) dir_dots = xf;
- if (xa > -1) dir_show = xa;
- if (xm > -1) dir_mode = xm;
- if (xb > -1) dir_back = xb;
-#ifdef RECURSIVE
- if (xr > -1) dir_recu = xr;
-#endif /* RECURSIVE */
- if (xg > -1) dir_msg = xg;
- if (xg > 0)
- makestr(&dirmsg,tmpbuf);
- return(success = 1);
-}
-
-int
-domydir() { /* Internal DIRECTORY command */
- extern char *months[];
-#ifdef VMS
- _PROTOTYP( char * zrelname, (char *,char *) );
- char * cdp = NULL;
-#endif /* VMS */
-
- char name[CKMAXPATH+1], outfile[CKMAXPATH+1], *p = NULL, c = NUL;
- char linebuf[CKMAXPATH+256];
- char * mstr = NULL, * dstr = NULL, * s2 = NULL;
- long len = 0, ndirs = 0, nfiles = 0, nbytes = 0, nmatches = 0;
- int verbose = 0, wild = 0, page = 0, n = 0, engdate = 0, summary = 0;
- int heading = 0, xsort = 0, reverse = 0, sortby = 0, msg = 0;
- int k, i = 0, x = 0, nx = 0, skey = 0, dlen = 0, itsadir = 0;
- int show = 3, xfermod = 0, backup = 1, rc = 0, getval = 0;
- int fs = 0;
- int multiple = 0;
- int cmifn1 = 1, cmifn2 = 0;
- long minsize = -1L, maxsize = -1L;
- struct FDB sw, fi, fl;
- char dbuf[32], xbuf[32];
-
-#ifndef NOSPL
- char array = NUL;
- char ** ap = NULL;
-#endif /* NOSPL */
- char
- * dir_aft = NULL,
- * dir_bef = NULL,
- * dir_naf = NULL,
- * dir_nbf = NULL,
- * dir_exc = NULL;
- char * xlist[16];
-
- g_matchdot = matchdot; /* Save global matchdot setting */
- nolinks = 2; /* (it should already be 2) */
- outfile[0] = NUL; /* No output file yet */
-
- if (ofp != stdout) { /* In case of previous interruption */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- for (i = 0; i < 16; i++) xlist[i] = NULL;
-
- name[0] = NUL;
- freedirlist(); /* In case not freed last time */
- page = dir_page > -1 ? dir_page : xaskmore; /* Set option defaults */
- engdate = dir_date > -1 ? dir_date : 0;
- verbose = dir_verb > -1 ? dir_verb : 1;
- heading = dir_head > -1 ? dir_head : 0;
- xsort = dir_sort > -1 ? dir_sort : 0;
- sortby = dir_skey > -1 ? dir_skey : 0;
- reverse = dir_rvrs > -1 ? dir_rvrs : 0;
- msg = dir_msg > -1 ? dir_msg : 0;
-#ifdef UNIXOROSK
- if (dir_dots > -1) matchdot = dir_dots;
-#endif /* UNIXOROSK */
- xfermod = dir_mode > -1 ? dir_mode : 0;
- backup = dir_back > -1 ? dir_back : 1;
-#ifdef RECURSIVE
- recursive = dir_recu > -1 ? dir_recu : 0;
-#endif /* RECURSIVE */
- show = dir_show > -1 ? dir_show : 3;
-
-#ifdef CK_TTGWSIZ
-#ifdef OS2
- ttgcwsz(); /* Screen length for more-prompting */
-#else /* OS2 */
- /* Check whether window size changed */
- if (ttgwsiz() > 0) {
- if (tt_rows > 0 && tt_cols > 0) {
- cmd_rows = tt_rows;
- cmd_cols = tt_cols;
- }
- }
-#endif /* OS2 */
-#endif /* CK_TTGWSIZ */
-
- diractive = 1;
- cmifn1 = nolinks | 1; /* 1 = files or directories */
- cmifn2 = 0; /* 0 = not directories only */
-
- again:
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Enter or Return to confirm the command, or\n\
- file specification, or switch",
- "", /* default */
- "", /* addtl string data */
- ndirswtab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- dirswtab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
- cmfdbi(&fi, /* 2nd FDB - filespec to match */
- _CMIFI, /* fcode */
- "File specification", /* hlpmsg */
-#ifdef datageneral
- "+", /* Default filespec is wildcard */
-#else /* that matches all files... */
-#ifdef VMS
- "*.*",
-#else
- "*",
-#endif /* VMS */
-#endif /* datageneral */
- "", /* addtl string data */
- cmifn1,
- cmifn2, /* 1 = only dirs; 0 files or dirs */
- xxstring,
- NULL,
- &fl
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- debug(F101,"domydir cmfdb","",x);
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (k = cmresult.nresult) {
- case DIR_BRF: verbose = 0; break;
- case DIR_VRB: verbose = 1; break;
-#ifdef CK_TTGWSIZ
- case DIR_PAG: page = 1; break;
- case DIR_NOP: page = 0; break;
-#endif /* CK_TTGWSIZ */
- case DIR_ISO: engdate = 0; break;
- case DIR_DAT: engdate = 1; break;
- case DIR_HDG: heading = 1; break;
- case DIR_NOH: heading = 0; break;
-#ifdef UNIXOROSK
- case DIR_DOT: matchdot = 1; break;
- case DIR_NOD: matchdot = 0; break;
-#endif /* UNIXOROSK */
- case DIR_ALL:
- show = 3;
- cmifn1 |= 1;
- cmifn2 = 0;
- goto again;
- case DIR_DIR:
- show = 2;
- cmifn1 |= 1;
- cmifn2 = 1;
- goto again;
- case DIR_FIL:
- show = 1;
- cmifn1 &= ~(1);
- cmifn2 = 0;
- goto again;
- case DIR_SRT:
- x = DIRS_NM;
- if (c == ':' || c == '=')
- if ((x = cmkey(dirsort,ndirsort,"Sort key","name",xxstring)) < 0)
- return(x);
- xsort = 1;
- sortby = x;
- break;
-
- case DIR_BUP: backup = 1; fs++; break;
- case DIR_NOB: backup = 0; fs++; break;
-
- case DIR_NOS: xsort = 0; break;
- case DIR_ASC: reverse = 0; break;
- case DIR_DSC: reverse = 1; break;
-#ifdef RECURSIVE
- case DIR_REC: recursive = 1; diractive = 1; break;
- case DIR_NOR: recursive = 0; diractive = 0; break;
-#endif /* RECURSIVE */
- case DIR_TYP: xfermod = 1; break;
- case DIR_NOT: xfermod = 0; break;
-
-#ifdef CKSYMLINK
- case DIR_LNK: /* Follow links */
- nolinks = 0;
- cmifn1 &= ~(2);
- goto again;
- case DIR_NLK: /* Don't follow links */
- nolinks = 2;
- cmifn1 &= ~(2);
- goto again;
-#endif /* CKSYMLINK */
-
- case DIR_NOM: msg = 0; break;
- case DIR_MSG:
- if (c == ':' || c == '=')
- if ((x = cmfld("Message to append to each line",
- "",
- &s,
- xxstring
- )) < 0)
- return(x);
- msg = 1;
- ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
- break;
-
- case DIR_SMA:
- case DIR_LAR:
- if (!getval) break;
- if ((x = cmnum("File size in bytes","0",10,&y,xxstring)) < 0)
- return(x);
- fs++;
- show = 1;
- switch (cmresult.nresult) {
- case DIR_SMA: minsize = y; break;
- case DIR_LAR: maxsize = y; break;
- }
- break;
-
-#ifndef NOSPL
- case DIR_ARR:
- if (c != ':' && c != '=') {
- printf("?Array name required\n");
- return(-9);
- }
- if ((x = cmfld("Array name (a single letter will do)",
- "",
- &s,
- NULL
- )) < 0) {
- if (x == -3) {
- printf("?Array name required\n");
- return(-9);
- } else
- return(x);
- }
- if (!*s) {
- printf("?Array name required\n");
- return(-9);
- }
- s2 = s;
- if (*s == CMDQ) s++;
- if (*s == '&') s++;
- if (!isalpha(*s)) {
- printf("?Bad array name - \"%s\"\n",s2);
- return(-9);
- }
- array = *s++;
- if (isupper(array)) array = tolower(array);
- if (*s && (*s != '[' || *(s+1) != ']')) {
- printf("?Bad array name - \"%s\"\n",s2);
- return(-9);
- }
- break;
-#endif /* NOSPL */
- case DIR_AFT:
- case DIR_BEF:
- case DIR_NAF:
- case DIR_NBF:
- if (!getval) break;
- if ((x = cmdate("File-time","",&s,0,xxstring)) < 0) {
- if (x == -3) {
- printf("?Date-time required\n");
- rc = -9;
- } else
- rc = x;
- goto xdomydir;
- }
- fs++;
- switch (k) {
- case DIR_AFT: makestr(&dir_aft,s); break;
- case DIR_BEF: makestr(&dir_bef,s); break;
- case DIR_NAF: makestr(&dir_naf,s); break;
- case DIR_NBF: makestr(&dir_nbf,s); break;
- }
- break;
- case DIR_EXC:
- if (!getval) break;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Pattern required\n");
- rc = -9;
- } else
- rc = x;
- goto xdomydir;
- }
- fs++;
- makestr(&dir_exc,s);
- break;
-
- case DIR_SUM:
- summary = 1; break;
-
- case DIR_BIN: {
- extern struct keytab txtbin[];
- extern int xfiletype;
- if (!getval) break;
- if ((x = cmkey(txtbin,3,"","all",xxstring)) < 0) {
- rc = x;
- goto xdomydir;
- }
- if (x == 2) {
- xfiletype = -1;
- } else {
- xfiletype = x;
- fs = 1;
- }
- break;
- }
- case DIR_OUT:
- if ((x = cmofi("File for directory listing","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(outfile,s,CKMAXPATH+1);
- break;
-
- default:
- printf("?Sorry, not implemented yet - \"%s\"\n", atmbuf);
- goto xdomydir;
- }
- }
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Safe copy of filespec */
-
-/* ^^^ START MULTIPLE */
-
- while (1) {
- x = cmfld("Another filespec or Enter","",&s,xxstring);
- if (x == -3)
- break;
- if (x < 0)
- return(x);
- ckstrncat(line,",",LINBUFSIZ);
- ckstrncat(line,s,LINBUFSIZ);
- multiple++;
- }
- ckmakmsg(tmpbuf,TMPBUFSIZ,"{",line,"}",NULL);
- ckstrncpy(line,tmpbuf,LINBUFSIZ);
- cmresult.nresult = 1;
- cmresult.fcode = _CMIFI;
-
-/* ^^^ END MULTIPLE */
-
- s = line;
-
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (cmresult.fcode != _CMIFI) { /* Nothing matched */
- char * m;
- if (*s == '/')
-#ifdef UNIXOROSK
- m = "does not match switch or name of accessible file";
-#else
-#ifdef OS2
- m = "does not match switch or name of accessible file";
-#else
- m = "no switches match";
-#endif /* OS2 */
-#endif /* UNIXOROSX */
- else
- m = "not found or not accessible";
- printf("\"%s\" - %s\n",s,m);
- rc = -9;
- goto xdomydir;
- }
- wild = cmresult.nresult; /* Wildcard was given? */
- debug(F111,"domydir cmifi2",s,wild);
-
- if (outfile[0]) {
- ofp = fopen(outfile,"w"); /* Open output file */
- if (!ofp) {
- printf("?Can't open output file %s: %s\n",outfile,ck_errstr());
- ofp = stdout;
- return(-9);
- }
- page = 0;
- }
-
-#ifdef OS2
- if (!wild) {
- if (zchki(s) == -2) { /* Found a directory */
- p = s + (int)strlen(s) - 1; /* Yes */
- if (*p == '\\' || *p == '/')
- strcat(s, "*");
- else if (*p == ':')
- strcat(s, "./*");
- else
- strcat(s, "/*");
- wild = 1; /* Now it's wild */
- }
- }
-#else
- if (!wild) if (isdir(s)) { /* Is it a directory? */
- p = s + (int)strlen(s) - 1; /* Yes */
-#ifdef VMS
- {
- /* Convert from FOO.DIR;1 to [x.FOO] if necessary */
- char buf[CKMAXPATH+1];
- debug(F000,"domydir directory 0",s,*p);
- if (cvtdir(s,buf,CKMAXPATH) > 0)
- ckstrncpy(line,buf,LINBUFSIZ);
- }
-#endif /* VMS */
- debug(F000,"domydir directory 1",s,*p);
-#ifdef VMS
- if (*p == ']' || *p == '>' || *p == ':')
- strcat(s, "*.*");
-#else
-#ifdef datageneral
- if (*p == ':')
- strcat(s, "+");
- else
- strcat(s, ":+");
-#else
-#ifdef STRATUS
- if (*p == '>')
- strcat(s, "*");
- else
- strcat(s, ">*");
-#endif /* STRATUS */
-#endif /* datageneral */
-#endif /* VMS */
- wild = 1; /* Now it's wild */
- debug(F000,"domydir directory 2",s,*p);
- }
-#endif /* OS2 */
-
-#ifdef ZXREWIND
-/* cmifi() already called nzxpand so we can just re-use the same list. */
- if (!multiple) {
- x = zxrewind(); /* Rewind the list */
- debug(F111,"domydir zxrewind",s,x);
- } else {
-#endif /* ZXREWIND */
- nzxopts = (show == ZX_DIRONLY) ? ZX_DIRONLY :
- (show == ZX_FILONLY ? ZX_FILONLY : 0);
- if (matchdot) nzxopts |= ZX_MATCHDOT;
- if (recursive) nzxopts |= ZX_RECURSE;
- x = nzxpand(s,nzxopts); /* Expand file list */
- debug(F111,"domydir nzxpand",s,x);
-#ifdef ZXREWIND
- }
-#endif /* ZXREWIND */
-
-#ifndef NOSPL
- if (array) {
- int n, xx;
- n = (x < 0) ? 0 : x;
- if ((xx = dclarray(array,n)) < 0) {
- printf("?Array declaration failure\n");
- rc = -9;
- goto xdomydir;
- }
- array = xx;
- ap = a_ptr[array];
- if (n < 1) {
- rc = 0;
- goto xdomydir;
- }
- } else
-#endif /* NOSPL */
- if (x < 1) {
-#ifdef CKROOT
- extern int ckrooterr;
- if (ckrooterr)
- printf("?Off limits: %s\n",s);
- else
-#endif /* CKROOT */
- if (x == 0 && isdir(s))
- printf("?Empty directory - \"%s\"\n", s);
- else
- printf("?%s %s match - \"%s\"\n",
- (x == 0) ? "No" : "Too many",
- (show == 2) ? "directories" : "files",
- s
- );
- rc = -9;
- goto xdomydir;
- }
- nx = x; /* Remember how many files */
-
- if (msg) {
- makestr(&dirmsg,tmpbuf);
- dirmsglen = strlen(tmpbuf);
- }
-
-#ifdef VMS
- cdp = zgtdir(); /* Get current directory */
- debug(F110,"domydir VMS zgtdir",cdp,0);
-#endif /* VMS */
-
- if (xsort && verbose) { /* If sorting, allocate space */
- if (!(dirlist = (char **) malloc((x + 1) * sizeof(char **)))) {
- if (!quiet) {
- printf("* Warning: Failure to allocate memory for sorting.\n");
- printf("* Will proceed without sorting...\n");
- }
- xsort = 0;
- }
- debug(F101,"domydir sort malloc","",xsort);
- }
-
- /* Display the listing */
-
-#ifndef NOSPL
- if (array) /* Storing instead of printing */
- heading = 0;
-#endif /* NOSPL */
-
- if (heading) { /* If /HEADING print heading */
- zfnqfp(s,TMPBUFSIZ,tmpbuf);
- fprintf(ofp,"\nDirectory of %s\n\n",tmpbuf);
- n += 3;
- }
- if (page > -1) /* Paging */
- xaskmore = page;
-
- if (!verbose) { /* /BRIEF */
- if (outfile[0]) { /* To file */
- int k = 0;
- znext(name);
- while (name[0]) { /* One line per file */
- k++;
- if (fs) if (fileselect(name,
- dir_aft,dir_bef,dir_naf,dir_nbf,
- minsize,maxsize,!backup,16,xlist) < 1) {
- znext(name);
- continue;
- }
- fprintf(ofp,"%s\n",name);
- znext(name);
- }
- if (heading)
- fprintf(ofp,"Files: %d\n\n",k);
- rc = 1;
- goto xdomydir;
- } else {
- rc = filhelp(x,"","",n,0);
- if (rc < 0)
- goto xdomydir;
- if (heading && rc > 0)
- fprintf(ofp,"Files: %d\n\n",x); /* (Might scroll a line or 2) */
- rc = 1;
- goto xdomydir;
- }
- }
- ndirs = nfiles = nbytes = 0L; /* Initialize counters */
-
- if (dir_exc) /* Have exception list? */
- makelist(dir_exc,xlist,16); /* Yes, convert to array */
-
- diractive = 1;
- znext(name); /* Get next file */
- while (name[0]) { /* Loop for each file */
- if (fs) if (fileselect(name,
- dir_aft,dir_bef,dir_naf,dir_nbf,
- minsize,maxsize,!backup,16,xlist) < 1) {
- znext(name);
- continue;
- }
- len = zgetfs(name); /* Get file length */
- debug(F111,"domydir zgetfs",name,len);
-#ifdef VMSORUNIX
- itsadir = zgfs_dir; /* See if it's a directory */
-#else
- itsadir = (len == -2 || isdir(name));
-#endif /* VMSOUNIX */
- debug(F111,"domydir itsadir",name,itsadir);
- if ((itsadir && (show == 1)) || (!itsadir && (show == 2))) {
- znext(name);
- continue;
- }
- /* Get here when we know we have selected this file */
-
- nmatches ++;
- if (itsadir) { /* Accumulate totals for summary */
- ndirs++;
- } else {
- nfiles++;
- nbytes += len;
- }
- if (summary) { /* Summary only, no detail */
- znext(name);
- continue;
- }
-#ifndef NOSPL
- if (array) {
- debug(F111,"domydir array",name,nfiles);
- if (ap)
- makestr(&(ap[nmatches]),name);
- znext(name);
- continue;
- }
-#endif /* NOSPL */
-
-/*
- NOTE: The sprintf's in this routine should be safe. They involve
- permission strings, date/time strings, and filenames, all of which have
- known maximum lengths; none of these items is input from users. The
- destination buffers are large enough to hold maximum sizes for any and
- all items.
-*/
- dstr = zfcdat(name); /* Get modification date/time */
- debug(F111,"domydir zcfdat",dstr,0);
- if (!dstr) dstr = "";
- {
-/*
- Note that zfcdat() always returns "" or yyyymmdd hh:mm:ss, so any warnings
- about possible out-of-bounds dstr[] array refs do not apply. This block of
- code is to stifle the warnings and also allows for any out-of-spec
- zfcdat() implementations.
-*/
- int x;
- char * p = "00000000 00:00:00";
- x = ckstrncpy(xbuf,dstr,32);
- if (x < 17) ckstrncpy(&xbuf[x],p+x,32-x);
- dstr = xbuf;
- }
- if (engdate) { /* English date requested? */
- short month, day, year, hour, minute, seconds;
- month = (dstr[4]-48)*10 + (dstr[5]-48);
- mstr = (month > 0 && month <= 12) ? months[month-1] : "xxx";
- day = (dstr[6]-48)*10 + (dstr[7]-48);
- year = (((dstr[0]-48)*10 +
- (dstr[1]-48))*10 +
- (dstr[2]-48))*10 +
- (dstr[3]-48);
- hour = (dstr[9]-48)*10 + (dstr[10]-48);
- minute = (dstr[12]-48)*10 + (dstr[13]-48);
- seconds = (dstr[15]-48)*10 + (dstr[16]-48);
- sprintf(dbuf, /* SAFE */
- "%2d-%s-%4d %02d:%02d:%02d",
- day,mstr,year,hour,minute,seconds
- );
- dstr = dbuf;
- } else { /* ISO date */
- dbuf[0] = dstr[0]; /* yyyy */
- dbuf[1] = dstr[1];
- dbuf[2] = dstr[2];
- dbuf[3] = dstr[3];
- dbuf[4] = '-';
- dbuf[5] = dstr[4]; /* mm (numeric) */
- dbuf[6] = dstr[5];
- dbuf[7] = '-';
- dbuf[8] = dstr[6]; /* dd */
- dbuf[9] = dstr[7];
- strcpy(dbuf+10,dstr+8); /* hh:mm:ss */
- dstr = dbuf;
- }
- dlen = strlen(dbuf); /* Length of date */
- name[CKMAXPATH] = NUL;
-#ifdef CK_PERMS
-#ifdef VMSORUNIX
- p = ziperm(name); /* Get permissions */
- debug(F110,"ziperm perms",p,0);
-#else
- p = zgperm(name);
- debug(F110,"zgperm perms",p,0);
-#endif /* VMSORUNIX */
-#else
- p = NULL;
- debug(F110,"NULL perms",p,0);
-#endif /* CK_PERMS */
-
-#ifdef VMS
- /* Get relative name to save space -- VMS fullnames are long... */
- ckstrncpy(name,zrelname(name,cdp),CKMAXPATH);
-#endif /* VMS */
-
- if (itsadir && len < 0) { /* Directory */
-#ifdef VMS
- sprintf(linebuf,"%-22s%-10s %s %s",p,"<DIR>",dstr,name);
-#else
- if (p)
- sprintf(linebuf,"%10s%-10s %s %s",p,"<DIR>",dstr,name);
- else
- sprintf(linebuf,"%-10s %s %s", "<DIR>", dstr, name);
-#endif /* VMS */
- } else { /* Regular file */
-#ifdef VMS
- sprintf(linebuf,"%-22s%10ld %s %s", p, len, dstr, name);
-#else
- if (p)
- sprintf(linebuf,"%10s%10ld %s %s", p, len, dstr, name);
- else
- sprintf(linebuf,"%10ld %s %s", len, dstr, name);
-#endif /* VMS */
- }
-#ifdef UNIX
-#ifdef CKSYMLINK
- if (zgfs_link) {
- int n, m;
- extern char linkname[];
- n = strlen(linebuf);
- m = strlen(linkname) + n;
- if (m < CKMAXPATH + 58)
- strcpy(linebuf+n, " -> "); /* safe (checked) */
- if (m + 4 < CKMAXPATH - 58)
- strcpy(linebuf+n+4, linkname); /* safe (checked) */
- } else
-#endif /* CKSYMLINK */
-#endif /* UNIX */
- if (xfermod) { /* Show transfer mode */
- int i, x, y;
- char * s = "";
- y = -1;
- x = scanfile(name,&y,nscanfile);
- switch (x) {
- case FT_TEXT: s = " (T)"; break;
- case FT_7BIT: s = " (T)(7BIT)"; break;
- case FT_8BIT: s = " (T)(8BIT)"; break;
-#ifdef UNICODE
- case FT_UTF8: s = " (T)(UTF8)"; break;
- case FT_UCS2:
- s = y ? " (T)(UCS2LE)" : " (T)(UCS2BE)";
- break;
-#endif /* UNICODE */
- case FT_BIN: s = " (B)"; break;
- }
- if (!*s) {
- s = binary ? " (B)" : " (T)";
- }
- if (*s) {
- int n;
- n = strlen(linebuf);
- if (n + 4 < CKMAXPATH - 58)
- strcpy(linebuf+n, s); /* safe (checked) */
- }
- }
- if (msg && dirmsg) {
- int n;
- n = strlen(linebuf);
- if (n + dirmsglen + 2 < CKMAXPATH)
- sprintf((char *)(linebuf+n)," %s", dirmsg); /* SAFE */
- }
- if (xsort) { /* Sorting - save line */
- i = strlen(linebuf);
- if ((ndirlist >= nx) ||
- !(dirlist[ndirlist] = (char *)malloc(i+1))) {
- printf("?Memory allocation error - try /NOSORT\n");
- rc = -9;
- goto xdomydir;
- }
- strcpy(dirlist[ndirlist],linebuf); /* safe */
- ndirlist++;
- }
- znext(name); /* Peek ahead to next file */
-
- if (!xsort) {
- fprintf(ofp,"%s\n",linebuf);
- if (page && (name[0] || heading)) { /* If /PAGE */
- if (cmd_cols > 0) {
- int x = strlen(linebuf);
- int y;
- y = (x % cmd_cols) ? 1 : 0;
- n += x / cmd_cols + y;
- } else {
- n++;
- }
-#ifdef CK_TTGWSIZ
- if (n > (cmd_rows - 3)) { /* Do more-prompting */
- if (!askmore()) {
- rc = 0;
- goto xdomydir;
- } else
- n = 0;
- }
-#endif /* CK_TTGWSIZ */
- }
- }
- }
-#ifndef NOSPL
- if (array) {
- if (ap)
- makestr(&(ap[0]),ckitoa(nmatches));
- rc = 1;
- goto xdomydir;
- }
-#endif /* NOSPL */
- if (xsort) {
- skey = 0;
-#ifdef VMS
- switch (sortby) {
- case DIRS_NM: skey = dlen + 35; break;
- case DIRS_DT: skey = 33; break;
- case DIRS_SZ: skey = 21;
- }
-#else
- if (p) {
- switch (sortby) {
- case DIRS_NM: skey = dlen + 24; break;
- case DIRS_DT: skey = 22; break;
- case DIRS_SZ: skey = 10;
- }
- } else {
- switch (sortby) {
- case DIRS_NM: skey = dlen + 14; break;
- case DIRS_DT: skey = 12; break;
- case DIRS_SZ: skey = 0;
- }
- }
-#endif /* VMS */
- sh_sort(dirlist,NULL,ndirlist,skey,reverse,filecase);
- for (i = 0; i < ndirlist; i++) {
- fprintf(ofp,"%s\n",dirlist[i]);
- if (page && (i < ndirlist -1 || heading)) { /* If /PAGE */
- if (cmd_cols > 0) {
- int x = strlen(dirlist[i]);
- int y;
- y = (x % cmd_cols) ? 1 : 0;
- n += ((int)strlen(dirlist[i]) / cmd_cols) + y;
- } else {
- n++;
- }
-#ifdef CK_TTGWSIZ
- if (n > (cmd_rows - 3)) { /* Do more-prompting */
- if (!askmore()) {
- rc = 0;
- goto xdomydir;
- } else
- n = 0;
- }
-#endif /* CK_TTGWSIZ */
- }
- }
- }
-
- if (heading || summary) {
-#ifdef CKFLOAT
- CKFLOAT gm;
-#endif /* CKFLOAT */
- fprintf(ofp,"\n%ld director%s, %ld file%s, %ld byte%s",
- ndirs,
- (ndirs == 1) ? "y" : "ies",
- nfiles,
- (nfiles == 1) ? "" : "s",
- nbytes,
- (nbytes == 1) ? "" : "s"
- );
-#ifdef CKFLOAT
- gm = ((CKFLOAT) nbytes ) / 1000000.0;
- if (gm > 1000.0)
- fprintf(ofp," (%0.2fGB)",(gm / 1000.0));
- else if (gm >= 0.01)
- fprintf(ofp," (%0.2fMB)",gm);
-#endif /* CKFLOAD */
- fprintf(ofp,"\n\n");
- }
- xdomydir:
- if (g_matchdot > -1) {
- matchdot = g_matchdot; /* Restore these... */
- g_matchdot = -1;
- }
- freedirlist();
- if (ofp != stdout) { /* Close any output file */
- if (ofp) fclose(ofp);
- ofp = stdout;
- }
- if (rc > 0)
- success = 1;
- return(rc);
-}
-
-int
-dodir(cx) int cx; { /* Do the DIRECTORY command */
- char *dc , *msg;
-
-#ifdef OS2
- return(domydir());
-#else /* OS2 */
- if (nopush
-#ifdef DOMYDIR /* Builds that domydir() by default */
- || (cx == XXDIR || cx == XXLDIR)
-#endif /* DOMYDIR */
- )
- return(domydir()); /* Built-in directory command */
-
- /* Use the system's directory command. */
-
- msg = (cx == XXLS) ?
- "Arguments for ls" :
- "Directory and/or file specification";
- if ((x = cmtxt(msg,"",&s,xxstring)) < 0)
- return(x);
-
- ckstrncpy(tmpbuf,s,TMPBUFSIZ); /* Copy the filespec */
- s = tmpbuf;
-
- if ((y = cmcfm()) < 0) return(y);
-
- lp = line;
- if (!(dc = getenv("CK_DIR")))
- dc = DIRCMD;
- ckmakmsg(lp,LINBUFSIZ,dc," ",s,NULL);
- debug(F110,"DIR",line,0);
-#ifdef VMS
- conres();
-#endif /* VMS */
- x = zshcmd(line);
-#ifdef VMS
- concb((char)escape);
-#endif /* VMS */
- return(success = (x < 1) ? 0 : 1);
-#endif /* OS2 */
-}
-
-#ifndef NOSERVER
-#ifndef NOFRILLS
-/* Do the ENABLE and DISABLE commands */
-
-int
-doenable(y,x) int y, x; {
-#ifdef CK_LOGIN
- if (isguest) /* IKSD: Don't let guests */
- return(0); /* enable anything that's disabled */
-#endif /* CK_LOGIN */
- switch (x) {
- case EN_ALL:
- en_cwd = en_cpy = en_del = en_dir = en_fin = en_get = y;
- en_ren = en_sen = en_set = en_spa = en_typ = en_ret = y;
- if (!inserver)
- en_who = en_mai = en_pri = y;
- en_mkd = en_rmd = y;
- en_xit = y;
-#ifndef datageneral
- en_bye = y;
-#endif /* datageneral */
-#ifndef NOPUSH
- if (!nopush && !inserver)
- en_hos = y;
-#endif /* NOPUSH */
-#ifndef NOSPL
- en_asg = en_que = y;
-#endif /* NOSPL */
- break;
-
- case EN_BYE:
-#ifndef datageneral
-/*
- In Data General AOS/VS Kermit can't log out its superior process.
-*/
- en_bye = y;
-#endif /* datageneral */
- break;
- case EN_CPY:
- en_cpy = y;
- break;
- case EN_CWD:
- en_cwd = y;
-#ifdef IKSD
- if (inserver && y == 0) {
- fnrpath = PATH_OFF;
- fnspath = PATH_OFF;
- }
-#endif /* IKSD */
- break;
- case EN_DEL: /* Deleting of files */
- en_del = y;
- break;
- case EN_DIR:
- en_dir = y;
- break;
- case EN_FIN:
- en_fin = y;
- break;
- case EN_GET:
- en_get = y;
- break;
-#ifndef NOPUSH
- case EN_HOS:
- if (!nopush)
- en_hos = y;
- break;
-#endif /* NOPUSH */
- case EN_REN:
- en_ren = y;
- break;
- case EN_SEN:
- en_sen = y;
- break;
- case EN_SET:
- en_set = y;
- break;
- case EN_SPA:
- en_spa = y;
- break;
- case EN_TYP:
- en_typ = y;
- break;
- case EN_WHO:
- en_who = y;
- break;
-#ifndef NOSPL
- case EN_ASG:
- en_asg = y;
- break;
- case EN_QUE:
- en_que = y;
- break;
-#endif /* NOSPL */
- case EN_RET:
- en_del = y;
- break;
- case EN_MAI:
-#ifdef CK_LOGIN
- if (isguest && y) {
- printf("?Sorry, not valid for guests\n");
- return(-9);
- }
-#endif /* CK_LOGIN */
- en_mai = y;
- break;
- case EN_PRI:
-#ifdef CK_LOGIN
- if (isguest && y) {
- printf("?Sorry, not valid for guests\n");
- return(-9);
- }
-#endif /* CK_LOGIN */
- en_pri = y;
- break;
- case EN_MKD:
- en_mkd = y;
- break;
- case EN_RMD:
- en_rmd = y;
- break;
- case EN_XIT:
- en_xit = y;
- break;
- case EN_ENA:
- if (((y & 1) && !(en_ena & 1)) ||
- ((y & 2) && !(en_ena & 2))) {
- printf("?Sorry, DISABLE ENABLE can not be undone\n");
- return(-9);
- } else {
- en_ena = y;
- break;
- }
- default:
- return(-2);
- }
- return(1);
-}
-#endif /* NOFRILLS */
-#endif /* NOSERVER */
-
-#ifndef NOFRILLS
-
-static int del_lis = 0;
-static int del_dot = 0;
-static int del_hdg = 0;
-static int del_pag = -1;
-static int del_ask = 0;
-
-#ifndef NOSHOW
-VOID
-showdelopts() {
- int x = 0;
- extern int optlines;
- prtopt(&optlines,"");
- prtopt(&optlines,"DELETE");
- if (del_ask > -1) {
- prtopt(&optlines, del_ask ? "/ASK" : "/NOASK");
- x++;
- }
-#ifdef UNIXOROSK
- if (del_dot > -1) {
- prtopt(&optlines, del_dot ? "/DOTFILES" : "/NODOTFILES");
- x++;
- }
-#endif /* UNIXOROSK */
- if (del_lis > -1) {
- prtopt(&optlines, del_lis ? "/LIST" : "/NOLIST");
- x++;
- }
- if (del_hdg > -1) {
- prtopt(&optlines, del_hdg ? "/HEADING" : "/NOHEADING");
- x++;
- }
-#ifndef CK_TTGWSIZ
- if (del_pag > -1) {
- prtopt(&optlines, del_pag ? "/PAGE" : "/NOPAGE");
- x++;
- }
-#endif /* CK_TTGWSIZ */
- if (!x) prtopt(&optlines,"(no options set)");
- prtopt(&optlines,"");
-}
-#endif /* NOSHOW */
-
-
-int
-setdelopts() {
- int x_lis = -1, x_pag = -1, x_dot = -1, x_hdg = -1, x_ask = -1;
- int getval = 0;
- char c;
- while (1) {
- if ((y = cmswi(deltab,ndeltab,"Switch","",xxstring)) < 0) {
- if (y == -3)
- break;
- else
- return(y);
- }
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (y) {
- case DEL_DOT:
- x_dot = 1;
- break;
- case DEL_NOD:
- x_dot = 0;
- break;
- case DEL_HDG:
- x_hdg = 1;
- break;
- case DEL_LIS:
- x_lis = 1;
- break;
- case DEL_NOL:
- x_lis = 0;
- break;
-#ifndef CK_TTGWSIZ
- case DEL_PAG:
- x_pag = 1;
- break;
- case DEL_NOP:
- x_pag = 0;
- break;
-#endif /* CK_TTGWSIZ */
- case DEL_QUI:
- x_lis = 0;
- break;
- case DEL_VRB:
- x_lis = 1;
- break;
- case DEL_ASK:
- x_ask = 1;
- break;
- case DEL_NAS:
- x_ask = 0;
- break;
- default:
- printf("?Sorry, this option can not be set\n");
- return(-9);
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (x_pag > -1) del_pag = x_pag;
- if (x_dot > -1) del_dot = x_dot;
- if (x_hdg > -1) del_hdg = x_hdg;
- if (x_lis > -1) del_lis = x_lis;
- if (x_ask > -1) del_ask = x_ask;
- return(success = 1);
-}
-
-#ifdef OS2
-static char ** xmtchs = NULL;
-static int xmtchn = 0;
-#endif /* OS2 */
-
-int
-dodel() { /* DELETE */
- int i, j, k, x;
- int fs = 0; /* Need to call fileselect() */
- int len = 0;
- int bad = 0;
- int getval = 0, asking = 0;
- int simulate = 0, rc = 0;
- long minsize = -1L, maxsize = -1L;
- int havename = 0, confirmed = 0;
- int qflag = 0;
- int summary = 0;
- int deldirs = 0;
- int deltree = 0;
- int itsadir = 0;
- int argisdir = 0;
- int xmode = -1, scan = 0, skip = 0;
-#ifdef COMMENT
- int pass = 0;
-#endif /* COMMENT */
- char c;
- char * deldef = "";
- char safebuf[CKMAXPATH+1];
- struct FDB sw, fi, fl;
- char
- * del_aft = NULL,
- * del_bef = NULL,
- * del_naf = NULL,
- * del_nbf = NULL,
- * del_exc = NULL;
- int
- x_lis = 0,
- /* x_dot = -1, */
- x_hdg = 0;
-
- char * dxlist[8];
-
- for (i = 0; i < 8; i++) dxlist[i] = NULL;
-
- g_matchdot = matchdot;
-
- if (del_lis > -1) x_lis = del_lis;
- if (del_dot > -1) matchdot = del_dot;
- if (del_hdg > -1) x_hdg = del_hdg;
- if (del_pag > -1) xaskmore = del_pag;
- if (del_ask > -1) asking = del_ask;
-
- diractive = 1;
- nolinks = 2; /* By default don't follow links */
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "File specification;\n or switch",
- "", /* default */
- "", /* addtl string data */
- ndeltab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- deltab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Anything that doesn't match */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- again:
- cmfdbi(&fi, /* 2nd FDB - file to delete */
- _CMIFI, /* fcode */
- "File(s) to delete", /* hlpmsg */
- deldef, /* default */
- "", /* addtl string data */
- nolinks | deldirs, /* 0 = files, 1 = files or dirs */
- 0, /* 1 = dirs only */
- xxstring,
- NULL,
- &fl
- );
- while (!havename && !confirmed) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0) { /* Error */
- if (x == -3)
- break;
- if (x == -2 || x == -9)
- printf("?Does not match switch or filename: \"%s\"\n",atmbuf);
- return(x);
- }
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk(); /* Get break character */
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- rc = -9;
- goto xdelete;
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- rc = -9;
- goto xdelete;
- }
- switch (k = cmresult.nresult) {
- case DEL_AFT:
- case DEL_BEF:
- case DEL_NAF:
- case DEL_NBF:
- if (!getval) break;
- if ((x = cmdate("File-time","",&s,0,xxstring)) < 0) {
- if (x == -3) {
- printf("?Date-time required\n");
- x = -9;
- } else
- rc = x;
- goto xdelete;
- }
- fs++;
- deltree = 0;
- switch (k) {
- case DEL_AFT: makestr(&del_aft,s); break;
- case DEL_BEF: makestr(&del_bef,s); break;
- case DEL_NAF: makestr(&del_naf,s); break;
- case DEL_NBF: makestr(&del_nbf,s); break;
- }
- break;
- case DEL_DOT:
- matchdot = 1;
- break;
- case DEL_NOD:
- matchdot = 0;
- break;
- case DEL_ALL:
- fs = 0;
-#ifdef VMS
- deldef = "*.*"; /* UNIX, Windows, OS/2 */
-#else
-#ifdef datageneral
- deldef = "+"; /* AOS/VS */
-#else
- deldef = "*"; /* UNIX, Windows, OS/2, VMS... */
-#endif /* datageneral */
-#endif /* VMS */
- deltree = 1;
- nolinks = 2;
- matchdot = 1;
- recursive = 1; /* Fall through purposely... */
- case DEL_DIR:
- deldirs = 1;
- goto again;
- case DEL_EXC:
- if (!getval) break;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Pattern required\n");
- x = -9;
- } else
- rc = x;
- goto xdelete;
- }
- fs++;
- deltree = 0;
- makestr(&del_exc,s);
- break;
- case DEL_HDG:
- x_hdg = 1;
- break;
-#ifdef RECURSIVE
- case DEL_REC:
- recursive = 1;
- break;
-#endif /* RECURSIVE */
- case DEL_LIS:
- x_lis = 1;
- break;
- case DEL_SUM:
- summary = 1;
- x_lis = 0;
- x_hdg = 1;
- break;
- case DEL_NOL:
- x_lis = 0;
- break;
-#ifndef CK_TTGWSIZ
- case DEL_PAG:
- xaskmore = 1;
- break;
- case DEL_NOP:
- xaskmore = 0;
- break;
-#endif /* CK_TTGWSIZ */
- case DEL_QUI:
- qflag = 1;
- x_lis = 0;
- break;
- case DEL_VRB:
- x_lis = 1;
- break;
-
- case DEL_SMA:
- case DEL_LAR:
- if (!getval) break;
- if ((x = cmnum("File size in bytes","0",10,&y,xxstring)) < 0)
- return(x);
- fs++;
- deltree = 0;
- switch (cmresult.nresult) {
- case DEL_SMA: minsize = y; break;
- case DEL_LAR: maxsize = y; break;
- }
- break;
-
- case DEL_SIM:
- simulate = 1;
- x_lis = 1;
- break;
- case DEL_ASK:
- asking = 1;
- break;
- case DEL_NAS:
- asking = 0;
- break;
- case DEL_TYP: {
- extern struct keytab txtbin[];
- if (!getval) break;
- if ((x = cmkey(txtbin,3,"","",xxstring)) < 0)
- return(x);
- if (x == 2) { /* ALL */
- xmode = -1;
- } else { /* TEXT or BINARY only */
- xmode = x;
- scan = 1;
- }
- break;
- }
- default:
- printf("?Not implemented yet - \"%s\"\n",atmbuf);
- return(-9);
- }
- }
- if (qflag && (cmresult.fcode == _CMFLD)) {
- if ((x = cmcfm()) < 0)
- return(x);
- else
- return(success = 0);
- }
- if (cmresult.fcode != _CMIFI) {
- if (*atmbuf) {
- int x;
- if (iswild(atmbuf) && nzxpand(atmbuf,nzxopts) == 0)
- printf("?No files match: %s\n",atmbuf);
- else if ((x = zchki(atmbuf)) == -1)
- printf("?File not found: %s\n",atmbuf);
- else if (x == -2)
- printf("?Not a regular file: %s\n",atmbuf);
- else
- /* printf("?Not a deletable file: %s\n",atmbuf); */
- goto tryanyway;
- } else {
- printf("?A file specification is required\n");
- }
- return(-9);
- }
- tryanyway:
- ckstrncpy(tmpbuf,cmresult.sresult,TMPBUFSIZ); /* Safe copy of filespec */
- if (deldirs) {
- ckstrncpy(safebuf,cmresult.sresult,CKMAXPATH);
-#ifdef VMSORUNIX
- len = zgetfs(tmpbuf); /* Is it a directory name? */
- argisdir = zgfs_dir; /* Then because of how zxpand() */
- if (argisdir && zgfs_link) /* works, we have to add it to */
- argisdir = 0; /* the list. */
- if (itsadir)
- len = -2;
-#else
- len = zchki(tmpbuf);
- if (len < 0)
- argisdir = isdir(tmpbuf);
-#endif /* VMSORUNIX */
- }
- debug(F110,"DELETE file",tmpbuf,0);
- if ((x = cmcfm()) < 0)
- return(x);
-
-#ifdef IKSD
-#ifdef CK_LOGIN
- if (inserver && isguest) {
- printf("?Sorry, DELETE unavailable to guests\n");
- return(-9);
- }
-#endif /* CK_LOGIN */
-#endif /* IKSD */
-
-#ifndef OS2ORUNIX
- if (simulate) {
- printf("?Sorry, /SIMULATE not implemented on this platform\n");
- return(-9);
- }
-#endif /* OS2ORUNIX */
-
-#ifdef COMMENT
- /* (not needed) */
- if (!iswild(tmpbuf)) {
- char *m;
- errno = 0;
- x = zchki(tmpbuf);
- if (x < 0) {
- switch (x) {
- case -2: m = "Not a regular file"; break;
- case -1: m = "File not found or not accessible"; break;
- default: m = errno ? ck_errstr() : "Can't delete";
- }
- printf("?%s: \"%s\"\n",m,tmpbuf);
- return(-9);
- }
- }
-#endif /* COMMENT */
-
- makelist(del_exc,dxlist,8);
-
-/* tmpbuf[] has the name - now do any needed conversions on it */
-
-#ifdef OS2
- { /* Lower level functions change / to \, not good for CMD.EXE. */
- char *p = tmpbuf;
- while (*p) { /* Change them back to \ */
- if (*p == '/') *p = '\\';
- p++;
- }
- }
-#endif /* OS2 */
-
-#ifdef VMS
- if (iswild(tmpbuf)) {
-#ifdef COMMENT
- /* Does not handle '.' as version separator */
- char *p = tmpbuf;
- x = 0;
- while (*p) {
- if (*p == ';') {
- x = 1;
- break;
- } else
- p++;
- }
- if (!x) ckstrncat(tmpbuf,";*",TMPBUFSIZ);
-#else
- j = 0; x = 0; /* for end_dot and number of dots */
- i = strlen(tmpbuf);
- if (tmpbuf[i] == ';') {
- ckstrncat(tmpbuf,"0",TMPBUFSIZ);
- } else {
- if (tmpbuf[i--] == '.')
- j++;
- for (; i >= 0; i--) {
- if (tmpbuf[i] == ';' || tmpbuf[i] == ':' ||
- tmpbuf[i] == ']' || tmpbuf[i] == '>')
- break;
- else if (tmpbuf[i] == '.')
- x++;
- }
- if (tmpbuf[i] != ';') { /* dot may have been used */
- if (j) { /* last char is dot */
- if (x) /* second is version separator */
- ckstrncat(tmpbuf,"0",TMPBUFSIZ);
- else /* 'foo.' */
- ckstrncat(tmpbuf,";0",TMPBUFSIZ);
- } else if (x == 1) /* lacking a version separator */
- ckstrncat(tmpbuf,";0",TMPBUFSIZ);
- else if (x == 0) /* x == 2 has a version */
- ckstrncat(tmpbuf,".*;0",TMPBUFSIZ);
- }
- }
-#endif /* COMMENT */
- }
-#endif /* VMS */
-
- debug(F110,"dodel tmpbuf",tmpbuf,0); /* Filename */
-
-#ifndef OS2ORUNIX /* No built-in DELETE code... */
- /* Construct system command. */
- ckmakmsg(line,LINBUFSIZ,DELCMD," ",tmpbuf,NULL);
-#else
-#ifdef VMS
- if (asking) { /* Maybe overwrite in VMS */
- if (x_lis) /* if options are needed... */
- ckmakmsg(line,LINBUFSIZ,DELCMD," /confirm/log ",tmpbuf,NULL);
- else
- ckmakmsg(line,LINBUFSIZ,DELCMD," /confirm ",tmpbuf,NULL);
- } else if (x_lis)
- ckmakmsg(line,LINBUFSIZ,DELCMD," /log ",tmpbuf,NULL);
- conres();
-#endif /* VMS */
-
- debug(F110,"dodel line",line,0);
-#endif /* OS2ORUNIX */
-
-#ifdef MAC
- success = (zdelet(tmpbuf) == 0);
-
-#else /* !MAC ... */
-
-#ifdef OS2ORUNIX
- {
- int filespace = 0;
- int count = 0;
- int lines = 0;
- int n = 0;
-
- s = tmpbuf;
-
-#ifdef CK_TTGWSIZ
-#ifdef OS2
- ttgcwsz();
-#else /* OS2 */
- /* Check whether window size changed */
- if (ttgwsiz() > 0) {
- if (tt_rows > 0 && tt_cols > 0) {
- cmd_rows = tt_rows;
- cmd_cols = tt_cols;
- }
- }
-#endif /* OS2 */
-#endif /* CK_TTGWSIZ */
-
- if (x_hdg > 0 && !summary) {
- printf("Deleting %s...%s\n", s, simulate ? " (SIMULATION)" : "");
- n += 2;
- }
-#ifdef ZXREWIND
- z = zxrewind(); /* Rewind file list */
-#else
- if (!deldirs)
- nzxopts = ZX_FILONLY;
- if (recursive) nzxopts |= ZX_RECURSE;
- if (matchdot) nzxopts |= ZX_MATCHDOT;
- errno = 0;
- z = nzxpand(s,nzxopts); /* Expand file list */
-#endif /* ZXREWIND */
- debug(F111,"dodel",s,z);
-
- /* If deleting directories, sort in reverse order */
- /* so we delete the files first, then the directory. */
-
-#ifdef OS2
- /* In K95, we have no mtchs array, nor any control over */
- /* the order in which znext() returns filenames, so we */
- /* must copy the array and sort it. */
- {
- int i;
- if (xmtchs) { /* Free previous list in case */
- debug(F101,"dodel freeing previous list","",xmtchn);
- for (i = 0; i < xmtchn; i++) /* it wasn't freed last time. */
- if (xmtchs[i])
- free(xmtchs[i]);
- free(xmtchs);
- }
- xmtchn = 0;
- xmtchs = (char **)malloc(z * (sizeof(char **))); /* Make new one */
- if (!xmtchs) {
- printf("?Memory allocation failure\n");
- return(-9);
- }
- for (i = 0; i < z; i++) {
- xmtchs[i] = NULL;
- znext(tmpbuf);
- if (!*tmpbuf)
- break;
- makestr(&(xmtchs[i]),tmpbuf);
- if (!xmtchs[i]) {
- printf("?Memory allocation failure\n");
- xmtchn = i - 1;
- rc = -9;
- goto xdelete;
- }
- /* debug(F111,"dodel add",xmtchs[i],i); */
- }
- xmtchn = i;
- debug(F101,"dodel xmtchn","",xmtchn);
- sh_sort(xmtchs,NULL,z,0,deldirs,0);
- }
-#else
-#ifdef UNIX
- sh_sort(mtchs,NULL,z,0,deldirs,filecase);
-#endif /* UNIX */
-#endif /* OS2 */
-
- if (z > 0) {
- int i;
-#ifdef OS2
- int ix = 0;
-#endif /* OS2 */
- success = 1;
- if (x_hdg > 0)
- printf("\n");
-
- while (
-#ifdef OS2
- ix < xmtchn
-#else
- 1
-#endif /* OS2 */
- ) { /* Loop for all files */
-#ifdef OS2
- ckstrncpy(tmpbuf,xmtchs[ix++],TMPBUFSIZ);
-#else
- znext(tmpbuf); /* Get next file */
-#endif /* OS2 */
- if (!*tmpbuf) { /* No more */
- if (deldirs && recursive && argisdir) {
- ckstrncpy(tmpbuf,safebuf,TMPBUFSIZ);
- argisdir = 0; /* (only do this once) */
- } else
- break;
- }
- skip = 0;
- if (!deltree) {
- if (fs)
- if (fileselect(tmpbuf,
- del_aft,del_bef,del_naf,del_nbf,
- minsize,maxsize,0,8,dxlist) < 1) {
- skip++;
- }
- }
- if (!skip && scan && itsadir) {
- skip++;
- }
- if (!skip && scan) {
- switch (scanfile(tmpbuf,&y,nscanfile)) {
- case FT_BIN:
- if (xmode != 1)
- skip++;
- break;
- case FT_TEXT:
- case FT_7BIT:
- case FT_8BIT:
-#ifdef UNICODE
- case FT_UTF8:
- case FT_UCS2:
-#endif /* UNICODE */
- if (xmode != 0)
- skip++;
- }
- }
- if (!skip && asking) {
- int x;
- ckmakmsg(line,LINBUFSIZ," Delete ",tmpbuf,"? ",NULL);
- x = getyesno(line,3);
- switch (x) {
- case 0: continue; /* no */
- case 1: break; /* yes */
- case 2: goto xdelete; /* quit */
- case 3: asking = 0; break; /* go */
- }
- }
-#ifdef VMSORUNIX
- len = zgetfs(tmpbuf); /* Get length and accessibility */
- itsadir = zgfs_dir;
- if (itsadir && zgfs_link) { /* Treat links to directories */
- itsadir = 0; /* as regular files */
- if (scan) /* But not if /TYPE: was given */
- skip++;
- }
- if (itsadir) /* (emulate non-Unix code) */
- len = -2;
-#else
- len = zchki(tmpbuf); /* Get accessibility */
- if (len < 0) /* See if it's a directory */
- itsadir = isdir(tmpbuf);
-#endif /* VMSORUNIX */
-
- if (skip) {
-#ifdef COMMENT /* Too verbose */
- if (x_lis > 0) {
- lines++;
- printf(" %s (SKIPPED)\n",tmpbuf);
-#ifdef CK_TTGWSIZ
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
-#endif /* CK_TTGWSIZ */
- }
-#endif /* COMMENT */
- continue;
- }
-
- debug(F111,"DELETE len",tmpbuf,len);
- if (simulate) {
- filespace += len;
- count++;
- if (x_lis > 0) {
- lines++;
- printf(" %s (SELECTED)\n",tmpbuf);
- if (++n > cmd_rows - 3) {
- int xx;
- xx = askmore();
- if (!xx) goto xdelete; else n = 0;
- }
- }
- } else if (len >= 0 || !itsadir) { /* Regular file */
- zdelet(tmpbuf); /* or symlink, etc... */
- if (zchki(tmpbuf) < 0) {
- filespace += len;
- count++;
- if (x_lis > 0) {
- lines++;
- printf(" %s (OK)\n",tmpbuf);
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- }
- } else {
- bad++;
- success = 0;
- if (x_lis > 0) {
- lines++;
- printf(" %s (FAILED: %s)\n",tmpbuf,ck_errstr());
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- }
- }
- } else if (/* pass > 0 && */ deldirs && itsadir) {
- /* It's a directory */
- if (zrmdir(tmpbuf) > -1) { /* Only works if empty */
- count++;
- if (x_lis > 0) {
- lines++;
- printf(" %s (OK)\n",tmpbuf);
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- }
- } else {
- success = 0;
- if (x_lis > 0) {
- lines++;
- printf(" %s (FAILED: %s)\n",
- tmpbuf,
- ck_errstr());
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- }
- }
- } else if (x_lis > 0) {
- lines++;
- if (isdir(tmpbuf))
- printf(" %s (FAILED: directory)\n",tmpbuf);
- else
- printf(" %s (FAILED: not a regular file)\n",tmpbuf);
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- }
- }
- if (x_hdg > 0) {
- if (lines > 0)
- printf("\n");
- if (++n > cmd_rows - 3)
- if (!askmore()) goto xdelete; else n = 0;
- printf("%d file%s %sdeleted, %d byte%s %sfreed%s\n",
- count,
- count != 1 ? "s" : "",
- simulate ? "would be " : "",
- filespace,
- filespace != 1 ? "s" : "",
- simulate ? "would be " : "",
- simulate ? " (maybe)" : ""
- );
- }
- if (!x_lis && !success && !quiet) {
- printf("?DELETE failed for %d file%s \
-(use DELETE /LIST to see details)\n",
- bad, bad == 1 ? "" : "s"
- );
- }
- } else if (x_lis > 0) {
- if (errno)
- printf("?%s: %s\n",ck_errstr(), tmpbuf);
- else
- printf("?Can't delete: %s\n",tmpbuf);
- }
- }
-#else /* OS2ORUNIX */
-#ifndef VMS /* Others - let the system do it. */
- xsystem(line);
- x = nzxpand(tmpbuf,nzxopts);
- success = (x > 0) ? 0 : 1;
- if (x_hdg > 0)
- printf("%s - %sdeleted\n", tmpbuf, success ? "" : "not ");
-#else
- if (asking)
- printf("\n");
- x = xsystem(line); /* zshcmd returns 1 for success */
- success = (x > 0) ? 1 : 0;
- if (x_hdg > 0 && !asking)
- printf("%s - %sdeleted\n", tmpbuf, success ? "" : "not ");
- concb((char)escape);
-#endif /* VMS */
-#endif /* OS2ORUNIX */
-#endif /* MAC */
- xdelete:
- if (g_matchdot > -1) {
- matchdot = g_matchdot; /* Restore these... */
- g_matchdot = -1;
- }
-#ifdef OS2
- if (xmtchs) {
- int i;
- debug(F101,"dodel freeing list","",xmtchn);
- for (i = 0; i < xmtchn; i++)
- if (xmtchs[i]) free(xmtchs[i]);
- free(xmtchs);
- xmtchs = NULL;
- xmtchn = 0;
- }
-#endif /* OS2 */
- debug(F101,"dodel result","",rc);
- return((rc < 0) ? rc : success);
-}
-#endif /* NOFRILLS */
-
-#ifndef NOSPL /* The ELSE command */
-_PROTOTYP( VOID pushqcmd, (char *) );
-
-int
-doelse() {
- if (!ifcmd[cmdlvl]) {
- printf("?ELSE doesn't follow IF\n");
- return(-2);
- }
-#ifdef COMMENT
-/*
- Wrong. This prevents IF..ELSE IF...ELSE IF...ELSE IF...ELSE...
- from working.
-*/
- ifcmd[cmdlvl] = 0;
-#endif /* COMMENT */
- if (!iftest[cmdlvl]) { /* If IF was false do ELSE part */
- if (maclvl > -1 || tlevel > -1) { /* In macro or command file */
- debug(F100,"doelse pushing","",0);
-#ifdef COMMENT
- pushcmd(NULL); /* save rest of command. */
-#else
- /* This fixes certain obscure problems */
- /* but breaks many other constructions that must work. */
- pushqcmd(NULL);
-#endif /* COMMENT */
- } else { /* If interactive, */
- cmini(ckxech); /* just start a new command */
- printf("\n"); /* (like in MS-DOS Kermit) */
- if (pflag) prompt(xxstring);
- }
- } else { /* Condition is false */
- if ((y = cmtxt("command to be ignored","",&s,NULL)) < 0)
- return(y); /* Gobble up rest of line */
- }
- return(0);
-}
-#endif /* NOSPL */
-
-#ifndef NOSPL
-int
-doswitch() {
- char *lp, *ap; /* Macro argument pointer */
- int len = 0, x, y, pp = 0;
- char brbuf[3];
-
- /* Get variable name */
-
- tmpbuf[0] = NUL;
- brbuf[0] = '{';
- brbuf[1] = '}';
- brbuf[2] = NUL;
-
- y = cmfld("Variable name","",&s,xxstring);
- debug(F111,"doswitch cmfld",s,y);
- if (y < 0) {
- if (y == -3) /* Because brstrip() writes */
- s = brbuf; /* into its argument. */
- else
- return(y);
- }
- debug(F110,"doswitch A",s,0);
- if (!strcmp(s,"(")) {
- pp++;
- if ((y = cmfld("Variable name","",&s,xxstring)) < 0) {
- if (y == -3)
- s = brbuf;
- else
- return(y);
- debug(F110,"doswitch B",s,0);
- }
- }
- len = ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
- if (tmpbuf[0] == CMDQ) {
- if (chkvar(s) < 1) {
- printf("?Variable name required\n");
- return(-9);
- }
- }
- if (pp > 0) { /* If open paren given parse closing */
- if ((y = cmfld("Closing parenthesis","",&s,NULL)) < 0)
- return(y);
- if (strcmp(atmbuf,")")) {
- printf("?Closing parenthesis required\n");
- return(-9);
- }
- }
- lp = line;
- x = ckstrncpy(lp,"_switx ",LINBUFSIZ); /* _switx + space */
- lp += x;
- ap = lp;
- debug(F010,"SWITCH a",line,0);
-
-#ifdef COMMENT
- x = ckmakmsg(lp,LINBUFSIZ-x,tmpbuf," ",NULL,NULL); /* variable name + SP */
-#else
- { /* variable name + SP */
- char * p = tmpbuf;
- if (len > 0) {
- if (tmpbuf[0] == '(' && tmpbuf[len-1] == ')') {
- tmpbuf[len-1] = NUL;
- p++;
- }
- }
- x = ckmakmsg(lp,LINBUFSIZ-x,"{",brstrip(p),"}"," ");
- }
-#endif /* COMMENT */
- debug(F010,"SWITCH b",line,0);
- lp += x;
-
- /* Get body */
-
- if ((y = cmtxt("series of cases","",&s,NULL)) < 0) return(y);
- if ((y = (int)strlen(s)) < 1) return(-2);
- if (s[0] != '{' && s[y-1] != '}') { /* Supply braces if missing */
- ckmakmsg(tmpbuf,TMPBUFSIZ,"{ ",s," }",NULL);
- s = tmpbuf;
- }
- if (litcmd(&s,&lp,(LINBUFSIZ - (lp - (char *)line) - 2)) < 0) {
- printf("?Unbalanced braces\n");
- return(0);
- }
- debug(F010,"SWITCH c",line,0);
-
- x = mlook(mactab,"_switx",nmac); /* Look up SWITCH macro definition */
- if (x < 0) { /* Not there? */
- addmmac("_switx",sw_def); /* Put it back. */
- if ((x = mlook(mactab,"_switx",nmac)) < 0) { /* Look it up again. */
- printf("?SWITCH macro definition gone!\n"); /* Shouldn't happen. */
- return(success = 0);
- }
- }
- debug(F010,"SWITCH command",line,0); /* Execute the SWITCH macro. */
- success = dodo(x,ap,cmdstk[cmdlvl].ccflgs | CF_IMAC);
- debug(F101,"SWITCH status","",success);
- return(success);
-}
-
-int
-dofor() { /* The FOR command. */
- int i, fx, fy, fz; /* loop variables */
- char *ap, *di; /* macro argument pointer */
- int pp = 0; /* Paren level */
- int mustquote = 0;
-
- for (i = 0; i < 2; i++) {
- if ((y = cmfld("Variable name","",&s,NULL)) < 0) {
- if (y == -3) {
- printf("?Variable name required\n");
- return(-9);
- } else
- return(y);
- }
- if (strcmp(s,"("))
- break;
- pp++;
- }
-#ifdef COMMENT
- if ((y = parsevar(s,&x,&z)) < 0) /* Check variable. */
- return(y);
-#else
- if (*s == CMDQ) /* If loop variable starts with */
- mustquote++; /* backslash, mustquote is > 0. */
-#endif /* COMMENT */
-
- lp = line; /* Build a copy of the command */
- ckstrncpy(lp,"_forx ",LINBUFSIZ);
- lp += (int)strlen(line); /* "_for" macro. */
- ap = lp; /* Save pointer to macro args. */
-
- if (*s == CMDQ) s++; /* Skip past backslash if any. */
- while ((*lp++ = *s++)) ; /* copy it */
- lp--; *lp++ = SP; /* add a space */
-
- if ((y = cmnum("initial value","",10,&fx,xxstring)) < 0) {
- if (y == -3) return(-2);
- else return(y);
- }
- debug(F101,"dofor fx","",fx);
- s = atmbuf; /* Copy the atom buffer */
-
- if ((int)strlen(s) < 1) goto badfor;
-/*
- In edit 192, we change the loop variables to be evaluated at loop entry,
- not each time through the loop. This was required in order to allow
- \v(argc) to be used as a loop variable, or in a loop-variable expression.
- Thus, we can't have FOR loops that modify their own exit conditions by
- changing the final value or the increment. The problem with \v(argc) was
- that it is on the macro stack; after entry into the _forx macro, it is at
- the wrong place.
-*/
- sprintf(tmpbuf,"%d",fx); /* (SAFE) Substitute actual value */
- s = tmpbuf;
- while ((*lp++ = *s++)) ; /* (what they actually typed) */
- lp--; *lp++ = SP;
-#ifdef DEBUG
- *lp = NUL;
- debug(F110,"FOR A",line,0);
-#endif /* DEBUG */
-
- if ((y = cmnum("final value","",10,&fy,xxstring)) < 0) {
- if (y == -3) return(-2);
- else return(y);
- }
- debug(F101,"dofor fy","",fy);
- s = atmbuf; /* Same deal */
- if ((int)strlen(s) < 1)
- goto badfor;
-
- sprintf(tmpbuf,"%d",fy); /* SAFE */
- s = tmpbuf;
- while ((*lp++ = *s++)) ;
- lp--;
- *lp++ = SP;
-#ifdef DEBUG
- *lp = NUL;
- debug(F110,"FOR B",line,0);
-#endif /* DEBUG */
-
- x_ifnum = 1; /* Increment or parenthesis */
- di = (fx < fy) ? "1" : "-1"; /* Default increment */
- if ((y = cmnum("increment",di,10,&fz,xxstring)) < 0) {
- debug(F111,"dofor increment",atmbuf,y);
- x_ifnum = 0;
- if (y == -3) { /* Premature termination */
- return(-2);
- } else if (y == -2) { /* Maybe closing paren */
- if (!strcmp(atmbuf,")")) {
- pp--; /* Count it */
- s = di; /* supply default interval */
- fz = atoi(s);
- } else /* Not closing paren, invalid */
- return(y);
- } else /* Other error */
- return(y);
- } else { /* Number */
- x_ifnum = 0;
- debug(F101,"dofor fz","",fz);
- s = atmbuf; /* Use it */
- }
- if ((int)strlen(s) < 1)
- goto badfor;
-
- sprintf(tmpbuf,"%d",fz); /* (SAFE) Same deal */
- s = tmpbuf;
- while ((*lp++ = *s++)) ;
- lp--; *lp++ = SP;
-
-#ifdef DEBUG
- *lp = NUL;
- debug(F110,"FOR C",line,0);
-#endif /* DEBUG */
-
- /* Insert the appropriate comparison operator */
- if (fz < 0)
- *lp++ = '<';
- else
- *lp++ = '>';
- *lp++ = SP;
-
-#ifdef DEBUG
- *lp = NUL;
- debug(F110,"FOR D",line,0);
-#endif /* DEBUG */
-
- if (pp > 0) { /* If open paren given parse closing */
- if ((y = cmfld("Closing parenthesis","",&s,NULL)) < 0)
- return(y);
- if (strcmp(atmbuf,")")) {
- printf("?Closing parenthesis required\n");
- return(-9);
- }
- }
- if ((y = cmtxt("Command to execute","",&s,NULL)) < 0) return(y);
- if ((y = (int)strlen(s)) < 1) return(-2);
- if (s[0] != '{' && s[y-1] != '}') { /* Supply braces if missing */
- ckmakmsg(tmpbuf,TMPBUFSIZ,"{ ",s," }",NULL);
- s = tmpbuf;
- }
- if (litcmd(&s,&lp,(LINBUFSIZ - (lp - (char *)line) - 2)) < 0) {
- printf("?Unbalanced braces\n");
- return(0);
- }
-#ifdef DEBUG
- *lp = NUL;
- debug(F110,"FOR E",line,0);
-#endif /* DEBUG */
-
-#ifdef COMMENT
-/* Too strict */
- if (fz == 0) {
- printf("?Zero increment not allowed\n");
- return(0);
- }
-#endif /* COMMENT */
-/*
- In version 8.0 we decided to allow macro names anyplace a numeric-valed
- variable could appear. But this caused trouble for the FOR loops because
- the quoting in for_def[] assumed a \%i-style loop variable. We account
- for this here in the if (mustquote)...else logic by invoking separate
- FOR macro definitions in the two cases.
-*/
- if (mustquote) { /* \%i-style loop variable */
- x = mlook(mactab,"_forx",nmac); /* Look up FOR macro definition */
- if (x < 0) { /* Not there? */
- addmmac("_forx",for_def); /* Put it back. */
- if ((x = mlook(mactab,"_forx",nmac)) < 0) { /* Look it up again. */
- printf("?FOR macro definition gone!\n");
- return(success = 0);
- }
- }
- } else { /* Loop variable is a macro */
- x = mlook(mactab,"_forz",nmac);
- if (x < 0) {
- addmmac("_forz",foz_def);
- if ((x = mlook(mactab,"_forz",nmac)) < 0) {
- printf("?FOR macro definition gone!\n");
- return(success = 0);
- }
- }
- }
- debug(F010,"FOR command",line,0); /* Execute the FOR macro. */
- return(success = dodo(x,ap,cmdstk[cmdlvl].ccflgs | CF_IMAC));
-
-badfor:
- printf("?Incomplete FOR command\n");
- return(-2);
-}
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
-/* Do the BUG command */
-
-int
-dobug() {
- int n;
- char * s = "";
- extern char * k_info_dir;
-
- if (k_info_dir)
- s = k_info_dir;
-
-#ifdef COMMENT
- printf("\n%s,%s\n Numeric: %ld",versio,ckxsys,vernum);
-#endif /* COMMENT */
- printf(
-"\nBefore requesting technical support from Columbia U., please consult:\n\n"
- );
- n = 7;
-#ifdef OS2
- printf(" . Your \"Kermit 95\" user manual (use the MANUAL command).\n");
- printf(" . The technical reference manual, \"Using C-Kermit\".\n");
- n += 2;
-#else
- printf(" . The book \"Using C-Kermit\" (type HELP for more info).\n");
- n += 1;
-#endif /* OS2 */
-
- printf(" . Your own organization's support staff, if any.\n");
- printf(
-" . The comp.protocols.kermit.misc newsgroup.\n");
- printf(
-" . The Kermit support website, http://www.columbia.edu/kermit/support.html \n"
- );
- printf(
-
-" . The Kermit FAQ, http://www.columbia.edu/kermit/newfaq.html \n");
-#ifdef OS2
- printf(
-" . The Kermit 95 FAQ, http://www.columbia.edu/kermit/k95faq.html \n");
- n++;
-#endif /* OS2 */
-
- printf(
-" . The C-Kermit FAQ, http://www.columbia.edu/kermit/ckfaq.html \n");
- n += 4;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("\n\
-If you still need help or have a bug to report after consulting these sources,"
- );
- printf("\nsend e-mail to:\n\n");
- n += 2;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(" mailto:kermit-support@columbia.edu\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("Or contact us by post:\n\n");
- printf(
-" Kermit, Columbia University, 612 W 115 Street, New York NY 10025, USA\n\n"
- );
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("Or by fax at +1 (212) 662-6442.\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
-#ifdef COMMENT
- printf("Telephone support is available too:\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(
- " +1 (212) 854-5126, from anywhere, $25.00 USD per call, MC/Visa\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
-#endif /* COMMENT */
-#ifndef NOSHOW
-#ifndef NOFRILLS
- printf(
-"Before reporting problems, please use the SHOW FEATURES command\n");
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(
-"to get detailed program version and configuration information.\n\n");
-#endif /* NOFRILLS */
-#endif /* NOSHOW */
- return(1);
-}
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
-
-/* T O D 2 S E C -- Convert time of day as hh:mm:ss to secs since midnite */
-/*
- Call with a string hh:mm or hh:mm:ss.
- Returns a 0 to 86400 on success, or a negative number on failure.
-*/
-long
-tod2sec(t) char * t; {
- long t2;
- long hh = 0L, mm = 0L, ss = 0L;
-
- if (!t) t = "";
- if (!*t)
- return(-3L);
- debug(F110,"tod2sec",t,0);
-
- if (isdigit(*t)) /* Get hours from argument */
- hh = *t++ - '0';
- else
- return(-1L);
- if (isdigit(*t))
- hh = hh * 10 + *t++ - '0';
-#ifdef COMMENT
- if (hh > 24L)
- return(-1L);
-#endif /* COMMENT */
- if (*t == ':')
- t++;
- else if (!*t)
- goto xtod2sec;
- else
- return(-1L);
-
- if (isdigit(*t)) /* Minutes */
- mm = *t++ - '0';
- else
- return(-1L);
- if (isdigit(*t))
- mm = mm * 10 + *t++ - '0';
- if (mm > 60L)
- return(-1L);
- if (*t == ':')
- t++;
- else if (!*t)
- goto xtod2sec;
- else
- return(-1L);
-
- if (isdigit(*t)) /* Seconds */
- ss = *t++ - '0';
- else
- return(-1L);
- if (isdigit(*t))
- ss = ss * 10 + *t++ - '0';
- if (ss > 60L)
- return(-1L);
-
- if (*t > 32) /* No trailing junk allowed */
- return(-1L);
-
- xtod2sec:
-
- t2 = hh * 3600L + mm * 60L + ss; /* Seconds since midnight from arg */
- debug(F101,"tod2sec t2","",t2);
-
- return(t2);
-}
-
-int waitinterval = 1;
-
-#ifdef OLDWAIT
-#undef OLDWAIT
-#endif /* OLDWAIT */
-
-int kbchar = NUL;
-
-int
-dopaus(cx) int cx; {
- long zz;
- extern int sleepcan;
-
-#ifdef OLDWAIT
- zz = -1L;
- x_ifnum = 1; /* Turn off internal complaints */
- if (cx == XXWAI)
- y = cmnum("seconds to wait, or time of day hh:mm:ss","1",10,&x,xxstring);
- else if (cx == XXPAU)
- y = cmnum("seconds to pause, or time of day hh:mm:ss",
- "1",10,&x,xxstring);
- else
- y = cmnum("milliseconds to sleep, or time of day hh:mm:ss",
- "100",10,&x,xxstring);
- x_ifnum = 0;
- if (y < 0) {
- if (y == -2) { /* Invalid number or expression */
- char *p = tmpbuf; /* Retrieve string from atmbuf */
- int n = TMPBUFSIZ;
- *p = NUL;
- zzstring(atmbuf,&p,&n); /* Evaluate in case it's a variable */
- zz = tod2sec(tmpbuf); /* Convert to secs since midnight */
- if (zz < 0L) {
- printf("?Number, expression, or time of day required\n");
- return(-9);
- } else {
- char now[32]; /* Current time */
- char *p;
- long tnow;
- p = now;
- ztime(&p);
- tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
- if (zz < tnow) /* User's time before now */
- zz += 86400L; /* So make it tomorrow */
- zz -= tnow; /* Seconds from now. */
- }
- } else
- return(y);
- }
- if (x < 0) x = 0;
- switch (cx) {
- case XXPAU: /* PAUSE */
- case XXMSL: /* MSLEEP */
- if ((y = cmcfm()) < 0) return(y);
- break;
- case XXWAI: /* WAIT */
- z = 0; /* Modem signal mask */
- while (1) { /* Read zero or more signal names */
- y = cmkey(mstab,nms,"modem signal","",xxstring);
- if (y == -3) break; /* -3 means they typed CR */
- if (y < 0) return(y); /* Other negatives are errors */
- z |= y; /* OR the bit into the signal mask */
- }
- if ((y = cmcfm()) < 0) return(y);
- break;
-
- default: /* Shouldn't happen */
- return(-2);
- }
-
-/* Command is entered, now do it. */
-
- if (zz > -1L) { /* Time of day given? */
- x = zz;
- if (zz != (long) x) {
- printf(
-"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
- );
- return(-9);
- }
- }
- if (cx == XXMSL) { /* Millisecond sleep */
- msleep(zz < 0 ? x : x * 1000);
- return(success = 1);
- }
- if (cx == XXPAU && !sleepcan) { /* SLEEP CANCELLATION is OFF */
- sleep(x);
- return(success = 1);
- }
-
- /* WAIT, or else SLEEP with cancellation allowed... */
-
- do { /* Sleep loop */
- int mdmsig;
- if (sleepcan) { /* Keyboard cancellation allowed? */
- if (y = conchk()) { /* Did they type something? */
-#ifdef COMMENT
- while (y--) coninc(0); /* Yes, gobble it all up */
-#else
- /* There is a debate over whether PAUSE should absorb */
- /* its cancelling character(s). There are several */
- /* reasons why it should gobble at least one character: */
- /* (1) MS-DOS Kermit does it */
- /* (2) if not, subsequent PAUSE commands will terminate */
- /* immediately */
- /* (3) if not, subsequent ASK commands will use it as */
- /* valid input. If \13, then it will get no input */
- /* (4) if not, then the character appears on the command */
- /* line after all enclosing macros are complete. */
- kbchar = coninc(0); /* Gobble one up */
-#endif /* COMMENT */
- break; /* And quit PAUSing or WAITing */
- }
- }
- if (cx == XXWAI) { /* WAIT (z == modem signal mask) */
- debug(F101,"WAIT x","",x);
- if (z > 0) { /* Looking for any modem signals? */
- mdmsig = ttgmdm(); /* Yes, get them */
- if (mdmsig < 0) /* Failed */
- return(success = 0);
- if ((mdmsig & z) == z) /* Got what we wanted? */
- return(success = 1); /* Succeed */
- }
- if (x == 0) /* WAIT 0 and didn't get our signals */
- break;
- }
- sleep(1); /* No interrupt, sleep one second */
- } while (--x > 0);
-
- if (cx == XXWAI) /* If WAIT and loop exhausted */
- success = (z == 0); /* Fail. */
- else /* */
- success = (x == 0); /* Set SUCCESS/FAILURE for PAUSE. */
- return(success);
-
-#else /* New code uses chained FDBs and allows FILE waits... */
-
- char * m = ""; /* Help message */
- struct FDB nu, fl; /* Parse function descriptor blocks */
- int filewait = 0;
- int mdmsig = 0, fs = 0;
- char filedate[32];
-
- kbchar = 0;
-
- switch (cx) {
- case XXWAI: m = "seconds to wait, or time of day hh:mm:ss"; break;
- case XXPAU: m = "seconds to pause, or time of day hh:mm:ss"; break;
- case XXMSL: m = "milliseconds to sleep, or time of day hh:mm:ss"; break;
- }
- zz = -1L;
- cmfdbi(&nu,
- _CMNUM, /* Number */
- m, /* Help message */
- (cx == XXMSL) ? "100" : "1", /* Default */
- "", /* N/A */
- 0, /* N/A */
- 0, /* N/A */
- xxstring, /* Processing function */
- NULL, /* N/A */
- &fl /* Next */
- );
- cmfdbi(&fl, /* Time of day */
- _CMFLD, /* Field */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring, /* processing func */
- NULL, /* N/A */
- NULL /* No next */
- );
- x = cmfdb(&nu); /* Parse a number or a field */
- if (x < 0) {
- if (x == -3)
- x = -2;
- return(x);
- }
- switch (cmresult.fcode) {
- case _CMNUM: /* Number */
- x = cmresult.nresult;
- break;
- case _CMFLD: /* Field */
- zz = tod2sec(cmresult.sresult); /* Convert to secs since midnight */
- if (zz < 0L) {
- printf("?Number, expression, or time of day required\n");
- return(-9);
- } else {
- char now[32]; /* Current time */
- char *p;
- long tnow;
- p = now;
- ztime(&p);
- tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
- if (zz < tnow) /* User's time before now */
- zz += 86400L; /* So make it tomorrow */
- zz -= tnow; /* Seconds from now. */
- }
- }
- debug(F101,"PAUSE/WAIT/MSLEEP zz","",zz);
- switch (cx) {
- case XXPAU: /* PAUSE */
- case XXMSL: /* MSLEEP */
- if ((y = cmcfm()) < 0) return(y);
- break;
- case XXWAI: /* WAIT */
- z = 0; /* Modem signal mask */
- y = cmkey(waittab,nwaittab,"","",xxstring);
- if (y < 0) {
- if (y == -3) {
- if ((y = cmcfm()) < 0)
- return(y);
- break;
- } else
- return(y);
- }
- if (y == WAIT_FIL) { /* FILE */
- int wild = 0;
- if ((z = cmkey(wfswi,nwfswi,"event","",xxstring)) < 0)
- return(z);
- filewait = z;
- if (filewait == WF_MOD || filewait == WF_DEL)
- z = cmifi("Filename","",&s,&wild,xxstring);
- else
- z = cmfld("Filename","",&s,xxstring);
- if (z < 0)
- return(z);
- if (wild || ((filewait == WF_CRE) && iswild(s))) {
- printf("?Wildcards not valid here\n");
- return(-9);
- }
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- if ((z = cmcfm()) < 0)
- return(z);
- break;
- } else if (y != WAIT_MDM) { /* A modem signal */
- z |= y; /* OR the bit into the signal mask */
- }
- if (!filewait) { /* Modem signals... */
- while (1) { /* Get zero or more signal names */
- y = cmkey(mstab,nms,"modem signal","",xxstring);
- if (y == -3) break; /* -3 means they typed CR */
- if (y < 0) return(y); /* Other negatives are errors */
- z |= y; /* OR the bit into the signal mask */
- }
- if ((y = cmcfm()) < 0) return(y);
- break;
- }
-
- default: /* Shouldn't happen */
- return(-2);
- } /* switch (cx) */
-
-/* Command is entered, now do it. */
-
- if (zz > -1L) { /* Time of day given? */
- x = zz;
- if (zz != (long) x) {
- printf(
-"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
- );
- return(-9);
- }
- }
- if (sleepcan)
- concb((char)escape); /* Ensure single-char wakeup */
-
- if (cx == XXMSL) { /* Millisecond sleep */
- msleep(zz < 0 ? x : x * 1000);
- return(success = 1);
- }
- if (cx == XXPAU && !sleepcan) { /* SLEEP CANCELLATION is OFF */
- sleep(x);
- return(success = 1);
- }
- if (filewait) { /* FILE... */
- fs = zchki(tmpbuf); /* Check if file exists */
- switch (filewait) {
- case WF_DEL:
- if (fs == -1)
- return(success = 1);
- break;
- case WF_MOD:
- if (fs == -1) {
- printf("?File does not exit: %s\n",tmpbuf);
- return(-9);
- }
- s = zfcdat(tmpbuf); /* Get current modification date */
- if (!s) s = "";
- if (ckstrncpy(filedate,s,32) != 17) {
- printf("?Can't get modification time: %s\n",tmpbuf);
- return(-9);
- }
- break;
- case WF_CRE:
- if (fs > -1)
- return(success = 1);
- break;
- }
- }
- do { /* Polling loop */
- if (sleepcan) { /* Keyboard cancellation allowed? */
- if ((y = conchk()) > 0) { /* Did they type something? */
- kbchar = coninc(0); /* Yes, get first char they typed */
- debug(F000,"WAIT kbchar","",kbchar);
-#ifdef COMMENT
- while (--y > 0) /* Gobble the rest up */
- coninc(0);
-#endif /* COMMENT */
- return(success = 0); /* And quit PAUSing or WAITing */
- }
- }
- if (filewait == 0) {
- if (cx == XXWAI) { /* WAIT for modem signals */
- if (z != 0) {
- mdmsig = ttgmdm(); /* Get them. */
- debug(F101,"WAIT ttgmdm","",mdmsig);
- if (mdmsig < 0) /* Failure to get them? */
- return(success = 0); /* Fail. */
- if ((mdmsig & z) == z) /* Got desired ones? */
- return(success = 1); /* Succeed. */
- } else if (x == 0)
- return(success = 0);
- }
- } else { /* FILE... */
- fs = zchki(tmpbuf); /* Get file status */
- if (filewait == WF_MOD) { /* Wait for modification */
- if (fs == -1) /* Failure to get status */
- return(success = 0); /* so WAIT fails. */
- s = zfcdat(tmpbuf); /* Get current modification time */
- if (!s) s = ""; /* And compare with the time */
- if (strcmp(s,filedate)) /* when the WAIT started */
- return(success = 1);
- } else if (filewait == WF_DEL) { /* Wait for deletion */
- if (fs == -1) /* If file doesn't exist, */
- return(success = 1); /* succeed. */
- } else if (filewait == WF_CRE) { /* Wait for creation */
- if (fs != -1) /* If file exists */
- return(success = 1); /* succeed. */
- }
- }
- if (x < 1) /* SLEEP/WAIT/PAUSE 0 */
- break;
- sleep(waitinterval); /* No interrupt, sleep */
- x -= waitinterval; /* Deduct sleep time */
- } while (x > 0);
-
- if (cx == XXWAI) /* WAIT time expired */
- success = (z == 0); /* Succeed if no modem signals */
- else /* For SLEEP or PAUSE, success */
- success = (x == 0); /* depends on whether it was */
- return(success); /* interrupted from the keyboard. */
-#endif /* OLDWAIT */
-}
-#endif /* NOSPL */
-
-#ifdef OS2ORUNIX
-_PROTOTYP(int zcmpfn,(char *, char *));
-#endif /* OS2ORUNIX */
-
-#ifndef NOFRILLS
-#ifdef NT
-int
-dolink() {
- /* Parse a file or a directory name */
- int i, x, z, listing = 0, havename = 0, wild = 0, rc = 1;
- struct FDB sw, fi;
-
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
- _CMKEY, /* fcode */
- "Filename or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nqvswtab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- qvswtab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
-
- cmfdbi(&fi, /* 1st FDB - file to type */
- _CMIFI, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 3, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- while (!havename) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0) /* Error */
- return(x);
- switch (cmresult.fcode) {
- case _CMKEY:
- switch (cmresult.nresult) {
- case DEL_LIS:
- case DEL_VRB:
- listing = 1;
- break;
- case DEL_NOL:
- case DEL_QUI:
- listing = 0;
- break;
- }
- break;
- case _CMIFI:
- s = cmresult.sresult;
- havename = 1;
- break;
- default:
- return(-2);
- }
- }
- wild = cmresult.nresult; /* Source specification wild? */
-
- ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy of source name */
- s = line;
-
- if (!wild)
- wild = iswild(line);
-
- p = tmpbuf; /* Place for new name */
- if ((x = cmofi(wild ? "Target directory" : "New name",
- "",&s,xxstring)) < 0) { /* Get new name */
- if (x == -3) {
- printf("?%s required\n", wild ? "Target directory" : "New name");
- return(-9);
- } else return(x);
- }
- ckstrncpy(p,s,TMPBUFSIZ); /* Make a safe copy of the new name */
- if ((y = cmcfm()) < 0) return(y);
-
- if (!wild) { /* Just one */
- if (listing) printf("%s => %s ",line,p);
- if (zlink(line,p) < 0) {
- if (listing) printf("(FAILED: %s\n",ck_errstr());
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
- return(success = rc);
- }
- if (!isdir(p)) { /* Multiple */
- printf( /* if target is not a directory */
-"?Multiple source files not allowed if target is not a directory.\n");
- return(-9);
- }
-#ifdef COMMENT
- else { /* Show full path of target */
- char buf[CKMAXPATH]; /* (too much) */
- if (zfnqfp(p,CKMAXPATH,buf))
- ckstrncpy(tmpbuf,buf,TMPBUFSIZ);
- }
-#endif /* COMMENT */
-
-#ifdef VMS
- conres(); /* Let Ctrl-C work. */
-#endif /* VMS */
- debug(F110,"dolink line",line,0);
-
-#ifdef ZXREWIND
- z = zxrewind(); /* Rewind file list */
-#else
- z = nzxpand(s,0); /* Expand file list */
-#endif /* ZXREWIND */
- debug(F111,"dolink p",p,z);
-
-#ifdef UNIX
- if (wild && z > 1)
- sh_sort(mtchs,NULL,z,0,0,filecase); /* Alphabetize the filename list */
-#endif /* UNIX */
-
- while (z-- > 0) {
- if (!(z == 0 && !wild))
- znext(line);
- if (!line[0])
- break;
- if (listing) printf("%s => %s ",line,p);
- if (zlink(line,p) < 0) {
- if (listing) printf("(FAILED: %s\n",ck_errstr());
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
- }
-#ifdef VMS
- concb((char)escape);
-#endif /* VMS */
- return(success = rc);
-}
-#endif /* NT */
-
-#ifdef ZCOPY
-int
-docopy() {
- int i, x, listing = 0, nolist = 0, havename = 0;
- struct FDB sw, fi;
- int targetisdir = 0;
- int targetlen = 0;
- int swapping = 0;
- int appending = 0;
- int fromb64 = 0;
- int tob64 = 0;
- int wild = 0;
- int rc = 1;
-
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
- _CMKEY, /* fcode */
- "Filename or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- ncopytab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- copytab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
- cmfdbi(&fi, /* 1st FDB - file to type */
- _CMIFI, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- while (!havename) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0) /* Error */
- return(x);
- switch (cmresult.fcode) {
- case _CMKEY:
- switch (cmresult.nresult) {
- case DEL_LIS:
- case DEL_VRB:
- nolist = 0;
- listing = 1;
- break;
- case DEL_NOL:
- case DEL_QUI:
- nolist = 1;
- listing = 0;
- break;
- case 999:
- swapping = 1;
- break;
- case 998:
- appending = 1;
- break;
-#ifndef NOSPL
- case 997:
- fromb64 = 1;
- break;
- case 996:
- tob64 = 1;
- break;
-#endif /* NOSPL */
- }
- break;
- case _CMIFI:
- s = cmresult.sresult;
- havename = 1;
- break;
- default:
- return(-2);
- }
- }
- wild = cmresult.nresult;
- ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy of source name */
- s = line;
- p = tmpbuf; /* Place for new name */
-
- /* Get destination name */
- if ((x = cmofi("destination name and/or directory",
-#ifdef UNIX
- "."
-#else
- ""
-#endif /* UNIX */
- ,&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Name for destination file required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(p,s,TMPBUFSIZ); /* Safe copy of destination name */
- if ((y = cmcfm()) < 0) return(y);
- if (appending && swapping) {
- printf("?Sorry, /APPEND and /SWAP conflict\n");
- return(-9);
- }
-#ifdef COMMENT
-/*
- This unreasonably prevented "COPY /APPEND *.* bifile" from concatenating
- a bunch of files into one big file.
-*/
- if (appending && wild) {
- printf("?Sorry, /APPEND can be used only with single files\n");
- return(-9);
- }
-#endif /* COMMENT */
- targetisdir = isdir(p);
- x = strlen(p);
- if (targetisdir) {
-#ifdef UNIXOROSK
- if (p[x-1] != '/') {
- ckstrncat(p,"/",TMPBUFSIZ);
- x++;
- }
-#else
-#ifdef OS2
- if (p[x-1] != '/') {
- ckstrncat(p,"/",TMPBUFSIZ);
- x++;
- }
-#else
-#ifdef STRATUS
- if (p[x-1] != '>') {
- ckstrncat(p,">",TMPBUFSIZ);
- x++;
- }
-#else
-#ifdef datageneral
- if (p[x-1] != ':') {
- ckstrncat(p,":",TMPBUFSIZ);
- x++;
- }
-#else
- if (p[x-1] != '/') {
- ckstrncat(p,"/",TMPBUFSIZ);
- x++;
- }
-#endif /* datageneral */
-#endif /* STRATUS */
-#endif /* OS2 */
-#endif /* UNIXOROSK */
- }
- targetlen = x;
-
- if (!appending) { /* If /APPEND not given */
- if (wild && !targetisdir) { /* No wildcards allowed */
- printf( /* if target is not a directory */
-"?Multiple source files not allowed if target is not a directory.\n");
- return(-9);
- }
- }
-
-#ifdef VMS
- conres(); /* Let Ctrl-C work. */
-#endif /* VMS */
- debug(F110,"docopy line",line,0);
- debug(F110,"docopy p",p,0);
-
-#ifdef ZXREWIND
- z = zxrewind(); /* Rewind file list */
-#else
- z = nzxpand(s,0); /* Expand file list */
-#endif /* ZXREWIND */
-
-#ifdef UNIX
- if (wild)
- sh_sort(mtchs,NULL,z,0,0,filecase); /* Alphabetize the filename list */
-#endif /* UNIX */
-
-#ifdef IKSD
- if (!targetisdir && zchki(p) > -1) { /* Destination file exists? */
- if (inserver && (!ENABLED(en_del)
-#ifdef CK_LOGIN
- || isguest
-#endif /* CK_LOGIN */
- )) {
- printf("?Sorry, overwriting existing files is disabled\n");
- return(-9);
- }
- }
-#endif /* IKSD */
-
- if (tob64 && fromb64) { /* To and from B64 = no conversion */
- tob64 = 0;
- fromb64 = 0;
- }
- debug(F110,"COPY dest",p,0);
-
- while (z > 0) {
-
- znext(line);
- if (!line[0])
- break;
-
- errno = 0; /* Reset errno */
-
- if (listing) printf("%s => %s ",line,p);
-
- /* Straight copy */
- if (!swapping && !appending && !fromb64 && !tob64) {
- debug(F110,"COPY zcopy",line,0);
-
- if ((x = zcopy(line,p)) < 0) { /* Let zcopy() do it. */
- switch (x) {
- case -2:
- if (listing)
- printf("(FAILED: Not a regular file)\n");
- else if (!nolist)
- printf("?Not a regular file - %s\n",line);
- rc = 0;
- break;
- case -3:
- if (listing)
- printf("(FAILED: Not found or not accessible)\n");
- else if (!nolist)
- printf("?Not found or not accessible - %s\n",line);
- rc = 0;
- break;
- case -4:
- if (listing)
- printf("(FAILED: Permission denied)\n");
- else if (!nolist)
- printf("?Permission denied - %s\n",line);
- rc = 0;
- break;
- case -5:
- if (listing)
- printf("(Source and destination are the same file)\n");
- else if (!nolist)
- printf(
- "?Source and destination are the same file - %s\n",
- line
- );
- break;
- case -6:
- if (listing)
- printf("(FAILED: Input/Output error)\n");
- else if (!nolist)
- printf("?Input/Output error - %s\n",line);
- rc = 0;
- break;
- case -7:
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",ck_errstr(),p);
- rc = 0;
- break;
- default:
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s\n",ck_errstr());
- rc = 0;
- }
- } else {
- if (listing) printf("(OK)\n");
- }
-
- } else { /* Special options */
-
- int prev, y, x = 0; /* Variables needed for them */
- int i, t;
- char ibuf[100];
- char obuf[200];
- FILE * in = NULL;
- FILE * out = NULL;
-
- if ((in = fopen(line,"r")) == NULL) { /* Open input file */
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s - %s)\n",ck_errstr(),line);
- rc = 0;
- continue;
- }
- if (targetisdir) { /* Target is directory */
- char * buf = NULL; /* so append this filename to it */
- zstrip(line,&buf);
- p[targetlen] = NUL;
- if (buf)
- ckstrncat(p,buf,TMPBUFSIZ);
- }
-#ifdef OS2ORUNIX
- if (zcmpfn(line,p)) { /* Input and output are same file? */
- if (listing)
- printf("(FAILED: Source and destination identical)\n");
- else if (!nolist)
- printf("?Source and destination identical - %s\n", line);
- rc = 0;
- continue;
- }
-#endif /* OS2ORUNIX */
- if ((out = fopen(p, (appending ? "a" : "w"))) == NULL) {
- fclose(in);
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",p,ck_errstr());
- rc = 0;
- continue;
- }
-#ifndef NOSPL
- if (tob64) { /* Converting to Base-64 */
-
- debug(F110,"COPY tob64",line,0);
-
- while (1) { /* Loop... */
- prev = x;
- if ((x = fread(ibuf,1,54,in)) < 1) { /* EOF */
- if (listing)
- printf("(OK)\n");
- break;
- }
- if (prev % 3) {
- if (listing)
- printf("(FAILED: Phase error at %d)\n",prev);
- else if (!nolist)
- printf("?Phase error at %d\n",prev);
- rc = 0;
- break;
- }
- if (swapping) {
- if (x & 1) {
- if (listing)
- printf("(FAILED: Swap error)\n");
- else if (!nolist)
- printf("?Swap error\n");
- rc = 0;
- break;
- }
- for (i = 0; i < x; i+=2) {
- t = ibuf[i];
- ibuf[i] = ibuf[i+1];
- ibuf[i+1] = t;
- }
- }
- if ((y = b8tob64(ibuf,x,obuf,180)) < 0) {
- if (listing)
- printf("(FAILED: Encoding error)\n");
- else if (!nolist)
- printf("?Encoding error\n");
- rc = 0;
- break;
- }
- fprintf(out,"%s\n",obuf);
- }
-
- } else if (fromb64) { /* Converting from Base 64 */
-
- debug(F110,"COPY fromb64",line,0);
-
- if ((out = fopen(p,appending ? "a" : "w")) == NULL) {
- fclose(in);
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",p,ck_errstr());
- rc = 0;
- continue;
- }
- x = 1;
- while (x) {
- x = fread(ibuf,1,80,in);
- if ((y = b64tob8(ibuf,x,obuf,80)) < 0) {
- if (listing)
- printf("(FAILED: Decoding error)\n");
- else if (!nolist)
- printf("?Decoding error\n");
- rc = 0;
- break;
- }
- if (swapping) {
- if (x & 1) {
- if (listing)
- printf("(FAILED: Swap error)\n");
- else if (!nolist)
- printf("?Swap error\n");
- rc = 0;
- break;
- }
- for (i = 0; i < y; i+=2) {
- t = obuf[i];
- obuf[i] = obuf[i+1];
- obuf[i+1] = t;
- }
- }
- if (y > 0) {
- if (fwrite(obuf,1,y,out) < 1) {
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",p,ck_errstr());
- rc = 0;
- break;
- }
- }
- }
-
- } else
-#endif /* NOSPL */
-
- if (swapping) { /* Swapping bytes */
-
- CHAR c[3];
- c[2] = NUL;
-
- debug(F110,"COPY swapping",line,0);
-
- while (1) {
- x = fread((char *)c,1,2,in);
- if (x < 1) {
- if (listing)
- printf("(OK)\n");
- break;
- } else if (x == 1) {
- c[1] = c[0];
- c[0] = NUL;
- printf(
- "(WARNING: Odd byte count)");
- if (!listing) printf("\n");
- }
- if (fprintf(out,"%c%c",c[1],c[0]) == EOF) {
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",p,ck_errstr());
- rc = 0;
- break;
- }
- }
-
- } else if (appending) { /* Appending to target file */
-
- char c;
-
- debug(F110,"COPY appending",line,0);
-
- while (1) {
- x = fread(&c,1,1,in);
- if (x < 1) {
- if (listing)
- printf("(OK)\n");
- break;
- }
- if (fwrite(&c,1,1,out) < 1) {
- if (listing)
- printf("(FAILED: %s - %s)\n",p,ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",p,ck_errstr());
- rc = 0;
- break;
- }
- }
- }
- if (out) fclose(out);
- if (in) fclose(in);
- }
-#ifdef VMSORUNIX
- concb((char)escape);
-#endif /* VMSORUNIX */
- }
- if (rc > -1) success = rc;
- return(rc);
-}
-#endif /* ZCOPY */
-#endif /* NOFRILLS */
-
-#ifndef NORENAME
-#ifndef NOFRILLS
-#ifdef ZRENAME
-int
-dorenam() {
- /* Parse a file or a directory name */
- int i, x, z, listing = 0, havename = 0, wild = 0, rc = 1;
- int nolist = 0;
- struct FDB sw, fi;
-
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
- _CMKEY, /* fcode */
- "Filename or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nqvswtab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- qvswtab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
-
- cmfdbi(&fi, /* 1st FDB - file to type */
- _CMIFI, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 3, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- while (!havename) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0) /* Error */
- return(x);
- switch (cmresult.fcode) {
- case _CMKEY:
- switch (cmresult.nresult) {
- case DEL_LIS:
- case DEL_VRB:
- listing = 1;
- break;
- case DEL_NOL:
- case DEL_QUI:
- nolist = 1;
- listing = 0;
- break;
- }
- break;
- case _CMIFI:
- s = cmresult.sresult;
- havename = 1;
- break;
- default:
- return(-2);
- }
- }
- wild = cmresult.nresult; /* Source specification wild? */
-
- ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy of source name */
- s = line;
-
- if (!wild)
- wild = iswild(line);
-
- p = tmpbuf; /* Place for new name */
- if ((x = cmofi(wild ? "Target directory" : "New name",
- "",&s,xxstring)) < 0) { /* Get new name */
- if (x == -3) {
- printf("?%s required\n", wild ? "Target directory" : "New name");
- return(-9);
- } else return(x);
- }
- ckstrncpy(p,s,TMPBUFSIZ); /* Make a safe copy of the new name */
- if ((y = cmcfm()) < 0) return(y);
-
- if (!wild) { /* Just one */
- if (listing) printf("%s => %s ",line,p);
- if (zrename(line,p) < 0) {
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s\n",ck_errstr());
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
- return(success = rc);
- }
- if (!isdir(p)) { /* Multiple */
- printf( /* if target is not a directory */
-"?Multiple source files not allowed if target is not a directory.\n");
- return(-9);
- }
-#ifdef COMMENT
- else { /* Show full path of target */
- char buf[CKMAXPATH]; /* (too much) */
- if (zfnqfp(p,CKMAXPATH,buf))
- ckstrncpy(tmpbuf,buf,TMPBUFSIZ);
- }
-#endif /* COMMENT */
-
-#ifdef VMS
- conres(); /* Let Ctrl-C work. */
-#endif /* VMS */
- debug(F110,"dorename line",line,0);
-
-#ifdef ZXREWIND
- z = zxrewind(); /* Rewind file list */
-#else
- z = nzxpand(s,0); /* Expand file list */
-#endif /* ZXREWIND */
- debug(F111,"dorename p",p,z);
-
-#ifdef UNIX
- if (wild && z > 1)
- sh_sort(mtchs,NULL,z,0,0,filecase); /* Alphabetize the filename list */
-#endif /* UNIX */
-
-/*
- Note: COPY, RENAME, DELETE and similar commands should have options to
- stop or proceed when they are operating on multiple files and the operation
- fails.
-*/
- while (z-- > 0) {
- if (!(z == 0 && !wild))
- znext(line);
- if (!line[0])
- break;
- if (listing) printf("%s => %s ",line,p);
- if (zrename(line,p) < 0) {
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",ck_errstr(),line);
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
- }
-#ifdef VMS
- concb((char)escape);
-#endif /* VMS */
- return(success = rc);
-}
-#endif /* ZRENAME */
-#endif /* NOFRILLS */
-#endif /* NORENAME */
-
-#ifndef NOSPL
-
-/* Do the RETURN command */
-
-int
-doreturn(s) char *s; {
- int x;
- extern int tra_asg;
- char * line, * lp;
-
- if (cmdlvl < 1) {
- printf("\n?Can't return from level %d\n",maclvl);
- return(success = 0);
- }
- line = malloc(LINBUFSIZ);
- if (line == NULL)
- return(success = 0);
- lp = line; /* Expand return value now */
- x = LINBUFSIZ-1;
- if (!s) s = "";
- debug(F110,"RETURN s",s,0);
- if (zzstring(s,&lp,&x) > -1) {
- s = line;
- debug(F110,"RETURN zzstring",s,0);
- }
-
- /* Pop from all FOR/WHILE/SWITCH/XIFs */
- while ((maclvl > 0) &&
- (m_arg[maclvl-1][0]) &&
- (cmdstk[cmdlvl].src == CMD_MD) &&
- (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
- !strncmp(m_arg[maclvl-1][0],"_for",4) ||
- !strncmp(m_arg[maclvl-1][0],"_swi",4) ||
- !strncmp(m_arg[maclvl-1][0],"_whi",4))) {
- debug(F111,"RETURN IF/FOR/WHI/SWI pop",m_arg[maclvl-1][0],maclvl);
- dogta(XXPTA); /* Put args back */
- popclvl(); /* Pop up two levels */
- popclvl();
- }
- if (tra_asg) { /* If tracing show return value */
- if (*s)
- printf("<<< %s: \"%s\"\n", m_arg[maclvl][0], s);
- else
- printf("<<< %s: (null)\n", m_arg[maclvl][0]);
- }
- popclvl(); /* Pop from enclosing TAKE or macro */
- debug(F111,"RETURN tolevel",s,maclvl);
- if (!s) s = "";
- if (!*s) s = NULL;
- makestr(&(mrval[maclvl+1]),s); /* Set the RETURN value */
- free(line);
- return(success = 1); /* Macro succeeds if we RETURN */
-}
-#endif /* NOSPL */
-
-#ifndef NOSPL
-/* Do the OPEN command */
-
-int
-doopen() { /* OPEN { append, read, write } */
- int x, y, z = 0; char *s;
- static struct filinfo fcb; /* (must be static) */
- if ((x = cmkey(opntab,nopn,"mode","",xxstring)) < 0) {
- if (x == -3) {
- printf("?Mode required\n");
- return(-9);
- } else return(x);
- }
- switch (x) {
- case OPN_FI_R: /* Old file (READ) */
- if (chkfn(ZRFILE) > 0) {
- printf("?Read file already open\n");
- return(-2);
- }
- if ((z = cmifi("File to read","",&s,&y,xxstring)) < 0) {
- if (z == -3) {
- printf("?Input filename required\n");
- return(-9);
- } else return(z);
- }
- if (y) { /* No wildcards allowed */
- printf("\n?Please specify a single file\n");
- return(-2);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- if ((int)strlen(line) < 1) return(-2);
- if ((z = cmnum("buffer size","4096",10,&y,xxstring)) < 0)
- return(z);
- if (y < 1) {
- printf("?Positive number required\n");
- return(-9);
- }
- if ((z = cmcfm()) < 0) return(z);
- readblock = y;
- if (readbuf)
- free((char *)readbuf);
- if (!(readbuf = (CHAR *) malloc(readblock+1))) {
- printf("?Can't allocate read buffer\n");
- return(-9);
- }
- return(success = zopeni(ZRFILE,line));
-
-#ifndef MAC
-#ifndef NOPUSH
- case OPN_PI_R: /* Pipe/Process (!READ) */
- if (nopush) {
- printf("?Read from pipe disabled\n");
- return(success=0);
- }
- if (chkfn(ZRFILE) > 0) {
- printf("?Read file already open\n");
- return(-2);
- }
- if ((y = cmtxt("System command to read from","",&s,xxstring)) < 0) {
- if (y == -3) {
- printf("?Command name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(line,brstrip(s),LINBUFSIZ);
- if (!line[0]) return(-2);
- if ((y = cmcfm()) < 0) return(y);
- if (!readbuf) {
- if (!(readbuf = (CHAR *) malloc(readblock+1))) {
- printf("?Can't allocate read buffer\n");
- return(-9);
- }
- }
- return(success = zxcmd(ZRFILE,line));
-
- case OPN_PI_W: /* Write to pipe */
- if (nopush) {
- printf("?Write to pipe disabled\n");
- return(success=0);
- }
- if (chkfn(ZWFILE) > 0) {
- printf("?Write file already open\n");
- return(-2);
- }
- if ((y = cmtxt("System command to write to","",&s,xxstring)) < 0) {
- if (y == -3) {
- printf("?Command name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(line,brstrip(s),LINBUFSIZ);
- if (!line[0]) return(-2);
- if ((y = cmcfm()) < 0) return(y);
- success = zxcmd(ZWFILE,line);
- if (!success && msgflg)
- printf("Can't open process for writing: %s\n",line);
- return(success);
-#endif /* NOPUSH */
-#endif /* MAC */
-
- case OPN_FI_W: /* New file (WRITE) */
- case OPN_FI_A: /* (APPEND) */
- if ((z = cmofi("Name of local file to create","",&s,xxstring)) < 0) {
- if (z == -3) {
- printf("?Filename required\n");
- return(-9);
- } else return(z);
- }
- if (z == 2) {
- printf("?Sorry, %s is a directory name\n",s);
- return(-9);
- }
- if (chkfn(ZWFILE) > 0) {
- printf("?Write/Append file already open\n");
- return(-2);
- }
- fcb.bs = fcb.cs = fcb.rl = fcb.fmt = fcb.org = fcb.cc = fcb.typ = 0;
- fcb.lblopts = 0;
- fcb.dsp = (x == OPN_FI_W) ? XYFZ_N : XYFZ_A; /* Create or Append */
- ckstrncpy(line,s,LINBUFSIZ);
- if ((int)strlen(line) < 1) return(-2);
- if ((y = cmcfm()) < 0) return(y);
- return(success = zopeno(ZWFILE,line,NULL,&fcb));
-
-#ifndef NOLOCAL
- case OPN_SER: /* OPEN PORT or LINE */
- case OPN_NET: { /* OPEN HOST */
- extern int didsetlin, ttnproto;
- if (x == OPN_NET) {
- z = ttnproto;
- ttnproto = NP_NONE;
- }
- if ((y = setlin((x == OPN_SER) ? XYLINE : XYHOST, 1, 0)) < 0) {
- if (x == OPN_NET)
- ttnproto = z;
- success = 0;
- }
- didsetlin++;
- return(y);
- }
-#endif /* NOLOCAL */
-
- default:
- printf("?Not implemented");
- return(-2);
- }
-}
-#endif /* NOSPL */
-
-#ifndef NOXFER
-/* D O X G E T -- GET command parser with switches */
-
-#ifdef CK_LABELED
-int g_lf_opts = -1;
-extern int lf_opts;
-#endif /* CK_LABELED */
-
-int
-doxget(cx) int cx; {
- extern int /* External variables we need */
-#ifdef RECURSIVE
- recursive,
-#endif /* RECURSIVE */
- xfermode, fdispla, protocol, usepipes,
- g_binary, g_xfermode, g_displa, g_rpath, g_usepipes;
- extern char * rcv_move; /* Directory to move new files to */
- extern char * rcv_rename; /* What to rename new files to */
- extern char * rcvexcept[]; /* RECEIVE / GET exception list */
- int opkt = 0; /* Flag for O-Packet needed */
-
-#ifdef PIPESEND
- extern int pipesend;
- extern char * rcvfilter;
-#endif /* PIPESEND */
- extern struct keytab rpathtab[];
- extern int nrpathtab;
- extern long calibrate;
- int asname = 0; /* Flag for have as-name */
- int konly = 0; /* Kermit-only function */
- int c, i, n, confirmed = 0; /* Workers */
- int getval = 0; /* Whether to get switch value */
- int rcvcmd = 0; /* Whether it is the RECEIVE command */
- int mget = 0; /* Whether it is the MGET command */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
- struct FDB sw, fl, cm; /* FDBs for each parse function */
- char * cmdstr = "this command";
-
-#ifdef NEWFTP
- if (cx == XXGET || cx == XXREGET || cx == XXMGET || cx == XXRETR) {
- extern int ftpget;
- extern int ftpisopen();
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(doftpget(cx,0));
- }
-#endif /* NEWFTP */
-
- debug(F101,"xget cx","",cx);
-
- oopts = -1;
- omode = -1;
-
- for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
- pv[i].sval = NULL;
- pv[i].ival = -1;
- }
- /* Preset switch values based on top-level command that called us */
-
- switch (cx) {
- case XXREC: /* RECEIVE */
- cmdstr = "RECEIVE";
- rcvcmd = 1; break;
- case XXGET: /* GET */
- cmdstr = "GET";
- konly = 1;
- break;
-#ifdef CK_RESEND
- case XXREGET: /* REGET */
- cmdstr = "REGET";
- konly = 1;
- pv[SND_BIN].ival = 1; /* Implies /BINARY */
- pv[SND_RES].ival = 1; break;
-#endif /* CK_RESEND */
- case XXRETR: /* RETRIEVE */
- cmdstr = "RETRIEVE";
- konly = 1;
- pv[SND_DEL].ival = 1; break;
-#ifdef PIPESEND
- case XXCREC: /* CRECEIVE */
- cmdstr = "CRECEIVE";
- konly = 1;
- rcvcmd = 1;
- pv[SND_CMD].ival = 1; break;
- case XXCGET: /* CGET */
- cmdstr = "CGET";
- konly = 1;
- pv[SND_CMD].ival = 1; break;
-#endif /* PIPESEND */
-#ifndef NOMGET
- case XXMGET: /* MGET */
- cmdstr = "MGET";
- konly = 1;
- mget = 1; break;
-#endif /* NOMGET */
- }
- debug(F111,"xget rcvcmd",cmdstr,rcvcmd);
- debug(F101,"xget konly","",konly);
-
-#ifdef CK_XYZ
- if (!rcvcmd && protocol != PROTO_K) {
- printf("?Sorry, %s works only with Kermit protocol\n",cmdstr);
- return(-9);
- }
-#endif /* CK_XYZ */
-
- /* Set up chained parse functions... */
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- rcvcmd ?
- "Optional name/template to store incoming files under, or switch" :
- "Remote filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- rcvcmd ? nrcvtab : ngettab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- rcvcmd ? rcvtab : gettab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- if (rcvcmd || mget) /* RECEIVE or MGET */
- cmfdbi(&fl,
- _CMTXT, /* fcode */
- rcvcmd ? /* hlpmsg */
- "Output filename or Command" : /* Output filename */
- "File(s) to GET", /* Files we are asking for */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
-#ifdef CK_XYZ
- (protocol == PROTO_X || protocol == PROTO_XC) ?
- xxstring :
- (rcvcmd ? (xx_strp)0 : xxstring)
-#else
- rcvcmd ? (xx_strp)0 : xxstring /* Processing function */
-#endif /* CK_XYZ */
- ,
- NULL,
- &cm
- );
- else
- cmfdbi(&fl, /* Remote filename or command */
- _CMFLD, /* fcode */
- "Remote filename", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- &cm
- );
- cmfdbi(&cm, /* Confirmation */
- _CMCFM, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- NULL,
- NULL,
- NULL
- );
-
- /* (See doxsend() for fuller commentary) */
-
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- debug(F101,"xget cmfdb","",x);
- if (x < 0) /* Error */
- goto xgetx; /* or reparse needed */
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk(); /* Get break character */
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- x = -9;
- goto xgetx;
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- x = -9;
- goto xgetx;
- }
- n = cmresult.nresult; /* Numeric result = switch value */
- debug(F101,"xget switch","",n);
-
- switch (n) { /* Process the switch */
-#ifdef PIPESEND
- case SND_CMD: /* These take no args */
- if (nopush) {
- printf("?Sorry, system command access is disabled\n");
- x = -9;
- goto xgetx;
- } else if (rcvfilter) {
- printf(
-"?Sorry, no GET /COMMAND when RECEIVE FILTER selected\n");
- x = -9;
- goto xgetx;
- }
- if (rcvcmd)
- sw.hlpmsg = "Command, or switch"; /* Change help message */
- /* Fall thru... */
-#endif /* PIPESEND */
-
- case SND_REC: /* /RECURSIVE */
- pv[SND_PTH].ival = PATH_REL; /* Implies relative pathnames */
- pv[n].ival = 1; /* Set the recursive flag */
- break;
-
- case SND_RES: /* /RECOVER */
- pv[SND_BIN].ival = 1; /* Implies /BINARY */
- pv[n].ival = 1; /* Set the resend flag */
- break;
-
- case SND_DEL: /* /DELETE */
- case SND_SHH: /* /QUIET */
- case SND_CAL: /* /CALIBRATE */
- case SND_XPA: /* /TRANSPARENT */
- pv[n].ival = 1; /* Just set the appropriate flag */
- break;
-
- case SND_PIP: /* /PIPES:{ON,OFF} */
- if (!getval) {
- pv[n].ival = 1;
- break;
- }
- if ((x = cmkey(onoff,2,"","on",xxstring)) < 0)
- goto xgetx;
- if (!nopush)
- pv[n].ival = x;
- break;
-
- /* File transfer modes - each undoes the others */
-
- case SND_BIN: /* Binary */
- case SND_TXT: /* Text */
- case SND_IMG: /* Image */
- case SND_LBL: /* Labeled */
- pv[SND_BIN].ival = 0; /* Unset all */
- pv[SND_TXT].ival = 0;
- pv[SND_IMG].ival = 0;
- pv[SND_LBL].ival = 0;
- pv[n].ival = 1; /* Set the requested one */
- break;
-
- case SND_EXC: /* Excludes */
- if (!getval) break;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Pattern required\n");
- x = -9;
- }
- goto xgetx;
- }
- if (pv[n].sval) free(pv[n].sval);
- y = strlen(s);
- if (y > 256) {
- printf("?Pattern too long - 256 max\n");
- x = -9;
- goto xgetx;
- }
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- break;
-
-#ifdef COMMENT
- /* Not implemented */
- case SND_PRI: /* GET to printer */
- pv[n].ival = 1;
- if (!getval) break;
- if ((x = cmfld("Print options","",&s,xxstring)) < 0)
- goto xgetx;
- pv[n].sval = malloc((int)strlen(s)+1);
- if (pv[n].sval)
- strcpy(pv[n].sval,s); /* safe */
- break;
-#endif /* COMMENT */
-
- case SND_MOV: /* MOVE after */
- case SND_REN: /* RENAME after */
- if (!getval) break;
- if ((x = cmfld(n == SND_MOV ?
- "device and/or directory for source file after sending" :
- "new name for source file after sending",
- "",
- &s,
- n == SND_MOV ? xxstring : NULL
- )) < 0) {
- if (x == -3) {
- printf("%s\n", n == SND_MOV ?
- "?Destination required" :
- "?New name required"
- );
- x = -9;
- }
- goto xgetx;
- }
- if (pv[n].sval) {
- free(pv[n].sval);
- pv[n].sval = NULL;
- }
- s = brstrip(s);
- y = strlen(s);
- if (y > 0) {
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- }
- break;
-
- case SND_ASN: /* As-name */
- if (!getval) break;
- if (mget) {
- printf("?Sorry, as-name not allowed with MGET\n");
- x = -9;
- goto xgetx;
- }
- if ((x = cmfld("Name to store it under","",&s,NULL)) < 0)
- goto xgetx;
- s = brstrip(s);
- if ((y = strlen(s)) > 0) {
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- }
- break;
-
-#ifdef PIPESEND
- case SND_FLT: /* Filter */
- debug(F101,"xget /filter getval","",getval);
- if (!getval) break;
- if ((x = cmfld("Filter program to receive through",
- "",&s,NULL)) < 0) {
- if (x == -3)
- s = "";
- else
- goto xgetx;
- }
- if (*s) s = brstrip(s);
- y = strlen(s);
- for (x = 0; x < y; x++) { /* Make sure they included "\v(...)" */
- if (s[x] != '\\') continue;
- if (s[x+1] == 'v') break;
- }
- if (x == y) {
- printf(
- "?Filter must contain a replacement variable for filename.\n"
- );
- x = -9;
- goto xgetx;
- }
- pv[n].ival = 1;
- if (pv[n].sval) {
- free(pv[n].sval);
- pv[n].sval = NULL;
- }
- if ((y = strlen(s)) > 0) {
- if ((pv[n].sval = malloc(y+1)))
- strcpy(pv[n].sval,s); /* safe */
- }
- break;
-#endif /* PIPESEND */
-
- case SND_PTH: /* Pathnames */
- if (!getval) {
- pv[n].ival = PATH_REL;
- break;
- }
- if ((x = cmkey(rpathtab,nrpathtab,"","on",xxstring)) < 0)
- goto xgetx;
- pv[n].ival = x; /* Ditto */
- break;
-
- case SND_NAM: /* Filenames */
- if (!getval) break;
- if ((x = cmkey(fntab,nfntab,"","converted",xxstring)) < 0)
- goto xgetx;
- pv[n].ival = x;
- break;
-
- case SND_PRO: /* Protocol to use */
- if (!getval) break;
- if ((x = cmkey(protos,nprotos,"File-transfer protocol","",
- xxstring)) < 0) {
- if (x == -3)
- x = 0;
- else
- goto xgetx;
- }
- debug(F111,"xget /proto",atmbuf,x);
- pv[n].ival = x;
- if (konly && x != PROTO_K) {
- printf(
-"?Sorry, this command works only with Kermit protocol\n"
- );
- x = -9;
- goto xgetx;
- }
- break;
-
- default:
- printf("?Unexpected switch value - %d\n",cmresult.nresult);
- x = -9;
- goto xgetx;
- }
- }
- debug(F101,"xget cmresult fcode","",cmresult.fcode);
-
- cmarg = line; /* Initialize string pointers */
- cmarg2 = tmpbuf;
- asname = 0;
- line[0] = NUL; /* and buffers. */
- tmpbuf[0] = NUL;
-
- switch (cmresult.fcode) { /* How did we get out of switch loop */
- case _CMFLD: /* (3) Remote filespec */
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- break;
- case _CMTXT: /* (4) As-name */
- if (rcvcmd) {
- ckstrncpy(tmpbuf,cmresult.sresult,TMPBUFSIZ);
- if ((int)strlen(tmpbuf) > 0)
- asname = 1;
- } else {
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- }
- case _CMCFM: /* (6) Confirmation */
- confirmed = 1;
- break;
- default:
- printf("?Unexpected function code: %d\n",cmresult.fcode);
- x = -9;
- goto xgetx;
- }
- debug(F110,"xget string",cmarg,0);
- debug(F101,"xget confirmed","",confirmed);
-
- cmarg = brstrip(cmarg); /* Strip any braces */
-
- if (!confirmed) { /* CR not typed yet, get more fields */
- if (pv[SND_CMD].ival > 0) {
- debug(F100,"xget calling cmtxt","",0);
- x = cmtxt("Local command to pipe into","",&s,NULL);
- if (x < 0 && x != -3) goto xgetx;
- if (x != -3) {
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- asname = 1;
- }
- } else if (!rcvcmd) {
-#ifdef VMS
- /* cmofi() fails if you give it a directory name */
- x = cmfld("Name or directory for incoming file","",&s,NULL);
- debug(F111,"xget cmfld",s,x);
-#else
- x = cmofi("Name or directory for incoming file","",&s,NULL);
- debug(F111,"xget cmofi",s,x);
-#endif /* VMS */
- if (x < 0 && x != -3) goto xgetx;
- if (x != -3) {
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- if ((x = cmcfm()) < 0) goto xgetx;
- asname = 1;
- }
- }
- }
- /* Arrive here with cmarg and cmarg2 all set */
-
- debug(F111,"xget asname",cmarg2,asname);
- if (!asname) {
- if (pv[SND_ASN].sval)
- ckstrncpy(tmpbuf,pv[SND_ASN].sval,TMPBUFSIZ);
- else
- tmpbuf[0] = NUL;
- }
- cmarg2 = brstrip(cmarg2); /* Strip outer braces if any. */
- debug(F110,"xget cmarg",cmarg,0);
- debug(F110,"xget cmarg2",cmarg2,0);
-
- if (!*cmarg &&
- (cx == XXGET || cx == XXREGET || cx == XXCGET || cx == XXMGET)) {
- printf("?A remote file specification is required\n");
- x = -9;
- goto xgetx;
- }
-#ifdef PIPESEND
- if (pv[SND_CMD].ival > 0) { /* /COMMAND sets pipesend flag */
- x = -9;
- if (!*cmarg2) {
- printf("?Command required\n");
- goto xgetx;
- } else if (nopush) {
- printf("?Sorry, system command access is disabled\n");
- goto xgetx;
- } else if (rcvfilter) {
- printf("?Sorry, no GET /COMMAND while RECEIVE FILTER selected\n");
- goto xgetx;
- } else
- pipesend = 1;
- }
- debug(F101,"xget /COMMAND pipesend","",pipesend);
-#endif /* PIPESEND */
-
-#ifdef CK_RESEND
- if (pv[SND_RES].ival > 0) { /* REGET or GET /RECOVER */
-#ifdef RECURSIVE
- if (pv[SND_REC].ival > 0) { /* RECURSIVE */
-#ifdef COMMENT
- printf("?Unsupported option combination: /RECOVER /RECURSIVE\n");
- x = -9;
- goto xgetx;
-#else
- opkt = 1;
-#endif /* COMMENT */
- }
-#endif /* RECURSIVE */
- if (pv[SND_DEL].ival > 0) { /* /DELETE */
-#ifdef COMMENT
- printf("?Unsupported option combination: /RECOVER /DELETE\n");
- x = -9;
- goto xgetx;
-#else
- opkt = 1;
-#endif /* COMMENT */
- }
- }
-#endif /* CK_RESEND */
-
- if (pv[SND_EXC].ival > 0) /* /EXCEPT */
- makelist(pv[SND_EXC].sval,rcvexcept,NSNDEXCEPT);
-
-#ifdef IKS_OPTION
- if (!rcvcmd
-#ifdef CK_XYZ
- && protocol == PROTO_K
-#endif /* CK_XYZ */
- ) {
- if (!iks_wait(KERMIT_REQ_START,1)) {
- printf(
- "?A Kermit Server is not available to process this command\n");
- x = -9; /* correct the return code */
- goto xgetx;
- }
- }
-#endif /* IKS_OPTION */
-
-#ifdef CK_XYZ
- {
- int po, pg; /* (for clarity) */
- po = pv[SND_PRO].ival; /* /PROTOCOL option */
- pg = protocol; /* Protocol global */
- if ((rcvcmd && !*cmarg2) && /* If no as-name was given */
- /* and /PROTOCOL is XMODEM or global protocol is XMODEM... */
- ((po < 0 && (pg == PROTO_X || pg == PROTO_XC)) ||
- (po > -1 && (po == PROTO_X || po == PROTO_XC)))
- ) {
- printf(
-"Sorry, you must specify a name when receiving a file with XMODEM protocol\n"
- );
- x = -9;
- goto xgetx;
- }
- }
-#endif /* CK_XYZ */
-
-#ifdef RECURSIVE
- if (pv[SND_REC].ival > 0) { /* RECURSIVE */
- recursive = 1;
- pv[SND_PTH].ival = PATH_REL; /* Implies relative pathnames too */
- }
-#endif /* RECURSIVE */
-
- if (pv[SND_PIP].ival > -1) {
- g_usepipes = usepipes;
- usepipes = pv[SND_PIP].ival;
- }
-
- /* Save global protocol parameters */
-
- g_proto = protocol;
-#ifdef CK_LABELED
- g_lf_opts = lf_opts; /* Save labeled transfer options */
-#endif /* CK_LABELED */
- g_urpsiz = urpsiz; /* Receive packet length */
- g_spsizf = spsizf; /* Send packet length flag */
- g_spsiz = spsiz; /* Send packet length */
- g_spsizr = spsizr; /* etc etc */
- g_spmax = spmax;
- g_wslotr = wslotr;
- g_prefixing = prefixing;
- g_fncact = fncact;
- g_fncnv = fncnv;
- g_fnspath = fnspath;
- g_fnrpath = fnrpath;
- g_xfrxla = xfrxla;
-
- if (pv[SND_PRO].ival > -1) { /* Change according to switch */
- protocol = pv[SND_PRO].ival;
- if (ptab[protocol].rpktlen > -1) /* copied from initproto() */
- urpsiz = ptab[protocol].rpktlen;
- if (ptab[protocol].spktflg > -1)
- spsizf = ptab[protocol].spktflg;
- if (ptab[protocol].spktlen > -1) {
- spsiz = ptab[protocol].spktlen;
- if (spsizf)
- spsizr = spmax = spsiz;
- }
- if (ptab[protocol].winsize > -1)
- wslotr = ptab[protocol].winsize;
- if (ptab[protocol].prefix > -1)
- prefixing = ptab[protocol].prefix;
- if (ptab[protocol].fnca > -1)
- fncact = ptab[protocol].fnca;
- if (ptab[protocol].fncn > -1)
- fncnv = ptab[protocol].fncn;
- if (ptab[protocol].fnsp > -1)
- fnspath = ptab[protocol].fnsp;
- if (ptab[protocol].fnrp > -1)
- fnrpath = ptab[protocol].fnrp;
- }
- debug(F101,"xget protocol","",protocol);
- debug(F111,"xget cmarg2",cmarg2,xfermode);
-
- g_xfermode = xfermode;
- g_binary = binary;
- if (pv[SND_BIN].ival > 0) { /* Change according to switch */
- xfermode = XMODE_M;
- binary = XYFT_B; /* FILE TYPE BINARY */
- omode = GMOD_BIN; /* O-Packet mode */
- debug(F101,"doxget /BINARY xfermode","",xfermode);
- } else if (pv[SND_TXT].ival > 0) { /* Ditto for /TEXT */
- xfermode = XMODE_M;
- binary = XYFT_T;
- omode = GMOD_TXT;
- debug(F101,"doxget /TEXT xfermode","",xfermode);
- } else if (pv[SND_IMG].ival > 0) {
- xfermode = XMODE_M;
-#ifdef VMS
- binary = XYFT_I;
-#else
- binary = XYFT_B;
-#endif /* VMS */
- omode = GMOD_TXT;
- debug(F101,"doxget /IMAGE xfermode","",xfermode);
- }
-#ifdef CK_LABELED
- else if (pv[SND_LBL].ival > 0) {
- xfermode = XMODE_M;
- binary = XYFT_L;
- omode = GMOD_LBL;
- debug(F101,"doxget /LABELED xfermode","",xfermode);
- }
-#endif /* CK_LABELED */
- debug(F101,"xget binary","",binary);
- debug(F101,"xget omode","",omode);
-
- if (pv[SND_XPA].ival > 0) /* /TRANSPARENT */
- xfrxla = 0; /* Don't translate character sets */
-
-#ifdef PIPESEND
- if (pv[SND_FLT].ival > 0)
- makestr(&rcvfilter,pv[SND_FLT].sval);
-#endif /* PIPESEND */
-
-#ifdef CK_TMPDIR
- if (pv[SND_MOV].ival > 0) {
- int len;
- char * p = pv[SND_MOV].sval;
-#ifdef CK_LOGIN
- if (isguest) {
- printf("?Sorry, /MOVE-TO not available to guests\n");
- x = -9;
- goto xgetx;
- }
-#endif /* CK_LOGIN */
- len = strlen(p);
- if (!isdir(p)) { /* Check directory */
-#ifdef CK_MKDIR
- char * s = NULL;
- s = (char *)malloc(len + 4);
- if (s) {
- strcpy(s,p); /* safe */
-#ifdef datageneral
- if (s[len-1] != ':') { s[len++] = ':'; s[len] = NUL; }
-#else
- if (s[len-1] != '/') { s[len++] = '/'; s[len] = NUL; }
-#endif /* datageneral */
- s[len++] = 'X';
- s[len] = NUL;
- x = zmkdir(s);
- free(s);
- if (x < 0) {
- printf("?Can't create \"%s\"\n",p);
- x = -9;
- goto xgetx;
- }
- }
-#else
- printf("?Directory \"%s\" not found\n",p);
- x = -9;
- goto xgetx;
-#endif /* CK_MKDIR */
- }
- zfnqfp(p,LINBUFSIZ,line);
- makestr(&rcv_move,line);
- }
-#endif /* CK_TMPDIR */
-
- if (pv[SND_REN].ival > 0) { /* /RENAME-TO:name */
- char * p = pv[SND_REN].sval;
-#ifdef CK_LOGIN
- if (isguest) {
- printf("?Sorry, /RENAME-TO not available to guests\n");
- x = -9;
- goto xgetx;
- }
-#endif /* CK_LOGIN */
- if (!p) p = "";
- if (!*p) {
- printf("?New name required for /RENAME\n");
- x = -9;
- goto xgetx;
- }
- p = brstrip(p);
- makestr(&rcv_rename,p);
- debug(F110,"xget rcv_rename","",0);
- }
-
-#ifdef CALIBRATE
- if (pv[SND_CAL].ival > 0)
- calibrate = 1L;
-#endif /* CALIBRATE */
- g_displa = fdispla;
- if (pv[SND_SHH].ival > 0)
- fdispla = 0;
- debug(F101,"xget display","",fdispla);
-
- if (pv[SND_NAM].ival > -1) { /* /FILENAMES */
- g_fncnv = fncnv; /* Save global value */
- fncnv = pv[SND_NAM].ival;
- debug(F101,"xsend fncnv","",fncnv);
- /* We should also handle O packet filename option here */
- /* but we don't really need to since WHATAMI already handles it */
- }
- if (pv[SND_PTH].ival > -1) { /* PATHNAMES */
- g_rpath = fnrpath; /* Save global values */
- fnrpath = pv[SND_PTH].ival;
- debug(F101,"xsend fnrpath","",fnrpath);
-#ifndef NZLTOR
- if (fnrpath != PATH_OFF) {
- g_fncnv = fncnv;
- fncnv = XYFN_L;
- debug(F101,"xsend fncnv","",fncnv);
- }
- /* We should also handle O packet pathname option here */
- /* but we don't really need to since WHATAMI already handles it */
-#endif /* NZLTOR */
- }
-
- /* Set protocol start state */
-
- if (opkt) { /* Extended GET Options*/
- sstate = (CHAR) 'o';
- oopts = 0;
- if (pv[SND_DEL].ival > 0) oopts |= GOPT_DEL; /* GET /DELETE */
- if (pv[SND_RES].ival > 0) oopts |= GOPT_RES; /* GET /RECOVER */
- if (pv[SND_REC].ival > 0) oopts |= GOPT_REC; /* GET /RECURSIVE */
- } else if (rcvcmd)
- sstate = (CHAR) 'v'; /* RECEIVE or CRECEIVE */
- else if (pv[SND_DEL].ival > 0)
- sstate = (CHAR) 'h'; /* GET /DELETE (= RETRIEVE) */
- else if (pv[SND_RES].ival > 0)
- sstate = (CHAR) 'j'; /* GET /RECOVER (= REGET) */
- else
- sstate = (CHAR) 'r'; /* Regular GET */
- getcmd = 1;
- debug(F000,"xget sstate","",sstate);
-#ifdef MAC
- what = W_RECV;
- scrcreate();
-#endif /* MAC */
- if (local) {
- if (pv[SND_SHH].ival != 0)
- displa = 1;
- ttflui();
- }
- x = 0;
-#ifdef PIPESEND
- if (pipesend)
- goto xgetx;
-#endif /* PIPESEND */
-
-#ifdef CK_TMPDIR
-/*
- cmarg2 is also allowed to be a device or directory name;
- even the name of a directory that doesn't exist.
-*/
- y = strlen(cmarg2);
- debug(F111,"xget strlen(cmarg2)",cmarg2,y);
- if ((y > 0) &&
-#ifdef OS2
- ((isalpha(cmarg2[0]) &&
- cmarg2[1] == ':' &&
- cmarg2[2] == NUL) ||
- (cmarg[y-1] == '/' || cmarg[y-1] == '\\') ||
- isdir(cmarg2))
-#else
-#ifdef UNIXOROSK
- (cmarg2[y-1] == '/' || isdir(cmarg2))
-#else
-#ifdef VMS
- (cmarg2[y-1] == ']' || cmarg2[y-1] == '>' || isdir(cmarg2))
-#else
-#ifdef STRATUS
- (cmarg2[y-1] == '>' || isdir(cmarg2))
-#else
-#ifdef datageneral
- (cmarg2[y-1] == ':' || cmarg[0] == ':' || isdir(cmarg2))
-#else
- isdir(cmarg2)
-#endif /* datageneral */
-#endif /* STRATUS */
-#endif /* VMS */
-#endif /* UNIXOROSK */
-#endif /* OS2 */
- ) {
- debug(F110,"doxget RECEIVE cmarg2 disk or dir",cmarg2,0);
- if (!f_tmpdir) {
- int x;
- s = zgtdir();
- if (s) {
- ckstrncpy(savdir,s,TMPDIRLEN); /* remember old disk/dir */
- f_tmpdir = 1; /* and that we did this */
- } else {
- printf("?Can't get current directory\n");
- cmarg2 = "";
- f_tmpdir = 0;
- x = -9;
- goto xgetx;
- }
-#ifdef CK_MKDIR
- x = zchki(cmarg2); /* Does as-name exist? */
- if (x == -1) { /* Doesn't exist */
- char * p = NULL; /* Try to create it */
- x = strlen(cmarg2);
- if ((p = (char *)malloc(x+4))) {
- sprintf(p,"%s%s",cmarg2,"x.x"); /* SAFE (prechecked) */
- x = zmkdir(p);
- free(p);
- if (x < 0) {
- printf("?Can't create %s\n",cmarg2);
- x = -9;
- goto xgetx;
- }
- }
- }
-#endif /* CK_MKDIR */
- if (!zchdir(cmarg2)) { /* change to given disk/directory, */
- printf("?Can't access %s\n",cmarg2);
- x = -9;
- goto xgetx;
- }
- cmarg2 = "";
- }
- }
-#endif /* CK_TMPDIR */
-
- ckstrncpy(fspec,cmarg,CKMAXPATH); /* Note - this is a REMOTE filespec */
- debug(F111,"xget fspec",fspec,fspeclen);
- debug(F110,"xget cmarg2",cmarg2,0);
-
- xgetx:
- for (i = 0; i < SND_MAX; i++)
- if (pv[i].sval)
- free(pv[i].sval);
- return(x);
-}
-#endif /* NOXFER */
-
-#ifndef NOSPL
-
-/*
- D O G T A -- Do _GETARGS or _PUTARGS Command.
-
- Used by XIF, FOR, WHILE, and SWITCH, each of which are implemented as
- 2-level macros; the first level defines the macro, the second runs it.
- This routine hides the fact that they are macros by importing the
- macro arguments (if any) from two levels up, to make them available
- in the IF, FOR, SWITCH, and WHILE commands themselves; for example as
- loop indices, etc, and within the IF/FOR/WHILE/SWITCH body itself.
- _PUTARGS is in case we changed any of these variables or used SHIFT
- on them, so the new values won't be lost as we pop up the stack.
-*/
-int
-dogta(cx) int cx; {
- int i, n;
- char c, *p, mbuf[4];
- extern int topargc, cmdint;
- extern char ** topxarg;
-
- if ((y = cmcfm()) < 0)
- return(y);
- debug(F101,"dogta cx","",cx);
- debug(F101,"dogta maclvl","",maclvl);
- if (cx == XXGTA) {
- debug(F101,"dogta _GETARGS maclvl","",maclvl);
- } else if (cx == XXPTA) {
- debug(F101,"dogta _PUTARGS maclvl","",maclvl);
- } else {
- return(-2);
- }
- if (maclvl < 1)
- return(success = 0);
-
- /* Make new copies of macro arguments /%0..9 */
-
- mbuf[0] = '%'; mbuf[1] = '0'; mbuf[2] = NUL; /* Argument name buf */
-
- if (cx == XXPTA) { /* Go NOINT because _PUTARGS */
- if (cmdint) /* temporarily changes maclvl. */
- connoi(); /* Interrupts OFF. */
- }
- for (i = 0; i < 10; i++) { /* For all args */
- c = (char) (i + '0'); /* Make name */
- mbuf[1] = (char) c; /* Insert digit */
- if (cx == XXGTA) { /* Get arg from level-minus-2 */
- if (maclvl == 1) p = g_var[c]; /* If at level 1 use globals 0..9 */
- else p = m_arg[maclvl-2][i]; /* Otherwise they're on the stack */
- addmac(mbuf,p);
-#ifdef COMMENT
- if (maclvl > 1)
- makestr(&(m_line[maclvl]),m_line[maclvl-2]);
-#endif /* COMMENT */
- } else if (cx == XXPTA) { /* Put args level+2 */
- maclvl -= 2; /* This is gross, it's because we're */
- addmac(mbuf,m_arg[maclvl+2][i]); /* adding macros two levels up */
- maclvl += 2; /* and addmac() uses maclvl. */
- count[cmdlvl - 2] = count[cmdlvl];
- intime[cmdlvl - 2] = intime[cmdlvl];
- inpcas[cmdlvl - 2] = inpcas[cmdlvl];
- takerr[cmdlvl - 2] = takerr[cmdlvl];
- merror[cmdlvl - 2] = merror[cmdlvl];
- xquiet[cmdlvl - 2] = xquiet[cmdlvl];
- } else return(success = 0); /* Bad call to this routine */
- }
- if (cx == XXPTA) { /* Restore interrupts if we */
- if (cmdint) /* turned them off above. */
- conint(trap,stptrap);
- }
- /* Now take care of the argument vector array \&_[], \v(return), */
- /* and \v(argc) by just copying the pointers. */
-
- if (cx == XXGTA) { /* GETARGS from 2 levels up */
- if (maclvl == 1) {
- a_ptr[0] = topxarg; /* \&_[] array */
- a_dim[0] = topargc - 1; /* Dimension doesn't include [0] */
- m_xarg[maclvl] = topxarg;
- n_xarg[maclvl] = topargc; /* But \v(argc) does include \%0 */
- macargc[maclvl] = topargc;
- makestr(&(mrval[maclvl+1]),mrval[0]); /* (see vnlook()) */
- } else {
- a_ptr[0] = m_xarg[maclvl-2];
- a_dim[0] = n_xarg[maclvl-2];
- m_xarg[maclvl] = m_xarg[maclvl-2];
- n_xarg[maclvl] = n_xarg[maclvl-2];
- macargc[maclvl] = n_xarg[maclvl-2];
- makestr(&(mrval[maclvl+1]),mrval[maclvl-1]); /* (see vnlook()) */
-
- }
- } else { /* PUTARGS 2 levels up */
- if (maclvl > 1) {
- a_ptr[0] = m_xarg[maclvl];
- m_xarg[maclvl-2] = m_xarg[maclvl];
- a_dim[0] = n_xarg[maclvl];
- n_xarg[maclvl-2] = n_xarg[maclvl];
- macargc[maclvl-2] = n_xarg[maclvl];
- }
- }
- return(1); /* Internal command - don't change success */
-}
-#endif /* NOSPL */
-
-#ifndef NOSPL
-/*
- Do the GOTO and [_]FORWARD commands.
- s = Label to search for, cx = function code: XXGOTO, XXFWD, or XXXFWD.
-*/
-#ifdef BIGBUFOK
-#define LBLMAXLEN 255 /* Max label length */
-#else
-#define LBLMAXLEN 63
-#endif /* BIGBUFOK */
-
-int
-dogoto(s, cx) char *s; int cx; {
- int i, j, x, y, z, bc;
- int empty = 0, stopflg = 0;
- char * cmd; /* Name of this command */
- char tmplbl[LBLMAXLEN+1], *lp; /* Current label from command stream */
- char tmp2[LBLMAXLEN+1]; /* SWITCH label conversion buffer */
- char tmp3[LBLMAXLEN+1]; /* Target label */
-
- stopflg = (cx == XXXFWD); /* _FORWARD (used in SWITCH) */
- bc = 0; /* Brace counter */
-
- cmd = (cx == XXGOTO) ? "GOTO" : ((cx == XXFWD) ? "FORWARD" : "_FORWARD");
- if (!s) s = "";
- if (!*s) empty = 1;
-
-#ifdef DEBUG
- if (deblog) {
- debug(F111,"GOTO command",cmd,cx);
- debug(F101,"GOTO cmdlvl","",cmdlvl);
- debug(F101,"GOTO maclvl","",maclvl);
- debug(F101,"GOTO tlevel","",tlevel);
- debug(F111,"GOTO target",s,empty);
- }
-#endif /* DEBUG */
- debug(F110,cmd,s,0);
- ckstrncpy(tmp3+1,s,LBLMAXLEN-1);
- s = tmp3+1;
- if (*s != ':') { /* Make copy of label */
- tmp3[0] = ':'; /* guaranteed to start with ":" */
- s--;
- }
- if (!stopflg && !empty) {
- if (s[1] == '.' || s[1] == SP || s[1] == NUL) {
- printf("?Bad label syntax - '%s'\n",s);
- return(success = 0);
- }
- }
- if (cmdlvl == 0) {
- printf("?Sorry, %s only works in a command file or macro\n",cmd);
- return(success = 0);
- }
- y = strlen(s); /* y = length of target label */
- debug(F111,cmd,s,y);
-
- while (cmdlvl > 0) { /* As long as not at top level... */
- if (cmdstk[cmdlvl].src == CMD_MD) { /* GOTO inside macro */
- int i, m, flag;
- char *xp, *tp;
-
- /* GOTO: rewind the macro; FORWARD: start at current position */
-
- lp = (cx == XXGOTO) ? macx[maclvl] : macp[maclvl];
- m = (int)strlen(lp) - y + 1;
- debug(F010,"GOTO in macro",lp,0);
-
- flag = 1; /* flag for valid label position */
- for (i = 0; i < m; i++,lp++) { /* search for label in macro body */
- if (*lp == '{') /* But only at this level */
- bc++; /* Anything inside braces is off */
- else if (*lp == '}') /* limits. */
- bc--;
- if (stopflg && bc > 0) /* This is good for SWITCH */
- continue; /* but interferes with WHILE, etc. */
- if (*lp == ',') {
- flag = 1;
- continue;
- }
- if (flag) { /* If in valid label position */
- if (*lp == SP) /* eat leading spaces */
- continue;
- if (*lp != ':') { /* Look for label introducer */
- flag = 0; /* this isn't it */
- continue; /* keep looking */
- }
- }
- if (!flag) /* We don't have a label */
- continue; /* so keep looking... */
- xp = lp; tp = tmplbl; /* Copy the label from the macro */
- j = 0; /* to make it null-terminated */
- while ((*tp = *xp)) {
- if (j++ > LBLMAXLEN) /* j = length of word from macro */
- break;
-#ifdef COMMENT
- if (*tp < 33 || *tp == ',') /* Look for end of word */
-#else
- if (!*tp || *tp == ',') /* Look for end of word */
-#endif /* COMMENT */
- break;
- else tp++, xp++; /* Next character */
- }
- *tp = NUL; /* In case we stopped early */
- /* Now do caseless string comparison, using longest length */
- debug(F111,"macro GOTO label",s,y);
- debug(F111,"macro target label",tmplbl,j);
- if (stopflg) { /* Allow variables as SWITCH labels */
- int n = LBLMAXLEN - 1;
- char * p = tmp2;
- zzstring(tmplbl,&p,&n);
- ckstrncpy(tmplbl,tmp2,LBLMAXLEN);
- tmp2[49] = NUL;
- }
- debug(F111,"GOTO s",s,y);
- debug(F111,"GOTO tmplbl",tmplbl,j);
- debug(F101,"GOTO empty",ckitoa(stopflg),empty);
-
- if (empty) { /* Empty target */
- z = (!strcmp(s,":") && /* String is empty */
- /* and Label is ":" or ":*"... */
- (!strcmp(tmplbl,":") || !strcmp(tmplbl,":*")))
- ? 0 : 1;
- debug(F111,"GOTO","A",z);
- } else if (stopflg) {
- z = ckmatch(tmplbl,s,inpcas[cmdlvl],1) ? 0 : 1;
- debug(F111,"GOTO","B",z);
- } else {
- z = (stopflg && inpcas[cmdlvl]) ?
- strcmp(s,tmplbl) :
- ckstrcmp(s,tmplbl,(y > j) ? y : j, 0);
- debug(F111,"GOTO","C",z);
- }
- if (!z) {
- break;
- } else if (stopflg &&
- !ckstrcmp(":default",tmplbl,(8 > j) ? 8 : j, 0)) {
- debug(F100,"GOTO DEFAULT","",0);
- break;
- } else {
- flag = 0;
- }
- }
- debug(F111,"GOTO macro i",cmd,i);
- debug(F111,"GOTO macro m",cmd,m);
- if (i >= m) { /* Didn't find the label */
- debug(F101,"GOTO failed cmdlvl","",cmdlvl);
-#ifdef COMMENT
- /* MOVED TO AFTER POPCLVL ABOUT 20 LINES DOWN 5 AUG 2002 */
- if (stopflg)
- return(0);
-#endif /* COMMENT */
- if ((maclvl > 0) &&
- (m_arg[maclvl-1][0]) &&
- (cmdstk[cmdlvl].src == CMD_MD) &&
- (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
- !strncmp(m_arg[maclvl-1][0],"_for",4) ||
- !strncmp(m_arg[maclvl-1][0],"_swi",4) ||
- !strncmp(m_arg[maclvl-1][0],"_whi",4))) {
- dogta(XXPTA); /* Restore args */
- debug(F101,"GOTO in XIF/FOR/WHI/SWI popping","",cmdlvl);
- popclvl(); /* Pop an extra level */
- }
- debug(F101,"GOTO popping","",cmdlvl);
- if (!popclvl()) { /* pop up to next higher level */
- printf("?Label '%s' not found\n",s); /* if none */
- return(0); /* Quit */
- } else if (stopflg) { /* SWITCH no case label match */
- return(0); /* and no DEFAULT lable. */
- } else {
- continue; /* otherwise look again */
- }
- }
- debug(F110,"GOTO found macro label",tmplbl,0);
- macp[maclvl] = lp; /* set macro buffer pointer */
- return(1);
- } else if (cmdstk[cmdlvl].src == CMD_TF) {
- x = 0; /* GOTO issued in take file */
- debug(F111,"GOTO in TAKE file",cmd,cx);
- if (cx == XXGOTO) { /* If GOTO, but not FORWARD, */
- rewind(tfile[tlevel]); /* search file from beginning */
- tfline[tlevel] = 0;
- }
- while (! feof(tfile[tlevel])) {
-#ifdef COMMENT
-/* This is wrong - it lets us jump to labels inside inferior blocks */
- tfline[tlevel]++;
- if (fgets(line,LINBUFSIZ,tfile[tlevel]) == NULL) /* Get line */
-#else
- if (getnct(line,LINBUFSIZ,tfile[tlevel],0) < 0)
-#endif /* COMMENT */
- break; /* If no more, done, label not found */
- lp = line; /* Got line */
- while (*lp == SP || *lp == HT)
- lp++; /* Strip leading whitespace */
- if (*lp != ':') continue; /* Check for label introducer */
- while (*(lp+1) == SP) { /* Remove space between : and name */
- *(lp+1) = ':';
- lp++; /* Strip leading whitespace */
- }
- tp = lp; /* Get end of word */
- j = 0;
- while (*tp) { /* And null-terminate it */
- if (*tp < 33) {
- *tp = NUL;
- break;
- } else tp++, j++;
- }
- if (!ckstrcmp(lp,s,(y > j) ? y : j,0)) { /* Caseless compare */
- x = 1; /* Got it */
- break; /* done. */
- } else if (stopflg &&
- !ckstrcmp(":default",tmplbl,(8 > j) ? 8 : j,0)) {
- x = 1;
- break;
- }
- }
- if (x == 0) { /* If not found, print message */
- debug(F101,"GOTO failed at cmdlvl","",cmdlvl);
- if (stopflg)
- return(0);
- if (!popclvl()) { /* pop up to next higher level */
- printf("?Label '%s' not found\n",s); /* if none */
- return(0); /* quit */
- } else continue; /* otherwise look again */
- }
- return(x); /* Send back return code */
- }
- }
- printf("?Stack problem in GOTO %s\n",s); /* Shouldn't see this */
- return(0);
-}
-#endif /* NOSPL */
-
-/* Finish parsing and do the IF, XIF, and WHILE commands */
-
-#ifndef NOSPL
-
-/* C H K V A R -- Check (if it's a) Variable */
-
-
-#ifdef OLDCHKVAR
-/*
- Crude and disgusting, but needed for OS/2, DOS, and Windows, where filenames
- have backslashes in them. How do we know if a backslash in a filename is a
- directory separator, or if it's a Kermit backslash? This routine does a
- rough syntax check of the next few characters and if it looks like it MIGHT
- be a variable, then it tries to evaluate it, and if the result is not empty,
- we say it's a variable, although sometimes it might not be -- some cases are
- truly ambiguous. For example there might a DOS directory called \%a, and
- we also have a variable with the same name. This is all for the sake of not
- having to tell PC users that they have to double all backslashes in file
- and directory names.
-*/
-#else
-/*
- Somewhat less crude & disgusting. The previous method was nondeterministic
- and (worse) it interfered with macro argument passing. So now we only
- check the syntax of backslash-items to see if they are variables, but we
- do NOT check their values.
-*/
-#endif /* OLDCHKVAR */
-/*
- Call with a string pointer pointing at the backslash of the purported
- variable. Returns 1 if it has the syntax of a variable, 0 if not.
-*/
-int
-chkvar(s) char *s; {
- int z = 0; /* Return code - assume failure. */
- if (!s) s = ""; /* Watch our for null pointers. */
- if (!*s) return(0); /* Empty arg so not a variable. */
- if (*s == CMDQ) { /* Object begins with backslash. */
- char c;
- c = s[1]; /* Character following backslash. */
- if (c) {
- int t = 0;
- if (c == CMDQ) /* Quoted backslash */
- return(1);
- c = (char) (islower(c) ? toupper(c) : c); /* Otherwise... */
- if (c == '%') { /* Simple variable */
-#ifdef OLDCHKVAR
- t = 1;
-#else
- return(1);
-#endif /* OLDCHKVAR */
- } else if (c == '&') { /* Array */
- if (!s[2]) return(0);
- if (s[3] == '[')
- t = ckindex("]",s,4,0,1);
-#ifndef OLDCHKVAR
- return((t > 0) ? 1 : 0);
-#endif /* OLDCHKVAR */
- } else if (c == '$' || /* Environment variable */
- c == 'V' || /* Built-in variable */
- c == 'M') { /* Macro name */
- t = (s[2] == '(');
-#ifndef OLDCHKVAR
- return((t > 0) ? 1 : 0);
-#endif /* OLDCHKVAR */
- } else if (c == 'F') { /* Function reference */
- /* Don't actually call it - it might have side effects */
- int x;
- if ((x = ckindex("(",s,3,0,1))) /* Just check syntax */
- if ((x = ckindex(")",s,x,0,1)))
- z = 1;
- /* Insert a better syntax check here if necessary */
- }
-#ifdef OLDCHKVAR
- if (t) {
- t = 255; /* This lets us test \v(xxx) */
- lp = line; /* and even \f...(xxx) */
- zzstring(s,&lp,&t); /* Evaluate it, whatever it is. */
- t = strlen(line); /* Get its length. */
- debug(F111,"chkvar",line,t);
- z = t > 0; /* If length > 0, it's defined */
- }
-#endif /* OLDCHKVAR */
- }
- }
- return(z);
-}
-
-/* B O O L E X P -- Evaluate a Boolean expression */
-
-#define BOOLLEN 1024
-static char boolval[BOOLLEN];
-
-int
-boolexp(cx) int cx; {
- int x, y, z; char *s, *p;
- int parens = 0, pcount = 0, ecount = 0;
- char *q, *bx;
- struct FDB kw, nu;
-#ifdef FNFLOAT
- struct FDB fl;
- CKFLOAT f1 = 0.0, f2 = 0.0;
- int f1flag = 0, f2flag = 0;
-#endif /* FNFLOAT */
-#ifdef OS2
- extern int keymac;
-#endif /* OS2 */
-
- not = 0; /* Flag for whether "NOT" was seen */
- z = 0; /* Initial IF condition */
- ifargs = 0; /* Count of IF condition words */
- bx = boolval; /* Initialize boolean value */
- *bx = NUL;
-
- ifagain:
- cmfdbi(&kw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Number, numeric-valued variable, Boolean expression, or keyword",
- "", /* default */
- "", /* addtl string data */
- nif, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 4 = silent */
- xxstring, /* Processing function */
- iftab, /* Keyword table */
- &nu /* Pointer to next FDB */
- );
- cmfdbi(&nu, /* 2nd FDB - An integer */
- _CMNUM, /* fcode */
- "", /* hlpmsg */
- "", /* Default */
- "", /* addtl string data */
- 0,
- 0,
- xxstring,
- NULL,
-#ifdef FNFLOAT
- &fl
-#else
- NULL
-#endif /* FNFLOAT */
- );
-#ifdef FNFLOAT
- cmfdbi(&fl, /* A floating-point number */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-#endif /* FNFLOAT */
- x = cmfdb(&kw); /* Parse a keyword or a number */
- debug(F111,"boolval cmfdb","",x);
- if (x < 0) {
- if (x == -3)
- x = -2;
- return(x);
- }
- debug(F111,"boolval switch","",cmresult.fcode);
- switch (cmresult.fcode) { /* What did we get? */
-#ifdef FNFLOAT
- case _CMFLD: /* A "field" */
- if (isfloat(cmresult.sresult,0)) { /* A floating-point number? */
- f1 = floatval; /* Yes, get its value */
- f1flag = 1; /* remember we did this */
- ifc = 9999; /* Set special "if-code" */
- } else
- return(-2);
-#endif /* FNFLOAT */
- case _CMNUM: /* A number... */
- ifc = 9999; /* Set special "if-code" */
- break;
- case _CMKEY: /* A keyword */
- ifc = cmresult.nresult; /* Get if-code */
- break;
- default:
- return(-2);
- }
- switch (ifc) { /* set z = 1 for true, 0 for false */
- case 9999: /* Number */
-#ifdef FNFLOAT
- if (f1flag) {
- z = (f1 == 0.0) ? 0 : 1;
- } else
-#endif /* FNFLOAT */
- z = (cmresult.nresult == 0) ? 0 : 1;
- break;
- case XXIFLP: /* Left paren */
- if (pcount == 0 && ifargs > 0)
- return(-2);
- parens = 1;
- pcount++;
- ifargs++;
- *bx++ = '(';
- goto ifagain;
- case XXIFRP: /* Right paren */
- if (!parens)
- return(-2);
- if (--pcount < 0)
- return(-2);
- ifargs++;
- *bx++ = ')';
- *bx = NUL;
- if (pcount == 0)
- goto ifend;
- goto ifagain;
- case XXIFAN: /* AND (&&) */
- ifargs++;
- if (!ecount)
- return(-2);
- *bx++ = '&';
- goto ifagain;
- case XXIFOR: /* OR (||) */
- ifargs++;
- if (!ecount)
- return(-2);
- *bx++ = '|';
- goto ifagain;
- case XXIFNO: /* IF NOT [ NOT [ NOT ... ] ] */
- if (bx > boolval) { /* evala() doesn't like cascaded */
- if (*(bx-1) == '!') { /* unary operators... */
- *(bx-1) = NUL; /* So here, two wrongs make a right. */
- bx--;
- } else {
- *bx++ = '!';
- }
- } else {
- *bx++ = '!';
- }
- ifargs++;
- goto ifagain;
- case XXIFTR: /* IF TRUE */
- z = 1;
- debug(F101,"if true","",z);
- ifargs += 1;
- break;
- case XXIFNT: /* IF FALSE */
- z = 0;
- debug(F101,"if true","",z);
- ifargs += 1;
- break;
- case XXIFSU: /* IF SUCCESS */
- z = ( success != 0 ) ? 1 : 0;
- debug(F101,"if success","",z);
- ifargs += 1;
- break;
- case XXIFFA: /* IF FAILURE */
- z = ( success == 0 ) ? 1 : 0;
- debug(F101,"if failure","",z);
- ifargs += 1;
- break;
-
- case XXIFDE: /* IF DEFINED */
- if ((x = cmfld("Macro or variable name","",&s,NULL)) < 0)
- return((x == -3) ? -2 : x);
-
- if (*s == CMDQ) {
- char * lp;
- char line[256];
- int t, x;
- if (*(s+1) == 'f' || *(s+1) == 'F') { /* Built-in function */
- extern struct keytab fnctab[];
- extern int nfuncs;
- ckstrncpy(line,s+2,256);
- if (line[0]) {
- lp = ckstrchr(line,'(');
- if (lp) *lp = NUL;
- x = lookup(fnctab,line,nfuncs,&t);
- z = x > -1;
- }
- debug(F111,"if defined function",line,z);
- } else if (*(s+1) == 'v' || *(s+1) == 'V') { /* 8.0.200 */
- extern struct keytab vartab[];
- extern int nvars;
- z = 0;
- if (*(s+2) == '(') {
- ckstrncpy(line,s+3,256);
- if (line[0]) {
- lp = ckstrchr(line,')');
- if (lp) *lp = NUL;
- x = lookup(vartab,line,nvars,&t);
- z = x > -1;
- if (z) { /* 8.0.203 */
- int t; /* It must have a value to succeed */
- t = 255; /* as in C-Kermit 6.0 and 7.0 */
- lp = line; /* (this was broken in 8.0.200-201) */
- zzstring(s,&lp,&t);
- t = strlen(line);
- z = line[0] ? 1 : 0;
- }
- }
- }
- debug(F111,"if defined variable",line,z);
- } else {
- z = chkvar(s); /* Starts with backslash */
- if (z > 0) { /* Yes... */
- t = 255; /* than buffer so if zzstring fails */
- lp = line; /* check for that -- overflow means */
- line[0] = NUL; /* the quantity is defined. */
- x = zzstring(s,&lp,&t);
- if ((x < 0 && t != 255) || !line[0])
- z = 0;
- debug(F111,"if defined zzstring",line,z);
- debug(F101,"if defined zzstring t","",t);
- }
- }
- } else {
- z = (mxlook(mactab,s,nmac) > -1); /* Look for exact match */
- }
- debug(F111,"if defined final",s,z);
- ifargs += 2;
- break;
-
- case XXIFDC: { /* IF DECLARED */
- char * lp;
- char line[32];
- int j, k, t, x;
- if ((x = cmfld("Array name","",&s,NULL)) < 0)
- return((x == -3) ? -2 : x);
- if (*s == CMDQ) {
- if (*(s+1) != '&') {
- t = 31;
- lp = line;
- line[0] = NUL;
- x = zzstring(s,&lp,&t);
- s = line;
- }
- }
- z = 0;
- if ((x = arraybounds(s,&j,&k)) > -1) {
- if (a_ptr[x]) {
- if (j < 1)
- z = 1;
- else if (j <= a_dim[x])
- z = 1;
- if (z == 1 && k > a_dim[x])
- z = 0;
- }
- }
- break;
- }
- case XXIFBG: /* IF BACKGROUND */
- case XXIFFG: /* IF FOREGROUND */
- bgchk(); /* Check background status */
- if (ifc == XXIFFG) /* Foreground */
- z = pflag ? 1 : 0;
- else z = pflag ? 0 : 1; /* Background */
- ifargs += 1;
- break;
-
- case XXIFCO: /* IF COUNT */
- z = ( --count[cmdlvl] > 0 );
- if (cx == XXWHI) count[cmdlvl] += 2; /* Don't ask... */
- debug(F101,"if count","",z);
- ifargs += 1;
- break;
-
- case XXIFEX: /* IF EXIST */
-#ifdef CK_TMPDIR
- case XXIFDI: /* IF DIRECTORY */
-#endif /* CK_TMPDIR */
- case XXIFAB: /* IF ABSOLUTE */
- if ((x = cmfld(
- ((ifc == XXIFDI) ? "Directory name" : "File"),
- "",&s,
-#ifdef OS2
- NULL /* This allows \'s in filenames */
-#else
- xxstring
-#endif /* OS2 */
- )) < 0) {
- if (x == -3) {
- extern int cmflgs;
- if (cmflgs == 1) {
- printf("?File or directory name required\n");
- return(-9);
- }
- } else return(x);
- }
- s = brstrip(s);
- if (ifc == XXIFAB) {
- z = isabsolute(s);
- } else if (ifc == XXIFEX) {
- z = (zgetfs(s) > -1L);
- debug(F101,"if exist 1","",z);
-#ifdef OS2
- if (!z) { /* File not found. */
- int t; /* Try expanding variables */
- t = LINBUFSIZ-1; /* and looking again. */
- lp = line;
- zzstring(s,&lp,&t);
- s = line;
- z = ( zchki(s) > -1L );
- debug(F101,"if exist 2","",z);
- }
-#endif /* OS2 */
-#ifdef CK_TMPDIR
- } else {
-#ifdef VMS
- z = (zchki(s) == -2)
-#else
-/* Because this doesn't catch $DISK1:[FOO]BLAH.DIR;1 */
- z = isdir(s)
-#ifdef OS2
- || (isalpha(s[0]) && s[1] == ':' && s[2] == NUL)
-#endif /* OS2 */
-#endif /* VMS */
- ;
- debug(F101,"if directory 1","",z);
-
- if (!z) { /* File not found. */
- int t; /* Try expanding variables */
- t = LINBUFSIZ-1; /* and looking again. */
- lp = line;
- zzstring(s,&lp,&t);
- s = line;
- z = isdir(s)
-#ifdef OS2
- || (isalpha(s[0]) && s[1] == ':' && s[2] == NUL)
-#endif /* OS2 */
- ;
- debug(F101,"if directory 2","",z);
- }
-#endif /* CK_TMPDIR */
- }
- ifargs += 2;
- break;
-
- case XXIFEQ: /* IF EQUAL (string comparison) */
- case XXIFLL: /* IF Lexically Less Than */
- case XXIFLG: /* If Lexically Greater Than */
- if ((x = cmfld("first word or variable name","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Text required\n");
- return(-9);
- } else return(x);
- }
- s = brstrip(s); /* Strip braces */
- x = (int)strlen(s);
- if (x > LINBUFSIZ-1) {
- printf("?IF: strings too long\n");
- return(-2);
- }
- lp = line; /* lp points to first string */
- ckstrncpy(line,s,LINBUFSIZ);
- if ((y = cmfld("second word or variable name","",&s,xxstring)) < 0) {
- if (y == -3) {
- printf("?Text required\n");
- return(-9);
- } else return(y);
- }
- s = brstrip(s);
- y = (int)strlen(s);
- if (x + y + 2 > LINBUFSIZ) {
- printf("?IF: strings too long\n");
- return(-2);
- }
- tp = lp + x + 2; /* tp points to second string */
- strcpy(tp,s); /* safe (checked) */
- x = ckstrcmp(lp,tp,-1,inpcas[cmdlvl]); /* Use longest length */
- switch (ifc) {
- case XXIFEQ: /* IF EQUAL (string comparison) */
- z = (x == 0);
- break;
- case XXIFLL: /* IF Lexically Less Than */
- z = (x < 0);
- break;
- case XXIFLG: /* If Lexically Greater Than */
- z = (x > 0);
- break;
- }
- debug(F101,"IF EQ result","",z);
- ifargs += 3;
- break;
-
- case XXIFVE: /* IF VERSION */
- case XXIFAE: /* IF (arithmetically) = */
- case XXIFNQ: /* IF != (not arithmetically equal) */
- case XXIFLT: /* IF < */
- case XXIFLE: /* IF <= */
- case XXIFGE: /* IF >= */
- case XXIFGT: { /* IF > */
-
- /* Really should use longs here... */
- /* But cmnum parses ints. */
- int xx, n1 = 0, n2 = 0;
- if (ifc == XXIFVE) {
- n1 = (int) vernum;
- } else {
- x = cmfld("first number or variable name","",&s,xxstring);
- if (x == -3) {
- printf("?Quantity required\n");
- return(-9);
- }
- if (x < 0) return(x);
- debug(F101,"xxifgt cmfld","",x);
- ckstrncpy(line,s,LINBUFSIZ);
- lp = brstrip(line);
- debug(F110,"xxifgt exp1",lp,0);
-
-/* The following bit is for compatibility with old versions of MS-DOS Kermit */
-
- if (!ckstrcmp(lp,"count",5,0)) {
- n1 = count[cmdlvl];
- } else if (!ckstrcmp(lp,"version",7,0)) {
- n1 = (int) vernum;
- } else if (!ckstrcmp(lp,"argc",4,0)) {
- n1 = (int) macargc[maclvl];
- } else {
-
-/* End of compatibility bit */
-
-#ifdef FNFLOAT
- if (isfloat(lp,0) > 1) { /* Allow floating-point comparisons */
- f1 = floatval;
- f1flag = 1;
- } else
-#endif /* FNFLOAT */
- if (chknum(lp)) {
- n1 = atoi(lp);
- } else { /* Check for arithmetic expression */
- q = evala(lp); /* cmnum() does this but ... */
- if (chknum(q)) /* we're not using cmnum(). */
- n1 = atoi(q);
- else
- return(-2);
- }
- }
- }
- y = cmfld("number or variable name","",&s,xxstring);
- if (y == -3) {
- printf("?Quantity required\n");
- return(-9);
- }
- if (y < 0) return(y);
- s = brstrip(s);
- if (!*s) return(-2);
- if (ifc == XXIFVE) {
- tp = line;
- } else {
- x = (int)strlen(lp);
- tp = line + x + 2;
- }
- ckstrncpy(tp,s,LINBUFSIZ-x-2);
- debug(F110,"xxifgt exp2",tp,0);
- if (!ckstrcmp(tp,"count",5,0)) {
- n2 = count[cmdlvl];
- } else if (!ckstrcmp(tp,"version",7,0)) {
- n2 = (int) vernum;
- } else if (!ckstrcmp(tp,"argc",4,0)) {
- n2 = (int) macargc[maclvl];
- } else {
-#ifdef FNFLOAT
- if (isfloat(tp,0) > 1) {
- f2 = floatval;
- f2flag = 1;
- } else
-#endif /* FNFLOAT */
- if (chknum(tp)) {
- n2 = atoi(tp);
- } else {
- q = evala(tp);
- if (chknum(q))
- n2 = atoi(q);
- else
- return(-2);
- }
- }
- xx = (ifc == XXIFVE) ? XXIFGE : ifc;
-
-#ifdef FNFLOAT
- if (f1flag && !f2flag) {
- f2 = (CKFLOAT)n2;
- f2flag = 1;
- }
- if (f2flag && !f1flag)
- f1 = (CKFLOAT)n1;
- if (f1flag)
- z = ((f1 < f2 && xx == XXIFLT)
- || (f1 != f2 && xx == XXIFNQ)
- || (f1 <= f2 && xx == XXIFLE)
- || (f1 == f2 && xx == XXIFAE)
- || (f1 >= f2 && xx == XXIFGE)
- || (f1 > f2 && xx == XXIFGT));
- else
-#endif /* FNFLOAT */
- z = ((n1 < n2 && xx == XXIFLT)
- || (n1 != n2 && xx == XXIFNQ)
- || (n1 <= n2 && xx == XXIFLE)
- || (n1 == n2 && xx == XXIFAE)
- || (n1 >= n2 && xx == XXIFGE)
- || (n1 > n2 && xx == XXIFGT));
- debug(F101,"xxifge z","",z);
- if (ifc == XXIFVE)
- ifargs += 2;
- else
- ifargs += 3;
- break;
- }
-
- case XXIFNU: /* IF NUMERIC */
- x = cmfld("variable name or constant","",&s,NULL);
- if (x == -3) {
- extern int cmflgs;
- if (cmflgs == 1) {
- printf("?Quantity required\n");
- return(-9);
- }
- } else if (x < 0)
- return(x);
- x = LINBUFSIZ-1;
- lp = line;
- zzstring(s,&lp,&x);
- lp = line;
- debug(F110,"xxifnu quantity",lp,0);
- z = chknum(lp);
-#ifdef COMMENT
-/*
- This works, but it's not wise -- IF NUMERIC is mostly used to see if a
- string really does contain only numeric characters. If they want to force
- evaluation, they can use \feval() on the argument string.
-*/
- if (!z) { /* Not a number */
- x_ifnum = 1; /* Avoid "eval" error messages */
- q = evala(lp); /* Maybe it's an expression */
- z = chknum(q); /* that evaluates to a number */
- x_ifnum = 0; /* Put eval messages back to normal */
- if (z) debug(F110,"xxifnu exp",lp,0);
- }
-#endif /* COMMENT */
- debug(F101,"xxifnu chknum","",z);
- ifargs += 2;
- break;
-
-#ifdef ZFCDAT
- case XXIFNE: { /* IF NEWER */
- char d1[20], * d2; /* Buffers for 2 dates */
- if ((z = cmifi("First file","",&s,&y,xxstring)) < 0)
- return(z);
- ckstrncpy(d1,zfcdat(s),20);
- if ((z = cmifi("Second file","",&s,&y,xxstring)) < 0)
- return(z);
- d2 = zfcdat(s);
- if ((int)strlen(d1) != 17 || (int)strlen(d2) != 17) {
- printf("?Failure to get file date\n");
- return(-9);
- }
- debug(F110,"xxifnewer d1",d1,0);
- debug(F110,"xxifnewer d2",d2,0);
- z = (strcmp(d1,d2) > 0) ? 1 : 0;
- debug(F101,"xxifnewer","",z);
- ifargs += 2;
- break;
- }
-#endif /* ZFCDAT */
-
-#ifdef CK_IFRO
- case XXIFRO: /* REMOTE-ONLY advisory */
- ifargs++;
-#ifdef NOLOCAL
- z = 1;
-#else
- z = remonly;
-#endif /* NOLOCAL */
- break;
-#endif /* CK_IFRO */
-
- case XXIFAL: /* ALARM */
- ifargs++;
- debug(F101,"IF ALARM ck_alarm","",ck_alarm);
- debug(F110,"IF ALARM alrm_date",alrm_date,0);
- debug(F110,"IF ALARM alrm_time",alrm_time,0);
-
- if (ck_alarm < 1L || alrm_date[0] < '0' || alrm_time[0] < '0') {
- z = 0; /* ALARM not SET */
- break; /* so IF ALARM fails */
- }
- /* Get current date and time */
- ckstrncpy(tmpbuf,ckcvtdate("",1),TMPBUFSIZ);
- s = tmpbuf;
- s[8] = NUL;
- z = (int) strncmp(tmpbuf,alrm_date,8); /* Compare dates */
- debug(F101,"IF ALARM date z","",z);
- if (z == 0) { /* Dates are the same */
- /* Compare times */
- z = (tod2sec(tmpbuf+9) >= atol(alrm_time)) ? 1 : -1;
- debug(F101,"IF ALARM time z","",z);
- }
- tmpbuf[0] = NUL; /* z >= 0 if alarm is passed */
- z = ((z >= 0) ? 1 : 0); /* z < 0 otherwise */
- debug(F101,"IF ALARM final z","",z);
- break;
-
- case XXIFOP: /* IF OPEN */
- if ((x = cmkey(iotab,niot,"file or log","",xxstring)) < 0)
- return(x);
- if (x == 9999 || x == ZSTDIO) {
- bgchk(); /* Check background status */
- z = pflag ? 1 : 0;
- } else if (x == 8888) {
- z = local ? ttchk() > -1 : 0;
-#ifdef CKLOGDIAL
- } else if (x == 7777) {
- extern int dialog;
- z = dialog ? 1 : 0;
-#endif /* CKLOGDIAL */
- } else
- z = (chkfn(x) > 0) ? 1 : 0;
- ifargs += 1;
- break;
-
- case XXIFSD: /* Started-From-Dialer */
-#ifdef OS2
- z = StartedFromDialer;
-#else
- z = 0;
-#endif /* OS2 */
- break;
-
- case XXIFTM: /* Terminal-Macro */
-#ifdef OS2
- z = cmdstk[cmdlvl].ccflgs & CF_KMAC;
-#else
- z = 0;
-#endif /* OS2 */
- break;
-
- case XXIFEM: /* Emulation is active */
-#ifdef OS2
- z = 1;
-#else
- z = 0;
-#endif /* OS2 */
- break;
-
- case XXIFIK: /* Running as IKSD? */
- z = inserver;
- break;
-
- case XXIFTA: /* Connection is TAPI */
- z = 0;
-#ifndef NODIAL
-#ifdef CK_TAPI
- if (local && !network && tttapi)
- z = 1;
-#endif /* CK_TAPI */
-#endif /* NODIAL */
- break;
-
- case XXIFMA: /* IF MATCH */
- x = cmfld("String or variable","",&s,xxstring);
- if (x == -3) {
- extern int cmflgs;
- if (cmflgs == 1) {
- printf("?String required\n");
- return(-9);
- }
- } else if (x < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- s = brstrip(line);
- debug(F110,"xxifma string",line,0);
- x = cmfld("Pattern","",&p,xxstring);
- if (x == -3) {
- extern int cmflgs;
- if (cmflgs == 1) {
- printf("?Pattern required\n");
- return(-9);
- }
- } else if (x < 0)
- return(x);
- ckstrncpy(tmpbuf,p,TMPBUFSIZ);
- p = brstrip(tmpbuf);
- debug(F110,"xxifma pattern",tmpbuf,0);
- z = ckmatch(p,s,inpcas[cmdlvl],1);
- break;
-
- case XXIFFL: { /* IF FLAG */
- extern int ooflag;
- z = ooflag;
- break;
- }
- case XXIFAV: { /* IF AVAILABLE */
- if ((x = cmkey(availtab,availtabn,"","",xxstring)) < 0)
- return(x);
- switch (x) {
- case AV_KRB4:
- z = ck_krb4_is_installed();
- break;
- case AV_KRB5:
- z = ck_krb5_is_installed();
- break;
- case AV_SRP:
- z = ck_srp_is_installed();
- break;
- case AV_SSL:
- z = ck_ssleay_is_installed();
- break;
- case AV_NTLM:
- z = ck_ntlm_is_installed();
- break;
- case AV_CRYPTO:
- z = ck_crypt_is_installed();
- break;
- case AV_SSH:
- z = ck_ssh_is_installed();
- break;
- default:
- z = 0;
- }
- break;
- }
- case XXIFAT: /* IF ASKTIMEOUT */
- z = asktimedout;
- break;
-
- case XXIFRD: /* IF READABLE */
- case XXIFWR: /* IF WRITEABLE */
- if ((x = cmfld("File or directory name",
- "",
- &s,
-#ifdef OS2
- NULL /* This allows \'s in filenames */
-#else
- xxstring
-#endif /* OS2 */
- )) < 0) {
- if (x == -3) {
- extern int cmflgs;
- if (cmflgs == 1) {
- printf("?File or directory name required\n");
- return(-9);
- }
- } else return(x);
- }
- s = brstrip(s);
-/*
- zchk[io]() do not do what we want here for directories, so we set
- a global flag telling it to behave specially in this case. Othewise
- we'd have to change the API and change all ck?fio.c modules accordingly.
-*/
- y = 0; /* Try-again control */
-#ifdef OS2
- ifrdagain:
-#endif /* OS2 */
- if (ifc == XXIFRD) { /* IF READABLE */
- zchkid = 1;
- z = zchki(s) > -1;
- zchkid = 0;
- } else if (ifc == XXIFWR) { /* IF WRITEABLE */
- zchkod = 1;
- z = zchko(s) > -1;
- zchkod = 0;
- }
-#ifdef OS2
- if (!z && !y) { /* File not found. */
- int t; /* Try expanding variables */
- t = LINBUFSIZ-1; /* and looking again. */
- lp = line;
- zzstring(s,&lp,&t);
- s = line;
- z = zchko(s) > -1;
- y++;
- goto ifrdagain;
- }
-#endif /* OS2 */
- ifargs += 2;
- break;
- case XXIFQU: /* IF QUIET */
- z = quiet ? 1 : 0;
- debug(F101,"if quiet","",z);
- ifargs += 1;
- break;
-
- case XXIFWI: /* WILD */
- if ((x = cmfld("File specification","",&s,xxstring)) < 0) return(x);
- z = iswild(s);
- break;
-
- case XXIFCK: /* C-KERMIT */
-#ifdef OS2
- z = 0;
-#else
- z = 1;
-#endif /* OS2 */
- break;
-
- case XXIFK9: /* K-95 */
-#ifdef OS2
- z = 1;
-#else
- z = 0;
-#endif /* OS2 */
- break;
-
- case XXIFGU: /* GUI */
-#ifdef KUI
- z = 1;
-#else
- z = 0;
-#endif /* KUI */
- break;
-
- case XXIFMS: /* MS-KERMIT */
- z = 0;
- break;
-
- case XXIFLO: /* IF LOCAL */
- z = local ? 1 : 0;
- break;
-
- case XXIFCM: { /* IF COMMAND */
- extern struct keytab cmdtab[];
- extern int ncmd;
- if ((x = cmfld("Word","",&s,xxstring)) < 0)
- return(x);
- z = lookup(cmdtab,s,ncmd,&y);
- z = (z == -2 || z > -1) ? 1 : 0;
- break;
- }
-#ifdef CKFLOAT
- case XXIFFP: /* IF FLOAT */
- if ((x = cmfld("Number","",&s,xxstring)) < 0)
- if (x != -3) /* e.g. empty variable */
- return(x);
- z = isfloat(s,0);
- break;
-#endif /* CKFLOAT */
-
- case XXIFKB: /* KBHIT */
- z = conchk();
- if (z < 0) z = 0;
- if (z > 1) z = 1;
- break;
-
- case XXIFKG: { /* KERBANG */
- extern int cfilef;
- z = (xcmdsrc == 0) ? 0 : cfilef;
- break;
- }
-
- default: /* Shouldn't happen */
- return(-2);
- } /* end of switch */
-
- if (z)
- *bx++ = '1';
- else
- *bx++ = '0';
- *bx = NUL;
- if (bx > boolval + BOOLLEN - 2) {
- printf("?Boolean expression too long");
- return(-9);
- }
- ecount++; /* Expression counter */
- debug(F101,"boolexp parens","",parens);
- debug(F101,"boolexp pcount","",pcount);
- if (parens && pcount > 0)
- goto ifagain;
-
- ifend: /* No more - done */
- *bx = NUL;
- z = atoi(evalx(boolval));
- debug(F111,"boolexp boolval",boolval,z);
- return(z);
-}
-
-/* D O I F -- Do the IF command */
-
-int
-doif(cx) int cx; {
- int x, y, z; char *s, *p;
- char *q;
-#ifdef OS2
- extern int keymac;
-#endif /* OS2 */
-
- debug(F101,"doif cx","",cx);
-
- z = boolexp(cx); /* Evaluate the condition(s) */
- debug(F010,"doif cmdbuf",cmdbuf,0);
- debug(F101,"doif boolexp","",z);
- if (z < 0)
- return(z);
-
- if (cx == XXIF) { /* Allow IF to have XIF semantics. */
- char * p;
- p = cmpeek();
- if (!p) p = "";
- while (*p) {
- if (*p == SP || *p == HT)
- p++;
- else
- break;
- }
- if (*p == '{')
- cx = XXIFX;
- }
- switch (cx) { /* Separate handling for IF and XIF */
-
- case XXASSER: /* And ASSERT */
- if ((x = cmcfm()) < 0)
- return(x);
- return(success = z);
-
- case XXIF: /* This is IF... */
- ifcmd[cmdlvl] = 1; /* We just completed an IF command */
- debug(F101,"doif condition","",z);
- if (z) { /* Condition is true */
- iftest[cmdlvl] = 1; /* Remember that IF succeeded */
- if (maclvl > -1) { /* In macro, */
- pushcmd(NULL); /* save rest of command. */
- } else if (tlevel > -1) { /* In take file, */
- debug(F100, "doif: pushing command", "", 0);
- pushcmd(NULL); /* save rest of command. */
- } else { /* If interactive, */
- cmini(ckxech); /* just start a new command */
- printf("\n"); /* (like in MS-DOS Kermit) */
- if (pflag) prompt(xxstring);
- }
- } else { /* Condition is false */
- iftest[cmdlvl] = 0; /* Remember command failed. */
- if ((y = cmtxt("command to be ignored","",&s,NULL)) < 0)
- return(y); /* Gobble up rest of line */
- }
- return(0);
-
- case XXIFX: { /* This is XIF (Extended IF) */
- char *p;
- char e[5];
- int i;
- if ((y = cmtxt("Object command","",&s,NULL)) < 0)
- return(y); /* Get object command. */
- p = s;
- lp = line;
- debug(F110,"doif THEN part",s,-54);
- if (litcmd(&p,&lp,LINBUFSIZ - 1) < 0) { /* Quote THEN-part */
- return(-2);
- }
- debug(F111,"doif THEN part 2",line,z);
-
- while (*p == SP) p++; /* Strip trailing spaces */
- ifcmd[cmdlvl] = 0; /* Assume ELSE part in same line */
- iftest[cmdlvl] = z ? 1 : 0;
- if (*p) { /* At end? */
- if (!z) { /* No, use ELSE-part, if any */
- for (i = 0; i < 4; i++) e[i] = *p++;
- if (ckstrcmp(e,"else",4,0)) /* See if we have an ELSE */
- return(-2); /* Something else - error. */
- debug(F010,"doif ELSE line 1",p,0);
- while (*p == SP) p++; /* Skip spaces */
- if (*p != '{') { /* Brace ELSE part if necessary */
- ckmakmsg(tmpbuf,TMPBUFSIZ,"{",p," }",NULL);
- p = tmpbuf;
- debug(F010,"doif ELSE line 2",p,0);
- }
- lp = line; /* Write over THEN part... */
- *lp = NUL; /* with ELSE part. */
- if (litcmd(&p,&lp,LINBUFSIZ - 2) < 0) {
- return(-2);
- }
- while (*p == SP) p++; /* Strip trailing spaces */
- if (*p) return(-2); /* Should be nothing here. */
- debug(F010,"doif ELSE line 3",line,0);
- }
- } else { /* At end, treat like an IF command */
- if (!z) line[0] = NUL; /* Condition not true and no ELSE */
- ifcmd[cmdlvl] = 1; /* Allow ELSE on next line */
- debug(F101,"IF condition","",z);
- }
- if (line[0]) {
- x = mlook(mactab,"_xif",nmac); /* Get index of "_xif" macro. */
- if (x < 0) { /* Not there? */
- addmmac("_xif",xif_def); /* Put it back. */
- if (mlook(mactab,"_xif",nmac) < 0) { /* Look it up again. */
- printf("?XIF macro gone!\n");
- return(success = 0);
- }
- }
- dodo(x,line,cmdstk[cmdlvl].ccflgs | CF_IMAC);
- }
- return(0);
- }
- case XXWHI: { /* WHILE Command */
- p = cmdbuf; /* Capture IF condition */
- ifcond[0] = NUL; /* from command buffer */
- while (*p == SP) p++;
- while (*p != SP) p++;
- ifcp = ifcond;
- ifcp += ckstrncpy(ifcp,"{ \\flit(if ( not ",IFCONDLEN);
-#ifdef COMMENT
-/*
- This doesn't work because it breaks on the first left brace, which does
- not necessarily start the command list, e.g. "while equal \%a {\35}".
-*/
- while (*p != '{' && *p != NUL) *ifcp++ = *p++;
- p = " ) goto _..bot) } ";
- while (*ifcp++ = *p++) ;
-#else
-/*
- The command parser sets cmbptr to the spot where it left off parsing in
- the command buffer.
-*/
- {
- extern char * cmbptr;
- if (cmbptr) {
- while (p < cmbptr && *p != NUL)
- *ifcp++ = *p++;
- p = " ) goto _..bot) } ";
- while ((*ifcp++ = *p++)) ;
- } else {
- printf("?Internal error parsing WHILE condition\n");
- return(-9);
- }
- }
-#endif /* COMMENT */
-
- debug(F110,"WHILE cmd",ifcond,0);
-
- if ((y = cmtxt("Object command","",&s,NULL)) < 0)
- return(y); /* Get object command. */
- p = s;
- lp = line;
- if (litcmd(&p,&lp,LINBUFSIZ - 2) < 0) { /* Quote object command */
- return(-2);
- }
- debug(F101,"WHILE body",line,-54);
- if (line[0]) {
- char *p;
- x = mlook(mactab,"_while",nmac); /* index of "_while" macro. */
- if (x < 0) { /* Not there? */
- addmmac("_while",whil_def); /* Put it back. */
- if (mlook(mactab,"_while",nmac) < 0) { /* Look it up again */
- printf("?WHILE macro definition gone!\n");
- return(success = 0);
- }
- }
- p = malloc((int)strlen(ifcond) + (int)strlen(line) + 2);
- if (p) {
- strcpy(p,ifcond); /* safe (prechecked) */
- strcat(p,line); /* safe (prechecked) */
- debug(F010,"WHILE dodo",p,0);
- dodo(x,p,cmdstk[cmdlvl].ccflgs | CF_IMAC);
- free(p);
- p = NULL;
- } else {
- printf("?Can't allocate storage for WHILE command");
- return(success = 0);
- }
- }
- return(0);
- }
- default:
- return(-2);
- }
-}
-#endif /* NOSPL */
-
-/* Set up a TAKE command file */
-
-int
-dotake(s) char *s; {
-#ifndef NOSPL
- extern int tra_cmd;
-#endif /* NOSPL */
-#ifndef NOLOCAL
-#ifdef OS2
- extern int term_io;
- int term_io_sav = term_io;
-#endif /* OS2 */
-#endif /* NOLOCAL */
- int slen;
-
- debug(F110,"dotake",s,0);
- if (!s) s = "";
- if (!*s) return(success = 0);
- slen = strlen(s);
- debug(F101,"dotake len","",slen);
-
- if ((tfile[++tlevel] = fopen(s,"r")) == NULL) {
- perror(s);
- debug(F110,"dotake fail",s,0);
- tlevel--;
- return(success = 0);
- } else {
- tfline[tlevel] = 0; /* Line counter */
-#ifdef VMS
- conres(); /* So Ctrl-C will work */
-#endif /* VMS */
-#ifndef NOLOCAL
-#ifdef OS2
- term_io = 0; /* Disable Terminal Emulator I/O */
-#endif /* OS2 */
-#endif /* NOLOCAL */
-#ifndef NOSPL
- cmdlvl++; /* Entering a new command level */
- debug(F111,"CMD +F",s,cmdlvl);
- debug(F101,"dotake cmdlvl","",cmdlvl);
- debug(F101,"dotake tlevel","",tlevel);
- if (cmdlvl > CMDSTKL) {
- debug(F100,"dotake stack overflow","",0);
- cmdlvl--;
- debug(F111,"CMD*-F",s,cmdlvl);
- fclose(tfile[tlevel--]);
- printf("?TAKE files and/or DO commands nested too deeply\n");
- return(success = 0);
- }
- if (tfnam[tlevel]) { /* Copy the filename */
- free(tfnam[tlevel]);
- tfnam[tlevel] = NULL;
- }
- if ((tfnam[tlevel] = malloc(strlen(s) + 1))) {
- strcpy(tfnam[tlevel],s); /* safe */
- } else {
- printf("?Memory allocation failure\n");
- return(success = 0);
- }
- ifcmd[cmdlvl] = 0; /* Set variables for this cmd file */
- iftest[cmdlvl] = 0;
- count[cmdlvl] = count[cmdlvl-1]; /* Inherit this */
- intime[cmdlvl] = intime[cmdlvl-1]; /* Inherit this */
- inpcas[cmdlvl] = inpcas[cmdlvl-1]; /* Inherit this */
- takerr[cmdlvl] = takerr[cmdlvl-1]; /* Inherit this */
- merror[cmdlvl] = merror[cmdlvl-1]; /* Inherit this */
- xquiet[cmdlvl] = quiet;
- xcmdsrc = CMD_TF;
- cmdstk[cmdlvl].src = CMD_TF; /* Say we're in a TAKE file */
- cmdstk[cmdlvl].lvl = tlevel; /* nested at this level */
- cmdstk[cmdlvl].ccflgs = cmdstk[cmdlvl-1].ccflgs;
-#else
- takerr[tlevel] = takerr[tlevel-1]; /* Inherit this */
-#endif /* NOSPL */
- }
-#ifndef NOSPL
- if (tra_cmd)
- printf("[%d] +F: \"%s\"\n",cmdlvl,s);
-#endif /* NOSPL */
-#ifndef NOLOCAL
-#ifdef OS2
- term_io = term_io_sav;
-#endif /* OS2 */
-#endif /* NOLOCAL */
- return(1);
-}
-#endif /* NOICP */
+++ /dev/null
-#ifdef SSHTEST
-#define SSHBUILTIN
-#endif /* SSHTEST */
-
-#include "ckcsym.h"
-char *userv = "User Interface 8.0.278, 12 Mar 2004";
-
-/* C K U U S R -- "User Interface" for C-Kermit (Part 1) */
-
-/*
- Authors:
- Frank da Cruz <fdc@columbia.edu>,
- The Kermit Project, Columbia University, New York City
- Jeffrey E Altman <jaltman@secure-endpoints.com>
- Secure Endpoints Inc., New York City
-
- Copyright (C) 1985, 2004,
- Trustees of Columbia University in the City of New York.
- All rights reserved. See the C-Kermit COPYING.TXT file or the
- copyright text in the ckcmai.c module for disclaimer and permissions.
-*/
-
-/*
- Originally the entire user interface was in one module, ckuusr.c. Over
- the years it has been split into many modules: ckuus2.c, ckuus3.c, ...,
- ckuus7.c. ckuus2.c contains the HELP command parser and help-text strings;
- ckuusy.c contains the UNIX-style command-line interface; ckuusx.c contains
- routines needed by both the command-line interface and the interactive
- command parser.
-*/
-
-/*
- The ckuus*.c modules depend on the existence of C library features like
- fopen, fgets, feof, (f)printf, argv/argc, etc. Other functions that are
- likely to vary among different platforms -- like setting terminal modes or
- interrupts -- are invoked via calls to functions that are defined in the
- system- dependent modules, ck?[ft]io.c. The command line parser processes
- any arguments found on the command line, as passed to main() via argv/argc.
- The interactive parser uses the facilities of the cmd package (developed for
- this program, but usable by any program). Any command parser may be
- substituted for this one. The only requirements for the Kermit command
- parser are these:
-
- . Set parameters via global variables like duplex, speed, ttname, etc. See
- ckmain.c for the declarations and descriptions of these variables.
-
- . If a command can be executed without the use of Kermit protocol, then
- execute the command directly and set the variable sstate to 0. Examples
- include 'set' commands, local directory listings, the 'connect' command.
-
- . If a command requires the Kermit protocol, set the following variables:
-
- sstate string data
- 'x' (enter server mode) (none)
- 'r' (send a 'get' command) cmarg, cmarg2
- 'v' (enter receive mode) cmarg2
- 'g' (send a generic command) cmarg
- 's' (send files) nfils, cmarg & cmarg2 OR cmlist
- 'c' (send a remote host command) cmarg
-
- cmlist is an array of pointers to strings.
- cmarg, cmarg2 are pointers to strings.
- nfils is an integer.
-
- cmarg can be a filename string (possibly wild), or
- a pointer to a prefabricated generic command string, or
- a pointer to a host command string.
- cmarg2 is an "as-name" - the name to send file(s) under, or
- the name under which to store incoming file(s); must not be wild.
- A null or empty value means to use the file's own name.
- cmlist is a list of filenames, such as passed via argv.
- nfils is an integer, interpreted as follows:
- -1: filespec (possibly wild) in cmarg, must be expanded internally.
- 0: send from stdin (standard input).
- >0: number of files to send, from cmlist.
-
- The screen() function is used to update the screen during file transfer.
- The tlog() function writes to a transaction log.
- The debug() function writes to a debugging log.
- The intmsg() and chkint() functions provide the user i/o for interrupting
- file transfers.
-*/
-
-/* Includes */
-
-#ifdef MULTINET
-#define MULTINET_OLD_STYLE /* Leave select prototype undefined */
-#endif /* MULTINET */
-
-#include "ckcdeb.h"
-#include "ckcasc.h"
-#include "ckcker.h"
-#include "ckcnet.h" /* Network symbols */
-#include "ckuusr.h"
-#include "ckcxla.h"
-
-int g_fncact = -1; /* Needed for NOICP builds */
-int noinit = 0; /* Flag for skipping init file */
-int nscanfile = SCANFILEBUF;
-
-int rcdactive = 0; /* RCD active */
-int keepallchars = 0; /* See cmfld() */
-
-int locus = 1; /* Current LOCUS is LOCAL */
-#ifdef OS2
-int autolocus = 2; /* Automatic LOCUS switching: ASK */
-#else /* OS2 */
-int autolocus = 1; /* Automatic LOCUS switching enabled */
-#endif /* OS2 */
-
-#ifndef NOICP
-#ifdef CKLEARN
-#ifdef VMS
-#include <time.h> /* For CKLEARN */
-#endif /* VMS */
-#endif /* CKLEARN */
-#ifdef OS2
-#ifndef NT
-#define INCL_NOPM
-#define INCL_VIO /* Needed for ckocon.h */
-#include <os2.h>
-#undef COMMENT
-#else
-#define APIRET ULONG
-#include <windows.h>
-#include <tapi.h>
-#include "cknwin.h"
-#include "ckntap.h" /* CK_TAPI definition */
-#endif /* NT */
-#include "ckowin.h"
-#include "ckocon.h"
-extern int tcp_avail;
-extern bool viewonly;
-extern int k95stdout;
-extern int tt_scroll;
-#ifndef NOTERM
-extern tt_status[VNUM];
-#endif /* NOTERM */
-int display_demo = 1;
-#include "ckossh.h"
-#ifdef KUI
-#include "ikui.h"
-#endif /* KUI */
-#endif /* OS2 */
-
-int optlines = 0;
-int didsetlin = 0;
-
-#ifdef NEWFTP
-extern int ftpget, ftpisopen(), doftpres();
-_PROTOTYP(int doftptyp,(int));
-#endif /* NEWFTP */
-
-#ifdef VMS
-extern int batch;
-#endif /* VMS */
-
-#ifdef datageneral
-#include <packets:common.h>
-#define fgets(stringbuf,max,fd) dg_fgets(stringbuf,max,fd)
-#endif /* datageneral */
-
-extern int xcmdsrc, hints, cmflgs, whyclosed;
-
-char * hlptok = NULL;
-
-#ifdef CK_TTGWSIZ /* Whether to use more-prompting */
-int xaskmore = 1; /* Momentary setting */
-int saveask = 1; /* Permanent setting */
-#else
-int xaskmore = 0;
-int saveask = 0;
-#endif /* CK_TTGWSIZ */
-
-#ifndef NOCSETS
-extern int nfilc;
-extern struct keytab fcstab[];
-extern int fcharset;
-#endif /* NOCSETS */
-
-char * g_pswd = NULL;
-int g_pcpt = -1;
-int g_pflg = -1;
-
-extern int cmd_rows, cmd_cols;
-
-#ifdef CKROOT
-extern int ckrooterr;
-#endif /* CKROOT */
-
-extern int inserver, filepeek;
-
-#ifdef CKLEARN
-FILE * learnfp = NULL;
-char * learnfile = NULL;
-int learning = 0;
-#endif /* CKLEARN */
-
-#ifndef NOXFER
-extern int atcapr, atdiso, nfils, moving, protocol, sendmode, epktflg, size,
- sndsrc, server, displa, fncnv, fnspath, fnrpath, xfermode, urpsiz,
- spsizf, spsiz, spsizr, spmax, wslotr, prefixing, fncact, reliable,
- setreliable;
-
-#ifdef IKSDCONF
-extern int iksdcf;
-#endif /* IKSDCONF */
-
-#ifdef CK_LOGIN
-extern int isguest;
-#endif /* CK_LOGIN */
-
-extern long sendstart;
-
-extern char *cmarg, *cmarg2, **cmlist, *dftty;
-
-extern struct keytab fntab[]; extern int nfntab;
-extern struct ck_p ptab[NPROTOS];
-
-int sndcmd = 0; /* Last command was a SEND-class command. */
-
-int g_xfermode = -1;
-int g_proto = -1;
-int g_urpsiz = -1;
-int g_spsizf = -1;
-int g_spsiz = -1;
-int g_spsizr = -1;
-int g_spmax = -1;
-int g_wslotr = -1;
-int g_prefixing = -1;
-int g_fncnv = -1;
-int g_fnspath = -1;
-int g_fnrpath = -1;
-int g_fnact = -1;
-int g_displa = -1;
-int g_spath = -1;
-int g_rpath = -1;
-char * g_sfilter = NULL;
-char * g_rfilter = NULL;
-
-extern int patterns;
-#ifdef PATTERNS
-extern char *txtpatterns[], *binpatterns[];
-int g_patterns = -1;
-#endif /* PATTERNS */
-int g_skipbup = -1;
-
-#ifdef PIPESEND
-extern int usepipes, pipesend;
-extern char * sndfilter;
-#endif /* PIPESEND */
-
-#ifndef NOSPL
-extern int sndxlo, sndxhi, sndxin;
-#endif /* NOSPL */
-
-extern char fspec[]; /* Most recent filespec */
-extern int fspeclen; /* Length of fspec[] buffer */
-
-#ifndef NOFRILLS
-extern int rmailf; /* MAIL command items */
-extern char optbuf[];
-#endif /* NOFRILLS */
-
-extern int
- en_cpy, en_cwd, en_del, en_dir, en_fin, en_get, en_bye, en_mai, en_pri,
- en_hos, en_ren, en_sen, en_spa, en_set, en_typ, en_who, en_ret, en_xit,
- en_mkd, en_rmd, en_asg;
-
-#ifndef NOMSEND /* Multiple SEND */
-extern char *msfiles[];
-int filesinlist = 0; /* And ADD ... */
-extern struct filelist * filehead;
-extern struct filelist * filetail;
-extern struct filelist * filenext;
-extern int addlist;
-#endif /* NOMSEND */
-
-static struct keytab addtab[] = {
-#ifdef PATTERNS
- { "binary-patterns", ADD_BIN, 0 },
-#endif /* PATTERNS */
-#ifndef NOMSEND
- { "send-list", ADD_SND, 0 },
-#endif /* NOMSEND */
-#ifdef PATTERNS
- { "text-patterns", ADD_TXT, 0 },
-#endif /* PATTERNS */
- { "", 0, 0 }
-};
-static int naddtab = sizeof(addtab)/sizeof(struct keytab) - 1;
-
-#ifndef NOCSETS
-struct keytab assoctab[] = {
- { "file-character-set", ASSOC_FC, 0 },
- { "transfer-character-set", ASSOC_TC, 0 },
- { "xfer-character-set", ASSOC_TC, CM_INV }
-};
-static int nassoc = sizeof(assoctab)/sizeof(struct keytab);
-extern int afcset[MAXFCSETS+1]; /* Character-set associations */
-extern int axcset[MAXTCSETS+1];
-#endif /* NOCSETS */
-
-#ifndef ADDCMD
-#ifndef NOMSEND
-#define ADDCMD
-#endif /* NOMSEND */
-#ifndef ADDCMD
-#ifdef PATTERNS
-#define ADDCMD
-#endif /* PATTERNS */
-#endif /* ADDCMD */
-#endif /* ADDCMD */
-#endif /* NOXFER */
-
-/* External Kermit Variables, see ckmain.c for description. */
-
-extern xx_strp xxstring;
-extern long xvernum;
-
-extern int local, xitsta, binary, msgflg, escape, duplex, quiet, tlevel,
- pflag, zincnt, ckxech, carrier, what, nopush, haveline, bye_active;
-#ifdef TNCODE
-extern int debses;
-extern char tn_msg[];
-#endif /* TNCODE */
-
-int sleepcan = 1;
-int g_binary = -1;
-int g_recursive = -1;
-int g_matchdot = -1;
-extern int nolinks;
-
-extern long vernum;
-extern char *versio, *copyright[];
-extern char *ckxsys;
-#ifndef NOHELP
-extern char *introtxt[];
-extern char *newstxt[];
-#endif /* NOHELP */
-
-#ifndef OS2
-#ifndef UNIX
-extern char *PWDCMD;
-#endif /* UNIX */
-extern char *WHOCMD;
-#endif /* OS2 */
-
-extern char ttname[];
-
-extern CHAR sstate;
-
-extern int network; /* Have active network connection */
-extern int nettype; /* Type of network */
-extern int ttnproto; /* NET_TCPB protocol */
-
-#ifndef NODIAL
-extern int dialsta, dialatmo, dialcon, dialcq; /* DIAL status, etc. */
-#endif /* NODIAL */
-
-#ifdef CK_APC
-extern int apcactive, apcstatus;
-#endif /* CK_APC */
-
-#ifndef NOPUSH
-#ifndef NOFRILLS
-extern char editor[];
-extern char editopts[];
-extern char editfile[];
-#endif /* NOFRILLS */
-#endif /* NOPUSH */
-
-#ifdef BROWSER
-extern char browser[]; /* Web browser application */
-extern char browsopts[]; /* Web browser options */
-extern char browsurl[]; /* Most recent URL */
-#endif /* BROWSER */
-#ifndef NOFTP
-char ftpapp[CKMAXPATH+1] = { NUL, NUL }; /* ftp executable */
-char ftpopts[128] = { NUL, NUL }; /* ftp command-line options */
-#endif /* NOFTP */
-extern struct keytab onoff[]; /* On/Off keyword table */
-
-#ifdef CK_TMPDIR
-int f_tmpdir = 0; /* Directory changed temporarily */
-char savdir[TMPDIRLEN]; /* For saving current directory */
-#endif /* CK_TMPDIR */
-
-int activecmd = -1; /* Keyword index of active command */
-int doconx = -1; /* CONNECT-class command active */
-int ooflag = 0; /* User-settable on/off flag */
-
-int rcflag = 0; /* Pointer to home directory string */
-int repars, /* Reparse needed */
- techo = 0; /* Take echo */
-int secho = 1; /* SCRIPT echo */
-
-int xitwarn = /* Warn about open connection on exit */
-#ifdef NOWARN
-0
-#else
-1
-#endif /* NOWARN */
-;
-
-struct keytab onoffsw[] = {
- { "/off", 0, 0 },
- { "/on", 1, 0 }
-};
-
-#ifdef CKEXEC
-struct keytab redirsw[] = {
- { "/redirect", 1, 0 }
-};
-#endif /* CKEXEC */
-
-#ifndef NOXMIT
-/* Variables for TRANSMIT command */
-
-int xmitx = 1; /* Whether to echo during TRANSMIT */
-int xmitf = 0; /* Character to fill empty lines */
-int xmitl = 0; /* 0 = Don't send linefeed too */
-int xmitp = LF; /* Host line prompt */
-int xmits = 0; /* Use shift-in/shift-out, 0 = no */
-int xmitw = 0; /* Milliseconds to pause during TRANSMIT */
-int xmitt = 1; /* Seconds to wait for each char to echo */
-int xmita = 1; /* Action upon timeout */
-
-#define XMI_BIN 1
-#define XMI_TXT 2
-#define XMI_CMD 3
-#define XMI_TRA 4
-#define XMI_VRB 5
-#define XMI_QUI 6
-#define XMI_NOW 7
-#define XMI_NOE 8
-
-static struct keytab xmitsw[] = { /* TRANSMIT command options */
- { "/binary", XMI_BIN, 0 },
-#ifdef PIPESEND
- { "/command", XMI_CMD, CM_INV|CM_PSH },
-#endif /* PIPESEND */
- { "/noecho", XMI_NOE, 0 },
- { "/nowait", XMI_NOW, 0 },
-#ifdef PIPESEND
- { "/pipe", XMI_CMD, 0 },
-#endif /* PIPESEND */
-#ifdef COMMENT
- { "/quiet", XMI_QUI, 0 },
-#endif /* COMMENT */
- { "/text", XMI_TXT, 0 },
- { "/transparent", XMI_TRA, 0 },
-#ifdef COMMENT
- { "/verbose", XMI_VRB, 0 },
-#endif /* COMMENT */
- { "", 0, 0 }
-};
-#define NXMITSW sizeof(xmitsw)/sizeof(struct keytab) - 1
-static int nxmitsw = NXMITSW;
-
-#endif /* NOXMIT */
-
-/* Declarations from ck?fio.c module */
-
-extern char *SPACMD, *SPACM2; /* SPACE commands */
-
-/* Command-oriented items */
-
-#ifdef DCMDBUF
-extern char *cmdbuf; /* Command buffers */
-extern char *atmbuf;
-extern char *line; /* Character buffer for anything */
-extern char *tmpbuf; /* Short temporary string buffer */
-extern int *ifcmd;
-extern int *intime;
-extern int *inpcas;
-#else
-extern char cmdbuf[]; /* Command buffers */
-extern char atmbuf[];
-extern char line[]; /* Character buffer for anything */
-extern char tmpbuf[]; /* Temporary buffer */
-extern int ifcmd[];
-extern int intime[];
-extern int inpcas[];
-#endif /* DCMDBUF */
-
-#ifndef NOSPL
-extern char * prstring[];
-#endif /* NOSPL */
-
-char *lp; /* Pointer to line buffer */
-
-#ifndef NOSPL
-int unkmacro = 0; /* Flag for in ON_UNKNOWN_COMMAND */
-int oldeval = 0;
-char evalbuf[33]; /* EVALUATE result */
-extern char * inpbuf; /* Buffer for INPUT and REINPUT */
-char *inpbp; /* And pointer to same */
-extern char lblbuf[]; /* Buffer for labels */
-int m_found; /* MINPUT result */
-int i_active = 0; /* INPUT command is active */
-char *ms[MINPMAX]; /* Pointers to MINPUT strings */
-static int mp[MINPMAX]; /* and flags */
-extern int fndiags, fnerror, fnsuccess; /* Function diagnostics */
-#ifndef NOSEXP
-char * lastsexp = NULL; /* S-Expressions */
-char * sexpval = NULL;
-int sexpecho = SET_AUTO;
-#endif /* NOSEXP */
-#endif /* NOSPL */
-
-char psave[PROMPTL] = { NUL }; /* For saving & restoring prompt */
-
-extern int success; /* Command success/failure flag */
-extern int cmdlvl; /* Current position in command stack */
-
-#ifndef NOSPL
-int /* SET INPUT parameters. */
-/* Note, INPUT TIMEOUT, intime[], is on the command-level stack. */
- inbufsize = 0, /* INPUT buffer size */
- indef = 1, /* default timeout, seconds */
- inecho = 1, /* 1 = echo on */
- inautodl = 0, /* INPUT autodownload */
- inintr = 1, /* INPUT interrupion allowed */
- innomatch = 0, /* INPUT /NOMATCH */
- insilence = 0; /* 0 = no silence constraint */
-
-#ifdef CKFLOAT
-CKFLOAT inscale = 1.0; /* Timeout scale factor */
-#endif /* CKFLOAT */
-
-#ifdef OS2
-int interm = 1; /* Terminal emulator displays input */
-#endif /* OS2 */
-int maclvl = -1; /* Macro nesting level */
-int mecho = 0; /* Macro echo, 0 = don't */
-char varnam[6]; /* For variable names */
-extern int macargc[]; /* ARGC from macro invocation */
-
-extern char *m_arg[MACLEVEL][NARGS]; /* Stack of macro arguments */
-extern char *mrval[];
-
-extern char **a_ptr[]; /* Array pointers */
-extern int a_dim[]; /* Array dimensions */
-extern int a_link[];
-
-#ifdef DCMDBUF
-extern struct cmdptr *cmdstk; /* The command stack itself */
-#else
-extern struct cmdptr cmdstk[]; /* The command stack itself */
-#endif /* DCMDBUF */
-
-long ck_alarm = 0; /* SET ALARM value */
-char alrm_date[24] = { ' ',' ',' ',' ',' ',' ',' ',' ',' ' };
-char alrm_time[24] = { ' ',' ',' ',' ',' ',' ',' ' };
-
-#define INPSW_NOM 1
-struct keytab inputsw[] = {
- { "/nomatch", INPSW_NOM, 0 }
-};
-static int ninputsw = sizeof(inputsw)/sizeof(struct keytab);
-
-#endif /* NOSPL */
-
-static int x, y, z = 0; /* Local workers */
-static char *s;
-
-#ifdef CK_MINPUT
-static char c1chars[] = { /* C1 control chars escept NUL */
- 001,002,003,004,005,006,007,010,011,012,013,014,015,016,017,020,
- 021,022,023,024,025,026,027,030,031,032,033,034,035,036,037
-};
-#endif /* CK_MINPUT */
-
-#define xsystem(s) zsyscmd(s)
-
-/* Top-Level Interactive Command Keyword Table */
-/* Keywords must be in lowercase and in alphabetical order. */
-
-struct keytab cmdtab[] = {
-#ifndef NOPUSH
- { "!", XXSHE, CM_INV|CM_PSH }, /* Shell escape */
-#else
- { "!", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
- { "#", XXCOM, CM_INV }, /* Comment */
-#ifndef NOSPL
- { "(", XXSEXP,CM_INV }, /* S-Expression */
- { ".", XXDEF, CM_INV }, /* Assignment */
- { ":", XXLBL, CM_INV }, /* Label */
-#endif /* NOSPL */
-#ifdef CK_REDIR
-#ifndef NOPUSH
- { "<", XXFUN, CM_INV|CM_PSH }, /* REDIRECT */
-#else
- { "<", XXNOTAV, CM_INV|CM_PSH }, /* REDIRECT */
-#endif /* NOPUSH */
-#endif /* CK_REDIR */
-#ifndef NOPUSH
- { "@", XXSHE, CM_INV|CM_PSH }, /* DCL escape */
-#else
- { "@", XXNOTAV, CM_INV|CM_PSH }, /* DCL escape */
-#endif /* NOPUSH */
-
-#ifdef CK_RECALL
- { "^", XXREDO,CM_INV|CM_NOR }, /* Synonym for REDO */
-#endif /* CK_RECALL */
-#ifndef NOSPL
- { "_asg", XXASX, CM_INV }, /* Used internally by FOR, etc */
- { "_assign", XXASX, CM_INV }, /* Used internally by FOR, etc */
- { "_decrement", XX_DECR, CM_INV },
- { "_define", XXDFX, CM_INV }, /* Used internally by FOR, etc */
- { "_evaluate", XX_EVAL, CM_INV },
- { "_forward", XXXFWD, CM_INV }, /* Used internally by SWITCH */
- { "_getargs", XXGTA, CM_INV }, /* Used internally by FOR, etc */
- { "_increment", XX_INCR, CM_INV },
- { "_putargs", XXPTA, CM_INV }, /* Used internally by FOR, etc */
- { "_undefine", XXUNDFX, CM_INV },
-#endif /* NOSPL */
-
- { "about", XXVER, CM_INV }, /* Synonym for VERSION */
-#ifndef NOSPL
-#ifdef NEWFTP
- { "account", XXACCT, CM_INV }, /* (FTP) Account */
-#endif /* NEWFTP */
-#ifdef ADDCMD
- { "add", XXADD, 0 }, /* ADD */
-#endif /* ADDCMD */
-#ifndef NODIAL
- { "answer", XXANSW, CM_LOC }, /* ANSWER the phone */
-#else
- { "answer", XXNOTAV, CM_INV|CM_LOC }, /* ANSWER the phone */
-#endif /* NODIAL */
- { "apc", XXAPC, 0 }, /* Application Program Command */
-#ifndef NOSPL
- { "array", XXARRAY, 0 }, /* Array operations */
-#endif /* NOSPL */
- { "ascii", XXASC, CM_INV }, /* == SET FILE TYPE TEXT */
- { "asg", XXASS, CM_INV }, /* Invisible synonym for ASSIGN */
- { "ask", XXASK, 0 }, /* ASK for text, assign to variable */
- { "askq", XXASKQ,0 }, /* ASK quietly (no echo) */
-#ifndef NOSPL
- { "ass", XXASS, CM_INV|CM_ABR }, /* ASSIGN */
- { "assert", XXASSER, CM_INV }, /* ASSERT */
- { "assign", XXASS, 0 }, /* ASSIGN */
-#endif /* NOSPL */
-#ifndef NOXFER
-#ifndef NOCSETS
- { "associate", XXASSOC, 0 }, /* ASSOCIATE */
-#else
- { "associate", XXNOTAV, CM_INV }, /* ASSOCIATE */
-#endif /* NOCSETS */
-#endif /* NOXFER */
-#ifdef CK_KERBEROS
-#ifdef CK_AUTHENTICATION
- { "authenticate",XXAUTH, 0 }, /* Authentication */
-#else
- { "authenticate",XXAUTH, CM_INV },
-#endif /* CK_AUTHENTICATION */
-#endif /* CK_KERBEROS */
-#endif /* NOSPL */
-#ifndef NOFRILLS
- { "back", XXBACK, 0 }, /* BACK to previous directory */
-#else
- { "back", XXNOTAV,CM_INV },
-#endif /* NOFRILLS */
- { "beep", XXBEEP,CM_INV }, /* BEEP */
-#ifndef NOXFER
- { "binary", XXBIN, CM_INV }, /* == SET FILE TYPE BINARY */
-#endif /* NOXFER */
-#ifndef NOFRILLS
- { "bug", XXBUG, CM_INV }, /* BUG report instructions */
-#else
- { "bug", XXNOTAV, CM_INV },
-#endif /* NOFRILLS */
-#ifdef BROWSER
- { "browse", XXBROWS, CM_PSH|CM_LOC }, /* BROWSE (start browser) */
-#else
- { "browse", XXNOTAV, CM_INV|CM_PSH|CM_LOC },
-#endif /* BROWSER */
-#ifndef NOXFER
- { "bye", XXBYE, 0 }, /* BYE to remote server */
-#endif /* NOXFER */
-#ifndef NOLOCAL
- { "c", XXCON, CM_INV|CM_ABR|CM_LOC }, /* (CONNECT) */
-#endif /* NOLOCAL */
-#ifndef NOFRILLS
- { "cat", XXCAT, CM_INV }, /* Invisible synonym for TYPE */
-#endif /* NOFRILLS */
-#ifndef NOSPL
-
-#ifndef NOXFER
- { "cautious", XXCAU, CM_INV },
-#endif /* NOXFER */
-
-#endif /* NOSPL */
-
- { "cd", XXCWD, 0 }, /* Change Directory */
- { "cdup", XXCDUP, CM_INV }, /* Change Directory Up */
-
-#ifndef NOXFER
-#ifdef PIPESEND
- { "cget", XXCGET, CM_INV|CM_PSH }, /* CGET */
-#else
- { "cget", XXNOTAV, CM_INV|CM_PSH }, /* CGET */
-#endif /* PIPESEND */
-#endif /* NOXFER */
- { "ch", XXCHK, CM_INV|CM_ABR },
- { "check", XXCHK, 0 }, /* CHECK for a feature */
-#ifdef CK_PERMS
-#ifdef UNIX
- { "chmod", XXCHMOD, 0 }, /* CHMOD */
-#else
- { "chmod", XXNOTAV, CM_INV },
-#endif /* UNIX */
-#else
- { "chmod", XXNOTAV, CM_INV },
-#endif /* CK_PERMS */
-#ifdef CKROOT
- { "chroot", XXCHRT, CM_INV }, /* CHROOT */
-#endif /* CKROOT */
- { "ckermit", XXKERMI, CM_INV }, /* CKERMIT (like KERMIT) */
- { "cl", XXCLO, CM_ABR|CM_INV },
-#ifndef NOFRILLS
- { "clear", XXCLE, 0 }, /* CLEAR input and/or device buffer */
-#else
- { "clear", XXNOTAV, CM_INV },
-#endif /* NOFRILLS */
- { "close", XXCLO, 0 }, /* CLOSE a log or other file */
- { "cls", XXCLS, CM_INV }, /* Clear Screen (CLS) */
- { "comment", XXCOM, CM_INV }, /* Introduce a comment */
-#ifndef NOLOCAL
- { "connect", XXCON, CM_LOC }, /* Begin terminal connection */
-#else
- { "connect", XXNOTAV, CM_LOC },
-#endif /* NOLOCAL */
- { "continue", XXCONT, CM_INV }, /* CONTINUE */
-#ifndef NOFRILLS
-#ifdef ZCOPY
- { "co", XXCPY, CM_INV|CM_ABR },
- { "cop", XXCPY, CM_INV|CM_ABR },
- { "copy", XXCPY, 0 }, /* COPY a file */
-#else
- { "copy", XXNOTAV, CM_INV },
-#endif /* ZCOPY */
- { "copyright", XXCPR, CM_INV }, /* COPYRIGHT */
-#ifdef ZCOPY
- { "cp", XXCPY, CM_INV }, /* COPY a file */
-#endif /* ZCOPY */
-#ifndef NOLOCAL
-#ifndef OS2
- { "cq", XXCQ, CM_INV|CM_LOC }, /* CQ (connect quietly) */
-#endif /* OS2 */
-#endif /* NOLOCAL */
-#ifndef NOXFER
-#ifdef PIPESEND
- { "creceive", XXCREC,CM_INV|CM_PSH }, /* RECEIVE to a command */
- { "csend", XXCSEN,CM_INV|CM_PSH }, /* SEND from command */
-#else
- { "creceive", XXNOTAV,CM_INV|CM_PSH },
- { "csend", XXNOTAV,CM_INV|CM_PSH },
-#endif /* PIPESEND */
-#endif /* NOXFER */
-#endif /* NOFRILLS */
-
- { "cwd", XXCWD, CM_INV }, /* Traditional synonym for cd */
-
-#ifndef NOSPL
- { "date", XXDATE, 0 }, /* DATE */
- { "dcl", XXDCL, CM_INV }, /* DECLARE an array (see ARRAY) */
- { "debug", XXDEBUG, CM_INV },
- { "declare", XXDCL, CM_INV }, /* DECLARE an array (see ARRAY) */
- { "decrement", XXDEC, 0 }, /* DECREMENT a numeric variable */
- { "define", XXDEF, 0 }, /* DEFINE a macro or variable */
-#else
- { "date", XXNOTAV, CM_INV },
- { "dcl", XXNOTAV, CM_INV },
- { "declare", XXNOTAV, CM_INV },
- { "decrement", XXNOTAV, CM_INV },
- { "define", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
- { "delete", XXDEL, 0 }, /* DELETE a file */
-#else
- { "delete", XXNOTAV, CM_INV },
-#endif /* NOFRILLS */
-
-#ifndef NODIAL
- { "dial", XXDIAL, CM_LOC }, /* DIAL a phone number */
-#else
- { "dial", XXNOTAV, CM_INV|CM_LOC },
-#endif /* NODIAL */
-
-#ifdef NT
- { "dialer", XXDIALER, CM_INV }, /* K95 Dialer */
-#endif /* NT */
-
- { "directory", XXDIR, 0 }, /* DIRECTORY of files */
-
-#ifndef NOFRILLS
-#ifndef NOSERVER
- { "disable", XXDIS, 0 }, /* DISABLE a server function */
-#else
- { "disable", XXNOTAV, CM_INV },
-#endif /* NOSERVER */
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
- { "do", XXDO, 0 }, /* DO (execute) a macro */
-#else
- { "do", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
- { "e", XXEXI, CM_INV|CM_ABR },
-
-#ifndef NOFRILLS
-#ifndef NOXFER
- { "e-packet", XXERR, CM_INV }, /* Send an Error-Packet */
-#endif /* NOXFER */
-#endif /* NOFRILLS */
-
- { "echo", XXECH, 0 }, /* ECHO text */
-
-#ifndef NOFRILLS
-#ifndef NOPUSH
- { "edit", XXEDIT, CM_PSH }, /* EDIT */
-#else
- { "edit", XXNOTAV, CM_INV|CM_PSH }, /* EDIT */
-#endif /* NOPUSH */
-#endif /* NOFRILLS */
-
- { "eightbit", XXEIGHT, CM_INV }, /* EIGHTBIT */
-
-#ifndef NOSPL
- { "else", XXELS, CM_INV }, /* ELSE part of IF statement */
-#else
- { "else", XXNOTAV, CM_INV }, /* ELSE part of IF statement */
-#endif /* NOSPL */
-
-#ifndef NOSERVER
-#ifndef NOFRILLS
- { "enable", XXENA, 0 }, /* ENABLE a server function */
-#else
- { "enable", XXNOTAV, CM_INV },
-#endif /* NOFRILLS */
-#endif /* NOSERVER */
-
-#ifndef NOSPL
- { "end", XXEND, 0 }, /* END command file or macro */
-#else
- { "end", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
- { "erase", XXDEL, CM_INV }, /* Synonym for DELETE */
-
-#ifndef NOSPL
- { "evaluate", XXEVAL, 0 }, /* EVALUATE */
-#else
- { "evaluate", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
- { "ex", XXEXI, CM_INV|CM_ABR }, /* Let "ex" still be EXIT */
-
-#ifdef CKEXEC
- { "exec", XXEXEC, CM_INV|CM_LOC }, /* exec() */
-#else
- { "exec", XXNOTAV, CM_INV|CM_LOC },
-#endif /* CKEXEC */
-
- { "exit", XXEXI, 0 }, /* EXIT from C-Kermit */
- { "extended-options", XXXOPTS,CM_INV|CM_HLP }, /* Extended-Options */
-
-#ifdef OS2
- { "extproc", XXCOM, CM_INV }, /* Dummy command for OS/2 */
-#endif /* OS2 */
-
-#ifndef NOXFER
- { "f", XXFIN, CM_INV|CM_ABR }, /* Invisible abbrev for FIN */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "fail", XXFAIL, CM_INV }, /* FAIL */
-
-#ifndef NOXFER
- { "fast", XXFAST, CM_INV },
-#endif /* NOXFER */
-
-#ifdef CKCHANNELIO
- { "fclose", XXF_CL, CM_INV }, /* FCLOSE */
- { "fcount", XXF_CO, CM_INV }, /* FCOUNT */
- { "fflush", XXF_FL, CM_INV }, /* FFLUSH */
-#endif /* CKCHANNELIO */
-
-#ifndef NOXFER
- { "fi", XXFIN, CM_INV|CM_ABR }, /* FINISH */
-#endif /* NOXFER */
-
-#ifdef CKCHANNELIO
- { "file", XXFILE, 0 }, /* FILE */
-#endif /* CKCHANNELIO */
-#endif /* NOSPL */
-
-#ifndef NOXFER
- { "fin", XXFIN, CM_INV|CM_ABR }, /* FINISH */
-#endif /* NOXFER */
-
-#ifndef UNIXOROSK
- { "find", XXGREP, 0 }, /* FIND (grep) */
-#else
- { "find", XXGREP,CM_INV },
-#endif /* UNIXOROSK */
-
-#ifndef NOXFER
- { "finish", XXFIN, 0 }, /* FINISH */
-#endif /* NOXFER */
-
-#ifdef TCPSOCKET
- { "firewall", XXFIREW, CM_INV|CM_HLP },
-#endif /* TCPSOCKET */
-
-#ifdef CKCHANNELIO
- { "flist", XXF_LI, CM_INV }, /* FLIST */
- { "fopen", XXF_OP, CM_INV }, /* FOPEN */
-#endif /* CKCHANNELIO */
-
-#ifndef NOSPL
- { "fo", XXFOR, CM_INV|CM_ABR }, /* Invisible abbrev for... */
- { "for", XXFOR, 0 }, /* FOR loop */
- { "forward", XXFWD, CM_INV }, /* FORWARD */
-#endif /* NOSPL */
-#ifndef NOFRILLS
- { "fot", XXDIR, CM_INV }, /* "fot" = "dir" (for Chris) */
-#endif /* NOFRILLS */
-
-#ifdef CKCHANNELIO
- { "fread", XXF_RE, CM_INV }, /* FREAD */
- { "frewind", XXF_RW, CM_INV }, /* FREWIND */
- { "fseek", XXF_SE, CM_INV }, /* FSEEK */
- { "fstatus", XXF_ST, CM_INV }, /* FSTATUS */
-#endif /* CKCHANNELIO */
-
-#ifdef TCPSOCKET
-#ifndef NOFTP
-#ifdef SYSFTP
-#ifndef NOPUSH
- { "ftp", XXFTP, CM_INV|CM_PSH|CM_LOC }, /* System FTP */
-#else
- { "ftp", XXNOTAV, CM_INV|CM_PSH|CM_LOC },
-#endif /* NOPUSH */
-#else /* SYSFTP */
- { "ftp", XXFTP, 0 }, /* Built-in FTP */
-#endif /* SYSFTP */
-#else /* NOFTP */
- { "ftp", XXNOTAV, CM_INV }, /* No FTP */
-#endif /* NOFTP */
-#endif /* TCPSOCKET */
-
-#ifndef NOSPL
- { "function", XXFUNC, CM_INV|CM_HLP }, /* (for HELP FUNCTION) */
-#endif /* NOSPL */
-
-#ifdef CKCHANNELIO
- { "fwrite", XXF_WR, CM_INV }, /* FWRITE */
-#endif /* CKCHANNELIO */
-
-#ifndef NOXFER
- { "g", XXGET, CM_INV|CM_ABR }, /* Invisible abbrev for GET */
-#ifndef NOSPL
- { "ge", XXGET, CM_INV|CM_ABR }, /* Ditto */
-#endif /* NOSPL */
- { "get", XXGET, 0 }, /* GET */
-#endif /* NOXFER */
-#ifndef NOSPL
- { "getc", XXGETC, 0 }, /* GETC */
-#ifdef OS2
- { "getkeycode", XXGETK, 0 }, /* GETKEYCODE */
-#endif /* OS2 */
-#ifndef NOFRILLS
- { "getok", XXGOK, 0 }, /* GETOK (ask for Yes/No/OK) */
-#endif /* NOFRILLS */
-#endif /* NOSPL */
-#ifndef NOSPL
- { "goto", XXGOTO,0 }, /* GOTO label in take file or macro */
-#endif /* NOSPL */
-#ifdef UNIXOROSK
- { "grep", XXGREP,0 }, /* GREP (find) */
-#else
- { "grep", XXGREP,CM_INV }, /* GREP (find) */
-#endif /* UNIXOROSK */
- { "h", XXHLP, CM_INV|CM_ABR }, /* Invisible synonym for HELP */
- { "he", XXHLP, CM_INV|CM_ABR }, /* Invisible synonym for HELP */
-#ifndef NOFRILLS
- { "head", XXHEAD, 0 },
-#endif /* NOFRILLS */
-#ifndef NOLOCAL
- { "hangup", XXHAN, CM_LOC }, /* HANGUP the connection */
-#endif /* NOLOCAL */
- { "HELP", XXHLP, 0 }, /* Display HELP text */
-#ifndef NOHTTP
-#ifdef TCPSOCKET
- { "http", XXHTTP, 0 }, /* HTTP operations */
-#endif /* TCPSOCKET */
-#endif /* NOHTTP */
-#ifndef NOSPL
- { "i", XXINP, CM_INV|CM_ABR }, /* Invisible synonym for INPUT */
- { "if", XXIF, 0 }, /* IF ( condition ) command */
-#ifdef TCPSOCKET
- { "iksd", XXIKSD, CM_INV }, /* Make connection to IKSD */
-#else
- { "iksd", XXNOTAV, CM_INV },
-#endif /* TCPSOCKET */
- { "in", XXINP, CM_INV|CM_ABR }, /* Invisible synonym for INPUT */
- { "increment", XXINC, 0 }, /* Increment a numeric variable */
- { "input", XXINP, 0 }, /* INPUT text from comm device */
-#endif /* NOSPL */
-
-#ifndef NOHELP
- { "int", XXINT, CM_INV|CM_ABR },
- { "intr", XXINT, CM_INV|CM_ABR },
- { "INTRO", XXINT, 0 },
- { "introduction",XXINT, CM_INV }, /* Print introductory text */
-#else
- { "intro", XXNOTAV, CM_INV },
- { "introduction",XXNOTAV, CM_INV },
-#endif /* NOHELP */
-
-#ifdef OS2
- { "k95", XXKERMI, CM_INV }, /* Hmmm what's this... */
-#endif /* OS2 */
-
-#ifndef NOSPL
- { "kcd", XXKCD, 0 },
-#endif /* NOSPL */
-
- { "kermit", XXKERMI, CM_INV },
-
-#ifdef OS2
-#ifndef NOKVERBS
- { "kverb", XXKVRB, CM_INV|CM_HLP }, /* Keyboard verb */
-#endif /* NOKVERBS */
-#endif /* OS2 */
-
-#ifndef NOFRILLS
- { "l", XXLOG, CM_INV|CM_ABR }, /* Invisible synonym for log */
-#endif /* NOFRILLS */
-
- { "lcd", XXLCWD, CM_INV },
- { "lcdup", XXLCDU, CM_INV },
- { "lcwd", XXLCWD, CM_INV },
- { "ldelete", XXLDEL, CM_INV },
- { "ldirectory", XXLDIR, CM_INV },
-
-#ifdef CKLEARN
- { "learn", XXLEARN, 0 }, /* LEARN - automatic script writing */
-#else
- { "learn", XXNOTAV, CM_INV },
-#endif /* CKLEARN */
-
- { "li", XXLNOUT, CM_INV|CM_ABR },
- { "LICENSE", XXCPR, 0 }, /* LICENSE */
-
-#ifndef NOSPL
- { "lineout", XXLNOUT, 0 }, /* LINEOUT = OUTPUT + eol */
-#endif /* NOSPL */
-
-#ifdef NT
- { "link", XXLINK, 0 }, /* LINK source destination */
-#endif /* NT */
-
- { "lmkdir", XXLMKD, CM_INV },
-
-#ifndef NOFRILLS
- { "lo", XXLOG, CM_INV|CM_ABR }, /* Invisible synonym for log */
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
- { "local", XXLOCAL, CM_INV }, /* LOCAL variable declaration */
-#else
- { "local", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
- { "log", XXLOG, 0 }, /* Open a log file */
-
- { "login", XXLOGIN, 0 }, /* (REMOTE) LOGIN to server or IKSD */
- { "logout", XXLOGOUT, 0 }, /* LOGOUT from server or IKSD */
-
-#ifndef NOFRILLS
-#ifndef NODIAL
- { "lookup", XXLOOK, 0 }, /* LOOKUP */
-#else
- { "lookup", XXNOTAV, CM_INV },
-#endif /* NODIAL */
-
- { "lpwd", XXLPWD, CM_INV },
- { "lrename", XXLREN, CM_INV },
- { "lrmdir", XXLRMD, CM_INV },
-
-#ifdef UNIXOROSK
- { "ls", XXLS, CM_INV|CM_PSH }, /* UNIX ls command */
-#else
- { "ls", XXDIR, CM_INV }, /* Invisible synonym for DIR */
-#endif /* UNIXOROSK */
-#ifndef NOXFER
- { "mail", XXMAI, 0 }, /* Send a file as e-mail */
-#endif /* NOXFER */
-#ifndef NOHELP
- { "manual", XXMAN, CM_PSH }, /* MAN(UAL) */
-#else
- { "manual", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOHELP */
-#endif /* NOFRILLS */
-#ifdef CK_MKDIR
- { "md", XXMKDIR, CM_INV }, /* Synonym for MKDIR */
-#endif /* CK_MKDIR */
-#ifdef CK_MINPUT
- { "minput", XXMINP, 0 }, /* MINPUT */
-#else
- { "minput", XXNOTAV, CM_INV },
-#endif /* CK_MINPUT */
-#ifndef NOMSEND
- { "mget", XXMGET, 0 }, /* MGET */
-#else
- { "mget", XXNOTAV, CM_INV },
-#endif /* NOMSEND */
-#ifdef CK_MKDIR
- { "mkdir", XXMKDIR, 0 }, /* MKDIR */
-#else
- { "mkdir", XXNOTAV, CM_INV },
-#endif /* CK_MKDIR */
-
-#ifndef NOXFER
-#ifndef NOMSEND
- { "mmove", XXMMOVE, 0 }, /* MMOVE */
-#else
- { "mmove", XXNOTAV, CM_INV },
-#endif /* NOMSEND */
-#endif /* NOXFER */
-
-#ifndef NOFRILLS
- { "more", XXMORE, CM_INV }, /* MORE */
-#endif /* NOFRILLS */
-
-#ifndef NOXFER
- { "move", XXMOVE, 0 }, /* MOVE */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "mpause", XXMSL, CM_INV }, /* Millisecond sleep */
-#else
- { "mpause", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOXFER
-#ifndef NOMSEND
- { "mput", XXMSE, CM_INV }, /* MPUT = MSEND */
- { "ms", XXMSE, CM_INV|CM_ABR },
- { "msend", XXMSE, 0 }, /* Multiple SEND */
-#else
- { "mput", XXNOTAV, CM_INV },
- { "msend", XXNOTAV, CM_INV },
-#endif /* NOMSEND */
-#endif /* NOXFER */
-#ifndef NOSPL
- { "msleep", XXMSL, 0 }, /* Millisecond sleep */
-#else
- { "msleep", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-#ifndef NOFRILLS
- { "mv", XXREN, CM_INV }, /* Synonym for rename */
-#endif /* NOFRILLS */
-#ifndef NOHELP
- { "news", XXNEW, CM_INV }, /* Display NEWS of new features */
-#else
- { "news", XXNOTAV, CM_INV },
-#endif /* NOHELP */
- { "nolocal", XXNLCL, CM_INV }, /* Disable SET LINE / SET HOST */
- { "nopush", XXNPSH, CM_INV }, /* Disable PUSH command/features */
-#ifdef OS2
- { "noscroll", XXNSCR, CM_INV }, /* Disable scroll operations */
-#endif /* OS2 */
-#ifndef NOSPL
- { "o", XXOUT, CM_INV|CM_ABR }, /* Invisible synonym for OUTPUT */
- { "open", XXOPE, 0 }, /* OPEN file for reading or writing */
-#else
- { "open", XXOPE, CM_INV }, /* OPEN */
-#endif /* NOSPL */
-#ifndef NOHELP
- { "options", XXOPTS,CM_INV|CM_HLP }, /* Options */
-#endif /* NOHELP */
- { "orientation", XXORIE, 0 },
-#ifndef NOSPL
- { "output", XXOUT, 0 }, /* OUTPUT text to comm device */
-#else
- { "output", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-#ifdef ANYX25
-#ifndef IBMX25
- { "pad", XXPAD, CM_LOC }, /* X.3 PAD commands */
-#endif /* IBMX25 */
-#endif /* ANYX25 */
-
-#ifdef NEWFTP
- { "passive", XXPASV, CM_INV }, /* (FTP) PASSIVE */
-#endif /* NEWFTP */
-
-#ifndef NOHELP
- { "patterns", XXPAT,CM_INV|CM_HLP }, /* Pattern syntax */
-#endif /* NOHELP */
-
-#ifndef NOSPL
- { "pause", XXPAU, 0 }, /* Sleep for specified interval */
-#else
- { "pause", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-#ifndef NODIAL
- { "pdial", XXPDIA, CM_LOC }, /* PDIAL (partial dial) */
-#else
- { "pdial", XXNOTAV, CM_INV|CM_LOC },
-#endif /* NODIAL */
-#ifdef TCPSOCKET
-#ifndef NOPUSH
- { "ping", XXPNG, CM_INV|CM_PSH|CM_LOC }, /* PING */
-#else
- { "ping", XXNOTAV, CM_INV|CM_PSH|CM_LOC },
-#endif /* NOPUSH */
-#endif /* TCPSOCKET */
-#ifdef NETCMD
-#ifndef NOPUSH
- { "pipe", XXPIPE, CM_PSH }, /* PIPE */
-#else
- { "pipe", XXNOTAV, CM_INV|CM_PSH }, /* PIPE */
-#endif /* NOPUSH */
-#endif /* NETCMD */
-
-#ifndef NOSPL
- { "pop", XXEND, CM_INV }, /* Invisible synonym for END */
-#endif /* NOSPL */
-#ifndef NOFRILLS
- { "print", XXPRI, 0 }, /* PRINT a file locally */
-#endif /* NOFRILLS */
-
- { "prompt", XXPROMP, CM_INV }, /* Go interactive (from script) */
-
-#ifndef NOXFER
-#ifdef CK_RESEND
- { "psend", XXPSEN, CM_INV }, /* PSEND */
-#else
- { "psend", XXNOTAV, CM_INV },
-#endif /* CK_RESEND */
-#endif /* NOXFER */
-
-#ifdef NETPTY
- { "pty", XXPTY, CM_PSH }, /* PTY */
-#else
- { "pty", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NETPTY */
-
-#ifndef NOPUSH
- { "pu", XXSHE, CM_INV|CM_ABR|CM_PSH }, /* PU = PUSH */
-#endif /* NOPUSH */
-
-#ifdef CKPURGE
- { "purge", XXPURGE, 0 }, /* PURGE (real) */
-#else
-#ifdef VMS
- { "purge", XXPURGE, 0 }, /* PURGE (fake) */
-#else
- { "purge", XXNOTAV, CM_INV },
-#endif /* VMS */
-#endif /* CKPURGE */
-
-#ifndef NOPUSH
- { "push", XXSHE, CM_PSH }, /* PUSH command (like RUN, !) */
-#else
- { "push", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
-
-#ifndef NOXFER
- { "put", XXSEN, CM_INV }, /* PUT = SEND */
-#endif /* NOXFER */
-
- { "pwd", XXPWD, 0 }, /* Print Working Directory */
- { "q", XXQUI, CM_INV|CM_ABR }, /* Invisible synonym for QUIT */
-
-#ifndef NOXFER
- { "query", XXRQUE,CM_INV }, /* (= REMOTE QUERY) */
-#endif /* NOXFER */
-
- { "quit", XXQUI, 0 }, /* QUIT from program = EXIT */
-
-#ifndef NOXFER
- { "r", XXREC, CM_INV|CM_ABR }, /* Inv synonym for RECEIVE */
-#endif /* NOXFER */
-
-#ifndef NOXFER
- { "rasg", XXRASG, CM_INV }, /* REMOTE ASSIGN */
- { "rassign", XXRASG, CM_INV }, /* ditto */
- { "rcd", XXRCWD, CM_INV }, /* REMOTE CD */
- { "rcdup", XXRCDUP,CM_INV }, /* REMOTE CD */
- { "rcopy", XXRCPY, CM_INV }, /* REMOTE COPY */
- { "rcwd", XXRCWD, CM_INV }, /* REMOTE CWD */
- { "rdelete", XXRDEL, CM_INV }, /* REMOTE DELETE */
- { "rdirectory", XXRDIR, CM_INV }, /* REMODE DIRECTORY */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "read", XXREA, 0 }, /* READ a line from a file */
-#else
- { "read", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOXFER
- { "receive", XXREC, 0 }, /* RECEIVE files */
-#endif /* NOXFER */
-
-#ifndef NODIAL
- { "red", XXRED, CM_INV|CM_ABR|CM_LOC }, /* Inv syn for REDIAL */
- { "redi", XXRED, CM_INV|CM_ABR|CM_LOC }, /* ditto */
- { "redial", XXRED, CM_LOC }, /* REDIAL last DIAL number */
-#else
- { "red", XXNOTAV, CM_INV|CM_LOC },
- { "redi", XXNOTAV, CM_INV|CM_LOC },
- { "redial", XXNOTAV, CM_INV|CM_LOC },
-#endif /* NODIAL */
-
-#ifdef CK_REDIR
-#ifdef OS2
-#ifndef NOPUSH
- { "redirect", XXFUN, CM_INV|CM_PSH }, /* REDIRECT */
-#else
- { "redirect", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
-#else /* OS2 */
-#ifndef NOPUSH
- { "redirect", XXFUN, CM_PSH }, /* REDIRECT */
-#else
- { "redirect", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
-#endif /* OS2 */
-#endif /* CK_REDIR */
-
-#ifdef CK_RECALL
- { "redo", XXREDO, CM_NOR }, /* REDO */
-#else
- { "redo", XXNOTAV, CM_INV },
-#endif /* CK_RECALL */
-
-#ifndef NOXFER
-#ifdef CK_RESEND
- { "reget", XXREGET, 0 }, /* REGET */
-#else
- { "reget", XXNOTAV, CM_INV },
-#endif /* CK_RESEND */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "reinput", XXREI, CM_INV }, /* REINPUT (from INPUT buffer) */
-#else
- { "reinput", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOXFER
-#ifdef ADDCMD
- { "rem", XXREM, CM_INV|CM_ABR },
- { "remo", XXREM, CM_INV|CM_ABR },
-#endif /* ADDCMD */
- { "remote", XXREM, 0 }, /* Send REMOTE command to server */
-#endif /* NOXFER */
-
-#ifdef ADDCMD
- { "remove", XXREMV,0 }, /* REMOVE (something from a list) */
-#else
- { "remove", XXNOTAV, CM_INV },
-#endif /* ADDCMD */
-
-#ifndef NOFRILLS
-#ifndef NORENAME
- { "rename", XXREN, 0 }, /* RENAME a local file */
-#else
- { "rename", XXNOTAV, CM_INV },
-#endif /* NORENAME */
- { "replay", XXTYP, CM_INV }, /* REPLAY (for now, just type) */
-#endif /* NOFRILLS */
-
-#ifndef NOXFER
-#ifdef CK_RESEND
- { "res", XXRSEN, CM_INV|CM_ABR }, /* RESEND */
- { "rese", XXRSEN, CM_INV|CM_ABR }, /* RESEND */
- { "resend", XXRSEN, 0 }, /* RESEND */
-#else
- { "res", XXNOTAV, CM_INV },
- { "rese", XXNOTAV, CM_INV },
- { "resend", XXNOTAV, CM_INV },
-#endif /* CK_RESEND */
-#endif /* NOXFER */
-
- { "reset", XXRESET, CM_INV }, /* RESET */
-
-#ifdef CK_RESEND
-#ifndef NOSPL
- { "ret", XXRET, CM_INV|CM_ABR },
-#endif /* NOSPL */
-#endif /* CK_RESEND */
-
-#ifndef NOXFER
- { "retrieve", XXRETR, CM_INV }, /* RETRIEVE */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "return", XXRET, 0 }, /* RETURN from a function */
-#else
- { "return", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOXFER
- { "rexit", XXRXIT, CM_INV }, /* REMOTE EXIT */
-#endif /* NOXFER */
-
-#ifdef CK_REXX
-#ifndef NOPUSH
- { "rexx", XXREXX, CM_PSH }, /* Execute a Rexx command */
-#else
- { "rexx", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
-#endif /* CK_REXX */
-
-#ifndef NOXFER
- { "rhelp", XXRHLP, CM_INV }, /* REMOTE HELP */
- { "rhost", XXRHOS, CM_INV }, /* REMOTE HOST */
- { "rkermit", XXRKER, CM_INV }, /* REMOTE KERMIT */
-#endif /* NOXFER */
-
-#ifdef TCPSOCKET
- { "rlogin", XXRLOG, CM_LOC }, /* Make an Rlogin connection */
-#else
- { "rlogin", XXNOTAV, CM_INV|CM_LOC },
-#endif /* TCPSOCKET */
-
-#ifndef NOFRILLS
- { "rm", XXDEL, CM_INV }, /* Invisible synonym for delete */
-#endif /* NOFRILLS */
-
-#ifdef CK_MKDIR
- { "rmdir", XXRMDIR, 0 }, /* RMDIR */
-#else
- { "rmdir", XXNOTAV, CM_INV },
-#endif /* CK_MKDIR */
-
-#ifndef NOXFER
- { "rmkdir", XXRMKD, CM_INV }, /* REMOTE MKDIR */
-#ifndef NOSPL
- { "robust", XXROB, CM_INV },
-#else
- { "robust", XXNOTAV, CM_INV },
-#endif /* NOSPL */
- { "rprint", XXRPRI, CM_INV }, /* REMOTE PRINT */
- { "rpwd", XXRPWD, CM_INV }, /* REMOTE PWD */
- { "rquery", XXRQUE, CM_INV }, /* REMOTE QUERY */
-#endif /* NOXFER */
-
-#ifdef CK_RECALL
- { "rr", XXREDO, CM_INV|CM_NOR },
-#endif /* CK_RECALL */
-
-#ifndef NOXFER
- { "rrename", XXRREN, CM_INV }, /* REMOTE RENAME */
- { "rrmdir", XXRRMD, CM_INV }, /* REMOTE REMDIR */
- { "rset", XXRSET, CM_INV }, /* REMOTE SET */
- { "rspace", XXRSPA, CM_INV }, /* REMOTE SPACE */
- { "rtype", XXRTYP, CM_INV }, /* REMOTE TYPE */
-#endif /* NOXFER */
-
-#ifndef NOPUSH
- { "run", XXSHE, CM_PSH }, /* RUN a program or command */
-#else
- { "run", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOPUSH */
-
-#ifndef NOXFER
- { "rwho", XXRWHO, CM_INV }, /* REMOTE WHO */
- { "s", XXSEN, CM_INV|CM_ABR }, /* Invisible synonym for send */
-#endif /* NOXFER */
-
-#ifndef NOSETKEY
-#ifdef OS2
- { "save", XXSAVE, 0 }, /* SAVE something */
-#else
- { "save", XXSAVE, CM_INV },
-#endif /* OS2 */
-#else
- { "save", XXNOTAV, CM_INV },
-#endif /* NOSETKEY */
-
-#ifndef NOSCRIPT
- { "sc", XXLOGI, CM_INV|CM_ABR|CM_LOC },
- { "scr", XXLOGI, CM_INV|CM_ABR|CM_LOC },
-#endif /* NOSCRIPT */
- { "screen", XXSCRN, 0 }, /* SCREEN actions */
-#ifndef NOSCRIPT
- { "script", XXLOGI, CM_LOC }, /* Expect-Send-style script line */
-#else
- { "script", XXNOTAV, CM_INV|CM_LOC },
-#endif /* NOSCRIPT */
-
- { "search", XXGREP,CM_INV }, /* Synonym for GREP and FIND */
-
-#ifndef NOXFER
- { "send", XXSEN, 0 }, /* Send (a) file(s) */
-#ifndef NOSERVER
- { "server", XXSER, 0 }, /* Be a SERVER */
-#else
- { "server", XXNOTAV, CM_INV },
-#endif /* NOSERVER */
-#endif /* NOXFER */
-
- { "set", XXSET, 0 }, /* SET parameters */
-
-#ifndef NOSPL
-#ifndef NOSEXP
- { "sexpression", XXSEXP, CM_INV|CM_HLP }, /* SEXPR */
-#endif /* NOSEXP */
-
-#ifdef SFTP_BUILTIN
- { "sftp", XXSFTP, 0 }, /* SFTP */
-#endif /* SFTP_BUILTIN */
-
-#ifndef NOSHOW
- { "sh", XXSHO, CM_INV|CM_ABR }, /* SHOW parameters */
-#endif /* NOSHOW */
- { "shift", XXSHIFT, 0 }, /* SHIFT args */
-#else
- { "shift", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOSHOW
- { "show", XXSHO, 0 }, /* SHOW parameters */
-#else
- { "show", XXNOTAV, CM_INV },
-#endif /* NOSHOW */
-
-#ifdef NEWFTP
- { "site", XXSITE, CM_INV }, /* (FTP) SITE */
-#endif /* NEWFTP */
-
-#ifdef SSHBUILTIN
- { "skermit", XXSKRM, 0 }, /* SKERMIT */
-#endif /* SSHBUILTIN */
-
-#ifndef NOSPL
-#ifndef NOFRILLS
- { "sleep", XXPAU, CM_INV }, /* SLEEP for specified interval */
-#endif /* NOFRILLS */
-#endif /* NOSPL */
-
-#ifndef NOSPL
- { "sort", XXSORT, CM_INV }, /* (see ARRAY) */
-#else
- { "sort", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef MAC
-#ifndef NOFRILLS
- { "sp", XXSPA, CM_INV|CM_ABR },
- { "spa", XXSPA, CM_INV|CM_ABR },
-#endif /* NOFRILLS */
- { "space", XXSPA, 0 }, /* Show available disk SPACE */
-#endif /* MAC */
-
-#ifndef NOFRILLS
-#ifndef NOPUSH
- { "spawn", XXSHE, CM_INV|CM_PSH }, /* Synonym for PUSH, RUN */
-#else
- { "spawn", XXNOTAV, CM_INV|CM_PSH }, /* Synonym for PUSH, RUN */
-#endif /* NOPUSH */
-#endif /* NOFRILLS */
-
-#ifdef ANYSSH
- { "ssh", XXSSH, 0 },
-#endif /* ANYSSH */
-
-#ifndef NOXFER
- { "sta", XXSTA, CM_INV|CM_ABR },
- { "stat", XXSTA, CM_INV|CM_ABR },
- { "statistics", XXSTA, 0 }, /* Display file transfer stats */
-#endif /* NOXFER */
-
- { "status", XXSTATUS,0 }, /* Show status of previous command */
-
-#ifndef NOSPL
- { "stop", XXSTO, 0 }, /* STOP all take files and macros */
- { "succeed", XXSUCC, CM_INV }, /* SUCCEED */
-#else
- { "stop", XXNOTAV, CM_INV },
- { "succeed", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
- { "SUPPORT", XXBUG, 0 }, /* Tech support instructions */
-#else
- { "support", XXNOTAV, CM_INV },
-#endif /* NOFRILLS */
-
-#ifndef NOJC
- { "suspend", XXSUS, CM_PSH }, /* SUSPEND C-Kermit (UNIX only) */
-#else
- { "suspend", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOJC */
-
-#ifndef NOSPL
- { "switch", XXSWIT, 0 }, /* SWITCH */
-#else
- { "switch", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifdef CK_TAPI
- { "ta", XXTAK, CM_INV|CM_ABR }, /* (because of TAPI) */
-#endif /* CK_TAPI */
-
-#ifndef NOFRILLS
- { "tail", XXTAIL, 0 }, /* Display end of a local file */
-#endif /* NOFRILLS */
-
- { "take", XXTAK, 0 }, /* TAKE commands from a file */
-
-#ifdef CK_TAPI
- { "tapi", XXTAPI, CM_LOC }, /* Microsoft TAPI commands */
-#else
- { "tapi", XXNOTAV, CM_INV|CM_LOC },
-#endif /* CK_TAPI */
-
-#ifndef NOFRILLS
-#ifdef TCPSOCKET
- { "tel", XXTEL, CM_INV|CM_ABR|CM_LOC },
- { "telnet", XXTEL, CM_LOC }, /* TELNET (TCP/IP only) */
- { "telopt", XXTELOP, CM_INV }, /* TELOPT (ditto) */
-#else
- { "tel", XXNOTAV, CM_INV|CM_LOC },
- { "telnet", XXNOTAV, CM_INV|CM_LOC },
- { "telopt", XXNOTAV, CM_INV },
-#endif /* TCPSOCKET */
-#ifdef OS2
- { "terminal", XXTERM, CM_INV|CM_LOC }, /* == SET TERMINAL TYPE */
-#else
- { "terminal", XXTERM, CM_INV },
-#endif /* OS2 */
-#endif /* NOFRILLS */
-#ifndef NOXFER
- { "text", XXASC, CM_INV }, /* == SET FILE TYPE TEXT */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "trace", XXTRACE, 0 }, /* TRACE */
-#else
- { "trace", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOCSETS
- { "translate", XXXLA, 0 }, /* TRANSLATE local file char sets */
-#else
- { "translate", XXNOTAV, CM_INV },
-#endif /* NOCSETS */
-
-#ifndef NOXMIT
- { "transmit", XXTRA, 0 }, /* Send (upload) a file, no protocol */
-#else
- { "transmit", XXNOTAV, CM_INV },
-#endif /* NOXMIT */
-
-#ifndef NOFRILLS
- { "type", XXTYP, 0 }, /* Display a local file */
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
- { "undcl", XXUNDCL, CM_INV },
- { "undeclare", XXUNDCL, 0 }, /* UNDECLARE an array */
- { "undefine", XXUNDEF, 0 }, /* UNDEFINE a variable or macro */
-#else
- { "undcl", XXNOTAV, CM_INV },
- { "undeclare", XXNOTAV, CM_INV },
- { "undefine", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifdef NEWFTP
- { "user", XXUSER, CM_INV }, /* (FTP) USER */
-#endif /* NEWFTP */
-
- { "version", XXVER, 0 }, /* VERSION-number display */
-
-#ifdef OS2
- { "viewonly", XXVIEW, CM_LOC }, /* VIEWONLY Terminal Mode */
-#endif /* OS2 */
-
- { "void", XXVOID, 0 }, /* VOID */
-
-#ifndef NOSPL
- { "wait", XXWAI, 0 }, /* WAIT */
-#else
- { "wait", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
- { "wermit", XXKERMI, CM_INV },
-
-#ifndef NOXFER
- { "where", XXWHERE, 0 }, /* WHERE (did my file go?) */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- { "while", XXWHI, 0 }, /* WHILE loop */
-#else
- { "while", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef OS2
-#ifndef MAC
-#ifndef NOFRILLS
- { "who", XXWHO, CM_PSH }, /* WHO's logged in? */
-#endif /* NOFRILLS */
-#endif /* MAC */
-#endif /* OS2 */
-
-#ifndef NOHELP
- { "wildcards", XXWILD,CM_INV|CM_HLP }, /* Wildcard syntax */
-#endif /* NOHELP */
-
-#ifndef NOSPL
- { "wr", XXWRI, CM_INV|CM_ABR },
- { "wri", XXWRI, CM_INV|CM_ABR },
- { "writ", XXWRI, CM_INV|CM_ABR },
- { "write", XXWRI, 0 }, /* WRITE characters to a file */
- { "write-line", XXWRL, CM_INV }, /* WRITE a line to a file */
- { "writeln", XXWRL, CM_INV }, /* Pascalisch synonym for write-line */
-#else
- { "wr", XXNOTAV, CM_INV },
- { "wri", XXNOTAV, CM_INV },
- { "writ", XXNOTAV, CM_INV },
- { "write", XXNOTAV, CM_INV },
- { "write-line", XXNOTAV, CM_INV },
- { "writeln", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
- { "xecho", XXXECH,0 }, /* XECHO */
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
- { "xif", XXIFX, CM_INV }, /* Extended IF command (obsolete) */
-#else
- { "xif", XXNOTAV, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOCSETS
- { "xlate", XXXLA, CM_INV }, /* Synonym for TRANSLATE */
-#else
- { "xlate", XXNOTAV, CM_INV },
-#endif /* NOCSETS */
-
-#ifndef NOXMIT
- { "xmit", XXTRA, CM_INV }, /* Synonym for TRANSMIT */
-#else
- { "xmit", XXNOTAV, CM_INV },
-#endif /* NOXMIT */
-
-#ifndef OS2
-#ifndef NOJC
- { "z", XXSUS, CM_INV|CM_PSH }, /* Synonym for SUSPEND */
-#else
- { "z", XXNOTAV, CM_INV|CM_PSH },
-#endif /* NOJC */
-#endif /* OS2 */
-
-#ifndef NOSPL
- { "{", XXMACRO, CM_INV }, /* Immediate macro */
-#endif /* NOSPL */
- { "", 0, 0 }
-};
-int ncmd = (sizeof(cmdtab) / sizeof(struct keytab)) - 1;
-
-/* NOTE: Tokens must also be entered above into cmdtab[]. */
-
-char toktab[] = {
-#ifndef NOPUSH
- '!', /* Shell escape */
-#endif /* NOPUSH */
- '#', /* Comment */
-#ifndef NOSPL
- '(', /* S-Expression */
- '.', /* Assignment */
-#endif /* NOSPL */
- ';', /* Comment */
-#ifndef NOSPL
- ':', /* Label */
-#endif /* NOSPL */
-#ifndef NOPUSH
-#ifdef CK_REDIR
- '<', /* REDIRECT */
-#endif /* CK_REDIR */
- '@', /* DCL escape */
-#endif /* NOPUSH */
-#ifdef CK_RECALL
- '^', /* Command recall */
-#endif /* CK_RECALL */
-#ifndef NOSPL
- '{', /* Immediate macro */
-#endif /* NOSPL */
- '\0' /* End of this string */
-};
-int xxdot = 0; /* Used with "." token */
-
-struct keytab yesno[] = { /* Yes/No keyword table */
- { "no", 0, 0 },
- { "ok", 1, 0 },
- { "yes", 1, 0 }
-};
-int nyesno = (sizeof(yesno) / sizeof(struct keytab));
-
-/* Save keyword table */
-
-struct keytab savtab[] = {
-#ifdef OS2
- { "command", XSCMD, 0 },
-#else
-#ifdef CK_RECALL
- { "command", XSCMD, 0 },
-#endif /* CK_RECALL */
-#endif /* OS2 */
-#ifndef NOSETKEY
- { "keymap", XSKEY, 0 },
-#endif /* NOSETKEY */
-#ifdef OS2
- { "terminal", XSTERM, 0 },
-#endif /* OS2 */
- { "", 0, 0 }
-};
-int nsav = (sizeof(savtab) / sizeof(struct keytab)) - 1;
-
-/* Parameter keyword table */
-
-struct keytab prmtab[] = {
- { "alarm", XYALRM, 0 },
-#ifdef COMMENT /* SET ANSWER not implemented yet */
-#ifndef NODIAL
- { "answer", XYANSWER,0 },
-#endif /* NODIAL */
-#endif /* COMMENT */
- { "ask-timer", XYTIMER, 0 },
-#ifndef NOXFER
- { "attributes", XYATTR, 0 },
-#endif /* NOXFER */
-#ifdef CK_AUTHENTICATION
- { "authentication", XYAUTH, 0 },
-#else /* CK_AUTHENTICATION */
-#ifdef CK_SSL
- { "authentication", XYAUTH, 0 },
-#endif /* CK_SSL */
-#endif /* CK_AUTHENTICATION */
- { "b", XYBACK, CM_INV|CM_ABR|CM_PSH },
- { "ba", XYBACK, CM_INV|CM_ABR|CM_PSH },
-#ifdef VMS
- { "background", XYBACK, CM_INV|CM_PSH },
- { "batch", XYBACK, CM_PSH },
-#else
- { "background", XYBACK, CM_PSH },
- { "batch", XYBACK, CM_INV|CM_PSH },
-#endif /* VMS */
-#ifndef NOLOCAL
- { "baud", XYSPEE, CM_INV|CM_LOC },
-#endif /* NOLOCAL */
- { "bell", XYBELL, 0 },
-#ifndef NOXFER
- { "block-check", XYCHKT, 0 },
-#endif /* NOXFER */
-#ifdef OS2
-#ifdef BPRINT
- { "bprinter", XYBDCP, CM_INV },
-#endif /* BPRINT */
-#endif /* OS2 */
-#ifdef BROWSER
- { "browser", XYBROWSE,CM_PSH|CM_LOC },
-#endif /* BROWSER */
-#ifndef NOXFER
-#ifdef DYNAMIC
- { "buffers", XYBUF, 0 },
-#endif /* DYNAMIC */
-#endif /* NOXFER */
-#ifndef NOLOCAL
-#ifndef MAC
- { "carrier-watch", XYCARR, CM_LOC },
-#endif /* MAC */
-#endif /* NOLOCAL */
-#ifndef NOSPL
- { "case", XYCASE, 0 },
-#endif /* NOSPL */
- { "cd", XYCD, 0 },
-#ifndef NOXFER
- { "cl", XYCLEAR, CM_INV|CM_ABR },
- { "cle", XYCLEAR, CM_INV|CM_ABR },
- { "clea", XYCLEAR, CM_INV|CM_ABR },
- { "clear", XYCLEAR, CM_INV|CM_ABR },
- { "clear-channel", XYCLEAR, 0 },
- { "clearchannel", XYCLEAR, CM_INV },
-#endif /* NOXFER */
-#ifndef NOLOCAL
- { "close-on-disconnect", XYDISC, CM_INV|CM_LOC },
-#endif /* NOLOCAL */
- { "cmd", XYCMD, CM_INV },
- { "command", XYCMD, 0 },
-#ifdef CK_SPEED
- { "con", XYQCTL, CM_INV|CM_ABR },
-#endif /* CK_SPEED */
- { "console", XYCMD, CM_INV },
-#ifdef CK_SPEED
- { "control-character",XYQCTL, 0 },
-#endif /* CK_SPEED */
-#ifndef NOSPL
- { "count", XYCOUN, 0 },
-#endif /* NOSPL */
-#ifndef NOXFER
- { "d", XYDELA, CM_INV|CM_ABR },
- { "de", XYDELA, CM_INV|CM_ABR },
-#endif /* NOXFER */
- { "debug", XYDEBU, 0 },
-#ifdef VMS
- { "default", XYDFLT, 0 },
-#else
-#ifndef MAC
- { "default", XYDFLT, CM_INV },
-#endif /* MAC */
-#endif /* VMS */
-#ifndef NOXFER
- { "delay", XYDELA, 0 },
- { "destination", XYDEST, 0 },
-#endif /* NOXFER */
-#ifndef NODIAL
- { "di", XYDIAL, CM_INV|CM_ABR|CM_LOC },
- { "dia", XYDIAL, CM_INV|CM_ABR|CM_LOC },
- { "dial", XYDIAL, CM_LOC },
-#endif /* NODIAL */
-#ifdef OS2
- { "dialer", XYDLR, CM_INV },
-#endif /* OS2 */
-#ifndef NOLOCAL
- { "disconnect", XYDISC, CM_LOC },
- { "duplex", XYDUPL, CM_LOC },
-#endif /* NOLOCAL */
-#ifndef NOPUSH
-#ifndef NOFRILLS
- { "editor", XYEDIT, CM_PSH },
-#endif /* NOFRILLS */
-#endif /* NOPUSH */
-#ifdef CK_CTRLZ
- { "eof", XYEOF, CM_INV },
-#endif /* CK_CTRLZ */
-#ifndef NOLOCAL
- { "escape-character", XYESC, CM_LOC },
-#endif /* NOLOCAL */
-#ifndef NOSPL
- { "evaluate", XYEVAL, CM_INV },
-#endif /* NOSPL */
- { "exit", XYEXIT, 0 },
-#ifndef NOXFER
- { "f-ack-bug", XYFACKB, CM_INV },
- { "f-ack-path", XYFACKP, CM_INV },
-#endif /* NOXFER */
- { "file", XYFILE, 0 },
- { "fl", XYFLOW, CM_INV|CM_ABR },
-#ifndef NOSPL
- { "flag", XYFLAG, 0 },
-#endif /* NOSPL */
-#ifdef TCPSOCKET
-#ifndef SYSFTP
-#ifndef NOFTP
- { "ft", XYFTPX, CM_INV|CM_ABR },
- { "ftp", XYFTPX, 0 },
-#endif /* NOFTP */
-#endif /* SYSFTP */
-#endif /* TCPSOCKET */
-#ifdef BROWSER
- { "ftp-client", XYFTP, CM_PSH },
-#endif /* BROWSER */
- { "flow-control", XYFLOW, 0 },
-#ifndef NOSPL
- { "function", XYFUNC, 0 },
-#endif /* NOSPL */
-#ifdef NEWFTP
- { "get-put-remote", XYGPR, 0 },
-#endif /* NEWFTP */
-#ifdef KUI
- { "gui", XYGUI, 0 },
-#endif /* KUI */
- { "handshake", XYHAND, 0 },
- { "hints", XYHINTS, 0 },
-#ifdef NETCONN
- { "host", XYHOST, CM_LOC },
-#endif /* NETCONN */
-#ifndef NOSPL
- { "i", XYINPU, CM_INV|CM_ABR },
-#endif /* NOSPL */
-#ifdef IKSD
- { "iks", XYIKS, 0 },
-#else
- { "iks", XYIKS, CM_INV },
-#endif /* IKSD */
-#ifndef NOSPL
- { "in", XYINPU, CM_INV|CM_ABR },
-#endif /* NOSPL */
-#ifndef NOXFER
- { "incomplete", XYIFD, CM_INV },
-#endif /* NOXFER */
-#ifndef NOSPL
- { "input", XYINPU, 0 },
-#endif /* NOSPL */
-#ifndef NOSETKEY
- { "key", XYKEY, 0 },
-#endif /* NOSETKEY */
- { "l", XYLINE, CM_INV|CM_ABR },
-#ifndef NOCSETS
- { "language", XYLANG, 0 },
-#endif /* NOCSETS */
-#ifndef NOLOCAL
- { "line", XYLINE, CM_LOC },
- { "local-echo", XYLCLE, CM_INV|CM_LOC },
-#endif /* NOLOCAL */
-#ifdef LOCUS
- { "locus", XYLOCUS, 0 },
-#endif /* LOCUS */
-#ifndef NOSPL
- { "login", XYLOGIN, CM_LOC },
-#endif /* NOSPL */
-#ifndef NOSPL
- { "macro", XYMACR, 0 },
-#endif /* NOSPL */
- { "match", XYMATCH, 0 },
-#ifdef COMMENT
-#ifdef VMS
- { "messages", XYMSGS, 0 },
-#endif /* VMS */
-#endif /* COMMENT */
-#ifndef NODIAL
- { "modem", XYMODM, CM_LOC },
-#endif /* NODIAL */
-#ifndef NOLOCAL
-#ifdef OS2MOUSE
- { "mouse", XYMOUSE, 0 },
-#endif /* OS2MOUSE */
-#endif /* NOLOCAL */
-#ifdef OS2
- { "mskermit", XYMSK, 0 },
-#endif /* OS2 */
-#ifdef NETCONN
- { "network", XYNET, CM_LOC },
-#endif /* NETCONN */
-#ifndef NOSPL
- { "output", XYOUTP, 0 },
-#endif /* NOSPL */
- { "options", XYOPTS, 0 },
- { "pause", XYSLEEP, CM_INV },
-#ifdef ANYX25
-#ifndef IBMX25
- { "pad", XYPAD, CM_LOC },
-#endif /* IBMX25 */
-#endif /* ANYX25 */
- { "parity", XYPARI, 0 },
-#ifndef NOLOCAL
-#ifdef OS2
- { "port", XYLINE, CM_LOC },
-#else
- { "port", XYLINE, CM_INV|CM_LOC },
-#endif /* OS2 */
-#endif /* NOLOCAL */
-#ifndef NOFRILLS
- { "pr", XYPROM, CM_INV|CM_ABR },
- { "printer", XYPRTR, 0 },
-#endif /* NOFRILLS */
-#ifdef OS2
- { "priority", XYPRTY, 0 },
-#endif /* OS2 */
-#ifdef CK_SPEED
- { "prefixing", XYPREFIX, 0 },
-#endif /* CK_SPEED */
-#ifndef NOFRILLS
- { "prompt", XYPROM, 0 },
-#endif /* NOFRILLS */
-#ifndef NOXFER
- { "protocol", XYPROTO, 0 },
-#endif /* NOXFER */
- { "q", XYQUIE, CM_INV|CM_ABR },
-#ifndef NOXFER
- { "q8flag", XYQ8FLG, CM_INV },
-#endif /* NOXFER */
-#ifdef QNX
- { "qnx-port-lock", XYQNXPL, 0 },
-#else
- { "qnx-port-lock", XYQNXPL, CM_INV },
-#endif /* QNX */
- { "quiet", XYQUIE, 0 },
-#ifndef NOXFER
- { "rec", XYRECV, CM_INV|CM_ABR },
- { "receive", XYRECV, 0 },
- { "recv", XYRECV, CM_INV },
-#endif /* NOXFER */
- { "reliable", XYRELY, 0 },
-#ifndef NOXFER
- { "repeat", XYREPT, 0 },
- { "retry-limit", XYRETR, 0 },
-#endif /* NOXFER */
-#ifdef CKROOT
- { "root", XYROOT, 0 },
-#endif /* CKROOT */
-#ifndef NOSCRIPT
- { "script", XYSCRI, CM_LOC },
-#endif /* NOSCRIPT */
-#ifndef NOXFER
- { "send", XYSEND, 0 },
-#ifndef NOLOCAL
-#ifndef NOSERVER
- { "ser", XYSERV, CM_INV|CM_ABR },
-#endif /* NOSERVER */
-#endif /* NOXFER */
- { "serial", XYSERIAL,CM_LOC },
-#endif /* NOLOCAL */
-#ifndef NOSERVER
- { "server", XYSERV, 0 },
-#endif /* NOSERVER */
-#ifdef SESLIMIT
-#ifndef NOLOCAL
- { "session-l", XYSESS, CM_INV|CM_ABR },
-#endif /* NOLOCAL */
- { "session-limit", XYLIMIT, CM_INV|CM_LOC }, /* Session Limit */
-#endif /* SESLIMIT */
-
-#ifndef NOLOCAL
- { "session-log", XYSESS, CM_LOC },
-#endif /* NOLOCAL */
-
-#ifndef NOSPL
-#ifndef NOSEXP
- { "sexpression", XYSEXP, CM_INV },
-#endif /* NOSEXP */
-#endif /* NOSPL */
-
- { "sleep", XYSLEEP, 0 },
-
-#ifndef NOLOCAL
- { "speed", XYSPEE, CM_LOC },
-#endif /* NOLOCAL */
-
-#ifdef ANYSSH
- { "ssh", XYSSH, 0 },
-#endif /* ANYSSH */
-
-#ifndef NOSPL
- { "startup-file", XYSTARTUP, CM_INV },
-#endif /* NOSPL */
-
-#ifndef NOLOCAL
-#ifdef HWPARITY
- { "stop-bits", XYSTOP, CM_LOC },
-#else
-#ifdef TN_COMPORT
- { "stop-bits", XYSTOP, CM_LOC },
-#endif /* TN_COMPORT */
-#endif /* HWPARITY */
-#endif /* NOLOCAL */
-
-#ifndef NOXFER
-#ifdef STREAMING
- { "streaming", XYSTREAM, 0 },
-#endif /* STREAMING */
-#endif /* NOXFER */
-
-#ifndef NOJC
- { "suspend", XYSUSP, CM_PSH },
-#endif /* NOJC */
-#ifdef CKSYSLOG
- { "syslog", XYSYSL, CM_INV },
-#endif /* CKSYSLOG */
- { "take", XYTAKE, 0 },
-
-#ifdef CK_TAPI
- { "tapi", XYTAPI, CM_LOC },
-#endif /* CK_TAPI */
-
-#ifndef NOTCPOPTS
-#ifdef TCPSOCKET
- { "tcp", XYTCP, CM_LOC },
-#endif /* TCPSOCKET */
-#endif /* NOTCPOPTS */
-
-#ifdef TNCODE
- { "tel", XYTEL, CM_INV|CM_ABR },
- { "telnet", XYTEL, 0 },
- { "telopt", XYTELOP, 0 },
-#endif /* TNCODE */
-
-#ifndef NOSPL
- { "temp-directory", XYTMPDIR,0 },
-#endif /* NOSPL */
-
-#ifndef NOLOCAL
- { "terminal", XYTERM, CM_LOC },
-#endif /* NOLOCAL */
-
-#ifdef OS2
- { "title", XYTITLE, CM_LOC },
-#endif /* OS2 */
-#ifdef TLOG
- { "transaction-log", XYTLOG, 0 },
-#endif /* TLOG */
-#ifndef NOXFER
- { "transfer", XYXFER, 0 },
-#endif /* NOXFER */
-#ifndef NOXMIT
- { "transmit", XYXMIT, 0 },
-#endif /* NOXMIT */
-#ifndef NOXFER
-#ifndef NOCSETS
- { "unknown-char-set", XYUNCS, 0 },
-#endif /* NOCSETS */
-#endif /* NOXFER */
- { "wait", XYSLEEP, CM_INV },
-#ifndef NOPUSH
-#ifdef UNIX
- { "wildcard-expansion", XYWILD, 0 },
-#endif /* UNIX */
-#endif /* NOPUSH */
-#ifdef NT
- { "w", XYWIND, CM_INV|CM_ABR },
- { "wi", XYWIND, CM_INV|CM_ABR },
- { "win", XYWIND, CM_INV|CM_ABR },
-#endif /* NT */
- { "window-size", XYWIND, 0 },
-#ifdef NT
- { "win95", XYWIN95, 0 },
-#endif /* NT */
-#ifdef ANYX25
- { "x.25", XYX25, CM_LOC },
- { "x25", XYX25, CM_INV|CM_LOC },
-#endif /* ANYX25 */
- { "xfer", XYXFER, CM_INV },
-#ifndef NOXMIT
- { "xmit", XYXMIT, CM_INV },
-#endif /* NOXMIT */
- { "", 0, 0 }
-};
-int nprm = (sizeof(prmtab) / sizeof(struct keytab)) - 1; /* How many */
-
-struct keytab scntab[] = { /* Screen commands */
- { "clear", SCN_CLR, 0 },
- { "cleol", SCN_CLE, 0 },
- { "move-to", SCN_MOV, 0 }
-};
-int nscntab = (sizeof(scntab) / sizeof(struct keytab)); /* How many */
-
-#ifdef ANYSSH /* SSH command table */
-#ifdef SSHBUILTIN
-int ssh_pf_lcl_n = 0,
- ssh_pf_rmt_n = 0;
-struct ssh_pf ssh_pf_lcl[32] = { 0, NULL, 0 }; /* SSH Port Forwarding */
-struct ssh_pf ssh_pf_rmt[32] = { 0, NULL, 0 }; /* structs... */
-extern char * ssh_hst, * ssh_cmd, * ssh_prt;
-extern int ssh_ver, ssh_xfw;
-char * ssh_tmpuid = NULL, *ssh_tmpcmd = NULL, *ssh_tmpport = NULL,
- * ssh_tmpstr = NULL;
-
-int
- sshk_type = SSHKT_2D, /* SSH KEY CREATE /TYPE:x */
- sshk_bits = 1024, /* SSH KEY CREATE /BITS:n */
- sshk_din = SKDF_OSSH, /* SSH KEY DISPLAY /IN-FORMAT: */
- sshk_dout = SKDF_OSSH; /* SSH KEY DISPLAY /OUT-FORMAT: */
-
-char
- * sshk1_comment = NULL, /* SSH V1 COMMENT */
- * sshkp_old = NULL, /* Old key passphrase */
- * sshkp_new = NULL, /* New key passphrase */
- * sshkc_pass = NULL, /* KEY CREATE /PASS:xxx */
- * sshkc_comm = NULL, /* KEY CREATE /V1-RSA-COMMENT:xxx */
- * sshd_file = NULL, /* DISPLAY file */
- * sshk_file = NULL; /* SSH CREATE KEY file */
-
-static struct keytab sshclr[] = {
- { "local-port-forward", SSHC_LPF, 0 },
- { "remote-port-forward", SSHC_RPF, 0 },
- { "", 0, 0 }
-};
-static int nsshclr = (sizeof(sshclr) / sizeof(struct keytab)) - 1;
-
-struct keytab sshopnsw[] = {
- { "/command", SSHSW_CMD, CM_ARG },
- { "/password", SSHSW_PWD, CM_ARG },
- { "/subsystem", SSHSW_SUB, CM_ARG },
- { "/user", SSHSW_USR, CM_ARG },
- { "/version", SSHSW_VER, CM_ARG },
- { "/x11-forwarding", SSHSW_X11, CM_ARG },
- { "", 0, 0 }
-};
-int nsshopnsw = (sizeof(sshopnsw) / sizeof(struct keytab)) - 1;
-
-static struct keytab sshkwtab[] = {
- { "add", XSSH_ADD, 0 },
- { "agent", XSSH_AGT, 0 },
- { "clear", XSSH_CLR, 0 },
- { "forward-local-port", XSSH_FLP, CM_INV },
- { "forward-remote-port", XSSH_FRP, CM_INV },
- { "key", XSSH_KEY, 0 },
- { "open", XSSH_OPN, 0 },
- { "v2", XSSH_V2, 0 },
- { "", 0, 0 }
-};
-static int nsshcmd = (sizeof(sshkwtab) / sizeof(struct keytab)) - 1;
-
-static struct keytab ssh2tab[] = {
- { "rekey", XSSH2_RKE, 0 },
- { "", 0, 0 }
-};
-static int nssh2tab = (sizeof(ssh2tab) / sizeof(struct keytab));
-
-static struct keytab addfwd[] = { /* SET SSH ADD command table */
- { "local-port-forward", SSHF_LCL, 0 },
- { "remote-port-forward", SSHF_RMT, 0 },
- { "", 0, 0 }
-};
-static int naddfwd = (sizeof(addfwd) / sizeof(struct keytab)) - 1;
-
-static struct keytab sshagent[] = { /* SET SSH AGENT command table */
- { "add", SSHA_ADD, 0 },
- { "delete", SSHA_DEL, 0 },
- { "list", SSHA_LST, 0 },
- { "", 0, 0 }
-};
-static int nsshagent = (sizeof(sshagent) / sizeof(struct keytab)) - 1;
-
-static struct keytab sshagtsw[] = { /* SET SSH AGENT LIST switch table */
- { "/fingerprint", SSHASW_FP, 0 },
- { "", 0, 0 }
-};
-static int nsshagtsw = (sizeof(sshagtsw) / sizeof(struct keytab)) - 1;
-
-static struct keytab sshkey[] = { /* SET SSH KEY command table */
- { "change-passphrase", SSHK_PASS, 0 },
- { "create", SSHK_CREA, 0 },
- { "display", SSHK_DISP, 0 },
- { "v1", SSHK_V1, 0 },
- { "", 0, 0 }
-};
-static int nsshkey = (sizeof(sshkey) / sizeof(struct keytab)) - 1;
-
-static struct keytab sshkv1[] = { /* SET SSH KEY V1 command table */
- { "set-comment", 1, 0 }
-};
-
-static struct keytab sshkpsw[] = { /* SET SSH KEY PASSPHRASE table */
- { "/new-passphrase", 2, CM_ARG },
- { "/old-passphrase", 1, CM_ARG }
-};
-
-static struct keytab sshkcrea[] = { /* SSH KEY CREATE table */
- { "/bits", SSHKC_BI, CM_ARG },
- { "/passphrase", SSHKC_PP, CM_ARG },
- { "/type", SSHKC_TY, CM_ARG },
- { "/v1-rsa-comment", SSHKC_1R, CM_ARG }
-};
-static int nsshkcrea = (sizeof(sshkcrea) / sizeof(struct keytab));
-
-static struct keytab sshkcty[] = { /* SSH KEY CREATE /TYPE:xxx */
- { "srp", SSHKT_SRP, 0 },
- { "v1-rsa", SSHKT_1R, 0 },
- { "v2-dsa", SSHKT_2D, 0 },
- { "v2-rsa", SSHKT_2R, 0 }
-};
-static int nsshkcty = (sizeof(sshkcty) / sizeof(struct keytab));
-
-static struct keytab sshdswi[] = { /* SET SSH KEY DISPLAY /switches */
- { "/format", SSHKD_OUT, CM_ARG }
-};
-static int nsshdswi = (sizeof(sshdswi) / sizeof(struct keytab));
-
-#ifdef COMMENT
-static struct keytab sshdifmt[] = { /* SSH KEY DISPLAY /IN-FORMAT: */
- { "openssh", SKDF_OSSH, 0 },
- { "ssh.com", SKDF_SSHC, 0 }
-};
-static int nsshdifmt = (sizeof(sshdifmt) / sizeof(struct keytab));
-#endif /* COMMENT */
-
-static struct keytab sshdofmt[] = { /* SSH KEY DISPLAY /IN-FORMAT: */
- { "fingerprint", SKDF_FING, 0 },
- { "ietf", SKDF_IETF, 0 },
- { "openssh", SKDF_OSSH, 0 },
- { "ssh.com", SKDF_SSHC, 0 }
-};
-static int nsshdofmt = (sizeof(sshdofmt) / sizeof(struct keytab));
-
-static struct keytab sshkermit[] = { /* SKERMIT */
- { "open", SKRM_OPN, 0 }
-};
-static int nsshkermit = (sizeof(sshkermit) / sizeof(struct keytab));
-
-struct keytab sshkrmopnsw[] = {
- { "/password", SSHSW_PWD, CM_ARG },
- { "/user", SSHSW_USR, CM_ARG },
- { "/version", SSHSW_VER, CM_ARG },
- { "", 0, 0 }
-};
-int nsshkrmopnsw = (sizeof(sshkrmopnsw) / sizeof(struct keytab)) - 1;
-#endif /* SSHBUILTIN */
-
-#ifdef SFTP_BUILTIN
-static struct keytab sftpkwtab[] = { /* SFTP */
- { "cd", SFTP_CD, 0 },
- { "chgrp", SFTP_CHGRP, 0 },
- { "chmod", SFTP_CHMOD, 0 },
- { "chown", SFTP_CHOWN, 0 },
- { "delete", SFTP_RM, 0 },
- { "dir", SFTP_DIR, 0 },
- { "get", SFTP_GET, 0 },
- { "mkdir", SFTP_MKDIR, 0 },
- { "open", SFTP_OPN, 0 },
- { "put", SFTP_PUT, 0 },
- { "pwd", SFTP_PWD, 0 },
- { "rename", SFTP_REN, 0 },
- { "rm", SFTP_RM, CM_INV },
- { "rmdir", SFTP_RMDIR, 0 },
- { "symlink", SFTP_LINK, 0 },
- { "version", SFTP_VER, 0 }
-};
-static int nsftpkwtab = (sizeof(sftpkwtab) / sizeof(struct keytab));
-#endif /* SFTP_BUILTIN */
-#endif /* ANYSSH */
-
-#ifdef NETCONN
-struct keytab netkey[] = { /* SET NETWORK table */
- { "directory", XYNET_D, 0 },
- { "type", XYNET_T, 0 }
-};
-int nnetkey = (sizeof(netkey) / sizeof(struct keytab));
-
-struct keytab netcmd[] = {
-/*
- These are the network types.
-*/
-#ifdef NETCMD
- { "command", NET_CMD, CM_INV }, /* Command */
-#endif /* NETCMD */
-
-#ifdef DECNET /* DECnet / PATHWORKS */
- { "decnet", NET_DEC, 0 },
-#endif /* DECNET */
-
-#ifdef NETDLL
- { "dll", NET_DLL, CM_INV }, /* DLL to be loaded */
-#endif /* NETDLL */
-
-#ifdef NETFILE
- { "file", NET_FILE, CM_INV }, /* FILE (real crude) */
-#endif /* NETFILE */
-
-#ifdef NPIPE /* Named Pipes */
- { "named-pipe", NET_PIPE, 0 },
-#endif /* NPIPE */
-
-#ifdef CK_NETBIOS
- { "netbios", NET_BIOS, 0 }, /* NETBIOS */
-#endif /* CK_NETBIOS */
-
-#ifdef DECNET /* DECnet / PATHWORKS (alias) */
- { "pathworks", NET_DEC, CM_INV },
-#endif /* DECNET */
-
-#ifdef NETCMD
- { "pipe", NET_CMD, 0 }, /* Pipe */
-#endif /* NETCMD */
-
-#ifdef NETPTY
- { "pseudoterminal",NET_PTY, 0 }, /* Pseudoterminal */
-#endif /* NETPTY */
-
-#ifdef NETPTY
- { "pty", NET_PTY, CM_INV }, /* Inv syn for pseudoterm */
-#endif /* NETPTY */
-
-#ifdef SSHBUILTIN
- { "ssh", NET_SSH, 0 },
-#endif /* SSHBUILTIN */
-
-#ifdef SUPERLAT
- { "superlat", NET_SLAT, 0 }, /* Meridian Technologies' SuperLAT */
-#endif /* SUPERLAT */
-
-#ifdef TCPSOCKET /* TCP/IP sockets library */
- { "tcp/ip", NET_TCPB, 0 },
-#endif /* TCPSOCKET */
-#ifdef SUPERLAT
- { "tes32", NET_SLAT, 0 }, /* Emulux TES32 */
-#endif /* SUPERLAT */
-#ifdef ANYX25 /* X.25 */
-#ifdef SUNX25
- { "x", NET_SX25, CM_INV|CM_ABR },
- { "x.25", NET_SX25, 0 },
- { "x25", NET_SX25, CM_INV },
-#else
-#ifdef STRATUSX25
- { "x", NET_VX25, CM_INV|CM_ABR },
- { "x.25", NET_VX25, 0 },
- { "x25", NET_VX25, CM_INV },
-#endif /* STRATUSX25 */
-#endif /* SUNX25 */
-#ifdef IBMX25
- { "x", NET_IX25, CM_INV|CM_ABR },
- { "x.25", NET_IX25, CM_INV },
- { "x25", NET_IX25, CM_INV },
-#endif /* IBMX25 */
-#ifdef HPX25
- { "x", NET_IX25, CM_INV|CM_ABR },
- { "x.25", NET_IX25, 0 },
- { "x25", NET_IX25, CM_INV },
-#endif /* HPX25 */
-#endif /* ANYX25 */
- { "", 0, 0 }
-};
-int nnets = (sizeof(netcmd) / sizeof(struct keytab));
-
-#ifndef NOTCPOPTS
-#ifdef TCPSOCKET
-
-/* TCP options */
-
-struct keytab tcpopt[] = {
- { "address", XYTCP_ADDRESS, 0 },
-#ifdef CK_DNS_SRV
- { "dns-service-records", XYTCP_DNS_SRV, 0 },
-#endif /* CK_DNS_SRV */
-#ifdef SO_DONTROUTE
- { "dontroute", XYTCP_DONTROUTE, 0 },
-#endif /* SO_DONTROUTE */
-#ifndef NOHTTP
- { "http-proxy", XYTCP_HTTP_PROXY, 0 },
-#endif /* NOHTTP */
-#ifdef SO_KEEPALIVE
- { "keepalive", XYTCP_KEEPALIVE, 0 },
-#endif /* SO_KEEPALIVE */
-#ifdef SO_LINGER
- { "linger", XYTCP_LINGER, 0 },
-#endif /* SO_LINGER */
-#ifdef TCP_NODELAY
- { "nagle", XYTCP_NAGLE, CM_INV },
- { "nodelay", XYTCP_NODELAY, 0 },
-#endif /* TCP_NODELAY */
- { "reverse-dns-lookup", XYTCP_RDNS, 0 },
-#ifdef SO_RCVBUF
- { "recvbuf", XYTCP_RECVBUF, 0 },
-#endif /* SO_RCVBUF */
-#ifdef SO_SNDBUF
- { "sendbuf", XYTCP_SENDBUF, 0 },
-#endif /* SO_SNDBUF */
-#ifdef NT
-#ifdef CK_SOCKS
- { "socks-server", XYTCP_SOCKS_SVR, 0 },
-#endif /* CK_SOCKS */
-#endif /* NT */
-#ifdef VMS
-#ifdef DEC_TCPIP
- { "ucx-port-bug", XYTCP_UCX, 0 },
-#endif /* DEC_TCPIP */
-#endif /* VMS */
- { "",0,0 }
-};
-int ntcpopt = (sizeof(tcpopt) / sizeof(struct keytab));
-#endif /* TCPSOCKET */
-#endif /* NOTCPOPTS */
-#endif /* NETCONN */
-
-#ifdef OS2
-/* K95 Manual Chapter Table -- Keep these two tables in sync! */
-
-static char * linktbl[] = { /* Internal links in k95.htm */
- "#top", /* 00 */
- "#what", /* 01 */
- "#install", /* 02 */
- "#start", /* 03 */
- "#dialer", /* 04 */
- "#entries", /* 05 */
- "#command", /* 06 */
- "#terminal", /* 07 */
- "#transfer", /* 08 */
- "#hostmode" /* 09 */
-};
-
-static struct keytab chaptbl[] = {
- { "Command-Screen", 6, 0 },
- { "Contents", 0, 0 },
- { "Dialer-Entries", 5, 0 },
- { "File-Transfer", 8, 0 },
- { "Getting-Started", 3, 0 },
- { "Host-Mode", 9, 0 },
- { "Installation", 2, 0 },
- { "Terminal-Emulation", 7, 0 },
- { "Using-The-Dialer", 4, 0 },
- { "What-Is-K95", 1, 0 },
- { "", 0, 0 }
-};
-static int nchaptbl = (sizeof(chaptbl) / sizeof(struct keytab) - 1);
-#endif /* OS2 */
-
-#ifndef NOXFER
-/* Remote Command Table */
-
-struct keytab remcmd[] = {
-#ifndef NOSPL
- { "as", XZASG, CM_INV|CM_ABR },
- { "asg", XZASG, CM_INV },
- { "assign", XZASG, 0 },
-#endif /* NOSPL */
- { "cd", XZCWD, 0 },
- { "cdup", XZCDU, CM_INV },
- { "copy", XZCPY, 0 },
- { "cwd", XZCWD, CM_INV },
- { "delete", XZDEL, 0 },
- { "directory", XZDIR, 0 },
- { "e", XZXIT, CM_ABR|CM_INV },
- { "erase", XZDEL, CM_INV },
- { "exit", XZXIT, 0 },
- { "help", XZHLP, 0 },
-#ifndef NOPUSH
- { "host", XZHOS, 0 },
-#endif /* NOPUSH */
-#ifndef NOFRILLS
- { "kermit", XZKER, 0 },
- { "l", XZLGI, CM_ABR|CM_INV },
- { "lo", XZLGI, CM_ABR|CM_INV },
- { "log", XZLGI, CM_ABR|CM_INV },
- { "login", XZLGI, 0 },
- { "logout", XZLGO, 0 },
- { "mkdir", XZMKD, 0 },
- { "print", XZPRI, 0 },
-#endif /* NOFRILLS */
- { "pwd", XZPWD, 0 },
-#ifndef NOSPL
- { "query", XZQUE, 0 },
-#endif /* NOSPL */
- { "rename", XZREN, 0 },
- { "rmdir", XZRMD, 0 },
- { "set", XZSET, 0 },
- { "space", XZSPA, 0 },
-#ifndef NOFRILLS
- { "type", XZTYP, 0 },
- { "who", XZWHO, 0 },
-#endif /* NOFRILLS */
- { "", 0, 0}
-};
-int nrmt = (sizeof(remcmd) / sizeof(struct keytab)) - 1;
-#endif /* NOXFER */
-
-struct keytab logtab[] = {
-#ifdef CKLOGDIAL
- { "connections", LOGM, CM_INV },
- { "cx", LOGM, 0 },
-#endif /* CKLOGDIAL */
-#ifdef DEBUG
- { "debugging", LOGD, 0 },
-#endif /* DEBUG */
- { "packets", LOGP, 0 },
-#ifndef NOLOCAL
- { "session", LOGS, 0 },
-#endif /* NOLOCAL */
-#ifdef TLOG
- { "transactions", LOGT, 0 },
-#endif /* TLOG */
- { "", 0, 0 }
-};
-int nlog = (sizeof(logtab) / sizeof(struct keytab)) - 1;
-
-struct keytab writab[] = {
-#ifndef NOSPL
- { "append-file", LOGW, CM_INV },
-#endif /* NOSPL */
- { "debug-log", LOGD, 0 },
- { "error", LOGE, 0 },
-#ifndef NOSPL
- { "file", LOGW, 0 },
-#endif /* NOSPL */
- { "packet-log", LOGP, 0 },
- { "screen", LOGX, 0 },
-#ifndef NOLOCAL
- { "session-log", LOGS, 0 },
-#endif /* NOLOCAL */
- { "sys$output", LOGX, CM_INV },
- { "t", LOGT, CM_ABR|CM_INV }, /* Because of a typo in */
- { "tr", LOGT, CM_ABR|CM_INV }, /* the book... */
- { "tra", LOGT, CM_ABR|CM_INV },
- { "tran", LOGT, CM_ABR|CM_INV },
- { "trans", LOGT, CM_ABR|CM_INV },
- { "transa", LOGT, CM_ABR|CM_INV },
- { "transac", LOGT, CM_ABR|CM_INV },
- { "transact", LOGT, CM_ABR|CM_INV },
- { "transacti", LOGT, CM_ABR|CM_INV },
- { "transactio", LOGT, CM_ABR|CM_INV },
- { "transaction", LOGT, CM_ABR|CM_INV },
- { "transaction-log", LOGT, 0 },
- { "transactions", LOGT, CM_INV }
-};
-int nwri = (sizeof(writab) / sizeof(struct keytab));
-
-#ifdef COMMENT /* INPUT switches not used yet... */
-static struct keytab inswtab[] = {
-#ifdef COMMENT
- { "/assign", IN_ASG, CM_ARG },
-#endif /* COMMENT */
- { "/autodownload", IN_ADL, CM_ARG },
- { "/case", IN_CAS, CM_ARG },
- { "/echo", IN_ECH, CM_ARG },
- { "/interrupts", IN_NOI, CM_ARG },
- { "/silence", IN_SIL, CM_ARG },
-#ifdef COMMENT
- { "/pattern", IN_PAT, CM_ARG },
-#endif /* COMMENT */
- { "", 0, 0 }
-};
-static int ninswtab = (sizeof(inswtab) / sizeof(struct keytab)) - 1;
-#endif /* COMMENT */
-
-static struct keytab clrtab[] = { /* Keywords for CLEAR command */
-#ifndef NOSPL
- { "alarm", CLR_ALR, 0 },
-#ifdef CK_APC
- { "apc", CLR_APC, 0 },
-#endif /* CK_APC */
-#ifdef PATTERNS
- { "binary-patterns", CLR_BIN, 0 },
-#endif /* PATTERNS */
- { "both", CLR_DEV|CLR_INP, CM_INV },
-#endif /* NOSPL */
-#ifdef OS2
- { "command-screen", CLR_CMD, 0 },
-#endif /* OS2 */
-#ifndef NOSPL
- { "device", CLR_DEV, CM_INV|CM_ABR },
- { "device-and-input", CLR_DEV|CLR_INP, 0 },
-#endif /* NOSPL */
- { "device-buffer", CLR_DEV, 0 },
-#ifndef NODIAL
- { "dial-status", CLR_DIA, 0 },
-#endif /* NODIAL */
-#ifndef NOSPL
- { "input-buffer", CLR_INP, 0 },
-#endif /* NOSPL */
- { "keyboard-buffer", CLR_KBD, 0 },
- { "send-list", CLR_SFL, 0 },
-#ifdef OS2
- { "scr", CLR_SCL, CM_INV|CM_ABR },
-#endif /* OS2 */
- { "screen", CLR_SCR, 0 },
-#ifdef OS2
- { "scrollback", CLR_SCL, CM_INV },
- { "terminal-screen", CLR_TRM, 0 },
-#endif /* OS2 */
-#ifdef PATTERNS
- { "text-patterns", CLR_TXT, 0 },
-#endif /* PATTERNS */
- { "", 0, 0 }
-};
-int nclear = (sizeof(clrtab) / sizeof(struct keytab)) - 1;
-
-struct keytab clstab[] = { /* Keywords for CLOSE command */
-#ifndef NOSPL
- { "!read", LOGR, CM_INV },
- { "!write", LOGW, CM_INV },
-#ifndef NOPUSH
-#endif /* NOPUSH */
-#endif /* NOSPL */
-#ifndef NOSPL
- { "append-file", LOGW, CM_INV },
-#endif /* NOSPL */
-#ifndef NOLOCAL
- { "connection", 9999, 0 },
-#endif /* NOLOCAL */
-#ifdef CKLOGDIAL
- { "cx-log", LOGM, 0 },
-#endif /* CKLOGDIAL */
-#ifdef DEBUG
- { "debug-log", LOGD, 0 },
-#endif /* DEBUG */
- { "host", 9999, CM_INV }, /* Synonym for CLOSE CONNECTION */
- { "line", 9999, CM_INV }, /* Synonym for CLOSE CONNECTION */
- { "p", LOGP, CM_INV|CM_ABR },
- { "packet-log", LOGP, 0 },
- { "port", 9999, CM_INV }, /* Synonym for CLOSE CONNECTION */
-#ifndef NOSPL
- { "read-file", LOGR, 0 },
-#endif /* NOSPL */
-#ifndef NOLOCAL
- { "session-log", LOGS, 0 },
-#endif /* NOLOCAL */
-#ifdef TLOG
- { "t", LOGT, CM_ABR|CM_INV }, /* Because of a typo in */
- { "tr", LOGT, CM_ABR|CM_INV }, /* the book... */
- { "tra", LOGT, CM_ABR|CM_INV },
- { "tran", LOGT, CM_ABR|CM_INV },
- { "trans", LOGT, CM_ABR|CM_INV },
- { "transa", LOGT, CM_ABR|CM_INV },
- { "transac", LOGT, CM_ABR|CM_INV },
- { "transact", LOGT, CM_ABR|CM_INV },
- { "transacti", LOGT, CM_ABR|CM_INV },
- { "transactio", LOGT, CM_ABR|CM_INV },
- { "transaction", LOGT, CM_ABR|CM_INV },
- { "transaction-log", LOGT, 0 },
- { "transactions", LOGT, CM_INV },
-#endif /* TLOG */
-#ifndef NOSPL
- { "write-file", LOGW, 0 },
-#endif /* NOSPL */
- { "", 0, 0 }
-};
-int ncls = (sizeof(clstab) / sizeof(struct keytab)) - 1;
-
-/* SHOW command arguments */
-
-#ifndef NOSHOW
-struct keytab shotab[] = {
-#ifndef NOSPL
- { "alarm", SHALRM, 0 },
- { "arg", SHARG, CM_INV|CM_ABR },
- { "arguments", SHARG, 0 },
- { "args", SHARG, CM_INV },
- { "arrays", SHARR, 0 },
-#endif /* NOSPL */
-
-#ifndef NOCSETS
- { "associations", SHASSOC, 0 },
-#endif /* NOCSETS */
-
-#ifndef NOXFER
- { "attributes", SHATT, 0 },
-#endif /* NOXFER */
-
-#ifdef CK_AUTHENTICATION
- { "authentication", SHOAUTH, CM_INV },
-#endif /* CK_AUTHENTICATION */
-
-#ifndef NOPUSH
-#ifdef BROWSER
- { "browser", SHBROWSE, CM_PSH|CM_LOC },
-#endif /* BROWSER */
-#endif /* NOPUSH */
- { "cd", SHCD, 0 },
- { "character-sets", SHCSE, 0 },
- { "cmd", SHCMD, CM_INV },
-#ifndef NOLOCAL
- { "com", SHCOM, CM_INV|CM_ABR },
- { "comm", SHCOM, CM_INV|CM_ABR },
- { "communications", SHCOM, 0 },
-#endif /* NOLOCAL */
- { "command", SHCMD, 0 },
- { "connection", SHCONNX, 0 },
-#ifdef CK_SPEED
- { "control-prefixing", SHCTL, 0 },
-#endif /* CK_SPEED */
-#ifdef CKLOGDIAL
- { "cx", SHCONNX, CM_INV },
-#endif /* CKLOGDIAL */
-#ifndef NOSPL
- { "count", SHCOU, 0 },
-#endif /* NOSPL */
- { "d", SHDIA, CM_INV|CM_ABR },
-#ifdef VMS
- { "default", SHDFLT, 0 },
-#else
- { "default", SHDFLT, CM_INV },
-#endif /* VMS */
-#ifndef NODIAL
- { "dial", SHDIA, CM_LOC },
-#endif /* NODIAL */
- { "double/ignore",SHDBL, 0 },
-#ifndef NOPUSH
-#ifndef NOFRILLS
- { "editor", SHEDIT, CM_PSH },
-#endif /* NOFRILLS */
-#endif /* NOPUSH */
-#ifndef NOLOCAL
- { "escape", SHESC, CM_LOC },
-#endif /* NOLOCAL */
- { "exit", SHEXI, 0 },
- { "extended-options", SHXOPT, CM_INV },
- { "features", SHFEA, 0 },
- { "file", SHFIL, 0 },
-#ifndef NOLOCAL
- { "flow-control", SHOFLO, 0 },
-#endif /* NOLOCAL */
-#ifdef BROWSER
- { "ftp", SHOFTP, CM_PSH|CM_LOC },
-#else
-#ifndef NOFTP
-#ifndef SYSFTP
-#ifdef TCPSOCKET
- { "ftp", SHOFTP, 0 }, /* (built-in ftp) */
-#endif /* TCPSOCKET */
-#endif /* SYSFTP */
-#endif /* NOFTP */
-#endif /* BROWSER */
-#ifndef NOSPL
- { "functions", SHFUN, 0 },
- { "globals", SHVAR, 0 },
-#endif /* NOSPL */
-#ifdef KUI
- { "gui", SHOGUI, 0 },
-#endif /* KUI */
-#ifdef CK_RECALL
- { "history", SHHISTORY, 0 },
-#endif /* CK_RECALL */
- { "ignore/double",SHDBL, CM_INV },
- { "iksd", SHOIKS, CM_INV },
-#ifndef NOSPL
- { "input", SHINP, 0 },
-#endif /* NOSPL */
-#ifndef NOSETKEY
- { "k", SHKEY, CM_INV|CM_ABR },
- { "key", SHKEY, 0 },
-#ifndef NOKVERBS
- { "kverbs", SHKVB, 0 },
-#endif /* NOKVERBS */
-#endif /* NOSETKEY */
-#ifdef CK_LABELED
- { "labeled-file-info", SHLBL, 0 },
-#endif /* CK_LABELED */
-#ifndef NOCSETS
- { "languages", SHLNG, 0 },
-#endif /* NOCSETS */
- { "logs", SHLOG, 0 },
-#ifndef NOSPL
- { "macros", SHMAC, 0 },
-#endif /* NOSPL */
-#ifndef NODIAL
- { "modem", SHMOD, CM_LOC },
-#else
- { "modem-signals",SHCOM, CM_INV|CM_LOC },
-#endif /* NODIAL */
-#ifndef NOLOCAL
-#ifdef OS2MOUSE
- { "mouse", SHMOU, CM_LOC },
-#endif /* OS2MOUSE */
-#endif /* NOLOCAL */
-#ifdef NETCONN
- { "network", SHNET, CM_LOC },
-#else
- { "network", SHNET, CM_INV|CM_LOC },
-#endif /* NETCONN */
- { "options", SHOPTS, 0 },
-#ifndef NOSPL
- { "output", SHOUTP, CM_INV },
-#endif /* NOSPL */
-#ifdef ANYX25
-#ifndef IBMX25
- { "pad", SHPAD, CM_LOC },
-#endif /* IBMX25 */
-#endif /* ANYX25 */
- { "parameters", SHPAR, CM_INV },
-#ifdef PATTERNS
- { "patterns", SHOPAT, 0 },
-#endif /* PATTERNS */
- { "printer", SHPRT, 0 },
-#ifdef CK_SPEED
- { "prefixing", SHCTL, CM_INV },
-#endif /* CK_SPEED */
-#ifndef NOXFER
- { "protocol", SHPRO, 0 },
-#endif /* NOXFER */
-#ifndef NOSPL
- { "scripts", SHSCR, CM_LOC },
-#endif /* NOSPL */
- { "send-list", SHSFL, 0 },
-#ifndef NOSERVER
- { "server", SHSER, 0 },
-#endif /* NOSERVER */
-#ifndef NOSEXP
- { "sexpression", SHSEXP, 0 },
-#endif /* NOSEXP */
-#ifdef ANYSSH
- { "ssh", SHOSSH, 0 },
-#endif /* ANYSSH */
- { "stack", SHSTK, 0 },
- { "status", SHSTA, 0 },
-#ifdef STREAMING
- { "streaming", SHOSTR, 0 },
-#endif /* STREAMING */
-#ifndef NOLOCAL
-#ifdef OS2
- { "tabs", SHTAB, CM_INV|CM_LOC },
-#endif /* OS2 */
-#ifdef CK_TAPI
- { "tapi", SHTAPI, CM_LOC },
- { "tapi-comm", SHTAPI_C, CM_INV|CM_LOC },
- { "tapi-location", SHTAPI_L, CM_INV|CM_LOC },
- { "tapi-modem", SHTAPI_M, CM_INV|CM_LOC },
-#endif /* CK_TAPI */
- { "tcp", SHTCP, CM_LOC },
-#ifdef TNCODE
- { "tel", SHTEL, CM_INV|CM_ABR },
- { "telnet", SHTEL, 0 },
- { "telopt", SHTOPT, 0 },
-#endif /* TNCODE */
- { "terminal", SHTER, CM_LOC },
-#endif /* NOLOCAL */
-#ifndef NOXMIT
- { "tr", SHXMI, CM_INV|CM_ABR },
- { "tra", SHXMI, CM_INV|CM_ABR },
- { "tran", SHXMI, CM_INV|CM_ABR },
- { "trans", SHXMI, CM_INV|CM_ABR },
-#endif /* NOXMIT */
-#ifndef NOXFER
- { "transfer", SHOXFER, 0 },
-#endif /* NOXFER */
-#ifndef NOXMIT
- { "transmit", SHXMI, 0 },
-#endif /* NOXMIT */
-#ifdef CK_TRIGGER
- { "trigger", SHTRIG, CM_LOC },
-#endif /* CK_TRIGGER */
-#ifndef NOSETKEY
-#ifndef NOKVERBS
-#ifdef OS2
- { "udk", SHUDK, CM_LOC },
-#endif /* OS2 */
-#endif /* NOKVERBS */
-#endif /* NOSETKEY */
-#ifndef NOSPL
- { "variables", SHBUI, 0 },
-#endif /* NOSPL */
-#ifndef NOFRILLS
- { "versions", SHVER, 0 },
-#endif /* NOFRILLS */
-#ifdef OS2
- { "vscrn", SHVSCRN, CM_INV|CM_LOC },
-#endif /* OS2 */
- { "xfer", SHOXFER, CM_INV },
-#ifndef NOXMIT
- { "xmit", SHXMI, CM_INV },
-#endif /* NOXMIT */
- { "", 0, 0 }
-};
-int nsho = (sizeof(shotab) / sizeof(struct keytab)) - 1;
-#endif /* NOSHOW */
-
-#ifdef ANYX25
-#ifndef IBMX25
-struct keytab padtab[] = { /* PAD commands */
- { "clear", XYPADL, 0 },
- { "interrupt", XYPADI, 0 },
- { "reset", XYPADR, 0 },
- { "status", XYPADS, 0 }
-};
-int npadc = (sizeof(padtab) / sizeof(struct keytab));
-#endif /* IBMX25 */
-#endif /* ANYX25 */
-
-#ifndef NOSERVER
-static struct keytab kmstab[] = {
- { "both", 3, 0 },
- { "local", 1, 0 },
- { "remote", 2, 0 }
-};
-
-static struct keytab enatab[] = { /* ENABLE commands */
- { "all", EN_ALL, 0 },
-#ifndef NOSPL
- { "as", EN_ASG, CM_INV|CM_ABR },
- { "asg", EN_ASG, CM_INV },
- { "assign", EN_ASG, 0 },
-#endif /* NOSPL */
-#ifndef datageneral
- { "bye", EN_BYE, 0 },
-#endif /* datageneral */
- { "cd", EN_CWD, 0 },
-#ifdef ZCOPY
- { "copy", EN_CPY, 0 },
-#endif /* ZCOPY */
- { "cwd", EN_CWD, CM_INV },
- { "delete", EN_DEL, 0 },
- { "directory", EN_DIR, 0 },
- { "enable", EN_ENA, CM_INV },
- { "exit", EN_XIT, 0 },
- { "finish", EN_FIN, 0 },
- { "get", EN_GET, 0 },
- { "host", EN_HOS, 0 },
- { "mail", EN_MAI, 0 },
- { "mkdir", EN_MKD, 0 },
- { "print", EN_PRI, 0 },
-#ifndef NOSPL
- { "query", EN_QUE, 0 },
-#endif /* NOSPL */
- { "rename", EN_REN, 0 },
- { "retrieve", EN_RET, CM_INV },
- { "rmdir", EN_RMD, 0 },
- { "send", EN_SEN, 0 },
- { "set", EN_SET, 0 },
- { "space", EN_SPA, 0 },
- { "type", EN_TYP, 0 },
- { "who", EN_WHO, 0 }
-};
-static int nena = (sizeof(enatab) / sizeof(struct keytab));
-#endif /* NOSERVER */
-
-struct keytab txtbin[] = {
- { "all", 2, 0 },
- { "binary", 1, 0 },
- { "text", 0, 0 }
-};
-
-#ifndef NOXFER
-static struct keytab sndtab[] = { /* SEND command options */
- { "/after", SND_AFT, CM_ARG },
-#ifndef NOSPL
- { "/array", SND_ARR, CM_ARG },
-#endif /* NOSPL */
- { "/as-name", SND_ASN, CM_ARG },
- { "/b", SND_BIN, CM_INV|CM_ABR },
- { "/before", SND_BEF, CM_ARG },
- { "/binary", SND_BIN, 0 },
-#ifdef CALIBRATE
- { "/c", SND_CMD, CM_INV|CM_ABR },
- { "/calibrate", SND_CAL, CM_INV|CM_ARG },
-#endif /* CALIBRATE */
- { "/command", SND_CMD, CM_PSH },
- { "/delete", SND_DEL, 0 },
-#ifdef UNIXOROSK
- { "/dotfiles", SND_DOT, 0 },
-#endif /* UNIXOROSK */
- { "/except", SND_EXC, CM_ARG },
-#ifdef PIPESEND
- { "/filter", SND_FLT, CM_ARG|CM_PSH },
-#endif /* PIPESEND */
- { "/filenames", SND_NAM, CM_ARG },
-#ifdef CKSYMLINK
- { "/followlinks", SND_LNK, 0 },
-#endif /* CKSYMLINK */
-#ifdef VMS
- { "/image", SND_IMG, 0 },
-#else
- { "/image", SND_BIN, CM_INV },
-#endif /* VMS */
-#ifdef CK_LABELED
- { "/labeled", SND_LBL, 0 },
-#endif /* CK_LABELED */
- { "/larger-than", SND_LAR, CM_ARG },
- { "/listfile", SND_FIL, CM_ARG },
-#ifndef NOFRILLS
- { "/mail", SND_MAI, CM_ARG },
-#endif /* NOFRILLS */
-#ifdef CK_TMPDIR
- { "/move-to", SND_MOV, CM_ARG },
-#endif /* CK_TMPDIR */
- { "/nobackupfiles", SND_NOB, 0 },
-#ifdef UNIXOROSK
- { "/nodotfiles", SND_NOD, 0 },
-#endif /* UNIXOROSK */
-#ifdef CKSYMLINK
- { "/nofollowlinks", SND_NLK, 0 },
-#endif /* CKSYMLINK */
- { "/not-after", SND_NAF, CM_ARG },
- { "/not-before", SND_NBE, CM_ARG },
- { "/pathnames", SND_PTH, CM_ARG },
- { "/print", SND_PRI, CM_ARG },
-#ifdef CK_XYZ
- { "/protocol", SND_PRO, CM_ARG },
-#else
- { "/protocol", SND_PRO, CM_ARG|CM_INV },
-#endif /* CK_XYZ */
- { "/quiet", SND_SHH, 0 },
- { "/recover", SND_RES, 0 },
-#ifdef RECURSIVE
-/* Systems where we do recursion */
- { "/recursive", SND_REC, 0 },
-#else
-#ifdef VMS
-/* Systems that do recursion themselves without our assistance */
-/* if we give them the right kind of wildcard */
- { "/recursive", SND_REC, 0 },
-#else
-#ifdef datageneral
- { "/recursive", SND_REC, 0 },
-#else
- { "/recursive", SND_REC, CM_INV },
-#endif /* datageneral */
-#endif /* VMS */
-#endif /* RECURSIVE */
- { "/rename-to", SND_REN, CM_ARG },
- { "/since", SND_AFT, CM_INV|CM_ARG },
- { "/smaller-than", SND_SMA, CM_ARG },
- { "/starting-at", SND_STA, CM_ARG },
-#ifndef NOFRILLS
- { "/su", SND_ASN, CM_ARG|CM_INV|CM_ABR },
- { "/sub", SND_ASN, CM_ARG|CM_INV|CM_ABR },
- { "/subject", SND_ASN, CM_ARG },
-#endif /* NOFRILLS */
-#ifdef RECURSIVE
- { "/subdirectories", SND_REC, CM_INV },
-#endif /* RECURSIVE */
- { "/text", SND_TXT, 0 },
- { "/transparent", SND_XPA, 0 },
- { "/type", SND_TYP, CM_ARG }
-};
-#define NSNDTAB sizeof(sndtab)/sizeof(struct keytab)
-static int nsndtab = NSNDTAB;
-
-#ifndef NOMSEND
-static struct keytab msndtab[] = { /* MSEND options */
- { "/after", SND_AFT, CM_ARG },
- { "/before", SND_BEF, CM_ARG },
- { "/binary", SND_BIN, 0 },
- { "/delete", SND_DEL, 0 },
- { "/except", SND_EXC, CM_ARG },
- { "/filenames", SND_NAM, CM_ARG },
-#ifdef CKSYMLINK
- { "/followlinks", SND_LNK, 0 },
-#endif /* CKSYMLINK */
-#ifdef VMS
- { "/image", SND_IMG, 0 },
-#else
- { "/image", SND_BIN, CM_INV },
-#endif /* VMS */
-#ifdef CK_LABELED
- { "/labeled", SND_LBL, 0 },
-#endif /* CK_LABELED */
- { "/larger-than", SND_LAR, CM_ARG },
- { "/list", SND_FIL, CM_ARG },
-#ifndef NOFRILLS
- { "/mail", SND_MAI, CM_ARG },
-#endif /* NOFRILLS */
-#ifdef CK_TMPDIR
- { "/move-to", SND_MOV, CM_ARG },
-#endif /* CK_TMPDIR */
-#ifdef CKSYMLINK
- { "/nofollowlinks", SND_NLK, 0 },
-#endif /* CKSYMLINK */
- { "/not-after", SND_NAF, CM_ARG },
- { "/not-before", SND_NBE, CM_ARG },
- { "/pathnames", SND_PTH, CM_ARG },
- { "/print", SND_PRI, CM_ARG },
-#ifdef CK_XYZ
- { "/protocol", SND_PRO, CM_ARG },
-#endif /* CK_XYZ */
- { "/quiet", SND_SHH, 0 },
- { "/recover", SND_RES, 0 },
- { "/rename-to", SND_REN, CM_ARG },
- { "/since", SND_AFT, CM_INV|CM_ARG },
- { "/smaller-than", SND_SMA, CM_ARG },
- { "/starting-at", SND_STA, CM_ARG },
-#ifndef NOFRILLS
- { "/subject", SND_ASN, CM_ARG },
-#endif /* NOFRILLS */
- { "/text", SND_TXT, 0 },
- { "/transparent", SND_XPA, 0 },
- { "/type", SND_TYP, CM_ARG }
-};
-#define NMSNDTAB sizeof(msndtab)/sizeof(struct keytab)
-static int nmsndtab = NMSNDTAB;
-#endif /* NOMSEND */
-#endif /* NOXFER */
-
-/* CONNECT command switches */
-
-#define CONN_II 0 /* Idle interval */
-#define CONN_IS 1 /* Idle string */
-#define CONN_IL 2 /* Idle limit */
-#define CONN_NV 3 /* Non-Verbose */
-#define CONN_TL 4 /* Time limit */
-#define CONN_TS 5 /* Trigger string */
-#define CONN_AS 6 /* Asynchronous */
-#define CONN_SY 7 /* Synchronous */
-#define CONN_MAX 7 /* Number of CONNECT switches */
-
-#ifndef NOLOCAL
-static struct keytab conntab[] = {
-#ifdef OS2
- { "/asynchronous", CONN_AS, CM_INV },
-#endif /* OS2 */
-#ifdef XLIMITS
- { "/idle-interval", CONN_II, CM_ARG },
- { "/idle-limit", CONN_IL, CM_ARG },
- { "/idle-string", CONN_IS, CM_ARG },
- { "/quietly", CONN_NV, CM_INV },
-#else
- { "/quietly", CONN_NV, 0 },
-#endif /* XLIMITS */
-#ifdef OS2
- { "/synchronous", CONN_SY, CM_INV },
-#endif /* OS2 */
-#ifdef XLIMITS
- { "/time-limit", CONN_TL, CM_ARG },
-#endif /* XLIMITS */
-#ifdef CK_TRIGGER
- { "/trigger", CONN_TS, CM_ARG },
-#endif /* CK_TRIGGER */
- { "",0,0 }
-};
-#define NCONNTAB sizeof(conntab)/sizeof(struct keytab)
-static int nconntab = NCONNTAB;
-#endif /* NOLOCAL */
-
-#ifndef NOXFER
-static struct keytab stattab[] = { /* STATISTICS command switches */
- { "/brief", 1, 0 },
- { "/verbose", 0, 0 }
-};
-#endif /* NOXFER */
-
-#ifndef NOSPL
-#ifdef COMMENT
-struct mtab mactab[MAC_MAX] = { /* Preinitialized macro table */
- { NULL, NULL, 0 }
-};
-#else
-struct mtab *mactab; /* Dynamically allocated macro table */
-#endif /* COMMENT */
-int nmac = 0;
-
-struct keytab mackey[MAC_MAX]; /* Macro names as command keywords */
-#endif /* NOSPL */
-
-#ifndef NOSPL
-#ifdef OS2
-struct keytab beeptab[] = { /* Beep options */
- { "error", BP_FAIL, 0 },
- { "information", BP_NOTE, 0 },
- { "warning", BP_WARN, 0 }
-};
-int nbeeptab = sizeof(beeptab)/sizeof(struct keytab);
-
-/* CLEAR COMMMAND-SCREEN options */
-
-#define CLR_C_ALL 0
-#define CLR_C_BOL 1
-#define CLR_C_BOS 2
-#define CLR_C_EOL 3
-#define CLR_C_EOS 4
-#define CLR_C_LIN 5
-#define CLR_C_SCR 6
-
-struct keytab clrcmdtab[] = {
- { "all", CLR_C_ALL, 0 },
- { "bol", CLR_C_BOL, 0 },
- { "bos", CLR_C_BOS, 0 },
- { "eol", CLR_C_EOL, 0 },
- { "eos", CLR_C_EOS, 0 },
- { "line", CLR_C_LIN, 0 },
- { "scrollback", CLR_C_SCR, 0 }
-};
-int nclrcmd = sizeof(clrcmdtab)/sizeof(struct keytab);
-#endif /* OS2 */
-#endif /* NOSPL */
-
-#ifdef COMMENT
-/* Not used at present */
-static struct keytab pagetab[] = {
- { "/more", 1, CM_INV },
- { "/nopage", 0, 0 },
- { "/page", 1, 0 }
-};
-int npagetab = sizeof(pagetab)/sizeof(struct keytab);
-#endif /* COMMENT */
-
-#define TYP_NOP 0 /* /NOPAGE */
-#define TYP_PAG 1 /* /PAGE */
-#define TYP_HEA 2 /* /HEAD:n */
-#define TYP_TAI 3 /* /TAIL:n */
-#define TYP_PAT 4 /* /MATCH:pattern */
-#define TYP_WID 5 /* /WIDTH:cols */
-#define TYP_COU 6 /* /COUNT */
-#define TYP_OUT 7 /* /OUTPUT:file */
-#define TYP_PFX 8 /* /PREFIX:string */
-#ifdef UNICODE
-#define TYP_XIN 9 /* /TRANSLATE-FROM:charset */
-#define TYP_XUT 10 /* /TRANSLATE-TO:charset */
-#define TYP_XPA 11 /* /TRANSPARENT */
-#endif /* UNICODE */
-#ifdef KUI
-#define TYP_GUI 12 /* /GUI:title */
-#define TYP_HIG 13 /* /HEIGHT:rows */
-#endif /* KUI */
-#define TYP_NUM 14 /* /NUMBER */
-
-static struct keytab typetab[] = { /* TYPE command switches */
- { "/count", TYP_COU, 0 },
-#ifdef UNICODE
- { "/character-set", TYP_XIN, CM_ARG },
-#endif /* UNICODE */
-#ifdef KUI
- { "/gui", TYP_GUI, CM_ARG },
-#endif /* KUI */
- { "/head", TYP_HEA, CM_ARG },
-#ifdef KUI
- { "/height", TYP_HIG, CM_ARG },
-#endif /* KUI */
- { "/match", TYP_PAT, CM_ARG },
-#ifdef CK_TTGWSIZ
- { "/more", TYP_PAG, CM_INV },
- { "/nopage", TYP_NOP, 0 },
- { "/number", TYP_NUM, 0 },
- { "/output", TYP_OUT, CM_ARG },
- { "/page", TYP_PAG, 0 },
-#endif /* CK_TTGWSIZ */
- { "/prefix", TYP_PFX, CM_ARG },
- { "/tail", TYP_TAI, CM_ARG },
-#ifdef UNICODE
- { "/translate-to", TYP_XUT, CM_ARG },
- { "/transparent", TYP_XPA, 0 },
-#endif /* UNICODE */
- { "/width", TYP_WID, CM_ARG },
-#ifdef UNICODE
- { "/xlate-to", TYP_XUT, CM_INV|CM_ARG },
-#endif /* UNICODE */
- { "", 0, 0 }
-};
-int ntypetab = sizeof(typetab)/sizeof(struct keytab) - 1;
-
-int typ_page = -1; /* TYPE /[NO]PAGE default */
-int typ_wid = -1;
-
-#ifndef NOSPL
-#define TRA_ALL 999 /* TRACE command */
-#define TRA_ASG 0
-#define TRA_CMD 1
-
-int tra_asg = 0;
-int tra_cmd = 0;
-
-static struct keytab tracetab[] = { /* TRACE options */
- { "all", TRA_ALL, 0 },
- { "assignments", TRA_ASG, 0 },
- { "command-level", TRA_CMD, 0 }
-};
-static int ntracetab = sizeof(tracetab)/sizeof(struct keytab);
-#endif /* NOSPL */
-
-#ifndef NOSHOW
-VOID
-showtypopts() {
- printf(" TYPE ");
- if (typ_page > -1) {
- prtopt(&optlines,typ_page ? "/PAGE" : "/NOPAGE");
- } else
- prtopt(&optlines,"(no options set)");
- if (typ_wid > -1) {
- ckmakmsg(tmpbuf,TMPBUFSIZ,"/WIDTH:",ckitoa(typ_wid),NULL,NULL);
- prtopt(&optlines,tmpbuf);
- }
- prtopt(&optlines,"");
-}
-#endif /* NOSHOW */
-
-#ifdef LOCUS
-/* isauto == 1 if locus is being switched automatically */
-
-VOID
-setlocus(x, isauto) int x, isauto; {
- extern int quitting;
- if (x) x = 1;
- if (x && locus) return;
- if (!x && !locus) return;
- /* Get here if it actually needs to be changed */
-#ifdef OS2
- if (isauto && /* Automatically switching */
- !quitting && /* not exiting */
- autolocus == 2) { /* and AUTOLOCUS is set to ASK */
- char locmsg[300];
- ckmakmsg(locmsg,300,
- "Switching Locus to ",
- x ? "LOCAL" : "REMOTE",
- " for file management commands\n"
- "such as CD, DIRECTORY, DELETE, RENAME. Type HELP SET\n"
- "LOCUS at the K-95> prompt for further info. Use the\n"
-#ifdef KUI
- "Actions menu or SET LOCUS command to disable automatic\n"
- "Locus switching or to disable these queries.",
-#else /* KUI */
- "SET LOCUS command to disable automatic locus switching\n"
- "or to disable these queries.",
-#endif /* KUI */
- NULL);
- if (uq_ok(locmsg,"OK to switch Locus?",3,NULL,1)) {
- locus = x;
-#ifdef KUI
- KuiSetProperty(KUI_LOCUS,x,0);
-#endif /* KUI */
- return;
- }
- } else {
-#endif /* OS2 */
- if (isauto && msgflg && !quitting)
- printf("Switching LOCUS for file-management commands to %s.\n",
- x ? "LOCAL" : "REMOTE"
- );
- locus = x;
-#ifdef OS2
-#ifdef KUI
- KuiSetProperty(KUI_LOCUS,x,0);
-#endif /* KUI */
- }
-#endif /* OS2 */
-}
-
-VOID
-setautolocus(x) int x; {
- autolocus = x;
-#ifdef KUI
- KuiSetProperty(KUI_AUTO_LOCUS,x,0);
-#endif /* KUI */
-}
-#endif /* LOCUS */
-
-int
-settypopts() { /* Set TYPE option defaults */
- int xp = -1;
- int c, getval;
- while (1) {
- if ((y = cmswi(typetab,ntypetab,"Switch","",xxstring)) < 0) {
- if (y == -3)
- break;
- else
- return(y);
- }
- c = cmgbrk();
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- switch (y) {
- case TYP_NOP: xp = 0; break;
- case TYP_PAG: xp = 1; break;
- case TYP_WID:
- if (getval)
- if ((x = cmnum("Column at which to truncate",
- ckitoa(cmd_cols),10,&y,xxstring)) < 0)
- return(x);
- typ_wid = y;
- break;
-
- default:
- printf("?Sorry, this option can not be set\n");
- return(-9);
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (xp > -1) typ_page = xp; /* Confirmed, save defaults */
- return(success = 1);
-}
-
-/* Forward declarations of functions local to this module */
-
-#ifdef UNIX
-_PROTOTYP (int douchmod, ( void ) );
-#endif /* UNIX */
-#ifdef CKPURGE
-_PROTOTYP (int dopurge, ( void ) );
-#endif /* CKPURGE */
-#ifndef NOSPL
-_PROTOTYP (int doundef, ( int ) );
-_PROTOTYP (int doask, ( int ) );
-_PROTOTYP (int dodef, ( int ) );
-_PROTOTYP (int doelse, ( void ) );
-_PROTOTYP (int dofor, ( void ) );
-_PROTOTYP (int doincr, ( int ) );
-#endif /* NOSPL */
-#ifndef NODIAL
-_PROTOTYP (int dodial, ( int ) );
-#endif /* NODIAL */
-_PROTOTYP (int dodel, ( void ) );
-_PROTOTYP (int dopaus, ( int ) );
-#ifndef NOPUSH
-#ifdef TCPSOCKET
-_PROTOTYP (int doping, ( void ) );
-_PROTOTYP (int doftp, ( void ) );
-#endif /* TCPSOCKET */
-#endif /* NOPUSH */
-#ifndef NORENAME
-#ifndef NOFRILLS
-_PROTOTYP (int dorenam, ( void ) );
-#endif /* NOFRILLS */
-#endif /* NORENAME */
-#ifdef ZCOPY
-_PROTOTYP (int docopy, ( void ) );
-#endif /* ZCOPY */
-#ifdef NT
-_PROTOTYP (int dolink, ( void ));
-#endif /* NT */
-#ifdef CK_REXX
-_PROTOTYP (int dorexx, ( void ) );
-#endif /* CK_REXX */
-
-#ifdef TNCODE
-static struct keytab telcmd[] = {
- { "abort", TN_ABORT, CM_INV }, /* Emotionally toned - don't show */
- { "ao", TN_AO, 0 },
- { "ayt", TN_AYT, 0 },
- { "break", BREAK, 0 },
- { "cancel",TN_ABORT, 0 },
- { "dmark", TN_DM, 0 },
- { "do", DO, 0 },
- { "dont", DONT, 0 },
- { "ec", TN_EC, 0 },
- { "el", TN_EL, 0 },
- { "eof", TN_EOF, 0 },
- { "eor", TN_EOR, 0 },
-#ifdef CK_KERBEROS
-#ifdef KRB5
-#define TN_FWD 1
- { "forward", TN_FWD, CM_INV },
-#endif /* KRB5 */
-#endif /* CK_KERBEROS */
- { "ga", TN_GA, 0 },
- { "ip", TN_IP, 0 },
- { "nop", TN_NOP, 0 },
- { "sak", TN_SAK, CM_INV },
- { "sb", SB, 0 },
- { "se", SE, 0 },
- { "susp", TN_SUSP, 0 },
- { "will", WILL, 0 },
- { "wont", WONT, 0 }
-};
-static int ntelcmd = (sizeof(telcmd) / sizeof(struct keytab));
-
-static struct keytab tnopts[] = {
-#ifdef CK_AUTHENTICATION
- { "auth", TELOPT_AUTHENTICATION, 0 },
-#else
- { "auth", TELOPT_AUTHENTICATION, CM_INV },
-#endif /* CK_AUTHENTICATION */
- { "binary", TELOPT_BINARY, 0 },
-#ifdef TN_COMPORT
- { "c", TELOPT_COMPORT, CM_INV|CM_ABR},
- { "co", TELOPT_COMPORT, CM_INV|CM_ABR},
- { "com", TELOPT_COMPORT, CM_INV|CM_ABR},
- { "com-port-control", TELOPT_COMPORT, 0 },
- { "comport-control", TELOPT_COMPORT, CM_INV},
-#else /* TN_COMPORT */
- { "com-port-control", TELOPT_COMPORT, CM_INV },
- { "comport-control", TELOPT_COMPORT, CM_INV},
-#endif /* TN_COMPORT */
- { "echo", TELOPT_ECHO, 0 },
-#ifdef CK_ENCRYPTION
- { "encrypt", TELOPT_ENCRYPTION, 0 },
-#else
- { "encrypt", TELOPT_ENCRYPTION, CM_INV },
-#endif /* CK_ENCRYPTION */
-#ifdef CK_FORWARD_X
- { "forward-x", TELOPT_FORWARD_X, 0 },
-#else
- { "forward-x", TELOPT_FORWARD_X, CM_INV },
-#endif /* CK_FORWARD_X */
-#ifdef IKS_OPTION
- { "kermit", TELOPT_KERMIT, 0 },
-#else
- { "kermit", TELOPT_KERMIT, CM_INV },
-#endif /* IKS_OPTION */
- { "lflow", TELOPT_LFLOW, CM_INV },
- { "logout", TELOPT_LOGOUT, CM_INV },
-#ifdef CK_NAWS
- { "naws", TELOPT_NAWS, 0 },
-#else
- { "naws", TELOPT_NAWS, CM_INV },
-#endif /* CK_NAWS */
-#ifdef CK_ENVIRONMENT
- { "new-environment", TELOPT_NEWENVIRON, 0 },
-#else
- { "new-environment", TELOPT_NEWENVIRON, CM_INV },
-#endif /* CK_ENVIRONMENT */
- { "pragma-heartbeat",TELOPT_PRAGMA_HEARTBEAT, CM_INV },
- { "pragma-logon", TELOPT_PRAGMA_LOGON, CM_INV },
- { "pragma-sspi", TELOPT_SSPI_LOGON, CM_INV },
- { "sak", TELOPT_IBM_SAK, CM_INV },
-#ifdef CK_SNDLOC
- { "send-location", TELOPT_SNDLOC, 0 },
-#else
- { "send-location", TELOPT_SNDLOC, CM_INV },
-#endif /* CK_SNDLOC */
- { "sga", TELOPT_SGA, 0 },
-#ifdef CK_SSL
- { "start-tls", TELOPT_START_TLS, 0 },
-#else
- { "start-tls", TELOPT_START_TLS, CM_INV },
-#endif /* CK_SSL */
- { "ttype", TELOPT_TTYPE, 0 },
-#ifdef CK_ENVIRONMENT
- { "xdisplay-location", TELOPT_XDISPLOC, 0 },
-#else
- { "xdisplay-location", TELOPT_XDISPLOC, CM_INV },
-#endif /* CK_ENVIRONMENT */
- { "", 0, 0 }
-};
-static int ntnopts = (sizeof(tnopts) / sizeof(struct keytab)) - 1;
-
-static struct keytab tnsbopts[] = {
-#ifdef CK_NAWS
- { "naws", TELOPT_NAWS, 0 },
-#endif /* CK_NAWS */
- { "", 0, 0 }
-};
-static int ntnsbopts = (sizeof(tnsbopts) / sizeof(struct keytab)) - 1;
-#endif /* TNCODE */
-
-#ifdef TCPSOCKET
-#ifndef NOPUSH
-#ifdef SYSFTP
-int
-doftp() { /* (External) FTP command */
- char *p, *f; /* (See doxftp() for internal one) */
- int x;
-
- if (network) /* If we have a current connection */
- ckstrncpy(line,ttname,LINBUFSIZ); /* get the host name */
- else *line = '\0'; /* as default host */
- for (p = line; *p; p++) /* Remove ":service" from end. */
- if (*p == ':') { *p = '\0'; break; }
- if ((x = cmtxt("IP host name or number", line, &s, xxstring)) < 0)
- return(x);
- if (nopush) {
- printf("?Sorry, FTP command disabled\n");
- return(success = 0);
- }
-/* Construct FTP command */
-#ifdef VMS
-#ifdef MULTINET /* TGV MultiNet */
- ckmakmsg(line,LINBUFSIZ,"multinet ftp ",s,NULL,NULL);
-#else
- ckmakmsg(line,LINBUFSIZ,"ftp ",s,NULL,NULL);
-#endif /* MULTINET */
-#else /* Not VMS */
-#ifdef OS2ORUNIX
-#ifndef NOFTP
- f = ftpapp;
- if (!f) f = "";
- if (!f[0]) f = "ftp";
- ckmakmsg(line,LINBUFSIZ,f," ",s,NULL);
-#ifdef OS2
- p = line + strlen(ftpapp);
- while (p != line) {
- if (*p == '/') *p = '\\';
- p--;
- }
-#endif /* OS2 */
-#else /* NOFTP */
- ckmakmsg(line,LINBUFSIZ,"ftp ",s,NULL,NULL);
-#endif /* NOFTP */
-#else /* OS2ORUNIX */
- ckmakmsg(line,LINBUFSIZ,"ftp ",s,NULL,NULL);
-#endif /* OS2ORUNIX */
-#endif /* VMS */
- conres(); /* Make console normal */
-#ifdef DEC_TCPIP
- printf("\n"); /* Prevent prompt-stomping */
-#endif /* DEC_TCPIP */
- x = zshcmd(line);
- concb((char)escape);
- return(success = x);
-}
-#endif /* SYSFTP */
-
-int
-doping() { /* PING command */
- char *p; /* just runs ping program */
- int x;
-
- if (network) /* If we have a current connection */
- ckstrncpy(line,ttname,LINBUFSIZ); /* get the host name */
- else *line = '\0'; /* as default host to be pinged. */
- for (p = line; *p; p++) /* Remove ":service" from end. */
- if (*p == ':') { *p = '\0'; break; }
- if ((x = cmtxt("IP host name or number", line, &s, xxstring)) < 0)
- return(x);
- if (nopush) {
- printf("?Sorry, PING command disabled\n");
- return(success = 0);
- }
-
- /* Construct PING command */
-#ifdef VMS
-#ifdef MULTINET /* TGV MultiNet */
- ckmakmsg(line,LINBUFSIZ,"multinet ping ",s," /num=1",NULL);
-#else
- ckmakmsg(line,LINBUFSIZ,"ping ",s," 56 1",NULL); /* Other VMS TCP/IP's */
-#endif /* MULTINET */
-#else /* Not VMS */
- ckmakmsg(line,LINBUFSIZ,"ping ",s,NULL,NULL);
-#endif /* VMS */
- conres(); /* Make console normal */
-#ifdef DEC_TCPIP
- printf("\n"); /* Prevent prompt-stomping */
-#endif /* DEC_TCPIP */
- x = zshcmd(line);
- concb((char)escape);
- return(success = x);
-}
-#endif /* NOPUSH */
-#endif /* TCPSOCKET */
-
-static VOID
-doend(x) int x; {
-#ifndef NOSPL
- /* Pop from all FOR/WHILE/XIF/SWITCH's */
- debug(F101,"doend maclvl 1","",maclvl);
- while ((maclvl > 0) &&
- (m_arg[maclvl-1][0]) &&
- (cmdstk[cmdlvl].src == CMD_MD) &&
- (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
- !strncmp(m_arg[maclvl-1][0],"_for",4) ||
- !strncmp(m_arg[maclvl-1][0],"_whi",4) ||
- !strncmp(m_arg[maclvl-1][0],"_swi",4))) {
- debug(F110,"END popping",m_arg[maclvl-1][0],0);
- dogta(XXPTA); /* Put args back */
- popclvl(); /* Pop up two levels */
- popclvl();
- debug(F101,"doend maclvl 2","",maclvl);
- }
- if (maclvl > -1) {
- if (mrval[maclvl]) /* Free previous retval if any */
- free(mrval[maclvl]);
- mrval[maclvl] = malloc(16); /* Room for up to 15 digits */
- if (mrval[maclvl]) /* Record current retval */
- ckmakmsg(mrval[maclvl],16,ckitoa(x),NULL,NULL,NULL);
- }
-#endif /* NOSPL */
- popclvl(); /* Now pop out of macro or TAKE file */
-#ifndef NOSPL
-#ifdef DEBUG
- if (deblog) {
- debug(F101,"END maclvl 3","",maclvl);
- debug(F111,"END mrval[maclvl]",mrval[maclvl],maclvl);
- debug(F111,"END mrval[maclvl+1]",mrval[maclvl+1],maclvl+1);
- }
-#endif /* DEBUG */
-#endif /* NOSPL */
-}
-
-#ifdef CKROOT
-int
-dochroot() {
- if ((x = cmdir("Name of new root directory","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Directory name required\n");
- return(-9);
- }
- return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- s = line;
- if ((x = cmcfm()) < 0) return(x);
- s = brstrip(s);
- x = zsetroot(s);
- if (x < 0) {
- char * m = NULL;
- switch (x) {
- case -1:
- case -2: m = "Not a directory"; break;
- case -3: m = "Internal error"; break;
- case -4: m = "Access denied"; break;
- case -5: m = "Off limits"; break;
- }
- if (m) printf("%s: \"%s\"\n", m, s);
- return(m ? -9 : -2);
- } else {
- nopush = 1;
- return(success = 1);
- }
-}
-#endif /* CKROOT */
-
-#ifndef NOXFER
-static char * asnbuf = NULL; /* As-name buffer pointer */
-
-char sndxnam[] = { "_array_x_" }; /* (with replaceable x!) */
-
-/*
- The new SEND command, replacing BSEND, CSEND, PSEND, etc etc.
- Call with cx = top-level keyword value. Returns:
- < 0 On parse error.
- 0 On other type of failure (e.g. requested operation not allowed).
- 1 On success with sstate set to 's' so protocol will begin.
-*/
-
-/* D O X S E N D -- Parse SEND and related commands with switches */
-
-int
-doxsend(cx) int cx; {
- int c, i, n, wild, confirmed = 0; /* Workers */
- int x, y; /* of the world... */
- int getval = 0; /* Whether to get switch value */
- extern char * snd_move; /* Directory to move sent files to */
- extern char * snd_rename; /* What to rename sent files to */
- extern char * filefile; /* File containing filenames to send */
- extern int xfiletype; /* Send only text (or binary) files */
- extern struct keytab pathtab[]; /* PATHNAMES option keywords */
- extern int npathtab; /* How many of them */
- extern int recursive; /* Recursive directory traversal */
- extern int rprintf; /* REMOTE PRINT flag */
- extern int fdispla; /* TRANSFER DISPLAY setting */
- extern int skipbup; /* Skip backup files when sending */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
- struct FDB sf, sw, fl, cm; /* FDBs for each parse function */
- int mlist = 0; /* Flag for MSEND or MMOVE */
- char * m; /* For making help messages */
- extern struct keytab protos[]; /* File transfer protocols */
- extern int xfrxla, g_xfrxla, nprotos;
- extern char sndbefore[], sndafter[], *sndexcept[]; /* Selection criteria */
- extern char sndnbefore[], sndnafter[];
- extern long sndsmaller, sndlarger, calibrate;
-#ifndef NOSPL
- int range[2]; /* Array range */
- char ** ap = NULL; /* Array pointer */
- int arrayx = -1; /* Array index */
-#endif /* NOSPL */
-
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen())) {
- if (cx == XXMAI) {
- printf("?Sorry, No MAIL with FTP\n");
- return(-9);
- }
- return(doftpput(cx,0));
- }
-#endif /* NEWFTP */
-
- for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
- pv[i].sval = NULL; /* to null pointers */
- pv[i].ival = -1; /* and -1 int values */
- }
-#ifndef NOSPL
- range[0] = -1;
- range[1] = -1;
- sndxin = -1; /* Array index */
-#endif /* NOSPL */
- sndarray = NULL; /* Array pointer */
-
-#ifdef UNIXOROSK
- g_matchdot = matchdot; /* Match dot files */
-#endif /* UNIXOROSK */
- g_recursive = recursive; /* Recursive sending */
- recursive = 0; /* Save global value, set local */
- debug(F101,"xsend entry fncnv","",fncnv);
-
- /* Preset switch values based on top-level command that called us */
-
- switch (cx) {
- case XXMSE: /* MSEND */
- mlist = 1; break;
- case XXCSEN: /* CSEND */
- pv[SND_CMD].ival = 1; break;
- case XXMMOVE: /* MMOVE */
- mlist = 1;
- case XXMOVE: /* MOVE */
- pv[SND_DEL].ival = 1; break;
- case XXRSEN: /* RESEND */
- pv[SND_BIN].ival = 1; /* Implies /BINARY */
- pv[SND_RES].ival = 1; break;
- case XXMAI: /* MAIL */
- pv[SND_MAI].ival = 1; break;
- }
-
- /* Set up chained parse functions... */
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
-#ifdef NOMSEND
- nsndtab, /* addtl numeric data 1: tbl size */
-#else
- mlist ? nmsndtab : nsndtab, /* addtl numeric data 1: tbl size */
-#endif /* NOMSEND */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
-#ifdef NOMSEND
- sndtab, /* Keyword table */
-#else
- mlist ? msndtab : sndtab,
-#endif /* NOMSEND */
- &sf /* Pointer to next FDB */
- );
- cmfdbi(&sf, /* 2nd FDB - file to send */
- _CMIFI, /* fcode */
- "File(s) to send", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nolinks, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- mlist ? &cm : &fl
- );
- cmfdbi(&fl, /* 3rd FDB - command to send from */
- _CMFLD, /* fcode */
- "Command", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- &cm
- );
- cmfdbi(&cm, /* 4th FDB - Confirmation */
- _CMCFM, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- NULL,
- NULL,
- NULL
- );
-
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse something */
- debug(F101,"xsend cmfdb","",x);
- if (x < 0) /* Error */
- goto xsendx; /* or reparse needed */
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
-/*
- They gave a switch, but let's see how they terminated it.
- If they ended it with : or =, then we must parse a value.
- If they ended it with anything else, then we must NOT parse a value.
-*/
- c = cmgbrk(); /* Get break character */
- getval = (c == ':' || c == '='); /* to see how they ended the switch */
- if (getval && !(cmresult.kflags & CM_ARG)) {
- printf("?This switch does not take arguments\n");
- x = -9;
- goto xsendx;
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- x = -9;
- goto xsendx;
- }
- n = cmresult.nresult; /* Numeric result = switch value */
- debug(F101,"xsend switch","",n);
-
- switch (n) { /* Process the switch */
- case SND_CMD: /* These take no args */
- if (nopush) {
- printf("?Sorry, system command access is disabled\n");
- x = -9;
- goto xsendx;
- }
-#ifdef PIPESEND
- else if (sndfilter) {
- printf(
-"?Sorry, no SEND /COMMAND or CSEND when SEND FILTER selected\n");
- x = -9;
- goto xsendx;
- }
-#endif /* PIPESEND */
- sw.hlpmsg = "Command, or switch"; /* Change help message */
- pv[n].ival = 1; /* Just set the flag */
- pv[SND_ARR].ival = 0;
- break;
-
- case SND_REC: /* /RECURSIVE */
- recursive = 2; /* Set the real variable */
- pv[SND_PTH].ival = PATH_REL; /* Give them relative pathnames */
- pv[n].ival = 1; /* Just set the flag */
- break;
-
- case SND_RES: /* /RECOVER (resend) */
- pv[SND_ARR].ival = 0;
- pv[SND_BIN].ival = 1; /* Implies /BINARY */
- case SND_NOB: /* /NOBACKUP */
- case SND_DEL: /* /DELETE */
- case SND_SHH: /* /QUIET */
- pv[n].ival = 1; /* Just set the flag */
- break;
-
-#ifdef UNIXOROSK
-/* Like recursive, these are set immediately because they affect cmifi() */
- case SND_DOT: /* /DOTFILES */
- matchdot = 1;
- break;
- case SND_NOD: /* /NODOTFILES */
- matchdot = 0;
- break;
-#endif /* UNIXOROSK */
-
- /* File transfer modes - each undoes the others */
-
- case SND_BIN: /* Binary */
- case SND_TXT: /* Text */
- case SND_IMG: /* Image */
- case SND_LBL: /* Labeled */
- pv[SND_BIN].ival = 0;
- pv[SND_TXT].ival = 0;
- pv[SND_IMG].ival = 0;
- pv[SND_LBL].ival = 0;
- pv[n].ival = 1;
- break;
-
-#ifdef CKSYMLINK
- case SND_LNK:
- case SND_NLK:
- nolinks = (n == SND_NLK) ? 2 : 0;
- cmfdbi(&sf, /* Redo cmifi() */
- _CMIFI, /* fcode */
- "File(s) to send", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nolinks, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- mlist ? &cm : &fl
- );
- break;
-#endif /* CKSYMLINK */
-
- case SND_EXC: /* Excludes */
- if (!getval) break;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Pattern required\n");
- x = -9;
- }
- goto xsendx;
- }
- if (pv[n].sval) free(pv[n].sval);
- y = strlen(s);
- if (y > 256) {
- printf("?Pattern too long - 256 max\n");
- x = -9;
- goto xsendx;
- }
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- break;
-
- case SND_MOV: /* MOVE after */
- case SND_REN: /* RENAME after */
- if (!getval) break;
- if ((x = cmfld(n == SND_MOV ?
- "device and/or directory for source file after sending" :
- "new name for source file after sending",
- "",
- &s,
- n == SND_MOV ? xxstring : NULL
- )) < 0) {
- if (x == -3) {
- printf("%s\n", n == SND_MOV ?
- "?Destination required" :
- "?New name required"
- );
- x = -9;
- }
- goto xsendx;
- }
- if (pv[n].sval) free(pv[n].sval);
- s = brstrip(s);
- y = strlen(s);
- if (y > 0) {
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- }
- break;
-
- case SND_SMA: /* Smaller / larger than */
- case SND_LAR:
- if (!getval) break;
- if ((x = cmnum("Size in bytes","0",10,&y,xxstring)) < 0)
- goto xsendx;
- pv[n].ival = y;
- break;
-
- case SND_AFT: /* Send /AFTER:date-time */
- case SND_BEF: /* Send /BEFORE:date-time */
- case SND_NAF: /* Send /NOT-AFTER:date-time */
- case SND_NBE: /* Send /NOT-BEFORE:date-time */
- if (!getval) break;
- if ((x = cmdate("File date-time","",&s,0,xxstring)) < 0) {
- if (x == -3) {
- printf("?Date-time required\n");
- x = -9;
- }
- goto xsendx;
- }
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc((int)strlen(s)+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- break;
-
- case SND_MAI: /* Send as mail (= MAIL) */
-#ifdef IKSD
- if (inserver && !ENABLED(en_mai)) {
- printf("?Sorry, sending files as mail is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- pv[n].ival = 1;
- if (!getval) break;
- if ((x = cmfld("e-mail address","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?address required\n");
- x = -9;
- }
- goto xsendx;
- }
- s = brstrip(s);
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc((int)strlen(s)+1);
- if (pv[n].sval)
- strcpy(pv[n].sval,s); /* safe */
- break;
-
- case SND_PRI: /* Send to be printed (REMOTE PRINT) */
-#ifdef IKSD
- if (inserver && !ENABLED(en_mai)) {
- printf("?Sorry, sending files for printing is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- pv[n].ival = 1;
- if (!getval) break;
- if ((x = cmfld("Print options","",&s,xxstring)) < 0)
- if (x != -3) goto xsendx;
- s = brstrip(s);
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc((int)strlen(s)+1);
- if (pv[n].sval)
- strcpy(pv[n].sval,s); /* safe */
- break;
-
- case SND_ASN: /* As-name */
- debug(F101,"xsend /as-name getval","",getval);
- if (!getval) break;
- if ((x = cmfld("Name to send under","",&s,NULL)) < 0) {
- if (x == -3) {
- printf("?name required\n");
- x = -9;
- }
- goto xsendx;
- }
- s = brstrip(s);
- if ((y = strlen(s)) > 0) {
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- }
- break;
-
- case SND_STA: /* Starting position (= PSEND) */
- if (!getval) break;
- if ((x = cmnum("0-based position","0",10,&y,xxstring)) < 0)
- goto xsendx;
- pv[n].ival = y;
- break;
-
- case SND_PRO: /* Protocol to use */
- if (!getval) break;
- if ((x = cmkey(protos,nprotos,"File-transfer protocol","",
- xxstring)) < 0) {
- if (x == -3) {
- printf("?name of protocol required\n");
- x = -9;
- }
- goto xsendx;
- }
- pv[n].ival = x;
- break;
-
-#ifdef PIPESEND
- case SND_FLT: /* Filter */
- debug(F101,"xsend /filter getval","",getval);
- if (!getval) break;
- if ((x = cmfld("Filter program to send through","",&s,NULL)) < 0) {
- if (x == -3)
- s = "";
- else
- goto xsendx;
- }
- if (*s) s = brstrip(s);
- y = strlen(s);
- for (x = 0; x < y; x++) { /* Make sure they included "\v(...)" */
- if (s[x] != '\\') continue;
- if (s[x+1] == 'v') break;
- }
- if (x == y) {
- printf(
- "?Filter must contain a replacement variable for filename.\n"
- );
- x = -9;
- goto xsendx;
- }
- pv[n].ival = 1;
- if (pv[n].sval) {
- free(pv[n].sval);
- pv[n].sval = NULL;
- }
- if ((y = strlen(s)) > 0) {
- if ((pv[n].sval = malloc(y+1)))
- strcpy(pv[n].sval,s); /* safe */
- }
- break;
-#endif /* PIPESEND */
-
- case SND_PTH: /* Pathnames */
- if (!getval) {
- pv[n].ival = PATH_REL;
- break;
- }
- if ((x = cmkey(pathtab,npathtab,"","absolute",xxstring)) < 0)
- goto xsendx;
- pv[n].ival = x;
- break;
-
- case SND_NAM: /* Filenames */
- if (!getval) break;
- if ((x = cmkey(fntab,nfntab,"","converted",xxstring)) < 0)
- goto xsendx;
- debug(F101,"xsend /filenames","",x);
- pv[n].ival = x;
- break;
-
-#ifdef CALIBRATE
- case SND_CAL: /* /CALIBRATE */
- if (getval) {
- if ((x = cmnum("number of Kbytes to send",
- "1024",10,&y,xxstring)) < 0)
- goto xsendx;
- } else
- y = 1024;
- pv[n].ival = y;
- pv[SND_ARR].ival = 0;
- break;
-#endif /* CALIBRATE */
-
- case SND_FIL: /* Name of file containing filnames */
- if (!getval) break;
- if ((x = cmifi("Name of file containing list of filenames",
- "",&s,&y,xxstring)) < 0) {
- if (x == -3) {
- printf("?Filename required\n");
- x = -9;
- }
- goto xsendx;
- } else if (y) {
- printf("?Wildcards not allowed\n");
- x = -9;
- goto xsendx;
- }
- if (pv[n].sval)
- free(pv[n].sval);
- if (s) if (*s) {
- if ((pv[n].sval = malloc((int)strlen(s)+1))) {
- strcpy(pv[n].sval,s);
- pv[n].ival = 1;
- pv[SND_ARR].ival = 0;
- }
- }
- break;
-
-#ifndef NOSPL
- case SND_ARR: /* SEND /ARRAY: */
- if (!getval) break;
- ap = NULL;
- if ((x = cmfld("Array name (a single letter will do)",
- "",
- &s,
- NULL
- )) < 0) {
- if (x == -3)
- break;
- else
- return(x);
- }
- if ((x = arraybounds(s,&(range[0]),&(range[1]))) < 0) {
- printf("?Bad array: %s\n",s);
- return(-9);
- }
- if (!(ap = a_ptr[x])) {
- printf("?No such array: %s\n",s);
- return(-9);
- }
- pv[n].ival = 1;
- pv[SND_CMD].ival = 0; /* Undo any conflicting ones... */
- pv[SND_RES].ival = 0;
- pv[SND_CAL].ival = 0;
- pv[SND_FIL].ival = 0;
- arrayx = x;
- break;
-#endif /* NOSPL */
-
- case SND_XPA: /* /TRANSPARENT */
- pv[n].ival = 1;
- break;
-
- case SND_TYP: /* Only files of given type */
- if (!getval) break;
- if ((x = cmkey(txtbin,3,"","all",xxstring)) < 0)
- goto xsendx;
- pv[n].ival = (x == 2) ? -1 : x;
- break;
-
- default:
- printf("?Unexpected switch value - %d\n",cmresult.nresult);
- x = -9;
- goto xsendx;
- }
- }
- debug(F101,"xsend cmresult fcode","",cmresult.fcode);
-
-#ifdef COMMENT
- /* List switch parsing results in debug log */
- for (i = 0; i <= SND_MAX; i++) {
- ckmakmsg(line,LINBUFSIZ,"xsend switch ",ckitoa(i),NULL,NULL);
- debug(F111,line, pv[i].sval, pv[i].ival);
- }
-#endif /* COMMENT */
-
-/* Now we have all switches, plus maybe a filename or command, or nothing */
-
-#ifdef PIPESEND
- if (protocol != PROTO_K && pv[SND_CMD].ival > 0) {
- printf("?Sorry, %s works only with Kermit protocol\n",
- (cx == XXCSEN) ? "CSEND" : "SEND /COMMAND");
- x = -9;
- goto xsendx;
- }
- if (pv[SND_RES].ival > 0 || /* /RECOVER */
- pv[SND_STA].ival > 0) { /* or /STARTING */
- if (sndfilter || pv[SND_FLT].ival > 0) {
- printf("?Sorry, no /RECOVER or /START if SEND FILTER selected\n");
- x = -9;
- goto xsendx;
- }
- }
-#endif /* PIPESEND */
-
- cmarg = "";
- cmarg2 = "";
- line[0] = NUL;
- s = line;
- wild = 0;
-
- switch (cmresult.fcode) { /* How did we get out of switch loop */
- case _CMIFI: /* Input filename */
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Name */
- if (pv[SND_ARR].ival > 0)
- cmarg2 = line;
- else
- wild = cmresult.nresult; /* Wild flag */
- if (!recursive && !wild)
- nolinks = 0;
- break;
- case _CMFLD: /* Field */
- /* Only allowed with /COMMAND and /ARRAY */
- if (pv[SND_CMD].ival < 1 && pv[SND_ARR].ival < 1) {
-#ifdef CKROOT
- if (ckrooterr)
- printf("?Off limits: %s\n",cmresult.sresult);
- else
-#endif /* CKROOT */
- printf("?%s - \"%s\"\n",
- iswild(cmresult.sresult) ?
- "No files match" : "File not found",
- cmresult.sresult
- );
- x = -9;
- goto xsendx;
- }
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- if (pv[SND_ARR].ival > 0)
- cmarg2 = line;
- break;
- case _CMCFM: /* Confirmation */
- /* s = ""; */
- confirmed = 1;
- break;
- default:
- printf("?Unexpected function code: %d\n",cmresult.fcode);
- x = -9;
- goto xsendx;
- }
- debug(F110,"xsend string",s,0);
- debug(F101,"xsend confirmed","",confirmed);
-
- /* Save and change protocol and transfer mode */
- /* Global values are restored in main parse loop */
-
- g_proto = protocol; /* Save current global protocol */
- g_urpsiz = urpsiz;
- g_spsizf = spsizf;
- g_spsiz = spsiz;
- g_spsizr = spsizr;
- g_spmax = spmax;
- g_wslotr = wslotr;
- g_prefixing = prefixing;
- g_fncact = fncact;
- g_fncnv = fncnv;
- g_fnspath = fnspath;
- g_fnrpath = fnrpath;
- g_xfrxla = xfrxla;
-
- if (pv[SND_PRO].ival > -1) { /* Change according to switch */
- protocol = pv[SND_PRO].ival;
- if (ptab[protocol].rpktlen > -1) /* copied from initproto() */
- urpsiz = ptab[protocol].rpktlen;
- if (ptab[protocol].spktflg > -1)
- spsizf = ptab[protocol].spktflg;
- if (ptab[protocol].spktlen > -1) {
- spsiz = ptab[protocol].spktlen;
- if (spsizf)
- spsizr = spmax = spsiz;
- }
- if (ptab[protocol].winsize > -1)
- wslotr = ptab[protocol].winsize;
- if (ptab[protocol].prefix > -1)
- prefixing = ptab[protocol].prefix;
- if (ptab[protocol].fnca > -1)
- fncact = ptab[protocol].fnca;
- if (ptab[protocol].fncn > -1)
- fncnv = ptab[protocol].fncn;
- if (ptab[protocol].fnsp > -1)
- fnspath = ptab[protocol].fnsp;
- if (ptab[protocol].fnrp > -1)
- fnrpath = ptab[protocol].fnrp;
- }
- debug(F101,"xsend protocol","",protocol);
-
- if (pv[SND_NOB].ival > -1) { /* /NOBACKUP (skip backup file) */
- g_skipbup = skipbup;
- skipbup = 1;
- }
- if (pv[SND_REC].ival > 0) /* /RECURSIVE */
- recursive = 2;
-
- if (pv[SND_TYP].ival > -1) { /* /TYPE */
- xfiletype = pv[SND_TYP].ival;
- if (xfiletype == 2)
- xfiletype = -1;
- }
- g_binary = binary; /* Save global transfer mode */
-#ifdef PATTERNS
- g_patterns = patterns; /* Save FILE PATTERNS setting */
-#endif /* PATTERNS */
- if (pv[SND_BIN].ival > 0) { /* Change according to switch */
- /* If they said /BINARY they mean /BINARY */
- patterns = 0; /* So no pattern-based switching */
- g_xfermode = xfermode; /* or automatic transfer mode */
- xfermode = XMODE_M;
- binary = XYFT_B;
- debug(F101,"doxsend /BINARY xfermode","",xfermode);
- } else if (pv[SND_TXT].ival > 0) { /* Ditto for /TEXT */
- patterns = 0;
- g_xfermode = xfermode;
- xfermode = XMODE_M;
- binary = XYFT_T;
- debug(F101,"doxsend /TEXT xfermode","",xfermode);
- } else if (pv[SND_IMG].ival > 0) {
-#ifdef VMS
- binary = XYFT_I;
-#else
- binary = XYFT_B;
-#endif /* VMS */
- }
-#ifdef CK_LABELED
- else if (pv[SND_LBL].ival > 0) {
- binary = XYFT_L;
- }
-#endif /* CK_LABELED */
- debug(F101,"xsend binary","",binary);
-
- if (pv[SND_XPA].ival > 0) /* /TRANSPARENT */
- xfrxla = 0; /* Don't translate character sets */
-
- /* Check for legal combinations of switches, filenames, etc */
-
-#ifdef PIPESEND
- if (pv[SND_CMD].ival > 0) { /* COMMAND - strip any braces */
- debug(F110,"SEND /COMMAND before stripping",s,0);
- s = brstrip(s);
- debug(F110,"SEND /COMMAND after stripping",s,0);
- if (!*s) {
- printf("?Sorry, a command to send from is required\n");
- x = -9;
- goto xsendx;
- }
- cmarg = s;
- }
-#endif /* PIPESEND */
-
-/* Set up /MOVE and /RENAME */
-
- if (pv[SND_DEL].ival > 0 &&
- (pv[SND_MOV].ival > 0 || pv[SND_REN].ival > 0)) {
- printf("?Sorry, /DELETE conflicts with /MOVE or /RENAME\n");
- x = -9;
- goto xsendx;
- }
-#ifdef CK_TMPDIR
- if (pv[SND_MOV].ival > 0) {
- int len;
- char * p = pv[SND_MOV].sval;
-#ifdef CK_LOGIN
- if (isguest) {
- printf("?Sorry, /MOVE-TO not available to guests\n");
- x = -9;
- goto xsendx;
- }
-#endif /* CK_LOGIN */
- len = strlen(p);
- if (!isdir(p)) { /* Check directory */
-#ifdef CK_MKDIR
- char * s = NULL;
- s = (char *)malloc(len + 4);
- if (s) {
- strcpy(s,p); /* safe */
-#ifdef datageneral
- if (s[len-1] != ':') { s[len++] = ':'; s[len] = NUL; }
-#else
- if (s[len-1] != '/') { s[len++] = '/'; s[len] = NUL; }
-#endif /* datageneral */
- s[len++] = 'X';
- s[len] = NUL;
- x = zmkdir(s);
- free(s);
- if (x < 0) {
- printf("?Can't create \"%s\"\n",p);
- x = -9;
- goto xsendx;
- }
- }
-#else
- printf("?Directory \"%s\" not found\n",p);
- x = -9;
- goto xsendx;
-#endif /* CK_MKDIR */
- }
- zfnqfp(p,LINBUFSIZ,tmpbuf);
- makestr(&snd_move,tmpbuf);
- }
-#endif /* CK_TMPDIR */
-
- if (pv[SND_REN].ival > 0) { /* /RENAME */
- char * p = pv[SND_REN].sval;
-#ifdef CK_LOGIN
- if (isguest) {
- printf("?Sorry, /RENAME-TO not available to guests\n");
- x = -9;
- goto xsendx;
- }
-#endif /* CK_LOGIN */
- if (!p) p = "";
- if (!*p) {
- printf("?New name required for /RENAME\n");
- x = -9;
- goto xsendx;
- }
- p = brstrip(p);
-#ifndef NOSPL
- /* If name given is wild, rename string must contain variables */
- if (wild) {
- char * s = tmpbuf;
- x = TMPBUFSIZ;
- zzstring(p,&s,&x);
- if (!strcmp(tmpbuf,p)) {
- printf(
- "?/RENAME for file group must contain variables such as \\v(filename)\n"
- );
- x = -9;
- goto xsendx;
- }
- }
-#endif /* NOSPL */
- makestr(&snd_rename,p);
- }
-
-/* Handle /RECOVER and /START */
-
-#ifdef CK_RESEND
- if (pv[SND_RES].ival > 0 && binary != XYFT_B && !filepeek
-#ifdef PATTERNS
- && !patterns
-#else
-#ifdef VMS
-/* VMS sets text/binary automatically later when it opens the file */
- && 0
-#endif /* VMS */
-#endif /* PATTERNS */
- ) {
- printf("?Sorry, /BINARY required\n");
- x = -9;
- goto xsendx;
- }
- if (pv[SND_STA].ival > 0) { /* /START */
- if (wild) {
- printf("?Sorry, wildcards not permitted with /START\n");
- x = -9;
- goto xsendx;
- }
- if (sizeof(int) < 4) {
- printf("?Sorry, this command needs 32-bit integers\n");
- x = -9;
- goto xsendx;
- }
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("?Sorry, SEND /START works only with Kermit protocol\n");
- x = -9;
- goto xsendx;
- }
-#endif /* CK_XYZ */
- }
-#ifdef CK_XYZ
- if (pv[SND_RES].ival > 0) {
- if (protocol != PROTO_K && protocol != PROTO_Z) {
- printf(
- "Sorry, /RECOVER is possible only with Kermit or ZMODEM protocol\n"
- );
- x = -9;
- goto xsendx;
- }
- }
-#endif /* CK_XYZ */
-#endif /* CK_RESEND */
-
- if (protocol == PROTO_K) {
- if ((pv[SND_MAI].ival > 0 || /* MAIL */
- pv[SND_PRI].ival > 0 || /* PRINT */
- pv[SND_RES].ival > 0 /* RESEND */
- ) &&
- (!atdiso || !atcapr)) { /* Disposition attribute off? */
- printf("?Sorry, ATTRIBUTE DISPOSITION must be ON\n");
- x = -9;
- goto xsendx;
- }
- }
-
-#ifdef CK_XYZ
- if (wild && (protocol == PROTO_X || protocol == PROTO_XC)) {
- printf(
-"Sorry, you can only send one file at a time with XMODEM protocol\n"
- );
- x = -9;
- goto xsendx;
- }
-#endif /* CK_XYZ */
-
- if (!confirmed) { /* CR not typed yet, get more fields */
- char *m;
- if (mlist) { /* MSEND or MMOVE */
- nfils = 0; /* We already have the first one */
-#ifndef NOMSEND
- msfiles[nfils++] = line; /* Store pointer */
- lp = line + (int)strlen(line) + 1; /* Point past it */
- debug(F111,"xsend msend",msfiles[nfils-1],nfils-1);
- while (1) { /* Get more filenames */
- char *p;
- if ((x = cmifi("Names of files to send, separated by spaces",
- "", &s,&y,xxstring)) < 0) {
- if (x != -3)
- goto xsendx;
- if ((x = cmcfm()) < 0)
- goto xsendx;
- break;
- }
- msfiles[nfils++] = lp; /* Got one, count it, point to it, */
- p = lp; /* remember pointer, */
- while ((*lp++ = *s++)) /* and copy it into buffer */
- if (lp > (line + LINBUFSIZ)) { /* Avoid memory leak */
- printf("?MSEND list too long\n");
- line[0] = NUL;
- x = -9;
- goto xsendx;
- }
- debug(F111,"xsend msend",msfiles[nfils-1],nfils-1);
- if (nfils == 1) fspec[0] = NUL; /* Take care of \v(filespec) */
-#ifdef ZFNQFP
- zfnqfp(p,TMPBUFSIZ,tmpbuf);
- p = tmpbuf;
-#endif /* ZFNQFP */
- if (((int)strlen(fspec) + (int)strlen(p) + 1) < fspeclen) {
- strcat(fspec,p); /* safe */
- strcat(fspec," "); /* safe */
- } else
-#ifdef COMMENT
- printf("WARNING - \\v(filespec) buffer overflow\n");
-#else
- debug(F101,"doxsend filespec buffer overflow","",0);
-#endif /* COMMENT */
- }
-#endif /* NOMSEND */
- } else { /* Regular SEND */
- char *p; int y;
- nfils = -1;
- if (pv[SND_MAI].ival > 0)
- m = (pv[SND_MAI].sval) ?
- "e-mail address (optional)" :
- "e-mail address (required)";
- else if (pv[SND_PRI].ival > 0)
- m = "printer options (optional)";
- else if (wild)
- m =
-"\nOptional as-name template containing replacement variables \
-like \\v(filename)";
- else
- m = "Optional name to send it with";
- if ((x = cmtxt(m,"",&p,NULL)) < 0)
- goto xsendx;
- if (!p) p = "";
- if (*p) { /* If some text was given... */
- p = brstrip(p); /* Replace /AS-NAME: value if any */
- if ((y = strlen(p)) > 0) {
- if (pv[SND_MAI].ival > 0) {
- makestr(&pv[SND_MAI].sval, p);
- } else {
- if (pv[SND_ASN].sval) free(pv[SND_ASN].sval);
- pv[SND_ASN].sval = malloc(y+1);
- if (pv[SND_ASN].sval) {
- strcpy(pv[SND_ASN].sval,p); /* safe */
- pv[SND_ASN].ival = 1;
- }
- }
- }
- }
- }
- }
- /* Set cmarg2 from as-name, however we got it. */
-
- if (pv[SND_ASN].ival > 0 && pv[SND_ASN].sval && !*cmarg2) {
- int x;
- x = strlen(line);
- ckstrncpy(line+x+2,pv[SND_ASN].sval,LINBUFSIZ-x-1);
- cmarg2 = line+x+2;
- debug(F110,"doxsend cmarg2",cmarg2,0);
- }
-
-#ifndef NOFRILLS
- if ((pv[SND_MAI].ival > 0) && (pv[SND_PRI].ival > 0)) {
- printf("Sorry, /MAIL and /PRINT are conflicting options\n");
- x = -9;
- goto xsendx;
- }
- n = 0; /* /MAIL or /PRINT? */
- if (pv[SND_MAI].ival > 0)
- n = SND_MAI;
- else if (pv[SND_PRI].ival > 0)
- n = SND_PRI;
- if (n) { /* Yes... */
-#ifdef DEBUG
- char * p;
- if (n == SND_MAI)
- p = "/MAIL";
- else
- p = "/PRINT";
- debug(F111,"xsend",p,n);
-#endif /* DEBUG */
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("Sorry, %s available only with Kermit protocol\n",
- (n == SND_MAI) ? "/MAIL" : "/PRINT"
- );
- x = -9;
- goto xsendx;
- }
-#endif /* CK_XYZ */
- debug(F101,"xsend print/mail wild","",wild);
- *optbuf = NUL; /* Wipe out any old options */
- s = pv[n].sval; /* mail address or print switch val */
- if (!s) s = "";
- debug(F110,"doxsend mail address or printer options",s,0);
- if (n == SND_MAI && !*s) {
- printf("?E-mail address required\n");
- x = -9;
- goto xsendx;
- } else if ((int)strlen(s) > 94) { /* Ensure legal size */
- printf("?%s too long\n",
- (n == SND_MAI) ?
- "E-mail address" :
- "Print option string"
- );
- x = -9;
- goto xsendx;
- }
- ckstrncpy(optbuf,s,OPTBUFLEN); /* OK, copy to option buffer */
- cmarg = line; /* File to send */
- if (n == SND_MAI) {
- debug(F110,"xsend mailing",cmarg,0);
- debug(F110,"xsend address:",optbuf,0);
- rmailf = 1;
- } else {
- debug(F110,"xsend printing",cmarg,0);
- debug(F110,"xsend options",optbuf,0);
- rprintf = 1;
- }
- }
-#endif /* NOFRILLS */
-
-#ifdef CALIBRATE
- if (pv[SND_CAL].ival > 0) { /* Handle /CALIBRATE */
- if (confirmed) {
- calibrate = pv[SND_CAL].ival * 1024L;
- sndsrc = -9;
- nfils = 1;
- wild = 0;
-#ifndef NOMSEND
- addlist = 0;
-#endif /* NOMSEND */
- ckstrncpy(line,"CALIBRATION",LINBUFSIZ);
- s = cmarg = line;
- if (!cmarg2) cmarg2 = "";
- debug(F110,"doxsend cmarg2 calibrate",cmarg2,0);
- } else if (line[0]) {
- calibrate = 0L;
- pv[SND_CAL].ival = 0L;
- }
- }
-#endif /* CALIBRATE */
-
- if (pv[SND_FIL].ival > 0) {
- if (confirmed && !calibrate) {
- if (zopeni(ZMFILE,pv[SND_FIL].sval) < 1) {
- debug(F110,"xsend can't open",pv[SND_FIL].sval,0);
- printf("?Failure to open %s\n",filefile);
- x = -9;
- goto xsendx;
- }
- makestr(&filefile,pv[SND_FIL].sval); /* Open, remember name */
- debug(F110,"xsend opened",filefile,0);
- wild = 1;
- }
- }
-
- /* SEND alone... */
-
-#ifndef NOSPL
- if (confirmed && pv[SND_ARR].ival > 0) {
- if (!*cmarg2) {
- sndxnam[7] = (char)((arrayx == 1) ? 64 : arrayx + ARRAYBASE);
- cmarg2 = sndxnam;
- }
- cmarg = "";
- goto sendend;
- }
-#endif /* NOSPL */
-
- if (confirmed && !line[0] && !filefile && !calibrate) {
-#ifndef NOMSEND
- if (filehead) { /* OK if we have a SEND-LIST */
- nfils = filesinlist;
- sndsrc = nfils; /* Like MSEND */
- addlist = 1; /* But using a different list... */
- filenext = filehead;
- goto sendend;
- }
-#endif /* NOMSEND */
- printf("?Filename required but not given\n");
- x = -9;
- goto xsendx;
- }
-
- /* Not send-list or array */
-
-#ifndef NOMSEND
- addlist = 0; /* Don't use SEND-LIST. */
- filenext = NULL;
-#endif /* NOMSEND */
-
- if (mlist) { /* MSEND or MMOVE */
-#ifndef NOMSEND
- cmlist = msfiles; /* List of files to send */
- sndsrc = nfils;
- cmarg2 = "";
- sendstart = 0L;
-#endif /* NOMSEND */
-#ifdef PIPESEND
- pipesend = 0;
-#endif /* PIPESEND */
- } else if (filefile) { /* File contains list of filenames */
- s = "";
- cmarg = "";
- cmarg2 = "";
- line[0] = NUL;
- nfils = 1;
- sndsrc = 1;
-
- } else if (!calibrate && pv[SND_ARR].ival < 1 && pv[SND_CMD].ival < 1) {
-
- nfils = sndsrc = -1; /* Not MSEND, MMOVE, /LIST, or /ARRAY */
- if ( /* or /COMMAND */
-
-#ifndef NOFRILLS
- !rmailf && !rprintf /* Not MAIL or PRINT */
-#else
- 1
-#endif /* NOFRILLS */
- ) {
- int y = 1;
- if (!wild)
- y = zchki(s);
- if (y < 0) {
- printf("?Read access denied - \"%s\"\n", s);
- x = -9;
- goto xsendx;
- }
- if (s != line) /* We might already have done this. */
- ckstrncpy(line,s,LINBUFSIZ); /* Copy of string just parsed. */
- else
- debug(F110,"doxsend line=s",line,0);
- cmarg = line; /* File to send */
- }
- zfnqfp(cmarg,fspeclen,fspec);
- }
- if (!mlist) { /* For all but MSEND... */
-#ifdef PIPESEND
- if (pv[SND_CMD].ival > 0) /* /COMMAND sets pipesend flag */
- pipesend = 1;
- debug(F101,"xsend /COMMAND pipesend","",pipesend);
- if (pipesend && filefile) {
- printf("?Invalid switch combination\n");
- x = -9;
- goto xsendx;
- }
-#endif /* PIPESEND */
-
-#ifndef NOSPL
- /* If as-name given and filespec is wild, as-name must contain variables */
- debug(F111,"doxsend cmarg2 wild",cmarg2,wild);
- if (wild && *cmarg2) {
- char * s = tmpbuf;
- x = TMPBUFSIZ;
- zzstring(cmarg2,&s,&x);
- if (!strcmp(tmpbuf,cmarg2)) {
- printf(
- "?As-name for file group must contain variables such as \\v(filename)\n"
- );
- x = -9;
- goto xsendx;
- }
- }
-#endif /* NOSPL */
-
- /* Strip braces from as-name */
- debug(F110,"xsend cmarg2 before stripping",cmarg2,0);
- cmarg2 = brstrip(cmarg2);
- debug(F110,"xsend filename",cmarg,0);
- debug(F110,"xsend as-name",cmarg2,0);
-
- /* Copy as-name to a safe place */
-
- if (asnbuf) {
- free(asnbuf);
- asnbuf = NULL;
- }
- if ((y = strlen(cmarg2)) > 0) {
- asnbuf = (char *) malloc(y + 1);
- if (asnbuf) {
- strcpy(asnbuf,cmarg2); /* safe */
- cmarg2 = asnbuf;
- } else cmarg2 = "";
- }
-
-#ifdef CK_RESEND
- debug(F111,"xsend pv[SND_STA].ival","",pv[SND_STA].ival);
- if (pv[SND_STA].ival > -1) { /* /START position */
- if (wild) {
- printf("?/STARTING-AT may not be used with multiple files.\n");
- x = -9;
- goto xsendx;
- } else
- sendstart = pv[SND_STA].ival;
- } else
- sendstart = 0L;
- debug(F101,"xsend /STARTING","",sendstart);
-#endif /* CK_RESEND */
- }
-
-sendend: /* Common successful exit */
- moving = 0;
- if (pv[SND_SHH].ival > 0) { /* SEND /QUIET... */
- g_displa = fdispla;
- fdispla = 0;
- debug(F101,"xsend display","",fdispla);
- }
-
-#ifndef NOSPL /* SEND /ARRAY... */
- if (pv[SND_ARR].ival > 0) {
- if (!ap) { x = -2; goto xsendx; } /* (shouldn't happen) */
- if (range[0] == -1) /* If low end of range not specified */
- range[0] = 1; /* default to 1 */
- if (range[1] == -1) /* If high not specified */
- range[1] = a_dim[arrayx]; /* default to size of array */
- if ((range[0] < 0) || /* Check range */
- (range[0] > a_dim[arrayx]) ||
- (range[1] < range[0]) ||
- (range[1] > a_dim[arrayx])) {
- printf("?Bad array range - [%d:%d]\n",range[0],range[1]);
- x = -9;
- goto xsendx;
- }
- sndarray = ap; /* Array pointer */
- sndxin = arrayx; /* Array index */
- sndxlo = range[0]; /* Array range */
- sndxhi = range[1];
- sndxnam[7] = (char)((sndxin == 1) ? 64 : sndxin + ARRAYBASE);
-
-#ifdef COMMENT
- printf("SENDING FROM ARRAY: &%c[]...\n", /* debugging */
- (sndxin == 1) ? 64 : sndxin + ARRAYBASE);
- printf("Lo=%d\nHi=%d\n", sndxlo, sndxhi);
- printf("cmarg=[%s]\ncmarg2=[%s]\n", cmarg, cmarg2);
- while ((x = agnbyte()) > -1) {
- putchar((char)x);
- }
- return(1);
-#endif /* COMMENT */
- }
-#endif /* NOSPL */
-
- if (pv[SND_ARR].ival < 1) { /* File selection & disposition... */
-
- if (pv[SND_DEL].ival > 0) /* /DELETE was specified */
- moving = 1;
- debug(F101,"xsend /DELETE","",moving);
- if (pv[SND_AFT].ival > 0) /* Copy SEND criteria */
- ckstrncpy(sndafter,pv[SND_AFT].sval,19);
- if (pv[SND_BEF].ival > 0)
- ckstrncpy(sndbefore,pv[SND_BEF].sval,19);
- if (pv[SND_NAF].ival > 0)
- ckstrncpy(sndnafter,pv[SND_NAF].sval,19);
- if (pv[SND_NBE].ival > 0)
- ckstrncpy(sndnbefore,pv[SND_NBE].sval,19);
- if (pv[SND_EXC].ival > 0)
- makelist(pv[SND_EXC].sval,sndexcept,NSNDEXCEPT);
- if (pv[SND_SMA].ival > -1)
- sndsmaller = pv[SND_SMA].ival;
- if (pv[SND_LAR].ival > -1)
- sndlarger = pv[SND_LAR].ival;
- if (pv[SND_NAM].ival > -1) {
- g_fncnv = fncnv; /* Save global value */
- fncnv = pv[SND_NAM].ival;
- debug(F101,"xsend fncnv","",fncnv);
- }
- if (pv[SND_PTH].ival > -1) {
- g_spath = fnspath; /* Save global values */
- fnspath = pv[SND_PTH].ival;
-#ifndef NZLTOR
- if (fnspath != PATH_OFF) {
- g_fncnv = fncnv; /* Bad bad... */
- fncnv = XYFN_C;
- }
-#endif /* NZLTOR */
- debug(F101,"xsend fnspath","",fnspath);
- debug(F101,"xsend fncnv","",fncnv);
- }
- }
-
-#ifdef PIPESEND
- if (pv[SND_FLT].ival > 0) {
- makestr(&sndfilter,pv[SND_FLT].sval);
- debug(F110,"xsend /FILTER", sndfilter, 0);
- }
-#endif /* PIPESEND */
-
-#ifdef CK_APC
-/* MOVE not allowed in APCs */
- if (moving &&
- (apcactive == APC_LOCAL || apcactive == APC_REMOTE)
- && !(apcstatus & APC_UNCH))
- return(success = 0);
-#endif /* CK_APC */
-#ifdef IKS_OPTION
- if (
-#ifdef CK_XYZ
- protocol == PROTO_K &&
-#endif /* CK_XYZ */
- !iks_wait(KERMIT_REQ_START,1)) {
- printf("?A Kermit Server is not available to process this command.\n");
- printf("?Start a RECEIVE command to complement this command.\n");
- }
-#endif /* IKS_OPTION */
-
-#ifdef IKSD
-#ifdef CK_LOGIN
- if (moving && inserver && isguest) {
- printf("?File deletion not allowed for guests.\n");
- return(-9);
- }
-#endif /* CK_LOGIN */
-#endif /* IKSD */
-
- sstate = 's'; /* Set start state to SEND */
- sndcmd = 1;
-#ifdef CK_RESEND
- if (pv[SND_RES].ival > 0) /* Send sendmode appropriately */
- sendmode = SM_RESEND;
- else if (pv[SND_STA].ival > 0)
- sendmode = SM_PSEND;
- else
-#endif /* CK_RESEND */
- if (mlist)
- sendmode = SM_MSEND;
- else
- sendmode = SM_SEND;
-#ifdef MAC
- what = W_SEND;
- scrcreate();
-#endif /* MAC */
- if (local && pv[SND_SHH].ival != 0) { /* If in local mode, */
- displa = 1; /* turn on file transfer display */
- }
- x = 0;
-
- xsendx: /* Common exit, including failure */
- debug(F101,"doxsend sndsrc","",sndsrc);
- for (i = 0; i <= SND_MAX; i++) { /* Free malloc'd memory */
- if (pv[i].sval)
- free(pv[i].sval);
- }
- return(x);
-}
-#endif /* NOXFER */
-
-#ifndef NOLOCAL
-/* D O X C O N N -- CONNECT command parsing with switches */
-
-#ifdef XLIMITS
-#define XLIMORTRIGGER
-#else
-#ifdef CK_TRIGGER
-#define XLIMORTRIGGER
-#endif /* CK_TRIGGER */
-#endif /* XLIMITS */
-
-#ifdef CKTIDLE
-int tt_idlelimit = 0; /* Terminal idle limit */
-int tt_idleact = IDLE_RET; /* Terminal idle action */
-#endif /* CKTIDLE */
-
-#ifdef OS2 /* K95 only: */
-extern int
- tt_idlesnd_tmo; /* Idle interval */
-int tt_timelimit = 0; /* Time limit, 0 = none */
-extern char * /* Parse results - strings: */
- tt_idlesnd_str; /* Idle string */
-#endif /* OS2 */
-
-#ifdef CK_TRIGGER
-extern char *tt_trigger[];
-extern CHAR *tt_trmatch[];
-extern char *triggerval;
-static char *g_tt_trigger[TRIGGERS];
-#endif /* CK_TRIGGER */
-
-#ifdef OS2
-static int g_tt_idlesnd_tmo, g_tt_timelimit; /* For saving and restoring */
-static int g_tt_idlelimit, g_tt_saved = 0;
-static char * g_tt_idlesnd_str; /* global settings */
-#endif /* OS2 */
-
-static struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
-} pv[CONN_MAX+1];
-
-VOID
-resconn() {
- int i;
-
-#ifdef OS2
- if ( g_tt_saved ) {
- tt_idlelimit = g_tt_idlelimit;
- tt_idlesnd_tmo = g_tt_idlesnd_tmo;
- tt_timelimit = g_tt_timelimit;
- tt_idlesnd_str = g_tt_idlesnd_str;
- g_tt_saved = 0;
- }
-#endif /* OS2 */
-
-#ifdef CK_TRIGGER
- for (i = 0; i < TRIGGERS; i++)
- tt_trigger[i] = g_tt_trigger[i];
-#endif /* CK_TRIGGER */
-
- for (i = 0; i <= CONN_MAX; i++) { /* Free malloc'd memory */
- if (pv[i].sval)
- free(pv[i].sval);
- pv[i].sval = NULL;
- }
-}
-
-int
-doxconn(cx) int cx; {
- int c, i, n; /* Workers */
- int x, y;
- int getval = 0; /* Whether to get switch value */
- int async = 0; /* Make an async connect */
- struct FDB sw, cm; /* FDBs for each parse function */
- extern FILE * tfile[];
- extern char * macp[];
-
-#ifdef OS2
- g_tt_idlesnd_tmo = tt_idlesnd_tmo; /* Save global settings */
- g_tt_timelimit = tt_timelimit;
- g_tt_idlelimit = tt_idlelimit;
- g_tt_idlesnd_str = tt_idlesnd_str;
- g_tt_saved = 1;
-#endif /* OS2 */
-
-#ifdef CK_TRIGGER
- if (!tt_trigger[0]) { /* First initialization */
- for (i = 1; i < TRIGGERS; i++)
- tt_trigger[i] = NULL;
- }
- for (i = 0; i < TRIGGERS; i++)
- g_tt_trigger[i] = tt_trigger[i];
- if (triggerval) {
- free(triggerval);
- triggerval = NULL;
- }
-#endif /* CK_TRIGGER */
-
- for (i = 0; i <= CONN_MAX; i++) { /* Initialize switch values */
- pv[i].sval = NULL; /* to null pointers */
- pv[i].ival = -1; /* and -1 int values */
- }
- if (cx == XXCQ) /* CQ == CONNECT /QUIETLY */
- pv[CONN_NV].ival = 1;
-
- /* Set up chained parse functions... */
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nconntab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- conntab, /* Keyword table */
- &cm /* Pointer to next FDB */
- );
- cmfdbi(&cm, /* 2nd FDB - Confirmation */
- _CMCFM, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- NULL,
- NULL,
- NULL
- );
-
- while (1) { /* Parse 0 or more switches */
- x = cmfdb(&sw); /* Parse switch or confirmation */
- debug(F101,"doxconn cmfdb","",x);
- if (x < 0) { /* Error */
- if (x == -9 || x == -2)
- printf("?No switches match - \"%s\"\n",atmbuf);
- goto xconnx; /* or reparse needed */
- }
- if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
- break;
- c = cmgbrk(); /* Get break character */
- getval = (c == ':' || c == '='); /* to see how they ended the switch */
- if (getval && !(cmresult.kflags & CM_ARG)) {
- printf("?This switch does not take arguments\n");
- x = -9;
- goto xconnx;
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- n = cmresult.nresult; /* Numeric result = switch value */
- debug(F101,"doxconn switch","",n);
-
- switch (n) { /* Process the switch */
-#ifdef OS2
- case CONN_AS: /* Asynchronous */
- pv[CONN_AS].ival = 1;
- pv[CONN_SY].ival = 0;
- break;
- case CONN_SY: /* Synchronous */
- pv[CONN_SY].ival = 1;
- pv[CONN_AS].ival = 0;
- break;
-#endif /* OS2 */
- case CONN_NV: /* Non-verbal */
- pv[n].ival = 1;
- break;
-#ifdef XLIMITS
- case CONN_II: /* Idle-interval */
- case CONN_IL: /* Idle-limit */
- case CONN_TL: /* Time-limit */
- if (!getval) break;
- if ((x = cmnum("Seconds","0",10,&y,xxstring)) < 0)
- goto xconnx;
- pv[n].ival = y;
- break;
- case CONN_IS: /* Idle-string */
-#endif /* XLIMITS */
-#ifdef CK_TRIGGER
- case CONN_TS: /* Trigger-string */
-#endif /* CK_TRIGGER */
-#ifdef XLIMORTRIGGER
- if (!getval) break;
- if ((x = cmfld("String (enclose in braces if it contains spaces)",
- "",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?String required\n");
- x = -9;
- }
- goto xconnx;
- }
- if (n != CONN_TS)
- s = brstrip(s);
- if ((y = strlen(s)) > 0) {
- if (pv[n].sval) free(pv[n].sval);
- pv[n].sval = malloc(y+1);
- if (pv[n].sval) {
- strcpy(pv[n].sval,s); /* safe */
- pv[n].ival = 1;
- }
- }
- break;
-#endif /* XLIMORTRIGGER */
- default:
- printf("?Unexpected switch value - %d\n",cmresult.nresult);
- x = -9;
- goto xconnx;
- }
- }
- debug(F101,"doxconn cmresult.fcode","",cmresult.fcode);
- if (cmresult.fcode != _CMCFM) {
- printf("?Unexpected function code: %d\n",cmresult.fcode);
- x = -9;
- goto xconnx;
- }
-
- /* Command was confirmed so we can pre-pop command level. */
- /* This is so CONNECT module won't think we're executing a script */
- /* if CONNECT was the final command in the script. */
-
- if (cmdlvl > 0)
- prepop();
-
-#ifdef OS2 /* Make results available globally */
- if (pv[CONN_IL].ival > -1) /* Idle limit */
- tt_idlelimit = pv[CONN_IL].ival;
- if (pv[CONN_II].ival > -1) /* Idle limit */
- tt_idlesnd_tmo = pv[CONN_II].ival;
- if (pv[CONN_IS].sval) /* Idle string */
- if (tt_idlesnd_str = (char *)malloc((int)strlen(pv[CONN_IS].sval)+1))
- strcpy(tt_idlesnd_str,pv[CONN_IS].sval); /* safe */
- if (pv[CONN_TL].ival > -1) /* Session limit */
- tt_timelimit = pv[CONN_TL].ival;
- async = (pv[CONN_AS].ival > 0 ||
- pv[CONN_SY].ival <= 0 && cmdlvl == 0) ? 1 : 0;
-#endif /* OS2 */
-
-#ifdef CK_TRIGGER
- if (pv[CONN_TS].sval) /* Trigger strings */
- makelist(pv[CONN_TS].sval,tt_trigger,TRIGGERS);
- for (i = 0; i < TRIGGERS; i++) /* Trigger match pointers */
- tt_trmatch[i] = NULL;
- if (triggerval) { /* Reset trigger value */
- free(triggerval);
- triggerval = NULL;
- }
-#endif /* CK_TRIGGER */
-
- x = doconect((pv[CONN_NV].ival > 0) ? 1 : 0, async);
- {
- int xx;
- debug(F101,"doxconn doconect returns","",x);
- if ((xx = ttchk()) < 0) dologend();
- debug(F101,"doxconn ttchk returns","",xx);
- }
-
-#ifdef CK_TRIGGER
- debug(F111,"doxconn doconect triggerval",triggerval,x);
-#endif /* CK_TRIGGER */
-
- xconnx:
- /* Back from CONNECT -- Restore global settings */
-
- if (!async)
- resconn();
-
- success = (x > 0) ? 1 : 0;
- return(x);
-}
-#endif /* NOLOCAL */
-
-#ifdef ADDCMD
-/* cx == XXADD or XXREMV */
-/* fc == ADD_BIN or ADD_TXT */
-static int
-doadd(cx,fc) int cx, fc; {
-#ifdef PATTERNS
- char * tmp[FTPATTERNS];
- char **p = NULL;
- int i, j, k, n = 0, x = 0, last;
-
-#endif /* PATTERNS */
- if (cx != XXADD && cx != XXREMV) {
- printf("?Unexpected function code: %d\n",cx);
- return(-9);
- }
-#ifdef PATTERNS
- while (n < FTPATTERNS) { /* Collect new patterns */
- tmp[n] = NULL;
- if ((x = cmfld("Pattern","",&s,xxstring)) < 0)
- break;
- ckstrncpy(line,s,LINBUFSIZ);
- s = brstrip(line);
- makestr(&(tmp[n++]),s);
- }
- if (x == -3)
- x = cmcfm();
- if (x < 0)
- goto xdoadd;
- p = (fc == ADD_BIN) ? binpatterns : txtpatterns; /* Which list */
- last = 0;
- for (i = 0; i < FTPATTERNS; i++) { /* Find last one in list */
- if (!p[i]) {
- last = i;
- break;
- }
- }
- if (cx == XXADD) { /* Adding */
- if (last + n > FTPATTERNS) { /* Check if too many */
- printf("?Too many patterns - %d is the maximum\n", FTPATTERNS);
- goto xdoadd;
- }
- for (i = 0; i < n; i++) { /* Copy in the new ones. */
- for (j = 0, x = 0; x == 0 && j < last ; j++ )
- x = !ckstrcmp(tmp[i],p[j],-1,filecase); /* match */
- if (x == 0)
- makestr(&(p[last++]),tmp[i]);
- }
- makestr(&(p[last]),NULL); /* Null-terminate the list */
- x = 1;
- goto xdoadd; /* Done */
- } else if (cx == XXREMV) { /* Remove something(s) */
- int j, k;
- if (last == 0) /* List is empty */
- goto xdoadd; /* Nothing to remove */
- for (i = 0; i < n; i++) { /* i = Patterns they typed */
- for (j = 0; j < last; j++) { /* j = Patterns in list */
- /* Change this to ckstrcmp()... */
- if (filecase)
- x = !ckstrcmp(tmp[i],p[j],-1,filecase); /* match */
- else
- x = ckstrcmp(tmp[i],p[j],-1,0); /* Case-independent match */
- if (x) { /* This one matches */
- makestr(&(p[j]),NULL); /* Free it */
- for (k = j; k < last; k++) /* Move the rest up */
- p[k] = p[k+1];
- p[k] = NULL; /* Erase last one */
- if (!p[k])
- break;
- }
- }
- }
- }
- xdoadd: /* Common exit */
- for (i = 0; i < n; i++)
- if (tmp[i])
- free(tmp[i]);
- return(x);
-#endif /* PATTERNS */
-}
-
-/* ADD SEND-LIST */
-
-static int
-addsend(cx) int cx; {
-#ifndef NOMSEND
- extern struct keytab fttab[];
- extern int nfttyp;
- struct filelist * flp;
- char * fmode = "";
- int xmode = 0;
- int xbinary = 0;
-#endif /* NOMSEND */
-
-#ifdef NOMSEND
- printf("?Sorry, ADD/REMOVE SEND-LIST not available.\n");
- return(-9);
-#endif /* NOMSEND */
- if (cx == XXREMV) {
- printf("?Sorry, REMOVE SEND-LIST not implemented yet.\n");
- return(-9);
- }
-#ifndef NOMSEND
-#ifndef XYZ_INTERNAL
- if (protocol != PROTO_K) {
- printf("?Sorry, ADD SEND-LIST does not work with external protocols\n");
- return(-9);
- }
-#endif /* XYZ_INTERNAL */
-
- x = cmifi("File specification to add","", &s,&y,xxstring);
- if (x < 0) {
- if (x == -3) {
- printf("?A file specification is required\n");
- return(-9);
- } else
- return(x);
- }
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- s = tmpbuf;
- if (filesinlist == 0) /* Take care of \v(filespec) */
- fspec[0] = NUL;
- zfnqfp(s,LINBUFSIZ,line);
- s = line;
- if (((int)strlen(fspec) + (int)strlen(s) + 1) < fspeclen) {
- strcat(fspec,s); /* safe */
- strcat(fspec," "); /* safe */
- } else
- printf("WARNING - \\v(filespec) buffer overflow\n");
-
-
- xbinary = binary;
- if ((patterns || filepeek) /* FILE PATTERNS or SCAN is ON */
-#ifdef CK_LABELED
- && binary != XYFT_L /* And not if FILE TYPE LABELED */
-#endif /* CK_LABELED */
-#ifdef VMS
- && binary != XYFT_I /* or FILE TYPE IMAGE */
-#endif /* VMS */
- ) {
- int k, x;
- x = -1;
- k = scanfile(line,&x,nscanfile);
- if (k > 0) xbinary = (k == FT_BIN) ? XYFT_B : XYFT_T;
- }
- fmode = gfmode(xbinary,0);
- if ((x = cmkey(fttab,nfttyp,
- "type of file transfer", fmode, xxstring)) < 0)
- return(x);
- xmode = x;
-
- cmarg2 = "";
- if ((x = cmfld(y ?
- "\nAs-name template containing replacement variables such as \\v(filename)" :
- "Name to send it with", "",&s,NULL)) < 0)
- if (x != -3)
- return(x);
-#ifndef NOSPL
- if (y && *s) {
- char * p = tmpbuf;
- x = TMPBUFSIZ;
- zzstring(s,&p,&x);
- if (!strcmp(tmpbuf,s)) {
- printf(
- "?As-name for file group must contain variables such as \\v(filename)\n"
- );
- return(-9);
- }
- }
-#endif /* NOSPL */
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- cmarg2 = tmpbuf;
-
- if ((x = cmcfm()) < 0)
- return(x);
- flp = (struct filelist *) malloc(sizeof(struct filelist));
- if (flp) {
- if (filetail)
- filetail->fl_next = flp;
- filetail = flp;
- if (!filehead)
- filehead = flp;
- x = (int) strlen(line); /* Length of filename */
- s = (char *) malloc(x + 1);
- if (s) {
- strcpy(s,line); /* safe */
- flp->fl_name = s;
- flp->fl_mode = xmode;
- x = (int) strlen(cmarg2); /* Length of as-name */
- if (x < 1) {
- flp->fl_alias = NULL;
- } else {
- s = (char *) malloc(x + 1);
- if (s) {
- strcpy(s,cmarg2); /* safe */
- flp->fl_alias = s;
- } else {
- printf("Sorry, can't allocate space for as-name");
- return(-9);
- }
- }
- flp->fl_next = NULL;
- filesinlist++; /* Count this node */
- return(success = 1); /* Finished adding this node */
- } else {
- printf("Sorry, can't allocate space for name");
- return(-9);
- }
- } else {
- printf("Sorry, can't allocate file list node");
- return(-9);
- }
-#endif /* NOMSEND */
-}
-#endif /* ADDCMD */
-
-#ifndef NOHTTP /* HTTP ops... */
-#ifdef TCPSOCKET
-#define HTTP_GET 0 /* GET */
-#define HTTP_PUT 1 /* PUT */
-#define HTTP_POS 2 /* POST */
-#define HTTP_IDX 3 /* INDEX */
-#define HTTP_HED 4 /* HEAD */
-#define HTTP_DEL 5 /* DELETE */
-#define HTTP_CON 6 /* CONNECT */
-#define HTTP_OPN 7 /* OPEN */
-#define HTTP_CLS 8 /* CLOSE */
-
-static struct keytab httptab[] = {
- { "close", HTTP_CLS, 0 },
- { "connect", HTTP_CON, 0 },
- { "delete", HTTP_DEL, 0 },
- { "get", HTTP_GET, 0 },
- { "head", HTTP_HED, 0 },
- { "index", HTTP_IDX, 0 },
- { "open", HTTP_OPN, 0 },
- { "put", HTTP_PUT, 0 },
- { "post", HTTP_POS, 0 }
-};
-static int nhttptab = sizeof(httptab)/sizeof(struct keytab);
-
-/* HTTP switches */
-#define HT_SW_AG 0 /* /AGENT */
-#define HT_SW_HD 1 /* /HEADER */
-#define HT_SW_US 2 /* /USER */
-#define HT_SW_PW 3 /* /PASSWORD */
-#define HT_SW_AR 4 /* /ARRAY */
-#define HT_SW_TP 5 /* /TOSCREEN */
-
-static struct keytab httpswtab[] = {
- { "/agent", HT_SW_AG, CM_ARG },
-#ifndef NOSPL
- { "/array", HT_SW_AR, CM_ARG },
-#endif /* NOSPL */
- { "/header", HT_SW_HD, CM_ARG },
- { "/password", HT_SW_PW, CM_ARG },
- { "/toscreen", HT_SW_TP, 0 },
- { "/user", HT_SW_US, CM_ARG },
- { "", 0, 0 }
-};
-static int nhttpswtab = sizeof(httpswtab)/sizeof(struct keytab) - 1;
-
-/* HTTP PUT/POST switches */
-#define HT_PP_MT 0 /* /MIME-TYPE */
-
-static struct keytab httpptab[] = {
- { "/mime-type", HT_PP_MT, CM_ARG },
- { "", 0, 0 }
-};
-static int nhttpptab = sizeof(httpptab)/sizeof(struct keytab) - 1;
-
-#define HTTP_MAXHDR 8
-
-static int
-xdohttp(action, lfile, rf, dfile, agent, hdr, user, pass, mime, array, type)
- int action;
- char *lfile, *rf, *dfile, *agent, *hdr, *user, *pass, *mime, array;
- int type;
-/* xdohttp */ {
- int i, rc = 0;
- char * hdrlist[HTTP_MAXHDR];
- char rfile[CKMAXPATH+1];
- extern int httpfd;
-
- /* Check for a valid state to execute the command */
- if (inserver) {
- printf("?The HTTP command may not be used from the IKS\r\n");
- } else if (httpfd == -1) {
- if (http_reopen() < 0)
- printf("?No connection\n");
- else
- rc = 1;
- } else {
- rc = 1;
- }
-
- /* If the command is not valid, exit with failure */
- if (rc == 0)
- return(success = 0);
-
- if (action != HTTP_CON && rf[0] != '/') {
- rfile[0] = '/';
- ckstrncpy(&rfile[1],rf,CKMAXPATH);
- } else {
- ckstrncpy(rfile,rf,CKMAXPATH);
- }
- for (i = 0; i < HTTP_MAXHDR; i++) /* Initialize header list */
- hdrlist[i] = NULL;
- makelist(hdr,hdrlist,HTTP_MAXHDR); /* Make header list */
-
-#ifdef BETADEBUG
- for (i = 0; i < nhttptab; i++) /* Find action keyword */
- if (httptab[i].kwval == action)
- break;
- if (i == nhttptab) { /* Shouldn't happen... */
- printf("?Invalid action - %d\n",action);
- return(0); /* Failure */
- }
-
- printf("HTTP action: %s\n",httptab[i].kwd);
- printf(" Agent: %s\n",agent ? agent : "(null)");
-
- if (hdrlist[1]) {
- printf(" Header list: 1. %s\n",hdrlist[0]);
- for (i = 1; i < HTTP_MAXHDR && hdrlist[i]; i++)
- printf("%15d. %s\n",i+1,hdrlist[i]);
- } else
- printf(" Header: %s\n",hdrlist[0] ? hdrlist[0] : "(null)");
-
- printf(" User: %s\n",user ? user : "(null)");
-#ifdef COMMENT
- printf(" Password: %s\n",pass ? pass : "(null)");
-#endif /* COMMENT */
-
-#ifndef NOSPL
- if (array)
- printf(" Array: \\%%%c[]\n", array);
- else
- printf(" Array: (none)\n");
-#endif /* NOSPL */
-
- if (action == HTTP_PUT || action == HTTP_POS)
- printf(" Mime-type: %s\n",mime ? mime : "(null)");
-
- printf(" Local file: %s\n",lfile ? lfile : "(null)");
- printf(" Remote file: %s\n",rfile ? rfile : "(null)");
- printf(" Destination file: %s\n",dfile ? dfile : "(null)");
-#endif /* BETADEBUG */
-
- /* The http_xxxx() functions return 0 on success, -1 on failure */
- switch (action) {
- case HTTP_CON: {
- extern int ttyfd;
- rc = http_connect(httpfd,agent,hdrlist,user,pass,array,rfile);
- break;
- }
- case HTTP_DEL:
- rc = http_delete(agent,hdrlist,user,pass,array,rfile);
- break;
- case HTTP_GET:
- rc = http_get(agent,hdrlist,user,pass,array,lfile,rfile,type);
- break;
- case HTTP_HED:
- rc = http_head(agent,hdrlist,user,pass,array,lfile,rfile,type);
- break;
- case HTTP_PUT:
- rc = http_put(agent,hdrlist,mime,user,pass,array,lfile,rfile,dfile,
- type);
- break;
- case HTTP_POS:
- rc = http_post(agent,hdrlist,mime,user,pass,array,lfile,rfile,dfile,
- type);
- break;
- case HTTP_IDX:
- rc = http_index(agent,hdrlist,user,pass,array,lfile,rfile,type);
- break;
- default:
- rc = -1;
- }
- return(rc == 0 ? 1 : 0); /* Success is set by caller */
-}
-#endif /* TCPSOCKET */
-#endif /* NOHTTP */
-
-#ifndef NOSPL /* ARRAY ops... */
-static struct keytab arraytab[] = {
- { "clear", ARR_CLR, 0 },
- { "copy", ARR_CPY, 0 },
- { "dcl", ARR_DCL, CM_INV },
- { "declare", ARR_DCL, 0 },
- { "destroy", ARR_DST, CM_INV },
- { "equate", ARR_EQU, CM_INV },
- { "link", ARR_EQU, 0 },
- { "resize", ARR_RSZ, 0 },
- { "set", ARR_SET, 0 },
-#ifndef NOSHOW
- { "show", ARR_SHO, 0 },
-#endif /* NOSHOW */
- { "sort", ARR_SRT, 0 },
- { "undeclare", ARR_DST, 0 },
- { "", 0, 0 }
-};
-static int narraytab = sizeof(arraytab)/sizeof(struct keytab) - 1;
-
-#ifdef CKLEARN
-static struct keytab learnswi[] = {
- { "/close", 2, 0 },
- { "/off", 0, 0 },
- { "/on", 1, 0 }
-};
-#endif /* CKLEARN */
-
-int
-arrayitoa(x) int x; { /* Array index to array letter */
- if (x == 1)
- return(64);
- else if (x < 0 || x > (122 - ARRAYBASE))
- return(-1);
- else
- return(x + ARRAYBASE);
-}
-
-int
-arrayatoi(c) int c; { /* Array letter to array index */
- if (c == 64)
- c = 96;
- if (c > 63 && c < 91)
- c += 32;
- if (c < ARRAYBASE || c > 122)
- return(-1);
- return(c - ARRAYBASE);
-}
-
-static int /* Declare an array */
-dodcl(cx) int cx; {
- int i, n, v, lo, hi, rc = 0;
- int isdynamic = 0;
- char tmpbuf[64];
- char ** p = NULL;
- char tmp[64]; /* Local temporary string buffer */
- if ((y = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
- if (y == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- s = line;
- x = arraybounds(s,&lo,&hi); /* Check syntax and get bounds */
- debug(F111,"dodcl arraybounds",s,x);
- if (x < 0) { /* Error - Maybe it's a variable */
- char * p; /* whose value is an array name */
- int n;
- p = tmpbuf;
- n = 63;
- p[0] = NUL;
- if (s[0] == CMDQ && s[1] == '&')
- s++;
- if (zzstring(s,&p,&n) > -1) {
- s = tmpbuf;
- x = arraybounds(s,&lo,&hi);
- debug(F111,"dodcl arraybounds 2",s,x);
- }
- if (x < 0) {
- printf("?Bad array name - \"%s\"\n",s);
- return(-9);
- }
- }
- debug(F101,"dodcl hi","",hi);
- debug(F101,"dodcl lo","",lo);
- debug(F101,"dodcl lo+1","",lo+1);
-
- if (lo == -1 && hi == -1) { /* Have good array name and bounds */
- isdynamic = 1;
- n = CMDBL / 5;
- } else if (hi > -1) {
- printf("?Segment notation not allowed in array declarations\n");
- return(-9);
- } else if ((lo+1) < 0) {
- debug(F101,"dodcl underflow","",lo+1);
- printf("?Dimension underflow\n");
- return(-9);
- } else
- n = lo;
- x = arrayitoa(x);
- if (cx == XXUNDCL) {
- n = 0;
- v = 0;
- if ((y = cmcfm()) < 0)
- return(y);
- } else {
- p = (char **)malloc(sizeof(char **)*(n+1));
- if (!p) {
- printf("?Memory allocation error\n");
- return(-9);
- }
- v = 0; /* Highest initialized member */
- p[0] = NULL; /* Element 0 */
- keepallchars = 1;
- while (n > 0 && v < n) { /* Parse initializers */
- p[v+1] = NULL;
- ckmakxmsg(tmp,
- 64,
- "Initial value for \\&",
- ckctoa((char)x),
- "[",
- ckitoa(v+1),
- "]",
- NULL,NULL,NULL,NULL,NULL,NULL,NULL
- );
- if ((rc = cmfld((char *)tmp,"",&s,xxstring)) < 0) { /* Get field */
- if (rc == -3) /* If answer is empty, we're done */
- break;
- else /* Parse error, free temp pointers */
- goto dclx;
- }
- rc = 1;
- if (v == 0 && !strcmp(s,"=")) /* Skip the = sign. */
- continue;
- s = brstrip(s); /* Strip any braces */
- makestr(&(p[++v]),s);
- }
- keepallchars = 0;
- if ((y = cmtxt("Carriage return to confirm","",&s,NULL)) < 0)
- return(y);
- if (isdynamic)
- n = v;
- }
- if (dclarray((char)x,n) < 0) { /* Declare the array */
- printf("?Declare failed\n");
- goto dclx;
- }
- for (i = 1; i <= v; i++) { /* Add any initial values */
- tmp[0] = '&';
- ckmakmsg(&tmp[1],63,ckctoa((char)x),"[",ckitoa(i),"]");
- if (addmac(tmp,p[i]) < 0) {
- printf("Array initialization error: %s %s\n",tmp,p[i]);
- rc = -9;
- goto dclx;
- }
- }
- dclx:
- if (p) {
- for (i = 1; i <= v; i++)
- if (p[i]) free(p[i]);
- free((char *)p);
- }
- debug(F101,"DCL rc","",rc);
- return(success = rc);
-}
-
-static int
-rszarray() {
- int i, x, y, n, lo, hi, islink = -1;
- char c, * s, ** ap = NULL;
- if ((x = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
- if (x == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
- s = line;
- x = arraybounds(s,&lo,&hi);
- if (x < 0) { /* Parse the name, get index */
- printf("?Bad array reference - \"%s\"\n", s);
- return(-9);
- }
- if (lo < 0 && hi < 0) {
- y = cmnum("New size","",10,&lo,xxstring);
- if (y < 0) {
- if (y == -3)
- printf("?New size required\n");
- return(y);
- }
- }
- if ((y = cmcfm()) < 0)
- return(y);
- if (a_link[x] > -1) { /* Link? */
- islink = x; /* Yes follow it */
- x = a_link[x]; /* and remember */
- }
- if (!a_ptr[x]) {
- printf("?Array not declared - \"%s\"\n", s);
- return(-9);
- }
- if (lo < 0) {
- printf("?New size required\n");
- return(-9);
- }
- if (hi > -1) {
- printf("?Array segments not allowed for this operation\n");
- return(-9);
- }
- c = arrayitoa(x); /* Get array letter */
- if (c == '@') { /* Argument vector array off limits */
- printf("?Sorry, \\&@[] is read-only\n");
- return(-9);
- }
- if (lo == 0) { /* If new size is 0... */
- dclarray(c,0); /* Undeclare the array */
- return(success = 1);
- }
- n = a_dim[x]; /* Current size */
- ap = (char **) malloc((lo+1) * sizeof(char *)); /* New array */
- y = (n < lo) ? n : lo;
- for (i = 0; i <= y; i++) /* Copy the part that fits */
- ap[i] = a_ptr[x][i];
- if (n < lo) { /* If original array smaller */
- for (; i <= lo; i++) /* initialize extra elements in */
- ap[i] = NULL; /* new array to NULL. */
- } else if (n > lo) { /* If new array smaller */
- for (; i <= lo; i++) /* deallocate leftover elements */
- makestr(&(a_ptr[x][i]),NULL); /* from original array. */
- }
- free((char *)a_ptr[x]); /* Free original array list */
- a_ptr[x] = ap; /* Replace with new one */
- a_dim[x] = lo; /* Record the new dimension */
- if (islink > -1) { /* Was this a link? */
- a_ptr[islink] = ap; /* If so point to the resized array */
- a_dim[islink] = lo;
- } else { /* If not are there links to here? */
- for (i = 0; i < (int) 'z' - ARRAYBASE; i++) { /* Any linked arrays? */
- if (i != x && a_link[i] == x) { /* Find and update them */
- a_ptr[i] = ap;
- a_dim[i] = lo;
- }
- }
- }
- return(success = 1);
-}
-
-static int
-copyarray() {
- int i, j, x1, lo1, hi1, x2, lo2, hi2, whole = 0;
- char c1, c2, * a1, * a2;
- if ((y = cmfld("Name of source array","",&s,NULL)) < 0)
- return(y);
- ckstrncpy(line,s,LINBUFSIZ);
- a1 = line;
- if ((x1 = arraybounds(a1,&lo1,&hi1)) < 0) {
- printf("?Bad array reference - \"%s\"\n", a1);
- return(-9);
- } else if (!a_ptr[x1]) {
- printf("?Array not declared - \"%s\"\n", a1);
- return(-9);
- }
- c1 = arrayitoa(x1);
-
- if ((y = cmfld("Name of destination array","",&s,NULL)) < 0)
- return(y);
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- a2 = tmpbuf;
- if ((x2 = arraybounds(a2,&lo2,&hi2)) < 0) {
- printf("?Bad array reference - \"%s\"\n", a2);
- return(-9);
- }
- c2 = arrayitoa(x2);
-
- if ((x = cmcfm()) < 0)
- return(x);
-
- if (c2 == '@') { /* Argument vector array off limits */
- printf("?Sorry, \\&@[] is read-only\n");
- return(-9);
- }
- if (lo1 < 0 && lo2 < 0 && hi1 < 0 && hi2 < 0) /* Special case for */
- whole = 1; /* whole array... */
-
- if (lo1 < 0) lo1 = whole ? 0 : 1; /* Supply lower bound of source */
- if (hi1 < 0) hi1 = a_dim[x1]; /* Supply upper bound of source */
- if (lo2 < 0) lo2 = whole ? 0 : 1; /* Lower bound of target */
- if (hi2 < 0) hi2 = lo2 + hi1 - lo1; /* Upper bound of target */
- if (a_ptr[x2]) { /* Target array is already declared? */
- if (hi2 > a_dim[x2]) /* If upper bound out of range */
- hi2 = a_dim[x2]; /* shrink to fit */
- } else { /* Otherwise... */
- x2 = dclarray(c2, hi2); /* declare the target array */
- }
- for (i = lo1, j = lo2; i <= hi1 && j <= hi2; i++,j++) { /* Copy */
- makestr(&(a_ptr[x2][j]),a_ptr[x1][i]);
- }
- return(success = 1);
-}
-
-static int /* Undeclare an array */
-unarray() {
- int x, y, n, rc = 0;
- char c, * s;
-
- if ((y = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
- if (y == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
- s = line;
- if ((y = cmcfm()) < 0)
- return(y);
- if ((x = arraybounds(s,&y,&n)) < 0) { /* Parse the name, get index */
- printf("?Bad array reference - \"%s\"\n", s);
- return(-9);
- }
- if (y > 0 || n > 0) {
- printf("?Partial arrays can not be destroyed\n");
- return(-9);
- }
- c = arrayitoa(x); /* Get array letter */
- if (a_ptr[x]) { /* If array is declared */
- if (c == '@') { /* Argument vector array off limits */
- printf("?Sorry, \\&@[] is read-only\n");
- return(-9);
- }
- rc = dclarray(c,0); /* Undeclare the array */
- } else /* It wasn't declared */
- rc = 1;
- if (rc > -1) { /* Set return code and success */
- success = 1;
- rc = 1;
- } else {
- success = 0;
- printf("?Failed - destroy \"\\&%c[]\"\n", c);
- rc = -9;
- }
- return(rc);
-}
-
-static int
-clrarray(cx) int cx; {
- int i, x, lo, hi;
- char c, * s, * val = NULL;
-
- if ((x = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
- if (x == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
- s = line;
- if (cx == ARR_SET) { /* SET */
- if ((x = cmtxt("Value","",&val,xxstring)) < 0)
- return(x);
- ckstrncpy(tmpbuf,val,TMPBUFSIZ); /* Value to set */
- val = tmpbuf;
- if (!*val) val = NULL;
- } else if ((x = cmcfm()) < 0) /* CLEAR */
- return(x);
-
- if ((x = arraybounds(s,&lo,&hi)) < 0) { /* Parse the name */
- printf("?Bad array reference - \"%s\"\n", s);
- return(-9);
- }
- c = arrayitoa(x); /* Get array letter */
- if (!a_ptr[x]) { /* If array is declared */
- printf("?Array %s is not declared\n", s);
- return(-9);
- } else if (c == '@') { /* Argument vector array off limits */
- printf("?Sorry, \\&@[] is read-only\n");
- return(-9);
- }
- if (lo < 0) lo = 0;
- if (hi < 0) hi = a_dim[x];
- for (i = lo; i <= hi; i++) /* Clear/Set selected range */
- makestr(&(a_ptr[x][i]),val);
-
- return(success = 1);
-}
-
-extern char **aa_ptr[CMDSTKL][28];
-extern int aa_dim[CMDSTKL][28];
-
-static int /* Create symbolic link to an array */
-linkarray() {
- int i = 0, x, y, lo, hi, flag = 0;
- char c, * s, * p;
-
- if ((x = cmfld("Array name not currently in use","",&s,NULL)) < 0) {
- if (x == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of link name */
- s = line;
- if ((x = cmfld("Name of existing array","",&p,xxstring)) < 0) {
- if (x == -3) {
- printf("?Array name required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(tmpbuf,p,TMPBUFSIZ); /* Make safe copy of array name */
- p = tmpbuf;
- if ((x = cmcfm()) < 0)
- return(x);
-
- if ((x = arraybounds(s,&lo,&hi)) < 0) { /* Parse the link name */
- printf("?Bad array reference - \"%s\"\n", s);
- return(-9);
- }
- if (a_ptr[x]) { /* Must not already exist */
- c = arrayitoa(x);
- printf("?Array already exists: \\&%c[]\n", c);
- return(-9);
- }
- if (lo > -1 || hi > -1) {
- printf("?Sorry, whole arrays only: %s\n",s);
- return(-9);
- }
- if ((y = arraybounds(p,&lo,&hi)) < 0) { /* Parse the array name */
- printf("?Bad array reference - \"%s\"\n", s);
- return(-9);
- }
- if (lo > -1 || hi > -1) {
- printf("?Sorry, whole arrays only: %s\n",p);
- return(-9);
- }
- if (x == y) {
- for (i = cmdlvl; i >= 0; i--)
- if (aa_ptr[i][x]) {
- flag++;
- break;
- }
- }
- if (flag) {
- a_ptr[x] = aa_ptr[i][y]; /* Link to saved copy */
- a_dim[x] = aa_dim[i][y];
- } else { /* Otherwise... */
- c = arrayitoa(y); /* Check if it's declared */
- if (!a_ptr[y]) {
- printf("?Array is not declared: \\&%c[]\n", c);
- return(-9);
- }
- if (a_link[y] > -1) { /* And if it's a link itself */
- printf("?Links to links not allowed: \\&%c[]\n", c);
- return(-9);
- }
- a_ptr[x] = a_ptr[y]; /* All OK, make the link */
- a_dim[x] = a_dim[y];
- }
- a_link[x] = y;
- return(success = 1);
-}
-#endif /* NOSPL */
-
-#ifndef NOCSETS
-static char * dcsetname = NULL;
-
-/* Get Display Character-Set Name */
-
-char *
-getdcset() {
- char * s;
- int y;
-#ifdef PCFONTS
- extern int tt_font, ntermfont;
- extern struct keytab term_font[];
-#endif /* PCFONTS */
-
- s = "";
-#ifdef OS2
- y = os2getcp(); /* Default is current code page */
- switch (y) {
- case 437: s = "cp437"; break;
- case 850: s = "cp850"; break;
- case 852: s = "cp852"; break;
- case 857: s = "cp857"; break;
- case 858: s = "cp858"; break;
- case 862: s = "cp862"; break;
- case 866: s = "cp866"; break;
- case 869: s = "cp869"; break;
- case 1250: s = "cp1250"; break;
- case 1251: s = "cp1251"; break;
- case 1252: s = "cp1252"; break;
- case 1253: s = "cp1253"; break;
- case 1254: s = "cp1254"; break;
- case 1255: s = "cp1255"; break;
- case 1256: s = "cp1256"; break;
- case 1257: s = "cp1257"; break;
- case 1258: s = "cp1258"; break;
- }
-#ifdef PCFONTS
-/*
- If the user has loaded a font with SET TERMINAL FONT then we want
- to change the default code page to the font that was loaded.
-*/
- if (tt_font != TTF_ROM) {
- for (y = 0; y < ntermfont; y++ ) {
- if (term_font[y].kwval == tt_font) {
- s = term_font[y].kwd;
- break;
- }
- }
- }
-#endif /* PCFONTS */
-#else /* OS2 */
-#ifdef COMMENT
- /* Hack not needed as of C-Kermit 7.1 */
- if (fcharset == FC_1LATIN) {
- s = "latin1-iso"; /* Hack to avoid reporting "cp1252" */
- } else { /* Report current file character set */
-#endif /* COMMENT */
- for (y = 0; y <= nfilc; y++)
- if (fcstab[y].kwval == fcharset) {
- s = fcstab[y].kwd;
- break;
- }
-#ifdef COMMENT
- }
-#endif /* COMMENT */
-#endif /* OS2 */
- makestr(&dcsetname,s); /* Return stable pointer */
- return((char *)dcsetname);
-}
-#endif /* NOCSETS */
-
-#ifndef NOFRILLS
-static int
-doclear() {
- if ((x = cmkey(clrtab,nclear,"item to clear",
-#ifdef NOSPL
- "device-buffer"
-#else
- "device-and-input"
-#endif /* NOSPL */
- ,xxstring)) < 0) return(x);
-#ifndef NOSPL
-#ifdef OS2
- if (x == CLR_CMD || x == CLR_TRM) {
- if ((z = cmkey(clrcmdtab,nclrcmd,"how much screen to clear\n",
- "all",xxstring)) < 0)
- return(z);
- }
-#endif /* OS2 */
-#endif /* NOSPL */
- if ((y = cmcfm()) < 0)
- return(y);
-
- /* Clear device input buffer if requested */
- y = (x & CLR_DEV) ? ttflui() : 0;
-
- if (x & CLR_SCR) /* CLEAR SCREEN */
- y = ck_cls(); /* (= SCREEN CLEAR = CLS) */
-
- if (x & CLR_KBD) { /* CLEAR KEYBOARD */
- int n;
- n = conchk();
- y = 0;
- while (n-- > 0 && (y = coninc(0) > -1))
- ;
- y = (y > -1) ? 0 : -1;
- }
-
-#ifndef NOSPL
- /* Clear INPUT command buffer if requested */
- if (x & CLR_INP) {
- for (z = 0; z < inbufsize; z++)
- inpbuf[z] = NUL;
- inpbp = inpbuf;
- y = 0;
- }
-#ifdef CK_APC
- if (x & CLR_APC) {
- debug(F101,"Executing CLEAR APC","",apcactive);
- apcactive = 0;
- y = 0;
- }
-#endif /* CK_APC */
- if (x & CLR_ALR) {
- setalarm(0L);
- y = 0;
- }
-#endif /* NOSPL */
-
-#ifdef PATTERNS
- if (x & (CLR_TXT|CLR_BIN)) {
- int i;
- for (i = 0; i < FTPATTERNS; i++) {
- if (x & CLR_TXT)
- makestr(&txtpatterns[i],NULL);
- if (x & CLR_BIN)
- makestr(&binpatterns[i],NULL);
- }
- y = 0;
- }
-#endif /* PATTERNS */
-
-#ifndef NODIAL
- if (x & CLR_DIA) {
- dialsta = DIA_UNK;
- y = 0;
- }
-#endif /* NODIAL */
-
-#ifndef NOMSEND
- if (x & CLR_SFL) { /* CLEAR SEND-LIST */
- if (filehead) {
- struct filelist * flp, * next;
- flp = filehead;
- while (flp) {
- if (flp->fl_name)
- free(flp->fl_name);
- if (flp->fl_alias)
- free(flp->fl_alias);
- next = flp->fl_next;
- free((char *)flp);
- flp = next;
- }
- }
- filesinlist = 0;
- filehead = NULL;
- filetail = NULL;
- addlist = 0;
- y = 0;
- }
-#endif /* NOMSEND */
-
-#ifdef OS2
-#ifndef NOLOCAL
- switch (x) {
- case CLR_SCL:
- clearscrollback(VTERM);
- break;
- case CLR_CMD:
- switch ( z ) {
- case CLR_C_ALL:
- clear();
- break;
- case CLR_C_BOS:
- clrboscr_escape(VCMD,SP);
- break;
- case CLR_C_BOL:
- clrbol_escape(VCMD,SP);
- break;
- case CLR_C_EOL:
- clrtoeoln(VCMD,SP);
- break;
- case CLR_C_EOS:
- clreoscr_escape(VCMD,SP);
- break;
- case CLR_C_LIN:
- clrline_escape(VCMD,SP);
- break;
- case CLR_C_SCR:
- clearscrollback(VCMD);
- break;
- default:
- printf("Not implemented yet, sorry.\n");
- break;
- }
- break;
-
-#ifndef NOTERM
- case CLR_TRM:
- switch ( z ) {
- case CLR_C_ALL:
- if (VscrnGetBufferSize(VTERM) > 0 ) {
- VscrnScroll(VTERM, UPWARD, 0,
- VscrnGetHeight(VTERM)-(tt_status[VTERM]?2:1),
- VscrnGetHeight(VTERM) -
- (tt_status[VTERM]?1:0), TRUE, SP
- );
- cleartermscreen(VTERM);
- }
- break;
- case CLR_C_BOS:
- clrboscr_escape(VTERM,SP);
- break;
- case CLR_C_BOL:
- clrbol_escape(VTERM,SP);
- break;
- case CLR_C_EOL:
- clrtoeoln(VTERM,SP);
- break;
- case CLR_C_EOS:
- clreoscr_escape(VTERM,SP);
- break;
- case CLR_C_LIN:
- clrline_escape(VTERM,SP);
- break;
- case CLR_C_SCR:
- clearscrollback(VTERM);
- break;
- default:
- printf("Not implemented yet, sorry.\n");
- break;
- }
- break;
-#endif /* NOTERM */
- }
- y = 0;
-#endif /* NOLOCAL */
-#endif /* OS2 */
- return(success = (y == 0));
-}
-#endif /* NOFRILLS */
-
-#ifndef NOSPL
-static int
-doeval(cx) int cx; {
- char *p;
- char vnambuf[VNAML], * vnp = NULL; /* These must be on the stack */
- if (!oldeval) {
- if ((y = cmfld("Variable name","",&s,
- ((cx == XX_EVAL) ? xxstring : NULL))) < 0) {
- if (y == -3) {
- printf("?Variable name required\n");
- return(-9);
- } else return(y);
- }
- ckstrncpy(vnambuf,s,VNAML); /* Make a copy. */
- vnp = vnambuf;
- if (vnambuf[0] == CMDQ &&
- (vnambuf[1] == '%' || vnambuf[1] == '&'))
- vnp++;
- y = 0;
- if (*vnp == '%' || *vnp == '&') {
- if ((y = parsevar(vnp,&x,&z)) < 0)
- return(y);
- }
- }
- if ((x = cmtxt("Integer arithmetic expression","",&s,xxstring)) < 0)
- return(x);
- p = evala(s);
- if (!p) p = "";
- if (oldeval && *p)
- printf("%s\n", p);
- ckstrncpy(evalbuf,p,32);
- if (!oldeval)
- return(success = addmac(vnambuf,p));
- else
- return(success = *p ? 1 : 0);
-}
-#endif /* NOSPL */
-
-#ifdef TNCODE
-static int
-dotelopt() {
- if ((x = cmkey(telcmd, ntelcmd, "TELNET command", "", xxstring)) < 0 )
- return(x);
- switch (x) {
- case WILL:
- case WONT:
- case DO:
- case DONT:
- if ((y = cmkey(tnopts,ntnopts,"TELNET option","",xxstring)) < 0)
- return(y);
- if ((z = cmcfm()) < 0) return(z);
-
- switch (x) {
- case WILL:
- if (TELOPT_UNANSWERED_WILL(y))
- return(success = 0);
- break;
- case WONT:
- if (TELOPT_UNANSWERED_WONT(y))
- return(success = 0);
- break;
- case DO:
- if (TELOPT_UNANSWERED_DO(y))
- return(success = 0);
- break;
- case DONT:
- if (TELOPT_UNANSWERED_DONT(y))
- return(success = 0);
- break;
- }
- if (local) {
- success = ((tn_sopt(x,y) > -1) ? 1 : 0);
- } else {
- printf("ff%02x%02x\n",x,y);
- success = 1;
- }
- if (success) {
- switch (x) {
- case WILL:
- TELOPT_UNANSWERED_WILL(y) = 1;
- break;
- case WONT:
- if ( TELOPT_ME(y) )
- TELOPT_UNANSWERED_WONT(y) = 1;
- break;
- case DO:
- TELOPT_UNANSWERED_DO(y) = 1;
- break;
- case DONT:
- if ( TELOPT_ME(y) )
- TELOPT_UNANSWERED_DONT(y) = 1;
- break;
- }
- if (tn_wait("XXTELOP") < 0) {
- tn_push();
- success = 0;
- }
- }
- return(success);
- case SB:
- if ((y=cmkey(tnsbopts,ntnsbopts,"TELNET option","",xxstring)) < 0)
- return(y);
- switch (y) {
- case TELOPT_NAWS:
- /* Some compilers require switch() to have at least 1 case */
-#ifdef CK_NAWS
- TELOPT_SB(TELOPT_NAWS).naws.x = 0;
- TELOPT_SB(TELOPT_NAWS).naws.y = 0;
- if (local)
- return(success = ((tn_snaws() > -1) ? 1 : 0));
- else
- return(success = 0);
-#else
- return(success = 0);
-#endif /* CK_NAWS */
- }
- return(success = 0);
-
-#ifdef CK_KERBEROS
-#ifdef KRB5
- case TN_FWD:
- success = (kerberos5_forward() == AUTH_SUCCESS);
- return(success);
-#endif /* KRB5 */
-#endif /* CK_KERBEROS */
-
- default:
- if ((z = cmcfm()) < 0) return(z);
-#ifndef NOLOCAL
- if (local) {
- CHAR temp[3];
- if (network && IS_TELNET()) { /* TELNET */
- temp[0] = (CHAR) IAC;
- temp[1] = x;
- temp[2] = NUL;
- success = (ttol((CHAR *)temp,2) > -1 ? 1 : 0);
- if (tn_deb || debses || deblog) {
- /* TN_MSG_LEN is in ckctel.h */
- ckmakmsg(tn_msg,256,"TELNET SENT ",TELCMD(x),NULL,NULL);
- debug(F101,tn_msg,"",x);
- if (debses || tn_deb) tn_debug(tn_msg);
- }
- return(success);
- }
- return(success = 0);
- } else {
-#endif /* NOLOCAL */
- printf("ff%02x\n",x);
- return(success = 1);
-#ifndef NOLOCAL
- }
-#endif /* NOLOCAL */
- }
-}
-#endif /* TNCODE */
-
-
-#ifndef NOPUSH
-#ifndef NOFRILLS
-static int
-doedit() {
-#ifdef OS2
- char * p = NULL;
-#endif /* OS2 */
- if (!editor[0]) {
- s = getenv("EDITOR");
- if (s) ckstrncpy(editor,s,CKMAXPATH);
- editor[CKMAXPATH] = NUL;
- if (!editor[0]) {
- printf("?Editor not defined - use SET EDITOR to define\n");
- return(-9);
- }
- }
- ckstrncpy(tmpbuf,editfile,TMPBUFSIZ);
-/*
- cmiofi() lets us parse the name of an existing file, or the name of
- a nonexistent file to be created.
-*/
- x = cmiofi("File to edit", (char *)tmpbuf, &s, &y, xxstring);
- if (x < 0) {
- if (x == -9) {
- if (zchko(s) < 0) {
- printf("Can't create \"%s\"\n",s);
- return(x);
- }
- } else if (x != -3)
- return(x);
- }
- if (x == -3)
- tmpbuf[0] = NUL;
- else {
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- if (iswild((char *)tmpbuf)) {
- printf("?A single file please\n");
- return(-9);
- }
- }
- if ((z = cmcfm()) < 0) return(z);
- if (nopush) {
- printf("?Sorry, editing not allowed\n");
- return(success = 0);
- }
- if (tmpbuf[0]) {
- /* Get full path in case we change directories between EDIT commands */
- zfnqfp(tmpbuf, CKMAXPATH, editfile);
- editfile[CKMAXPATH] = NUL;
-#ifdef OS2
- p = editfile; /* Flip the stupid slashes */
- while (*p) {
- if (*p == '/') *p = '\\';
- p++;
- }
-#endif /* OS2 */
- } else
- editfile[0] = NUL;
- x = 0;
- if (editopts[0]) {
-#ifdef OS2
- x = ckindex("%1",(char *)editopts,0,0,1);
- if (x > 0)
- editopts[x] = 's';
- else
-#endif /* OS2 */
- x = ckindex("%s",(char *)editopts,0,0,1);
- }
- if (((int)strlen(editopts) + (int)strlen(editfile) + 1) < TMPBUFSIZ) {
- if (x)
- sprintf(tmpbuf,editopts,editfile);
- else
- sprintf(tmpbuf,"%s %s",editopts,editfile);
- }
- s = line;
- ckmakmsg(s,LINBUFSIZ,editor," ",tmpbuf,NULL);
-#ifdef OS2
- p = s + strlen(editor); /* And again with the slashes */
- while (p != s) {
- if (*p == '/') *p = '\\';
- p--;
- }
-#endif /* OS2 */
- conres();
- x = zshcmd(s);
- concb((char)escape);
- return(x);
-}
-#endif /* NOFRILLS */
-#endif /* NOPUSH */
-
-#ifdef BROWSER
-static int
-dobrowse() {
-#ifdef OS2
- char * p = NULL;
-#endif /* OS2 */
- if (nopush) {
- printf("?Sorry, browsing not allowed\n");
- return(success = 0);
- }
-#ifndef NT
- /* Windows lets the Shell Execute the URL if no Browser is defined */
- if (!browser[0]) {
- s = getenv("BROWSER");
- if (s) ckstrncpy(browser,s,CKMAXPATH);
- browser[CKMAXPATH] = NUL;
- if (!browser[0]) {
- printf("?Browser not defined - use SET BROWSER to define\n");
- return(-9);
- }
- }
-#endif /* NT */
- ckstrncpy(tmpbuf,browsurl,TMPBUFSIZ);
- if ((x = cmtxt("URL",(char *)browsurl,&s,xxstring)) < 0)
- return(x);
- ckstrncpy(browsurl,s,4096);
- x = 0;
- if (browsopts[0]) {
-#ifdef OS2
- x = ckindex("%1",(char *)browsopts,0,0,1);
- if (x > 0)
- browsopts[x] = 's';
- else
-#endif /* OS2 */
- x = ckindex("%s",(char *)browsopts,0,0,1);
- }
- if (((int)strlen(browsopts) + (int)strlen(browsurl) + 1) < TMPBUFSIZ) {
- if (x)
- sprintf(tmpbuf,browsopts,browsurl);
- else
- sprintf(tmpbuf,"%s %s",browsopts,browsurl);
- }
-#ifdef NT
- if (!browser[0])
- return(success = Win32ShellExecute(browsurl));
-#endif /* NT */
- s = line;
- ckmakmsg(s,LINBUFSIZ,browser," ",tmpbuf,NULL);
-#ifdef OS2
- p = line + strlen(browser); /* Flip slashes */
- while (p != line) {
- if (*p == '/') *p = '\\';
- p--;
- }
-#endif /* OS2 */
- conres();
- x = zshcmd(s);
- concb((char)escape);
- return(x);
-}
-#endif /* BROWSER */
-
-#ifdef CK_RECALL
-static int
-doredo() { /* Find a previous cmd and redo it */
- extern int on_recall, in_recall;
- int x;
- char * p;
-
- if ((x = cmtxt(
-"pattern, or first few characters of a previous command",
- "*",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- x = strlen(s);
- s = line;
- if (*s == '{') { /* Braces disable adding * to end */
- if (s[x-1] == '}') {
- s[x-1] = NUL;
- s++;
- x--;
- }
- } else { /* No braces, add * to end. */
- s[x] = '*';
- s[x+1] = NUL;
- }
-
- while (x > 0 && s[x] == '*' && s[x-1] == '*') s[x--] = NUL;
-
- if (!on_recall || !in_recall) {
- printf("?Sorry, command recall can't be used now.\n");
- return(-9);
- }
- if ((p = cmgetcmd(s))) { /* Look for it history buffer */
- ckmakmsg(cmdbuf,CMDBL,p,"\r",NULL,NULL); /* Copy to command buffer */
- if (!quiet) /* Echo it */
- printf("%s\n",cmdbuf);
- cmaddnext(); /* Force re-add to history buffer */
- return(cmflgs = -1); /* Force reparse */
- } else {
- printf("?Sorry - \"%s\" not found\n", s);
- return(-9);
- }
-}
-#endif /* CK_RECALL */
-
-#ifndef NOXFER
-#ifndef NOCSETS
-static int
-doassoc() { /* ASSOCIATE */
- extern struct keytab tcstab[];
- extern int ntcs;
- if ((x = cmkey(assoctab, nassoc, "", "", xxstring)) < 0 )
- return(x);
-
- switch (x) { /* Associate what? */
-
- case ASSOC_TC: /* Transfer character-set... */
- if ((x = cmkey(tcstab, ntcs,
- "transfer character-set name","",xxstring)) < 0)
- return(x);
- if ((y = cmkey(fcstab, nfilc,
- "with file character-set","", xxstring)) < 0)
- if (y != -3)
- return(y);
- if ((z = cmcfm()) < 0)
- return(z);
- axcset[x] = y;
- return(success = 1);
-
- case ASSOC_FC: /* File character-set... */
- if ((x = cmkey(fcstab, nfilc,
- "file character-set name","",xxstring)) < 0)
- return(x);
- if ((y = cmkey(tcstab, ntcs,
- "with transfer character-set","", xxstring)) < 0)
- if (y != -3)
- return(y);
- if ((z = cmcfm()) < 0)
- return(z);
- afcset[x] = y;
- return(success = 1);
-
- default:
- return(-2);
- }
-}
-#endif /* NOCSETS */
-#endif /* NOXFER */
-
-#ifndef NOHELP
-static int
-domanual() {
-#ifdef OS2
- if ((x = cmcfm()) < 0)
- return(x);
- if (nopush) {
- printf("?Sorry, access to system commands is disabled.\n");
- return(-9);
- }
- y = mxlook(mactab,"manual",nmac);
- if (y > -1) {
- z = maclvl; /* Save the current maclvl */
- dodo(y,NULL,cmdstk[cmdlvl].ccflgs); /* Run the macro */
- while (maclvl > z) {
- debug(F101,"XXMAN loop maclvl 1","",maclvl);
- sstate = (CHAR) parser(1);
- debug(F101,"XXMAN loop maclvl 2","",maclvl);
- if (sstate) proto();
- }
- debug(F101,"XXMAN loop exit maclvl","",maclvl);
- return(success);
- }
- return(success = 0);
-#else
- if ((x = cmtxt(
-#ifdef UNIX
- "Carriage return to confirm the command, or manual topic",
-#else
- "Carriage return to confirm the command, or help topic",
-#endif /* UNIX */
- "kermit",
- &s,
- xxstring
- )
- ) < 0)
- return(x);
-#endif /* OS2 */
-
-#ifdef UNIX
- ckmakmsg(tmpbuf,TMPBUFSIZ,"man ",s,NULL,NULL);
-#else
- ckmakmsg(tmpbuf,TMPBUFSIZ,"help ",s,NULL,NULL);
-#endif /* UNIX */
- debug(F110,"MANUAL",tmpbuf,0);
- if (nopush) {
- printf("?Sorry, access to system commands is disabled.\n");
- return(-9);
- } else {
- conres(); /* Restore the console */
- success = zshcmd(tmpbuf);
- concb((char)escape); /* Restore CBREAK mode */
- return(success);
- }
-}
-#endif /* NOHELP */
-
-#ifndef NOHTTP
-#ifdef TCPSOCKET
-static struct keytab sslswtab[] = {
- { "/ssl", 1, 0 },
- { "/tls", 1, 0 }
-};
-
-#ifndef NOURL
-struct urldata http_url = {NULL,NULL,NULL,NULL,NULL,NULL,NULL};
-#endif /* NOURL */
-
-static int
-dohttp() { /* HTTP */
- struct FDB sw, kw, fi;
- int n, getval, allinone = 0;
- char c, * p;
- char rdns[128];
-
- char * http_agent = NULL; /* Parse results */
- char * http_hdr = NULL;
- char * http_user = NULL;
- char * http_pass = NULL;
- char * http_mime = NULL;
- char * http_lfile = NULL;
- char * http_rfile = NULL;
- char * http_dfile = NULL;
- char http_array = NUL;
- int http_action = -1;
-
- char * http_host = NULL;
- char * http_srv = NULL;
- int http_ssl = 0;
-
- static char * http_d_agent = NULL;
- static char * http_d_user = NULL;
- static char * http_d_pass = NULL;
-
- static int http_d_type = 0;
- int http_type = http_d_type;
-
-#ifdef OS2
- p = "Kermit 95"; /* Default user agent */
-#else
- p = "C-Kermit";
-#endif /* OS2 */
- makestr(&http_agent,p);
- makestr(&http_mime,"text/HTML"); /* MIME type default */
- rdns[0] = '\0';
-
- cmfdbi(&sw, /* 1st FDB - general switches */
- _CMKEY, /* fcode */
- "OPEN, CLOSE, GET, HEAD, PUT, INDEX, or POST,\n or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nhttpswtab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- httpswtab, /* Keyword table */
- &kw /* Pointer to next FDB */
- );
- cmfdbi(&kw, /* 2nd FDB - commands */
- _CMKEY, /* fcode */
- "Command", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nhttptab, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 0 = keyword */
- xxstring, /* Processing function */
- httptab, /* Keyword table */
- NULL /* Pointer to next FDB */
- );
-
- while (1) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0) /* Error */
- goto xhttp;
- n = cmresult.nresult;
- if (cmresult.fdbaddr == &kw) /* Command - exit this loop */
- break;
- c = cmgbrk(); /* Switch... */
- getval = (c == ':' || c == '=');
- x = -9;
- if (getval && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- goto xhttp;
- }
- switch (cmresult.nresult) { /* Handle each switch */
- case HT_SW_TP: /* /TOSCREEN */
- http_type = 1;
- break;
- case HT_SW_AG: /* /AGENT */
- if (getval) {
- if ((x = cmfld("User agent",p,&s,xxstring)) < 0)
- goto xhttp;
- } else {
- s = p;
- }
- makestr(&http_agent,s);
- break;
- case HT_SW_HD: /* /HEADER */
- s = NULL;
- if (getval) {
- if ((x = cmfld("Header line","",&s,xxstring)) < 0) {
- if (x == -3)
- s = NULL;
- else
- goto xhttp;
- }
- }
- makestr(&http_hdr,s);
- break;
- case HT_SW_US: /* /USER */
- s = NULL;
- if (getval) {
- if ((x = cmfld("User ID","",&s,xxstring)) < 0) {
- if (x == -3)
- s = "";
- else
- goto xhttp;
- }
- }
- makestr(&http_user,s);
- break;
- case HT_SW_PW: /* /PASSWORD */
- debok = 0;
- s = NULL;
- if (getval) {
- if ((x = cmfld("Password","",&s,xxstring)) < 0)
- goto xhttp;
- }
- makestr(&http_pass,s);
- break;
-#ifndef NOSPL
- case HT_SW_AR: { /* /ARRAY: */
- char * s2, array = NUL;
- if (!getval) {
- printf("?This switch requires an argument\n");
- x = -9;
- goto xhttp;
- }
- if ((x = cmfld("Array name (a single letter will do)",
- "",
- &s,
- NULL
- )) < 0) {
- if (x == -3) {
- printf("?Array name required\n");
- x = -9;
- goto xhttp;
- } else
- goto xhttp;
- }
- if (!*s) {
- printf("?Array name required\n");
- x = -9;
- goto xhttp;
- }
- s2 = s;
- if (*s == CMDQ) s++;
- if (*s == '&') s++;
- if (!isalpha(*s)) {
- printf("?Bad array name - \"%s\"\n",s2);
- x = -9;
- goto xhttp;
- }
- array = *s++;
- if (isupper(array))
- array = tolower(array);
- if (*s && (*s != '[' || *(s+1) != ']')) {
- printf("?Bad array name - \"%s\"\n",s2);
- http_array = NUL;
- x = -9;
- goto xhttp;
- }
- http_array = array;
- break;
- }
-#endif /* NOSPL */
- default:
- x = -2;
- goto xhttp;
- }
- }
- http_action = n; /* Save the action */
- if (http_action == HTTP_PUT || http_action == HTTP_POS) {
- cmfdbi(&sw, /* 1st FDB - switch */
- _CMKEY, /* fcode */
- "Local filename\n Or switch", /* help */
- "", /* default */
- "", /* addtl string data */
- nhttpptab, /* keyword table size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- httpptab, /* Keyword table */
- &fi /* Pointer to next FDB */
- );
- cmfdbi(&fi, /* 2nd FDB - filename */
- _CMIFI, /* fcode */
- "Local filename", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- while (1) {
- x = cmfdb(&sw);
- if (x < 0)
- goto xhttp; /* Free any malloc'd temp strings */
- n = cmresult.nresult;
- if (cmresult.fcode != _CMKEY)
- break;
- c = cmgbrk(); /* Switch... */
- getval = (c == ':' || c == '=');
- if (getval && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- x = -9;
- goto xhttp;
- }
- switch (n) {
- case HT_PP_MT:
- s = "text/HTML";
- if (getval) {
- if ((x = cmfld("MIME type",
- "text/HTML",&s,xxstring)) < 0)
- goto xhttp;
- }
- makestr(&http_mime,s);
- break;
- default:
- x = -2;
- goto xhttp;
- }
- }
- makestr(&http_lfile,cmresult.sresult);
- n = ckindex("/",http_lfile,-1,1,0);
- if (n)
- p = &http_lfile[n];
- else
- p = http_lfile;
- if ((x = cmfld("URL or remote filename",p,&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?%s what?\n",(http_action == HTTP_PUT) ? "Put" : "Post");
- x = -9;
- }
- goto xhttp;
- }
- if (!*s) s = NULL;
- makestr(&http_rfile,s);
-
- if ((x = cmtxt("Response filename","",&s,xxstring)) < 0) {
- if (x != -3)
- goto xhttp;
- }
- if (*s)
- makestr(&http_dfile,s);
- }
- switch (http_action) {
- case HTTP_DEL: /* DELETE */
- if ((x = cmfld("URL or remote source file","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Delete what?\n");
- x = -9;
- }
- goto xhttp;
- }
- makestr(&http_rfile,s);
- break;
- case HTTP_CON: /* CONNECT */
- if ((x = cmfld("Remote host[:port]","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Remote host[:port] is required\n");
- x = -9;
- }
- goto xhttp;
- }
- makestr(&http_rfile,s);
- break;
- case HTTP_HED: { /* HEAD */
- char buf[CKMAXPATH+1];
- if ((x = cmfld("URL or remote source file","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Head of what?\n");
- x = -9;
- }
- goto xhttp;
- }
- makestr(&http_rfile,s);
-
- if (http_array || http_type) { /* Default result filename */
- p = ""; /* None if /ARRAY or /TOSCREEN */
- } else {
- n = ckindex("/",http_rfile,-1,1,0); /* Otherwise strip path */
- if (n) /* and add ".head" */
- p = &http_rfile[n];
- else
- p = http_rfile;
- ckmakmsg(buf,CKMAXPATH,p,".head",NULL,NULL);
- p = buf;
- }
- if ((x = cmofi("Local filename",p,&s,xxstring)) < 0) {
- if (x != -3)
- goto xhttp;
- }
- makestr(&http_lfile,s);
- break;
- }
- case HTTP_GET: /* GET */
- case HTTP_IDX: { /* INDEX */
- char * lfile = "";
- if ((x = cmfld("URL or remote source file","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Get what?\n");
- x = -9;
- }
- goto xhttp;
- }
- makestr(&http_rfile,s);
- if (http_action == HTTP_GET && !http_type)
- zstrip(http_rfile,&lfile);
- if ((x = cmofi("Local filename",lfile,&s,xxstring)) < 0)
- if (x != -3)
- goto xhttp;
- makestr(&http_lfile,s);
- break;
- }
- case HTTP_OPN: {
- int sslswitch = 0;
-#ifdef CK_SSL
- struct FDB sw, fl;
- cmfdbi(&sw,
- _CMKEY, /* fcode */
- "IP host name or address, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 2, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- sslswtab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* 2nd FDB - host */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- x = cmfdb(&sw); /* Parse switch or host */
- if (x < 0) /* Error */
- goto xhttp;
- if (cmresult.fcode == _CMFLD) { /* Host */
- s = cmresult.sresult; /* Set up expected pointer */
- goto havehost; /* Go parse rest of command */
- }
- sslswitch = 1; /* /SSL or /TLS switch - set flag */
-#endif /* CK_SSL */
-
- /* Parse host */
-
- if ((x = cmfld("URL, hostname, or ip-address","",&s,xxstring)) < 0) {
- if (x == -3) {
- printf("?Open what?\n");
- x = -9;
- }
- goto xhttp;
- }
-
- havehost: /* Come here with s -> host */
-#ifdef CK_URL
- x = urlparse(s,&http_url); /* Was a URL given? */
- if (x < 1) { /* Not a URL */
-#endif /* CK_URL */
- makestr(&http_host,s);
- if ((x =
- cmfld("Service name or port number",
- sslswitch ? "https" : "http",&s,xxstring)) < 0)
- goto xhttp;
- else
- makestr(&http_srv,s);
-#ifdef CK_URL
- } else if (ckstrcmp(http_url.svc,"http",-1,0) && /* Non-HTTP URL */
- ckstrcmp(http_url.svc,"https",-1,0)) {
- printf("?Non-HTTP URL\n");
- x = -9;
- goto xhttp;
- } else { /* Have HTTP URL */
- makestr(&http_srv, http_url.svc);
- makestr(&http_user,http_url.usr);
- makestr(&http_pass,http_url.psw);
- makestr(&http_host,http_url.hos);
- if (http_url.por)
- makestr(&http_srv,http_url.por);
- makestr(&http_rfile,http_url.pth);
- }
- if (http_rfile) { /* Open, GET, and Close */
- printf("?Directory/file path not allowed in HTTP OPEN URL\n");
- x = -9;
- goto xhttp;
- }
- if (!ckstrcmp("https",http_srv,-1,0) || sslswitch ||
- !ckstrcmp("443",http_srv,-1,0))
- http_ssl = 1;
-#endif /* CK_URL */
- break;
- }
- case HTTP_CLS:
- break;
- }
- if ((x = cmcfm()) < 0)
- goto xhttp;
-
- if (http_action == HTTP_OPN) {
- x = (http_open(http_host,http_srv,http_ssl,rdns,128,http_agent) == 0);
- if (x) {
- if (!quiet) {
- if (rdns[0])
- printf("Connected to %s [%s]\r\n",http_host,rdns);
- else
- printf("Connected to %s\r\n",http_host);
- }
- if (http_agent) {
- if (http_d_agent)
- free(http_d_agent);
- http_d_agent = http_agent;
- http_agent = NULL;
- }
- if (http_user) {
- if (http_d_user)
- free(http_d_user);
- http_d_user = http_user;
- http_user = NULL;
- }
- if (http_pass) {
- if (http_d_pass) {
- memset(http_d_pass,0,strlen(http_d_pass));
- free(http_d_pass);
- }
- http_d_pass = http_pass;
- http_pass = NULL;
- }
- http_d_type = http_type;
- } else {
- if (!quiet)
- printf("?HTTP Connection failed.\r\n");
- }
- } else if (http_action == HTTP_CLS) {
- if (http_d_agent) {
- free(http_d_agent);
- http_d_agent = NULL;
- }
- if (http_d_user) {
- free(http_d_user);
- http_d_user = NULL;
- }
- if (http_d_pass) {
- memset(http_d_pass,0,strlen(http_d_pass));
- free(http_d_pass);
- http_d_pass = NULL;
- }
- http_d_type = 0;
- x = (http_close() == 0);
- }
- if ((http_action != HTTP_CLS) &&
- (http_action != HTTP_CON) && http_rfile) { /* Remote file is URL? */
-
- /* All-in-one actions when a URL is given... */
-
-#ifdef CK_URL
- if (urlparse(http_rfile,&http_url) > 0) { /* Have URL? */
- if (ckstrcmp(http_url.svc,"http",-1,0) && /* It's an HTTP URL? */
- ckstrcmp(http_url.svc,"https",-1,0)) {
- printf("?Non-HTTP URL\n");
- x = -9;
- goto xhttp;
- } else { /* Yes, collect the pieces */
- makestr(&http_srv, http_url.svc);
- makestr(&http_user,http_url.usr);
- makestr(&http_pass,http_url.psw);
- makestr(&http_host,http_url.hos);
- if (http_url.por)
- makestr(&http_srv,http_url.por);
- makestr(&http_rfile,http_url.pth);
- }
- if (!http_rfile) { /* Still have a path? */
- makestr(&http_rfile,"/");
- }
- if (!ckstrcmp("https",http_srv,-1,0) || /* Check for SSL/TLS */
- !ckstrcmp("443",http_srv,-1,0))
- http_ssl = 1;
- if (http_isconnected()) /* Close any open HTTP connection */
- http_close();
- if (http_pass == NULL && http_d_pass != NULL)
- makestr(&http_pass,http_d_pass);
- x = (http_open(http_host,
- http_srv,http_ssl,rdns,128,http_d_agent) == 0);
- if (x < 0) {
- x = 0;
- goto xhttp;
- }
- allinone = 1;
- }
-#endif /* CK_URL */
- if (http_pass == NULL && http_d_pass != NULL)
- makestr(&http_pass,http_d_pass);
-
- if (http_action == HTTP_OPN && allinone) {
- http_action = HTTP_GET;
- }
- x = xdohttp(http_action,
- http_lfile,
- http_rfile,
- http_dfile,
- http_agent ? http_agent : http_d_agent,
- http_hdr,
- http_user ? http_user : http_d_user,
- http_pass ? http_pass : http_d_pass,
- http_mime,
- http_array,
- http_type
- );
- if (allinone)
- x = (http_close() == 0);
- }
-
- xhttp:
- if (http_agent) free(http_agent);
- if (http_hdr) free(http_hdr);
- if (http_user) free(http_user);
- if (http_pass) {
- memset(http_pass,0,strlen(http_pass));
- free(http_pass);
- }
- if (http_mime) free(http_mime);
- if (http_lfile) free(http_lfile);
- if (http_rfile) free(http_rfile);
- if (http_dfile) free(http_dfile);
- if (http_host) free(http_host);
- if (http_srv) free(http_srv);
-
- if (x > -1)
- success = x;
- return(x);
-}
-#endif /* TCPSOCKET */
-#endif /* NOHTTP */
-
-
-#ifndef NOSPL
-static int
-dotrace() {
- int on = 1;
- struct FDB sw, kw;
- cmfdbi(&sw, /* 1st FDB - switch */
- _CMKEY, /* fcode */
- "Trace object;\n Or switch", /* help */
- "", /* default */
- "", /* addtl string data */
- 2, /* keyword table size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- onoffsw, /* Keyword table */
- &kw /* Pointer to next FDB */
- );
- cmfdbi(&kw, /* 2nd FDB - Trace object */
- _CMKEY, /* fcode */
- "Trace object", /* help */
- "all", /* default */
- "", /* addtl string data */
- ntracetab, /* keyword table size */
- 0, /* addtl numeric data 2: 0 = keyword */
- xxstring, /* Processing function */
- tracetab, /* Keyword table */
- NULL /* Pointer to next FDB */
- );
- if ((x = cmfdb(&sw)) < 0)
- return(x);
- if (cmresult.fdbaddr == &sw) {
- on = cmresult.nresult;
- if ((x = cmkey(tracetab, ntracetab,"","all",xxstring)) < 0)
- return(x);
- } else {
- x = cmresult.nresult;
- }
- if ((y = cmcfm()) < 0)
- return(y);
-
- switch (x) {
- case TRA_ASG:
- tra_asg = on;
- break;
- case TRA_CMD:
- tra_cmd = on;
- break;
- case TRA_ALL:
- tra_asg = on;
- tra_cmd = on;
- break;
- default:
- return(-2);
- }
- printf("TRACE %s\n", on ? "ON" : "OFF");
- return(success = 1);
-}
-#endif /* NOSPL */
-
-
-static int
-doprompt() {
- extern int xcmdsrc;
- if ((x = cmtxt("Optional message","",&s,xxstring)) < 0)
- return(x);
-#ifdef NOSPL
- printf("?Sorry, PROMPT requires script programming language\n");
- return(-9);
-#else
- debug(F101,"Prompt cmdlvl","",cmdlvl);
- cmdlvl++;
- if (cmdlvl > CMDSTKL) {
- printf("?Command stack overflow: %d\n",cmdlvl);
- cmdlvl--;
- return(-9);
- }
- xcmdsrc = CMD_KB;
- cmdstk[cmdlvl].src = CMD_KB; /* Say we're at the prompt */
- cmdstk[cmdlvl].lvl = 0;
- cmdstk[cmdlvl].ccflgs = cmdstk[cmdlvl-1].ccflgs;
- if (tra_cmd)
- printf("[%d] +P: \"(prompt)\"\n",cmdlvl);
- concb((char)escape);
- if (!quiet)
- printf(
-"(Recursive command prompt: Resume script with CONTINUE, STOP to stop...)\n"
- );
- if (*s) { /* If prompt given */
- makestr(&(prstring[cmdlvl-1]),cmgetp()); /* Save current prompt */
- cmsetp(s); /* Set new one */
- }
- return(success = 1);
-#endif /* NOSPL */
-}
-
-#ifdef CKLEARN
-VOID
-learncmd(s) char *s; { /* Record commands in learned script */
- char buf[64];
- int i, k;
- if (learnfp && learning) { /* Only if open and on */
- k = ckstrncpy(buf,s,64);
- for (i = 0; i < k; i++) { /* Get top-level command keyword */
- if (buf[i] <= SP) {
- buf[i] = NUL;
- break;
- }
- }
- k = lookup(cmdtab,buf,ncmd,NULL); /* Look it up */
- if (k == XXCON || k == XXLEARN) /* Don't record CONNECT or LEARN */
- return;
- if (k == XXTEL) {
- fputs("SET HOST /NETWORK:TCP",learnfp);
- fputs(&s[i],learnfp);
- fputs(" TELNET /TELNET",learnfp);
- fputs("\nIF FAIL STOP 1 Connection failed\n",learnfp);
- } else {
- fputs(s,learnfp);
- fputs("\n",learnfp);
- }
- }
-}
-#endif /* CKLEARN */
-
-
-/* D O C M D -- Do a command */
-
-/*
- Returns:
- -2: user typed an illegal command
- -1: reparse needed
- 0: parse was successful (even tho command may have failed).
-*/
-#ifdef DEBUG
-int cmdstats[256] = { -1, -1 };
-#endif /* DEBUG */
-
-int
-docmd(cx) int cx; {
- extern int nolocal, cmkwflgs;
-
- debug(F101,"docmd entry, cx","",cx);
- activecmd = cx;
- doconx = ((activecmd == XXCON) || (activecmd == XXTEL) ||
- (activecmd == XXRLOG) || (activecmd == XXPIPE) ||
- (activecmd == XXIKSD) || (activecmd == XXPTY));
-/*
- Originally all commands were handled with a big switch() statement,
- but eventually this started blowing up compilers. Now we have a series
- of separate if statements and small switches, with the commands that are
- most commonly executed in scipts and loops coming first, to speed up
- compute-bound scripts.
- */
-
-#ifdef DEBUG
- if (cmdstats[0] == -1) { /* Count commands */
- int i; /* for tuning... */
- for (i = 0; i < 256; i++)
- cmdstats[i] = 0;
- }
-#endif /* DEBUG */
-
- switch (cx) {
- case -4: /* EOF */
-#ifdef OSK
- if (msgflg) printf("\n");
-#else
- if (msgflg) printf("\r\n");
-#endif /* OSK */
- doexit(GOOD_EXIT,xitsta);
- case -3: /* Null command */
- return(0);
- case -9: /* Like -2, but errmsg already done */
- case -1: /* Reparse needed */
- return(cx);
- case -6: /* Special */
- case -2: /* Error, maybe */
-
-#ifndef NOSPL
-/*
- Maybe they typed a macro name. Let's look it up and see.
-*/
- if (cx == -6) /* If they typed CR */
- ckstrncat(cmdbuf,"\015",CMDBL); /* add it back to command buffer. */
- if (ifcmd[cmdlvl] == 2) /* Watch out for IF commands. */
- ifcmd[cmdlvl]--;
- repars = 1; /* Force reparse */
- cmres();
- cx = XXDO; /* Try DO command */
-#else
- return(cx);
-#endif /* NOSPL */
- default:
- if (cx < 0)
- return(cx);
- break;
- }
-#ifdef DEBUG
- if (cx < 256)
- cmdstats[cx]++;
-#endif /* DEBUG */
-
- if ((cmkwflgs & CM_PSH)
-#ifndef NOPUSH
- && nopush
-#endif /* NOPUSH */
- ) {
- printf("?Access to system disabled\n");
- return(-9);
- }
- if ((cmkwflgs & CM_LOC)
-#ifndef NOLOCAL
- && nolocal
-#endif /* NOLOCAL */
- ) {
- printf("?Connections disabled\n");
- return(-9);
- }
-
-#ifndef NOSPL
- /* Used in FOR loops */
-
- if (cx == XX_INCR || cx == XXINC || /* _INCREMENT, INCREMENT */
- cx == XX_DECR || cx == XXDEC) /* _DECREMENT, DECREMENT */
- return(doincr(cx));
-
- /* Define (or change the definition of) a macro or variable */
-
- if (cx == XXUNDEF || cx == XXUNDFX) {
-#ifdef IKSD
- if (inserver && !ENABLED(en_asg)) {
- printf("?Sorry, DEFINE/ASSIGN disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- return(doundef(cx)); /* [_]UNDEFINE */
- }
- if (cx == XXDEF || cx == XXASS ||
- cx == XXDFX || cx == XXASX) {
-#ifdef IKSD
- if (inserver && !ENABLED(en_asg)) {
- printf("?Sorry, DEFINE/ASSIGN disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- if (atmbuf[0] == '.' && !atmbuf[1]) /* "." entered as keyword */
- xxdot = 1; /* i.e. with space after it... */
- return(dodef(cx)); /* DEFINE, ASSIGN, etc... */
- }
-
- /* IF, WHILE, and friends */
-
- if (cx == XXIF || cx == XXIFX || cx == XXWHI || cx == XXASSER) {
- return(doif(cx));
- }
- if (cx == XXSWIT) { /* SWITCH */
- return(doswitch());
- }
-
- /* GOTO, FORWARD, and _FORWARD (used internally by FOR, WHILE, etc) */
-
- if (cx == XXGOTO || cx == XXFWD || cx == XXXFWD) { /* GOTO or FORWARD */
- /* Note, here we don't set SUCCESS/FAILURE flag */
-#ifdef COMMENT
- if ((y = cmfld("label","",&s,xxstring)) < 0) {
- if (y == -3) {
- if (cx != XXXFWD) {
- printf("?Label name required\n");
- return(-9);
- }
- } else
- return(y);
- }
- ckstrncpy(lblbuf,s,LBLSIZ);
- if ((x = cmcfm()) < 0) return(x);
-#else
- if ((y = cmtxt("label","",&s,xxstring)) < 0) {
- if (y == -3) {
- if (cx != XXXFWD) {
- printf("?GOTO: Label name required: \"%s\" \"%s\"\n",
- atmbuf,
- cmdbuf);
- return(-9);
- }
- } else
- return(y);
- }
- ckstrncpy(lblbuf,brstrip(s),LBLSIZ);
-#endif /* COMMENT */
- s = lblbuf;
- debug(F111,"GOTO target",s,cx);
- return(dogoto(s,cx));
- }
- if (cx == XXDO || cx == XXMACRO) { /* DO (a macro) */
- char mnamebuf[16]; /* (buffer for controlled temp name) */
- struct FDB kw, fl;
- int mx; /* Macro index (on stack!) */
-
- debug(F101,"XXMACRO 0",line,cx);
- if (cx == XXDO) {
- if (nmac == 0) {
- printf("\n?No macros defined\n");
- return(-9);
- }
- for (y = 0; y < nmac; y++) { /* copy the macro table into a */
- mackey[y].kwd = mactab[y].kwd; /* regular keyword table */
- mackey[y].kwval = y; /* with value = pointer to macro tbl */
- mackey[y].flgs = mactab[y].flgs;
- }
- cmfdbi(&kw, /* First FDB - macro name */
- _CMKEY, /* fcode */
- "Macro", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nmac, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 0 = cmkey */
- xxstring, /* Processing function */
- mackey, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* 2nd FDB - for "{" */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "",
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- x = cmfdb(&kw); /* Parse something */
- if (x < 0) { /* Error */
- if (x == -3) {
- printf("?Macro name required\n");
- return(-9);
- } else
- return(x);
- }
- if (cmresult.fcode == _CMKEY) {
- extern int mtchanged;
- char * macroname = NULL;
-
- /* In case args include an \fexec() that changes the macro table */
-
- mx = x; /* Save macro index on stack */
- mtchanged = 0; /* Mark state of macro table */
- makestr(¯oname,mactab[mx].kwd); /* Save name */
-
- if ((y = cmtxt("optional arguments","",&s,xxstring)) < 0)
- return(y); /* Get macro args */
-
- if (mtchanged) { /* Macro table changed? */
- mx = mlook(mactab,macroname,nmac); /* Look up name again */
- }
- if (macroname)
- free(macroname);
-
- return(dodo(mx,s,cmdstk[cmdlvl].ccflgs) < 1 ?
- (success = 0) : 1);
- }
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* _CMFLD */
- if (atmbuf[0] == '{') {
- if ((y = cmcfm()) < 0)
- return(y);
- }
- } else { /* XXMACRO ("immediate macro") */
- int k = 0;
- line[k++] = '{';
- line[k++] = SP;
- line[k] = NUL;
- debug(F111,"XXMACRO A",line,k);
- /* Defer evaluation of variables until the commands are exec'd */
- if ((y = cmtxt("Braced list of commands","",&s,NULL)) < 0)
- return(y);
- k = ckstrncpy(line+k,s,LINBUFSIZ-k);
- debug(F111,"XXMACRO B",line,k);
- }
- x = strlen(line);
- if ((line[0] == '{' && line[x-1] != '}') || line[0] == '}')
- return(-2);
- if (line[0] != '{' && line[x-1] != '}') {
- /* Unknown command. If ON_UNKNOWN_COMMAND macro is defined, */
- /* parse args and then execute it, but only if it is not */
- /* already active. */
- int k = -1;
- if (!unkmacro) {
- k = mxlook(mactab,"on_unknown_command",nmac);
- }
- if (k > -1) {
- ckstrncpy(tmpbuf,atmbuf,TMPBUFSIZ);
- z = maclvl; /* Save the current maclvl */
- if ((y = cmtxt("text","",&s,xxstring)) < 0)
- return(y);
- ckstrncat(tmpbuf," ",TMPBUFSIZ);
- ckstrncat(tmpbuf,s,TMPBUFSIZ);
- unkmacro = 1;
- debug(F110,"ON_UNKNOWN_COMMAND",s,0);
- dodo(k,tmpbuf,cmdstk[cmdlvl].ccflgs); /* Run the macro */
- while (maclvl > z) {
- sstate = (CHAR) parser(1);
- if (sstate) proto();
- }
- debug(F101,"UNKMAC loop exit maclvl","",maclvl);
- unkmacro = 0;
- return(success);
- }
- if (x > 0)
- printf("?Not a command or macro name: \"%s\"\n",line);
- else
- printf("?Not a command or macro name.\n");
- return(-9);
- }
- s = brstrip(line);
- sprintf(mnamebuf," ..tmp:%03d",cmdlvl); /* safe (16) */
- x = addmac(mnamebuf,s);
- return(dodo(x,NULL,cmdstk[cmdlvl].ccflgs) < 1 ? (success = 0) : 1);
- }
-
- if (cx == XXLBL) { /* LABEL */
- if ((x = cmfld("label","",&s,xxstring)) < 0) {
- if (x == -3) {
-#ifdef COMMENT
- printf("?LABEL: Label name required: \"%s\"\n", cmdbuf);
- return(-9);
-#else
- s = "";
-#endif /* COMMENT */
- } else return(x);
-
- }
- debug(F111,"LABEL",s,x);
- if ((x = cmcfm()) < 0) return(x);
- return(0);
- }
-
- if (cx == XXEVAL || cx == XX_EVAL) /* _EVALUATE, EVALUATE */
- return(doeval(cx));
-
-#ifndef NOSEXP
- if (cx == XXSEXP) { /* Lisp-like S-Expression */
- struct stringarray * q;
- char /* *p, *r, */ *tmp, *m;
- int i, k, n, quote = 0, contd = 0, size = 0, len = 0;
- extern int sexprc, sexppv;
-
- tmp = tmpbuf; /* Buffer to collect SEXP */
- tmpbuf[0] = NUL; /* Clear it */
- size = TMPBUFSIZ; /* Capacity of buffer */
- sexprc = -1; /* Assume bad input */
- n = 0; /* Paren balance counter */
-
- while (1) { /* Allow SEXP on multiple lines */
- m = contd ?
- "Continuation of S-Expression" :
- "S-Expression (\"help sexp\" for details)";
- x = cmtxt(m,"",&s,xxstring);
- if (x < 0)
- return(x);
- if (!*s) /* Needed for (=) and (:) */
- s = atmbuf;
- k = ckmakmsg(tmp, size, contd ? " " : "(", s, NULL, NULL);
- if (k < 1) {
- printf("?SEXP too long - %d max\n",TMPBUFSIZ);
- return(-9);
- }
- debug(F111,contd ? "sexp contd" : "sexp",s,k);
-
- for (i = len; i < len+k; i++) { /* Check balance */
- if (!quote && tmpbuf[i] == CMDQ) {
- quote = 1;
- continue;
- }
- if (quote) {
- quote = 0;
- continue;
- }
- if (tmpbuf[i] == '(')
- n++;
- else if (tmpbuf[i] == ')')
- n--;
- }
- if (n == 0) { /* Break when balanced */
- break;
- }
- if (n < 0) { /* Too many right parens */
- printf("?Unbalanced S-Expression: \"%s\"\n",tmpbuf);
- return(-9);
- }
- contd++; /* Need more right parens */
- cmini(ckxech); /* so keep parsing */
- tmp += k; /* adjust buffer pointer */
- size -= k; /* and capacity */
- len += k; /* and length so far */
- }
- s = tmpbuf;
- makestr(&lastsexp,s);
- q = cksplit(1,SEXPMAX,s,NULL,NULL,8,0,0); /* Precheck for > 1 SEXP */
- debug(F101,"sexp split","",q->a_size);
-
- if (q->a_size == 1) { /* We should get exactly one back */
- char * result, * dosexp();
- sexprc = 0; /* Reset out-of-band return code */
- result = dosexp(s); /* Get result */
- debug(F111,"sexp result",result,sexprc);
- if (sexprc == 0) { /* Success */
- /* Echo the result if desired */
- if ((!xcmdsrc && sexpecho != SET_OFF) || sexpecho == SET_ON)
- printf(" %s\n",result ? result : "");
- makestr(&sexpval,result);
- success = sexppv > -1 ? sexppv : 1;
- return(success);
- }
- }
- if (sexprc < 0)
- printf("?Invalid S-Expression: \"%s\"\n",lastsexp);
- return(-9);
- }
-#endif /* NOSEXP */
-
-#endif /* NOSPL */
-
- if (cx == XXECH || cx == XXXECH || cx == XXVOID
-#ifndef NOSPL
- || cx == XXAPC
-#endif /* NOSPL */
- ) { /* ECHO or APC */
- if ((x = cmtxt((cx == XXECH || cx == XXXECH) ?
- "Text to be echoed" :
- ((cx == XXVOID) ? "Text" :
- "Application Program Command text"),
- "",
- &s,
- xxstring
- )
- ) < 0)
- return(x);
- if (!s) s = "";
-#ifdef COMMENT
-/* This is to preserver the pre-8.0 behavior but it's too confusing */
- x = strlen(s);
- x = (x > 1) ? ((s[0] == '"' && s[x-1] == '"') ? 1 : 0) : 0;
-#endif /* COMMENT */
- s = brstrip(s); /* Strip braces and doublequotes */
- if (cx == XXECH) { /* ECHO */
-#ifndef NOSPL
- if (!fndiags || fnsuccess) {
-#endif /* NOSPL */
-#ifdef COMMENT
- /* The "if (x)" business preserves previous behavior */
- /* by putting back the doublequotes if they were included. */
- if (x)
- printf("\"%s\"\n",s);
- else
-#endif /* COMMENT */
- printf("%s\n",s);
-#ifndef NOSPL
- }
-#endif /* NOSPL */
- } else if (cx == XXXECH) { /* XECHO */
- if (x)
- printf("\"%s\"",s);
- else
- printf("%s",s);
-#ifdef UNIX
- fflush(stdout);
-#endif /* UNIX */
- } else if (cx == XXAPC) { /* APC */
-#ifdef CK_APC
- if (apcactive == APC_LOCAL ||
- (apcactive == APC_REMOTE && !(apcstatus & APC_UNCH)))
- return(success = 0);
-#endif /* CK_APC */
- if (!local) {
- printf("%c_%s%c\\",ESC,s,ESC);
-#ifdef UNIX
- fflush(stdout);
-#endif /* UNIX */
-
- } else { /* Local mode - have connection */
-#ifndef NOSPL
- if (ckmakxmsg(tmpbuf, /* Form APC string in buffer */
- TMPBUFSIZ,
- ckctoa((char)ESC),
- ckctoa('_'),
- s,
- ckctoa((char)ESC),
- ckctoa('\\'),
- NULL,NULL,NULL,NULL,NULL,NULL,NULL
- ) > 0)
- return(success = dooutput(tmpbuf, XXOUT));
- printf("?Too long\n");
- return(-9);
-#else
- printf("%c_%s%c\\",ESC,s,ESC);
-#endif /* NOSPL */
- }
- }
- return(success = 1);
- }
-
-#ifndef NOSPL
-/* Copy macro args from/to two levels up, used internally by _floop et al. */
- if (cx == XXGTA || cx == XXPTA) { /* _GETARGS, _PUTARGS */
- int x;
- debug(F101,"docmd XXGTA","",XXGTA);
- debug(F101,"docmd cx","",cx);
- debug(F101,"docmd XXGTA maclvl","",maclvl);
- x = dogta(cx);
- debug(F101,"docmd dogta returns","",x);
- debug(F101,"docmd dogta maclvl","",maclvl);
- return(x);
- }
-#endif /* NOSPL */
-
-#ifndef NOSPL
-#ifdef CKCHANNELIO
- if (cx == XXFILE)
- return(dofile(cx));
- else if (cx == XXF_RE || cx == XXF_WR || cx == XXF_OP ||
- cx == XXF_CL || cx == XXF_SE || cx == XXF_RW ||
- cx == XXF_FL || cx == XXF_LI || cx == XXF_ST || cx == XXF_CO)
- return(dofile(cx));
-#endif /* CKCHANNELIO */
-
-/* ASK, ASKQ, READ */
- if (cx == XXASK || cx == XXASKQ || cx == XXREA ||
- cx == XXRDBL || cx == XXGETC || cx == XXGETK) {
- return(doask(cx));
- }
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
- if (cx == XXBUG) { /* BUG */
- if ((x = cmcfm()) < 0) return(x);
- return(dobug());
- }
-#endif /* NOFRILLS */
-
-#ifndef NOXFER
- if (cx == XXBYE) { /* BYE */
- extern int ftp_cmdlin;
- if ((x = cmcfm()) < 0) return(x);
-
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen())) {
- extern int stayflg, ftp_fai;
- success = ftpbye();
- if (ftp_cmdlin && !stayflg && !local)
- doexit(ftp_fai ? BAD_EXIT : GOOD_EXIT,-1);
- else
- return(success);
- }
-#endif /* NEWFTP */
-
- if (!local) {
- printf("?No connection - use EXIT to quit.\n");
- return(-9);
- }
-
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("?Sorry, BYE only works with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
-
-#ifdef IKS_OPTION
- if (
-#ifdef CK_XYZ
- protocol == PROTO_K &&
-#endif /* CK_XYZ */
- !iks_wait(KERMIT_REQ_START,1)) {
- printf(
- "?A Kermit Server is not available to process this command\n");
- return(-9); /* Correct the return code */
- }
-#endif /* IKS_OPTION */
-
- bye_active = 1;
- sstate = setgen('L',"","","");
- if (local) ttflui(); /* If local, flush tty input buffer */
- return(0);
- }
-#endif /* NOXFER */
-
- if (cx == XXBEEP) { /* BEEP */
- int x;
-#ifdef OS2
- int y;
- if ((y = cmkey(beeptab, nbeeptab, "which kind of beep", "information",
- xxstring)) < 0 )
- return (y);
- if ((x = cmcfm()) < 0) return(x);
- bleep((short)y); /* y is one of the BP_ values */
-#else /* OS2 */
- if ((x = cmcfm()) < 0) return(x);
-#ifndef NOSPL
- bleep(BP_NOTE);
-#else
- putchar('\07');
-#endif /* NOSPL */
-#endif /* OS2 */
- return(0);
- }
-
-#ifndef NOFRILLS
- if (cx == XXCLE) /* CLEAR */
- return(success = doclear());
-#endif /* NOFRILLS */
-
- if (cx == XXCOM) { /* COMMENT */
- if ((x = cmtxt("Text of comment line","",&s,NULL)) < 0)
- return(x);
- /* Don't change SUCCESS flag for this one */
- return(0);
- }
-
-#ifndef NOLOCAL
- if (cx == XXCON || cx == XXCQ) /* CONNECT or CONNECT /QUIETLY */
- return(doxconn(cx));
-#endif /* NOLOCAL */
-
-#ifndef NOFRILLS
-#ifdef ZCOPY
- if (cx == XXCPY) { /* COPY a file */
-#ifdef IKSD
- if (inserver && !ENABLED(en_cpy)) {
- printf("?Sorry, COPY is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef CK_APC
- if (apcactive == APC_LOCAL ||
- (apcactive == APC_REMOTE && !(apcstatus & APC_UNCH))
- )
- return(success = 0);
-#endif /* CK_APC */
- return(docopy());
- }
-#endif /* ZCOPY */
-#ifdef NT
- if ( cx == XXLINK ) {
-#ifdef IKSD
- if (inserver && !ENABLED(en_cpy)) {
- printf("?Sorry, LINK (COPY) is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef CK_APC
- if (apcactive == APC_LOCAL ||
- (apcactive == APC_REMOTE && !(apcstatus & APC_UNCH))
- )
- return(success = 0);
-#endif /* CK_APC */
- return(dolink());
- }
-#endif /* NT */
-#endif /* NOFRILLS */
-
- /* CD and friends */
- if (cx == XXCWD || cx == XXCDUP || cx == XXBACK ||
- cx == XXLCWD || cx == XXLCDU || cx == XXKCD) {
-#ifdef LOCUS
- if (!locus) {
- if (cx == XXCWD) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZCWD));
-#endif /* NOXFER */
- } else if (cx == XXCDUP) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZCDU));
-#endif /* NOXFER */
- }
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && !ENABLED(en_cwd)) {
- printf("?Sorry, changing directories is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- return(success = docd(cx));
- }
-
- if (cx == XXCHK) /* CHECK */
- return(success = dochk());
-
- if (cx == XXCLO) { /* CLOSE */
- x = cmkey(clstab,ncls,"\"CONNECTION\", or log or file to close",
- "connection",xxstring);
- if (x == -3) {
- printf("?You must say which file or log\n");
- return(-9);
- }
- if (x < 0) return(x);
- if ((y = cmcfm()) < 0) return(y);
-#ifndef NOLOCAL
- if (x == 9999) { /* CLOSE CONNECTION */
- x = clsconnx(0);
- switch (x) {
- case 0:
- if (msgflg) printf("?Connection was not open\n");
- case -1:
- return(0);
- case 1:
- whyclosed = WC_CLOS;
- return(1);
- }
- return(0);
- }
-#endif /* NOLOCAL */
- y = doclslog(x);
- success = (y == 1);
- return(success);
- }
-
-#ifndef NOSPL
- if (cx == XXDCL || cx == XXUNDCL) { /* DECLARE an array */
- return(dodcl(cx));
- }
-#endif /* NOSPL */
-
-#ifndef NODIAL
- if (cx == XXRED || cx == XXDIAL || cx == XXPDIA ||
- cx == XXANSW || cx == XXLOOK) { /* DIAL, REDIAL etc */
-#ifdef VMS
- extern int batch;
-#else
-#ifdef UNIXOROSK
- extern int backgrd;
-#endif /* UNIXOROSK */
-#endif /* VMS */
- x = dodial(cx);
- debug(F101,"dodial returns","",x);
- if ((cx == XXDIAL || cx == XXRED || cx == XXANSW) &&
- (x > 0) && /* If DIAL or REDIAL succeeded */
- (dialsta != DIA_PART) && /* and it wasn't partial */
- (dialcon > 0)) {
- if ((dialcon == 1 || /* And DIAL CONNECT is ON, */
- ((dialcon == 2) && /* or DIAL CONNECT is AUTO */
- !xcmdsrc /* and we're at top level... */
-#ifdef VMS
- && !batch /* Not if running from batch */
-#else
-#ifdef UNIXOROSK
- && !backgrd /* Not if running in background */
-#endif /* UNIXOROSK */
-#endif /* VMS */
- ))) /* Or AUTO */
- x = doconect(dialcq, /* Then also CONNECT */
- cmdlvl == 0 ? 1 : 0
- );
- if (ttchk() < 0)
- dologend();
- }
- return(success = x);
- }
-#endif /* NODIAL */
-
-#ifndef NOPUSH
-#ifdef CK_REXX
- if (cx == XXREXX) { /* REXX */
- extern int nopush;
- if ( nopush )
- return(success=0);
- return(dorexx());
- }
-#endif /* CK_REXX */
-#endif /* NOPUSH */
-
-#ifndef NOFRILLS
- if (cx == XXDEL || cx == XXLDEL) { /* DELETE */
-#ifdef LOCUS
- if (!locus && cx != XXLDEL) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZDEL));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && (!ENABLED(en_del)
-#ifdef CK_LOGIN
- || isguest
-#endif /* CK_LOGIN */
- )) {
- printf("?Sorry, DELETE is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
- return(dodel());
- }
-#endif /* NOFRILLS */
-
- if (cx == XXDIR || cx == XXLS || cx == XXLDIR) { /* DIRECTORY or LS */
-#ifdef LOCUS
- if (!locus && cx != XXLDIR) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZDIR));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && !ENABLED(en_dir)) {
- printf("?Sorry, DIRECTORY is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- return(dodir(cx));
- }
-
-#ifndef NOSPL
- if (cx == XXELS) /* ELSE */
- return(doelse());
-#endif /* NOSPL */
-
-#ifndef NOSERVER
-#ifndef NOFRILLS
- if (cx == XXENA || cx == XXDIS) { /* ENABLE, DISABLE */
- s = (cx == XXENA) ?
- "Server function to enable" :
- "Server function to disable";
-
- if ((x = cmkey(enatab,nena,s,"",xxstring)) < 0) {
- if (x == -3) {
- printf("?Name of server function required\n");
- return(-9);
- } else return(x);
- }
- if ((y = cmkey(kmstab,3,"mode","both",xxstring)) < 0) {
- if (y == -3) {
- printf("?Please specify remote, local, or both\n");
- return(-9);
- } else return(y);
- }
- if (cx == XXDIS) /* Disabling, not enabling */
- y = 3 - y;
- if ((z = cmcfm()) < 0) return(z);
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
-#ifdef IKSD
- /* This may seem like it duplicates the work in doenable() */
- /* but this code returns failure whereas doenable() returns */
- /* success. */
- if (inserver &&
-#ifdef IKSDCONF
- iksdcf &&
-#endif /* IKSDCONF */
- (x == EN_HOS || x == EN_PRI || x == EN_MAI || x == EN_WHO ||
- isguest))
- return(success = 0);
-#endif /* IKSD */
- return(doenable(y,x));
- }
-#endif /* NOFRILLS */
-#endif /* NOSERVER */
-
-#ifndef NOSPL
- if (cx == XXRET) { /* RETURN */
- if ((x = cmtxt("Optional return value","",&s,NULL)) < 0)
- return(x);
- s = brstrip(s); /* Strip braces */
- if (cmdlvl == 0) /* At top level, nothing happens... */
- return(success = 1);
- switch (cmdstk[cmdlvl].src) { /* Action depends on command source */
- case CMD_TF: /* Command file */
- popclvl(); /* Pop command level */
- return(success = 1); /* always succeeds */
- case CMD_MD: /* Macro */
- case CMD_KB: /* Prompt */
- return(doreturn(s)); /* Trailing text is return value. */
- default: /* Shouldn't happen */
- return(-2);
- }
- }
-#endif /* NOSPL */
-
-#ifndef NOSPL
- if (cx == XXOPE) /* OPEN */
- return(doopen());
-#endif /* NOSPL */
-
-#ifndef NOSPL
- if (cx == XXOUT || cx == XXLNOUT) { /* OUTPUT or LINEOUT */
- if ((x = cmtxt("Text to be output","",&s,NULL)) < 0)
- return(x);
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
- debug(F110,"OUTPUT 1",s,0);
- s = brstrip(s); /* Strip enclosing braces, */
- debug(F110,"OUTPUT 2",s,0);
-/*
- I don't think I could ever fully explain this in a million years...
- We have read the user's string without calling the variable-expander
- function. Now, before we call it, we have to double backslashes that
- appear before \N, \B, \L, and \ itself, so the expander function will
- reduce them back to single backslashes, so when we call dooutput()...
- But it's more complicated than that.
-*/
- if (cmdgquo()) { /* Only if COMMAND QUOTING ON ... */
- for (x = 0, y = 0; s[x]; x++, y++) {
- if (s[x] == CMDQ) {
- char c = s[x+1];
- if (c == 'n' || c == 'N' ||
- c == 'b' || c == 'B' ||
- c == 'l' || c == 'L' ||
- c == CMDQ)
- line[y++] = CMDQ;
- }
- line[y] = s[x];
- }
- line[y++] = '\0'; /* Now expand variables, etc. */
- debug(F110,"OUTPUT 3",line,0);
- s = line+y+1;
- x = LINBUFSIZ - (int) strlen(line) - 1;
- debug(F101,"OUTPUT size","",x);
- if (zzstring(line,&s,&x) < 0)
- return(success = 0);
- s = line+y+1;
- debug(F110,"OUTPUT 4",s,0);
- }
- success = dooutput(s,cx);
- return(success);
- }
-#endif /* NOSPL */
-
-#ifdef ANYX25
-#ifndef IBMX25
- if (cx == XXPAD) { /* PAD commands */
- x = cmkey(padtab,npadc,"PAD command","",xxstring);
- if (x == -3) {
- printf("?You must specify a PAD command to execute\n");
- return(-9);
- }
- if (x < 0) return(x);
-
- switch (x) {
- case XYPADL:
- if (x25stat() < 0)
- printf("Sorry, you must 'set network' & 'set host' first\r\n");
- else {
- x25clear();
- initpad();
- }
- break;
- case XYPADS:
- if (x25stat() < 0)
- printf("Not connected\r\n");
- else {
- extern int linkid, lcn;
- conol("Connected thru ");
- conol(ttname);
- printf(", Link id %d, Logical channel number %d\r\n",
- linkid,lcn);
- }
- break;
- case XYPADR:
- if (x25stat() < 0)
- printf("Sorry, you must 'set network' & 'set host' first\r\n");
- else
- x25reset(0,0);
- break;
- case XYPADI:
- if (x25stat() < 0)
- printf("Sorry, you must 'set network' & 'set host' first\r\n");
- else
- x25intr(0);
- }
- return(0);
- }
-#endif /* IBMX25 */
-#endif /* ANYX25 */
-
-#ifndef NOSPL
- if (cx == XXPAU || cx == XXWAI || cx == XXMSL) /* PAUSE, WAIT, etc */
- return(dopaus(cx));
-#endif /* NOSPL */
-
-#ifndef NOFRILLS
- if (cx == XXPRI) {
-#ifdef IKSD
-#ifdef CK_LOGIN
- if (inserver && (isguest || !ENABLED(en_pri))) {
- printf("?Sorry, printing is disabled\n");
- return(-9);
- }
-#endif /* CK_LOGIN */
-#endif /* IKSD */
- if ((x = cmifi("File to print","",&s,&y,xxstring)) < 0) {
- if (x == -3) {
- printf("?A file specification is required\n");
- return(-9);
- } else return(x);
- }
- if (y != 0) {
- printf("?Wildcards not allowed\n");
- return(-9);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- s = "";
-#ifndef NT
- if ((x = cmtxt("Local print command options, or carriage return","",&s,
- xxstring)) < 0)
- return(x);
-#endif /* NT */
- if ((x = cmcfm()) < 0)
- return(x);
- return(success = (zprint(s,line) == 0) ? 1 : 0);
- }
-#endif /* NOFRILLS */
-
-#ifdef TCPSOCKET
-#ifndef NOPUSH
- if (cx == XXPNG) /* PING an IP host */
- return(doping());
-#endif /* NOPUSH */
-
-#ifndef NOFTP
- if (cx == XXFTP) /* FTP */
-#ifdef SYSFTP
-#ifndef NOPUSH
- return(doftp()); /* Just runs system's ftp program */
-#else
- return(-2);
-#endif /* NOPUSH */
-#else
- return(doxftp());
-#endif /* SYSFTP */
-#endif /* NOFTP */
-#endif /* TCPSOCKET */
-
- if (cx == XXPWD || cx == XXLPWD) { /* PWD */
-#ifdef OS2
- char *pwp;
-#endif /* OS2 */
- if ((x = cmcfm()) < 0)
- return(x);
-#ifdef LOCUS
- if (!locus && cx != XXLPWD) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZPWD));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-
-#ifndef MAC
-#ifndef OS2
-#ifdef UNIX
- printf("%s\n",zgtdir());
-#else
- xsystem(PWDCMD);
-#endif /* UNIX */
- return(success = 1); /* Blind faith */
-#else /* OS2 */
- if (pwp = zgtdir()) {
- if (*pwp) {
-#ifdef NT
- line[0] = NUL;
- ckGetLongPathName(pwp,line,LINBUFSIZ);
- line[LINBUFSIZ-1] = NUL;
- tmpbuf[0] = NUL;
- GetShortPathName(pwp,tmpbuf,TMPBUFSIZ);
- tmpbuf[TMPBUFSIZ-1] = NUL;
- pwp = line;
- if (!strcmp(line,tmpbuf)) {
-#endif /* NT */
- printf("%s\n",pwp);
-#ifdef NT
- } else {
- printf(" Long name: %s\n",line);
- printf(" Short name: %s\n",tmpbuf);
- }
-#endif /* NT */
- }
- return(success = ((int)strlen(pwp) > 0));
- } else return(success = 0);
-#endif /* OS2 */
-#else /* MAC */
- if (pwp = zgtdir()) {
- printf("%s\n",pwp);
- return(success = ((int)strlen(pwp) > 0));
- } else return(success = 0);
-#endif /* MAC */
- }
-
- if (cx == XXQUI || cx == XXEXI) { /* EXIT, QUIT */
- extern int quitting;
-
- if ((y = cmnum("exit status code",ckitoa(xitsta),10,&x,xxstring)) < 0)
- return(y);
- if ((y = cmtxt("Optional EXIT message","",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- ckstrncpy(line,s,LINBUFSIZ);
-
- if (!hupok(0)) /* Check if connection still open */
- return(success = 0);
-
- if (line[0]) /* Print EXIT message if given */
- printf("%s\n",(char *)line);
-
- quitting = 1; /* Flag that we are quitting. */
-
-#ifdef VMS
- doexit(GOOD_EXIT,x);
-#else
-#ifdef OSK
-/* Returning any codes here makes the OS-9 shell print an error message. */
- doexit(GOOD_EXIT,-1);
-#else
-#ifdef datageneral
- doexit(GOOD_EXIT,x);
-#else
- doexit(x,-1);
-#endif /* datageneral */
-#endif /* OSK */
-#endif /* VMS */
- }
-
-#ifndef NOXFER
-#ifndef NOFRILLS
- if (cx == XXERR) { /* ERROR */
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("Sorry, E-PACKET only works with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
- if ((x = cmcfm()) < 0) return(x);
- ttflui();
- epktflg = 1;
- sstate = 'a';
- return(0);
- }
-#endif /* NOFRILLS */
-
- if (cx == XXFIN) { /* FINISH */
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(ftpbye());
-#endif /* NEWFTP */
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("Sorry, FINISH only works with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
- if ((x = cmcfm()) < 0) return(x);
-
-#ifdef IKS_OPTION
- if (
-#ifdef CK_XYZ
- protocol == PROTO_K &&
-#endif /* CK_XYZ */
- !iks_wait(KERMIT_REQ_START,1)) {
- printf(
- "?A Kermit Server is not available to process this command\n");
- return(-9); /* Correct the return code */
- }
-#endif /* IKS_OPTION */
-
- sstate = setgen('F',"","","");
- if (local) ttflui(); /* If local, flush tty input buffer */
- return(0);
- }
-#endif /* NOXFER */
-
-#ifndef NOSPL
- if (cx == XXFOR) /* FOR loop */
- return(dofor());
-#endif /* NOSPL */
-
-#ifndef NOXFER
- /* GET MGET REGET RETRIEVE etc */
- if (cx == XXGET || cx == XXMGET || cx == XXREGET || cx == XXRETR) {
-#ifdef IKSD
- if (inserver && !ENABLED(en_sen)) {
- printf("?Sorry, reception of files is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- return(doxget(cx));
- }
-#endif /* NOXFER */
-
-#ifndef NOSPL
-#ifndef NOFRILLS
- if (cx == XXGOK) { /* GETOK */
- return(success = doask(cx));
- }
-#endif /* NOFRILLS */
-#endif /* NOSPL */
-
- if (cx == XXHLP) { /* HELP */
-#ifdef NOHELP
- return(dohlp(XXHLP));
-#else
- x = cmkey2(cmdtab,ncmd,"\nCommand or topic","help",toktab,xxstring,3);
- debug(F101,"HELP command x","",x);
- if (x == -5) {
- y = chktok(toktab);
- debug(F101,"HELP cmkey token","",y);
- /* ungword(); */
- switch (y) {
-#ifndef NOPUSH
- case '!': x = XXSHE; break;
-#endif /* NOPUSH */
- case '#': x = XXCOM; break;
- case ';': x = XXCOM; break;
-#ifndef NOSPL
- case '.': x = XXDEF; break;
- case ':': x = XXLBL; break;
-#ifndef NOSEXP
- case '(': x = XXSEXP; break;
-#endif /* NOSEXP */
-#endif /* NOSPL */
- case '&': x = XXECH; break;
- default:
- printf("\n?Invalid - %s\n",cmdbuf);
- x = -2;
- }
- }
- makestr(&hlptok,atmbuf);
- debug(F111,"HELP token",hlptok,x);
- return(dohlp(x));
-#endif /* NOHELP */
- }
-
-#ifndef NOHELP
- if (cx == XXINT) /* INTRO */
- return(hmsga(introtxt));
- if (cx == XXNEW) { /* NEWS */
- int x;
- extern char * k_info_dir;
- x = hmsga(newstxt);
- return(x);
- }
-
-#ifdef OS2ONLY
- if (cx == XXUPD) { /* View UPDATE file */
- extern char exedir[];
- char * pTopic;
- char updstr[2048];
- if ((x = cmtxt("topic name","",&pTopic,xxstring)) < 0)
- return x;
-#ifdef COMMENT
- sprintf(updstr,
- "start view %s\\docs\\k2.inf+%s\\docs\\using_ck.inf+\
-%s\\docs\\dialing.inf+%s\\docs\\modems.inf %s",
- exedir,exedir,exedir,exedir,pTopic
- );
-#else
- if (ckmakxmsg(updstr,
- 2048,
- "start view ",
- exedir,
- "\\docs\\k2.inf+",
- exedir,
- "\\docs\\using_ck.inf+",
- exedir,
- "\\docs\\dialing.inf+",
- exedir,
- "\\docs\\modems.inf ",
- pTopic,
- NULL,
- NULL
- ) > 0)
-#endif /* COMMENT */
- system(updstr);
- return(success = 1);
- }
-#endif /* OS2ONLY */
-#endif /* NOHELP */
-
-#ifndef NOLOCAL
- if (cx == XXHAN) { /* HANGUP */
- if ((x = cmcfm()) < 0) return(x);
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && !local && ftpisopen()))
- return(success = ftpbye());
-#endif /* NEWFTP */
-#ifndef NODIAL
- if ((x = mdmhup()) < 1) {
- debug(F101,"HANGUP mdmup","",x);
-#endif /* NODIAL */
- x = tthang();
- debug(F101,"HANGUP tthang","",x);
- x = (x > -1);
-#ifndef NODIAL
- }
- dialsta = DIA_UNK;
-#endif /* NODIAL */
- whyclosed = WC_CLOS;
- ttchk(); /* In case of CLOSE-ON-DISCONNECT */
- dologend();
-#ifdef OS2
- if (x)
- DialerSend(OPT_KERMIT_HANGUP, 0);
-#endif /* OS2 */
- if (x) haveline = 0;
- return(success = x);
- }
-#endif /* NOLOCAL */
-
-#ifndef NOSPL
- /* INPUT, REINPUT, and MINPUT */
-
- if (cx == XXINP || cx == XXREI || cx == XXMINP) {
- long zz;
- extern int ispattern, isjoin;
-
- struct FDB sw, nu, fl;
- int fc, havetime = 0;
- char * m;
-
- if (cx == XXREI) {
- m = "Timeout in seconds (ignored)";
- } else {
- m = "Seconds to wait for input,\n or time of day hh:mm:ss, \
- or switch";
- }
- innomatch = 0; /* Initialize switch value(s) */
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- m, /* helpmsg */
- ckitoa(indef), /* default */
- "", /* addtl string data */
- ninputsw, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- inputsw, /* Keyword table */
- &nu /* Pointer to next FDB */
- );
- cmfdbi(&nu,
- _CMNUM, /* Number */
- m, /* Help message */
- ckitoa(indef), /* default */
- "", /* N/A */
- 10, /* Radix = 10 */
- 0, /* N/A */
- xxstring, /* Processing function */
- NULL, /* N/A */
- &fl /* Next */
- );
- cmfdbi(&fl, /* Time of day hh:mm:ss */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "",
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- fc = (cx == XXREI) ? cmfdb(&nu) : cmfdb(&sw); /* Parse something */
-
- while (!havetime) {
- if (fc < 0) { /* Error */
- if (fc == -3) {
- printf("?Syntax error in INPUT-class command\n");
- return(-9);
- } else
- return(fc);
- }
- switch (cmresult.fcode) {
- case _CMKEY: /* Switch */
- if (cmresult.nresult == INPSW_NOM) /* /NOMATCH */
- innomatch = 1;
- m = "Seconds to wait for input,\n or time of day hh:mm:ss";
- cmfdbi(&nu,_CMNUM,m,"","",10,0,xxstring,NULL,&fl);
- cmfdbi(&fl,_CMFLD,"","","",0,0,xxstring,NULL,NULL);
- fc = cmfdb(&nu); /* Parse something */
- continue;
-
- case _CMNUM: /* Seconds to time out */
- x = cmresult.nresult;
-#ifdef CKFLOAT
- if (inscale != 1.0) /* Scale */
- x *= inscale;
-#endif /* CKFLOAT */
- havetime++;
- break;
-
- case _CMFLD:
- zz = tod2sec(atmbuf); /* Convert to secs since midnight */
- if (zz < 0L) {
- printf("?Number, expression, or time of day required\n");
- return(-9);
- } else {
- char now[32]; /* Current time */
- char *p;
- long tnow;
- p = now;
- ztime(&p);
- tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
- if (zz < tnow) /* User's time before now */
- zz += 86400L; /* So make it tomorrow */
- zz -= tnow; /* Seconds from now. */
- if (zz > -1L) {
- x = zz;
- if (zz != (long) x) {
- printf(
-"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
-);
- return(-9);
- }
- }
- havetime++;
- }
- break;
- default:
- printf("?Internal error\n");
- return(-9);
- }
- }
- /* Now parse the search text */
-
-#ifdef CK_MINPUT
- for (y = 0; y < MINPMAX; y++) { /* Initialize strings */
- mp[y] = 0; /* Assume it's not a pattern */
- if (ms[y]) {
- free(ms[y]); /* Free old strings, if any */
- ms[y] = NULL;
- }
- }
- if (cx == XXMINP) { /* MINPUT */
- int i, k = 0, n = 0;
- struct stringarray * q;
- keepallchars = 1;
- while (k < MINPMAX) {
- if ((y = cmfld("String or pattern","",&s,xxstring)) < 0) {
- if (y == -3) {
- if ((y = cmcfm()) < 0)
- return(y);
- break;
- } else {
- return(y);
- }
- }
- debug(F111,"MINPUT field",s,k);
- if (isjoin) {
- if ((q = cksplit(1,0,s," ",(char *)c1chars,3,0,0))) {
- char ** ap = q->a_head;
- n = q->a_size;
- debug(F101,"minput cksplit size","",n);
- for (i = 1; i <= n && k < MINPMAX; i++) {
- if (!ap[i]) /* Add non-empty elements */
- continue;
- if (!*(ap[i]))
- continue;
- makestr(&(ms[k]),ap[i]);
- debug(F111,"MINPUT JOIN",ms[k],k);
- k++;
- }
- }
- } else {
- if (s) if (*s) {
- makestr(&(ms[k]),brstrip(s));
- if (ispattern) mp[k] = 1;
- debug(F111,"MINPUT",ms[k],ispattern);
- k++;
- }
- }
- }
- keepallchars = 0;
- } else {
-#endif /* CK_MINPUT */
-
- /* INPUT or REINPUT */
-
- if ((y = cmtxt("Material to be input","",&s,xxstring)) < 0)
- return(y);
- mp[0] = ispattern ? 1 : 0;
- makestr(&(ms[0]),brstrip(s));
- ms[1] = NULL;
-
-#ifdef CK_MINPUT
- }
-#endif /* CK_MINPUT */
-
-#ifdef COMMENT
- printf("/NOMATCH=%d\n",innomatch);
- printf("Timeout=%d\n",x);
- return(1);
-#endif /* COMMENT */
-
- if (cx == XXINP || cx == XXMINP) { /* Not REINPUT... */
- i_active = 1;
- /* Go try to input the search string */
- success = doinput(x,ms,mp,innomatch);
- i_active = 0;
- } else { /* REINPUT */
- success = doreinp(x,ms[0],ispattern);
- }
- if (intime[cmdlvl] && !success) { /* TIMEOUT-ACTION = QUIT? */
- popclvl(); /* If so, pop command level. */
- if (pflag && cmdlvl == 0) {
- if (cx == XXINP) printf("?INPUT timed out\n");
- if (cx == XXMINP) printf("?MINPUT timed out\n");
- if (cx == XXREI) printf("?REINPUT failed\n");
- }
- }
- return(success); /* Return do(re)input's return code */
- }
-
-#endif /* NOSPL */
-
- if (cx == XXLOG) { /* LOG */
- x = cmkey(logtab,nlog,"What to log","",xxstring);
- if (x == -3) {
- printf("?Type of log required\n");
- return(-9);
- }
- if (x < 0) return(x);
- x = dolog(x);
- if (x < 0)
- return(x);
- else
- return(success = x);
- }
-
- if (cx == XXLOGIN) { /* (REMOTE) LOGIN */
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(success = doftpusr());
-#endif /* NEWFTP */
-#ifdef IKSD
- if (inserver) {
- printf("?Already logged in\n");
- return(-9);
- } else
-#endif /* IKSD */
- {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZLGI));
-#endif /* NOXFER */
- }
- }
- if (cx == XXLOGOUT) { /* (REMOTE) LOGOUT */
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(success = doftpres());
-#endif /* NEWFTP */
-
-#ifdef IKSD
- if (inserver) {
- if ((x = cmcfm()) < 0)
- return(x);
- doexit(GOOD_EXIT,xitsta);
- } else
-#endif /* IKSD */
- if (!local || (network && ttchk() < 0)) {
- printf("?No connection.\n");
- return(-9);
- } else {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZLGO));
-#endif /* NOXFER */
- }
- }
-
-#ifndef NOSCRIPT
- if (cx == XXLOGI) { /* UUCP-style script */
- if ((x = cmtxt("expect-send expect-send ...","",&s,xxstring)) < 0)
- return(x);
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
-#ifdef VMS
- conres(); /* For Ctrl-C to work... */
-#endif /* VMS */
- return(success = dologin(s)); /* Return 1=completed, 0=failed */
- }
-#endif /* NOSCRIPT */
-
-#ifndef NOXFER
-#ifdef PIPESEND
- if (cx == XXCREC) { /* CRECEIVE */
- if (protocol != PROTO_K) {
- printf("?Sorry, CRECEIVE works only with Kermit protocol\n");
- return(-9);
- } else
- return(doxget(cx));
- }
- if (cx == XXCGET) { /* CGET */
- return(doxget(cx));
- }
-#endif /* PIPESEND */
-
- if (cx == XXREC) /* RECEIVE */
- return(doxget(cx));
-#endif /* NOXFER */
-
-#ifndef NOXFER
- if (cx == XXREM) { /* REMOTE */
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(doftprmt(0,0));
-#endif /* NEWFTP */
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("Sorry, REMOTE commands only work with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
- x = cmkey(remcmd,nrmt,"Remote Kermit server command","",xxstring);
- if (x == -3) {
- printf("?You must specify a command for the remote server\n");
- return(-9);
- }
- return(dormt(x));
- }
-#endif /* NOXFER */
-
-#ifndef NORENAME
-#ifndef NOFRILLS
- if (cx == XXREN || cx == XXLREN) { /* RENAME */
-#ifdef LOCUS
- if (!locus && cx != XXLREN) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZREN));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && (!ENABLED(en_ren)
-#ifdef CK_LOGIN
- || isguest
-#endif /* CK_LOGIN */
- )) {
- printf("?Sorry, renaming of files is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
- return(dorenam());
- }
-#endif /* NOFRILLS */
-#endif /* NORENAME */
-
- if (cx == XXEIGHT) { /* EIGHTBIT */
- extern int parity, cmask, cmdmsk;
- if ((x = cmcfm()) < 0)
- return(x);
- parity = 0;
- cmask = 0xff;
- cmdmsk = 0xff;
- return(success = 1);
- }
-
-#ifndef NOXFER
-/* SEND, CSEND, MOVE, MAIL, and RESEND use the new common code */
-
- if (cx == XXSEN /* SEND */
-#ifdef PIPESEND
- || cx == XXCSEN /* CSEND */
-#endif /* PIPESEND */
- || cx == XXMOVE /* MOVE */
- || cx == XXMAI /* MAIL */
-#ifdef CK_RESEND
- || cx == XXRSEN /* RESEND */
-#endif /* CK_RESEND */
- ) {
-#ifdef IKSD
- if (inserver && !ENABLED(en_get)) {
- printf("?Sorry, sending files is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- return(doxsend(cx));
- }
-
-/* PSEND, ADD, and REMOVE use special parsing */
-
-#ifdef ADDCMD
- /* ADD and REMOVE */
- if (cx == XXADD || cx == XXREMV) {
- char * m;
- m = (cx == XXADD) ? "Add to which list?" : "Remove from which list?";
- x = cmkey(addtab,naddtab,m,"",xxstring);
- if (x < 0)
- return(x);
-#ifndef NOMSEND
- if (x == ADD_SND)
- return(addsend(cx));
- else
-#endif /* NOMSEND */
- return(doadd(cx,x));
- }
-#endif /* ADDCMD */
-
-#ifdef CK_RESEND
- if (cx == XXPSEN) { /* PSEND */
- int seekto = 0;
-
- cmarg = cmarg2 = "";
- x = cmifi("File to partially send", "", &s, &y, xxstring);
- if (x < 0) {
- if (x == -3) {
- printf("?A file specification is required\n");
- return(-9);
- } else return(x);
- }
- nfils = -1; /* Files come from internal list. */
-#ifndef NOMSEND
- addlist = 0; /* Don't use SEND-LIST. */
- filenext = NULL;
-#endif /* NOMSEND */
- ckstrncpy(line,s,LINBUFSIZ); /* Save copy of string just parsed. */
- debug(F110,"PSEND line",line,0);
- if (y != 0) {
- printf("?Sorry, wildcards not permitted in this command\n");
- return(-9);
- }
- if (sizeof(int) < 4) {
- printf("?Sorry, this command needs 32-bit integers\n");
- return(-9);
- }
- x = cmnum("starting position (byte number)",
- "",10,&seekto,xxstring);
- if (x < 0)
- return(x);
- zfnqfp(s,fspeclen,fspec); /* Get full path */
- if ((x = cmtxt("Name to send it with","",&s,NULL)) < 0)
- return(x);
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
-
-#ifdef IKSD
- if (inserver && !ENABLED(en_get)) {
- printf("?Sorry, sending files is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef PIPESEND
- if (sndfilter) {
- printf("?Sorry, no PSEND while SEND FILTER selected\n");
- return(-9);
- }
-#endif /* PIPESEND */
-#ifdef CK_XYZ
- if ((protocol == PROTO_X || protocol == PROTO_XC)) {
- printf("Sorry, PSEND works only with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
-
- cmarg2 = brstrip(tmpbuf); /* Strip braces */
- cmarg = line; /* File to send */
- debug(F110,"PSEND filename",cmarg,0);
- debug(F110,"PSEND as-name",cmarg2,0);
- sendstart = seekto;
- sstate = 's'; /* Set start state to SEND */
-#ifndef NOMSEND
- addlist = 0;
- filenext = NULL;
-#endif /* NOMSEND */
- sendmode = SM_PSEND;
-#ifdef MAC
- what = W_SEND;
- scrcreate();
-#endif /* MAC */
- if (local) { /* If in local mode, */
- displa = 1; /* enable file transfer display */
- }
- return(0);
- }
-#endif /* CK_RESEND */
-#endif /* NOXFER */
-
-#ifndef NOXFER
-#ifndef NOMSEND
- if (cx == XXMSE || cx == XXMMOVE) {
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(doftpput(cx,0));
-#endif /* NEWFTP */
-#ifdef CK_XYZ
- if (protocol == PROTO_X || protocol == PROTO_XC) {
- printf(
-"Sorry, you can only send one file at a time with XMODEM protocol\n"
- );
- return(-9);
- }
-#endif /* CK_XYZ */
- return(doxsend(cx));
- }
-
-#ifdef COMMENT /* (moved to doxsend) */
- if (cx == XXMSE || cx == XXMMOVE) { /* MSEND and MMOVE commands */
- nfils = 0; /* Like getting a list of */
- lp = line; /* files on the command line */
- addlist = 0; /* Do not use SEND-LIST */
- filenext = NULL; /* Ditto ! */
-
- while (1) {
- char *p;
- if ((x = cmifi("Names of files to send, separated by spaces","",
- &s,&y,xxstring)) < 0) {
- if (x == -3) {
- if (nfils <= 0) {
- printf("?A file specification is required\n");
- return(-9);
- } else break;
- }
- return(x);
- }
- msfiles[nfils++] = lp; /* Got one, count it, point to it, */
- p = lp; /* remember pointer, */
- while (*lp++ = *s++) /* and copy it into buffer */
- if (lp > (line + LINBUFSIZ)) { /* Avoid memory leak */
- printf("?MSEND list too long\n");
- line[0] = NUL;
- return(-9);
- }
- debug(F111,"msfiles",msfiles[nfils-1],nfils-1);
- if (nfils == 1) *fspec = NUL; /* Take care of \v(filespec) */
-#ifdef ZFNQFP
- zfnqfp(p,TMPBUFSIZ,tmpbuf);
- p = tmpbuf;
-#endif /* ZFNQFP */
- if (((int)strlen(fspec) + (int)strlen(p) + 1) < fspeclen) {
- strcat(fspec,p); /* safe */
- strcat(fspec," "); /* safe */
- } else printf("WARNING - \\v(filespec) buffer overflow\n");
- }
- cmlist = msfiles; /* Point cmlist to pointer array */
- cmarg2 = ""; /* No internal expansion list (yet) */
- sndsrc = nfils; /* Filenames come from cmlist */
- sendmode = SM_MSEND; /* Remember this kind of SENDing */
- sstate = 's'; /* Set start state for SEND */
- if (cx == XXMMOVE) /* If MMOVE'ing, */
- moving = 1; /* set this flag. */
-#ifdef MAC
- what = W_SEND;
- scrcreate();
-#endif /* MAC */
- if (local) { /* If in local mode, */
- displa = 1; /* turn on file transfer display */
- ttflui(); /* and flush tty input buffer. */
- }
- return(0);
- }
-#endif /* COMMENT */
-#endif /* NOMSEND */
-#endif /* NOXFER */
-
-#ifndef NOSERVER
- if (cx == XXSER) { /* SERVER */
-#ifdef CK_XYZ
- if (protocol != PROTO_K) {
- printf("Sorry, SERVER only works with Kermit protocol\n");
- return(-9);
- }
-#endif /* CK_XYZ */
-#ifdef COMMENT
-/*
- Parse for time limit, but since we don't use it yet,
- the parsing is commented out.
-*/
- x_ifnum = 1; /* Turn off internal complaints */
- y = cmnum("optional time limit, seconds, or time of day as hh:mm:ss",
- "0", 10, &x, xxstring
- );
- x_ifnum = 0;
- if (y < 0) {
- if (y == -2) { /* Invalid number or expression */
- zz = tod2sec(atmbuf); /* Convert to secs since midnight */
- if (zz < 0L) {
- printf("?Number, expression, or time of day required\n");
- return(-9);
- } else {
- char now[32]; /* Current time */
- char *p;
- long tnow;
- p = now;
- ztime(&p);
- tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
- if (zz < tnow) /* User's time before now */
- zz += 86400L; /* So make it tomorrow */
- zz -= tnow; /* Seconds from now. */
- }
- } else
- return(y);
- }
- if (zz > -1L) {
- x = zz;
- if (zz != (long) x) {
- printf(
-"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
- );
- return(-9);
- }
- }
- if (x < 0)
- x = 0;
-#endif /* COMMENT */
-
- if ((x = cmcfm()) < 0) return(x);
- sstate = 'x';
-#ifdef MAC
- what = W_RECV;
- scrcreate();
-#endif /* MAC */
- if (local) displa = 1;
-#ifdef AMIGA
- reqoff(); /* No DOS requestors while server */
-#endif /* AMIGA */
- return(0);
- }
-#endif /* NOSERVER */
-
- if (cx == XXSAVE) { /* SAVE command */
- x = cmkey(savtab,nsav,"option","keymap",xxstring);
- if (x == -3) {
- printf("?You must specify an option to save\n");
- return(-9);
- }
- if (x < 0) return(x);
- /* have to set success separately for each item in doprm()... */
- /* actually not really, could have just had doprm return 0 or 1 */
- /* and set success here... */
- y = dosave(x);
- if (y == -3) {
- printf("?More fields required\n");
- return(-9);
- } else return(y);
- }
-
- if (cx == XXSET) { /* SET command */
- x = cmkey(prmtab,nprm,"Parameter","",xxstring);
- if (x == -3) {
- printf("?You must specify a parameter to set\n");
- return(-9);
- }
- if (x < 0) return(x);
- /* have to set success separately for each item in doprm()... */
- /* actually not really, could have just had doprm return 0 or 1 */
- /* and set success here... */
- y = doprm(x,0);
- if (y == -3) {
- printf("?More fields required\n");
- return(-9);
- } else return(y);
- }
-
-#ifndef NOPUSH
- if (cx == XXSHE /* SHELL (system) command */
- || cx == XXEXEC /* exec() */
- ) {
- int rx = 0;
- char * p = NULL;
- int i /* ,n */ ;
-#ifdef UNIXOROSK
- char * args[256];
-#endif /* UNIXOROSK */
-
-#ifdef IKSD
- if (inserver && (nopush || !ENABLED(en_hos))) {
- printf("?Sorry, host command access is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-
-#ifdef CKEXEC
- if (cx == XXEXEC) { /* EXEC (overlay ourselves) */
- struct FDB sw, fl;
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Command to overlay C-Kermit\n or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 1, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- redirsw, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* 2nd FDB - command to exec */
- _CMFLD, /* fcode */
- "Command to overlay C-Kermit", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL /* No more after this */
- );
- while (1) {
- x = cmfdb(&sw); /* Parse something */
- debug(F101,"exec cmfdb","",x);
- if (x < 0)
- return(x);
- /* Generalize this if we add more switches */
- if (cmresult.fcode == _CMKEY) {
- rx = 1;
- continue;
- }
- if (cmresult.fcode == _CMFLD)
- break;
- return(-2);
- }
- ckstrncpy(tmpbuf,cmresult.sresult,TMPBUFSIZ);
- if (!tmpbuf[0]) {
- printf("?Command required\n");
- return(-9);
- }
- p = brstrip(tmpbuf);
- args[0] = NULL; /* Set argv[0] to it */
- makestr(&args[0],p);
- for (i = 1; i < 255; i++) { /* Get arguments for command */
- if ((x = cmfld("Argument","",&s,xxstring)) < 0) {
- if (x == -3) {
- if ((x = cmcfm()) < 0)
- return(x);
- break;
- } else
- return(x);
- }
- args[i] = NULL;
- s = brstrip(s);
- makestr(&args[i],s);
- }
- args[i] = NULL;
- } else {
-#endif /* CKEXEC */
- if ((x = cmtxt("System command to execute","",&s,xxstring)) < 0)
- return(x);
-#ifdef CKEXEC
- }
-#endif /* CKEXEC */
- if (nopush)
- return(success = 0);
-#ifdef CK_APC
- if (apcactive == APC_REMOTE && !(apcstatus & APC_UNCH))
- return(success = 0);
-#endif /* CK_APC */
- conres(); /* Make console normal */
-#ifdef OS2
- if (!(s && *s)) {
- os2push();
- return(success = 1);
- } else
-#endif /* OS2 */
- if (cx == XXSHE) {
- x = zshcmd(s);
- debug(F101,"RUN zshcmd code","",x);
- concb((char)escape);
- return(success = x);
-#ifdef CKEXEC
- } else {
-#ifdef DEBUG
- if (deblog) {
- debug(F111,"EXEC cmd",p,0);
- for (i = 0; i < 256 && args[i]; i++)
- debug(F111,"EXEC arg",args[i],i);
- }
-#endif /* DEBUG */
- if (p) {
- z_exec(p,args,rx); /* Overlay ourself */
- debug(F100,"EXEC fails","",0);
- concb((char)escape); /* In case it returns */
- }
- return(success = 0);
-#endif /* CKEXEC */
- }
- }
-
-#ifdef CK_REDIR
- if (cx == XXFUN) { /* REDIRECT */
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
- ckmakmsg(tmpbuf,
- TMPBUFSIZ,
- "Local command to run,\n",
- "with its standard input/output redirected to ",
- local ? ttname : "the communications connection",
- "\n"
- );
- if ((x = cmtxt(tmpbuf,"",&s,xxstring)) < 0)
- return(x);
- if (nopush) {
- printf("?REDIRECT disabled\n");
- return(success=0);
- }
- if (!local) {
- printf("?SET LINE or SET HOST required first\n");
- return(-9);
- }
- if (!*s) {
- printf("?REDIRECT requires a command to redirect\n");
- return(-9);
- }
- return(success = ttruncmd(s));
- }
-#endif /* CK_REDIR */
-#endif /* NOPUSH */
-
-#ifndef NOSHOW
- if (cx == XXSHO) { /* SHOW */
- x = cmkey(shotab,nsho,"","parameters",xxstring);
- if (x < 0) return(x);
- return(doshow(x));
- }
-#endif /* NOSHOW */
-
-#ifndef MAC
- if (cx == XXSPA) { /* SPACE */
-#ifdef IKSD
- if (inserver && !ENABLED(en_spa)) {
- printf("?Sorry, SPACE command disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef datageneral
- /* AOS/VS can take an argument after its "space" command. */
- if ((x = cmtxt("Confirm, or local directory name","",&s,xxstring)) < 0)
- return(x);
- if (nopush) {
- printf("?Sorry, SPACE command disabled\n");
- return(-9);
- } else if (*s == NUL) {
- xsystem(SPACMD);
- } else {
- ckmakmsg(line,LINBUFSIZ,"space ",s,NULL,NULL);
- xsystem(line);
- }
-#else
-#ifdef OS2
- if ((x = cmtxt("Press Enter for current disk,\n\
- or specify a disk letter like A:","",&s,xxstring)) < 0)
- return(x);
- if (*s == NUL) { /* Current disk */
- unsigned long space = zdskspace(0);
- if (space > 0 && space < 1024)
- printf(" Free space: unknown\n");
- else
- printf(" Free space: %ldK\n", space/1024L);
- } else {
- int drive = toupper(*s);
- unsigned long space = zdskspace(drive - 'A' + 1);
- if (space > 0 && space < 1024)
- printf(" Drive %c: unknown free\n");
- else
- printf(" Drive %c: %ldK free\n", drive,space / 1024L);
- }
-#else
-#ifdef UNIXOROSK
- x = cmdir("Confirm for current disk,\n\
- or specify a disk device or directory","",&s,xxstring);
- if (x == -3)
- s = "";
- else if (x < 0)
- return(x);
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- s = tmpbuf;
- if ((x = cmcfm()) < 0) return(x);
- if (nopush) {
- printf("?Sorry, SPACE command disabled\n");
- return(-9);
- }
- if (!*s) { /* Current disk */
- xsystem(SPACMD);
- } else { /* Specified disk */
- ckmakmsg(line,LINBUFSIZ,SPACM2," ",s,NULL);
- xsystem(line);
- }
-#else
- if ((x = cmcfm()) < 0) return(x);
- if (nopush) {
- printf("?Sorry, SPACE command disabled\n");
- return(-9);
- }
- xsystem(SPACMD);
-#endif /* UNIXOROSK */
-#endif /* OS2 */
-#endif /* datageneral */
- return(success = 1); /* Pretend it worked */
- }
-#endif /* MAC */
-
-#ifndef NOXFER
- if (cx == XXSTA) { /* STATISTICS */
- if ((x = cmkey(stattab,2,"Carriage return, or option",
- "/brief",xxstring)) < 0)
- return(x);
- if ((y = cmcfm()) < 0) return(y);
- return(success = dostat(x));
- }
-#endif /* NOXFER */
-
- if (cx == XXSTO || cx == XXEND) { /* STOP, END, or POP */
- if ((y = cmnum("exit status code","0",10,&x,xxstring)) < 0)
- return(y);
- if ((y = cmtxt("Message to print","",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- if (*s) printf("%s\n",s);
- if (cx == XXSTO) {
- dostop();
- } else {
- doend(x);
- }
- return(success = (x == 0));
- }
- if (cx == XXSUS) { /* SUSPEND */
- if ((y = cmcfm()) < 0) return(y);
-#ifdef NOJC
- printf("Sorry, this version of Kermit cannot be suspended\n");
-#else
-#ifdef IKSD
- if (inserver) {
- printf("?Sorry, IKSD can not be suspended\n");
- return(-9);
- } else
-#endif /* IKSD */
- if (nopush) {
- printf("?Sorry, access to system is disabled\n");
- return(-9);
- }
- stptrap(0);
-#endif /* NOJC */
- return(0);
- }
-
- if (cx == XXTAK) { /* TAKE */
- char * scriptenv = NULL;
-#ifdef OS2
- char * GetAppData(int);
- extern char startupdir[],exedir[],inidir[];
- char * keymapenv = NULL;
- char * appdata0 = NULL, *appdata1 = NULL;
- int xx;
-#define TAKEPATHLEN 4096
-#else /* OS2 */
-#define TAKEPATHLEN 1024
-#endif /* OS2 */
- char takepath[TAKEPATHLEN];
-
- if (tlevel >= MAXTAKE-1) {
- printf("?Take files nested too deeply\n");
- return(-9);
- }
-#ifdef OS2
-#ifdef NT
- scriptenv = getenv("K95SCRIPTS");
- keymapenv = getenv("K95KEYMAPS");
- makestr(&appdata0,(char *)GetAppData(0));
- makestr(&appdata1,(char *)GetAppData(1));
-#else /* NT */
- scriptenv = getenv("K2SCRIPTS");
- keymapenv = getenv("K2KEYMAPS");
-#endif /* NT */
-#endif /* OS2 */
-
- if (!scriptenv) /* Let this work for Unix etc too */
- scriptenv = getenv("CK_SCRIPTS"); /* Use this if defined */
-#ifndef OS2
- if (!scriptenv) /* Otherwise use home directory */
- scriptenv = homepath();
-#endif /* OS2 */
- if (!scriptenv)
- scriptenv = "";
- ckstrncpy(takepath,scriptenv,TAKEPATHLEN);
- debug(F110,"TAKE initial takepath",takepath,0);
-
-#ifdef OS2
- if (!keymapenv)
- keymapenv = getenv("CK_KEYMAPS");
- if (!keymapenv)
- keymapenv = "";
-
- ckstrncat(takepath,
- (scriptenv && scriptenv[strlen(scriptenv)-1]==';')?"":";",
- TAKEPATHLEN
- );
- ckstrncat(takepath,keymapenv?keymapenv:"",TAKEPATHLEN);
- ckstrncat(takepath,
- (keymapenv && keymapenv[strlen(keymapenv)-1]==';')?"":";",
- TAKEPATHLEN
- );
- ckstrncat(takepath,startupdir,TAKEPATHLEN);
- ckstrncat(takepath,";",TAKEPATHLEN);
- ckstrncat(takepath,startupdir,TAKEPATHLEN);
- ckstrncat(takepath,"SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,startupdir,TAKEPATHLEN);
- ckstrncat(takepath,"KEYMAPS/;",TAKEPATHLEN);
-
- ckstrncat(takepath,appdata1,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/;",TAKEPATHLEN);
- ckstrncat(takepath,appdata1,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,appdata1,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/KEYMAPS/;",TAKEPATHLEN);
-
- ckstrncat(takepath,appdata0,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/;",TAKEPATHLEN);
- ckstrncat(takepath,appdata0,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,appdata0,TAKEPATHLEN);
- ckstrncat(takepath,"Kermit 95/KEYMAPS/;",TAKEPATHLEN);
-
- ckstrncat(takepath,inidir,TAKEPATHLEN);
- ckstrncat(takepath,";",TAKEPATHLEN);
- ckstrncat(takepath,inidir,TAKEPATHLEN);
- ckstrncat(takepath,"SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,inidir,TAKEPATHLEN);
- ckstrncat(takepath,"KEYMAPS/;",TAKEPATHLEN);
-
- ckstrncat(takepath,zhome(),TAKEPATHLEN);
- ckstrncat(takepath,";",TAKEPATHLEN);
- ckstrncat(takepath,zhome(),TAKEPATHLEN);
- ckstrncat(takepath,"SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,zhome(),TAKEPATHLEN);
- ckstrncat(takepath,"KEYMAPS/;",TAKEPATHLEN);
-
- ckstrncat(takepath,exedir,TAKEPATHLEN);
- ckstrncat(takepath,";",TAKEPATHLEN);
- ckstrncat(takepath,exedir,TAKEPATHLEN);
- ckstrncat(takepath,"SCRIPTS/;",TAKEPATHLEN);
- ckstrncat(takepath,exedir,TAKEPATHLEN);
- ckstrncat(takepath,"KEYMAPS/;",TAKEPATHLEN);
-#endif /* OS2 */
- debug(F110,"TAKE final takepath",takepath,0);
-
- if ((y = cmifip("Commands from file",
- "",&s,&x,0,takepath,xxstring)) < 0) {
- if (y == -3) {
- printf("?A file name is required\n");
- return(-9);
- } else
- return(y);
- }
- if (x != 0) {
- printf("?Wildcards not allowed in command file name\n");
- return(-9);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- debug(F110,"TAKE file",s,0);
- if (isdir(s)) {
- printf("?Can't execute a directory - \"%s\"\n", s);
- return(-9);
- }
-#ifndef NOTAKEARGS
- {
- char * p;
- x = strlen(line);
- debug(F111,"TAKE args",line,x);
- p = line + x + 1;
- if ((y = cmtxt("Optional arguments","",&s,xxstring)) < 0)
- return(y);
- if (*s) { /* Args given? */
- ckstrncpy(p,s,LINBUFSIZ-x-1);
-#ifdef ZFNQFP
- zfnqfp(line,TMPBUFSIZ,tmpbuf);
- s = tmpbuf;
-#else
- s = line;
-#endif /* ZFNQFP */
- debug(F110,"TAKE filename",s,0);
- x = strlen(s);
- debug(F101,"TAKE new len",s,x);
-
-#ifdef COMMENT
-/*
- This was added in C-Kermit 7.0 to allow args to be passed from the TAKE
- command to the command file. But it overwrites the current argument vector,
- which is at best surprising, and at worst unsafe.
-*/
- addmac("%0",s); /* Define %0 = name of file */
- varnam[0] = '%';
- varnam[2] = '\0';
- debug(F110,"take arg 0",s,0);
- debug(F110,"take args",p,0);
- for (y = 1; y < 10; y++) { /* Clear current args %1..%9 */
- varnam[1] = (char) (y + '0');
- delmac(varnam,0);
- }
- xwords(p,MAXARGLIST,NULL,0); /* Assign new args */
- debug(F110,"take args",p,0);
-#else
-/*
- This method is used in 8.0. If the TAKE command includes arguments, we
- insert an intermediate temporary macro between the current level; we pass
- the arguments to the macro and then the macro TAKEs the command file.
- If the user Ctrl-C's out of the TAKE file, some temporary macro definitions
- and other small malloc'd bits might be left behind.
-*/
- {
- char * q = NULL;
- char * r = NULL;
- int k, m;
- m = maclvl;
- q = (char *)malloc(x+24);
- if (q) {
- r = (char *)malloc(x+24);
- if (r) {
- sprintf(q,"_file[%s](%d)",s,cmdlvl); /* safe */
- sprintf(r,"take %s",s); /* safe */
- k = addmac(q,r);
- if (k > -1) {
- dodo(k,p,0);
- while (maclvl > m) {
- sstate = (CHAR) parser(1);
- if (sstate) proto();
- }
- }
- k = delmac(q,0);
- free(q);
- free(r);
- return(success);
- }
- }
- }
- return(success = 0);
-#endif /* COMMENT */
- }
- }
-#else
- if ((y = cmcfm()) < 0) return(y);
-#endif /* NOTAKEARGS */
- return(success = dotake(line));
- }
-
-#ifndef NOLOCAL
-#ifdef OS2
- if (cx == XXVIEW) { /* VIEW Only Terminal mode */
- viewonly = TRUE;
- success = doconect(0, 0);
- viewonly = FALSE;
- return success;
- }
-#endif /* OS2 */
-
-#ifdef NETCONN
- if (cx == XXTEL || cx == XXIKSD) { /* TELNET */
- int x,z;
-#ifdef OS2
- if (!tcp_avail) {
- printf("?Sorry, either TCP/IP is not available on this system or\n\
-necessary DLLs did not load. Use SHOW NETWORK to check network status.\n");
- success = 0;
- return(-9);
- } else
-#endif /* OS2 */
- {
- x = nettype; /* Save net type in case of failure */
- z = ttnproto; /* Save protocol in case of failure */
- nettype = NET_TCPB;
- ttnproto = (cx == XXTEL) ? NP_TELNET : NP_KERMIT;
- if ((y = setlin(XYHOST,0,1)) <= 0) {
- nettype = x; /* Failed, restore net type. */
- ttnproto = z; /* and protocol */
- success = 0;
- }
- didsetlin++;
- }
- return(y);
- }
-
-#ifndef PTYORPIPE
-#ifdef NETCMD
-#define PTYORPIPE
-#else
-#ifdef NETPTY
-#define PTYORPIPE
-#endif /* NETPTY */
-#endif /* NETCMD */
-#endif /* PTYORPIPE */
-
-#ifdef PTYORPIPE
- if (cx == XXPIPE || cx == XXPTY) { /* PIPE or PTY */
- int x;
- extern int netsave;
- x = nettype; /* Save net type in case of failure */
- nettype = (cx == XXPIPE) ? NET_CMD : NET_PTY;
- if ((y = setlin(XYHOST,0,1)) < 0) {
- nettype = x; /* Failed, restore net type. */
- ttnproto = z; /* and protocol */
- success = 0;
- }
- didsetlin++;
- netsave = x;
- return(y);
- }
-#endif /* PTYORPIPE */
-
-#ifdef ANYSSH
- if (cx == XXSSH) { /* SSH (Secure Shell) */
- extern int netsave;
-#ifdef SSHBUILTIN
- int k, x, havehost = 0, trips = 0;
- int tmpver = -1, tmpxfw = -1;
-#ifndef SSHTEST
- extern int sl_ssh_xfw, sl_ssh_xfw_saved;
- extern int sl_ssh_ver, sl_ssh_ver_saved;
-#endif /* SSHTEST */
- extern int mdmtyp, mdmsav, cxtype, sl_uid_saved;
- extern char * slmsg;
- extern char uidbuf[], sl_uidbuf[];
- extern char pwbuf[], * g_pswd;
- extern int pwflg, pwcrypt, g_pflg, g_pcpt, nolocal;
- struct FDB sw, kw, fl;
-
- if (ssh_tmpstr)
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- makestr(&ssh_tmpuid,NULL);
- makestr(&ssh_tmpcmd,NULL);
- makestr(&ssh_tmpport,NULL);
-
- cmfdbi(&kw, /* 1st FDB - commands */
- _CMKEY, /* fcode */
- "host [ port ],\n or action", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nsshcmd, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 0 = keyword */
- xxstring, /* Processing function */
- sshkwtab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Host */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- x = cmfdb(&kw);
- if (x == -3) {
- printf("?ssh what?\n");
- return(-9);
- }
- if (x < 0)
- return(x);
- havehost = 0;
- if (cmresult.fcode == _CMFLD) {
- havehost = 1;
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Hostname */
- cmresult.nresult = XSSH_OPN;
- }
- switch (cmresult.nresult) { /* SSH keyword */
- case XSSH_OPN: /* SSH OPEN */
- if (!havehost) {
- if ((x = cmfld("Host","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- }
- /* Parse [ port ] [ switches ] */
- cmfdbi(&kw, /* Switches */
- _CMKEY,
- "Port number or service name,\nor switch",
- "",
- "",
- nsshopnsw,
- 4,
- xxstring,
- sshopnsw,
- &fl
- );
- cmfdbi(&fl, /* Port number or service name */
- _CMFLD,
- "",
- "",
- "",
- 0,
- 0,
- xxstring,
- NULL,
- NULL
- );
- trips = 0; /* Explained below */
- while (1) { /* Parse port and switches */
- x = cmfdb(&kw); /* Get a field */
- if (x == -3) /* User typed CR so quit from loop */
- break;
- if (x < 0) /* Other parse error, pass it back */
- return(x);
- switch (cmresult.fcode) { /* Field or Keyword? */
- case _CMFLD: /* Field */
- makestr(&ssh_tmpport,cmresult.sresult);
- break;
- case _CMKEY: /* Keyword */
- switch (cmresult.nresult) { /* Which one? */
- case SSHSW_USR: /* /USER: */
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((y = cmfld("Username","",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- makestr(&ssh_tmpuid,s);
- break;
- case SSHSW_PWD:
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- debok = 0;
- if ((x = cmfld("Password","",&s,xxstring)) < 0) {
- if (x == -3) {
- makestr(&ssh_tmpstr,"");
- } else {
- return(x);
- }
- } else {
- s = brstrip(s);
- if ((x = (int)strlen(s)) > PWBUFL) {
- makestr(&slmsg,"Internal error");
- printf("?Sorry, too long - max = %d\n",PWBUFL);
- return(-9);
- }
- makestr(&ssh_tmpstr,s);
- }
- break;
-
- case SSHSW_VER:
- if ((x = cmnum("Number","",10,&z,xxstring)) < 0)
- return(x);
- if (z < 1 || z > 2) {
- printf("?Out of range: %d\n",z);
- return(-9);
- }
- tmpver = z;
- break;
- case SSHSW_CMD:
- case SSHSW_SUB:
- if ((x = cmfld("Text","",&s,xxstring)) < 0)
- return(x);
- makestr(&ssh_tmpcmd,s);
- ssh_cas = (cmresult.nresult == SSHSW_SUB);
- break;
- case SSHSW_X11:
- if ((x = cmkey(onoff,2,"","on",xxstring)) < 0)
- return(x);
- tmpxfw = x;
- break;
- default:
- return(-2);
- }
- }
- if (trips++ == 0) { /* After first time through */
- cmfdbi(&kw, /* only parse switches, not port. */
- _CMKEY,
- "Switch",
- "",
- "",
- nsshopnsw,
- 4,
- xxstring,
- sshopnsw,
- NULL
- );
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (clskconnx(1) < 0) { /* Close current Kermit connection */
- if ( ssh_tmpstr ) {
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- }
- return(success = 0);
- }
- makestr(&ssh_hst,line); /* Stash everything */
- if (ssh_tmpuid) {
- if (!sl_uid_saved) {
- ckstrncpy(sl_uidbuf,uidbuf,UIDBUFLEN);
- sl_uid_saved = 1;
- }
- ckstrncpy(uidbuf,ssh_tmpuid,UIDBUFLEN);
- makestr(&ssh_tmpuid,NULL);
- }
- if (ssh_tmpport) {
- makestr(&ssh_prt,ssh_tmpport);
- makestr(&ssh_tmpport,NULL);
- } else
- makestr(&ssh_prt,NULL);
-
- if (ssh_tmpcmd) {
- makestr(&ssh_cmd,brstrip(ssh_tmpcmd));
- makestr(&ssh_tmpcmd,NULL);
- } else
- makestr(&ssh_cmd,NULL);
-
- if (tmpver > -1) {
-#ifndef SSHTEST
- if (!sl_ssh_ver_saved) {
- sl_ssh_ver = ssh_ver;
- sl_ssh_ver_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_ver = tmpver;
- }
- if (tmpxfw > -1) {
-#ifndef SSHTEST
- if (!sl_ssh_xfw_saved) {
- sl_ssh_xfw = ssh_xfw;
- sl_ssh_xfw_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_xfw = tmpxfw;
- }
- if (ssh_tmpstr) {
- if (ssh_tmpstr[0]) {
- ckstrncpy(pwbuf,ssh_tmpstr,PWBUFL+1);
- pwflg = 1;
- pwcrypt = 0;
- } else
- pwflg = 0;
- makestr(&ssh_tmpstr,NULL);
- }
- nettype = NET_SSH;
- if (mdmsav < 0)
- mdmsav = mdmtyp;
- mdmtyp = -nettype;
- x = 1;
-
-#ifndef NOSPL
- makestr(&g_pswd,pwbuf); /* Save global pwbuf */
- g_pflg = pwflg; /* and flag */
- g_pcpt = pwcrypt;
-#endif /* NOSPL */
-
- /* Line parameter to ttopen() is ignored */
- k = ttopen(line,&x,mdmtyp, 0);
- if (k < 0) {
- printf("?Unable to connect to %s\n",ssh_hst);
- mdmtyp = mdmsav;
- slrestor();
- return(success = 0);
- }
- duplex = 0; /* Remote echo */
- ckstrncpy(ttname,line,TTNAMLEN); /* Record the command */
- debug(F110,"ssh ttname",ttname,0);
- makestr(&slmsg,NULL); /* No SET LINE error message */
- cxtype = CXT_SSH;
-#ifndef NODIAL
- dialsta = DIA_UNK;
-#endif /* NODIAL */
- success = 1; /* SET LINE succeeded */
- network = 1; /* Network connection (not serial) */
- local = 1; /* Local mode (not remote) */
- if ((reliable != SET_OFF || !setreliable))
- reliable = SET_ON; /* Transport is reliable end to end */
-#ifdef OS2
- DialerSend(OPT_KERMIT_CONNECT, 0);
-#endif /* OS2 */
- setflow(); /* Set appropriate flow control */
-
- haveline = 1;
-#ifdef CKLOGDIAL
-#ifdef NETCONN
- dolognet();
-#endif /* NETCONN */
-#endif /* CKLOGDIAL */
-
-#ifndef NOSPL
- if (local) {
- if (nmac) { /* Any macros defined? */
- int k; /* Yes */
- k = mlook(mactab,"on_open",nmac); /* Look this up */
- if (k >= 0) { /* If found, */
- if (dodo(k,ssh_hst,0) > -1) /* set it up, */
- parser(1); /* and execute it */
- }
- }
- }
-#endif /* NOSPL */
-#ifdef LOCUS
- if (autolocus)
- setlocus(1,1);
-#endif /* LOCUS */
-
- /* Command was confirmed so we can pre-pop command level. */
- /* This is so CONNECT module won't think we're executing a */
- /* script if CONNECT was the final command in the script. */
- if (cmdlvl > 0)
- prepop();
- success = doconect(0,cmdlvl == 0 ? 1 : 0);
- if (ttchk() < 0)
- dologend();
- return(success);
-
- case XSSH_CLR:
- if ((y = cmkey(sshclr,nsshclr,"","", xxstring)) < 0) {
- if (y == -3) {
- printf("?clear what?\n");
- return(-9);
- }
- return(y);
- }
- if ((x = cmcfm()) < 0)
- return(x);
- switch (y) {
- case SSHC_LPF:
- ssh_pf_lcl_n = 0;
- break;
- case SSHC_RPF:
- ssh_pf_rmt_n = 0;
- break;
- default:
- return(-2);
- }
- return(success = 1); /* or whatever */
-
- case XSSH_AGT: { /* SSH AGENT */
- int doeach = 0;
- if ((y = cmkey(sshagent,nsshagent,"","",xxstring)) < 0)
- return(y);
- switch (y) {
- case SSHA_ADD: /* SSH AGENT ADD ... */
- if ((x = cmifi("Identity file","",&s,&y,xxstring)) < 0) {
-#ifndef SSHTEST
- if (x == -3) /* No name given */
- doeach = 1; /* so do them all */
- else
-#endif /* SSHTEST */
- return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- if ((x = cmcfm()) < 0)
- return(x);
-#ifdef SSHTEST
- x = 0;
-#else
- if (doeach) {
- int i;
- x = 0;
- for (i = 0; i < ssh_idf_n; i++)
- x += ssh_agent_add_file(ssh_idf[i]);
- } else
- x = ssh_agent_add_file(line);
-#endif /* SSHTEST */
- return(success = (x == 0));
-
- case SSHA_DEL: { /* SSH AGENT DELETE ... */
- int doall = 0;
- if ((x = cmifi("Identity file","",&s,&y,xxstring)) < 0) {
-#ifndef SSHTEST
- if (x == -3) /* No name given */
- doall = 1; /* so do them all */
- else
-#endif /* SSHTEST */
- return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- if ((x = cmcfm()) < 0)
- return(x);
-#ifdef SSHTEST
- x = 0;
-#else
- if (doall)
- x = ssh_agent_delete_all();
- else
- x = ssh_agent_delete_file(line);
-#endif /* SSHTEST */
- return(success = (x == 0));
- }
- case SSHA_LST: {
- int fingerprint = 0;
- if ((y = cmswi(sshagtsw,nsshagtsw,"","",xxstring)) < 0) {
- if (y != -3)
- return(y);
- } else if (cmgbrk() > SP) {
- printf("?This switch does not take an argument\n");
- return(-9);
- } else if (y == SSHASW_FP) {
- fingerprint = 1;
- }
- if ((x = cmcfm()) < 0)
- return(x);
-#ifdef SSHTEST
- return(success = 1);
-#else
- return(success =
- (ssh_agent_list_identities(fingerprint) == 0));
-#endif /* SSHTEST */
- }
- default:
- return(-2);
- }
- }
- case XSSH_ADD: { /* SSH ADD */
- /* ssh add { local, remote } port host port */
- int cx, i, j, k;
- char * h;
- if ((cx = cmkey(addfwd,naddfwd,"","", xxstring)) < 0)
- return(cx);
- if ((x = cmnum((cx == SSHF_LCL) ?
- "Local port number" : "Remote port number",
- "",10,&j,xxstring)) < 0)
- return(x);
- if ((x = cmfld("Host","",&s,xxstring)) < 0)
- return(x);
- makestr(&h,s);
- if ((x = cmnum("Port","",10,&k,xxstring)) < 0)
- return(x);
- if ((x = cmcfm()) < 0)
- return(x);
-
- switch(cx) {
- case SSHF_LCL:
- if (ssh_pf_lcl_n == 32) {
- printf(
-"?Maximum number of local port forwardings already specified\n"
- );
- free(h);
- return(success = 0);
- }
- ssh_pf_lcl[ssh_pf_lcl_n].p1 = j;
- makestr(&(ssh_pf_lcl[ssh_pf_lcl_n].host),h);
- makestr(&h,NULL);
- ssh_pf_lcl[ssh_pf_lcl_n].p2 = k;
- ssh_pf_lcl_n++;
- break;
- case SSHF_RMT:
- if (ssh_pf_rmt_n == 32) {
- printf(
-"?Maximum number of remote port forwardings already specified\n"
- );
- free(h);
- return(success = 0);
- }
- ssh_pf_rmt[ssh_pf_rmt_n].p1 = j;
- makestr(&(ssh_pf_rmt[ssh_pf_rmt_n].host),h);
- makestr(&h,NULL);
- ssh_pf_rmt[ssh_pf_rmt_n].p2 = k;
- ssh_pf_rmt_n++;
- }
- return(success = 1);
- }
- /* Not supporting arbitrary forwarding yet */
- case XSSH_FLP: /* SSH FORWARD-LOCAL-PORT */
- case XSSH_FRP: { /* SSH FORWARD-REMOTE-PORT */
- int li_port = 0;
- int to_port = 0;
- char * fw_host = NULL;
- int n;
- if ((x = cmnum(cmresult.nresult == XSSH_FLP ?
- "local-port":"remote-port",
- "",10,&li_port,xxstring)) < 0)
- return(x);
- if (li_port < 1 || li_port > 65535) {
- printf("?Out range - min: 1, max: 65535\n");
- return(-9);
- }
- if ((x = cmfld("host",ssh_hst?ssh_hst:"",&s,xxstring)) < 0)
- return(x);
- n = ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- fw_host = tmpbuf;
- if ((x = cmnum("host-port",ckuitoa(li_port),10,
- &to_port,xxstring)) < 0)
- return(x);
- if (to_port < 1 || to_port > 65535) {
- printf("?Out range - min: 1, max: 65535\n");
- return(-9);
- }
- if ((x = cmcfm()) < 0)
- return(x);
- switch (cmresult.nresult) {
- case XSSH_FLP: /* SSH FORWARD-LOCAL-PORT */
-#ifndef SSHTEST
- ssh_fwd_local_port(li_port,fw_host,to_port);
-#endif /* SSHTEST */
- return(success = 1);
- case XSSH_FRP: /* SSH FORWARD-REMOTE-PORT */
-#ifndef SSHTEST
- ssh_fwd_remote_port(li_port,fw_host,to_port);
-#endif /* SSHTEST */
- return(success = 1);
- }
- return(success = 1);
- }
- case XSSH_V2: /* SSH V2 */
- if ((cx = cmkey(ssh2tab,nssh2tab,"","", xxstring)) < 0)
- return(cx);
- switch (cx) {
- case XSSH2_RKE:
- if ((x = cmcfm()) < 0)
- return(x);
-#ifndef SSHTEST
- ssh_v2_rekey();
-#endif /* SSHTEST */
- return(success = 1);
- default:
- return(-2);
- }
- case XSSH_KEY:
- if ((cx = cmkey(sshkey,nsshkey,"","", xxstring)) < 0)
- return(cx);
- switch (cx) {
- case SSHK_PASS: { /* Change passphrase */
- char * oldp = NULL, * newp = NULL;
- struct FDB df, sw;
- cmfdbi(&sw,
- _CMKEY, /* fcode */
- "Filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 2, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- sshkpsw, /* Keyword table */
- &df /* Pointer to next FDB */
- );
- cmfdbi(&df, /* 2nd FDB - file for display */
- _CMIFI, /* output file */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- line[0] = NUL;
-
- while (1) {
- x = cmfdb(&sw);
- if (x == -3) break;
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY)
- break;
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((y = cmfld("Passphrase","",&s,xxstring)) < 0)
- return(y);
- switch (cmresult.nresult) {
- case 1: /* Old */
- makestr(&oldp,s);
- break;
- case 2: /* New */
- makestr(&newp,s);
- }
- }
- if (cmresult.fcode == _CMIFI) { /* Filename */
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- if (zfnqfp(line,TMPBUFSIZ,tmpbuf))
- ckstrncpy(line,tmpbuf,LINBUFSIZ);
- }
- if ((x = cmcfm()) < 0) return(x);
-
-#ifndef SSHTEST
- x = sshkey_change_passphrase(line[0] ? line : NULL,
- oldp, newp);
-#endif /* SSHTEST */
- makestr(&oldp,NULL);
- makestr(&newp,NULL);
- success = (x == 0);
- return(success);
- }
- case SSHK_CREA: { /* SSH KEY CREATE /switches... */
- int bits = 1024, keytype = SSHKT_2R;
- char * pass = NULL, * comment = NULL;
- struct FDB df, sw;
-
- /*
- * char * sshkey_default_file(int keytype)
- * will provide the default filename for a given keytype
- * is it possible to have the default value for the 2nd
- * FDB set and changed when a /TYPE switch is provided?
- * Would this allow for tab completion of the filename?
- */
- cmfdbi(&sw,
- _CMKEY, /* fcode */
- "Filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nsshkcrea, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- sshkcrea, /* Keyword table */
- &df /* Pointer to next FDB */
- );
- cmfdbi(&df, /* 2nd FDB - file for display */
- _CMOFI, /* output file */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- line[0] = NUL;
-
- while (1) {
- x = cmfdb(&sw);
- if (x == -3) break;
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY)
- break;
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case SSHKC_BI: /* /BITS:n */
- if ((y = cmnum("","1024",10,&z,xxstring)) < 0)
- return(y);
- if (z < 512 || z > 4096) {
- printf("?Out range - min: 512, max: 4096\n");
- return(-9);
- }
- bits = z;
- break;
- case SSHKC_PP: /* /PASSPHRASE:blah */
- if ((y = cmfld("Passphrase","",&s,xxstring)) < 0)
- return(y);
- makestr(&pass,s);
- break;
- case SSHKC_TY: /* /TYPE:keyword */
- if ((y = cmkey(sshkcty,nsshkcty,"",
- "v2-rsa",xxstring)) < 0)
- return(y);
- keytype = y;
- break;
- case SSHKC_1R: /* /COMMENT */
- if ((y = cmfld("Text","",&s,xxstring)) < 0)
- return(y);
- makestr(&comment,s);
- break;
- }
- }
- if (cmresult.fcode == _CMOFI) { /* Filename */
- if (cmresult.sresult) {
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- if (zfnqfp(line,TMPBUFSIZ,tmpbuf))
- ckstrncpy(line,tmpbuf,LINBUFSIZ);
- }
- }
- if ((y = cmcfm()) < 0) /* Confirm */
- return(y);
-#ifndef SSHTEST
- x = sshkey_create(line[0] ? line : NULL,
- bits, pass, keytype, comment);
- if (pass)
- memset(pass,0,strlen(pass));
-#endif /* SSHTEST */
- makestr(&pass,NULL);
- makestr(&comment,NULL);
- return(success = (x == 0));
- }
- case SSHK_DISP: { /* SSH KEY DISPLAY /switches... */
- char c;
- int infmt = 0, outfmt = 0;
- struct FDB df, sw;
- cmfdbi(&sw,
- _CMKEY, /* fcode */
- "Filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nsshdswi, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- sshdswi, /* Keyword table */
- &df /* Pointer to next FDB */
- );
- cmfdbi(&df, /* 2nd FDB - file for display */
- _CMIFI, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
- line[0] = NUL;
-
- while (1) {
- x = cmfdb(&sw);
- if (x == -3) break;
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY)
- break;
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
-#ifdef COMMENT
- case SSHKD_IN: /* /IN-FORMAT: */
- if ((y = cmkey(sshdifmt,nsshdifmt,
- "","",xxstring)) < 0)
- return(y);
- infmt = y;
- break;
-#endif /* COMMENT */
- case SSHKD_OUT: /* /FORMAT: */
- if ((y = cmkey(sshdofmt,nsshdofmt,
- "","",xxstring)) < 0)
- return(y);
- outfmt = y;
- break;
- }
- }
- if (cmresult.fcode == _CMIFI) { /* Filename */
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- if (zfnqfp(line,TMPBUFSIZ,tmpbuf))
- ckstrncpy(line,tmpbuf,LINBUFSIZ);
- }
-#ifdef COMMENT
- if (!line[0]) {
- printf("?Key filename required\n");
- return(-9);
- }
-#endif /* COMMENT */
- if ((y = cmcfm()) < 0) /* Confirm */
- return(y);
-#ifndef SSHTEST
- switch (outfmt) {
- case SKDF_OSSH:
- /* 2nd param is optional passphrase */
- x = sshkey_display_public(line[0] ? line : NULL, NULL);
- break;
- case SKDF_SSHC:
- /* 2nd param is optional passphrase */
- x = sshkey_display_public_as_ssh2(line[0] ? line : NULL,
- NULL);
- break;
- case SKDF_IETF:
- x = sshkey_display_fingerprint(line[0] ? line : NULL, 1);
- break;
- case SKDF_FING:
- x = sshkey_display_fingerprint(line[0] ? line : NULL, 0);
- break;
- }
-#endif /* SSHTEST */
- return(success = (x == 0));
- }
- case SSHK_V1: /* SSH KEY V1 SET-COMMENT */
- if ((x = cmkey(sshkv1,1,"","set-comment", xxstring)) < 0)
- return(x);
- if (x != 1) return(-2);
- if ((x = cmifi("Key file name","",&s,&y,xxstring)) < 0) {
- if (x == -3) {
- printf("?Name of key file required\n");
- return(-9);
- }
- }
- ckstrncpy(line,s,LINBUFSIZ);
- if ((x = cmtxt("Comment text","",&s,xxstring)) < 0)
- return(x);
-#ifndef SSHTEST
- x = sshkey_v1_change_comment(line, /* filename */
- s, /* new comment */
- NULL /* passphrase */
- );
-#endif /* SSHTEST */
- success = (x == 0);
- return(success);
- }
- default:
- return(-2);
- }
-#else /* SSHBUILTIN */
-#ifdef SSHCMD
- x = nettype;
- if ((y = setlin(XXSSH,0,1)) < 0) {
- if (errno)
- printf("?%s\n",ck_errstr());
- else
-#ifdef COMMENT
- /* This isn't right either because it catches command editing */
- printf("?Sorry, pseudoterminal open failed\n");
- if (hints)
- printf("Hint: Try \"ssh -t %s\"\n",line);
-#else
- return(y);
-#endif /* COMMENT */
- nettype = x; /* Failed, restore net type. */
- ttnproto = z; /* and protocol */
- success = 0;
- }
- didsetlin++;
- netsave = x;
- return(y);
-#endif /* SSHCMD */
-#endif /* SSHBUILTIN */
- }
-#endif /* ANYSSH */
-
-#ifdef SSHBUILTIN
- if (cx == XXSKRM) { /* SKERMIT (Secure Shell Kermit) */
- extern int netsave;
- int k, x, havehost = 0, trips = 0;
- int tmpver = -1, tmpxfw = -1;
-#ifndef SSHTEST
- extern int sl_ssh_xfw, sl_ssh_xfw_saved;
- extern int sl_ssh_ver, sl_ssh_ver_saved;
-#endif /* SSHTEST */
- extern int mdmtyp, mdmsav, cxtype, sl_uid_saved;
- extern char * slmsg;
- extern char uidbuf[], sl_uidbuf[];
- extern char pwbuf[], * g_pswd;
- extern int pwflg, pwcrypt, g_pflg, g_pcpt, nolocal;
- struct FDB sw, kw, fl;
-
- if (ssh_tmpstr)
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- makestr(&ssh_tmpuid,NULL);
- makestr(&ssh_tmpcmd,NULL);
- makestr(&ssh_tmpport,NULL);
-
- cmfdbi(&kw, /* 1st FDB - commands */
- _CMKEY, /* fcode */
- "host [ port ],\n or action", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nsshkermit, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 0 = keyword */
- xxstring, /* Processing function */
- sshkermit, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Host */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- x = cmfdb(&kw);
- if (x == -3) {
- printf("?skermit what?\n");
- return(-9);
- }
- if (x < 0)
- return(x);
- havehost = 0;
- if (cmresult.fcode == _CMFLD) {
- havehost = 1;
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Hostname */
- cmresult.nresult = SKRM_OPN;
- }
- switch (cmresult.nresult) { /* SSH keyword */
- case SKRM_OPN: /* SSH OPEN */
- if (!havehost) {
- if ((x = cmfld("Host","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- }
- /* Parse [ port ] [ switches ] */
- cmfdbi(&kw, /* Switches */
- _CMKEY,
- "Port number or service name,\nor switch",
- "",
- "",
- nsshkrmopnsw,
- 4,
- xxstring,
- sshkrmopnsw,
- &fl
- );
- cmfdbi(&fl, /* Port number or service name */
- _CMFLD,
- "",
- "",
- "",
- 0,
- 0,
- xxstring,
- NULL,
- NULL
- );
- trips = 0; /* Explained below */
- while (1) { /* Parse port and switches */
- x = cmfdb(&kw); /* Get a field */
- if (x == -3) /* User typed CR so quit from loop */
- break;
- if (x < 0) /* Other parse error, pass it back */
- return(x);
- switch (cmresult.fcode) { /* Field or Keyword? */
- case _CMFLD: /* Field */
- makestr(&ssh_tmpport,cmresult.sresult);
- break;
- case _CMKEY: /* Keyword */
- switch (cmresult.nresult) { /* Which one? */
- case SSHSW_USR: /* /USER: */
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((y = cmfld("Username","",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- makestr(&ssh_tmpuid,s);
- break;
- case SSHSW_PWD:
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- debok = 0;
- if ((x = cmfld("Password","",&s,xxstring)) < 0) {
- if (x == -3) {
- makestr(&ssh_tmpstr,"");
- } else {
- return(x);
- }
- } else {
- s = brstrip(s);
- if ((x = (int)strlen(s)) > PWBUFL) {
- makestr(&slmsg,"Internal error");
- printf("?Sorry, too long - max = %d\n",PWBUFL);
- return(-9);
- }
- makestr(&ssh_tmpstr,s);
- }
- break;
-
- case SSHSW_VER:
- if ((x = cmnum("Number","",10,&z,xxstring)) < 0)
- return(x);
- if (z < 1 || z > 2) {
- printf("?Out of range: %d\n",z);
- return(-9);
- }
- tmpver = z;
- break;
- default:
- return(-2);
- }
- }
- if (trips++ == 0) { /* After first time through */
- cmfdbi(&kw, /* only parse switches, not port. */
- _CMKEY,
- "Switch",
- "",
- "",
- nsshkrmopnsw,
- 4,
- xxstring,
- sshkrmopnsw,
- NULL
- );
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (clskconnx(1) < 0) { /* Close current Kermit connection */
- if ( ssh_tmpstr ) {
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- }
- return(success = 0);
- }
- makestr(&ssh_hst,line); /* Stash everything */
- if (ssh_tmpuid) {
- if (!sl_uid_saved) {
- ckstrncpy(sl_uidbuf,uidbuf,UIDBUFLEN);
- sl_uid_saved = 1;
- }
- ckstrncpy(uidbuf,ssh_tmpuid,UIDBUFLEN);
- makestr(&ssh_tmpuid,NULL);
- }
- if (ssh_tmpport) {
- makestr(&ssh_prt,ssh_tmpport);
- makestr(&ssh_tmpport,NULL);
- } else
- makestr(&ssh_prt,NULL);
-
- /* Set the Subsystem to Kermit */
- ssh_cas = 1;
- makestr(&ssh_cmd,"kermit");
-
- if (tmpver > -1) {
-#ifndef SSHTEST
- if (!sl_ssh_ver_saved) {
- sl_ssh_ver = ssh_ver;
- sl_ssh_ver_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_ver = tmpver;
- }
- /* Disable X11 Forwarding */
-#ifndef SSHTEST
- if (!sl_ssh_xfw_saved) {
- sl_ssh_xfw = ssh_xfw;
- sl_ssh_xfw_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_xfw = 0;
-
- if (ssh_tmpstr) {
- if (ssh_tmpstr[0]) {
- ckstrncpy(pwbuf,ssh_tmpstr,PWBUFL+1);
- pwflg = 1;
- pwcrypt = 0;
- } else
- pwflg = 0;
- makestr(&ssh_tmpstr,NULL);
- }
- nettype = NET_SSH;
- if (mdmsav < 0)
- mdmsav = mdmtyp;
- mdmtyp = -nettype;
- x = 1;
-
-#ifndef NOSPL
- makestr(&g_pswd,pwbuf); /* Save global pwbuf */
- g_pflg = pwflg; /* and flag */
- g_pcpt = pwcrypt;
-#endif /* NOSPL */
-
- /* Line parameter to ttopen() is ignored */
- k = ttopen(line,&x,mdmtyp, 0);
- if (k < 0) {
- printf("?Unable to connect to %s\n",ssh_hst);
- mdmtyp = mdmsav;
- slrestor();
- return(success = 0);
- }
- duplex = 0; /* Remote echo */
- ckstrncpy(ttname,line,TTNAMLEN); /* Record the command */
- debug(F110,"ssh ttname",ttname,0);
- makestr(&slmsg,NULL); /* No SET LINE error message */
- cxtype = CXT_SSH;
-#ifndef NODIAL
- dialsta = DIA_UNK;
-#endif /* NODIAL */
- success = 1; /* SET LINE succeeded */
- network = 1; /* Network connection (not serial) */
- local = 1; /* Local mode (not remote) */
- if ((reliable != SET_OFF || !setreliable))
- reliable = SET_ON; /* Transport is reliable end to end */
-#ifdef OS2
- DialerSend(OPT_KERMIT_CONNECT, 0);
-#endif /* OS2 */
- setflow(); /* Set appropriate flow control */
-
- haveline = 1;
-#ifdef CKLOGDIAL
-#ifdef NETCONN
- dolognet();
-#endif /* NETCONN */
-#endif /* CKLOGDIAL */
-
-#ifndef NOSPL
- if (local) {
- if (nmac) { /* Any macros defined? */
- int k; /* Yes */
- k = mlook(mactab,"on_open",nmac); /* Look this up */
- if (k >= 0) { /* If found, */
- if (dodo(k,ssh_hst,0) > -1) /* set it up, */
- parser(1); /* and execute it */
- }
- }
- }
-#endif /* NOSPL */
-#ifdef LOCUS
- if (autolocus)
- setlocus(1,1);
-#endif /* LOCUS */
-
- /* Command was confirmed so we can pre-pop command level. */
- /* This is so CONNECT module won't think we're executing a */
- /* script if CONNECT was the final command in the script. */
- if (cmdlvl > 0)
- prepop();
- return(success = 1);
-
- default:
- return(-2);
- }
- }
-#endif /* SSHBUILTIN */
-
-#ifdef SFTP_BUILTIN
- if (cx == XXSFTP) { /* SFTP (Secure Shell File Transfer) */
- extern int netsave;
- int k, x, havehost = 0, trips = 0;
- int tmpver = -1, tmpxfw = -1;
-#ifndef SSHTEST
- extern int sl_ssh_xfw, sl_ssh_xfw_saved;
- extern int sl_ssh_ver, sl_ssh_ver_saved;
-#endif /* SSHTEST */
- extern int mdmtyp, mdmsav, cxtype, sl_uid_saved;
- extern char * slmsg;
- extern char uidbuf[], sl_uidbuf[];
- extern char pwbuf[], * g_pswd;
- extern int pwflg, pwcrypt, g_pflg, g_pcpt, nolocal;
- struct FDB sw, kw, fl;
-
- if (ssh_tmpstr)
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- makestr(&ssh_tmpuid,NULL);
- makestr(&ssh_tmpcmd,NULL);
- makestr(&ssh_tmpport,NULL);
-
- cmfdbi(&kw, /* 1st FDB - commands */
- _CMKEY, /* fcode */
- "host [ port ],\n or action", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nsftpkwtab, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 0 = keyword */
- xxstring, /* Processing function */
- sftpkwtab, /* Keyword table */
- &fl /* Pointer to next FDB */
- );
- cmfdbi(&fl, /* Host */
- _CMFLD, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- x = cmfdb(&kw);
- if (x == -3) {
- printf("?sftp what?\n");
- return(-9);
- }
- if (x < 0)
- return(x);
- havehost = 0;
- if (cmresult.fcode == _CMFLD) {
- havehost = 1;
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Hostname */
- cmresult.nresult = SFTP_OPN;
- }
- switch (cmresult.nresult) { /* SFTP keyword */
- case SFTP_OPN: /* SFTP OPEN */
- if (!havehost) {
- if ((x = cmfld("Host","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- }
- /* Parse [ port ] [ switches ] */
- cmfdbi(&kw, /* Switches */
- _CMKEY,
- "Port number or service name,\nor switch",
- "",
- "",
- nsshkrmopnsw,
- 4,
- xxstring,
- sshkrmopnsw,
- &fl
- );
- cmfdbi(&fl, /* Port number or service name */
- _CMFLD,
- "",
- "",
- "",
- 0,
- 0,
- xxstring,
- NULL,
- NULL
- );
- trips = 0; /* Explained below */
- while (1) { /* Parse port and switches */
- x = cmfdb(&kw); /* Get a field */
- if (x == -3) /* User typed CR so quit from loop */
- break;
- if (x < 0) /* Other parse error, pass it back */
- return(x);
- switch (cmresult.fcode) { /* Field or Keyword? */
- case _CMFLD: /* Field */
- makestr(&ssh_tmpport,cmresult.sresult);
- break;
- case _CMKEY: /* Keyword */
- switch (cmresult.nresult) { /* Which one? */
- case SSHSW_USR: /* /USER: */
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((y = cmfld("Username","",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- makestr(&ssh_tmpuid,s);
- break;
- case SSHSW_PWD:
- if (!cmgbrk()) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- debok = 0;
- if ((x = cmfld("Password","",&s,xxstring)) < 0) {
- if (x == -3) {
- makestr(&ssh_tmpstr,"");
- } else {
- return(x);
- }
- } else {
- s = brstrip(s);
- if ((x = (int)strlen(s)) > PWBUFL) {
- makestr(&slmsg,"Internal error");
- printf("?Sorry, too long - max = %d\n",PWBUFL);
- return(-9);
- }
- makestr(&ssh_tmpstr,s);
- }
- break;
-
- case SSHSW_VER:
- if ((x = cmnum("Number","",10,&z,xxstring)) < 0)
- return(x);
- if (z < 1 || z > 2) {
- printf("?Out of range: %d\n",z);
- return(-9);
- }
- tmpver = z;
- break;
- default:
- return(-2);
- }
- }
- if (trips++ == 0) { /* After first time through */
- cmfdbi(&kw, /* only parse switches, not port. */
- _CMKEY,
- "Switch",
- "",
- "",
- nsshkrmopnsw,
- 4,
- xxstring,
- sshkrmopnsw,
- NULL
- );
- }
- }
- if ((x = cmcfm()) < 0) /* Get confirmation */
- return(x);
- if (clskconnx(1) < 0) { /* Close current Kermit connection */
- if ( ssh_tmpstr ) {
- memset(ssh_tmpstr,0,strlen(ssh_tmpstr));
- makestr(&ssh_tmpstr,NULL);
- }
- return(success = 0);
- }
- makestr(&ssh_hst,line); /* Stash everything */
- if (ssh_tmpuid) {
- if (!sl_uid_saved) {
- ckstrncpy(sl_uidbuf,uidbuf,UIDBUFLEN);
- sl_uid_saved = 1;
- }
- ckstrncpy(uidbuf,ssh_tmpuid,UIDBUFLEN);
- makestr(&ssh_tmpuid,NULL);
- }
- if (ssh_tmpport) {
- makestr(&ssh_prt,ssh_tmpport);
- makestr(&ssh_tmpport,NULL);
- } else
- makestr(&ssh_prt,NULL);
-
- /* Set the Subsystem to Kermit */
- ssh_cas = 1;
- makestr(&ssh_cmd,"sftp");
-
- if (tmpver > -1) {
-#ifndef SSHTEST
- if (!sl_ssh_ver_saved) {
- sl_ssh_ver = ssh_ver;
- sl_ssh_ver_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_ver = tmpver;
- }
- /* Disable X11 Forwarding */
-#ifndef SSHTEST
- if (!sl_ssh_xfw_saved) {
- sl_ssh_xfw = ssh_xfw;
- sl_ssh_xfw_saved = 1;
- }
-#endif /* SSHTEST */
- ssh_xfw = 0;
-
- if (ssh_tmpstr) {
- if (ssh_tmpstr[0]) {
- ckstrncpy(pwbuf,ssh_tmpstr,PWBUFL+1);
- pwflg = 1;
- pwcrypt = 0;
- } else
- pwflg = 0;
- makestr(&ssh_tmpstr,NULL);
- }
- nettype = NET_SSH;
- if (mdmsav < 0)
- mdmsav = mdmtyp;
- mdmtyp = -nettype;
- x = 1;
-
-#ifndef NOSPL
- makestr(&g_pswd,pwbuf); /* Save global pwbuf */
- g_pflg = pwflg; /* and flag */
- g_pcpt = pwcrypt;
-#endif /* NOSPL */
-
- /* Line parameter to ttopen() is ignored */
- k = ttopen(line,&x,mdmtyp, 0);
- if (k < 0) {
- printf("?Unable to connect to %s\n",ssh_hst);
- mdmtyp = mdmsav;
- slrestor();
- return(success = 0);
- }
- duplex = 0; /* Remote echo */
- ckstrncpy(ttname,line,TTNAMLEN); /* Record the command */
- debug(F110,"ssh ttname",ttname,0);
- makestr(&slmsg,NULL); /* No SET LINE error message */
- cxtype = CXT_SSH;
-#ifndef NODIAL
- dialsta = DIA_UNK;
-#endif /* NODIAL */
- success = 1; /* SET LINE succeeded */
- network = 1; /* Network connection (not serial) */
- local = 1; /* Local mode (not remote) */
- if ((reliable != SET_OFF || !setreliable))
- reliable = SET_ON; /* Transport is reliable end to end */
-#ifdef OS2
- DialerSend(OPT_KERMIT_CONNECT, 0);
-#endif /* OS2 */
- setflow(); /* Set appropriate flow control */
-
- haveline = 1;
-#ifdef CKLOGDIAL
-#ifdef NETCONN
- dolognet();
-#endif /* NETCONN */
-#endif /* CKLOGDIAL */
-
-#ifndef NOSPL
- if (local) {
- if (nmac) { /* Any macros defined? */
- int k; /* Yes */
- k = mlook(mactab,"on_open",nmac); /* Look this up */
- if (k >= 0) { /* If found, */
- if (dodo(k,ssh_hst,0) > -1) /* set it up, */
- parser(1); /* and execute it */
- }
- }
- }
-#endif /* NOSPL */
-#ifdef LOCUS
- if (autolocus)
- setlocus(1,1);
-#endif /* LOCUS */
-
- /* Command was confirmed so we can pre-pop command level. */
- /* This is so CONNECT module won't think we're executing a */
- /* script if CONNECT was the final command in the script. */
- if (cmdlvl > 0)
- prepop();
-
- success = sftp_do_init();
- return(success = 1);
-
- case SFTP_CD:
- case SFTP_CHGRP:
- case SFTP_CHMOD:
- case SFTP_CHOWN:
- case SFTP_RM:
- case SFTP_DIR:
- case SFTP_GET:
- case SFTP_MKDIR:
- case SFTP_PUT:
- case SFTP_PWD:
- case SFTP_REN:
- case SFTP_RMDIR:
- case SFTP_LINK:
- case SFTP_VER:
- if ((y = cmtxt("command parameters","",&s,xxstring)) < 0)
- return(y);
- if (ssh_tchk() < 0 || !ssh_cas || strcmp(ssh_cmd,"sftp")) {
- printf("?Not connected to SFTP Service\n");
- return(success = 0);
- }
- success = sftp_do_cmd(cmresult.nresult,s);
- return(success);
- default:
- return(-2);
- }
- }
-#endif /* SFTP_BUILTIN */
-
- if (cx == XXRLOG) { /* RLOGIN */
-#ifdef RLOGCODE
- int x,z;
-#ifdef OS2
- if (!tcp_avail) {
- printf("?Sorry, either TCP/IP is not available on this system or\n\
-necessary DLLs did not load. Use SHOW NETWORK to check network status.\n"
- );
- success = 0;
- return(-9);
- } else {
-#endif /* OS2 */
- x = nettype; /* Save net type in case of failure */
- z = ttnproto; /* Save protocol in case of failure */
- nettype = NET_TCPB;
- ttnproto = NP_RLOGIN;
- if ((y = setlin(XYHOST,0,1)) <= 0) {
- nettype = x; /* Failed, restore net type. */
- ttnproto = z; /* and protocol */
- success = 0;
- }
- didsetlin++;
-#ifdef OS2
- }
-#endif /* OS2 */
- return(y);
-#else
- printf("?Sorry, RLOGIN is not configured in this copy of C-Kermit.\n");
- return(-9);
-#endif /* RLOGCODE */
- }
-#endif /* NETCONN */
-#endif /* NOLOCAL */
-
-#ifndef NOXMIT
- if (cx == XXTRA) { /* TRANSMIT */
- extern int xfrxla;
- int i, n, xpipe = 0, xbinary = 0, xxlate = 1, xxnowait = 0, getval;
- int xxecho = 0;
- int scan = 1;
- char c;
- struct FDB sf, sw, tx; /* FDBs for parse functions */
-#ifndef NOCSETS
- extern int tcs_transp; /* Term charset is transparent */
-#else
- int tcs_transp = 1;
-#endif /* NOCSETS */
-
-#ifdef COMMENT
- xbinary = binary; /* Default text/binary mode */
-#else
- xbinary = 0; /* Default is text */
-#endif /* COMMENT */
- xxecho = xmitx;
-
- cmfdbi(&sw, /* First FDB - command switches */
- _CMKEY, /* fcode */
- "Filename, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- nxmitsw, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- xmitsw, /* Keyword table */
- &sf /* Pointer to next FDB */
- );
- cmfdbi(&sf, /* 2nd FDB - file to send */
- _CMIFI, /* fcode */
- "File to transmit", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
-#ifdef PIPESEND
- &tx
-#else
- NULL
-#endif /* PIPESEND */
- );
-#ifdef PIPESEND
- cmfdbi(&tx,
- _CMTXT, /* fcode */
- "Command", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-#endif /* PIPESEND */
-
- while (1) {
- x = cmfdb(&sw);
- if (x < 0)
- return(x);
- if (cmresult.fcode != _CMKEY)
- break;
- c = cmgbrk(); /* Have switch, get break character */
- if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- n = cmresult.nresult; /* Numeric result = switch ID */
- switch (n) { /* Process the switch */
-#ifdef PIPESEND
- case XMI_CMD: /* Transmit from a command */
- if (nopush) {
- printf("?Sorry, system command access is disabled\n");
- return(-9);
- }
- sw.hlpmsg = "Command, or switch"; /* Change help message */
- xpipe = 1; /* (No way to undo this one) */
- break;
-#endif /* PIPESEND */
-
- case XMI_BIN: /* Binary */
- xbinary = 1;
- xxlate = 0; /* Don't translate charsets */
- scan = 0;
- break;
-
- case XMI_TXT: /* Text */
- xbinary = 0;
- xxlate = !tcs_transp; /* Translate if TERM CHAR not TRANSP */
- scan = 0;
- break;
-
- case XMI_TRA: /* Transparent text */
- xbinary = 0;
- xxlate = 0; /* But don't translate charsets */
- scan = 0;
- break;
-
-#ifdef COMMENT
- case XMI_VRB: /* /VERBOSE */
- case XMI_QUI: /* /QUIET */
- break; /* (not implemented yet) */
-#endif /* COMMENT */
-
- case XMI_NOW: /* /NOWAIT */
- xxnowait = 1;
- break;
-
- case XMI_NOE: /* /NOWAIT */
- xxecho = 0;
- break;
-
- default:
- return(-2);
- }
-
- }
- if (cmresult.fcode != _CMIFI && cmresult.fcode != _CMTXT)
- return(-2);
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Filename */
- if (zfnqfp(line,TMPBUFSIZ,tmpbuf))
- ckstrncpy(line,tmpbuf,LINBUFSIZ);
- s = line;
- if ((y = cmcfm()) < 0) /* Confirm */
- return(y);
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
- if (cmresult.nresult != 0) {
- printf("?Only a single file may be transmitted\n");
- return(-9);
- }
-#ifdef PIPESEND
- if (xpipe) {
- s = brstrip(s);
- if (!*s) {
- printf("?Sorry, a command to send from is required\n");
- return(-9);
- }
- pipesend = 1;
- }
-#endif /* PIPESEND */
-
- if (scan && (filepeek
-#ifndef NOXFER
- || patterns
-#endif /* NOXFER */
- )) { /* If user didn't specify type */
- int k, x; /* scan the file to see */
- x = -1;
- k = scanfile(s,&x,nscanfile);
- if (k > 0) xbinary = (k == FT_BIN) ? XYFT_B : XYFT_T;
- }
- if (!xfrxla) xxlate = 0;
- success = transmit(s,
- (char) (xxnowait ? '\0' : (char)xmitp),
- xxlate,
- xbinary,
- xxecho
- );
- return(success);
- }
-#endif /* NOXMIT */
-
-#ifndef NOFRILLS
- if (cx == XXTYP || cx == XXCAT || cx == XXMORE ||
- cx == XXHEAD || cx == XXTAIL) {
- int paging = 0, havename = 0, head = 0, width = 0;
- int height = 0, count = 0;
- char pfxbuf[64], * prefix = NULL;
- char outfile[CKMAXPATH+1];
- struct FDB sf, sw;
- char * pat = NULL;
- int incs = 0, outcs = 0, cset = -1, number = 0;
-#ifdef UNICODE
- char * tocs = "";
- extern int fileorder;
-#ifdef OS2
-#ifdef NT
- char guibuf[128], * gui_title = NULL;
- int gui = 0;
-#endif /* NT */
-#ifndef NOCSETS
- extern int tcsr, tcsl;
-#endif /* NOCSETS */
-#endif /* OS2 */
-#endif /* UNICODE */
-
- outfile[0] = NUL;
-
- if (cx == XXMORE)
- paging = 1;
- else if (cx == XXCAT)
- paging = 0;
- else
- paging = (typ_page < 0) ? xaskmore : typ_page;
- if (paging < 0)
- paging = saveask;
-
- if (cx == XXHEAD) {
- head = 10;
- cx = XXTYP;
- } else if (cx == XXTAIL) {
- head = -10;
- cx = XXTYP;
- }
-
-#ifdef IKSD
- if (inserver && !ENABLED(en_typ)) {
- printf("?Sorry, TYPE command disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
- _CMKEY, /* fcode */
- "Filename or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- ntypetab, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- typetab, /* Keyword table */
- &sf /* Pointer to next FDB */
- );
- cmfdbi(&sf, /* 1st FDB - file to type */
- _CMIFI, /* fcode */
- "", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 0, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
- xxstring,
- NULL,
- NULL
- );
-
- while (!havename) {
- x = cmfdb(&sw); /* Parse something */
- debug(F101,"type cmfdb","",x);
- debug(F101,"type cmresult.fcode","",cmresult.fcode);
- debug(F101,"type cmresult.nresult","",cmresult.nresult);
- if (x < 0) { /* Error */
- if (x == -3) {
- x = -9;
- printf("?Filename required\n");
- }
- return(x);
- } else if (cmresult.fcode == _CMKEY) {
- char c; int getval;
- c = cmgbrk();
- getval = (c == ':' || c == '=');
- if (getval && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
-#ifdef COMMENT
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- /* Not if it has a default! */
- return(-9);
- }
-#endif /* COMMENT */
- switch (cmresult.nresult) {
-#ifdef CK_TTGWSIZ
- case TYP_PAG:
- paging = 1;
- break;
-
- case TYP_NOP:
- paging = 0;
- break;
-#endif /* CK_TTGWSIZ */
-
- case TYP_COU:
- paging = 0;
- count = 1;
- break;
-
- case TYP_HEA:
- case TYP_TAI:
- y = 10;
- if (getval)
- if ((x = cmnum("Number of lines",
- "10",10,&y,xxstring)) < 0)
- return(x);
- head = (cmresult.nresult == TYP_TAI) ? -y : y;
- break;
-
- case TYP_WID:
- y = typ_wid > -1 ? typ_wid : cmd_cols;
- if (getval)
- if ((x = cmnum("Column at which to truncate",
- ckitoa(y),10,&y,xxstring)) < 0)
- return(x);
- width = y;
- break;
-
-#ifdef KUI
- case TYP_HIG:
- if (getval)
- if ((x = cmnum("Height of GUI dialog",
- ckitoa(y),10,&y,xxstring)) < 0)
- return(x);
- height = y;
- break;
-#endif /* KUI */
-
- case TYP_PAT:
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((x = cmfld("pattern","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- pat = tmpbuf;
- break;
-
- case TYP_PFX:
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((x = cmfld("prefix for each line","",&s,xxstring)) < 0)
- return(x);
- if ((int)strlen(s) > 63) {
- printf("?Too long - 63 max\n");
- return(-9);
- }
- ckstrncpy(pfxbuf,s,64);
- prefix = brstrip(pfxbuf);
- number = 0;
- break;
-
-#ifdef KUI
- case TYP_GUI:
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((x = cmfld("Dialog box title","",&s,xxstring)) < 0) {
- if (x != -3)
- return(x);
- } else {
- if ((int)strlen(s) > 127) {
- printf("?Too long - 127 max\n");
- return(-9);
- }
- ckstrncpy(guibuf,s,128);
- gui_title = brstrip(guibuf);
- }
- gui = 1;
- break;
-#endif /* KUI */
-
- case TYP_NUM: /* /NUMBER */
- number = 1;
- prefix = NULL;
- break;
-
-#ifdef UNICODE
- case TYP_XPA: /* /TRANSPARENT */
- incs = 0;
- cset = 0;
- outcs = -1;
- break;
-
- case TYP_XIN: /* /CHARACTER-SET: */
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
- if ((incs = cmkey(fcstab,nfilc,
- "character-set name","",xxstring)) < 0) {
- if (incs == -3) /* Note: No default */
- incs = -2;
- return(incs);
- }
- cset = incs;
- break;
-
- case TYP_XUT: /* /TRANSLATE-TO: */
- if (!getval && (cmgkwflgs() & CM_ARG)) {
- printf("?This switch requires an argument\n");
- return(-9);
- }
-#ifdef OS2
- if (!inserver && !k95stdout) {
- tocs = "ucs2";
- } else {
-#ifdef CKOUNI
- tocs = rlookup(txrtab,ntxrtab,tcsl);
-#else /* CKOUNI */
- extern struct keytab ttcstab[];
- extern int ntxrtab;
- tocs = rlookup(ttcstab,ntermc,tocs);
- if (!tocs)
- tocs = getdcset();
-#endif /* CKOUNI */
- }
-#else /* OS2 */
- tocs = getdcset();
-#endif /* OS2 */
- if ((outcs = cmkey(fcstab,nfilc,
- "character-set",tocs,xxstring)) < 0)
- return(outcs);
- break;
-#endif /* UNICODE */
- case TYP_OUT:
- if ((x = cmofi("File for result lines","",
- &s,xxstring)) < 0)
- return(x);
- ckstrncpy(outfile,s,CKMAXPATH);
- break;
- }
- } else if (cmresult.fcode == _CMIFI)
- havename = 1;
- else
- return(-2);
- }
- if (havename) {
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- y = cmresult.nresult;
- } else {
- if ((x = cmifi("Filename","",&s,&y,xxstring)) < 0) {
- if (x == -3) {
- printf("?Name of an existing file required\n");
- return(-9);
- } else return(x);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- }
- if (y != 0) {
- printf("?A single file please\n");
- return(-9);
- }
-#ifdef KUI
- if ( outfile[0] && gui ) {
- printf("?/GUI and /OUTPUT are incompatible\n");
- return(-9);
- }
-#endif /* KUI */
-
- if ((y = cmcfm()) < 0) /* Confirm the command */
- return(y);
-
-#ifdef UNICODE
- fileorder = -1;
- if (cset < 0 && filepeek) { /* If no charset switches given */
- int k, x = -1;
- k = scanfile(line,&x,nscanfile); /* Call file analyzer */
- debug(F111,"type scanfile",line,k);
- debug(F101,"type scanfile flag","",x);
- switch(k) {
- case FT_UTF8: /* which can detect UTF-8... */
- cset = 0;
- incs = FC_UTF8;
- break;
- case FT_UCS2: /* and UCS-2... */
- cset = 0;
- incs = FC_UCS2;
- fileorder = x; /* even if there is no BOM. */
- debug(F101,"type fileorder","",fileorder);
- break;
- }
- }
-#ifdef OS2
- if (cset < 0) { /* If input charset still not known */
-#ifdef CKOUNI
- tocs = rlookup(txrtab,ntxrtab,tcsl);
-#else /* CKOUNI */
- extern struct keytab ttcstab[];
- extern int ntxrtab;
- tocs = rlookup(ttcstab,ntermc,incs);
- if (!tocs)
- tocs = getdcset();
-#endif /* CKOUNI */
- incs = lookup(fcstab,tocs,nfilc,&x);
- }
-#endif /* OS2 */
-
- if (outcs == 0 && incs != 0) { /* Supply default target charset */
- int x = 0; /* if switch not given. */
- tocs = getdcset();
- outcs = lookup(fcstab,tocs,nfilc,&x);
- }
-#else /* !UNICODE */
- if (cset < 0) incs = outcs = 0;
-#endif /* UNICODE */
-
- if (outfile[0] && paging) /* This combination makes no sense */
- paging = 0; /* so turn off paging */
-
-#ifdef KUI
- /* No paging when dialog is used */
- if ( gui && paging )
- paging = 0;
-
- if ( !gui && height ) {
- printf("?The /HEIGHT switch is not supported without /GUI\n");
- return(-9);
- }
-#endif /* KUI */
-
- if (count) paging = -1;
- debug(F111,"type",line,paging);
-#ifdef KUI
- if ( gui ) {
- s = (char *)1; /* ok, its an ugly hack */
- if (gui_text_popup_create(gui_title ?
- gui_title : line, height,width) < 0) {
- printf("?/GUI not supported on this system\n");
- gui = 0;
- return(-9);
- }
- width = 0;
- } else
-#endif /* KUI */
- s = outfile;
- success =
- dotype(line,paging,0,head,pat,width,prefix,incs,outcs,s,number);
- return(success);
- }
-#endif /* NOFRILLS */
-
-#ifndef NOCSETS
- if (cx == XXXLA) { /* TRANSLATE file's charset */
- _PROTOTYP (int doxlate, ( void ) );
- return(doxlate());
- }
-#endif /* NOCSETS */
-
- if (cx == XXVER) { /* VERSION */
- int n = 0;
- extern char * ck_patch, * ck_s_test;
-#ifdef COMMENT
- extern int hmtopline;
-#endif /* COMMENT */
- if ((y = cmcfm()) < 0)
- return(y);
-
- printf("\n%s, for%s\n Numeric: %ld",versio,ckxsys,vernum);
- printf("\n\n");
- printf("Authors:\n");
- printf(" Frank da Cruz, Columbia University\n");
- printf(" Jeffrey Eric Altman, Secure Endpoints, Inc. %s\n",
- "<jaltman@secure-endpoints.com>"
- );
- printf(" Contributions from many others.\n");
- n = 7;
- if (*ck_s_test) {
- printf("\nTHIS IS A TEST VERSION, NOT FOR PRODUCTION USE.\n");
- n += 2;
- }
- if (*ck_patch) {
- printf(" Patches: %s\n", ck_patch);
- n++;
- }
- printf(" Type COPYRIGHT for copyright and license.\n\n");
-#ifdef OS2
- shoreg();
-#else
-#ifdef COMMENT
- hmtopline = n+1;
- hmsga(copyright);
- hmtopline = 0;
-#endif /* COMMENT */
-#endif /* OS2 */
- return(success = 1);
- }
-
- if (cx == XXCPR) { /* COPYRIGHT or LICENSE */
- if ((y = cmcfm()) < 0)
- return(y);
-#ifdef OS2
- if (inserver) { /* Free WIKSD */
- extern char * wiksdcpr[];
- hmsga(wiksdcpr);
- } else
-#endif /* OS2 */
- hmsga(copyright);
- return(success = 1);
- }
-
-#ifndef MAC /* Only for multiuser systems */
-#ifndef OS2
-#ifndef NOFRILLS
- if (cx == XXWHO) { /* WHO */
- char *wc;
-#ifdef IKSD
- if (inserver && !ENABLED(en_who)) {
- printf("?Sorry, WHO command disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef datageneral
- if ((z = cmcfm()) < 0) return(z);
- if (nopush) {
- printf("?Sorry, who not allowed\n");
- return(success = 0);
- }
- xsystem(WHOCMD);
-#else
- if ((y = cmtxt("user name","",&s,xxstring)) < 0) return(y);
- if (nopush) {
- printf("?Sorry, WHO command disabled\n");
- return(success = 0);
- }
- if (!(wc = getenv("CK_WHO"))) wc = WHOCMD;
- if (wc)
- if ((int) strlen(wc) > 0) {
- ckmakmsg(line,LINBUFSIZ,wc," ",s,NULL);
- xsystem(line);
- }
-#endif /* datageneral */
- return(success = 1);
- }
-#endif /* NOFRILLS */
-#endif /* OS2 */
-#endif /* MAC */
-
-#ifndef NOFRILLS
- if (cx == XXWRI || cx == XXWRL || cx == XXWRBL) { /* WRITE */
- int x,y; /* On stack in case of \fexec() */
- if ((x = cmkey(writab,nwri,"to file or log","",xxstring)) < 0) {
- if (x == -3) printf("?Write to what?\n");
- return(x);
- }
- if ((y = cmtxt("text","",&s,xxstring)) < 0) return(y);
- s = brstrip(s);
- switch (x) {
- case LOGD: y = ZDFILE; break;
- case LOGP: y = ZPFILE; break;
-#ifndef NOLOCAL
- case LOGS: y = ZSFILE; break;
-#endif /* NOLOCAL */
- case LOGT: y = ZTFILE; break;
-#ifndef NOSPL
- case LOGW: y = ZWFILE; break;
-#endif /* NOSPL */
- case LOGX: /* SCREEN (stdout) */
- case LOGE: /* ERROR (stderr) */
- if (x == LOGE) {
- debug(F110,
- (cx == XXWRL) ? "WRITELN ERROR" : "WRITE ERROR", s,0);
- fprintf(stderr,"%s%s",s,(cx == XXWRL) ? "\n" : "");
- } else {
- debug(F110,
- (cx == XXWRL) ? "WRITELN SCREEN" : "WRITE SCREEN", s,0);
- printf("%s%s",s,(cx == XXWRL) ? "\n" : "");
- }
- return(success = 1);
- default: return(-2);
- }
- if (chkfn(y) > 0) {
- x = (cx == XXWRI) ? zsout(y,s) : zsoutl(y,s);
- if (x < 0) printf("?Write error\n");
- } else {
- x = -1;
- printf("?File or log not open\n");
- }
- return(success = (x == 0) ? 1 : 0);
- }
-#endif /* NOFRILLS */
-
-#ifndef NOXFER
- if (cx == XXASC || cx == XXBIN) {
- if ((x = cmcfm()) < 0) return(x);
-#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(success = doftptyp((cx == XXASC) ? 0 : 1));
-#endif /* NEWFTP */
- binary = (cx == XXASC) ? XYFT_T : XYFT_B;
- return(success = 1);
- }
-#endif /* NOXFER */
-
- if (cx == XXCLS) {
- if ((x = cmcfm()) < 0) return(x);
- y = ck_cls();
- return(success = (y > -1) ? 1 : 0);
- }
-
-#ifdef CK_MKDIR
- if (cx == XXMKDIR || cx == XXLMKD) {
- char *p;
-#ifdef LOCUS
- if (!locus && cx != XXLMKD) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZMKD));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && !ENABLED(en_mkd)) {
- printf("?Sorry, directory creation is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- if ((x = cmfld("Name for new directory","",&s,xxstring)) < 0) {
- if (x != -3) {
- return(x);
- } else {
- printf("?Directory name required\n");
- return(-9);
- }
- }
- ckstrncpy(line,s,LINBUFSIZ);
- s = line;
- if ((x = cmcfm()) < 0) return(x);
- s = brstrip(s);
- bgchk(); /* Set msgflg */
- x = ckmkdir(0,s,&p,msgflg,0);
-#ifdef COMMENT
- if (msgflg && x == 0)
- printf("?Directory already exists\n");
-#endif /* COMMENT */
- return(success = (x < 0) ? 0 : 1);
- }
- if (cx == XXRMDIR || cx == XXLRMD) { /* RMDIR */
- char *p;
-#ifdef LOCUS
- if (!locus && cx != XXLRMD) {
-#ifdef NOXFER
- return(-2);
-#else
- return(dormt(XZRMD));
-#endif /* NOXFER */
- }
-#endif /* LOCUS */
-#ifdef IKSD
- if (inserver && !ENABLED(en_rmd)) {
- printf("?Sorry, directory removal is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
- if ((x = cmdir("Name of directory to be removed","",&s,xxstring)) < 0)
- return(x);
- ckstrncpy(line,s,LINBUFSIZ);
- s = line;
- if ((x = cmcfm()) < 0) return(x);
- s = brstrip(s);
- x = ckmkdir(1,s,&p,msgflg,0);
- return(success = (x < 0) ? 0 : 1);
- }
-#endif /* CK_MKDIR */
-
-#ifdef TNCODE
- if (cx == XXTELOP)
- return(dotelopt());
-#endif /* TNCODE */
-
-#ifndef NOPUSH
- if (cx == XXNPSH) {
- if ((z = cmcfm()) < 0) return(z);
- nopush = 1;
-#ifndef NOSERVER
- en_hos = 0;
-#endif /* NOSERVER */
-#ifdef PIPESEND
- usepipes = 0;
-#endif /* PIPESEND */
- return(success = 1);
- }
-#endif /* NOPUSH */
-
-#ifdef OS2
- if (cx == XXNSCR) {
- if ((z = cmcfm()) < 0) return(z);
- tt_scroll = 0;
- return(success = 1);
- }
-#endif /* OS2 */
-
-#ifndef NOSPL
- if (cx == XXLOCAL) /* LOCAL variable declarations */
- return(success = dolocal());
-#endif /* NOSPL */
-
- if (cx == XXKERMI) { /* The KERMIT command */
- char * list[65];
- extern char **xargv;
- extern int xargc;
- int i;
- if ((y = cmtxt("kermit command-line arguments, -h for help",
- "",&s,xxstring)) < 0)
- return(y);
- ckstrncpy(line,"kermit ",LINBUFSIZ);
- ckstrncat(line,s,LINBUFSIZ-8);
- xwords(line,64,list,0);
- for (i = 1; i < 64; i++) {
- if (!list[i])
- break;
- }
- i--;
- xargc = i;
- xargv = list;
- xargv++;
- sstate = cmdlin();
- if (sstate) {
- extern int justone;
- debug(F000,"KERMIT sstate","",sstate);
- justone = 1; /* Force return to command mode */
- proto(); /* after protocol */
- return(success);
- } else {
- debug(F101,"KERMIT sstate","",sstate);
- return(success = 1); /* Not exactly right, but... */
- }
- }
- if (cx == XXDATE) { /* DATE command */
- extern char cmdatebuf[], * cmdatemsg;
-
-#ifndef COMMENT
- char * dp;
- if ((y = cmtxt("date and/or time, or carriage return for current",
- "",&s,xxstring)) < 0)
- return(y);
- s = brstrip(s);
- dp = cmcvtdate(s,1);
- if (!dp) {
- printf("?%s\n",cmdatemsg ? cmdatemsg : "Date conversion error");
- success = 0;
- } else {
- printf("%s\n",dp);
- success = 1;
- }
-#else
- /* This works fine but messes up my "dates" torture-test script */
-
- if ((x = cmdate("Date and/or time, or carriage return for current",
- "",&s,0,xxstring)) < 0) {
- return(x);
- } else {
- printf("%s\n",cmdatebuf);
- success = 1;
- }
-#endif /* COMMENT */
- return(success);
- }
-#ifndef NOPUSH
-#ifndef NOFRILLS
- if (cx == XXEDIT)
- return(doedit());
-#endif /* NOFRILLS */
-#endif /* NOPUSH */
-
-#ifdef BROWSER /* Defined only ifndef NOPUSH */
- if (cx == XXBROWS)
- return(dobrowse());
-#endif /* BROWSER */
-
-#ifdef CK_TAPI
- if (cx == XXTAPI) { /* Microsoft TAPI */
- return (success = dotapi());
- }
-#endif /* CK_TAPI */
-
-#ifndef NOXFER
- if (cx == XXWHERE) {
- extern char * rfspec, * sfspec, * srfspec, * rrfspec;
- if ((x = cmcfm()) < 0) return(x);
- printf("\nFile most recently...\n\n");
- printf(" Sent: %s\n", sfspec ? sfspec : "(none)");
- if (sfspec && srfspec) {
- printf(" Stored as: %s\n", srfspec);
- printf("\n");
- }
- printf(" Received: %s\n", rrfspec ? rrfspec : "(none)");
- if (rfspec && rrfspec)
- printf(" Stored as: %s\n", rfspec);
- printf(
-"\nIf the full path is not shown, then the file is probably in your current\n"
- );
- printf(
-"directory or your download directory (if any - SHOW FILE to find out).\n\n"
- );
- return(success = 1);
- }
-#endif /* NOXFER */
-
-#ifdef CK_RECALL
- if (cx == XXREDO)
- return(doredo());
-#endif /* CK_RECALL */
-
-#ifdef CKROOT
- if (cx == XXCHRT) /* Change Kermit's root directory */
- return(dochroot());
-#endif /* CKROOT */
-
-#ifdef CK_KERBEROS
- if (cx == XXAUTH) { /* KERBEROS */
- x = cp_auth(); /* Parse it */
-#ifdef IKSD
- if (inserver) {
- printf("?Command disabled in IKSD.\r\n");
- return(success = 0);
- }
-#endif /* IKSD */
- if (x < 0) /* Pass parse errors back */
- return(x);
- return(success = doauth(cx));
- }
-#endif /* CK_KERBEROS */
-
-#ifndef NOLOCAL
- if (cx == XXTERM) {
- return(settrmtyp());
- }
-#endif /* NOLOCAL */
-
- if (cx == XXSTATUS) {
- if ((x = cmcfm()) < 0) return(x);
- printf( " %s\n", success ? "SUCCESS" : "FAILURE" );
- return(0); /* Don't change it */
- }
-
- if (cx == XXFAIL) {
- if ((x = cmcfm()) < 0) return(x);
- return(success = 0);
- }
-
- if (cx == XXSUCC) {
- if ((x = cmcfm()) < 0) return(x);
- return(success = 1);
- }
-
- if (cx == XXNLCL) {
- extern int nolocal;
- if ((x = cmcfm()) < 0) return(x);
- nolocal = 1;
- return(success = 1);
- }
-
-#ifndef NOXFER
- if (cx == XXRASG) /* Shortcuts for REMOTE commands */
- return(dormt(XZASG));
- if (cx == XXRCWD)
- return(dormt(XZCWD));
- if (cx == XXRCPY)
- return(dormt(XZCPY));
- if (cx == XXRDEL)
- return(dormt(XZDEL));
- if (cx == XXRDIR)
- return(dormt(XZDIR));
- if (cx == XXRXIT)
- return(dormt(XZXIT));
- if (cx == XXRHLP)
- return(dormt(XZHLP));
- if (cx == XXRHOS)
- return(dormt(XZHOS));
- if (cx == XXRKER)
- return(dormt(XZKER));
- if (cx == XXRPWD)
- return(dormt(XZPWD));
- if (cx == XXRQUE)
- return(dormt(XZQUE));
- if (cx == XXRREN)
- return(dormt(XZREN));
- if (cx == XXRMKD)
- return(dormt(XZMKD));
- if (cx == XXRRMD)
- return(dormt(XZRMD));
- if (cx == XXRSET)
- return(dormt(XZSET));
- if (cx == XXRSPA)
- return(dormt(XZSPA));
- if (cx == XXRTYP)
- return(dormt(XZTYP));
- if (cx == XXRWHO)
- return(dormt(XZWHO));
- if (cx == XXRCDUP)
- return(dormt(XZCDU));
- if (cx == XXRPRI)
- return(dormt(XZPRI));
-#endif /* NOXFER */
-
- if (cx == XXRESET) { /* RESET */
- if ((x = cmcfm()) < 0)
- return(x);
- doclean(0); /* Close all files */
- return(success = 1);
- }
-
-#ifndef NOXFER
-#ifndef NOCSETS
- if (cx == XXASSOC) /* ASSOCIATE */
- return(doassoc());
-#endif /* NOCSETS */
-#endif /* NOXFER */
-
-#ifndef NOSPL
- if (cx == XXSHIFT) { /* SHIFT */
- if ((y = cmnum("Number of arguments to shift","1",10,&x,xxstring)) < 0)
- return(y);
- if ((z = cmcfm()) < 0)
- return(z);
- return(success = doshift(x));
- }
-#endif /* NOSPL */
-
-#ifndef NOHELP
- if (cx == XXMAN)
- return(domanual());
-#endif /* NOHELP */
-
-#ifndef NOSPL
- if (cx == XXSORT) /* SORT an array */
- return(dosort());
-#endif /* NOSPL */
-
- if (cx == XXPURGE) {
-#ifdef IKSD
- if (inserver && (!ENABLED(en_del)
-#ifdef CK_LOGIN
- || isguest
-#endif /* CK_LOGIN */
- )) {
- printf("?Sorry, DELETE is disabled\n");
- return(-9);
- }
-#endif /* IKSD */
-#ifdef CK_APC
- if ((apcactive == APC_LOCAL) ||
- ((apcactive == APC_REMOTE) && (!(apcstatus & APC_UNCH))))
- return(success = 0);
-#endif /* CK_APC */
-#ifdef CKPURGE
- return(dopurge());
-#else
-#ifdef VMS
- if ((x = cmtxt("optional switches followed by filespec",
- "",&s,xxstring)) < 0)
- return(x);
- if (nopush) {
- printf("?Sorry, DCL access is disabled\n");
- return(-9);
- }
- ckstrncpy(line,s,LINBUFSIZ);
- s = line;
- x = mlook(mactab,"purge",nmac);
- return(success = dodo(x,s,cmdstk[cmdlvl].ccflgs));
-#else
- return(-2);
-#endif /* VMS */
-#endif /* CKPURGE */
- }
-
-#ifndef NOSPL
- if (cx == XXFAST) {
- if ((x = cmcfm()) < 0) return(x);
- x = mlook(mactab,"fast",nmac);
- return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
- }
- if (cx == XXCAU) {
- if ((x = cmcfm()) < 0) return(x);
- x = mlook(mactab,"cautious",nmac);
- return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
- }
- if (cx == XXROB) {
- if ((x = cmcfm()) < 0) return(x);
- x = mlook(mactab,"robust",nmac);
- return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
- }
-#endif /* NOSPL */
-
- if (cx == XXSCRN) { /* SCREEN */
- int row, col;
- if ((x = cmkey(scntab, nscntab,"screen action","", xxstring)) < 0)
- return(x);
- switch (x) { /* MOVE-TO (cursor position) */
- case SCN_MOV:
- if ((y = cmnum("Row (1-based)","",10,&z,xxstring)) < 0)
- return(y);
- row = z;
- y = cmnum("Column (1-based)","1",10,&z,xxstring);
- if (y < 0)
- return(y);
- col = z;
- if ((y = cmcfm()) < 0)
- return(y);
- if (row < 0 || col < 0) {
- printf("?Row and Column must be 1 or greater\n");
- return(-9);
- }
- if (cmd_rows > 0 && row > cmd_rows)
- row = cmd_rows;
- if (cmd_cols > 0 && col > cmd_cols)
- col = cmd_cols;
- y = ck_curpos(row,col);
- return(success = (y > -1) ? 1 : 0);
-
- case SCN_CLR: /* CLEAR */
- if ((y = cmcfm()) < 0)
- return(y);
- debug(F100,"screen calling ck_cls()","",0);
- y = ck_cls();
- return(success = (y > -1) ? 1 : 0);
-
- case SCN_CLE: /* CLEOL */
- if ((y = cmcfm()) < 0)
- return(y);
- y = ck_cleol();
- return(success = (y > -1) ? 1 : 0);
- }
- }
-
-#ifndef NOHTTP
-#ifdef TCPSOCKET
- if (cx == XXHTTP)
- return(dohttp());
-#endif /* TCPSOCKET */
-#endif /* NOHTTP */
-
-#ifndef NOSPL
- if (cx == XXARRAY) { /* ARRAY */
-#ifndef NOSHOW
- extern int showarray();
-#endif /* NOSHOW */
- if ((x = cmkey(arraytab, narraytab,"Array operation","",xxstring)) < 0)
- return(x);
- switch (x) {
- case ARR_DCL:
- return(dodcl(XXDCL));
- case ARR_SRT:
- return(dosort());
-#ifndef NOSHOW
- case ARR_SHO:
- return(showarray());
-#endif /* NOSHOW */
- case ARR_CPY:
- return(copyarray());
- case ARR_SET:
- case ARR_CLR:
- return(clrarray(x));
- case ARR_DST:
- return(unarray());
- case ARR_RSZ:
- return(rszarray());
- case ARR_EQU:
- return(linkarray());
-
- default:
- printf("?Sorry, not implemented yet - \"%s\"\n",cmdbuf);
- return(-9);
- }
- }
- if (cx == XXTRACE)
- return(dotrace());
-#endif /* NOSPL */
-
-#ifdef CK_PERMS
-#ifdef UNIX
- if (cx == XXCHMOD)
- return(douchmod()); /* Do Unix chmod */
-#endif /* UNIX */
-#endif /* CK_PERMS */
-
- if (cx == XXPROMP)
- return(doprompt());
-
- if (cx == XXGREP)
- return(dogrep());
-
- if (cx == XXDEBUG) { /* DEBUG */
-#ifndef DEBUG
- int dummy = 0;
- return(seton(&dummy));
-#else
- return(seton(&deblog));
-#endif /* DEBUG */
- }
-
-#ifdef CKLEARN
- if (cx == XXLEARN) { /* LEARN */
- struct FDB of, sw, cm;
- int closing = 0, off = 0, on = 0, confirmed = 0;
- char c;
-
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
- _CMKEY, /* fcode */
- "Script file name, or switch", /* hlpmsg */
- "", /* default */
- "", /* addtl string data */
- 3, /* addtl numeric data 1: tbl size */
- 4, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- learnswi, /* Keyword table */
- &of /* Pointer to next FDB */
- );
- cmfdbi(&of,_CMOFI,"","","",0,0,xxstring,NULL,&cm);
- cmfdbi(&cm,_CMCFM,"","","",0,0,NULL,NULL,NULL);
- line[0] = NUL;
-
- while (!confirmed) {
- x = cmfdb(&sw); /* Parse something */
- if (x < 0)
- return(x);
- switch (cmresult.fcode) { /* What was it? */
- case _CMOFI: /* Output file name */
- ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
- break;
- case _CMKEY: /* Switch */
- c = cmgbrk();
- if ((c == ':' || c == '=') && !(cmgkwflgs() & CM_ARG)) {
- printf("?This switch does not take an argument\n");
- return(-9);
- }
- switch (cmresult.nresult) {
- case 2: /* /CLOSE */
- closing = 1; /* Fall thru on purpose */
- case 0: /* /OFF */
- off = 1;
- on = 0;
- break;
- case 1: /* /ON */
- on = 1;
- off = 0;
- break;
- }
- break;
- case _CMCFM: /* Confirmation */
- confirmed++;
- break;
- }
- }
- if (closing) {
- if (learnfp) {
- fclose(learnfp);
- learnfp = NULL;
- }
- makestr(&learnfile,NULL);
- }
- if (line[0]) {
- if (!on && !off)
- on = 1;
- if (learnfp) {
- fclose(learnfp);
- learnfp = NULL;
- }
- makestr(&learnfile,line);
- if (learnfile) {
- char * modes = "w";
- learnfp = fopen(learnfile,modes);
- if (!learnfp) {
- debug(F110,"LEARN file open error",learnfile,0);
- perror(learnfile);
- return(-9);
- } else {
-#ifdef ZFNQFP
- if (zfnqfp(learnfile,TMPBUFSIZ,tmpbuf))
- makestr(&learnfile,tmpbuf);
-#endif /* ZFNQFP */
- debug(F110,"LEARN file open ok",learnfile,0);
- if (!quiet) {
- printf("Recording to %s...\n\n",learnfile);
- printf(
-" WARNING: If you type your password during script recording, it will appear\n\
- in the file. Be sure to edit it or take other appropriate precautions.\n\n"
- );
- }
- fputs( "; Scriptfile: ",learnfp);
- fputs(learnfile,learnfp);
- fputs("\n; Directory: ",learnfp);
- fputs(zgtdir(),learnfp);
- fputs("\n; Recorded: ",learnfp);
- fputs(ckdate(),learnfp);
- fputs("\n",learnfp);
- }
- }
- }
- if (on) {
- learning = 1;
- } else if (off) {
- learning = 0;
- }
- debug(F101,"LEARN learning","",learning);
- return(success = 1);
- }
-#endif /* CKLEARN */
-
-#ifdef NEWFTP
- if (cx == XXUSER || cx == XXACCT) {
- if (!ftpisopen()) {
- printf("?FTP connection is not open\n");
- return(-9);
- }
- return(success = (cx == XXUSER) ? doftpusr() : doftpacct());
- }
- if (cx == XXSITE || cx == XXPASV) {
- if (!ftpisopen()) {
- printf("?FTP connection is not open\n");
- return(-9);
- }
- return(success = (cx == XXSITE) ? doftpsite() : dosetftppsv());
- }
-#endif /* NEWFTP */
-
- if (cx == XXORIE) { /* ORIENTATION */
- extern char * myname;
- int i, y, n = 0;
- char * s, *p, vbuf[32];
- char * vars[16]; char * legend[16];
-
- if ((y = cmcfm()) < 0)
- return(y);
-
- printf("\nProgram name:\n %s\n\n",myname);
- n += 4;
-
-#ifdef NT
- vars[0] = "home"; legend[0] = "Your home directory";
- vars[1] = "directory"; legend[1] = "K95's current directory";
- vars[2] = "exedir"; legend[2] = "K95 Program directory";
- vars[3] = "inidir"; legend[3] = "K95 Initialization file directory";
- vars[4] = "startup"; legend[4] = "Current directory when started";
-
- vars[5] = "common";
- legend[5] = "K95 data for all users and K95SITE.INI file";
-
- vars[6] = "personal"; legend[6] = "Your personal data directory tree";
- vars[7] = "desktop"; legend[7] = "Your deskop directory tree";
-
- vars[8] = "appdata";
- legend[8] = "Your personal K95 data tree and K95CUSTOM.INI file";
-
- vars[9] = "download"; legend[9] = "Your K95 download directory";
- vars[10] = "tmpdir"; legend[10] = "Your TEMP directory";
- vars[11] = NULL; legend[11] = NULL;
-
- for (i = 0; i < 16 && vars[i]; i++) {
- printf("%s:\n",legend[i]);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- ckmakmsg(vbuf,32,"\\v(",vars[i],")",NULL);
- printf(" Variable: %s\n",vbuf);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- y = TMPBUFSIZ;
- s = tmpbuf;
- zzstring(vbuf,&s,&y);
- line[0] = NUL;
- ckGetLongPathName(tmpbuf,line,LINBUFSIZ);
- printf(" Long name: %s\n",line);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- line[0] = NUL;
- GetShortPathName(tmpbuf,line,LINBUFSIZ);
- printf(" Short name: %s\n",line);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("\n");
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- }
-#else /* NT */
-
- vars[0] = "home"; legend[0] = "Your home directory";
- vars[1] = "directory"; legend[1] = "Kermit's current directory";
- vars[2] = "exedir"; legend[2] = "Kermit's program directory";
- vars[3] = "inidir"; legend[3] = "Initialization file directory";
- vars[4] = "startup"; legend[4] = "Current directory when started";
- vars[5] = "download"; legend[5] = "Kermit download directory";
- vars[6] = NULL; legend[6] = NULL;
-
- for (i = 0; i < 16 && vars[i]; i++) {
- printf("%s:\n",legend[i]);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- ckmakmsg(vbuf,32,"\\v(",vars[i],")",NULL);
- printf(" Variable: %s\n",vbuf);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- y = TMPBUFSIZ;
- s = tmpbuf;
- zzstring(vbuf,&s,&y);
- printf(" Value: %s\n",tmpbuf);
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("\n");
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- }
-#endif /* NT */
- return(success = 1);
- }
-
-#ifdef NT
- if (cx == XXDIALER) {
- StartDialer();
- return(success = 1);
- }
-#endif /* NT */
-
- if (cx == XXCONT) { /* CONTINUE */
- if ((x = cmcfm()) < 0)
- return(x);
- if (!xcmdsrc) { /* At prompt: continue script */
- if (cmdlvl > 0)
- popclvl(); /* Pop command level */
- return(success = 1); /* always succeeds */
-#ifndef NOSPL
- } else { /* In script: whatever... */
- x = mlook(mactab,"continue",nmac);
- /* Don't set success */
- return(dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
-#endif /* NOSPL */
- }
- }
- if (cx == XXNOTAV) { /* Command in table not available */
- ckstrncpy(tmpbuf,atmbuf,TMPBUFSIZ);
- if ((x = cmtxt("Rest of command","",&s,NULL)) < 0)
- return(x);
- printf("Sorry, \"%s\" not configured in this version of Kermit.\n",
- tmpbuf
- );
- return(success = 0);
- }
- return(-2); /* None of the above */
-
-} /* end of docmd() */
-
-#endif /* NOICP */
+++ /dev/null
-010_makefile-destdir-support.patch
-020_man-hyphen-quoting.patch
-030_fix-if-else.patch
-THE C-KERMIT 7.0 AND 8.0 LICENSE
-
- Last update: Thu May 1 13:52:15 2003
-
-This is the new C-Kermit 7.0 and 8.0 license. The intention is to allow
-C-Kermit to be distributed with "free" operating systems such as GNU/Linux,
-FreeBSD, NetBSD, OpenBSD, The Hurd, etc, even when the distributions
-themselves (such as Red Hat or Caldera) might be sold and/or might include
-applications that are not free, and yet still require a license to include
-C-Kermit in or with "non-free" products such as commercial OS's, commercial
-software packages, embedded systems, and hardware (other than general-purpose
-computers preloaded with "free" operating systems), since these licenses
-furnish a large portion of the Kermit Project's funding.
-
-There have been some questions about the provision in Clause (A) that:
-
- The
- C-Kermit source code may not be changed without the consent of the
- Kermit Project, which will not be unreasonably withheld (this is
- simply a matter of keeping a consistent and supportable code base).
-
-The intention of this clause is primarily to make sure that anybody who
-makes modifications sends them back to us, since we are the ones have to
-support C-Kermit, and so we can carry them through to future releases (so
-you don't have to make the same changes again and again).
-
-Secondarily it is to protect Columbia University in the unlikely event of
-modifications made with deliberate intent to offend or cause damage.
-
-Any redistributor of C-Kermit under Clause (A) below should rest assured
-there is no intention of preventing them from constructing a distribution in
-the appropriate format (RPM or whatever) for their product or from issuing
-any patches required for their products; we simply want to be informed so we
-can maintain a consistent code base and a solid, supportable software
-package. We are happy to work with any redistributor an any issues that
-concern them. If you have questions, send them to kermit@columbia.edu.
-
-Note: All changes to this file since 1 January 2000 (the C-Kermit 7.0
-release date) are above; the license itself has not changed, except to
-update the most recent copyright date.
-
-(Begin)
-
-Copyright (C) 1985, 2003,
- The Trustees of Columbia University in the City of New York.
- All rights reserved.
-
-PERMISSIONS:
-
-The C-Kermit software may be obtained directly from the Kermit Project at
-Columbia University (or from any source explicitly licensed by the Kermit
-Project or implicitly licensed by Clause (A) below) by any individual for
-his or her OWN USE, and by any company or other organization for its own
-INTERNAL DISTRIBUTION and use, including installation on servers that are
-accessed by customers or clients, WITHOUT EXPLICIT LICENSE.
-
-Conditions for REDISTRIBUTION are as follows:
-
-(A) The C-Kermit software, in source and/or binary form, may be
- included WITHOUT EXPLICIT LICENSE in distributions of OPERATING
- SYSTEMS that have OSI (Open Source Initiative, www.opensource.org)
- approved licenses, even if non-Open-Source applications (but not
- operating systems) are included in the same distribution. Such
- distributions include, but are not limited to, CD-ROM, FTP site,
- Web site, or preinstalled software on a new GENERAL-PURPOSE
- computer, as long as the primary character of the distribution is
- an Open Source operating system with accompanying utilities. The
- C-Kermit source code may not be changed without the consent of the
- Kermit Project, which will not be unreasonably withheld (this is
- simply a matter of keeping a consistent and supportable code base).
-
-(B) Inclusion of C-Kermit software in whole or in part, in any form, in
- or with any product not covered by Clause (A), or its distribution
- by any commercial enterprise to its actual or potential customers
- or clients except as in Clause (A), requires a license from the
- Kermit Project, Columbia University; contact kermit@columbia.edu.
-
-The name of Columbia University may not be used to endorse or promote
-products derived from or including the C-Kermit software without specific
-prior written permission.
-
-DISCLAIMER:
-
- THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION FROM THE
- TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK AS TO ITS
- FITNESS FOR ANY PURPOSE, AND WITHOUT WARRANTY BY THE TRUSTEES OF
- COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK OF ANY KIND, EITHER
- EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED
- WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- THE TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK SHALL NOT
- BE LIABLE FOR ANY DAMAGES, INCLUDING SPECIAL, INDIRECT, INCIDENTAL,
- OR CONSEQUENTIAL DAMAGES, WITH RESPECT TO ANY CLAIM ARISING OUT OF OR
- IN CONNECTION WITH THE USE OF THE SOFTWARE, EVEN IF IT HAS BEEN OR IS
- HEREAFTER ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. YOU SHALL
- INDEMNIFY AND HOLD HARMLESS THE TRUSTEES OF COLUMBIA UNIVERSITY IN
- THE CITY OF NEW YORK, ITS EMPLOYEES AND AGENTS FROM AND AGAINST ANY
- AND ALL CLAIMS, DEMANDS, LOSS, DAMAGE OR EXPENSE (INCLUDING
- ATTORNEYS' FEES) ARISING OUT OF YOUR USE OF THIS SOFTWARE.
-
-The above copyright notice, permissions notice, and disclaimer may not be
-removed, altered, or obscured and shall be included in all copies of the
-C-Kermit software. The Trustees of Columbia University in the City of
-New York reserve the right to revoke this permission if any of the terms
-of use set forth above are breached.
-
-(End)
+THE C-KERMIT 9.0 LICENSE
+
+Fri Jun 24 14:43:35 2011
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+ + Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+
+ + Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in
+ the documentation and/or other materials provided with the
+ distribution.
+
+ + Neither the name of Columbia University nor the names of any
+ contributors may be used to endorse or promote products derived
+ from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-char *ckcrpv = "Encryption Engine, 8.0.114, 9 Oct 2003";
+char *ckcrpv = "Encryption Engine, 9.0.117, 19 Mar 2010";
/*
C K _ C R P . C - Cryptography for C-Kermit"
- Copyright (C) 1998, 2004,
+ Copyright (C) 1998, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#endif /* CAST_EXPORT_ENCRYPTION */
#endif /* CAST_OR_EXPORT */
+#ifdef MACOSX
+#undef LIBDES
+#endif /* MACOSX */
+
#ifdef CRYPT_DLL
int cmd_quoting = 0;
#endif /* TELOPT_MACRO */
static int (*p_ttol)(char *,int)=NULL;
-static int (*p_dodebug)(int,char *,char *,long)=NULL;
+static int (*p_dodebug)(int,char *,char *,CK_OFF_T)=NULL;
static int (*p_dohexdump)(char *,char *,int)=NULL;
static void (*p_tn_debug)(char *)=NULL;
static int (*p_vscrnprintf)(char *, ...)=NULL;
}
int
-dodebug(int flag, char * s1, char * s2, long n)
+dodebug(int flag, char * s1, char * s2, CK_OFF_T n)
{
if ( p_dodebug )
return(p_dodebug(flag,s1,s2,n));
#endif /* CRYPT_DLL */
#ifdef LIBDES
+#ifdef MACOSX
+#define des_new_random_key ck_des_new_random_key
+#define des_set_random_generator_seed ck_des_set_random_generator_seed
+#define des_key_sched ck_des_key_sched
+#define des_ecb_encrypt ck_des_ecb_encrypt
+#define des_string_to_key ck_des_string_to_key
+#define des_fixup_key_parity ck_des_fixup_key_parity
+#endif /* MACOSX */
#ifndef UNIX
#define des_new_random_key des_random_key
#define des_set_random_generator_seed des_random_seed
#ifdef UNIX
#ifdef LIBDES
+#ifndef MACOSX
/* These functions are not part of Eric Young's DES library */
/* _unix_time_gmt_unixsec */
/* _des_set_random_generator_seed */
des_new_random_key(Block B)
{
int rc=0;
+ /* WARNING:
+ This might need to have the "rc = " removed because this
+ is VOID in later, and maybe even all, versions.
+ */
rc = des_random_key(B);
return(rc);
}
+#endif /* MACOSX */
#endif /* LIBDES */
#endif /* UNIX */
#endif /* CK_DES */
* These function pointers point to the current routines
* for encrypting and decrypting data.
*/
+/* NOTE: These next two might need to have the "static " removed */
+
static VOID (*encrypt_output) P((unsigned char *, int));
static int (*decrypt_input) P((int));
buf[len] = decrypt_input(buf[len]);
#ifdef DEBUG
- hexdump("decrypt ks hack", buf, cnt);
+ ckhexdump("decrypt ks hack", buf, cnt);
#endif
return 1;
}
remote_supports_decrypt = 0;
while (cnt-- > 0) {
+ debug(F101,"XXX cnt","",cnt);
type = *typelist++;
+ debug(F101,"XXX type","",type);
+ debug(F101,"XXX ENCTYPE_ANY","",ENCTYPE_ANY);
if ( EncryptType == ENCTYPE_ANY ||
EncryptType == type ) {
#ifdef DEBUG
}
}
}
+ debug(F101,"XXX use_type","",use_type);
if (use_type) {
ep = findencryption(use_type);
if (!ep) {
debug(F111,"encrypt_support","findencryption == NULL",use_type);
return(-1);
}
+ debug(F100,"XXX ep not NULL","",0);
type = ep->start ? (*ep->start)(DIR_ENCRYPT, 0) : 0;
+ debug(F101,"XXX new type","",type);
#ifdef DEBUG
if (encrypt_debug_mode) {
sprintf(dbgbuf, ">>>(*ep->start)() %s returned %d (%s)\n",
sprintf(tn_msg,"TELNET SENT SB %s %s ",
TELOPT(TELOPT_ENCRYPTION),
(dir == DIR_ENCRYPT) ? "ENC-KEYID" : "DEC-KEYID"); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&str_keyid[4],strp-str_keyid-2-4);
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&str_keyid[4],strp-str_keyid-2-4);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
int i;
sprintf(tn_msg,"TELNET SENT SB %s START ",
TELOPT(TELOPT_ENCRYPTION)); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&str_start[4],p-str_start-2-4);
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&str_start[4],p-str_start-2-4);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
int i;
sprintf(tn_msg,"TELNET SENT SB %s REQUEST-START ",
TELOPT(TELOPT_ENCRYPTION)); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&str_start[4],p-str_start-2-4);
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&str_start[4],p-str_start-2-4);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
sprintf(tn_msg,
"TELNET SENT SB %s IS %s FB64_IV ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
sprintf(tn_msg,
"TELNET SENT SB %s REPLY %s FB64_IV_OK ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
sprintf(tn_msg,
"TELNET SENT SB %s REPLY %s FB64_IV_BAD ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
if (!key || key->length < sizeof(Block)) {
CHAR buf[80];
- sprintf(buf,"Can't set DES session key (%d < %d)",
+ sprintf((char *)buf,"Can't set DES session key (%d < %d)",
key ? key->length : 0, sizeof(Block)); /* safe */
#ifdef DEBUG
if (encrypt_debug_mode)
}
memset(fbp->krbdes_sched,0,sizeof(Schedule));
- hexdump("fb64_session_key",fbp->krbdes_key,8);
+ ckhexdump("fb64_session_key",fbp->krbdes_key,8);
rc = des_key_sched(fbp->krbdes_key, fbp->krbdes_sched);
if ( rc == -1 ) {
"Key Schedule not created by encryption",0);
}
- hexdump("fb64_session_key schedule",fbp->krbdes_sched,8*16);
+ ckhexdump("fb64_session_key schedule",fbp->krbdes_sched,8*16);
#endif /* MIT_CURRENT */
/*
* Now look to see if krbdes_start() was was waiting for
memset(stp->str_sched,0,sizeof(Schedule));
- hexdump("fb64_stream_iv",stp->str_ikey,8);
+ ckhexdump("fb64_stream_iv",stp->str_ikey,8);
#ifndef MIT_CURRENT
rc = des_key_sched(stp->str_ikey, stp->str_sched);
debug(F110,"fb64_stream_iv",
"Key Schedule not created by encryption",0);
}
- hexdump("fb64_stream_iv schedule",stp->str_sched,8*16);
+ ckhexdump("fb64_stream_iv schedule",stp->str_sched,8*16);
#endif /* MIT_CURRENT */
stp->str_index = sizeof(Block);
memset(stp->str_sched,0,sizeof(Schedule));
- hexdump("fb64_stream_key",key,8);
+ ckhexdump("fb64_stream_key",key,8);
rc = des_key_sched(key, stp->str_sched);
if ( rc == -1 ) {
debug(F110,"fb64_stream_key",
"Key Schedule not created by encryption",0);
}
- hexdump("fb64_stream_key schedule",stp->str_sched,8*16);
+ ckhexdump("fb64_stream_key schedule",stp->str_sched,8*16);
#endif /* MIT_CURRENT */
memcpy(stp->str_output, stp->str_iv, sizeof(Block));
sprintf(tn_msg,
"TELNET SENT SB %s IS %s FB64_IV ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
sprintf(tn_msg,
"TELNET SENT SB %s REPLY %s FB64_IV_OK ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
sprintf(tn_msg,
"TELNET SENT SB %s REPLY %s FB64_IV_BAD ",
TELOPT(fbp->fb_feed[2]),
- enctype_names[fbp->fb_feed[4]]); /* safe */
- tn_hex(tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],(p-fbp->fb_feed)-2-6);
+ enctype_names[fbp->fb_feed[4]]); /* safe */
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&fbp->fb_feed[6],
+ (p-fbp->fb_feed)-2-6);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
keys2use = key->length / sizeof(Block);
if (!key || (key->type == SK_DES) || (keys2use < 2)) {
CHAR buf[80];
- sprintf(buf,"Can't set 3DES session key (%d < %d)",
- key ? key->length : 0, 2 * sizeof(Block)); /* safe */
+ sprintf((char *)buf,"Can't set 3DES session key (%d < %d)",
+ key ? key->length : 0, 2 * (int)sizeof(Block)); /* safe */
#ifdef DEBUG
if (encrypt_debug_mode)
printf("%s\r\n",buf);
(void *) (key->data + 2*sizeof(Block)), sizeof(Block));
break;
}
- hexdump("des3_session_key key->data",key->data,sizeof(Block));
- hexdump("des3_session_key fbp->krbdes_key[0]",
+ ckhexdump("des3_session_key key->data",key->data,sizeof(Block));
+ ckhexdump("des3_session_key fbp->krbdes_key[0]",
fbp->krbdes_key[0],
sizeof(Block)
);
debug(F110,"des3_fb64_stream_iv",
"Key Schedule not created by encryption",0);
}
- hexdump("des3_fb64_session_key schedule",fbp->krbdes_sched[i],8*16);
+ ckhexdump("des3_fb64_session_key schedule",fbp->krbdes_sched[i],8*16);
}
/*
* Now look to see if krbdes_start() was was waiting for
for ( i=0;i<3;i++ ) {
memset(stp->str_sched[i],0,sizeof(Schedule));
- hexdump("des3_fb64_stream_iv",stp->str_ikey[i],8);
+ ckhexdump("des3_fb64_stream_iv",stp->str_ikey[i],8);
rc = des_key_sched(stp->str_ikey[i], stp->str_sched[i]);
if ( rc == -1 ) {
debug(F110,"des3_fb64_stream_iv",
"Key Schedule not created by encryption",0);
}
- hexdump("des3_fb64_stream_iv schedule",stp->str_sched[i],8*16);
+ ckhexdump("des3_fb64_stream_iv schedule",stp->str_sched[i],8*16);
}
stp->str_index = sizeof(Block);
}
memset(stp->str_sched[i],0,sizeof(Schedule));
- hexdump("des3_fb64_stream_key",key[i],8);
+ ckhexdump("des3_fb64_stream_key",key[i],8);
rc = des_key_sched(key[i], stp->str_sched[i]);
if ( rc == -1 ) {
debug(F110,"des3_fb64_stream_key",
"Key Schedule not created by encryption",0);
}
- hexdump("des3_fb64_stream_key schedule",stp->str_sched[i],8*16);
+ ckhexdump("des3_fb64_stream_key schedule",stp->str_sched[i],8*16);
}
memcpy(stp->str_output, stp->str_iv, sizeof(Block));
if (!key || key->length < klen) {
CHAR buf[80];
- sprintf(buf,"Can't set CAST session key (%d < %d)",
+ sprintf((char *)buf,"Can't set CAST session key (%d < %d)",
key ? key->length : 0, klen); /* safe */
#ifdef DEBUG
if (encrypt_debug_mode)
-char *cksslv = "SSL/TLS support, 8.0.221, 26 Feb 2004";
+char *cksslv = "SSL/TLS support, 9.0.227, 04 Aug 2010";
/*
C K _ S S L . C -- OpenSSL Interface for C-Kermit
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
. Client certificate to user id routine
Note: This code is written to be compatible with OpenSSL 0.9.6[abcdefgh]
- and 0.9.7 beta 5.
+ and 0.9.7 beta 5 (and, presumably, later).
It will also compile with version 0.9.5 although that is discouraged
due to security weaknesses in that release.
*/
#endif
#endif /* OS2 */
+extern int quiet; /* fdc - Mon Nov 28 11:44:15 2005 */
+
static int ssl_installed = 1;
#endif /* CK_SSL */
int
int ssl_debug_flag = 0;
int ssl_verbose_flag = 0;
int ssl_only_flag = 0;
+int ssl_raw_flag = 0;
int ssl_active_flag = 0;
int ssl_verify_flag = SSL_VERIFY_PEER;
int ssl_certsok_flag = 0;
SSL_CTX *tls_ctx = NULL;
SSL *tls_con = NULL;
int tls_only_flag = 0;
+int tls_raw_flag = 0;
int tls_active_flag = 0;
int ssl_initialized = 0;
_PROTOTYP(int X509_to_user,(X509 *, char *, int));
+static int verbosity = 0; /* Message control */
+static VOID
+setverbosity() {
+ verbosity = ssl_verbose_flag;
+ if (quiet) verbosity = 0;
+}
+
int
#ifdef CK_ANSIC
ssl_server_verify_callback(int ok, X509_STORE_CTX * ctx)
if ( ssl_certsok_flag )
return(1);
+ setverbosity();
+
error=X509_STORE_CTX_get_error(ctx);
depth=X509_STORE_CTX_get_error_depth(ctx);
xs=X509_STORE_CTX_get_current_cert(ctx);
goto return_time;
}
- if (ssl_verbose_flag && !inserver && depth != ssl_verify_depth) {
+ if (verbosity && !inserver && depth != ssl_verify_depth) {
printf("[%d] Certificate Subject:\r\n%s\r\n",depth,subject);
printf("[%d] Certificate Issuer:\r\n%s\r\n",depth,issuer);
ssl_verify_depth = depth;
int depth, error, len;
X509 *xs;
+ setverbosity();
+
xs=X509_STORE_CTX_get_current_cert(ctx);
error=X509_STORE_CTX_get_error(ctx);
depth=X509_STORE_CTX_get_error_depth(ctx);
}
#endif /* XN_FLAG_SEP_MULTILINE */
- if (ssl_verbose_flag && depth != ssl_verify_depth) {
+ if (verbosity && depth != ssl_verify_depth) {
printf("[%d] Certificate Subject:\r\n%s\r\n",depth,subject);
printf("[%d] Certificate Issuer:\r\n%s\r\n",depth,issuer);
ssl_verify_depth = depth;
if (inserver || !ssl_debug_flag)
return;
+ setverbosity();
+
switch ( where ) {
case SSL_CB_CONNECT_LOOP:
printf("SSL_connect:%s %s\r\n",
EVP_PKEY ** pkey;
#endif /* CK_ANSIC */
{
+ setverbosity();
+
if ( ssl_debug_flag ) {
const char * cipher_list=SSL_get_cipher(s);
printf("ssl_client_cert_callback called (%s)\r\n",
#endif /* CK_ANSIC */
{
static RSA *rsa_tmp=NULL;
- extern int quiet;
#ifndef NO_RSA
if (rsa_tmp == NULL)
{
static DH *dh_tmp=NULL;
BIO *bio=NULL;
- extern int quiet;
#ifndef NO_DH
if (dh_tmp == NULL)
static void
ssl_display_comp(SSL * ssl)
{
+ if ( quiet ) /* fdc - Mon Nov 28 11:44:15 2005 */
+ return;
+
if ( !ck_ssleay_is_installed() )
return;
const char *cipher_list;
char buf[512]="";
+ if ( quiet ) /* fdc - Mon Nov 28 11:44:15 2005 */
+ return(0);
+
if ( !ck_ssleay_is_installed() )
return(0);
tls_load_certs(SSL_CTX * ctx, SSL * con, int server)
{
int rc = 1;
- extern int quiet;
if ( !ck_ssleay_is_installed() )
return(0);
- debug(F111,"tls_load_certs","SSL_CTX",ctx);
- debug(F111,"tls_load_certs","SSL",con);
- debug(F111,"tls_load_certs","server",server);
+ debug(F110,"tls_load_certs","SSL_CTX",0);
+ debug(F110,"tls_load_certs","SSL",0);
+ debug(F110,"tls_load_certs","server",0);
if ( con ) {
if (ssl_rsa_cert_file) {
#endif /* CK_ANSIC */
{
COMP_METHOD * cm;
+ char * s;
if ( !ck_ssleay_is_installed() )
return;
-
+/*
+ OpenSSL does not provide for ABI compatibility between releases prior
+ to version 1.0.0. If the version does not match, it is not safe to
+ assume that any function you call takes the same parameters or does
+ the same thing with them. Removing this test prior to the OpenSSL 1.0.0
+ release will result in an increase in unexplained or incorrect behaviors.
+ The test should be revised once OpenSSL 1.0.0 is released and we see what
+ its claims are as to ABI compatibility.
+*/
debug(F111,"Kermit built for OpenSSL",OPENSSL_VERSION_TEXT,SSLEAY_VERSION_NUMBER);
#ifndef OS2ONLY
debug(F111,"OpenSSL Library",SSLeay_version(SSLEAY_VERSION),
ssl_installed = 0;
debug(F111,"OpenSSL Version does not match. Built with",
SSLeay_version(SSLEAY_VERSION),SSLEAY_VERSION_NUMBER);
- printf("?OpenSSL libraries do not match required version.");
- printf(" SSL\\TLS support disabled\r\n\r\n");
+ printf("?OpenSSL libraries do not match required version:\r\n");
+ printf(" . C-Kermit built with %s\r\n",OPENSSL_VERSION_TEXT);
+ printf(" . Version found %s\r\n",SSLeay_version(SSLEAY_VERSION));
+ printf(" OpenSSL versions prior to 1.0.0 must be the same.\r\n");
+
+ s = "R";
+#ifdef SOLARIS
+ printf(" Set CD_LIBRARY_PATH for %s.\r\n",OPENSSL_VERSION_TEXT);
+ s = " Or r";
+#endif /* SOLARIS */
+
+#ifdef HPUX
+ printf(" Set SHLIB_PATH for %s.\r\n",OPENSSL_VERSION_TEXT);
+ s = " Or r";
+#endif /* HPUX */
+
+#ifdef AIX
+ printf(" Set LIBPATH for %s.\r\n",OPENSSL_VERSION_TEXT);
+ s = " Or r";
+#endif /* AIX */
+
+#ifdef LINUX
+ printf(" Set LD_LIBRARY_PATH for %s.\r\n",OPENSSL_VERSION_TEXT);
+ s = " Or r";
+#endif /* LINUX */
+
+ printf(" %sebuild C-Kermit from source on this computer to make \
+versions agree.\r\n",s);
+
+#ifdef KTARGET
+ {
+ char * s;
+ s = KTARGET;
+ if (!s) s = "";
+ if (!*s) s = "(unknown)";
+ printf(" C-Kermit makefile target: %s\r\n",s);
+ }
+#endif /* KTARGET */
+ printf(" Or if that is what you did then try to find out why\r\n");
+ printf(" the program loader (image activator) is choosing a\r\n");
+ printf(" different OpenSSL library than the one specified in \
+the build.\r\n\r\n");
+ printf(" All SSL/TLS features disabled.\r\n\r\n");
bleep(BP_FAIL);
#ifdef SSLDLL
ck_ssl_unloaddll();
#endif /* OS2ONLY */
/* init things so we will get meaningful error messages
- * rather than numbers
- */
+ * rather than numbers
+ */
SSL_load_error_strings();
#ifdef SSHBUILTIN
for (i = 0; i < sk_GENERAL_NAME_num(ialt); i++) {
gen = sk_GENERAL_NAME_value(ialt, i);
if (gen->type == GEN_DNS) {
- if(!gen->d.ia5 || !gen->d.ia5->length)
- break;
+ if (!gen->d.ia5 || !gen->d.ia5->length)
+ break;
+ if (strlen((char *)gen->d.ia5->data) != gen->d.ia5->length) {
+ /* Ignoring IA5String containing null character */
+ continue;
+ }
dns = malloc(gen->d.ia5->length + 1);
if (dns) {
memcpy(dns, gen->d.ia5->data, gen->d.ia5->length);
}
char *
-ssl_get_commonName(ssl) SSL * ssl;
-{
+ssl_get_commonName(ssl) SSL * ssl; {
static char name[256];
+ int name_text_len;
int err;
X509 *server_cert;
+ name_text_len = 0;
if (server_cert = SSL_get_peer_certificate(ssl)) {
- err = X509_NAME_get_text_by_NID(X509_get_subject_name(server_cert),
- NID_commonName, name, sizeof(name));
+ name_text_len =
+ X509_NAME_get_text_by_NID(X509_get_subject_name(server_cert),
+ NID_commonName, name, sizeof(name));
X509_free(server_cert);
}
+ if (name_text_len <= 0) {
+ /* Common Name was empty or not retrieved */
+ err = 0;
+ } else if (strlen(name) != name_text_len) {
+ /* Ignoring Common Name containing null character */
+ err = 0;
+ } else {
+ err = 1;
+ }
if (err > 0)
- return name;
+ return name;
else
- return NULL;
+ return NULL;
}
char *
* with one and linked to the other we use this hack.
*/
if ((gen->type | V_ASN1_CONTEXT_SPECIFIC) == (type | V_ASN1_CONTEXT_SPECIFIC)) {
- if(!gen->d.ia5 || !gen->d.ia5->length)
- break;
+ if (!gen->d.ia5 || !gen->d.ia5->length)
+ break;
+ if (strlen((char *)gen->d.ia5->data) != gen->d.ia5->length) {
+ /* Ignoring IA5String containing null character */
+ continue;
+ }
objs[j] = malloc(gen->d.ia5->length + 1);
if (objs[j]) {
memcpy(objs[j], gen->d.ia5->data, gen->d.ia5->length);
static int
dNSName_cmp(const char *host, const char *dNSName)
{
- int c1 = 0, c2 = 0, num_comp, rv = -1;
+ int c1 = 1, c2 = 1, num_comp, rv = -1;
char *p, *p1, *p2, *host_copy=NULL, *dNSName_copy=NULL;
/* first we count the number of domain name components in both parameters.
{
char prefix[1024];
int ok = 1;
+ setverbosity();
ckmakxmsg(prefix,1024,
"Warning: Hostname (\"", s1,
"\") does not match server's certificate (\"", s2, "\")",
ok = uq_ok(prefix,
"Continue? (Y/N) ",
3, NULL, 0);
- else if (ssl_verbose_flag)
+ else if (verbosity)
printf(prefix);
return(ok);
}
+#ifndef OSF50
#ifndef HPUX10
#ifndef HPUX1100
#ifndef SCO_OSR505
#ifndef OpenBSD
#ifndef FREEBSD4
+#ifndef NETBSD15
#ifndef LINUX
#ifndef AIX41
#ifndef UW7
+#ifndef IRIX65
#ifndef SOLARIS9
#ifndef SOLARIS8
#ifndef SOLARIS7
+#ifndef MACOSX
#ifdef DEC_TCPIP
#define inet_aton INET_ATON
#endif /* DEC_TCPIP */
+
+#ifndef NO_DCL_INET_ATON
static int
inet_aton(char * ipaddress, struct in_addr * ia) {
struct stringarray * q;
}
return(0);
}
+#endif /* NO_DCL_INET_ATON */
+
+#endif /* MACOSX */
#endif /* SOLARIS7 */
#endif /* SOLARIS8 */
#endif /* SOLARIS9 */
+#endif /* IRIX65 */
#endif /* UW7 */
#endif /* AIX41 */
#endif /* LINUX */
+#endif /* NETBSD15 */
#endif /* FREEBSD4 */
#endif /* OpenBSD */
#endif /* SCO_OSR505 */
#endif /* HPUX1100 */
#endif /* HPUX10 */
+#endif /* OSF50 */
int
ssl_check_server_name(SSL * ssl, char * hostname)
struct in_addr ia;
int rv;
- if (ssl_verbose_flag && !inserver) {
+ setverbosity();
+ if (verbosity && !inserver) {
if (dNSName = tls_get_SAN_objs(ssl,GEN_DNS)) {
int i = 0;
for (i = 0; dNSName[i]; i++) {
{
char * str=NULL;
+ setverbosity();
data += 4; /* Point to status byte */
cnt -= 4;
case SSL_ACCEPT:
if (tn_deb || debses)
tn_debug("[SSL - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - handshake starting]\r\n");
debug(F110,"ssl_reply","[SSL - handshake starting]",0);
if (ssl_dummy_flag) {
if (tn_deb || debses)
tn_debug("[SSL - Dummy Connected]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[SSL - Dummy Connected]\r\n");
}
debug(F110,"ssl_reply","[SSL - Dummy Connected]",0);
len = BIO_read(bio_err,ssl_err,SSL_ERR_BFSZ);
ssl_err[len < SSL_ERR_BFSZ ? len : SSL_ERR_BFSZ] = '\0';
printf(ssl_err);
- } else if ( ssl_verbose_flag ) {
+ } else if ( verbosity ) {
printf("[SSL - FAILED]\r\n");
ERR_print_errors(bio_err);
len = BIO_read(bio_err,ssl_err,SSL_ERR_BFSZ);
} else {
if (tn_deb || debses)
tn_debug("[SSL - OK]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[SSL - OK]\r\n");
}
debug(F110,"ssl_reply","[SSL - OK]",0);
ssl_active_flag = 1;
- ssl_display_connect_details(ssl_con,0,ssl_verbose_flag);
+ ssl_display_connect_details(ssl_con,0,verbosity);
}
}
auth_finished(AUTH_UNKNOWN);
if (tn_deb || debses) {
tn_debug(
"[SSL - failed to switch on SSL - trying plaintext login]");
- } else if ( ssl_verbose_flag ) {
+ } else if ( verbosity ) {
printf("[SSL - failed to switch on SSL]\r\n");
printf("Trying plaintext login:\r\n");
}
if ((cnt -= 4) < 1)
return AUTH_FAILURE;
+ setverbosity();
data += 4;
switch(*data++) {
case SSL_START:
if (tn_deb || debses)
tn_debug("[SSL - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - handshake starting]\r\n");
debug(F110,"ssl_is","[SSL - handshake starting]",0);
if (ssl_dummy_flag) {
if (tn_deb || debses)
tn_debug("[SSL - Dummy Connected]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[SSL - Dummy Connected]\r\n");
}
debug(F110,"ssl_is","[SSL - Dummy Connected]",0);
tn_debug(errbuf);
else if ( ssl_debug_flag )
printf("%s\r\n",errbuf);
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - SSL_accept error]\r\n");
debug(F110,"ssl_is",errbuf,0);
if (tn_deb || debses)
tn_debug("[SSL - OK]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[SSL - OK]\r\n");
}
debug(F110,"ssl_is","[SSL - OK]",0);
ssl_active_flag = 1;
- ssl_display_connect_details(ssl_con,1,ssl_verbose_flag);
+ ssl_display_connect_details(ssl_con,1,verbosity);
/* now check to see that we got exactly what we
* wanted from the caller ... if a certificate is
if ( !ck_ssleay_is_installed() )
return(-1);
+ setverbosity();
if (sstelnet) {
/* server starts the TLS stuff now ... */
if (!tls_only_flag) {
if (tn_deb || debses)
tn_debug("[TLS - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - handshake starting]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - handshake starting]",0);
if (ssl_dummy_flag) {
if (tn_deb || debses)
tn_debug("[TLS - Dummy Connected]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[TLS - Dummy Connected]\r\n");
}
debug(F110,"ck_tn_tls_negotiate","[TLS - Dummy Connected]",0);
tn_debug(errbuf);
else if ( ssl_debug_flag )
printf("%s\r\n",errbuf);
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - SSL_accept error]\r\n");
debug(F110,"ck_tn_tls_negotiate",errbuf,0);
if (tn_deb || debses)
tn_debug("[TLS - OK]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[TLS - OK]\r\n");
}
debug(F110,"ck_tn_tls_negotiate","[TLS - OK]",0);
tls_active_flag = 1;
- ssl_display_connect_details(tls_con,1,ssl_verbose_flag);
+ ssl_display_connect_details(tls_con,1,verbosity);
#ifdef SSL_KRB5
NID_commonName,str,
256
);
- if ( ssl_verbose_flag )
+ if ( verbosity )
printf("[TLS - commonName=%s]\r\n",str);
X509_NAME_get_text_by_NID(X509_get_subject_name(peer),
str,
256
);
- if ( ssl_verbose_flag )
+ if ( verbosity )
printf("[TLS - uniqueIdentifier=%s]\r\n",str);
/* Try to determine user name */
if (tn_deb || debses)
tn_debug("[TLS - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - handshake starting]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - handshake starting]",0);
if (ssl_dummy_flag) {
if (tn_deb || debses)
tn_debug("[TLS - Dummy Connected]");
- else if ( ssl_verbose_flag ) {
+ else if ( verbosity ) {
printf("[TLS - Dummy Connected]\r\n");
}
debug(F110,"ck_tn_tls_negotiate","[TLS - Dummy Connected]",0);
len = BIO_read(bio_err,ssl_err,SSL_ERR_BFSZ);
ssl_err[len < SSL_ERR_BFSZ ? len : SSL_ERR_BFSZ] = '\0';
printf(ssl_err);
- } else if ( ssl_verbose_flag ) {
+ } else if ( verbosity ) {
printf("[TLS - FAILED]\r\n");
ERR_print_errors(bio_err);
len = BIO_read(bio_err,ssl_err,SSL_ERR_BFSZ);
{
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - FAILED]",0);
auth_finished(AUTH_REJECT);
if (!ok) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
} else if (ssl_check_server_name(tls_con, szHostName)) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
if (tn_deb || debses)
tn_debug("[TLS - OK]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - OK]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - OK]",0);
- ssl_display_connect_details(tls_con,0,ssl_verbose_flag);
+ ssl_display_connect_details(tls_con,0,verbosity);
}
auth_finished(AUTH_REJECT);
}
int timo = 2000;
+ setverbosity();
if ( !ck_ssleay_is_installed() )
return(-1);
if (tls_only_flag) {
if (tn_deb || debses)
tn_debug("[TLS - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - handshake starting]\r\n");
debug(F110,"ck_ssl_incoming","[TLS - handshake starting]",0);
tn_debug(errbuf);
else if ( ssl_debug_flag )
printf("%s\r\n",errbuf);
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - SSL_accept error]\r\n");
debug(F110,"ck_ssl_incoming",errbuf,0);
} else {
if (tn_deb || debses)
tn_debug("[TLS - OK]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - OK]\r\n");
debug(F110,"ck_ssl_incoming","[TLS - OK]",0);
tls_active_flag = 1;
} else if (ssl_only_flag) {
if (tn_deb || debses)
tn_debug("[SSL - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - handshake starting]\r\n");
debug(F110,"ck_ssl_incoming","[SSL - handshake starting]",0);
tn_debug(errbuf);
else if ( ssl_debug_flag )
printf("%s\r\n",errbuf);
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - SSL_accept error]\r\n");
debug(F110,"ck_ssl_incoming",errbuf,0);
} else {
if (tn_deb || debses)
tn_debug("[SSL - OK]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - OK]\r\n");
debug(F110,"ssl_is","[SSL - OK]",0);
ssl_active_flag = 1;
{
int timo = 2000;
+ setverbosity();
if ( !ck_ssleay_is_installed() )
return(-1);
#endif /* USE_CERT_CB */
if (tn_deb || debses)
tn_debug("[TLS - handshake starting]");
- else if (ssl_verbose_flag)
+ else if (verbosity)
printf("[TLS - handshake starting]\r\n");
debug(F110,"ck_ssl_outgoing","[TLS - handshake starting]",0);
if (SSL_connect(tls_con) <= 0) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,"ck_ssl_outgoing","[TLS - FAILED]",0);
netclos();
{
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - FAILED]",0);
if (!ok) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
} else if (ssl_check_server_name(tls_con, szHostName)) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
return -1;
}
}
-
- printf("[TLS - OK]\r\n");
if (tn_deb || debses)
tn_debug("[TLS - OK]");
+ else if (!quiet)
+ printf("[TLS - OK]\r\n");
debug(F110,"ck_ssl_outgoing","[TLS - OK]",0);
- ssl_display_connect_details(tls_con,0,ssl_verbose_flag);
+ ssl_display_connect_details(tls_con,0,verbosity);
}
}
/* if we are doing raw SSL then start it now ... */
#endif /* USE_CERT_CB */
if (tn_deb || debses)
tn_debug("[SSL - handshake starting]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - handshake starting]\r\n");
debug(F110,"ck_ssl_outgoing","[SSL - handshake starting]",0);
if (SSL_connect(ssl_con) <= 0) {
}
if (tn_deb || debses)
tn_debug("[SSL - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - FAILED]\r\n");
debug(F110,"ck_ssl_outgoing","[SSL - FAILED]",0);
return(-1);
{
if (tn_deb || debses)
tn_debug("[SSL - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - FAILED]\r\n");
debug(F110,"ck_tn_tls_negotiate","[SSL - FAILED]",0);
if (!ok) {
if (tn_deb || debses)
tn_debug("[SSL - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[SSL - FAILED]",0);
} else if (ssl_check_server_name(ssl_con, szHostName)) {
if (tn_deb || debses)
tn_debug("[SSL - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[SSL - FAILED]\r\n");
debug(F110, "ck_tn_tls_negotiate","[SSL - FAILED]",0);
auth_finished(AUTH_REJECT);
return -1;
}
}
-
- printf("[SSL - OK]\r\n");
if (tn_deb || debses)
tn_debug("[SSL - OK]");
+ else if (!quiet)
+ printf("[SSL - OK]\r\n");
debug(F110,"ck_ssl_outgoing","[SSL - OK]",0);
- ssl_display_connect_details(ssl_con,0,ssl_verbose_flag);
+ ssl_display_connect_details(ssl_con,0,verbosity);
}
}
return(0); /* success */
if ( !ck_ssleay_is_installed() )
return(-1);
+ setverbosity();
+
/* bind in the network descriptor */
SSL_set_fd(tls_http_con,fd);
#endif /* USE_CERT_CB */
if (tn_deb || debses)
tn_debug("[TLS - handshake starting]");
- else if (ssl_verbose_flag)
+ else if (verbosity)
printf("[TLS - handshake starting]\r\n");
debug(F110,"ck_ssl_outgoing","[TLS - handshake starting]",0);
if (SSL_connect(tls_http_con) <= 0) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,"ck_ssl_http_client","[TLS - FAILED]",0);
http_close();
{
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,"ck_tn_tls_negotiate","[TLS - FAILED]",0);
return -1;
if (!ok) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
} else if (ssl_check_server_name(tls_http_con, hostname)) {
if (tn_deb || debses)
tn_debug("[TLS - FAILED]");
- else if ( ssl_verbose_flag )
+ else if ( verbosity )
printf("[TLS - FAILED]\r\n");
debug(F110,
"ck_tn_tls_negotiate","[TLS - FAILED]",0);
if (tn_deb || debses)
tn_debug("[TLS - OK]");
debug(F110,"ck_ssl_outgoing","[TLS - OK]",0);
- ssl_display_connect_details(tls_http_con,0,ssl_verbose_flag);
+ ssl_display_connect_details(tls_http_con,0,verbosity);
}
}
return(0); /* success */
for (i = 0; i < sk_GENERAL_NAME_num(ialt); i++) {
gen = sk_GENERAL_NAME_value(ialt, i);
if (gen->type == GEN_DNS) {
- if(!gen->d.ia5 || !gen->d.ia5->length)
- break;
+ if (!gen->d.ia5 || !gen->d.ia5->length)
+ break;
+ if (strlen(gen->d.ia5->data) != gen->d.ia5->length) {
+ /* Ignoring IA5String containing null character */
+ continue;
+ }
if ( gen->d.ia5->length + 1 > sizeof(email) ) {
goto cleanup;
}
/*
C K _ S S L . H -- OpenSSL Interface Header for C-Kermit
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2005,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
* definitions there is no reason to have it included by openssl/evp.h
*/
#define OPENSSL_NO_MDC2
+#ifdef OPENSSL_100
+#define OPENSSL_098
+#endif /* OPENSSL_100 */
+#ifdef OPENSSL_098
+#define OPENSSL_097
+#endif /* OPENSSL_098 */
+#ifdef CK_DES
#include <openssl/des.h>
+#endif /* CK_DES */
#include <openssl/ssl.h>
#include <openssl/x509v3.h>
#include <openssl/rand.h>
extern int x509_cert_valid;
extern X509_STORE *crl_store;
+extern int ssl_raw_flag;
+extern int tls_raw_flag;
+
#ifndef NOHTTP
extern SSL_CTX *tls_http_ctx;
extern SSL *tls_http_con;
_PROTOTYP(int tls_is_krb5,(int));
_PROTOTYP(int X509_userok,(X509 *,const char *));
_PROTOTYP(int ck_X509_save_cert_to_user_store,(X509 *));
+/* SMS 2007/02/15 */
+_PROTOTYP(int ssl_check_server_name,(SSL * ssl, char * hostname));
#ifdef OS2
#include "ckosslc.h"
#include "ckossl.h"
-ckaaaa.txt 10 Apr 2004
+ckaaaa.txt July 2011
- C-KERMIT VERSION 8.0.211
- OVERVIEW OF FILES
+ C-KERMIT VERSION 9.0.301
+ OVERVIEW OF FILES
- Communications software for UNIX and (Open)VMS.
+ Communications software for UNIX and (Open)VMS.
- And in former versions also for:
- Stratus VOS, AOS/VS, QNX,
- Plan 9, OS-9, Apollo Aegis, and the Commodore Amiga.
- The Apple Macintosh, the Atari ST.
+ And in former versions also for:
+ Stratus VOS, AOS/VS, QNX,
+ Plan 9, OS-9, Apollo Aegis, and the Commodore Amiga.
+ The Apple Macintosh, the Atari ST.
- The Kermit Project - Columbia University
+ The Kermit Project - Columbia University
- http://www.columbia.edu/kermit/ - kermit@columbia.edu
+ http://kermit.columbia.edu/ - kermit@columbia.edu
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
+ BRIEFLY: C-Kermit 9.0 has the OPEN SOURCE 3-clause MODIFIED BSD LICENSE.
DOCUMENTATION
C-Kermit is documented in the book "Using C-Kermit", Second Edition, by
Frank da Cruz and Christine M. Gianone, Digital Press, ISBN 1-55558-164-1,
- supplementated by Web-based updates for C-Kermit 7.0 and 8.0.
+ supplemented by Web-based updates for C-Kermit 7.0, 8.0, and 9.0.
PLATFORMS
Security
Name Included Last Updated
- Unix Yes 8.0.211 10 Apr 2004
- (Open)VMS No 8.0.208 10 Apr 2004
+ Unix Yes 9.0.300 30 Jun 2011
+ (Open)VMS Yes 9.0.300 30 Jun 2011
Windows (K95) Yes 8.0.208 14 Mar 2003 (K95 2.1)
OS/2 (K95) Yes 8.0.208 14 Mar 2003 (K95 2.1)
DG AOS/VS No 7.0.196 1 Jan 2000
C-Kermit for VMS:
If you have VMS UNZIP, get the file kermit/archives/ckv211.zip in binary
- mode, unzip, and build with CKVKER.COM.
+ mode, unzip -aa, and build with CKVKER.COM (@ckvker.com). Read the comments
+ at the top of CKVKER.COM for details.
Others: In the kermit/f or kermit/test directories under the appropriate
prefixes, explained below.
INSTALLATION
-Installation procedures depend on the system. Please read the CK?INS.TXT,
-if any, file for your system (?=U for UNIX, V for VMS, etc). Please note
-the naming and placement for the initialization files:
+Installation procedures depend on the operating system. Please read the
+CK?INS.TXT, if any, file for your operating system (?=U for UNIX, V for VMS,
+etc). Please note the naming and placement for the initialization files:
CKERMIT.INI
- The standard initialization file. Please leave it as is unless you
- know what you are doing and (if you are changing it or replacing it
- for others to use) you are prepared to support it. Rename this file
- to .kermrc in UNIX, OS-9, BeBox, or Plan 9. In Stratus VOS, rename
- it ckermit.ini (lowercase). On multiuser systems, it goes either in the
- (or EACH) user's home (login) directory, or else in a common shared
- place if C-Kermit has been configured to look in that place (see
- ckccfg.txt for details).
+ .kermrc in the user's home directory (UNIX).
+ CKERMIT.INI in the user's home directory (other OS's).
+
CKERMOD.INI
- A *sample* customization file. On multiuser OS's, a copy of this file
- goes in each user's home directory, and then each user edits it to suit
- her needs and preferences; e.g. by defining macros for their common
- connections.
+ .mykermrc in the user's home directory (UNIX).
+ CKERMOD.INI elsewhere.
DIALING DIRECTORIES
Dialing directory files can be system-wide, per-group, or per-user, or
y: (reserved)
z: (reserved)
0-3: (reserved)
- 4: IBM AS/400 (reserved)
+ 4: IBM AS/400 (reserved but probably never will be used)
5-8: (reserved)
9: Microware OS-9
ckd*.cli - Procedures for building AOS/VS C-Kermit
The following files are of interest mainly to programmers and historians
-(find them at the Kermit ftp site):
+(find them at the Kermit ftp site in the kermit/f directory):
ckcker.ann - Release announcements.
ckccfg.txt - Configuration information (feature selection), general.
ckcplm.txt - Program logic manual (for programmers).
+ ckc300.txt - Program update history for edit 212-300 (C-Kermit 9.0).
ckc211.txt - Program update history for edit 201-211.
ckc200.txt - Program update history for edit 198-200 (big)
ckc197.txt - Program update history for edit 195-197 (big)
If you have FTP access to kermit.columbia.edu (also known as
kermit.cc.columbia.edu, ftp.cc.columbia.edu), you can also retrieve various
-C-Kermit binaries from the directory kermit/bin/ck*.*, or more conventiently
+C-Kermit binaries from the directory kermit/bin/ck*.*, or more conveniently
from the web page:
http://www.columbia.edu/kermit/ck80binaries.html
password: (use your email id as a password)
cd kermit/archives (go to the archives directory)
type binary (specify binary file transfer)
- get cku211.tar.Z (get the tar archive) (or get cku192.tar.gz)
+ get cku300.tar.Z (get the tar archive) (or get cku192.tar.gz)
bye (disconnect and exit from ftp)
- uncompress cku211.tar.Z (at the shell prompt, uncompress the archive)
- tar xvf cku211.tar (extract the files from the tar archive)
+ uncompress cku300.tar.Z (at the shell prompt, uncompress the archive)
+ tar xvf cku300.tar (extract the files from the tar archive)
make xxx (build C-Kermit for your system)
(where "xxx" is the makefile entry appropriate for your system.)
Minimal source files for building selected versions (these patterns get all
the files you need, and in some cases maybe a few extra):
- UNIX: ck[cuw]*.[cwh] (including QNX, Plan 9, and BeBox)
- UNIX: ck[cuw_]*.[cwh] (Unix with security modules)
- VMS: ck[cuwv]*.[cwh]
- Mac: ck[cuwm]*.[cwhr]
+ UNIX: ck[cuw]*.[cwh] (including QNX, Plan 9, and BeBox)
+ UNIX: ck[cuw_]*.[cwh] (Unix with security modules)
+ VMS: ck[cuwv]*.[cwh] VMS
+ VMS: ck[cuwv_]*.[cwh] VMS with SSL/TLS
+ Mac: ck[cuwm]*.[cwhr] Old Mac OS, not Mac OS X, which is UNIX.
AOS/VS: ck[cuwd]*.[cwh]
VOS: ck[cwhl]*.[cwh]
Amiga: ck[cuwi]*.[cwh]
Atari: ck[cuws]*.[cwh]
OS-9: ck[cuw9]*.[cwha]
-For a detailed, specific source file list for this C-Kermit release, see the
-file ckcxxx.txt, where xxx is the current C-Kermit edit number, such as 211.
-
Finally, here is a more detailed description of the C-Kermit file naming
conventions. A C-Kermit filename has the form:
nr: Nroff/Troff text formatter source for UNIX "man page"
mss: Scribe text formatter source
ps: Typeset material to be printed on a PostScript printer
+ pdf: An Adobe PDF file
hlp: A VMS Help topic
ini: Initialization file
plm: Program Logic Manual
ker: General C-Kermit definitions, information, documentation
- nnn: Digits: C-Kermit edit number (e.g. cku211.tar.gz)
+ nnn: Digits: C-Kermit edit number (e.g. cku300.tar.gz)
cmd: Command parsing
con: CONNECT command
cns: CONNECT command (UNIX only - version that uses select(), not fork())
deb: Debug/Transaction Log formats, Typedefs
dia: Modem/Dialer control
- fio: System-depdendent File I/O
+ fio: System-dependent File I/O
fns: Protocol support functions
fn2: More protocol support functions (and FN3, ...)
lib: Common library routines module
+++ /dev/null
-C-KERMIT CHANGE LOG (Changes since 8.0.200 of 12 Dec 2001)
-
-Chronological order: Go to the bottom to find the newest edits.
-
----8.0.200---
-
-Known bugs (+ = fixed after release):
-
- + 1. tilde_expand() can call getcwd() with NULL arg.
- + 2. getexedir() called too early (fatal in combination with (1)).
- + 3. Kermit "get blah" where blah is a symlink; server refuses to send it.
- Should not do this if GET not recursive.
- ? 4. Dave Sneddon's report about VMS fore/background confusion.
- + 5. FTP GET path/file doesn't work - path not stripped - but MGET works.
- + 6. IRIX 5.3 compilation problems (have patches from Marcus Herbert)
- X 7. Filename completion bug (see below) (deferred).
- + 8. QNX6 herald and other problems.
-
--------------
-
-Merged Jeff's changes, 20 Dec 2001:
-
- . Changed all occurrences of "ttnproto == NP_TELNET" to "IS_TELNET()" to
- account for the difference between SSH and Telnet. ckuscr.c,
- ckuus[3457].c, ckcnet.h, ckcfns.c, ckudia.c, ckutio.c, ckucon.c, ckucns.c.
-
- . Moved SSH pty failure warnings. ckuusr.c.
-
- . Security adjustments to FTP module, plus fix an error message. ckcftp.c.
-
- . Adjustment of some security-related #ifdefs. ckcdeb.h, ckuus2.c, ckctel.c.
-
- . Guard against calling getpwnam() with a NULL arg in tilde_expand() ckufio.c.
-
- . Moved getexedir() call to later, where it's safe. ckcmai.c.
-
-Added SSH ADD and many SSH SET commands from Jeff's spec. Fixed SHOW SSH
-to not dump core if variables weren't set. ckcker.h, ckuus[r3].c, 20 Dec 2001.
-
-C-Kermit in server mode, client says "get foo" where foo is a symlink.
-Server says "no files meet selection criteria" instead of sending the file.
-It should only refuse to follow symlinks if it's a recursive get. Fixed
-in sgetinit(): ckcpro.w, 21 Dec 2001.
-
-More work on SSH and SET/SHOW SSH commands. ckuus[r3].c, 21 Dec 2001.
-
-Undid Jeff's replacement of the SSH pseudoterminal allocation failure
-message, because now it comes out any time an SSH command has to be
-reparsed (in the non-SSHBUILTIN case). ckuusr.c, 21 Dec 2001.
-
-More SSH and SET SSH command work back & forth with Jeff, plus Jeff added
-SET HOST /NET:SSH. ckcmai.c, ckuus[r37].c, ckcdeb.h, ckuusr.h, 22 Dec 2001.
-
-Added SSH OPEN switches. ckuusr.c, 22 Dec 2001.
-
-Added SSH CLEAR, HELP SSH, and HELP SET SSH. ckuus[r2].c, 23 Dec 2001.
-
-From Jeff:
- . SET TCP commands now apply to SSH
- . SSH V2 REKEY and FORWRD-{LOCAL,REMOTE}-PORT commands now implemented
- . Missing DLLs automatically disable appropriate authentication mechanisms.
-ckuusr.c ckcnet.c ckuus3.c ckcmai.c ckcnet.h ckuus4.c, 26 Dec 2001.
-
-From Jeff:
- . Remove SET SSH KEEPALIVES.
- . Add help text for SSH AGENT { ADD, DELETE, LIST }.
-ckuus[23].c, 28 Dec 2001.
-
-Added parsing for SSH AGENT { ADD, DELETE, LIST }. ckuusr.c, 28 Dec 2001.
-
-From Jeff:
- . Fixed a crash that can happen when making an SSH connection.
- . Filled in SSH AGENT actions.
- . Changed default for strict host key check (to ASK) and help text.
- . uploaded new binaries include ~kermit/os2test/beta/ssh-agent.exe
- . Read man ssh-agent on ftp.kermit.columbia.edu for details on what it does.
-ckuus[r23].c, 28 Dec 2001.
-
-"ftp get path/filename" didn't work; the FTP client did not strip the path
-from the local copy of the filename when doing a GET, even though it did
-for MGET. Diagnosis: in doftpget(), the "if (!getone && !skipthis)" statement
-lacked an "else" part for the getone case. ckcftp.c, 28 Dec 2001.
-
-A while back Jeff reported that in FTP MGET, if you cancel a file with 'x',
-all the rest of the files arrive truncated to 0 bytes. I tried this on both
-Unix and Windows and couldn't reproduce it.
-
-In the last-minute flurry to release C-Kermit 8.0, I thought I noticed the FTP
-client failing to update the fullscreen file-transfer display. But it seems
-to work right, at least in Unix. When downloading a big file with FTP, all
-the display fields are updated as expected. But smaller files might go by too
-fast for the display to do anything. HOWEVER, in K95 the file transfer
-display does not update itself until the end of the file, even if the file
-takes a long time to transfer. This happens in both the Console and GUI
-versions. A thread thing? (Jeff says no.) Yet the same display works fine
-on Telnet connections.
-
-In IRIX 5.3, the select()-based CONNECT module had to include <sys/time.h>
-or else it blew up with "struct timeval" unknown. Since there already was
-a SYSTIMEH CFLAG, I added the #include within #ifdef SYSTIMEH..#endif and
-rebuilt with KFLAGS=-DSYSTIMEH, only to discover that the irix5* targets
-didn't bother to propogate KFLAGS. Fixed in ckucns.c, makefile, 30 Dec 2001.
-
-Increased IRIX5x Olimit from 2400 to 3000 because of ckuus[34].c. Added
--ansi, since (Marcus Herbert reported) we were not actually getting ANSI-C
-compilation even though CK_ANSIC was defined. But now that we are, we get
-warnings in <netinet/tcp.h>, which is included by ckcnet.h:
-
- bit-field 'th_off' type required to be int, unsigned int, or signed int.
- (3.5.2.1(30))
- u_char th_off:4,
- ------ ^
-Tough. makefile, 30 Dec 2001.
-
-But adding -ansi to the IRIX 5x targets also make compilation bomb whenever we
-referenced fdopen() or popen(), which evidently don't have prototypes in any
-of the header files. Luckily we already have CFLAGS for this occasion too:
-DCLFDOPEN and DCLPOPEN. Added these to the irix51 target. Also had to copy
-the fdopen()-popen() prototype section to ckuusx.c, which has a new reference
-to fdopen() in a workaround for the curses console buffering bug. makefile,
-ckuusx.c, 30 Dec 2001.
-
-The QNX6 version did not receive a proper herald (it announced itself as
-"unknown version". Reshuffled #ifdefs in ckuver.h, added display of QNX6
-and NEUTRINO symbols to ckuus5.c, 30 Dec 2001.
-
-Lucas Hart sent in a patch for the VMS problem. Apparently it was even worse
-than Dave Sneddon had reported: 8.0 couldn't run at all under Batch. ckvtio.c,
-31 Dec 2001.
-
-A major obstacle to the usability of the FTP client is that certain commands
-don't behave as FTP users expect: CD, DIR, DELETE, MKDIR, etc, which are local
-rather remote, and there are no LCD (etc), USER, or ACCOUNT commands. We
-could fix this by adding an FTP command-language personality, but file
-management commands can also be remote or local on connections to Kermit
-servers too. So:
-
-SET LOCUS { LOCAL, REMOTE, AUTO }
- Sets the locus for unprefixed file management commands.
- When LOCAL, a REMOTE (or R) prefix is required for
- to send file management commands to a remote server (e.g. RCD, RDIR).
- When REMOTE, an L prefix is required to issue local file management
- commands (e.g. LCD, LDIR). The word LOCAL can't be used as a prefix
- since it is used for declaring local variables.
-
-This applies to all types of connections, and thus is orthogonal to SET
-GET-PUT-REMOTE, which selects between Kermit and FTP for remote file-transfer
-and management commands.
-
-The default LOCUS is AUTO, which means we switch to REMOTE whenever an FTP
-connection is made, and to LOCAL whenever a non-FTP connection is made,
-and switch back accordingly whenever a connnection is closed.
-
-Implementation (31 Dec 2001):
- . None of this is compiled if LOCUS is not defined.
- . Added XYLOCUS (SET LOCUS) and LOCUS definitions: ckuusr.h.
- . Override by defining NOLOCUS (which inhibits definition of LOCUS).
- . Added LOCUS to SET keyword table: ckuusr.c.
- . Added locus & autolocus variables: ckuusr.c.
- . Added SET LOCUS parsing and variable setting: ckuus3.c.
- . Added display of LOCUS setting to SHOW COMMAND: ckuus5.c.
- . Added automatic locus setting to setlin(): ckuus7.c.
- . Added automatic locus setting to ftpopen() and ftpclose(): ckcftp.c.
-
-How to catch all the places where a Kermit connection is closed? Turns out
-we've done this before, when we added the connection log. So I made
-dologend() take care of locus switching. But dologend() was not compiled in
-if certain symbols were defined, such as NOLOCAL, or not defined, such as
-CKLOGDIAL. So I (a) rearranged the #ifdefs so that even if these would
-otherwise have obliviated dologend(), now they leave a piece of it for
-locus-setting; (b) moved the prototype out of #ifdefs; and (c) took all calls
-to it out of #ifdefs. ckcker.h, ckcfn2.c, ckcmai.c, ckucns.c, ckucon.c,
-ckuus[r347x].c, 31 Dec 2001.
-
-Added locus checking to the following commands: DIRECTORY, CD/CWD, CDUP,
-DELETE, PWD, MKDIR, RMDIR, RENAME. ckuusr.c, 31 Dec 2001.
-
-Added LDIRECTORY, LCD/LCWD, LCDUP, LDELETE, LPWD, LMKDIR, LRMDIR,
-LRENAME. ckuusr.[ch], 31 Dec 2001.
-
-Added USER and ACCOUNT commands, which are the same as FTP USER and FTP
-ACCOUNT. ckuusr.[ch], ckcftp.c, 31 Dec 2001.
-
-Since automatic locus switching could be a big surprise for most people, I
-printed message any time it changed. ckcftp.c, ckuus[37].c, 31 Dec 2001.
-
-Added help text for the new L commands and filled in missing HELP text for
-SET GET-PUT-REMOTE, CDUP, MKDIR, and RMDIR. ckuus2.c, 31 Dec 2001.
-
-Changed help text of CD, DIR, etc, for LOCUS. Changed the help text for
-RCD, RPWD, RDEL, RDIR, etc, to mention that they also work with FTP servers.
-Updated HELP REMOTE for this too. ckuus2.c, 31 Dec 2001.
-
-Made sure code builds with NOLOCAL, NOLOGDIAL, and NOLOCUS (it does).
-
-The IKSD command, when given with a /USER: switch, sends the user ID to the
-IKSD. But the SET HOST /USER: command does not, when making a connection to a
-Kermit service. This makes it impossible to script IKSD interactions using
-only client commands. Furthermore, even if you include a /PASSWORD switch
-with the IKSD command, it does not send the password. I added code near the
-bottom of setlin() to do this. If we have a connection to a Kermit service
-and a /USER: switch was given, then we attempt a REMOTE LOGIN. If a
-/PASSWORD: switch was not given then if the username is "ftp" or "anonymous",
-we automatically supply a password of user@host; otherwise we prompt for a
-password. If a /USER: switch was not given, it acts like before. It all
-works, but it might not be the best way (or place) to do it. setlin():
-ckuus7.c, 31 Dec 2001.
-
- NOTE: The above change doesn't help with IKSD /USER:anonymous,
- the server prompts for password anyway, not sure why.
-
- NOTE 2: What about secure authentication? We have to test to see
- if user was already authenticated before sending the login packet.
-
-Added /opt/kermit and /opt/kermit/doc to info_dir[] list (for Solaris).
-ckuus5.c, 31 Dec 2001.
-
-From Jeff: new Help text for SET TERM FONT (K95 GUI). ckuus2.c, 1 Jan 2002.
-
-More work on help text for file management commands -- e.g. we can't lump
-the L-commands together with the unprefixed ones; they need separate entries.
-Also: added missing HELP REMOTE PWD, improved the default case (in which
-help text had been omitted for a valid command). ckuus2.c, 1 Jan 2002.
-
-It seems VMS C-Kermit was pretty much ignoring the -B (force background) and
--z (force foreground) command-line options. Fixed in congm(): ckvtio.c,
-1 Jan 2002.
-
-Tested the SET LOCUS business with VMS C-Kermit, which does not have a
-built-in FTP client. Of course in this case there is no automatic locus
-switching, but SET LOCUS REMOTE works nicely on IKSD connections.
-
-From Jeff:
- . #ifdef adjustments for LOCUS changes.
- . SSH KEY CREATE /TYPE:SRP.
- . Fix \v(serial) to not be 8N2 by default if speed is 0.
- . Don't let doexit() run if sysinit() hasn't been called first.
-ckuus[r247x].c, 2 Jan 2002.
-
-Made SET BACKGROUND { ON, OFF } do exactly the same as -B and -z options.
-ckuus3.c, 2 Jan 2002.
-
-Updated user-visible copyright dates to 2002 (but still need to do all the
-source-module comments). ckcmai.c, ckuus[25].c, 2 Jan 2002.
-
-Rearranged #include <sys/time.h> in ckucns.c that was done for IRIX 5.3,
-to avoid conflicts in SV/68 R3v6. 3 Jan 2002.
-
-From Dave Sneddon: Code changes in VMS sysinit() and congm() to work around
-problems in batch, SPAWN'd, etc, and change CTTNAM from TT: to SYS$INPUT:.
-ckcdeb.h, ckvtio.c, 3 Jan 2002.
-
-From Jeff:
- . Fixed typo in definition of CTTNAM for VMS. ckcdeb.h
- . Moved macro definitions for SSHBUILTIN from ckuus3.c to ckuusr.h
- so they can be referenced in ckuus7.c
- . Added SSH functionality to SET HOST:
- SET HOST /NET:SSH /CONNECT hostname [port] /switches
- . Fixed SET NET TYPE so it won't reject SSH if SSH is installed.
- . Changes to allow IKSD to continue functioning. Somehow this minor change
- to ckcmai.c got lost in one of the back and forth exchanges.
- . HELP TEXT for UCS2 kverb
- . Fix a problem in K95 where multiple threads could be attempting to
- send a telnet negotiation simultaneously.
-ckcmai.c ckcdeb.h ckuus2.c ckuus3.c ckuusr.c ckuusr.h ckuus7.c ckctel.c
-ck_crp.c ckuat2.h ckuath.c, 4 Jan 2002.
-
-From Jeff:
-
- Peter Runestig complaining that the Telnet Forward X code was corrupting
- data. This resulted in a very thorough examination of the telnet module
- code and a discovery of some rather significant problems. The root of the
- problems is the lack of thread safety. To correct this problem the
- following was done.
-
- All code (regardless of module) which outputs telnet commands is placed
- into a mutex region to ensure that competing output threads do not result
- in interleaving their output. This could happen for instance when the
- forward-x thread is forwarding data and the user changes the window size
- or sends an AYT or BREAK. Next the buffer used for input and output
- processing were identical. This means that output data could be treated
- as input or vice versa. Ugh....
-
- I also spent some more time cleaning up setlin(). Mostly reorganizing the
- code into single if (...) blocks so that breaking it up will be easier.
-
-ckctel.c ckuus7.c, 4 Jan 2002.
-
-Updated internal copyright notices. All modules, 5 Jan 2002.
-
-From Jeff:
- More of same, plus new makefile target and changes from Spike Gronim
- for freebsd44+srp+openssl.
-ckcdeb.h ckcnet.c ckctel.c ckuus7.c ck_ssl.c makefile, 5 Jan 2002.
-
-Some minor updates and fixes to SSH and SET SSH help text.
-ckuus2.c, 6 Jan 2002.
-
-Added SET RGB-COLORS for GUI. ckuusr.[ch], ckuus3.c, 6 Jan 2002.
-
-From Jeff: More Telnet changes, Debug semaphores for K95, etc: ckcdeb.h,
-ckuusr.h, ckuus[r35x].c, ckctel.[ch], ckuath.c, 7 Jan 2002.
-
-Added --xpos:n --ypos:n, SET GUI WINDOW POSITION x y, and changed SET
-RGB-COLORS to SET GUI RGBCOLOR. Action needs to be filled in (in setguiwin()
-in ckuus3.c), and gui_xpos and gui_ypos need to be defined in cko???.c.
-ckuusr.h, ckuus[r3y].c, 7 Jan 2002.
-
-Added --fontname:name --fontsize:name (and facename as synonym for fontname).
-ckuusr.h, ckuus[7y].c, 7 Jan 2002.
-
-Moved GUI (not OS/2) SET TERM FONT code in ckuus7.c to its own routine,
-setguifont(), in ckuus3.c, and made GUI SET TERM FONT call this routine,
-and also made SET GUI FONT call the same routine. ckuus[37].c, 7 Jan 2002.
-
-Added --termtype:, --height:, --width:, --user:. Also added symbols for
---telnet:, --ssh:, --ftp:, --[remote-]charset, and --password:, but didn't
-fill them in. --password: is probably not a good idea (but we allow it for
-FTP); the others involve a lot of code-shuffling and reconciliation, which
-I'll try to do when I get a chance (especially the connection ones, which
-can be done as part of the setlin() restructuring). ckuusr.h, ckuusy.c,
-8 Jan 2002.
-
-Also I tried commenting out the #ifndef KUI..#endif's around SET TERMINAL
-CHARACTER-SET (easier said than done because a crucial #endif was mislabeled).
-Let's see if it compiles & works... ckuus7.c, 8 Jan 2002
-
-Added FTP [ OPEN ] /NOINIT, meaning don't send REST, STRU, and MODE commands
-upon making an FTP connection. This allows connection to servers that close
-the connection (or worse) when given these commands (e.g. Linux 2.4 TUX 2.0
-FTP server). ckcftp.c, 8 Jan 2002.
-
-Looked at adding caller ID support for the ANSWER command:
-
- . SET ANSWER CALLER-ID { ON, OFF }
- . SET ANSWER RINGS <number>
- . \v(callid_xxx) xxx = { date, time, name, nmbr, mesg }
- . CKD_CID modem capability
- . Set CKD_CID for modems that have it.
- . A quick survey shows:
- - USR V.90: No (but Jeff says some USRs have it).
- - V.250: No
- - Lucent Venus: No
- - USR: #CID=1 (the ones that have it -- X2?)
- - Diamond Supra: #CID=1
- - Rockwell 56K: #CID=1
- - PCTEL: #CID=1
- - Zoltrix: +VCID=1
- - Conexant: +VCID=1
- . Since there are different commands to enable caller ID reporting,
- we need a new field in struct MDMINF.
- . SHOW MODEM and SHOW DIAL would need updating.
- . etc etc...
-
-This is all way too much for now so I just did the setting of the \v(callid_*)
-variables. These are reset at the beginning of an ANSWER command, and then
-set by the ANSWER command if they come in; thus they persist from the time
-they are collected until another ANSWER command is given. To take advantage
-of autoanswer, the user has to enable it in the modem (all the modems I found
-that support it have it disabled by default), and also has to set the number
-of rings to at least 2. This can be done with (depending on the modem):
-
- set modem command autoanswer on ATS0=2#CID=1\{13}
- set modem command autoanswer on ATS0=2+VCID=1\{13}
-
-and undone with:
-
- set modem command autoanswer on ATS0=1#CID=0\{13}
- set modem command autoanswer on ATS0=1+VCID=0\{13}
-
-The variables can be accessed only after the call is answered. Therefore the
-only way to refuse a call is to answer it, inspect the variables, and then
-hang it up if desired. Future Kermit releases can do this more nicely (as
-sketched out above.) Also while I was in the dialing code, I added result
-code VCON (= VOICE), used by several of the newer modems. These changes are
-untested. The SET ANSWER command is written but commented out. ckuusr.h,
-ckcker.h, ckuus[r3].c, ckudia.c, 8 Jan 2002.
-
-From Jeff: fixes to --termtype:, --height:, --width:, --user:, and filling in
-of --rcharset:, which required extracting code from settrm() into a separate
-parse-method-independent remote character-set setting routine. ckuus[7y].c,
-8 Jan 2002.
-
-From Jeff: More work on TERMINAL CHARACTER-SET code reorganization, and
-reinstatement of SET TERMINAL CHARACTER-SET in K95G. Also, fix char/CHAR
-warnings in Telnet module. ckuus7.c, ckctel.c, 9 Jan 2002.
-
-Made SET TERM CHARACTER-SET visible for all builds, including K95G, and filled
-in HELP text for it. ckuus[27].c, 9 Jan 2002.
-
-Added help text for new extended options. ckuusy.c, 9 Jan 2002.
-
-Commented out the return(-2) statement at the end of xgnbyte() to make the
-"Statement not reached" errors go away, after checking to make sure that there
-was no path that could fall through to the end. I'm 99.99% sure there isn't,
-but that doesn't mean that some compilers might not still complain. ckcfns.c,
-9 Jan 2002.
-
-From Jeff: fix typo in the K95 extended-option help text; add more
-semaphores to network i/o. ckuusy.c, ckcnet.c, 10 Jan 2002.
-
-Undid ansiisms in set{lcl,rem}charset() declarations. ckuus7.c, 10 Jan 2002.
-
-Removed a duplicated clause from the install target. makefile, 10 Jan 2002.
-
-From Jeff: more semaphores. ckcnet.c, 11 Jan 2002.
-
-Moved references to tmpusrid and tmpstring out of NOSPL #ifdefs -- they can
-be used with NOSPL. setlin(): ckuus7.c, 13 Jan 2002.
-
-Made a dummy dologend() routine outside of #ifndef NOICP, so we don't have
-to enclose every reference to dologend in #ifdefs. (I had added a bunch of
-calls to dologend() throughout the code to handle automatic LOCUS switching.)
-ckuus3.c, 13 Jan 2002.
-
-Moved "extern int nettype" outside of NOICP #ifdefs in ckuus4.c for NOICP
-builds. 13 Jan 2002.
-
-Moved a misplaced #ifdef in the VERSION command. ckuusr.c, 13 Jan 2002.
-
-Did 81 different feature-selection builds on Linux (RH 7.0), all OK after the
-changes listed above for today. 13 Jan 2002.
-
-Added prototypes for set{rem,lcl}charset(). ckcxla.h, 13 Jan 2002.
-
-Added ckcxla.h to dependencies for ckuusy.c. ckvker.com, 13 Jan 2002.
-
-Made a correction to the HELP SET LOCUS text and supplied a missing comma
-for HELP REMOTE. ckuus2.c, 13 Jan 2002.
-
-Built OK on HP-UX 11.11 (K&R and ANSI), Solaris 8 (cc), Solaris 2.5.1 (gcc),
-SunOS 4.1.3 (cc and gcc), VMS 7.1 (DEC C, net and nonet), Unixware 7.1.1,
-Tru64 4.0G, HP-UX 10.20 (K&R), AIX 4.3.3, FreeBSD 2.2.8, Slackware 8.0, IRIX
-6.5.13f, IRIX 5.3 (??? Can't tell -- the computer ran out of swap space -- but
-it was OK a few days ago), VMS 5.5-2 (VAX C, UCX + nonet)... HP-UX 9.05, ...
-
-Some corrections to comments in HP targets from PeterE. makefile, 14 Jan 2002.
-
-Corrections to prototypes for set{rem,lcl}charset() (VOID, not void) from Jeff.
-ckcxla.h, 14 Jan 2002.
-
-Builds, cont'd... SINIX 5.42, Red Hat Linux 5.2 on i386, SuSE 7.0 on S/390,
-Red Hat 7.1 on IA64, QNX 4.25, HP-UX 5.21/WinTCP, ...,
-
-Dell Coleman <dell@aleph.tum.com> noticed that in AIX, the COPY command always
-says "Source and destination are the same file" when the destination file
-doesn't exist. This is because in AIX, realpath() fails with ENOENT (errno
-2). The zfnqfp() code already accounts for this, but evidently not well
-enough. So I did what I should have done long ago. zfnqfp() was originally
-accomplished with do-it-yourself code. Later I added support for realpath(),
-and partitioned the routine into mutually exclusive compile-time sections:
-#ifdef CKREALPATH realpath()... #else do-it-yourself... #endif. But if
-realpath() failed, there was no recourse to the do-it-yourself code. Today I
-replaced the #else with the #endif, so the do-it-yourself part is always
-included and is executed if the realpath() call fails. Built and tested on
-AIX 4.3.3 and Solaris 2.5.1, as well as on Linux with and without the
-realpath() code included. zfnqfp(): ckufio.c, 16 Jan 2002.
-
-Separated K95 and C-Kermit test version numbers, so C-Kermit can be RC.02
-while K95 is Beta.01. ckcmai.c, 16 Jan 2002.
-
-Inhibited 0-length writes by conol() and conoll(), since they cause big
-trouble with the AIX 4.3.3 pty driver, e.g. when you have an SSH connection
-into AIX and run C-Kermit there. ckutio.c, 16 Jan 2002.
-
-Suppressed "Switching LOCUS..." messages from FTP client when it was invoked
-from the command line. ckcfns.c, 17 Jan 2002.
-
-Dave Sneddon noticed that FOPEN /APPEND gets "?Write access denied" in VMS
-if the file exists. This is apparently because VMS zchko() does the wrong
-thing. Commenting out the call zchko() in the VMS case gets past this but
-then the appended part of the file has different attributes than the orignal
-part, e.g.:
-
- abc <- original line (horizontal, normal)
- d <- appended line (vertical)
- e
- f
-
-VMS fopen() takes an optional 4th argument: a series of RMS keyword=value
-pairs. Kermit doesn't give any. Experimentation shows that appending to
-a Stream_LF works fine. That'll be a restriction for now, until somebody
-sends in code to get the RMS attributes of the original file and feed them
-to fopen(). Also need code to fix VMS zhcko() to say whether it's OK to
-append to a file. ckuus7.c, 17 Jan 2002.
-
-Somebody suggested I could get a working Kermit for Neutrino 2+ by doing the
-QNX6 build on Neutrino itself. I verified that this can't be done -- at least
-not by me -- since Netutrino 2+ doesn't have a compiler, and we already know
-the version cross-built for it on QNX4 doesn't work. 17 Jan 2002.
-
-From Jeff: SET SSH GSSAPI KEY-EXCHANGE { ON, OFF } parsing, SHOW SSH.
-ckuus3.c, 18 Jan 2002.
-
-PeterE suggested that SET ESCAPE allow 8-bit escape characters because of the
-difficulty in entering Ctrl-\ on European keyboards and the hardship (e.g. to
-EMACS and VI users) of sacrificing another C0 control character. Like
-everything these days, this turns out to be rather a bigger deal than it would
-seem. The SET ESCAPE parser calls setcc(), which accepts control characters
-in various formats (literal, ^X notation, or numbers), and gives an error
-return if the value is not 0-31 or 127. This is changed easily enough to also
-allow numbers between 128 and 255. But who else calls setcc()? The commands
-for setting Kermit packet start and end characters. No big deal, this gives
-people a bit more flexibility in case they need it, but it won't be
-documented. setcc(): ckuus7.c, 18 Jan 2002.
-
-Since code to display the escape character is scattered all over the place,
-and some of it indexes into an array based on the character value (which would
-now dump core if the escape character was > 128), I put the code in one place,
-a new shoesc() routine in ckuusx.c (which needs to be outside #ifndef NOICP,
-since the CONNECT modules use it even in command-line only builds). Also
-discovered that this code was indexing into the nm[] array with tt_escape to
-get "enabled" or "disabled", which is no longer appropriate, so fixed this
-too. ckuusr.h, ckuus[5x].c, 18 Jan 2002.
-
-Made SHOW ESCAPE, SHOW TERM, and the various CONNECT modules call shoesc(),
-and updated HELP SET ESC. ckuus[25].c, ckucns.c, ck[cuvd9]con.c, 18 Jan 2002.
-
-After all that, it occurred to me that this is a really bad idea for K95,
-with all the confusion about Console code pages, OEM code pages, Windows
-code pages, and Unicode. But I tried "echo \161" at the K95 prompt and got
-the expected 8-bit character in both the Console version and the GUI, so
-maybe it's OK after all.
-
-Removed the automatic IKSD login code from setlin() since it complicates
-interactive anonymous login. ckuus7.c, 20 Jan 2002.
-
-An #ifdef clause from Matthew Clarke to avoid "redeclaration of free" error
-when building a curses version of C-Kermit for AIX 2.2.1 on RT PC. ckuusx.c,
-22 Jan 2002.
-
-Took care of one detail I omitted when adding the 8-bit escape character:
-not stripping the 8th bit before comparing the keyboard char with the escape
-char. ck[uv]con.c, ckucns.c, 24 Jan 2002.
-
-Started to go through Jeff's changes of the last week but he had run trim -t
-on them, which untabifies, so the diffs were huge. Retabifying Jeff's files
-only makes matters worse. So instead of comparing each old and new source
-file in EMACS windows with M-X Compare-Windows like I usually do (which can't
-be told to ignore whitespace), I had to work from the diff -c -b listings.
-In ascending order of size of diffs:
-
-ckcker.h: Add I_AM_SSHSUB definition.
-ckuusr.h: XXLINK and VN_PERSONAL, etc, definitions.
-ckuusy.c: Support for "I Am SSHSUB" invocation.
-ckuus5.c: Support for new K95 directory structure.
-ckcmai.c: Init endianness earlier (K95 TYPE was broken), "I Am SSHSUB" support.
-ckuus7.c: Security #ifdefs, SSH OPEN /PASSWORD, SSHSUB support
-ckcftp.c: <-- SAVE TIL LAST
-ckuus6.c: Add LINK command for K95 on NT.
-ckuus4.c: Support for new K95 directory structure; SSHSUB support
-ckuus3.c: Support for new K95 directory structure; some SSH changes
-ckuus2.c: Changes to SSH related help text, add HELP LINK text
-ckuusr.c: LINK command, SSH OPEN /PASSWORD: /SUBSYSTEM: switches,
- Pattern-management fixes.
-ckctel.c, ck_ssl.c, ckuath.c, ckcnet.c:
- Took Jeff's without looking.
-ckuusx.c, ckucns.c, ckucon.c, ckwart.c:
- My changes from weeks ago that were never picked up.
-
-Built OK on Solaris with gcc and on SunOS with (K&R non-ANSI) cc.
-31 Jan 2002.
-
-Meanwhile, Jeff had made various changes in response to Jaya Natarajan at IBM,
-whose basic complaint was that numerous failure conditions were not being
-detected if the fullscreen file-transfer display was active. Jeff found that
-this was because big blocks of code were skipped in that case and changed the
-code not to do that, which fixed the reported problems. But later Jaya said
-that "ftp mget file1 file2" acted like "ftp mget *", so it seemed that Jeff's
-fixes broke file selection. After taking Jeff's fixes for ckcftp.c, however,
-I still could not reproduce the problem. ckcftp.c, 31 Jan 2002. <-- Later,
-it turned out the problem was with IBM's custom FTP server.
-
-Fixed updates that I missed yesterday in ckcftp.c, ckuusr.c. Moved misplaced
-#ifdef in ckuusy.c breaking nonet builds. Added #ifdefs to sysinit() for
-nonet builds in ckutio.c. Ran through build-in-many-configurations script
-in Linux, all builds OK. 1 Feb 2002.
-
-Moved shoesc() definition outside of NOXFER to fix NOXFER builds.
-ckuusx.c, 1 Feb 2002.
-
-Added MYCUSTOM definition alongside KERMRC and changed KERMCL to be the
-same as CKMAXPATH, instead of some random hardwired number. ckuusr.h,
-1 Feb 2002.
-
-Changed ckcdeb.h to define DIRSEP and ISDIRSEP(), and put #ifndef
-[IS]DIRSEP..#endif around all [IS]DIRSEP definitions in ck[udso]fio.c, so we
-can finally put away the many repeated #ifdef chains when we get around to it.
-1 Feb 2002.
-
-Make VMS zkermini() return 1 on success, 0 on failure, rather than 0 always.
-ckvfio.c, 1 Feb 2002.
-
-Added code to doinit(), just before it goes to execute the init file. If the
-init file name we are about to open is empty or fails zchki(), substitute the
-customization filename. For now this code is in #ifdef USE_CUSTOM..#endif,
-which is not defined by default. It does the trick in Unix and VMS. Also
-included code from Jeff for K95, but this needs verification and testing.
-Also used DIRSEP and ISDIRSEP() throughout doinit() instead of the long #ifdef
-chains. ckuus5.c, 1 Feb 2002.
-
-Moved shoesc() prototype from ckuusr.h to ckcker.h so modules that need it
-don't have to include ckuusr.h just for this one thing (example: ckvcon.c).
-1 Feb 2002.
-
-Defined USE_CUSTOM by default, except if NOCUSTOM is defined. ckuusr.h,
-1 Feb 2002.
-
-Fixed kermit-sshsub code to really enter server mode, and to print
-"KERMIT READY TO SERVE..." so scripts can wait for it. Also bumped the
-C-Kermit test ID to RC.03 and the K95 one to Beta.02. ckcpro.w, ckcmai.c,
-2 Feb 2002.
-
-I was thinking about adding SET COMMAND BUFFER-SIZE to let people allocate
-as big a buffer as they wanted at runtime, mainly for defining huge macros.
-Moved the SCMD_blah definitions from ckuusr.h to ckuus3.c, since they aren't
-used anywhere else. But stopped there since the rest turns out to be a rather
-big deal. ckuusr.h, ckuus3.c, 2 Feb 2002.
-
-From Jeff, 3 Feb 2002:
- . Fix an out-of-order modem name in the SET MODEM TYPE table: ckudia.c.
- . Use SET LOGIN USER and PASSWORD if present. ckcftp.c.
-
-Cody Gould noticed that array declarations had become case sensitive, and
-upper case didn't work. Diagnosis: misplaced case conversion in xarray().
-Fixed in ckuus5.c, 4 Feb 2002.
-
-SHOW VAR dumps core on \v(sexpression) or \v(svalue) -- failure to check for
-NULL pointer. I wonder why this didn't happen before (answer: because I was
-doing it on SunOS; now I'm doing it on Solaris). ckuus4.c, 6 Feb 2002.
-
-I've had several requests for "show var name name name...". I added this to
-doshow(), such that SHOW VAR works exactly as it did before (if you don't give
-it an arg, it lists all variables; if you give it an arg, it appends "*" to it
-and lists all matching variables) but now you can also give more than one arg
-and it works the same way with each one as it did before if you gave it a
-single item (i.e., "*" is appended, so "show var os cmd" shows all variables
-whose names begin with "os" or "cmd". You can also freely use pattern
-notation, including anchors. Hmmm, no, actually it's different in that now
-each includes an implied * before AND after, so "show var version" shows all
-variables whose name contain "version" rather than all variables whose names
-start with it. ckuus5.c, 6 Feb 2002.
-
-Cody Gould reported that WRITE FILE blah blah \fexec(anything) ... got a
-spurious "File or Log not open" error. This turns out to be a rather
-pervasive problem -- whenever you use \fexec() it calls the parser recursively
-and this can run roughshod over global variables, such as our innocent little
-x, y, and s. The fix in this case was to put x and y on the stack. The same
-thing probably needs doing in about 10,000 other places. Too bad C isn't
-Algol. ckuusr.c, 6 Feb 2002.
-
-Minor fix to SHO VAR -- the "^" anchor wasn't working (e.g. "show var ^os").
-ckuus5.c, 6 Feb 2002.
-
-Fixes from Jeff for FTP file-transfer character-set translation in K95 and
-in WIKSD, plus updated K95 SSH help text. ckcftp.c, ckcfns.c, ckuus2.c,
-7 Feb 2002.
-
-Server has its date set in the past. Client says "remote dir". Server sends
-A packet containing old date. If client has FILE COLLISION UPDATE, it
-rejects the directory listing. Changed gattr() to only reject real files
-(introduced by F packet), not X-packet material like directory listings.
-ckcfn3.c, 7 Feb 2002.
-
-Up-down arrow keys for command recall. People have been asking for it for
-years but now it's actually important because of PDAs that don't have Ctrl
-keys. Would have been trivial except that we use getchar() rather than
-coninc() for reading from the keyboard in Unix so conchk() doesn't help. In
-fact there are lots of other places where conchk() is used this way and works
-only by accident. The only reason we never noticed a problem before is that
-characters don't usually arrive from the keyboard that fast. But when an
-arrow key sends "ESC [ A" all once, the stdin buffer gets some extra stuff in
-it, which getchar() will return next time, but which coninc()/conchk() will
-never see. So I added a new cmdconchk() routine which, if the keyboard is
-being read with getchar() rather than coninc(), looks at the stdin buffer.
-Unfortunately, however, there is no API for this, nor is there any standard
-way to access the stdin buffer directly. So first I did it for Solaris. Then
-to make it portable requires a survey of the headers for every platform. I
-found four major variations:
-
- stdin->_r:
- {Free,Open,Net}BSD, BSDI
- stdin->_cnt:
- SunOS, Solaris, HP-UX 5-6, AIX, VMS, SINIX, IRIX 5.3-6.5, DGUX
- 4.2BSD, 4.3BSD, OSF/1..Tru64, QNX4, Unixware 1.0-2.1.0
- stdin->__cnt:
- HP-UX 7-11, SCO: OSR5.0.6a, Unixware 2.1.3-7.x, OU8, UNIX 3.2v4.x
- Subtract read from end pointer (_IO_file_flags defined):
- Linux (tested on RH 5.2 thru 7.1)
-
-The Linux method is new and different to account for multibyte characters.
-All the others assume character == byte.
-
-For docs: ANSI only, 7-bit only; both application and cursor modes are
-accepted. Only up and down arrow are handled; left and right arrows cause
-a beep. ckucmd.c, 8 Feb 2002.
-
-Build-all: Discovered that changing CTTNAM from TT: to SYS$INPUT: in VMS
-(which was done on 3 Jan 2002 to work around problems starting Kermit in
-batch, spawn'd, etc) breaks Kermit on VMS 5.5/VAX (concb() fails with "lacks
-sufficient privilege"; if you enable all privs Kermit starts but then spews
-out a constant stream of BEL characters). If you put dftty back to "TT:",
-everything is fine -- I have no idea why, so I used #ifdef VMSV70 to decide,
-which is totally crude. Next I had to find where the boundary really is: VAX
-vs Alpha? VAX C vs DEC C? Or between VMS releases? Built on:
- . VMS 6.2 Alpha (DEC C) - OK with TT:
- . VMS 6.2 Alpha (DEC C) - OK with SYS$INPUT: <-- keep this one
- . VMS 7.1 VAX (DEC C)
-So the final condition is #ifdef VMSV60. ckvker.com, ckvtio.c, ckuus5.c.
-
-QNX 6 needed some attention too:
- . Whoever did the makefile target made the default port "/dev/ser1".
- . Arrow keys...
-But I gave up on getting arrow keys to work -- it should be just like *BSD,
-but for some reason gcc complains that struct FILE has no _r member, even
-though it does (getchar uses it).
-
-Checked stdio.h on Mac OS X and it looks like the *BSDs.
-
---- C-Kermit 8.0.201 ---
-
-Removed -g from solaris2xg+krb5+krb4+openssl+shadow makefile target -- it
-was producing a 15MB binary! makefile, 14 Feb 2002.
-
-Fixed a couple thinkos in "make install": $(DESTDIR) should not have been
-included in the tests for whether INFODIR or SRCDIR were desired. makefile,
-14 Feb 2002.
-
-(tarball refreshed 16 Feb 2002)
-
---- C-Kermit 8.0.201 ---
-
-From Jeff: Better seeding of \frandom(): ckcmai.c, ckuus4.c, 18 Feb 2002.
-
-From Jeff: Make arrow keys work in WIKSD, but now also unconditionally
-compile arrow-key code in all versions. ckucmd.c, 18 Feb 2002.
-
-From Jeff: ckuath.c, ck_ssl.c, ckcnet.c (didn't look). 18 Feb 2002.
-
-Added ORIENTATION command, that lists the various important directories, and
-\flongpathname() and \fshortpathname(), which do path format conversions in
-Windows, and are just synonynyms for \fpathname() elsewhere. The new functions
-need building and testing in Windows. ckuusr.h, ckuus[r24].c, 18 Feb 2002.
-
-Changed PWD for Windows only to show both short and long paths (but only if
-they are different; otherwise it behaves as before). ckuusr.c, 18 Feb 2002.
-
-Changed default Windows prompt to show long pathname. ckuus5.c, 18 Feb 2002.
-
-Updated INTRO command to mention FTP, HTTP, and SSH. ckuus2.c, 18 Feb 2002.
-
-From Jeff: fixes for typos in GetLongPathName() code: ckuus[r4].c, 22 Feb 2002.
-
-From Jeff: net/auth updates: ckcnet.c, ckuath.c, 22 Feb 2002.
-
-Added -DUSE_FILE__CNT to NCR MPRAS targets, George Gilmer: makefile,
-24 Feb 2002.
-
-From Jeff: Add support for GetLongPathName() in Win95 and NT: ckcdeb.h,
-ckuus[r4].c, 24 Feb 2002.
-
-From Jeff: More fixes for FTP SIGINT, plus fix [M]PUT /MOVE. ckcftp.c,
-24 Feb 2002.
-
-Fixed an unguarded reference to inserver, gtword(): ckucmd.c, 24 Feb 2002.
-
-Adapted RETRIEVE for use with FTP connections; this one was missed when
-adapting GET, REGET, MOVE, etc. ckuus6.c, ckcftp.c, 24 Feb 2002.
-
-Added special COPYRIGHT command text for the free version of WIKSD.
-ckcmai.c, ckuusr.c, 24 Feb 2002.
-
-C-Kermit, when in CONNECT mode and given the <Esc-Char>U sequence, would
-unconditionally close the connection if it was a network connection. This
-is bad when Telnetting to a modem server. I added to code to prevent this
-in the RFC2117 TELNET COMPORT case but I'm not sure how to exend this to the
-general case (or whether it would be a good idea). ckucns.c, 24 Feb 2002.
-
-During file transfer, chktimo() calls ttgspd() for every packet, which clearly
-doesn't make sense on network connections, especially since on Telnet COMPORT
-connections it results in a network speed query for every packet. Rearranged
-the code so this happens only on true serial-port connections. ckcfn2.c,
-24 Feb 2002.
-
-From Jeff: Fix reversed ANSI/non-ANSI function declarations clauses in
-ckcftp.c, 26 Feb 2002.
-
-Changed Unix CONNECT module to call kstart() only when it has a chance of
-doing anything (i.e. a Kermit packet has been partially detected, or the
-packet start character just came in), rather than unconditionally on every
-incoming character. ckucns.c, 8 Mar 2002.
-
-FTP PUT /SERVER-RENAME:, /RENAME-TO:, /MOVE-TO: were sticky. Patch: In
-ckcftp.c, near the top of doftpput(), add the lines marked with "+":
-
- makestr(&filefile,NULL); /* No filename list file yet. */
-+ makestr(&srv_renam,NULL); /* Clear /SERVER-RENAME: */
-+ makestr(&snd_rename,NULL); /* PUT /RENAME */
-+ makestr(&snd_move,NULL); /* PUT /MOVE */
- putpath[0] = NUL; /* Initialize for syncdir(). */
-
-ckcftp.c, 26 Mar 2002.
-
-\fday() and \fnday() were broken for dates prior to 17 Nov 1858. Fixed in
-fneval(): ckuus4.c, 28 Mar 2002.
-
-From Jeff:
- . New calling convenion for demoscrn(): ckucmd.c, ckuusx.c
- . Fix for host-initiated 80/132 col screen mode change. ckuus7.c.
- . New \v(desktop) variable: K95 user desktop directory, ckuusr.h, ckuus4.c
- . New \v(rfc2717_signature) var: Telnet Com Port, ckuusr.h, ckuus4.c
- . Uncomment "not-reached" return(-2) in xgnbyte(): ckcfns.c
- . New dates: ckcmai.c.
- . Telnet Com Port fixes: ckutio.c
- . SET PRINTER fixes for K95: ckuus3.c
- . Session limit adjustments: ckuus3.c
- . New directory layout for K95 (TAKE, ORIENT): ckuusr.c
- . Fixes for Telnet Com Port, recycling SSH connections: ckuusr.c
-
-From me, not picked up by Jeff previously:
- . kstart() speedup: ckucns.c.
-
-1 Apr 2002.
-
----K95 1.1.21---
-
-From Jeff, 4 Apr 2002:
- . More fixes for Telnet Com Port: ckuus4.c, ckudia.c, ckutio.c, ckcnet.c:
- . network connections will check for carrier detect if SET
- CARRIER-WATCH is ON. This could have a potential conflict if
- the option is negotiated and the carrier is off, but the site
- requires login.
- . modem hangup message generated since the dial module did not
- believe that network modems could be reset with a DTR drop.
- . Version number adjustments: 8.0.203, 1.1.99: ckcmai.c.
- . Security: ck_ssl.[ch], ckuath.c.
-
----C-Kermit 8.0.203---
-
-From Jeff, 6 Apr 2002:
- . Fix typo in HELP REMOTE HOST: ckuus2.c.
- . More Telnet Com Port fixes: ckctel.c, ckcnet.c, ckudia.c, ckutio.c
-
-From Jeff, 9 Apr 2002:
- . Fix autodownload problem: ckcfn[2s].c.
-
-Chiaki Ishikawa reported that in Linux (two different kinds), if you choose
-hardware parity, CONNECT, then escape back, the speed can change. I tracked
-this down to the following statement in ttvt():
-
- tttvt.c_cflag &= ~(IGNPAR); /* Don't discard incoming bytes */
-
-Somehow execution of this statement corrupted the speed words of the termios
-struct, which are entirely separate words that are nowhere near the c_cflag
-member. Anyway, the statement is wrong; it should be:
-
- tttvt.c_cflag |= IGNPAR; /* Don't discard incoming bytes */
-
-Fixing it cured the problem; don't ask me why. ckutio.c, 9 Apr 2002.
-
-From Jeff:
- fixes the problem reported by robi@hastdeer.com.au. The request to
- enter server mode was received while we were entering server mode.
- But the server was waiting for the response to REQ_STOP sent to the
- client. Therefore, we weren't quite in server mode yet and the
- request to enter server mode was rejected. A check for the sstate
- value solves the problem. ckctel.c, 10 Apr 2002.
-
-Chiaki Ishikawa (CI) discovered the real cause for the speed changing problem.
-I was setting the IGNPAR bit in the wrong flag word: it should have been
-c_iflag instead of c_oflag, silly me. Fixed in ttvt() and ttpkt(): ckutio.c.
-I also did a thorough census of all the termio[s] flags to ensure each was
-applied to the right flag word -- they were, IGNPAR in the HWPARITY case was
-the only mistake. CI also discovered that the speed words in the Linux
-termios struct are not used at all -- the speeds are encoded in an
-undocumented field of c_cflag, which explains the problem. 10 Apr 2002.
-
-Any use of \{nnn} character notation in a macro definition, loop, or other
-braced block caused an "unbalanced braces" parse error. The backslash in this
-case is not quoting the open brace; it's introducing a balanced braced
-quantity. Special-cased in getncm(): ckuus5.c, 12 Apr 2002.
-
-The semantics of "if defined \v(xxx)" were changed in 8.0 to avoid obnoxious
-error messages when xxx was not a built-in variable (see notes of 19 Nov
-2000), such that "if defined \v(xxx)" would always succeed if there were such
-a variable, even if it had no value. The behavior that is documented in the
-book (and also in ckermit70.html) and that we had in versions 6 and 7, was
-that IF DEFINED \v(xxx) would fail if \v(xxx) was defined but had an empty
-value OR if it was not defined, and would succeed only if it was defined and
-had a value. Fixed in boolexp(): ckuus6.c, 12 Apr 2002.
-
-What about \function()s? IF DEF \fblah() presently succeeds if the function
-exists; you don't even have to give arguments. I think this behavior is more
-useful than if I required valid arguments and then evaluated the function --
-you can do that anyway with 'if not eq "\fxxx(a,b)" "" ...' Of course this
-argument applies to "if def \v(xxx)" too, except that the current behavior is
-consistent with the 7.0 behavior, so there is no need for a change.
-
-Kent Martin discovered that if a macro contains a LOCAL statement for a
-variable whose name is the same as, or a unique left substring of, the macro's
-name, then undefining the local variable makes the macro disappear:
-
- define DateDiff {
- echo {DateDiff(\%1) executing...}
- }
- define Kent {
- do DateDiff {2}
- local date
- assign date {}
- do DateDiff {3} <-- This fails (A)
- }
- do DateDiff {1}
- do Kent
- do DateDiff {4} <-- So does this (B)
-
-The first part of the problem is that "assign date {}" called delmac with
-exact=0, so delmac evidently deleted first macro whose name started with
-"date" -- and since the only one was DateDiff, that's the one that was
-deleted. Fixing this (change "delmac(vnp,0)" to "delmac(vnp,1)" in dodef())
-got us past A. The second part was making the same fix to the delmac()
-call in popclvl(). ckuus[56].c, 13 Apr 2002.
-
-The INPUT command ignored the parity setting, thus SET PARITY EVEN,
-INPUT 10 "login:" didn't work. Fixed in doinput(): ckuus4.c. Also fixed a
-bogus #ifdef COMMENT section that messed up the block structure of the module
-and therefore EMACS's indenting. 18 Apr 2002.
-
-Added sco32v500net+ssl and Added sco32v505net+ssl targets, from Scott Rochford
-at Dell (not sure yet if they work). Makefile, 19 Apr 2002.
-
-From Jeff, 22 Apr 2002:
- . Added "darkgray" color and made "dgray" an invisible synonym: ckuus3.c.
- . Fix carrier sense on Telnet Com Port immediately after dial: ckudia.c.
- . Change krb5_des_blah() arg list: ckutio.c.
- . Fix ttgmdm() for Telnet Com Port: ckutio.c.
- . Fix tthang() return code: ckutio.c.
- . Add aix43gcc+openssl target: makefile.
-
-From Jeff, 25 Apr 2002:
- . Fix SET GUI keyword table: ckuus[37].c.
- . A final fix to Telnet Com Port: ckctel.c, ckcnet.c.
-
-From Jeff, 26 Apr 2002:
- . Another final fix to Telnet Com Port: ckctel.c, ckudia.c.
-
-From Jeff, 27 Apr 2002:
- . separate the wait mechanism for TELNET SB COMPORT synchronous messages
- from the asynchronous TELNET SB COMPORT MODEMSTATUS messages: ckctel.[ch]
- . fix debug messages in Certificate verify functions: ck_ssl.c, ckcftp.c.a
-
-Frank, 27 Apr 2002:
- . Fixed VMS zgetfs() to fail when file doesn't exist: ckvfio.c.
- . Fixed UNIX zgetfs() to check for null or empty arg: ckufio.c.
- . Added #include <time.h> for time() call: ckcmai.c.
- . Add casts to args in tn_wait() calls: ckctel.c.
-
-SINIX-P 5.42 (Pyramid architecture) makefile target from Igor Sobrado.
-makefile (no source-code changes), 1 May 2002.
-
-From Jeff, 5 May 2002,
- . Fix some "unknown host" messages: ckcftp.c.
- . Add more casts to tnc_wait() calls: ckudia.c.
- . Improvements to SHOW SSH, SHOW GUI: ckuus3.c.
- . Fixes to SET COMMAND { WIDTH, HEIGHT }: ckuus3.c.
- . Updates to ck_ssl.[ch], ckctel.c, ckcnet.c.
-
-Fixed the erroneous setting of ssh_cas during switch parsing rather than
-after cmcfm() in setlin(): ckuus7.c, 5 May 2002.
-
-setlin() decomposition (2300 lines), Part One:
-
- . Copied a big chunk from the end of setlin(), beginning with net directory
- lookup, but only the network-specific and common parts, to a new routine,
- cx_net(), 900 lines.
-
- . Extracted many repetitious lines of error-message code from cx_net()
- to a new routine, cx_fail(). Error messages are stored in slmsg, and
- also printed but only if we were not called from a GUI dialog (and
- QUIET wasn't set, etc etc). Any adjutments in this policy can now be
- made in one place.
-
- . I put a call to cx_net() in setlin() just before all the code it replaced.
- It works for TELNET and SET HOST /TELNET.
-
- . Built with mkwatsol-k5k4ssl; after a couple fixes it builds OK and makes
- Kerberized connections OK.
-
- . Copied the serial-port and common parts of the setlin() post-cmcfm()
- code to another new routine, cx_serial(), about 275 lines. Fixed
- messages not to come out when called from GUI dialog, etc. Inserted
- a call to cx_serial() at the appropriate spot in setlin(). Tested
- serial connections on watsun with "set line /dev/ttyh6", works OK.
-
- . Removed all the code from setlin() that was copied to cx_*(). This slims
- setlin() down to 1120 lines. Tested regular Telnet, Kerberized Telnet, and
- serial connections again, all OK. The Unix version of the SSH command is
- OK too.
-
-setlin() deconstruction, Part Two:
-
-Now that we have the common network and serial connection pieces moved out of
-setlin(), we still need to move out the little code snippets for each network
-type that take place between command confirmation and the common code we just
-replaced. As far as I can tell, this needs doing only for SSH. The code
-labeled "Stash everything" copied to cx_ssh() but I didn't remove the original
-code since I can't test this. I think I'm done -- maybe I'm overlooking
-something but I don't know what... First we need to test the heck out of it
-in all command-line versions (K95 and C-Kermit). Then to use this from
-the GUI, see the calling sequences for cx_serial(), cx_net(), and cx_ssh():
-
- . For serial or TAPI connections, the GUI should call cx_serial().
- . For SSH connections, it should call cx_ssh() and then cx_net().
- . For all other network connections, just calls cx_net().
-
-ckuus7.c, Cinco de Mayo de 2002.
-
-New ckuus7.c from Jeff, 8 May 2002. Merge cx_ssh() into cx_net(). Also: I
-had made line[] an automatic variable, since the global line[] buffer is used
-by almost every parsing routine in C-Kermit to hold string fields between
-parsing and execution but Jeff says he found that some code somewhere depended
-on line[] containing the hostname after setlin() was finished.
-
-From Jeff, 10 May 2002:
- . Fix SET SSH STRICT-HOST-CHECKING parse: ckuus3.c.
- . Add prototypes for cx_net() and cx_serial(): ckuusr.h.
- . Add ANSI versions of cx_net() and cx_serial() declarations and supply a
- missing parameter in the cx_serial() invocation, change SSHCMD cx_net()
- invocation to new form.
-
-From Jeff, 16 May 2002:
- . ANSI strictness changes: ck_ssl.[ch]
- . New DIALER command: ckuusr.[ch]
- . Correction to how -0 turns off autodownload: ckuusy.c
- . Prototypes for GUI menu action functions: ckuusr.h.
- . Replace setting of GUI-action variables by function calls: ckuus[3457x].c
- . Fix FTP -z switch parsing: ckcftp.c.
- . Fix SET HOST testing of setlin() return code: ckuus3.c
-
-From Jeff, 18 May 2002:
- . Allow half-size GUI fonts: ckuus[35y].c.
-
-Fixed setguifont() to parse fractional font sizes and round to nearest half
-point. ckuus3.c, 18 May 2002.
-
-For GUI, wrote front ends for getyesno(), readtext(), and readpass():
-
- . uq_ok() prints text and gets Yes/No, OK/Cancel, or just OK response.
- This replaces getyesno() and can also be used for alert or help boxes.
-
- . uq_txt() prints text and gets a single text response. Replaces
- readtext() and readpass().
-
- . uq_mtxt() is like uq_txt() but allows multiple text fields. Replaces
- any combination of readtext() and readpass().
-
-Obviously the #ifdef KUI portions of the uq_blah() routines need filling in.
-ckuusr.h, ckuus3.c, 18 May 2002.
-
-Converted selected getyesno() calls to uq_ok(): ckcftp.c, ckuus3.c, ckuus6.c.
-Some were not converted because it was inappropriate, e.g. DELETE /ASK; others
-because they're in Jeff's code. The most interesting conversions are in the
-DIAL command when DIAL CONFIRMATION is ON. Here there is a dialog for each
-phone number asking if it's OK (ug_ok()) and if not, asking for a replacement
-(uq_txt()); seems to work fine in C-Kermit. All the candidates for uq_mtxt()
-are in Jeff's code. 18 May 2002.
-
-From Jeff: Convert remaining getyesno/readtext/readpass calls to uq_blah()
-so they can be GUI dialogs. ckuus[37].c, ckcftp.c, ckuath.c, ck_ssl.c,
-21 May 2002.
-
-Added KCD command = CD to symbolic directory name (EXEDIR, COMMON, APPDATA,
-TMPDIR, etc etc). ckuusr.h, ckuus[r25].c, 21 May 2002.
-
-From Jeff, 28 May 2002:
- . --title: commandline option: ckuusr.h, ckuusy.c
- . Fix some #includes, move some declarations: ckcfns.c
- . Change K95 version from Dev.00 to Beta.01
- . ASK[Q] /GUI: ckuus6.c.
- . Various GUI screen updates and #ifdefs: ckuus7.c
- . Add missing cx_net() calls to new setlin() for file SuperLAT..: ckuus7.c
- . Updated uq_*() routines for GUI dialogs: ckuus3.c.
-
-Added GETOK switches (/TIMEOUT for all; /POPUP and /GUI for K95G):
-ckuus6.c, 29 May 2002.
-
-Added HELP SET GUI text. ckuus2.c, 29 May 2002.
-
-From Jeff:
- . Another K95-specific #include for ckcfns.c.
- . More items for K95G Actions menu.
- . Change K95G Locus switching to call setlocus() rather than set variable.
- . Ditto for several other variables now settable from Actions menu.
- . Fix SET HOST /NET:SSH status code so IF SUCCESS works.
- . Fix SHOW SSH port-forwarding.
-ckcfns.c, ckuus[r367].c, ckcftp.c, ckcmai.c, 30 May 2002.
-
-Changed SET LOCUS to have a new value, ASK, corresponding to new autolocus
-value of 2, K95G only. Changed setlocus() to not do anything if the new and
-old loci are the same, otherwise to invoke a GUI dialog in K95G if autolocus
-is 2, and also to handle any text messages. Changed SHOW COMMAND to show ASK
-value for SET LOCUS. Rewrote HELP SET LOCUS. ckuusr.[ch], ckuus[23].c,
-ckcftp.c, 30 May 2002.
-
-Add a missing space to Locus popup, and fix Jeff's version of the code to
-compile in C-Kermit. ckuusr.c, 31 May 2002.
-
-From Jeff, for K95 GUI, 6 June 2002:
- . Force some GUI popups to be in foreground: ckuus3.c.
- . Fix SHOW TERM font display: ckuus5.c.
- . Update K95 version numbers and date (4 June 2002): ckcmai.c.
- . Add note about encrypted private keys vs scripts to HELP SET AUTH: ckuus2.c.
- . Fix SET HOST for DECnet: ckuus7.c.
-
---- K95 2.0 ---
-
-From Jeff, 7 June 2002:
- . Fix some #ifdefs for Unix builds (locus, dial, etc): ckuus7.c
- . Add gui_resize_scale_font() prototype: ckuus3.c
- . Add some missing SET GUI commands: ckuus3.c
- . Update version numbers: ckcmai.c
-
---- K95 2.0.1 ---
-
-From Jeff, 11 June 2002:
- . Conditionalize Locus-switching popup text for GUI/Console: ckuusr.c.
- . Fix the SRP_installed_as_server() function. The new API returns TRUE even
- if the SRP config and password files cannot be found. Went back to the old
- API. This bug affects C-Kermit 8 when built with SRP as well as 1.1.21
- through 2.0.1. Since iksdnt.exe has not been shipped yet I fixed it and
- uploaded a new non-beta build of it. ckuath.c.
-
-From Jeff, 12 June 2002:
- . Fix SSH AGENT ADD: ckuusr.c.
- . Fix --facename: option to not fail if name unknown: ckuusy.c.
- . Fixes for OpenSSL 0.9.7 and OpenBSD 3.1: ck_ssl.c.
- . Fix SET AUTH TLS VERIFY NO to prevent a dialog but still a warning if
- SET AUTH TLS VERBOSE ON is set: ck_ssl.c.
- . Fix FTP code to verify the hostname as specified by the user and not
- the hostname discovered by the reverse DNS lookup. For example,
- FTP OPEN kermit.columbia.edu
- should produce a dialog because that name is not in the certificate
- even though ftp.kermit.columbia.edu (the reverse DNS name) is: ckcftp.c.
-
-Add support for Solaris 9 and NetBSD 1.6. makefile, ckuver.h, ckcdeb.h,
-13 Jun 2002.
-
-Discovered that Solaris 9 wants to hide the members of struct FILE, and
-enforces this for 64-bit builds. They offer some functions like __fbufsize()
-to get the info, but not the info we need for reading escape sequences (the
-_cnt member). Let's hear it for political correctness. Created new solaris9g
-(32-bit) and solaris9g64 (64-bit) targets. Sorry, no arrow keys in 64-bit
-mode. Also no more direct access to sys_errlist[]; must use strerror().
-makefile, ckucmd.c, 13 Jun 2002.
-
-Added solaris9g+openssl+zlib+pam+shadow, which in turn required adding
-solaris2xg32+openssl+zlib+pam+shadow, needed for gcc 3.1 in which you have
-to specify 32-bit. Fails for some mysterious reason in link step
-(can't find libssl.so.0.9.6 even though it's there). makefile, 13 Jun 2002.
-
-Solaris 8 empty socket problems again -- tthang() times out, subsequent
-tcsetattr() calls do horrible things. Added a bandaid to ttclos(): don't
-call tcsetattr() any more if hangup timed out. ckutio.c, 14 June 2002.
-
-Gerry B reported the bandaid got us bit farther but Kermit still disappears.
-Added code to reassert the alarm signal handler, since it is likely that
-Solaris has become stricter about this since last time I looked. (Later
-Gerry reported back that this did the trick -- C-Kermit now exits normally
-and releases the lockfile). ttclos(): ckutio.c, 17 Jun 2002.
-
-If you use Kermit to copy a file to a destination file that already exists and
-is longer than the source file, the destination file is not truncated. I had
-mistakenly assumed that setting O_CREAT in the open() call in zcopy() would
-create a new copy of the file. Fixed by also setting O_TRUNC. ckufio.c,
-17 Jun 2002.
-
-Updated HELP INPUT and MINPUT text to explain 0 and -1 timeout values, and
-HELP DIAL to explain about entering CONNECT mode automatically. ckuus2.c,
-17 Jun 2002.
-
-Got rid of client-side "Press the X or E key to cancel" message when giving
-a REMOTE command if QUIET is set or if XFER DISPLAY is NONE. ckuus7.c,
-17 Jun 2002.
-
-From Jeff 25 Jun 2002:
- . Add SUN terminal type: ckuusr.h, ckuus[57].c.
- . Add GUI file transfer display: ckcker.h, ckuus[47x].c.
- . Changes to allow C-Kermit to build with OpenSSL 0.9.7. Current
- C-Kermit code is designed to compile with 0.9.6 and earlier. To
- compile with 0.9.7 you must specify -DOPENSSL_097. This avoids
- missing symbols in the DES library. The functions in OpenSSL were
- renamed in 0.9.7 to avoid link time conflicts with Kerberos 4.
- ckufio.c ck_crp.c ckuath.c ck_ssl.h ck_ssl.c, makefile.
-
-From Jeff 26 Jun 2002:
- . apparently the SSL Passphrase Callback function was not converted
- from readpass() to uq_txt()
- . FTP Authentication failure errors were not being reported to the
- user. So a failure would appear to be a successful completion
- unless FTP DEBUG was ON. Now the message is reported unless
- the QUIET flag is set.
-ck_ssl.c, ckcftp.c.
-
-SET TRANSFER MODE MANUAL didn't work for FTP; fixed in putfile() and getfile():
-ckcftp.c, 1 Jul 2002.
-
-Changed debug log for FTP to log "FTP SENT" and "FTP RECD" for protocol
-messages, just like we do for Telnet, to make it easy to grep them out of
-the log. ckcftp.c, 1 Jul 2002.
-
-In FTP MGET /UPDATE, equal times spuriously caused download. doftpget() was
-misinterpreting chkmodtime()'s return code. ckcftp.c, 3 Jul 2002.
-
-In FTP MGET /RECOVER, recovery is skipped if the local file is newer than
-the remote. This would seem to make sense, but when a download is
-interrupted, the partial file never gets the date of the remote file, so
-the partial file is always newer, and recovery never works. Fixed in
-recvrequest() by commenting out the date check. ckcftp.c, 3 Jul 2002.
-
-A better way to fix the previous problem is to always set the file date from
-the server and then only allow /RECOVER to work when the dates are equal.
-But that's not possible because MDTM is not implemented universally, and it
-conflicts with how Kermit currently works, namely that FTP DATES are OFF by
-default. Also, checking dates prevents [M]GET /RECOVER from working with
-files that were incompletely downloaded by some other FTP client.
-
-In FTP MGET /RECOVER <wildcard> <wildcard> ..., the first file in each group
-is always downloaded. Diagnosis: Kermit sends "TYPE A" prior to NLST (as it
-must). Then when it sends its first SIZE command, it's still in ASCII mode,
-so the server sends the "ASCII size" rather than the binary size, which does
-not agree with the size of the local file (which was downloaded in binary
-mode), so recovery is always attempted even when the files are identical. The
-TYPE A command is sent by initconn(). After the remote_files() call, we have
-to change the type back to the prevailing type before sending the first SIZE
-command. Fixed in cmdlinget() and doftpget(): ckcftp.c, 3 Jul 2002.
-
-In FTP MGET /EXCEPT:<pattern> used with SET XFER DISPLAY brief, files that
-are skipped just say ERROR instead of saying why they were skipped. Fixed
-in doftpget(): ckcftp.c, 3 Jul 2002.
-
-Added EXIT to top-level HELP text. ckuus2.c, 13 Jul 2002.
-
-Strip braces in REINPUT n {string}. ckuusr.c, 13 Jul 2002.
-
-Added /QUIET switch to ASK-class commands. This means not to print any error
-messages when an ASK-class command times out waiting for a response. Made
-sure that when a timeout occurs, the command fails. Also made sure the
-c-Kermit prompt doesn't write over the ASK prompt if ASK times out. Also
-fixed ASK, when it times out, not to return -9, which it did in one case,
-which causes a command-stack dump. ckuus[267].c, ckucmd.c, 13 Jul 2002.
-
-Fixed SET FILE INCOMPLETE help text, which said that both KEEP and AUTO were
-the default. ckuus2.c, 13 Jul 2002.
-
-If you SET FTP DEB ON and then turn it OFF, the MGET temp file is still kept.
-Fixed by getting rid of ftp_knf variable and using ftp_deb to control whether
-temp file is deleted (ftp_knf was being set from ftp_deb anyway, but then
-wasn't being reset by SET FTP DEB OFF). ckcftp.c, 13 Jul 2002.
-
-If an FTP transfer was in progress but the FTP connection drops and automatic
-locus switching is enabled, the locus does not change; thus (for example) a
-subsequent DELETE command makes Kermit send a REMOTE DELETE packet on stdout.
-Fixed in lostpeer(): ckcftp.c, 13 Jul 2002.
-
-For docs: FTP CD with no arg might not be accepted by the server; e.g. the
-Kermit FTP server says "501 Invalid number of arguments".
-
-The FTP module never handled SET INCOMPLETE. Fixed in doftprecv2(). ckcftp.c,
-13 Jul 2002.
-
-When FTP DATES is ON, we set an incoming file's date only if the file was
-received successfully. Changed the code to set the file's date even if it was
-received only partially (assuming we can get the date from server). ckcftp.c,
-13 Jul 2002.
-
-Suppose we were doing FTP MGET /UPDATE from a server directory of 100,000
-files. Kermit would send a SIZE command for every file unconditionally. On
-some connections, e.g. to the Red Hat Rawhide server, each one could take up
-to 30 seconds. That would be 3 million seconds = 34 days. Don't send a SIZE
-command during the selection phase unless a /SMALLER or /LARGER selector was
-given. Once the file is selected, send a SIZE command only if one hadn't been
-sent for that file already. ckcftp.c, 13 Jul 2002.
-
-Made [M]GET and [M]PUT /UPDATE switch imply FTP DATES ON, since they didn't
-work unless it was. ckcftp.c, 13 Jul 2002.
-
-Added FTP [M]GET /DATES-DIFFER, which is like /UPDATE except it selects files
-that are newer or older, rather than only newer. This allows updates from
-sources where files might be rolled back to earlier versions. It's a bit
-dangerous if you use it without knowing what it's for, since it allows older
-files to overwrite newer ones. (Code is also in place for [M]PUT
-/DATES-DIFFER, and it works, but I commented it out because it's either
-useless or dangerous since when uploading, you can't set the the file dates
-when they are arrive on the server.) ckcftp.c, 13 Jul 2002.
-
-Changed chkmodtime() to remember if MDTM fails on a particular connection
-because it's an unknown command (500, 502, or 202), and if so, not to ask
-again. ckcftp.c, 13 Jul 2002.
-
-With this last change, I think it's safe to change the default for FTP DATES
-from OFF to ON. ckcftp.c, 13 Jul 2002.
-
-Increased max number of /EXCEPT: patterns from 8 to 64 for file transfer (not
-necessarily for other things). This is now a compile-time symbol NSNDEXCEPT.
-ckcker.h, ckcmai.c, ckclib.c, ckcfns.c, ckcftp.c, ckuus[rx].c. 13 Jul 2002.
-
-Fixed FTP MGET to not send SIZE command when there is a name collision and
-FILE COLLISION is DISCARD, even if /SMALLER or /LARGER were also specified.
-ckcftp.c, 15 Jul 2002.
-
-MGET fails if no files were transferred, even if the reason is that no files
-met the selection critieria: /COLLISION:DISCARD, /UPDATE, /SMALLER, etc.
-Changed MGET to succeed in that case. domget(): ckcftp.c, 16 Jul 2002.
-
-Big problems with canceling MGET; Ctrl-C cancels the current file, but we
-don't break out of the file loop, we just go on to the next file. Worse, if
-we're executing a command file that has a series of MGETs, Ctrl-C doesn't
-break us out of the command file. Fixed by making failftprecv() and
-failftprecv2() "chain" to the main SIGINT handler, trap(). This is fine in
-Unix, but I'd be really surprised if it works in K95 so I put it in #ifndef
-OS2. Ditto for MPUT: Added the same treatment to failftpsend() and
-failftpsend2(). Ditto for cmdcancel(). To adapt to K95, search for "TEST ME
-IN K95" (5 places). ckcftp.c, 16 Jul 2002.
-
-Fixed previous fix to account for the fact that failftpblah() can be called
-not only upon Ctrl-C, but also if transfer interrupted with X or Z.
-ckcftp.c, 16 Jul 2002.
-
-Yesterday's fixes revealed another problem: Interrupt MGET with Ctrl-C, start
-another MGET, and the file list is total garbage. Diagnosis: secure_getc()
-and secure_getbyte() use internal static buffer pointers. The only way they
-ever get reset is when the data connection is closed by the server, so if you
-interrupt a GET, the pointers are not reset and the next network read (e.g. of
-an NLST response) returns whatever junk was lying around in the old buffer.
-ckcftp.c, 17 Jul 2002.
-
-FTP MGET temp file is kept only if FTP DEBUG is ON. Changed FTP module to
-also keep it if the regular debug log is active. ckcftp.c, 17 Jul 2002.
-
-Fixed version test in ckermit.ini: should be 6 digits, not 5. 17 Jul 2002.
-
-Changed C-Kermit version number to 8.0.205 so scripts can test for the
-recent changes. ckcmai.c, 18 Jul 2002.
-
----8.0.205---
-
-SET FILE COLLISION UPDATE would unset FTP DATES due to a typo in the recent
-changes. ckcftp.c, 21 Jul 2002.
-
-FTP [M]GET /DATES-DIFFER really should have been a collision option. Added
-this option (implemented for FTP only) to both SET FTP COLLISION and the
-FTP [M]GET /COLLISION: table, so this way if you have lots of [M]GETs, you
-don't have to put /DATES-DIFFER on each one. ckcker.h, ckcftp.c, 21 Jul 2002.
-
-"FTP MGET a* b* c*" would fail to get any c*'s if no b*'s existed.
-ckcftp.c, 21 Jul 2002.
-
-From Jeff, 22 Jul 2002:
- . Beginnings of Ann Arbor Ambassador terminal emulation for K95;
- ckuus[57].c, ckuusr.h.
- . Bump K95 version number to 2.0.2: ckcmai.c
-
-Added -DCK_PAM -DCK_SHADOW to all Solaris targets, 2.6 and above. makefile,
-23 Jul 2002.
-
-Discovered that CK_SCRIPTS path search for TAKE files was #ifdef'd out
-except for K95. Fixed in ckuusr.c, 25 Jul 2002.
-
-From Jeff: changes to support K95 italics: ckuus[57].c, 25 Jul 2002.
-
-Fixed path search for TAKE to not search the CK_SCRIPTS path if the filespec
-contains any directory or path parts. Added a new function to check for
-this: int hasnopath(filespec) in ckucmd.c: 26 Jul 2002.
-
-Update HP-UX build instructions from PeterE: makefile, 26 Jul 2002.
-
-Commented out "const" from struct pam_message declarations because it
-causes "initialization type mismatch" warnings. ckufio.c, 26 Jul 2002.
-
-Suppose you have a network directory containing a listing for host "foo":
-
- foo tcp/ip foo.bar.com
-
-Then in K95 you give a command "set host /network-type:ssh foo". This
-results in the directory lookup replacing the "ssh" network type with TCP/IP,
-and making a Telnet connection. Fix attempted at about line 8625 of ckuus7.c
-in cx_net(); needs testing in K95. 26 Jul 2002.
-
-FTP Password: prompt in Unix was not allowing editing. The code looked right;
-I put in some debugging and suddenly it worked. Took out the debugging and
-it still worked. Maybe I dreamed it. Anyway, I fixed the "FTP SENT" debug
-log entry to not record the password, and removed a redundant section above
-to log the same thing, but prior to any charset conversion. ckcftp.c,
-27 Jul 2002.
-
-From Jeff, 28 Jul 2002:
- . Fix typo in initxlist(): ckcmai.c.
- . Fix typo in Friday's set-host fix: ckuus7.c.
- . Move parsing of --height/width command-line args after prescan(): ckuusy.c.
-
-Added invisible top-level SITE and PASSIVE commands for FTP as a convenience
-for habituated FTP client users. ckuusr.[ch], ckcftp.c, 28 Jul 2002.
-
-A while back a user asked if it was possible to MGET a bunch of files from
-an FTP server and have them all appended to each other upon arrival. The
-obvious way to do this would have been:
-
- mget /collision:append /as-name:bigfile *.*
-
-But to make this work, I had to get rid of the "as-name must contain
-variables" check in the MGET parser. doftpget(): ckcftp.c, 28 Jul 2002.
-
-Verified that it was possible to do the same thing (GET a bunch of files
-and append them all into one result file) with Kermit protocol. It works
-fine but in this case there is no /COLLISION switch; you have to SET FILE
-COLLISION APPEND first. 30 Jul 2002.
-
-Changed COPY /APPEND to allow wild source to single destination file, e.g.
-"copy /append *.* bigfile". ckuus6.c, 30 Jul 2002.
-
-From Mark Berryman: a replacement for zchkpath(), the VMS routine that checks
-whether a file is in the current directory; the old one (that I wrote) was
-a hack that only worked sometimes. Martin Vorlaender verified Mark's code in
-the situation where mine was breaking (server running in captive account).
-ckvfio.c, 30 Jul 2002.
-
-PeterE reported a problem with SWITCH case labels that start with '#':
-The problem is that the SWITCH variable contents in this case happens to be
-a comment, e.g.:
-
- CMD(M)[_forward # Stand: 24.07.2002<CR>]
-
-so the GOTO target is null. The solution would be for SWITCH to put the GOTO
-(_FORWARD) target in quotes. But GOTO does not strip quotes or braces from
-around its target. Fixed in ckuusr.c, 30 Jul 2002.
-
-Fixed the SWITCH macro definition to put the _FORWARD target in quotes.
-ckuus5.c, 30 Jul 2002.
-
-PeterE also reported that an empty SWITCH case label did not work. There's no
-particular reason why it should, but after a brief look, it wasn't that hard
-so I did it. It required commenting out the check for empty labels and fixing
-the comparison in dogoto(). Now it's possible to read lines from a file and
-use each line as a SWITCH variable, with patterns as case labels, including an
-empty label to match empty lines, #* labels to match comment lines, etc.
-ckuus[r6].c, 30 Jul 2002.
-
-PeterE also reported the value of \%* acquiring a trailing blank when
-referenced inside a SWITCH statment. This happens because \%* is formed using
-\fjoin() on the \&_[] array based on its dimension, and at some point the
-dimension is spuriously increased by one. As a workaround, I made \fjoin()
-ignore trailing empty \&_[] array elements and oddly enough this also fixed
-the growing dimensions problem. The many script torture tests reveal no ill
-effects, so it seems like a keeper. ckuus4.c, 30 Jul 2002.
-
-Some of Peter's sample scripts made C-Kermit 8.0.201 dump core, but no more.
-
-Fixed "delete xxx" to print an error message and fail if if xxx does not exist.
-Ditto for when xxx is a directory. ckuus6.c, 30 Jul 2002.
-
-Patches to SSL modules from Jeff based on yesterday's advisory. ck_ssl.[ch],
-31 Jul 2002.
-
-Fixed some typos affecting the filename collision action during command-line
-FTP [M]GET. ckcftp.c, 31 Jul 2002.
-
-Fixed SHOW FTP to handle FTP COLLISION DATES-DIFFER. ckcftp.c, 31 Jul 2002.
-
-A while back someone pointed out that SET CONTROL UNPREFIX ALL and SET
-PREFIXING NONE gave different results. Fixed them to use the same code.
-Also made "set prefixing none" visible. ckuus3.c, 4 Aug 2002.
-
-Added SET CD HOME <path>, to let the user specify which directory is intended
-when "CD" or "KCD" is given by itself. This is because in Windows, some
-applications set up their own HOME environment variable that isn't necessarily
-where the user wants "cd" to go, but redefining HOME can interfere with the
-application (example: Windows EMACS). SET CD HOME was done by adding a myhome
-variable, initially a NULL pointer, and then changing homepath() to use it if
-it is set. zhome() is not affected. Also the homepath() prototype had been
-missing from header files. ckcmai.c, ckuusr.h, ckuus[2345].c, 4 Aug 2002.
-
-PeterE got another core dump with his SWITCH statement. Found a place where
-an out-of-bounds array reference could occur if the switch variable was
-empty. ckuus6.c, 5 Aug 2002.
-
-PeterE noticed that if the switch variable contained a comma, spurious matches
-could occur with the label pattern. The real problem turns out to be what
-happens when the SWITCH variable doesn't match any of the case labels and
-there is no DEFAULT label. Fixed by having dogoto() in the SWITCH (_FORWARD)
-case pop the command stack before returning failure, i.e. by moving the
-"if (stopflg) return(0);" statement down a few lines. ckuus6.c, 5 Aug 2002.
-
-PeterE noticed that a SWITCH case label of :* did not match an empty SWITCH
-variable. Fixed in doswitch(): ckuus6.c, 6 Aug 2002.
-
-In testing the previous fix, I found it only worked sometimes. Inspection
-of the debug log showed that a statement like:
-
- if (y == -3) s = "{}";
-
-was assigning "{" rather than "{}" to s. Replacing the string constant by a
-buffer containing the same string fixed it. The reason (guessed correctly by
-PeterE) was the following sequence:
-
- y = cmfld("Variable name","",&s,xxstring);
- if (y == -3) s = "{}";
- len = ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
-
-brstrip() (by design and as documented) affects the string in place. But in
-this case the string is a constant, not data in a buffer, so all further uses
-of "{}" get the wrong string (at least in optimized builds). The only real
-cure is to change brstrip() to make a copy of its argument if it has to do
-anything to it. This will slow down some scripts, but it's too risky to
-leave it as it was. ckclib.c, 6 Aug 2002.
-
-The previous change required an audit of the C-Kermit code to make sure that
-no references to brstrip() depended the result buffer being persistent, or the
-result pointer indicating a position in the source buffer. Oops, it turns out
-that thousands of places rely on brstrip() working in place. Therefore the
-change had to be undone. There's no good way to write a dummy-proof brstrip();
-programmers either have be sure they're not calling it with a pointer to a
-string constant, or else they have to copy the result back to the right place
-each time. Better to leave it as it was and audit the code to fix any calls
-that refer to string constants (turns out there were only two). Restored the
-original fix to doswitch() (replacing the string constant by a buffer holding
-the same string), plus minor fixes to ckcftp.c, ckuus[r36].c, 6 Aug 2002.
-
-We need file dialogs in several situations in the K95 GUI. I added a "user
-query" routine for this, uq_file(), in ckuus3.c, filling it in only for Unix.
-Then I added code to call it from rcvfil() when (a) it's an autodownload, and
-(b) SET TERM AUTODOWNLOAD is ASK (I just added this option; it needs to be set
-to see it in action -- maybe it should be the default for KUI, in which case
-initialize "int autodl = ?" to TAD_ASK in ckcmai.c). Works fine, except of
-course it interferes with the file-transfer display, but that won't be a
-problem in K95G. ckuusr.h, ckuus[37].c, ckcfns.c, ckucns.c, 6 Aug 2002.
-
-Another place we need a file dialog is when Kermit is a URL interpreter. The
-problem is: how can we let the user decide whether Kermit should ask? There
-really isn't any way. Either it always asks or it never does. In this case I
-think it makes sense to always ask if it's KUI, otherwise never. I added the
-code for ftp: URLs to to doftprecv2(), which I tested successfully in Unix
-before putting it into #ifdef KUI..#endif. Also added code for http[s] to
-ckuusy.c in #ifdef KUI..#endif, not tested.
-
-Still need this added for K95G Actions->Capture. The clearest example is the
-FTP one. Just search for KUI in the FTP module.
-
-Some minor adjustments to yesterday's work, mainly just comments, plus
-generate the full pathname for the default file. ckuus3.c, ckcftp.c,
-7 Aug 2002.
-
-Note: for some reason cmofi() is not supplying the default value if user
-enters an empty name... (but that won't affect the Windows version).
-
-Added /USER: and /PASSWORD: switches to SET TCP { HTTP-PROXY, SOCKS-SERVER }.
-ckuus3.c, 7 Aug 2002.
-
-New 'uninstall' target from PeterE, works by having the 'install' target
-write an UNINSTALL shell script. makefile, 8 Aug 2002.
-
-Added some debugging statements to the VMS communications i/o module to try
-to track down a problem that occurs when the controlling terminal is a LAT
-device. ckvtio.c, 10 Aug 2002.
-
-Fixed the non-K95 uq_file() to respect the given default name, but still show
-the fully qualified absolute pathname for the default in the dialog. The
-reason to not use the fully qualifed name as the default in the cmxxx() calls
-is that this can easily result in a whole directory tree being created due to
-directory aliases, symlinks, etc. So when you get a file by referring to its
-URL (e.g. ftp://kermit.columbia.edu/kermit/READ.ME), uq_file() converts the
-READ.ME part to (e.g.) /home/fdc/tmp/READ.ME but gives just "READ.ME" as the
-default when parsing the name. This way the user knows where it will go and
-gets an opportunity to change it, and if the default is accepted, it goes into
-the current directory. uq_file(): ckuus3.c, 10 Aug 2002.
-
-Found the spot for calling uq_file() for kermit:// URL downloads. Added
-prefatory text to filename prompts for Kermit and FTP downloads. ckcfns.c,
-ckcftp.c, 10 Aug 2002.
-
-Now with kermit:// or ftp:// URL downloads there's no way to disable the
-prompting. I could easily make SET TERMINAL AUTODOWNLOAD ASK cover these
-cases too (even though "terminal" has nothing to do with FTP or URL
-downloads). OK, I did this, but now prompting is disabled by default.
-ckcftp.c, ckcfns.c. 10 Aug 2002.
-
-Enabled file prompting (adl_ask) by default in K95G, disabled it by default
-everywhere else. So now FTP and Kermit URL downloads as well as terminal-mode
-Kermit (but not Zmodem) downloads are prompted for if TERMINAL AUTODOWNLOAD is
-ASK, which is it by default only in K95G. But this will happen only if
-uq_file() is filled in for K95G; otherwise everything should work as before.
-ckcmai.c, 10 Aug 2002.
-
-Notes:
- . Need a better command to control this.
- . FTP URL downloads are almost instantaneous, whereas Kermit URL downloads
- take a really long time to set up (logging in takes at least 10 seconds).
-
-From Jeff, 13 Aug 2002:
- . Increase K95 version to 2.1.0: ckcmai.c.
- . SET TCP { HTTP-PROXY, SOCKS-SERVER } /USER: /PASSWORD: actions: ckuus3.c.
-
-From PeterE: a new install target that's only about half as a big as the
-previous one, yet still generates an UNINSTALL script. makefile, 13 Aug 2002.
-
-Vace wanted to be able to give the FTP client an offset for the server time,
-in case the server's time (or timezone) is set incorrectly. I added this by
-building on all the date/time parsing/arithmetic code -- notably delta times
--- that was done for C-Kermit 8.0. The new command is SET FTP
-SERVER-TIME-OFFSET delta-time; shows up in SHOW FTP and HELP SET FTP.
-ckcftp.c, 13 Aug 2002.
-
-Fixed HELP ASK and HELP GETOK text. ckuus2.c, 14 Aug 2002.
-
-Fixed GETOK to accept /GUI switch even in K95.EXE and C-Kermit, just like ASK
-does (in which case, it just ignores it). ckuus6.c, 14 Aug 2002.
-
-SET XFER CHAR TRANSPARENT no longer disables character-set translation because
-file-scanning turns it back on. The "new way" to disable character-set
-translation is SET XFER TRANSLATION OFF. This needlessly confuses users who
-expect the old way to still work. So I fixed SET XFER CHAR TRANSPARENT to set
-XFER TRANSLATION OFF, and SET XFER CHAR anything-else to set it back ON.
-ckuus3.c, 15 Aug 2002.
-
-Fixed SET TERM AUTODOWNLOAD { ON, OFF } to turn off the ASK flag (adl_ask).
-ckuus7.c, 16 Aug 2002.
-
-Added FEAT query to FTP client from draft-ietf-ftpext-mlst-13.txt. FEAT is
-sent along with REST 0, MODE S, and STRU F if /NOINIT is not included in the
-FTP OPEN command. Parsing the FEAT result is handled by turning the "auth"
-argument to getreply() into a function code: GRF_AUTH to parse AUTH reply;
-GRF_FEAT to parse FEAT reply. For GRF_FEAT, getreply() fills in a flag array,
-sfttab[] (server feature table); sfttab[0] > 0 means server responded to the
-FEAT query, in which case individual elements are set > 0 for each supported
-feature. ckcftp.c, 18 Aug 2002.
-
-If server sends a feature list, display it if FTP DEBUG is on, then set mdtmok
-and sizeok (the flags that say whether it's OK to send MDTM and SIZE commands)
-accordingly. If user gives an [M]PUT /RECOVER command and server has
-announced it doesn't support REST, print a warning but try anyway (maybe
-change this later). Responses about other features that we use such as AUTH
-and PBSZ are ignored for now -- i.e. we try them anyway. And of course
-responses for features we don't care about (LANG, TVFS, PROT) are ignored.
-ckcftp.c, 18 Aug 2002.
-
-If the server says it supports MLST, use MLSD instead of NLST to get the file
-list. This is done in remote_files() with some simple string-twiddling. Then
-replace the relevant (but not all) SIZE commands with code to first check if
-we already got the size from the MLSD response and use that instead rather
-than asking again. Same deal for MDTM. ckcftp.c, 18 Aug 2002.
-
-Checked that this works when giving pathnames in the MGET filespec. Checked
-to make sure everything works as before with servers that don't support FEAT
-or MLSD. Checked to make sure FTP OPEN blah /NOINIT worked with servers that
-do support FEAT and MLSD. Checked that FTP CHECK works. It's all OK.
-
-Tested only with Ipswitch server; need to find and test with others.
-
-The stack of temp files needed for MGET /RECURSIVE is annoying because what
-if we run out of file descriptors... But the spec doesn't provide a way to
-request a recursive listing.
-
-Supplied a missing comma in HELP SET CD text. ckuus2.c, 19 Aug 2002.
-
-Generalized parsing of MLST/MLSD file facts and values. Got file type from
-server and had MGET skip non-regular files. ckcftp.c, 19 Aug 2002.
-
-Kirk Turner-Rustin <ktrustin@owu.edu> reported that if Unix C-Kermit has a SET
-HOST PTY connection (e.g. SSH) open, local window size changes are not
-propogated through the connection to the host. I imagine that must be because
-the SIGWINCH signal is caught by Kermit and its children don't see it; maybe
-if I pass it along to the child fork, all will be OK. Began by exporting
-"slavepid" from the pty module and changing its name to pty_fork_pid. Moved
-the SIGWINCH handler, winchh(), from ckctel.c to ckutio.c. Armed it from Unix
-sysinit() so it's always armed. This way window changes affect Unix C-Kermit
-no matter what mode it's in: tt_rows, tt_cols, cmd_rows, and cmd_cols are all
-kept in sync. Then if we're not in remote mode (i.e. we have a ttyfd), we
-call tn_snaws() and rlog_snaws() (which should be ok since they return right
-away if the appropriate kind of connection is not open) and then if
-(pty_fork_pid > -1), a SIGWINCH signal is sent to it. ckupty.c, ckctel.c,
-ckutio.c, 20 Aug 2002.
-
-All this works fine except the PTY part; in other words, the original problem
-is not fixed. The "kill(pty_fork_pid,SIGWINCH)" call executes without error
-but has no effect because the size of the PTY never changed. To make this
-work I had to add an ioctl() to change the size of the PTY before sending it
-the SIGWINCH. Compiles and works ok on Linux and Solaris; Kirk also confirmed
-it for AIX 4.3.3. ckutio.c, 20 Aug 2002.
-
-Fixed xlookup() to work for uppercase keywords. ckucmd.c, 20 Aug 2002.
-
-Fixed FTP parsefeat() and parsefacts() to use xlookup() instead of lookup(),
-since abbreviated keywords are not allowed. ckcftp.c, 20 Aug 2002.
-
-Adjusted some lines from yesterday's window-size code for platforms I hadn't
-tried yet. ckutio.c, 21 Aug 2002.
-
-EXIT from K95 when it has an FTP connection open and it pops up the
-Locus dialog. Made it not do this if it knows it's in the act of EXITing.
-ckuus[rx].c, 22 Aug 2002.
-
-In K95, FTP GET in ASCII mode results in a file with Unix line terminators
-even though the protocol is correct:
-
- RETR smjulie.txt
- 150 Opening ASCII mode data connection for smjulie.txt (1878 bytes).
-
-The source file is a regular Unix text file with LF at the end of each line.
-It's incredible that nobody noticed this before. It only came to light when
-somebody tried to open a downloaded text file with Notepad, which doesn't
-handle Unix-format files (Wordpad and Emacs have no problems with them). The
-problem was in doftprecv2() in the FTT_ASC section. There was no conditional
-code for Unix vs Windows. In all cases, the code discarded incoming CR's in
-ASCII mode. I put the CR-discarding code in #ifdef UNIX..#endif. ckcftp.c,
-22 Aug 2002.
-
-Removed super-verbose debugging from gtword(): ckucmd.c, 23 Aug 2002.
-
-Gregory Bond reported a problem with "if defined \$(BLAH) ..." inside of a
-SWITCH statement. It wasn't really the SWITCH that was doing it, it was the
-fact that he had enclosed the SWITCH case in braces, which made it an
-"immediate macro" (XXMACRO). The XXMACRO code parsed the macro definition
-(the part inside the braces) with cmtxt(...,xxstring), which should have been
-cmtxt(...,NULL) to defer the evaluation of the interior of the macro until it
-was executed. This is better illustrated with the following example:
-
- { echo START, for \%i 1 3 1 { echo \%i }, echo STOP }
-
-which totally fell on its face prior to the fix. Also fixed ?-help for
-immediate macros, which was broken too. ckuusr.c, 23 Aug 2002.
-
-RFC959 says STOU does not take an argument. But every FTP server I've
-encountered but one accepts the arg and constructs the unique name from it,
-which is better than making up a totally random name for the file, which is
-what RFC959 calls for. Especially because there is no way for the client to
-find out the name chosen by the server (because RFC 959 and 1123 are
-contradictory, plus no servers follow either one of them for this anyway). So
-we try STOU with the argument first, which works with most servers, and if it
-fails, we retry it without the arg, for the benefit of the one picky server
-that is not "liberal in what it accepts" UNLESS the first STOU got a 502 code
-("not implemented") which means STOU is not accepted, period (which happens
-with ProFTPD). ckcftp.c, 25 Aug 2002.
-
-Added SET FTP ANONYMOUS-PASSWORD (plus help text and show value). ckcftp.c,
-25 Aug 2002.
-
-Made FTP command "not available" if NOFTP is defined. ckuusr.c, 25 Aug 2002.
-
-Forced client to send a TYPE command upon initial connection, since given
-the variable quality of FTP servers, it's not safe to assume the server is
-in ASCII or any other particular mode. ckcftp.c, 25 Aug 2002.
-
-SET FTP CHARACTER-SET-TRANSLATION ON is completely broken in K95, although it
-works fine in C-Kermit. Furthermore it is broken in both the GUI and Console
-versions, so it's not a Unicode vs OEM console-character-set issue.
-
-Added Concurrent PowerMAX OS target from Tom Horsley. makefile, ckuver.h,
-27 Aug 2002.
-
-Minor fixes to FTP module from Jeff. ckcftp.c, 27 Aug 2002.
-
-New Makefile target for Mac OS X 10.2, needs -DNDSYSERRLIST added, from
-William Bader. 2 Sep 2002.
-
-SET OPT DIR /DOTFILES didn't work for server listings. A few years ago when
-I front-ended zxpand() with nzxpand(), I missed a couple places where
-traverse() needed to refer to xmatchdot (nzxpand's argument flag) rather than
-global matchdot. Fixed in traverse(): ckufio.c, 2 Sep 2002.
-
-From Jeff, 4 Sep 2002:
- . setautodl(x) -> setautodl(x,y): ckuusr.h, ckuus[7y].c
- . Add another parameter to popup_readblah(): ckuus6.c
- . Sort out some confusion in scanfile() where a parameter was also used as a
- local flag. ckuusx.c.
- . Protect restoring of saved terminal idle parameters with a flag that says
- they were actually saved. ckuusr.c.
- . Rework uq_text() and uq_mtxt(). ckuus3.c.
- . Fix FTP charset translation for little-endian hardware: ckcftp.c.
-
-The latter still doesn't work in Linux:
-
- (/home/fdc/kermit/) C-Kermit>set ftp server-character-set latin1-iso
- (/home/fdc/kermit/) C-Kermit>set file character-set utf8
- (/home/fdc/kermit/) C-Kermit>get latin1.txt
-
-Results in "????????: file not found". But it works fine on the Sun.
-
-Jeff's patch removed a little-endian byte-swap (LEBS) from doftpsend2(). But
-the real problem was that LEBS was not being done consistently throughout the
-module. There were similar xgnbyte()/xpnbyte() loops elsewhere in the code,
-and all of them needed to work the same way. Undoing Jeff's fix and then
-adding the LEBS to the loop in getreply() makes downloads work right, but the
-messages are still messed up (they come out in Chinese :-) Begin by moving all
-byte-swapping operations that occur in ckcftp.c itself into a new function,
-bytswap(). It's either right to do it all the time, or to do it never; this
-way we can turn it on and off in one place.
-
-xp/gnbyte() include behavior that depends on what Kermit is doing: W_SEND,
-etc. xpnbyte() tests W_KERMIT, which is a combination of W_SEND, W_RECV, etc.
-Defined a new symbol W_XFER, which is like W_KERMIT but includes W_FTP. These
-are all the "whats" in which character sets might need to be converted.
-Changed the W_KERMIT reference in xpnbyte() to W_XFER. Fixed the inderminate
-"what" state after an FTP command by moving "what = W_COMMAND;" from before
-the main parse loop to inside it (this didn't matter before the addition of
-FTP but now it does). ckcker.h, ckcftp.c, ckuus5.c, 6 Sep 2002.
-
-Finally I changed xlatec() to be consistent with all the other xgnbyte() /
-xpnbyte() usage throughout the FTP module and, poof, everything worked in
-Linux (and still works on the Sun). We still need some work in Windows (where
-the file character-set is not necessarily the console character set for
-messages) but we can tackle that next. ckcftp.c, 6 Sep 2002.
-
-Checking yesterday's work:
-
-Kermit file transfers with charset translation work fine in both directions.
-
-FTP GET with charset translation works fine on both BE and LE
-
-Fixed a typo in yesterday's changes that made FTP PUT with charset translation
-always upload 0-length files. ckcftp.c, 7 Sep 2002.
-
-FTP PUT (after the typo was fixed) with charset translation works fine on BE,
-but on LE the message comes out in Chinese and the resulting file gets ? or
-nothing for all for the accented letters:
-
- FTP... Kermit
- Up Dn Up Dn Term
- BE OK OK OK OK xx
- LE no OK OK OK xx
-
-xx = C-Kermit CONNECT mode with translation doesn't seem to do anything, not
-only in today's code, but also in the 8.0 release version: "set term char
-latin1 utf8" -- SHOW CHAR shows the right stuff, but no translation is done.
-Ditto for the 7.0 release. That can't be right...
-
-But one problem at a time -- what's wrong with LE FTP uploads? Note that
-XLATE works on the same machine, so it's obviously confusion in xgnbyte()
-about "what". Suppose we make xgnbyte() ALWAYS return bytes in BE order.
-This makes sense because xgnbyte() is almost always used to feed xpnbyte(),
-and xpnbyte() requires its bytes to come in BE order. This means that all
-code that uses xgnbyte()/xpnbyte() loops can be simplifed, which I did for
-the FTP module. ckcfns.c, ckcftp.c, 7 Sep 2002.
-
-Of course Kermit protocol uses xgnbyte() too, but only for filling
-packets, and packets never contain UCS2 and even if they did, it would have
-to be big-endian, so no changes needed for getpkt(). Now we have:
-
- FTP... Kermit
- Up Dn Up Dn
- BE OK OK OK OK
- LE OK OK OK OK
-
-Now let's look at the remaining xgnbyte() calls in the rest of the code:
-
-ckuus4.c:
- xlate() uses it of course. I simplified the general-case loop.
- Works OK on both Sun and Linux.
-
-ckuus6.c:
- typegetline() uses it. I commented out the byte swap. Seems OK.
-
-Built and tested on Linux, Solaris, and SunOS. I'm sure I must have broken
-something, but the main things are better than they were. Kermit and FTP
-transfers need testing in K95, as well as the TYPE command (there's a bunch of
-special K95 code in there). C-Kermit charset translation during CONNECT is
-still broken, or else I forgot how to use it, but that's a separate issue
-since xgnbyte()/xpnbyte() are not involved. And we still need to do something
-in FTP getreply() for K95 to convert messages to the console character set for
-display, rather than the file character set (should be trivial). Also there's
-still a lot of extra debugging and commented-out junk in ckcftp.c to be
-cleaned up after more testing.
-
-During yesterday's testing, I noticed that REMOTE SET { FILE, XFER }
-CHARACTER-SET didn't work. The server accepted these commands but they didn't
-seem to do anything. In fact, they did work, but they were undone later by
-code in sfile() that restored the global settings in case they had been
-temporarily overridden by autoswitching or whatever. The solution is to
-"unsave" the saved values whenever a global setting is performed explicitly.
-Tested successfully against Sun and Linux servers. Also the server end of
-REMOTE SET needed updating for Unicode. ckcfn[s3].c, ckuus3.c, 8 Sep 2002.
-
-Cleaned commented-out cruft and extra debugging from ckcftp.c. 8 Sep 2002.
-
-Kermit autodownload with ASK file dialog: if user supplied an absolute
-pathname, it was treated like a relative one. Fixed the invocation of
-uq_file() in rcvfil() to temporarily override the RECEIVE PATHNAMES setting.
-ckcfns.c, 10 Sep 2002.
-
-Added SET TERMINAL ROLL KEYSTROKES { SEND, RESTORE-AND-SEND, IGNORE }, parse
-only. Needs implementation (search for tt_rkeys and rollkeytab in ckuus7.c).
-ckuusr.h, ckuus[27].c, 10 Sep 2002.
-
-If FILE INCOMPLETE is DISCARD and a file is being received by IKSD but IKSD
-gets a Telnet LOGOUT command, the partial file is not deleted. In fact this
-happens any time doexit() is called for any reason during file reception,
-e.g. because of SIGHUP. Added code to doclean() to check if a download
-output file was open, and if so, to delete it after closing it if keep==0.
-ckuusx.c, 10 Sep 2002.
-
-Added a brief one-line message after remote-mode file transfer saying
-what (or how many) file(s) were transferred, where they went, and whether
-the transfer was successful -- kind of an automatic WHERE command, useful
-with autodownloads so you know what happened. ckcpro.w, 11 Sep 2002.
-
-The Unix and VMS C-Kermit CONNECT modules have botched remote-charset to
-local-UTF8 translation ever since the Unicode was first added in v7.0. Fixed
-in ckucns.c, ckucon.c, ckvcon.c, 11 Sep 2002.
-
-On to pattern-matching... The matchdot business should apply only for (Unix)
-filename matching, not for general string matching. Fixed in ckmatch():
-ckclib.c, 11 Sep 2002.
-
-A bigger problem occurs in filename matching. Somehow the dirsep == fence
-business interferes with matching {foo,bar,baz} segments. For example, I have
-a filename "foo" and I want to match it with the pattern "{foo,bar}". Somehow
-the segment pattern becomes "*/foo" and doesn't match the string. Where does
-the '/' get tacked on? I don't even know how to explain this, but the short
-story was that ckmatch(), under certain circumstances, would back up to before
-the beginning of the filename string, which just happened to contain a "/"
-(and before that a ".") because of who was calling it. Obviously this is not
-how to write a pattern matching function... Ensuring that it never backs up
-beyond the beginning of a string fixed the immediate problem and does not seem
-to have broken any other matching scenarios (I have 150 of them in my test
-script). ckclib.c, 11 Sep 2002.
-
-There's still a problem though. Suppose the a client sends "dir {{.*,*}}" to
-a server. This asks for a directory listing of all files that begin with
-dot as well as all files. Still doesn't work because we don't normally show
-dot-files, but in this case it SHOULD work because ".*" was explicitly
-requested. Staring at the ckmatch() code revealed how to fix this, and I did,
-but that was only half the problem. The other half was that the list of
-files being fed to ckmatch() did not include the dotfiles in the first place.
-The cure here is to change nzxpand() to prescan the pattern to see if it
-includes a leading dot, and if so to set the "xmatchdot" flag itself, even
-if it wasn't set by the caller. ckclib.c, ckufio.c, 11 Sep 2002.
-
-Now that {foo,bar,...} patterns work better, I added a quick hack to the
-DIRECTORY command to allow multiple filespecs to be given, in which case we
-combine them into a {file1,file2,...} pattern before calling nzxpand(). Works
-fine but it's a hack because you don't get file lists upon "?" in the second
-and subsequent filespec fields, but I doubt anyone will notice. So now,
-finally, people can do "dir .* *" like they do in Unix (except with ls) to get
-a listing of all files in a directory without having to know about or use the
-/DOTFILES switch. This was NOT done for the server end of RDIR because of
-ambiguity of spaces as separators versus filename characters.) domydir():
-ckuus6.c, ckuus[r2].c, 11 Sep 2002.
-
-Added a CONTINUE command. In a script, this does whatever CONTINUE did before
-(e.g. in a FOR or WHILE loop). At the prompt, it calls popclvl(), which gives
-a more natural way to continue a script that has "shelled out" to the prompt.
-ckuusr.[ch], 11 Sep 2002.
-
-Added help text for CONTINUE. ckuus2.c, 12 Sep 2002.
-
-From Jeff, 16 Sep 2002:
- . SET TERM ROLL KEYSTROKES for K95: ckuusr.h, ckuus7.c
- . Remove the doexit() call from the Telnet TELOPT_LOGOUT handler: ckctel.c
-
-Fixed an FTP debug message to be consistent with Kermit ones.
-ckcftp.c, 16 Sep 2002.
-
-Added SET/SHOW TRANSFER REPORT to turn the post-transfer report off and on.
-ckuusr.h, ckuus[234].c, 16 Sep 2002.
-
-Fixed Solaris (and maybe some other SVORPOSIX builds) to find out their full
-hostname rather than just short form (e.g. watsol.cc.columbia.edu rather than
-just watsol). ckhost(): ckuusx.c, 16 Sep 2002.
-
-"cat somefile | kermit -Ts -" is supposed to send stdin in text mode, but
-K95's file transfer display reports BINARY. Looked at C-Kermit code; it seems
-fine. Looked at packet and debug logs; C-Kermit was indeed sending in text
-mode and announcing it correctly. K95 gattr() is doing the right thing:
-
- gattr file type[AMJ]=3
- gattr attribute A=text=0
- gattr sets tcharset TC_TRANSP[A]
-
-Same thing happens when C-Kermit is receiving. Yet when I send an actual
-file, rather than stdin, it's received in text mode. The only difference is
-that stdin does not have a Length attribute in its A-packet, so in this case
-the receiver skips any calls to screen() that show the length or percent done.
-Aha, so maybe it's just a display problem -- scrft() is not being called to
-repaint the file type if the size was not known. Fixed in opena() by
-removing the IF clause from "if (fsize > -1L) xxscreen(SCR_FS,0,fsize,"");".
-ckcfn3.c, 18 Sep 2002.
-
-K95 user has a listfile containing some regular filenames and then some
-filenames that include paths and has all kinds of problems with MGET /LISTFILE
-(pieces of different names concatenated to each other, etc). Setting up the
-same scenario here, I don't see the same problems but I do see "Refused: Name"
-when we go to get a path/name file. This happens because (a) we had already
-got a top-level file with a certain name, (b) a file in a subdirectory has the
-same name, (c) we are stripping the path before calling zchki(), and (d)
-FTP COLLISION is set to DISCARD. How do we make FTP not strip the path?
-
-This is an interesting question... The answer depends on where the user
-wants the file to go. Normally if you tell an FTP client to "get foo/bar",
-you want the file "bar" to be downloaded to the current directory.
-
-Anyway, it turns out the FTP module uses paths locally during MGET only if
-/RECURSIVE was specified. So:
-
- mget /listfile:blah /recursive
-
-should have made this work, but it didn't because in the /LISTFILE case,
-we have effectively turned an MGET into a series of GETs, where the code to
-check whether to strip the path didn't check the recursive flag because how
-could a GET (as opposed to an MGET) be recursive? Adding this exception to
-the if-condition got us a bit farther but now when we try to open the output
-file in doftprecv2(), zopeno() fails because the name contains a dirsep.
-We have to call zmkdir() first but that wasn't happening because some other
-flag wasn't set right in this case. Finally zmkdir was called, but with
-the wrong string. After fixing that, it works. Now we should be able
-to use /RECURSIVE to force the pathname to be used on the local end.
-ckcftp.c, 19 Sep 2002.
-
-Checked FTP filename conversion issues. FTP FILENAMES AUTO is supposed to
-mean LITERAL if "wearealike" OR server is UNIX or Windows, otherwise
-CONVERTED, but there were places where this rule was not applied consistently,
-fixed now. ckcftp.c, 21 Sep 2002.
-
-Added SET FTP DISPLAY, which is like SET TRANSFER DISPLAY but applies only to
-FTP, mainly because I tended to type it all the time. Now if you have dual
-sessions, each session can have its own transfer display style. ckcftp.c,
-ckuusr.h, ckuus[347].c, 21 Sep 2002.
-
-Back to FTP MLSD. We're supposed to match the pattern locally, not rely on
-the server to filter its list according to the client's pattern. Thus we must
-also allow an empty argument to MGET and must not send a filespec with MLSD.
-Actually this is tricky -- how is the client supposed to know whether to send
-a filespec. For example, if the user's command is "mget foo*bar", and the
-server supports MLSD, then what should the client do? The client does not
-know the wildcard syntax on the server, so for all the client knows, this
-might be a valid directory name, in which case it should be sent. On the
-other hand, the user might intend it as a wildcard, in which case it should
-NOT be sent. But the FTP client can't read the user's mind. This is another
-serious flaw in the Elz/Hethmon draft. Anyway, I got the local matching
-business working for MLSD as long as the user's MGET arg is really a pattern
-and not a directory name. To be continued... ckcftp.c, 21 Sep 2002.
-
-Added FTP { ENABLE, DISABLE } { FEAT, MLST }. If we always send FEAT, we
-usually get a complaint. If we send FEAT and MLST is negotiated, there is a
-good chance it is misimplemented or will have undesirable side effects, such
-as sending huge file lists. NOTE: /NOINIT on the FTP OPEN command also
-disables both of these. ckcftp.c, 22 Sep 2002.
-
-Fixed mkstemp() code in FTP remote_files(). mktemp() does not open the file,
-mkstemp() does open it; previously we had been opening it again and never
-closing the first instance so every MGET would create another open file
-descriptor. ckcftp.c, 22 Sep 2002.
-
-Added debug messages for temp-file creation and lines read from the temp file.
-ckcftp.c, 22 Sep 2002.
-
-Eliminated sending of some extraneous TYPE commands, but there's still room
-for improvement. ckcftp.c, 22 Sep 2002.
-
-Moved definition of build date to top of ckcmai.c. 22 Sep 2002.
-
-Added recursion to MGET with MLSD... It's all done in remote_files().
-Temp-file pointers are on a stack (max size 128). When parsing MLSD lines
-from the temp file and we see "type=dir", we create the local directory by
-calling zmkdir(), change to the remote by sending CWD, increment the depth,
-and call ourselves. When reading from a temp file, upon EOF we close and
-dispose of the temp file, return -3 if currently at top level, otherwise we
-free the tmpfile name, decrement the depth, send CDUP to the server, "cd .."
-locally, and go back and read the next line from the previous but now current
-temp file. Conceptually simple but needed hours of debugging -- what must
-be static, what must be on the stack... Seems OK now but still needs some
-heavy testing. ckcftp.c, 22 Sep 2002.
-
-Added FTP { ENABLE, DISABLE } { SIZE, MDTM } and add help text for FTP
-ENABLE and DISABLE. ckcftp.c, 23 Sep 2002.
-
-Don't allow restart if SIZE disabled. ckcftp.c, 23 Sep 2002.
-
-Make sure all implicit SIZE commands are surpressed if SIZE disabled.
-ckcftp.c, 23 Sep 2002.
-
-If an explicit FTP MODTIME command is sent when MDTM is DISABLED, and it
-succeeds, re-ENABLE MDTM. Ditto for SIZE. ckcftp.c, 23 Sep 2002.
-
-If an explicit FTP FEATURES command is sent during an FTP session, redo the
-features database from it. ckcftp.c, 23 Sep 2002.
-
-After further discussion with Robert Elz, I realized I had to expose the
-underlying MGET mechanisms to the user; the draft isn't going to change, and
-the new spec will result in undesirable effects if the client tries to "do the
-right thing" by magic in all situations; thus the user must have some new
-controls:
-
- MGET [ /MLST, /NLST, /MATCH:xxx ] [ filespec [ filespec [ ... ] ] ]
-
-These switches let the user force the use of MLSD or NLST when there's a
-choice, and to force local use of a pattern rather than sending it to the
-server, and even to send a directory name to the server at the same time as
-specifying a pattern for local matching, and of course by default we try to do
-the right thing in all scenarios. Symbols only; not coded yet. ckuusr.h,
-23 Sep 2002.
-
-Added the three new switches to MGET, plus /MLST is an invisible synonym for
-/MLSD. If /NLST or /MLSD is given it, it forces the corresponding FTP protocol
-directive. ckcftp.c, 25 Sep 2002.
-
-Now for the tricky part: now we have two separate concepts for what to send to
-the server: a filename or wildcard to be interpreted by the server (NLST only)
-or a directory from which to get a list of all the files (NLST or MLSD),
-possibly together with a pattern to be used by the client to match filenames
-returned by the server. This required giving remote_files() an additional
-argument. Now it uses "pattern" (if any) strictly for local pattern matching
-(because now it is the /MATCH: switch argument, not the MGET filespec), and
-"arg" (the MGET filespec) is what it sends to the server, maybe (see the
-comments in the code for the actual details); either or both these can be
-null. ckcftp.c, 25 Sep 2002.
-
-Discovered that "mget foo", where foo is a directory name, never worked.
-Fixed in remote_files(): ckcftp.c, 25 Sep 2002.
-
-Going through every combination of NLST, MLSD, /MATCH:, and MGET arg and
-debugging each case until OK... Then also with the panix.com NetBSD server
-(lukemftpd 1.0) which also supports MLSD.... 11 test cases all debugged and
-tested OK. ckcftp.c, 26 Sep 2002.
-
-Added /NODOTFILES switch to FTP MGET, to control what happens with dot-files
-if the server includes their names in the list (as lukemftpd does). There's
-no point in adding a /DOTFILES switch because what could it possibly do?
-ckcftp.c, 26 Sep 2002.
-
-Changed a bunch of "skipthis++" to "continue" in doftpget(), to avoid
-error messages when skipping files that user said she wanted to skip.
-ckcftp.c, 26 Sep 2002.
-
-Added help text for the new MGET switches. ckcftp.c, 26 Sep 2002.
-
-Don't switch LOCUS when making an FTP connection until logged in.
-ckcftp.c, 26 Sep 2002.
-
-Fixed LDIR to run Kermit's built-in DIRECTORY code rather than the external
-directory program. ckuusr.c, 26 Sep 2002.
-
-Protect iswild() against NULL args. ckufio.c, 26 Sep 2002.
-
-From Jeff: SET GUI WINDOW RUN-MODE { MAXIMIZE, MINIMIZE, RESTORE },
-plus variables for GUI Window X position, GUI Window Y position, GUI
-Window X resolution, GUI Window Y resolution, GUI Window Run mode.
-ckuusr.h, ckuus[24].c, 27 Sep 2002.
-
-From Ronan Flood: updated FreeBSD 1.0 makefile entry, plus an #ifdef to protect
-sysconf() calls. makefile, ckutio.c, 28 Sep 2002.
-
-Change ftp_auth() to return(0) if an AUTH command gets a 500 response, so it
-doesn't keep sending other kinds of AUTH commands. ckcftp.c, 29 Sep 2002.
-
-Changes from Jeff to yesterday's changes. ckcftp.c, 30 Sep 2002.
-
-From Jeff: SSH command-line personality. Uses same command line as the Telnet
-personality. ckcker.h, ckcmai.c, ckuus[4y].c, 3 Oct 2002.
-
-From Jeff, 7 Oct 2002:
- . SET PRINTER CHARACTER-SET. ckuxla.c, ckuusr.h, ckuus[25].c
- . Promotion of K95 to Beta.01. ckcmai.c
- . Promotion of SET GUI { MENUBAR, TOOLBAR } to visible. ckuus3.c
-
-Changed the URL parser as follows: if the username and/or password fields are
-present but empty, as in:
-
- ftp://@ftp.xyzcorp.com/somepath
- or: ftp://:@ftp.xyzcorp.com/somepath
- but not: ftp://:ftp.xyzcorp.com/somepath
-
-the pointer for these items becomes a pointer to an empty string, rather than
-a NULL pointer. Then when we go to open the connection, if the username
-string pointer points to an empty string, we prompt for the username (and/or
-password). ckuusy.c 9 Oct 2002.
-
-Jason Heskett reported an interesting bug involving a core dump when an
-ON_EXIT macro is defined that executes another macro. Sometimes. He was able
-to send a short command file that always crashed. Diagnosis: ON_EXIT, when it
-is called, pokes itself out of the macro table by setting its own entry in the
-macro name list to an empty string. But this interferes with any macro
-lookups that are done while executing ON_EXIT's body and also evidently some
-code is not happy with empty macro names... To fix: replace "on_exit" with
-"on_exxx", so the replacement keyword is (a) nonempty, and (b) doesn't wreck
-the alphabetical sorting of the table. ckuusx.c, 9 Oct 2002.
-
-Added makefile targets for FreeBSD 4.6 and 5.0. Built and tested on 4.6;
-don't know about 5.0. ckuver.h, makefile, 9 Oct 2002.
-
-Added targets for AIX 5.2 and 5.3; totally untested. ckuver.h, makefile,
-9 Oct 2002.
-
-Built current source on Unixware 7.1.3 (make uw7); it's fine. 9 Oct 2002.
-
-Promoted C-Kermit to 8.0.206 Beta.01 in hopes of a simultaneous release
-with K95 2.1. ckcmai.c, 9 Oct 2002.
-
-From Jeff: Change KERMITFONT definitions to use the new (Unicode 3.1) code
-points for the terminal graphics characters (such as VT100 horizontal scan
-lines), rather than private-use codes. ckcuni.c, 10 Oct 2002.
-
-Jason Heskett also complained that REMOTE CD would print the name of the new
-directory returned by the server even if he SET QUIET ON. This is a tricky
-one. Which server replies should the QUIET settings apply to? If I give a
-REMOTE DIRECTORY command, it means I want to see the directory listing,
-period. But if I give a REMOTE CD command, I get an "unsolicited" response
-message that SET QUIET ON should suppress. Adding message suppression to
-rcv_shortreply() is close, but not totally right; for example, it also
-suppresses the response to REMOTE PWD, which is not helpful. The only right
-way to do this is to suppress for REMOTE CD only, which can be done only by
-setting a (new) global flag, rcdactive. ckuus[r57].c, ckcpro.w, 10 Oct 2002.
-
-Ditto for REMOTE LOGIN response message ("Logged in"). ckuus7.c, 11 Oct 2002.
-
-From Jeff: SET GUI WINDOW FONT { NAME, SIZE }. ckuusr.h, ckuus4.c, 11 Oct 2002.
-
-Quick preliminary 8.0.206 build-all:
-
- OK SunOS 4.1.3
- OK Solaris 2.5.1
- OK Solaris 9
- OK AIX 4.3.3
- OK HP-UX 10.20
- OK VMS 7.1 Alpha + TCP/IP
- OK VMS 7.1 Alpha nonet
- OK VMS 5.5 VAX + TCP/IP
- OK VMS 5.5 VAX nonet
- OK Unixware 7.1.3
- OK FreeBSD 3.1
- OK FreeBSD 4.6
- OK NetBSD 1.5.2 MVME (Gerry B)
- OK Sinix 5.42
-
-Sinix build got stuck on ckuusr.c even though we're not optimizing on Sinix
-any more. Rebooting the machine fixed it.
-
-Fixed some #ifdefs for VMS in new incomplete-file deletion code in doclean().
-ckuusx.c, 11 Oct 2002.
-
-Moved uq_blah() prototypes from ckuusr.h to ckcker.h because these routines
-are called in modules that don't (and shouldn't have to) include ckuusr.h.
-11 Oct 2002.
-
-Jeff verified secure builds on Linux and Solaris.
-
-Custom-build workout: 80 different feature-selection combinations:
- . Fixed yesterday's change for NOSPL: ckcfns.c.
- . Fixed conflict between NORECALL and USE_ARROWKEYS: ckucmd.c.
- . Moved setseslog() from ckuus5.c to ckuusx.c to avoid link-time foulups.
- . Fixed an unguarded reference to zmkdir() in ckcftp.c.
- . Protected rmsg() by #ifndef NOXFER: ckuus7.c.
- . Protected initxlist() by #ifndef NOXFER: ckcmai.c.
- . Fixed unguarded references to g_url struct in xx_ftp(): ckuusy.c.
- . Fixed unguarded references to tt_snaws() in winchh(): ckutio.c.
-
---- 8.0.206 Beta.01 11 Oct 2002 ---
-
-From Jeff, 16 Oct 2002:
- . Fix K95 RMDIR: ckcfn3.c.
- . Makefile targets for Red Hat 7.2, 7.3, 8.0: ckuver.h, makefile.
- . Added \v(log_xxx) for each kind of log for PeterE: ckuusr.h, ckuus4.c.
- . Added SET TERM ATTRIBUTE DIM { ON, OFF }: ckuus[27].c.
- . Change "const" to "CONST" in some PAM declarations. ckufio.c.
-
-Added SET MATCH { DOTFILE, FIFO } { ON, OFF }. A FIFO special file is a named
-pipe, used for interprocess communication. It must be opened at both ends, so
-it's silly to match them by default; opening a FIFO and attempting to read
-will block forever unless somebody is writing into the other end. Made the
-MATCH FIFO default OFF in all cases. The dotfile default is the same as
-always (OFF for UNIX, ON elsewhere); SET MATCH DOTFILE is simply a more
-untuitive and findable command than SET WILD KERMIT /MATCH-DOT-FILES. Note
-that SET MATCH DOTFILE undoes SET OPTIONS DIRECTORY /[NO]DOTFILES, and vice
-versa. ckcmai.c, ckuusr.h, ckuus[23].c, ckufio.c. 17 Oct 2002.
-
-Added client and server end of REMOTE SET MATCH { DOTFILE, FIFO } { ON, OFF }.
-The new protocol codes are 330 and 331, respectively. ckuus[367].c, ckcfns.c,
-17 Oct 2002.
-
-Adjusted the "match dot if pattern starts with dot" heuristic in nzxpand()
-to not kick in if the filespec is "./foo". This probably needs more work.
-ckufio.c, 17 Oct 2002.
-
-Fixed typo in transcribing Jeff's ckcfn3.c code from yesterday. 18 Oct 2002.
-
-Moved some help text out of #ifdef ANYSSH that had nothing to do with SSH.
-(Idea for a new EMACS feature: M-X list-ifdef-environment.)
-ckuus2.c, 18 Oct 2002.
-
-Removed "set file { permission, protection }" keywords, which led nowhere.
-ckuus7.c, 18 Oct 2002.
-
-Added -DSV68 to all SV/68 targets. Make ckgetfqhostname() just return its
-argument in SV/68; it dumps core otherwise. In case this happens anywhere
-else, add -DNOCKGETFQHOST to CFLAGS. makefile, ckcnet.c, 18 Oct 2002.
-
-For PeterE, added SET { SEND, RECEIVE } PERMISSIONS { ON, OFF } so incoming and
-outbound permission attributes can be set separately. ckuus[27].c, 18 Oct 2002.
-
-Changed SHOW ATTRIBUTES to show In and Out permissions separately.
-ckuus5.c, 18 Oct 2002.
-
-Fixed REDO to display the command it's redoing and to add it to the bottom
-of the recall buffer. ckuusr.c, 18 Oct 2002.
-
-Discovered that DATE SATURDAY dumps core... Apparently it always did; this
-case was not included in the date-time torture test script. The crash happens
-because the DATE parsing code doesn't check for a NULL date-converion
-error-message pointer. Fixed in ckuusr.c, 18 Oct 2002.
-
-The reason DATE SATURDAY got a date-conversion error was that this path thru
-the code left a result pointer unset. Fixed in cmcvtdate(): ckucmd.c,
-19 Oct 2002.
-
-DATE SUNDAY +1DAY returned incorrect results (for any day-of-week name, any
-delta time), even though DATE TODAY +1DAY worked fine. Fixed in cmcvtdate():
-ckucmd.c, 19 Oct 2002.
-
-SET TAKE ECHO ON counted each line twice when GOTO was active. Fixed in
-dogoto(): ckuus6.c, 19 Oct 2002.
-
-Jeff noticed:
-"KERMIT READY TO GET...
- RCVD: (2 files) Last: [/amd/prost/p/kd/jaltman/.src/ckonet.c] (OK)
-the last file attempted may have been ckonet.c but it certainly was
-not the last file received" (similarly for sending). Fixed by having two
-pointers for each name; a preliminary pointer, which is set for each file at
-the beginning of the transfer (when we have all the needed info), and a final
-one that is set from the preliminary one only after the file was transferred
-successfully. This corrects not only the automatic "wheremessage" at the end
-of a remote-mode transfer, but also the WHERE and SHOW FILE command results.
-ckuusx.c, ckcfn[s3].c, ckcpro.w, 19 Oct 2002.
-
-From Jeff: Improve ORIENTATION message for K95 to say which directories are
-for which INI files. ckuusr.c, 23 Oct 2002.
-
-Removed Beta designation from herald. ckcmai.c, 23 Oct 2002.
-
-Put final dates and ID strings in Unix and VMS build procedures.
-Makefile, ckvker.com, 23 Oct 2002.
-
-Build-all... #ifdef adjustments: ckcfns.c... 83 different feature-set
-combinations build OK on Linux. 23 Oct 2002.
-
-From Jeff: SET WIN95 HORIZONTAL-SCAN-LINE-SUBSTITUTIONS. ckuusr.h, ckuus7.c,
-24 Oct 2002.
-
-Fixed Heath-19 graphic character-set table to use new Unicode 3.1 values
-if WIN95 HORIZ OFF. ckcuni.c, 24 Oct 2002.
-
-Changed tx_usub() to return Unicode 3.1 values if WIN95 HORIZ OFF.
-ckcuni.c, 24 Oct 2002. <-- No backed off on this.
-
-Some problems during build-all:
-
- . VMS 7.1 TGV 4.2: If I make a Telnet connection with it, then try to send
- a file (itself. wermit.exe) over the connection, the connection drops
- after about 20%, the thermometer zooms out to 100% and SUCCESS is reported.
- This doesn't happen with UCX.
-
- . VMS 7.3 TGV 4.3: ckcmai.c won't compile because of a complaint about the
- declaration of select() (which ckcmai.c doesn't use) in
- SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB. Ditto in VMS 7.2 TGV 4.3.
- Adding NOSELECT to CFLAGS doesn't help. I don't think the VMS version
- even uses select(). But the TGV 4.3 builds were OK in 8.0.201, so what
- changed? I don't see anything in ckcnet.h that would have done it.
-
-It builds OK with VMS 7.1 / TGV 4.2 but sending files on Telnet connections
-fails in a strange way: the connection drops, but the thermomoter goes to 100%
-and success is reported. I don't know why the connection is dropping (s_errno
-is 32 == "broken pipe"), but the spurious success indication is because of
-a double failure in sdata(): (1) The packet-sending loop index could go
-negative without breaking the loop when streaming; (2) if spack() fails,
-sdata() should return -2, not -1 (which means EOF). Also if any ttchk() in
-sdata() returns < 0, sdata should return -2. I fixed this code (which has
-been this way for YEARS) and now VMS C-Kermit properly fails when it gets
-the spack() error, but ttchk() in this case still doesn't think the connection
-is lost, but that must be our new problem with MultiNet. ckcfns.c,
-27 Oct 2002.
-
-The compilation failure in ckcmai.c is a clue... The problem was that I added
-#ifdef VMS / #include <time.h> / #endif to shut up complaints about the time()
-call. Evidently something in VMS <time.h> gives MultiNet a bad case of
-indigestion; removing it fixes the compilation and the result works fine. The
-transmission failures in the other case seem to be a coincidence -- something
-to do with the U of Arizona (probably some obscure VMS quota on my IDs there,
-or some kind of network connection throttling), since it doesn't happen
-anywhere else. ckcmai.c, 27 Oct 2002.
-
-Changed four occurrences of "void" to "VOID" in ckcftp.c, 27 Oct 2002.
-
-Defined NOCKFQHOSTNAME for HPUXPRE65. Might also need this for HP-UX 7
-and maybe 8. ckcnet.c, 27 Oct 2002.
-
-From Jeff: PAM_CONST definition to clear up warnings caused by different
-vendors' definitions of PAM structs. ckufio.c, 28 Oct 2002.
-
-Unixware 2.1.0 build bombs immediately with "UX:make: ERROR: line too long"
-(which line?) Not worth chopping up the makefile to fix but in a pinch it
-could be done. 2.1.3 builds OK.
-
-Did another 20-some platform builds, bringing the total to 83, plus a final
-runthrough of the build-with-84-different-feature-set-combinations script on
-Linux. Should be good to go!
-
---- 8.0.206 24 Oct 2002 ---
-
-Finally got access to Linux on IA64 again. Builds OK but dumps core
-immediately on startup. Adding -DNOCKGETFQHOST was necessary but not
-sufficient. In this case, the very call to ckgetfqhostname() from ckhost()
-(which is in ckuusx.c) was dumping core; thus I had to move the definition of
-NOCKGETFQHOST from ckcnet.c to ckcdeb.h, add an #ifdef __ia64__ clause to it,
-and protect the call to ckgetfqhostname() with it. Obviously there has to be
-a better fix but this will have to for now. ckcnet.c, ckuusx.c, ckcdeb.h,
-31 Oct 2002.
-
-Link step fails in Mandrake 9.0 with undefined references to res_search,
-dn_expand, and crypt. Turns out the linux makefile target tests for the
-existence of libcrypt.a and libresolv.a, but in Mandrake 9.0 they exist
-only as *.so. Changed linux target to look for both. makefile, 1 Nov 2002.
-
-Vace reported that "ftp mget a b c" would get ALL files from the server's
-directory if c did not exist. Diagnosis: off-by-one error in counting MGET
-args processed. Naturally fixing this bug revealed another (this time
-cosmetic) one, which resulted in spurious error messages when hitting MGET
-args that have no match on the server. Fixed in ckcftp.c, 1 Nov 2002.
-
-Rebuilt about 60 of the most important Unix binaries to pick up the fixes
-31 Oct - 1 Nov 2002, and refreshed the FTP site with new sources, tarballs,
-ZIP files, etc. Sat Nov 2 19:11:30 2002
-
-From Martin Vorlaender and Jeff, SSL/TLS support for VMS:
-ckuusr.h, ckuath.h, ckcnet.c, ckctel.c, ckuath.c, 10 Nov 2002.
-
-Added PASV as invisible synonym for PASSIVE. ckcftp.c, 10 Nov 2002.
-
---- 8.0.206 24 Oct 2002 #2 ---
-
-More work on SSL in VMS: Jeff + Martin Vorlaender: ck_ssl.c ckcmai.c ckcnet.c
-ckctel.c ckuath.h ckvcon.c ckvtio.c ckvker.com 10-15 Nov 2002.
-
-Discovered that ckvfio.c would not compile on VMS 6.1 with UCX 4.1 because
-<conv$routines.h> was missing, which is explicitly included. Enclosed the
-#include in #ifdef NOCONVROUTINES..#endif and rebuilt with
-@[users.fdc.src]ckvker.com "" "" "NOCONVROUTINES". 16 Nov 2002.
-
-Fixed the "ftp mget */data/*" problem with two small changes to doftpget():
-ckcftp.c, 16 Nov 2002. Placed a copy of ckcftp.patch in ~kermit/f.
-
-From Lucas Hart: Fixes for VAX C 2.x and CMU TCP/IP. "Can't guarantee that
-the revised CKVOLD will work for all combinations of more recent
-VMS/compiler/TCPIP releases, but I've tested it for compatibility on our AXP
-VMS 6.2, UCX 4.0, DECC 5.6, your AXP VMS 7.1, DEC TCPIP 5.1, DECC 6.0 as well
-as with VAX VMS 5.4, VAX C 3.2, CMU12 and VAX VMS 4.7, VAX C 2.4." ckvfio.c,
-ckvtio.c, ckuus5.c, ckvker.com, ckvold.com, 17 Nov 2002.
-
-From Jeff: More work on VMS SSL. Now it actually works, even in CONNECT mode,
-except it hangs when it gets an error alert or the remote closes the
-connection. ckcnet.c. ckvtio.c, 17 Nov 2002.
-
-NOTE: Lucas's changes should go into the 8.0.206 source code but it's too
-late since ckvtio.c (upon which he based his changes) is already full of
-SSL code.
-
-MGET in K95 in totally broken FOR SOME PEOPLE (mainly me) if the TMP (or TEMP)
-value is too long. It works fine if you set these to C:\TMP. Diagnosis: (1)
-we were malloc'ing only 16 bytes for the temp file name (I think this was my
-fault -- I was only looking at the "ckXXXXXX" part and forgetting that this
-was appended to the TMP path); (2) the Windows version of mktemp() wants you
-to use the value pointed to by the pointer it returns, rather than assuming
-the mktemp() arg will be modified in place. The code was changed to malloc a
-longer string and to use the return value from mktemp() (if any) rather than
-assuming that mktemp() modified its argument string (in K95 only -- not sure
-about Unix platforms; the man pages differ on this, but at least this way if
-some mktemp() version does NOT alter its argument, we still have a usable
-filename (like /tmp/ckXXXXXX)). Of course this won't be good for recursive
-MLSD downloads, but we can always issue patches for the Unix version later if
-needed. The Linux and BSD versions use mkstemp() anyway. There is, however,
-a danger of a memory leak in the Unix version if the user has defined a TMPDIR
-or CK_TMP environment variable whose value is longer than 9 bytes. All this
-is highly unlikely so we should be OK. ckcftp.c, 17 Nov 2002.
-
---- K95 2.1.1 and updated ck[uv]206.{tar,zip} but not C-Kermit binaries ---
-
-From Jeff: Fixes for Telnet Com Port Control, update to a newer release of
-OpenSSL: ck_ssl.c ck_ssl.h ckcdeb.h ckcftp.c ckcmai.c ckcnet.c ckctel.c
-ckuath.c ckuath.h ckucns.c ckuus4.c ckuus5.c ckuusr.c ckuusr.h ckvcon.c
-ckvfio.c ckvker.com ckvtio.c ckvvms.h, 25 Nov 2002.
-
---- K95 2.1.2 and C-Kermit 8.0 CDROM ---
-
-From Jeff, 28 Nov 2002:
- . Updated SSL modules: ck_ssl.[ch].
- . Fixed cipher-list display in SHOW AUTH & FTP ssl_auth(): ckuus7.c. ckcftp.c
- . Some minor tn_wait() fixes: ckctel.c.
- . Preliminary SSL support for VMS CONNECT: ckvcon.c.
-
-Bumped C-Kermit edit number to 207.
-
-From Jeff, 29 Nov 2002: "[C-Kermit was dumping core on SCO OSR5 Telnet Com Port
-connections because] the SCO compiler treats all characters as signed. This
-was causing 'sprintf(buf,"02x ",ch);' to produce strings such as "ffffffc2"
-instead of "c2" for values between 128 and 255. This wrote beyond the end of
-a buffer and blew away the stack. Having fixed this I also noticed that
-conect() did not properly check for carrier when TN CPC was negotiated. This
-has now been fixed as well." ckucns.c, ckucon.c, ckctel.c, 29 Nov 2002.
-
-From Jeff, 30 Nov 2002: Fix SSL for VMS and also carry forward the CPC fixes
-to VMS. ckcnet.c, ckvtio.c, ckvcon.c, 30 Nov 2002.
-
-Changed copyright dates that are displayed (but not yet all the internal
-ones) from 2002 to 2003. ckcmai.c, 3 Jan 2003.
-
-Fixed the FTP module's brief-format transaction log, which had the status
-inverted: OK for FAILED and v.v. ckcftp.c 3 Jan 2003.
-
-From Jeff, 4 Jan 2003:
- . Make /MOVE-TO:xxx convert xxx to full pathname: ckuus[r67].c,
- . Make SHOW OPTIONS ALL show both kinds of options: ckuus2.c.
- . More command-line personalities: ckcmai.c, ckuusy.c.
- . New NOSCROLL command for K95: ckuusr.[ch], ckuus2.c.
- . New lockdown and other command-line options: ckuusr.h, ckuusy.c.
- . SSL interface updated to OpenSSL 0.9.7: ck_ssl.c.
- . SET TERM LINE-SPACING and CURSOR xxx NOBLINK: ckuus[27]c.
- . Expanded SHOW GUI command: ckuus3.c
- . New SHOW TABS code: ckuus5.c.
-
-Updated SUPPORT (BUG), NEWS, and INTRO texts. ckuus[26].c. 5 Jan 2003.
-
-Fixed FTP module to suppress "'FEAT': Command not understood" message
-unless FTP DEBUG is ON. ckcftp.c, 6 Jan 2003.
-
-Got a report that C-Kermit dumps core on Solaris when executing a certain
-script. Seems to be related to changing vnambuf[] in zzstring() from an
-automatic array to a malloc'd buffer (see notes from 29 Jun 2000). Changed
-it to an automatic buffer except for K95. ckuus4.c, 6 Jan 2003.
-
-Nope, that's not it. It evidently happens only after FTP PUT has been used.
-Fixed solaris9g makefile target to include -funsigned-char and built a new
-binary. Determined that building with gcc and -funsigned-char makes no
-difference. makefile, 7 Jan 2003.
-
-I did a preliminary audit, looking at the items in the left column: if used in
-a given routine, are there any obvious mistakes:
-
- 1 2 3 4 5
- doftpput->putfile->sendrequest->doftpsend2->secure_write
-malloc OK OK OK OK OK
-makestr OK OK OK OK OK
-automatic arrays OK OK OK OK OK
-[ck]str[n]cpy OK OK OK OK OK
-[ck]str[n]cat OK OK OK OK OK
-sprintf OK OK OK OK OK
-nzltor OK OK OK OK OK
-zfnqfp OK OK OK OK OK
-memcpy OK OK OK OK OK
-bcopy OK OK OK OK OK
-
-secure_write sends the data directly on clear-text connections. On secure
-connections, it calls secure_putbuf(), which calls secure_putbyte(), but we
-aren't using those, so secure_write() is the end of the call chain for FTP
-PUT. doftpsend2 has buf[] as an automatic array, which it reads file data
-into using zxin (binary mode only), but this looks OK. Still, I changed it
-read 1 less than the buffer size (fread) just in case. Also there was one
-debug() statement that referred to an automatic array (fullname[]) before it
-was initialized (but not used in this case), which I fixed. ckcftp.c,
-7 Jan 2003.
-
-FTP GET /RECURSIVE somepath/somefile still didn't work, despite what the
-notes of 19 Sep 2001 say. There are so many paths through the code,
-depending on switch values, GET vs MGET, etc, that a crucial spot was missed.
-Fixed in doftpget(): ckcftp.c, 7 Jan 2003.
-
-Back to the core dump... after two days of full-time debugging, I found the
-culprit: the buffer-full test in the zzout() macro should have been ">="
-rather than just ">", thus Kermit wrote 1 byte past the end of the malloc'd
-FTP PUT output buffer, ucbuf. Why did it never happen in K95? Because, since
-it's a secure build, FUDGE_FACTOR is defined there. But it's not defined in
-Solaris or other clear-text builds. Although the crash wouldn't happen in
-secure builds, the 1-byte leak might have caused errors in the data transfer.
-In non-Solaris clear-text builds, like Linux, I suspect that malloc() tends
-add something for safety (especially given the man page statement that it
-allocates "at least" what you asked for). Another reason the problem escaped
-notice is that zzout() is used only for text-mode PUTs (and then only when
-there is no character-set translation), but most transfers these days are
-binary and/or downloads. Anyway, in the course of debugging, a lot of small
-cleanups were done: sizeof(blah) for all arrays was replaced by the same
-symbolic size that was used to allocate the array, numeric array sizes were
-replaced with symbolic ones, etc. The real fix is one character long.
-ckcftp.c, 9 Jan 2003.
-
-Got a report that "mget /recursive */somedir/*" downloaded the files into
-the current directory, rather than re-creating the remote directory structure.
-Fixed in doftpget(): ckcftp.c, 10 Jan 2003.
-
-Unix C-Kermit did not allow file transfer if started under inetd and accessed
-via Internet raw socket (or whatever). Diagnosis: isatty() and friends would
-fail causing ttopen() to fail. Fixed by adding escape clauses for "-l 0"
-situations (i.e. Kermit invoked with an already-open file descriptor) at the
-appropriate places. ckcmai.c, ckutio.c, 14 Jan 2003.
-
-From Jeff for K95 2.1.3
- . Add test for startflags & 128 to trap() for ignoring BREAK.
- . Fix for SHOW TRANSMIT.
-
---- K95 2.1.3 ---
-
-FTP USER, FTP ACCOUNT, plus the various prompts and switches for FTP username,
-password, and account all neglected to strip quotes, and in most cases quotes
-are necessary to specify a username that contains spaces. ckcftp.c,
-15 Jan 2003.
-
-FTP MPUT f1 f2 f3... gets a parse error if any of the fn's do not match an
-existing file. This is bad for scripts. In doftpput(), cmfdb() looks for
-keywords (switches) or CMIFI. When it hits CMIFI, it exits from the initial
-parse loop and then does additional cmifi()s in a loop until done. The most
-obvious fix is to parse each field with cmfdb(CMIFI,CMFLD), i.e. fall back to
-CMFLD if CMIFI doesn't match anything. Then if CMFLD was used, we don't add
-the filespec to the list. This is a rather big change but it seems to work.
-No error messages or failures happen for non-matching fields, but an error
-message is printed (and the MPUT command fails) if none of the fields match
-any files. This fix got in too late for 2.1.3; workaround: use C-Shell
-like wildcard list (ftp mput "{*.abc,foo.*}"). ckcftp.c, 16 Jan 2003.
-
-GREP did not pass its pattern through the expander, thus variables could
-not be used for patterns. This must have been an oversight -- I can't find
-anything in my notes about it. Fixed in dogrep(): ckuus6.c, 24 Jan 2003.
-
-New makefile target for HP-UX 11.xx with OpenSSL from Tapani Tarvainen.
-makefile, 31 Jan 2003.
-
-From Jeff:
- . Avoid core dump when dereferencing tnc_get_signature(): ckuus4.c.
- . Bump version numbers to 8.0.208, 2.1.4: ckcmai.c.
-
-Added /NOLOGIN to FTP [OPEN]. ckcftp.c, 10 Feb 2003.
-
-Don't dump core if FTP DEBUG is ON and FTP OPEN does not include a service.
-openftp(): ckcftp.c, 10 Feb 2003.
-
-HELP PATTERN text incorrectly identified commands and functions with
-floating and anchored patterns. The corrected lists are:
-Floating: GREP, TYPE /MATCH:, /EXCEPT: patterns, \farraylook(),
-Anchored: IF MATCH, file-matching wildcards, \fsearch(), \frsearch()
-ckuus2.c, 10 Feb 2003.
-
-INPUT n \fpattern(xxx) did not work for case-independent comparisons.
-Fixed in doinput(): ckuus4.c, 10 Feb 2003.
-
-It seems \fpattern() didn't work with MINPUT at all. There was no code to
-handle \fpattern() in the MINPUT parse loop, so it never worked. The code
-had to be totally rewritten to use cmfld() in a loop, rather than cmtxt()
-and then cksplit(). Furthermore, whenever any of the fields was an
-\fjoin(), this had to be split. ckuusr.c, 10 Feb 2003.
-
-Macro replacement via \m() and \fdefinition() does not work as advertised
-(i.e. case sensitively) for associative array elements; e.g. \m(xxx<abc>) is
-treated the same as \m(xxx<ABC>), contrary to section 7.10.10 of the C-Kermit
-7.0 update notes, and to the fact that the two really do exist separately.
-Fixed by adding a static function isaarray(s) which succeeds if s is an
-associative array reference and fails otherwise, and then having \m()
-and \fdef() call mxxlook() (case-sensitive lookup) if isaarray(), otherwise
-(as before) mxlook()). ckuus4.c, 11 Feb 2003.
-
-Fixed FTP OPEN to allow the /USER switch to override SET FTP AUTOLOGIN OFF,
-just as /NOLOGIN overrides SET FTP AUTOLOGIN ON. ckcftp.c, 11 Feb 2003.
-
-In K95, "set key \1234 \27H" (any SET KEY command in which the first char of
-the definition was backslash, and the ONLY character after the backslash
-quantity was an uppercase letter, that letter would be lowercased). Diagnosis:
-xlookup() poking its argument (see notes from July 2000). Jeff sent a fix.
-ckucmd.c, 15 Feb 2003.
-
-Ran my S-Expression torture test to make sure Sexps still worked. They do,
-except the bitwise & and | operators were broken, e.g. (& 7 2) and (| 1 2 4)
-get "Invalid operand" errors. Jeff's code had added an early failure return
-from the lookup loop when when a single-byte keyword matched a keyword that
-started with the same byte but was more than one byte long. So "&" would hit
-"&&" and fail instead of continuing its search (xlookup tables aren't sorted
-so there can be no early return). Fixed in xlookup(): ckucmd.c, 16 Feb 2003.
-
-Got rid of "krbmit" target from makefile. It's still there, but we don't
-use it any more. All secure targets now use "xermit", and produce a binary
-called wermit, just like the regular ones do (except the old ckucon.c ones).
-Non-secure targets, since they don't define any of the security symbols,
-wind up compiling and linking to (mostly) empty security modules. makefile,
-15 Feb 2003.
-
-Added \fcvtdate(xxx,3) to format its result in MDTM format (yyyymmddhhmmss,
-all numeric, no spaces or punctuation). Of course these numeric strings
-are too big to be 32-bit numbers and are useless for arithmetic, but they're
-useful for lexical comparison, etc. ckuus[24].c, 16 Feb 2003.
-
-The following FTP commands did not set FAILURE when they failed: RMDIR,
-CD, CDUP, Fixed in the corresponding doftpblah() routines. ckcftp.c,
-16 Feb 2003.
-
-RENAME would sometimes not print an error message when it failed, e.g. in K95
-when the destination file already existed. ckuus6.c, 17 Feb 2003.
-
-Fixed COPY error messages, which did not come out in standard format when
-/LIST was not included. ckuus6.c, 17 Feb 2003.
-
-Fixed #ifdefs in ck_crp.c to allow nonsecure builds on old platforms like
-System V/68 R3. 19 Feb 2003.
-
-Similar treatment for ck_ssl.c. 20 Feb 2003.
-
-From Jeff, 21 Feb 2003:
- . AIX53 and AIX52 symbols for ckcdeb.h, makefile.
- . New gcc targets for various AIX 4.x/5.x versions: makefile.
- . Copyright date updates: ck_crp.c, ck_ssl.c.
- . ENABLE/DISABLE QUERY broken because keyword table out of order: ckuusr.c.
- . Fixed the use of HTTP proxies for HTTP [RE]OPEN for Unix: ckcnet.c.
-
-Also for K95 only: Allow file transfer when K95 is invoked on the remote end
-of a connection to a Pragma Systems Terminal Server connection; automatically
-SET EXIT HANGUP OFF when invoked with open port handle ("k95 -l nnnn").
-
-"cd a*" failed even when "a*" matched only one directory. Fixed in cmifi():
-ckucmd.c, 21 Feb 2003.
-
-In the Unix version, replace "extern int errno;" with "#include <errno.h>"
-if __GLIBC__ is defined, since glibc now defines a thread-specific errno.
-ckcdeb.h, 26 Feb 2003.
-
-Added #ifdefs to skip compilation of ckuath.c in nonsecure builds. Tested
-by building both secure and regular versions in Linux. ckuath.c, 26 Feb 2003.
-
-Ran the build-in-84-different-configurations script on Linux to make sure it
-still builds with all different combinations of feature selection options.
-All OK. 26 Feb 2003.
-
-Built on VMS. Needed to add a prototype for mxxlook*() to ckuusr.h; built
-OK otherwise. 26 Feb 2003.
-
-From Jeff: More #ifdef shuffling for nonsecure builds: ckuath.c, ck_ssl.c,
-27 Feb 2003.
-
-Added code to ensure \v(download) ends in a directory separator in Unix,
-Windows, and OS/2. ckuus7.c, 27 Feb 2003.
-
-Added code to K95 zfnqfp() to tack on directory separator when returning
-a directory name. ckofio.c, 27 Feb 2003.
-
-Somehow an old copy of ckuath.c popped to replace the new one. Put the new
-one back. 28 Feb 2003.
-
-From Jeff: Fix typo in my K95 zfnqfp() code from yesterday; fixes for handling
-UNCs uniformly, no matter which way their slashes are leaning. ckofio.c,
-28 Feb 2003.
-
-At Jeff Mezei's suggestion, separate text and binary mode open sequences
-for VMS session log. ckvfio.c, 28 Feb 2003.
-
-Added freebsd48 target for FreeBSD 4.8. makefile, 1 Mar 2003.
-
-Changed Mac OS X entries to include -DUSE_STRERROR. makefile, 2 Mar 2003.
-
-Fixed GETOK /GUI to evaluate its text argument. ckuus6.c, 3 Mar 2003.
-
-Jeff fixed the K95 Dialer QUICK dialog to (a) allow templates, and (b) have
-a Save-As option. 3 Mar 2003.
-
-Jeff fixed a problem with the Xmodem-CRC checksum being crunched whenever
-there was a retransmission. 7 Mar 2003.
-
-Added target/banner for Tru64 5.1B. makefile, ckuver.h, 5 Mar 2003.
-
-In Unix, the zcopy() routine (used by the COPY command) reset the user's umask
-to 0 for the remainder of the Kermit process lifetime. The bug was in
-ckufio.c 8.0.194, 24 Oct 2002, and is fixed in ckufio.c 8.0.195, 6 Mar 2003.
-Of course this happened after building 155 C-Kermit 8.0.208 binaries. (But
-before officially releasing 8.0.208.)
-
-In the VMS version, changed:
-
- while ((n--) && xx_inc(2) > -1) ;
-to:
- while ((n--) && xx_inc(2) >= 0) ;
-
-to suppress the "...is being compared with a relational operator to a constant
-whose value is not greater than zero" warning. ckvtio.c, 7 Mar 2002.
-
-Added a debug call to dologend in hopes of catching overzealous Locus
-switching, which seems to happen only in K95. ckuus3.c, 7 Mar 2002.
-
-Rebuilt binaries for some of the more current Unix releases: AIX 4.3.3-5.1,
-Solaris 7-9 , Red Hat 7.0-8.0, Slackware 8.1, Freebsd 4.7-4.8, NetBSD 1.6,
-OpenBSD 3.2, Unixware 7.1.3, Open Unix 8, OSR5.0.6a, etc. A Unix binary with
-COPY umask fix shows a 6 Mar 2003 date for "UNIX File support" in SHOW
-VERSIONS; a binary without the fix shows 24 Oct 2002.
-
-C-Kermit 8.0.208 dated 14 March 2003 released on 10 March 2003.
-
----8.0.208---
-
-From Jeff 13 Mar 2003:
- . Updated SSL module allows importation of tickets from host.
- . freebsd50+openssl target: makefile.
- . FTP PUT /PERMISSIONS error message for K95: ckcftp.c.
-
-Fixed MINPUT to strip quotes or braces from around targets (this was broken
-on Feb 10th). Thanks to Jason Heskett for discovering and reporting this
-(killer) bug. ckuusr.c, 14 Mar 2003.
-
-Changed version number to 209 Dev.00. ckcmai.c, 14 Mar 2003.
-
-While debugging the alphapage script, I found that the command "minput 8 \6\13
-\21\13 \13\27\4\13 \30\13" gets "?Not confirmed" in 8.0.208 and 8.0.209, but
-not in 206 and earlier. This problem too was introduced on Feb 10th by
-changing MINPUT parsing from cmtxt() followed by cksplit() to cmfld() in a
-loop. cmfld() uses setatm() to return its result and of course setatm()
-breaks on \13. Changing setatm() not to do this would break everything else.
-But cmfld() has no arguments that let us tell it to do anything different in
-this case. Changing the API would be a disaster. The only solution is to add
-an "MINPUT ACTIVE" (minputactive) global variable that tells cmfld() to tell
-setatm() not to break on CR. Now MINPUT with braced targets containing CR
-and/or LF works in 209, 206, and 201 (but not 208). ckucmd.c, ckuusr.c,
-ckuus5.c, 15 Mar 2003.
-
-MINPUT n \fjoin(&a) works OK if all the members of \&a[] are text strings, but
-if they are strings of control chars (as above), they don't get separated by
-the spaces. For example in:
-
- dcl \&a[] = "\4\5" "\6\7" xxx
- minput 10 \fjoin(&a)
-
-MINPUT gets two targets: "aaa" and "\4\5 \6\7 xxx". The bug was in the
-cksplit() call in the \fjoin() case of MINPUT: it needed to specify an
-include set consisting of all the control characters except NUL. ckuusr.c,
-16 Mar 2003.
-
-But there's still a problem:
-
- dcl \&a[] = "\4\5\13\10" "\6\7" "xxx"
-
-creates an array whose first member is "^D^E (one doublequote included). But
-if braces are used instead, there's no problem. Same deal as MINPUT: cmfld()
-breaks on CR or LF, thus the end quote is lost. If I set minputactive for
-DECLARE initializers too, that fixes it. Is there any reason not to do this?
-Can't think of any (famous last words)... ckuusr.c, 16 Mar 2003.
-
-Since it has multiple applications, changed the flag's name from minputactive
-to keepallchars. ckucmd.c, ckuus[r5].c, 16 Mar 2003.
-
-\v(exedir) wasn't being set correctly (it included the program name as well
-as the directory). Fixed in getexedir(): ckuus4.c, 16 Mar 2003.
-
-SET CARRIER-WATCH <Esc> "auto matic" (spurious space in supplied keyword).
-Cosmetic only; it still worked. Fixed in setdcd(): ckuus3.c, 16 Mar 2003.
-
-"directory a b c" listed too many files -- all files whose names END WITH a,
-b, or c, rather than the files whose names WERE a, b, or c. Diagnosis: The
-filespec is changed into a pattern: {a,b,c}, which is the correct form. It is
-passed to nzxpand(), which goes through the directory getting filenames and
-sending each one to ckmatch() with the given pattern. ckmatch() receives the
-correct pattern but then prepends a "*" -- that's not right. It's not just
-in filename matching either. The following succeeds when it shouldn't:
-
- if match xxxxc {{a,b,c}} <command>
-
-Changing ckmatch() to not prepend the "*" to each segment fixes the command
-above but breaks lots of others. Running through the "match" torture-test
-script shows the problem occurs only when the {a,b,c} list is the entire
-pattern, and not embedded within a larger pattern. Testing for this case
-fixed the problem. ckmatch(): ckclib.c, 16 Mar 2003.
-
-Fixed FTP MODTIME to not print anything if QUIET ON. ckcftp.c, 16 Mar 2003.
-
-Picked up a new ckuath.c from Jeff, not sure what the changes are. 16 Mar 2003.
-
-Did a few regular and secure builds to make sure I didn't wreck anything.
-
-Changed version number to 209 (final). ckcmai.c, 16 Mar 2003.
-
-Jason Heskett found another bug: if you define a macro FOO inside the
-definition of another macro BAR, and FOO's definition includes an odd number
-of doublequotes (such as 1), FOO's definition absorbs the rest of BAR's
-definition. Example:
-
- def TEST {
- .foo = {X"}
- sho mac foo
- }
- do test
- sho mac foo
-
-Results in:
-
- foo = {X"}, sho mac foo
-
-Diagnosis: the TEST definition becomes:
-
- def TEST .foo = {X"}, sho mac foo
-
-and the macro reader is erroneously treating the doublequote as an open
-quote, and then automatically closes the quote at the end of the definition.
-The error is that a doublequote should be significant only at the beginning of
-a field. But the macro reader isn't a command parser; it doesn't know what
-a field is -- it's just looking for commas and skipping over quoted ones.
-First we have to fix an oversight: SET COMMAND DOUBLEQUOTING OFF should have
-worked here, but it wasn't tested in this case. Fixed in getncm(): ckuus5.c,
-17 Mar 2003.
-
-There are only certain cases where it makes sense to treat doublequotes as
-signicant:
-
- . An open quote must be at the beginning or preceded by a space.
- . A close quote is only at the end or else followed by a space.
-
-This too was fixed in getncm(): ckuus5.c, 17 Mar 2003.
-
-A fix from Jeff SSL/TLS FTP data decoding. ckcftp.c, 18 Mar 2003.
-
-Tried building C-Kermit on a Cray Y-MP with UNICOS 9.0. "int suspend",
-declared in ckcmai.c and used in many modules, conflicts with:
-
- unistd.h:extern int suspend __((int _Category, int _Id));
-
-The "=Dsuspend=xsuspend" trick doesn't work for this; there is no way around
-the conflict other than to rename the variable: ckcmai.c, ckutio.c,
-ckuus[35xy].c. 26 Mar 2003. VMS and K95 not affected.
-
-OK that gets us past ckcmai.c... Then in ckutio.c I had to add a new #ifdef
-around the LFDEVNO setting, because the Cray didn't have mkdev.h. Could not
-find a Cray-specific manifest symbol, so I made a new makefile target (cray9)
-that sets this symbol. Having done this I have no idea what kind of lockfile
-would be created, but I also doubt if anybody dials out from a Cray. The
-binary should run a C90, J90, or Y-MP. makefile, 26 Mar 2003.
-
-Added a target for SCO OSR5.0.7. makefile, ckuver.h, 30 Mar 2003.
-
-Changed since 208:
-makefile ckuver.h ckcmai.c ckclib.c ckcftp.c ckucmd.c ckuus*.c ckutio.c.
-
----8.0.209---
-
-From Mark Sapiro, a fix for the March 17th doubleqote fix, getncm(): ckuus5.c,
-4 Apr 2003.
-
-From Jeff, 29 Apr 2003:
- . Corrected target for HP-UX 11.00 + OpenSSL: makefile,
- . Do not allow WILL AUTH before WONT START_TLS: ckctel.h ckctel.c
- . Add hooks for SFTP and SET/SHOW SFTP: ckcdeb.h ckuusr.h ckuusr.c ckuus3.c
- . Add SKERMIT ckuusr.h ckuusr.c
- . Add ADM-5 terminal emulation: ckuus7.c, ckuus5.c
- . Uncomment and update HELP SET SSH V2 AUTO-REKEY: ckuus2.c
- . Enable IF TERMINAL-MACRO and IF STARTED-FROM-DIALER for C-Kermit: ckuus6.c
- . Fix conflicting NOSCROLL keyword definition: ckuusr.h
- . Set ttname when I_AM_SSH: ckuusy.c
- . Add extended arg parsing for SSH, Rlogin, Telnet: ckuusy.c, ckuus4.c
- . Security updates: ckuath.c, ck_ssl.c
- . Change K95 version number to 2.2.0: ckcmai.c
- . Save K95 term i/o state before executing keyboard macro: ckuus4.c
- . Add tests for SSH Subsystem active during INPUT/OUTPUT/CONNECT: ckuus[45].c
- . Enable K95 SET SSH V2 AUTO-REKEY: ckuus3.c
-
-SFTP and SET SFTP subcommands are implemented up to the case statements.
-
-Files of mine that Jeff hadn't picked up:
- ckuver.h ckcftp.c ckutio.c ckuusx.c (just minor changes for last build-all)
-
-On 4 Jan 2003, SET RECEIVE MOVE-TO was changed to convert is argument to an
-absolute path, which made it impossible to specify a relative path, then
-move to different directories and have it apply relatively to each directory.
-Changed this as follows:
-
- . Parser uses cmtxt() rather than cmdir() so it won't fail at parse time.
- . If path is absolute, we fail at parse time if directory doesn't exist.
- . In reof() we run the the path through xxstring (again, in case deferred
- evaluation of variables is desired) and then, if not null, use it.
- . If the directory doesn't exist, rename() fails and reof() returns -4,
- resulting in a protocol error (this is not a change). We do NOT create
- the directory on the fly.
-
-I also fixed SET SEND/RECEIVE RENAME-TO to parse with cmtxt() rather than
-cmdir(), since it's parsing a text template, not a directory name, e.g.
-"set receive rename-to file-\v(time)-v(date)-\v(pid)". This was totally
-broken, since when I don't know. We don't call xxstring() in this parse, so
-evaluation is always deferred -- I'd better not change this. ckuus7.c,
-ckcfns.c, 1 May 2003.
-
-From Jeff, Sat May 3 14:15:23 2003:
- . Pick up the right isascii definition for K95: ckctel.c
- . malloc... ckuath.c (new safe malloc routines for K95)
- . Add author listing: ckuus5.c
- . SSH Heartbeat support (K95 only): ckuus[23].c
- . Prescan --height and --width to avoid window resizing at startup: ckuusy.c
- . Add checks for fatal() or doexit() called from sysinit(): ckuusx.c
- . Move some K95-specific definitions to ckoker.h: ckcdeb.h
- . Add support for ON_CD macro in zchdir(): ckufio.c
- . Add a command to let FTP client authenticate with SSLv2: ckcftp.c
- . Fix parsing of FTP file facts like "UNIX.mode": ckcftp.c
-
-ON_CD will need some explaining (to be done). It's implemented for Unix,
-VMS, WIndows, and OS/2.
-
-The FTP file facts fix came from first exposure to the new OpenBSD FTP
-server: ftp://ftp7.usa.openbsd.org/pub/os/OpenBSD/3.3/i386/
-The period in "UNIX.mode" caused an erroneous word break, adding junk to
-the filename.
-
-About the malloc changes, Jeff says "K95 is not behaving well in low memory
-environments. I'm not sure that C-Kermit does much better. The program does
-not crash but it certainly does not behave the way the user expects it to.
-I'm beginning to think that any malloc() error should be treated as fatal."
-
-Not visible in these changes because it's in K95-specific modules: Jeff made
-SET ATTRIBUTES OFF and SET ATTRIBUTES DATE OFF apply to XYZMODEM transfers.
-
-From Jeff, 11 May 2003:
- . Add support for SSH Keepalive to relevant SET command (K95): ckuus3.c
- . Reduce max overlapped i/o requests from 30 to 7 (K95): ckuus7.c
- . Don't call sysinit() in fatal(): ckuusx.c.
- . Some new conditionalizations for SSL module: ck_ssl.c
-
-The doublequote-parsing fixes from March and April broke the SWITCH statement,
-which is implemented by internally defining, then executing, a macro. If I
-drop back to the old dumb handling of doublequotes, everything is fixed except
-the problem of March 17th. But can we really expect getncm() to pre-guess
-what the parser is going to do? getncm()'s only job is to find command
-boundaries, which are represented by commas. Commas, however, is needed IN
-commands too. We take a comma literally if it is quoted with \, or is inside
-a matched pair of braces, parens, or doublequotes. It is not unreasonable to
-require a doublequote in a macro definition to be prefixed by \ when it is to
-be taken literally. The proper response to Jason Heskett's complaint of March
-17th should have been to leave the code alone and recommand an appropriate
-form of quoting:
-
- def TEST {
- .foo = {X\"}
- sho mac foo
- }
-
-And this is what I have done. Another reason for sticking with the old method
-is that it's explainable. The "improved" method, even if it worked, would be
-be impossible to explain. Btw, in testing this I noticed that the switch-test
-script made 8.0.201 dump core. Today's version is fine. The problem with
-quoted strings inside of IF {...} clauses and FOR and WHILE loops is fixed
-too. Perhaps "unbroken" would be a better word. ckuus5.c, 11 May 2003.
-
-Vace discovered that FTP MGET /EXCEPT:{... (with an unterminated /EXCEPT list)
-could crash Kermit. Fixed in ckcftp.c, 11 May 2003.
-
-CONTINUE should not affect SUCCESS/FAILURE status. ckuusr.c, 11 May 2003.
-
-Fixed an oversight that goes back 15 years. While \{123} is allowed for
-decimal codes, \x{12} and \o{123} were never handled. ckucmd.c, 11 May 2003.
-
-Added support for Red Hat <baudboy.h> and /usr/sbin/lockdev. Supposedly this
-allows Kermit to be installed without setuid or setgid bits and still be able
-to lock and use the serial device. Compiles and starts, but not tested.
-ckcdeb.h, makefile, ckutio.c, ckuus5.c, 16 May 2003.
-
-From Jeff: FTP ASCII send data to host when FTP /SSL was in use was broken.
-ftp_dpl is set to Clear when FTP /SSL is in use. This was causing the data to
-be written to the socket with send() instead of the OpenSSL routines.
-ckcftp.c, ckuath.c, 21 May 2003.
-
-From Jeff: Stuff for Kerberos 524: ckcdeb.h. Fixes for FTP; "FTP ASCII send
-data did not properly compute the end of line translations. On Unix (and
-similar platforms) the end of line was correct for no character sets but
-incorrect when character sets were specified. On Windows/OS2, the end of line
-was correct when character sets were specified and incorrect when they were
-not. On MAC, both were broken. Also, FTP Send Byte counts were incorrect
-when character sets were specified." ckcftp.c. 17 Jun 2003.
-
-From Jeff: fixes to HTTP /AGENT: and /USER: switch action: ckcnet.c ckuus3.c
-ck_crp.c ckcftp.c ckuus2.c ckuusy.c ckuusr.c ckcnet.h, 21 Jun 2003.
-
-From Jeff: Fix SET DIALER BACKSPACE so it can override a previous SET KEY
-(e.g. from INI file): ckuus7.c. Some SSL/TLS updates: ck_ssl.c. HTTP support
-for VMS and other VMS improvements (e.g. a way to not have to hardwire the
-C-Kerit version number into the build script) from Martin Vorlaender:
-ckcnet.h, ckuus[r3].c, ckcdeb.h, ckvtio.c, ckcnet.c, ckvker.com. Built on
-Solaris (gcc/ansi) and SunOS (cc/k&r). The new VMS script tests the VMS
-version and includes HTTP support only for VMS 6.2 or later. 2 Jul 2003.
-
-Tried to build on our last VMS system but it seems to be dead. Looks like a
-head crash (makes really loud noises, boot says DKA0 not recognized) (fooey, I
-just paid good money to renew the VMS license). Tried building at another
-site with:
-
- Process Software MultiNet V4.3 Rev A-X,
- Compaq AlphaServer ES40, OpenVMS AXP V7.3
- Compaq C V6.4-008 on OpenVMS Alpha V7.3
-
-Had to make a few corrections to ckvker.com. But still, compilation of
-ckcnet.c bombs, indicating that the SELECT definition somehow got lost
-somewhere since the 209 release (i.e. no SELECT type is defined so it falls
-thru to "SELECT is required for this code"). But I don't see anything in
-ckcdeb.h or ckcnet.[ch] that would explain this. Not ckvker.com either
-(putting the old one back gives the same result). OK, I give up, maybe it's
-just that I haven't tried building it on MultiNet recently. What about UCX?
-Aha, builds fine there except for warnings about mlook, dodo, and parser in
-ckvfio.c (because of ON_CD) -- I suppose I have #include <ckucmd.h>... (done)
-Anyhow it builds OK and the HTTP code is active and almost works (HTTP OPEN
-works; HTTP GET seems to succeed but creates an empty file every time). Tried
-building under MultiNet at another installation; same bad result.
-
-OK so why won't it build for MultiNet? Comparing ckcnet.c with the 209
-version, not a single #ifdef or #include is changed. Tried building with
-p3="NOHTTP" -- builds OK, aha. Where's the problem? Not ckcnet.h...
-Not ckcdeb.h... OK I give up, will revisit this next time I get time to
-do anything with the code.
-
-Later Jeff said "Martin did not implement VMS networking for the HTTP code.
-All he did was activate the #define HTTP which happens to work because his
-connections are using SSL/TLS connections. http_inc(), http_tol(), etc have
-no support for VMS networking regardless of whether it is UCX or MULTINET.
-The vast majority of HTTP connections are not secured by SSL/TLS. It makes no
-sense to support HTTP on VMS until someone is willing to either do the work or
-pay have the work done to implement VMS networking in that code base." So the
-fix is to not enable HTTP for VMS after all. Removed the CKHTTP definition
-for VMS from ckcdeb.h, 6 Jul 2003.
-
-Fixed ckvfio.c to #include <ckuusr.h> (instead of <ckucmd.h>) to pick up
-missing prototypes. 6 Jul 2003.
-
-From Arthur Marsh: solaris2xg+openssl+zlib+srp+pam+shadow and the corresponding
-Solaris 7 target. makefile, 6 Jul 2003.
-
-Remove duplicate #includes for <sys/stat.h>, <errno.h>, and <ctype.h> from
-ckcftp.c. 6 Jul 2003.
-
-Add -DUSE_MEMCPY to Motorola SV/68 targets because of shuffled #includes in
-ckcftp.c. 8 Jul 2003.
-
-From Jeff: Fix problems mixing SSL and SRP without Kerberos. Plus a few minor
-#define comment changes and a reshuffling of #defines in ckcdeb.h to allow me
-to build on X86 Windows without Kerberos. ckcdeb.h, ck_crp.c, ckuath.c,
-10 Jul 2003.
-
-From Jeff: updated ckuat2.h and ckuath.c, 29 Jul 2003.
-
-Mats Peterson noticed that a very small Latin-1 file would be incorrectly
-identified as UCS-2 by scanfile(). Fixed in ckuusx.c, 29 Jul 2003.
-
-Fixed ACCESS macro definition to account for the fact that FIND is now a
-built-in command. ckermit.ini, 30 Jul 2003.
-
-From Jeff: Fix for typo in urlparse() (svc/hos): ckuusy.c, 18 Aug 2003.
-
-From Jeff: Redhat9 makefile targets (needed for for OpenSSL 0.9.7):
-makefile, 19 Aug 2003.
-
-GREP /NOLIST and /COUNT did too much magic, with some undesirable fallout:
-"GREP /NOLIST /COUNT:x args" printed "file:count" for each file. "GREP
-/COUNT:x /NOLIST args" did not print "file:count", but neither did it set the
-count variable. Removed the magic. Also one of the GREP switches,
-/LINENUMBERS, was out of order. Fixed in ckuus6.c, 20 Aug 2003.
-
-From Jeff: "Reorganizing code to enable building with different subsets of
-options; a few typos corrected as well." ckcdeb.h, ckuver.h (for RH9),
-ckcnet.c, ckuus7.c, ckuus3.c: 24 Aug 2003.
-
-Scanfile misidentified a big PDF file as text because the first 800K of it
-*was* text (most other PDF files were correctly tagged as binary). Fixed
-by adding a check for the PDF signature at the beginning of the file.
-scanfile(): ckuusx.c, 25 Aug 2003.
-
-Ditto for PostScript files, but conservatively. Signature at beginning of
-file must begin with "%!PS-Ado". If it's just "%!" (or something nonstandard
-like "%%Creator: Windows PSCRIPT") we do a regular scan. Also added "*.ps"
-to all binary filename patterns. ckuusx.c, 4 Sep 2003.
-
-Ditto (but within #ifndef NOPCLSCAN) for PCL (<ESC>E) and PJL (<ESC>%) files,
-but no binpatterns (note: ".PCL" is the extension for TOPS-20 EXEC scripts).
-ckuusx.c, 4 Sep 2003.
-
-Added comments about OpenSSL 0.9.7 to all linux+openssl targets.
-makefile, 4 Sep 2003.
-
-From Jeff: Added - #define ALLOW_KRB_3DES_ENCRYPT. When this symbol is defined
-at compilation Kermit will allow non-DES session keys to be used during Telnet
-Auth. These session keys can then be used for Telnet Encrypt. The reason
-this is not compiled on by default is that the MIT Kerberos Telnet does not
-follow the RFC for constructing keys for ENCRYPT DES when the keys are longer
-than 8 bytes in length. ckuath.c, ckuus5.c, 4 Sep 2003.
-
-"ftp mget a b c" succeeded if one or more of the files did not exist, even
-with "set ftp error-action proceed". This is because the server's NLST file
-list does not include any files that don't exist, so the client never even
-tries to get them. Fortunately, the way the code is structured, this one was
-easy to fix. ckcftp.c, 14 Sep 2003.
-
-From Jeff: Corrected code in ckcnet.c to ensure that Reverse DNS Lookups are
-not performed if tcp_rdns is OFF. Fixed ck_krb5_getrealm() to actually return
-the realm of the credentials cache and not the default realm specified in the
-krb5.conf file. Previously krb5_cc_get_principal() was not being called.
-Fixed ck_krb5_is_tgt_valid() to test the TGT in the current ccache and not the
-TGT constructed from the default realm. ckcnet.c, ckuath.c, 14 Sep 2003.
-
-Marco Bernardi noticed that IF DIRECTORY could produce a false positive if
-the argument directory had previously been referenced but then removed. This
-is because of the clever isdir() cache that was added to speed up recursion
-through big directory trees. Changed IF DIRECTORY to make a second check
-(definitive but more expensive) if isdir() succeeds, and changed the
-directory-deleting routine, ckmkdir(), to flush the directory cache (UNIX
-only -- this also should be done in K95 but it's not critical). This was
-done by adding a routine, clrdircache() to ckufio.c, which sets prevstat
-to -1 and prevpath[0] to NUL. ckcfn3.c, ckuus6.c, ckufio.c, 18 Sep 2003.
-
-Marco reported the second fix still didn't work for him (even though it did
-for me). Rather than try to figure out why, I concluded that the directory
-cache is just not safe: a directory found a second ago might have been deleted
-or renamed not only by Kermit but by some other process. Why did I add this
-in the first place? The log says:
-
- Some debug logs showed that isdir() is often called twice in a row on the
- same file. Rather than try to sort out clients, I added a 1-element cache
- to Unix isdir(). ckufio.c, 24 Apr 2000.
-
-Experimentation with DIR and DIR /RECURSIVE does not show this happening at
-all. So I #ifdef'd out the directory cache (see #ifdef ISDIRCACHE in ckufio.c;
-ISDIRCACHE is not defined) and backed off the previous changes: ckufio.c,
-ckcfn3.c, ckuus6.c, 28 Sep 2003.
-
-From Jeff: Replace the compile time ALLOW_KRB_3DES_ENCRYPT with a run-time
-command SET TELNET BUG AUTH-KRB5-DES which defaults to ON: ckctel.[ch],
-ckuus[234].c, ck_crp.c, ckuath.c. 4 Oct 2003.
-
-Allow DIAL RETRIES to be any positive number, and catch negative ones.
-Also added code to check for atoi() errors (e.g. truncation). At least on
-some platforms (e.g. Solaris) atoi() is supposed to set errno, but it
-doesn't. ckuus3.c, ckucmd.c, 4 Oct 2003.
-
-Added /DEFAULT: to ASK-class commands (ASK, ASKQ, GETOK):
-
- . For popups: no way to send defaults to popup_readtext() or popup_readpass().
- . For GUI ASK[Q], pass default to gui_txt_dialog().
- . For GUI GETOK, convert "yes" "ok" or "no" default to number for uq_ok().
- . For Text GETOK, add default to cmkey().
- . For Text ASK[Q], add default to cmtxt().
- . For GETC, GETKEY, and READ: no changes.
-
-GETOK, ASK, and ASKQ with /TIMEOUT: no longer fail when the timer goes off
-if a /DEFAULT was supplied. The GUI functions (uq_blah) don't seem to
-support timeouts. Only the text version has been tested. ckuus[26].c,
-4 Oct 2003.
-
-From Jeff: add /DEFAULT: for popups. ckuus6.c. 6 Oct 2003.
-
-Change SET DIAL INTERVAL to be like SET DIAL RETRIES. ckuus[34].c, 6 Oct 2003.
-
-Added target for HP-UX 10/11 + OpenSSL built with gcc, from Chris Cheney.
-Makefile, 12 Oct 2003.
-
-From Jeff, 6 Nov 2003:
- . #ifdef adjustments: ckcftp.c, ckcdeb.h
- . Fix spurious consumption of first byte(s) on Telnet connection: ckctel.c
- . Another HP PJL test for scanfile: ckuusx.c.
- . K95: Recognize DG4xx protected fields in DG2xx emulation: ckuus7.c.
- . Add SSLeay version display to SHOW AUTH command: ckuus7.c
- . Improved SET MOUSE CLEAR help text: ckuus2.c.
- . Improved Kverbs help text: ckuus2.c (+ new IBM-3151 Kverbs).
- . Some changes to ck_ssl.c, ckuath.c.
-
-From PeterE, 10 Nov 2003:
- . Improved HP-UX 10/11 makefile targets for OpenSSL.
- . #ifdef fix for OpenSSL on HP-UX: ck_ssl.c.
-
-Another new makefile from PeterE with improved and integrated HP-UX targets.
-12 Nov 2003.
-
-A couple fixes to the solaris9g+krb5+krb4+openssl+shadow+pam+zlib target
-from Jeff. Added a solaris9g+openssl+shadow+pam+zlib target. makefile,
-21 Nov 2003.
-
-From Jeff, 30 Nov 2003:
- . Fix SEND /MOVE-TO: ckuusr.c.
- . Fix K95 SET TITLE to allow quotes/braces around text: ckuus7.c.
- . Improved "set term autodownload ?" response: ckuus5.c.
- . Fix SHOW FEATURES to specify the protocol for encryption: ckuus5.c
- . Make {SEND, RECEIVE} {MOVE-TO, RENAME-TO} work for XYZMODEM (K95 only).
-
-From Jeff: 7 Jan 2004:
- . At one point Frank started to add a timer parameter to the
- uq_txt() function but he only did it for the non-ANSI
- compilers. I added it for the ANSI compilers, fixed the
- prototypes and provided a default value easily changed
- DEFAULT_UQ_TIMEOUT: ckcker.h, ckuus[36].c, ck_ssl.c, ckcftp.c, ckuath.c.
- . Fixed SET TERMINAL DEBUG ON (typo in variable name): ckuus7.c.
- . Fixed BEEP INFORMATION; previously it made no sound, now uses
- MB_ICONQUESTION. ckuusx.c.
-
-From Ian Beckwith <ian@nessie.mcc.ac.uk> (Debianization), 7 Jan 2004:
- . Search dir/ckermit for docs, as well as dir/kermit in cmdini(): ckuus5.c.
- . New linux+krb5+krb4+openssl+shadow+pam target (kitchen sink minus SRP,
- which Debian does not distribute): makefile.
- ? Mangles the DESTDIR support in makefile to install into a staging area:
- makefile (I didn't take this one yet).
-
-Updated copyright notices for 2004, all modules. 7 Jan 2004.
-
-Added INPUT /NOMATCH, allowing INPUT to be used for a fixed amount of time
-without attempting to match any text or patterns, so it's no longer
-necessary to "input 600 STRING_THAT_WILL_NEVER_COME". If /NOMATCH is
-included, INPUT succeeds if the timeout expires, with \v(instatus) = 1
-(meaning "timed out"); fails upon interruption or i/o error. ckuusr.h,
-ckuus[r24].c, 7 Jan 2004.
-
-Added SET INPUT SCALE-FACTOR <float>. This scales all INPUT timeouts by the
-given factor, allowing time-sensitive scripts to be adjusted to changing
-conditions such as congested networks or different-speed modems without
-having to change each INPUT-class command. This affects only those timeouts
-that are given in seconds, not as wall-clock times. Although the scale
-factor can have a fractional part, the INPUT timeout is still an integer.
-Added this to SHOW INPUT, and added a \v(inscale) variable for it.
-ckuusr.h, ckuus[r257].c, 7 Jan 2004.
-
-undef \%a, \fverify(abc,\%a) returns 0, which makes it look as if \%a is a
-string composed of a's, b's, and/or c's, when in fact it contains nothing.
-Changed \fverify() to return -1 in this case. ckuus4.c, 12 Jan 2004.
-
-\fcode(xxx) returned an empty string if its argument string was empty. This
-makes it unsafe to use in arithmetic or boolean expressions. Changed it to
-return 0 if its argument was missing, null, or empty. ckuus4.c, 12 Jan 2004.
-
-Updated \verify() and \fcode() help text. ckuus2.c, 12 Jan 2004.
-
-While setting up IKSD, Ian Beckwith noticed that including the --initfile:
-option caused Kermit to start parsing its own Copyright string as if it were
-the command line, and eventually crash. I couldn't reproduce on Solaris /
-Sparc but I could in Linux / i386 (what Ian is using) -- a change from Jeff
-on 28 Apr 2003 set the command-line arg pointer to a literal empty string in
-prescan() about line 1740 of of ckuus4.c; the pointer is incremented next
-time thru the loop, resulting in random memory being referenced. Fixed by
-setting the pointer to NULL instead of "". ckuus4.c, 12 Jan 2004.
-
-declare \&a[999999999999999] would dump core on some platforms. atoi()
-or whatever would truncate the dimension to maxint. When we add 1 to the
-result, we get a negative number, which is used as an index, loop test, etc.
-Fixed both dodcl() and dclarray() to check for (n+1 < 0). ckuus[r5].c,
-12 Jan 2004.
-
-Unix zchki() would fail on /dev/tty, which is unreasonable. This prevented
-FOPEN /READ from reading from the terminal. zchki() already allowed for
-/dev/null, so I added /dev/tty to the list of specials. Ditto for FOPEN
-/WRITE and zchko(). ckufio.c 13 Jan 2004.
-
-Added untabify() routine to ckclib.[ch], 13 Jan 2004.
-Added FREAD /TRIM and /UNTABIFY. ckuus[27].c, 13 Jan 2004.
-Added \funtabify(). ckuusr.h, ckuus[24].c, 13 Jan 2004.
-
-Dat Nguyen noticed that (setq u 'p') followed by (u) dumped core. This was
-caused by an over-clever optimization that skipped mallocs for short
-literals, but then went on later to try to free one that hadn't been
-malloc'd. Fixed in dosexp(): ckuus3.c, 14 Jan 2004.
-
-Catch another copyright date. ckuus5.c, 14 Jan 2004.
-
-Fixed SWITCH to work even when SET COMMAND DOUBLEQUOTE OFF (from Mark
-Sapiro). ckuus5.c, 15 Jan 2004.
-
-Changed version to 8.0.211 so scripts can test for recently added features.
-ckcmai.c, 15 Jan 2004.
-
-Fixed a glitch in K95 "help set port". ckuus2.c, 20 Jan 2004.
-
-Fix from Jeff: Connections to a TLS-aware protocol which require a reconnect
-upon certificate verification failure could not reconnect if the connection
-was initiated from the command line or via a URL. ckctel.c ckcmai.c
-ckuusr.c ckuus7.c ckuusy.c, 20 Jan 2004.
-
-From Alex Lewin: makefile target and #ifdef for Mac OS X 10.3 (Panther):
-makefile, ckcnet.c, 7 Feb 2004.
-
-Added KFLAGS to sco32v507 targets to make PTY and SSH commands work. The
-same flags could probably also be added to earlier OSR5 targets but they
-have not been tested there. makefile, 7 Feb 2004.
-
-Checked a complaint that "LOCAL &a" did not make array \&a[] local. Indeed
-it did not, and can not. You have to use the full syntax in the LOCAL
-command, "LOCAL \&a[]", or else it doesn't know it's not a macro named &a.
-7 Feb 2004.
-
-Fixed some confusion in creating IKSD database file and temp-file names.
-I was calling zfnqfp() without remembering that the path member of the
-returned struct included the filename, so to get just the directory name,
-I needed to strip the filename from the right. ckuusy.c, 2 Mar 2004.
-
-New ckuath.c, ck_ssl.c from Jeff. 2 Mar 2004.
-
-Updated Jeff's affiliation in VERSION command text. ckuusr.c, 2 Mar 2004.
-
-Designation changed from Dev.00 to Beta.01. ckcmai.c, 2 Mar 2004.
-
-Fixed zrename() syslogging -- it had success and failure reversed.
-Beta.02: ckufio.c, 4 Mar 2004.
-
-Problem: when accessing IKSD via a kermit:// or iksd:// URL, and a user ID
-is given but no password, doxarg() set the password to "" instead of leaving
-it NULL, but all the tests in dourl() are for NULL. Fixed in doxarg():
-ckuusy.c, 5 Mar 2004.
-
-The logic in dourl() about which macro to construct (login and connect,
-login and get directory listing, or login and fetch a file) was a bit off,
-so all three cases were not handled. ckcmai.c, 5 Mar 2004.
-
-Trial Beta builds:
- . HP-UX B.11.11 PA-RISC
- . HP-UX B.11.23 IA64
- . Tru64 4.0G Alpha
- . Tru64 5.1B Alpha
- . Debian 3.0 i386
- . Red Hat ES 2.1 i386
- . Slackware 9.1 i386
- . VMS 7.3-1 Alpha + UCX 5.3
- . VMS 7.3-1 Alpha no TCP/IP
- . VMS 7.3 Alpha MultiNet 4.3 A-X
- . SCO UnixWare 7.1.4 i386
- . SCO OSR5.0.7 i386
- . Solaris 9 Sparc
-
-Fixed compiler warning in doxarg() caused by typo (NULL instead of NUL) in
-the 5 March doxarg() edit. ckuusy.c, 9 Mar 2004.
-
-IKSD (kermit://) command-line URLs did not work right if the client had
-already preauthenticated with Kerberos or somesuch because they tried to log
-in again with REMOTE LOGIN. The macros constructed in doxarg() needed to
-check \v(authstate) before attempting REMOTE LOGIN. ckcmai.c, 10 Mar 2004.
-
-Added ckuker.nr to x.sh (ckdaily upload) and updated ckuker.nr with current
-version number and dates. 10 Mar 2004.
-
-Replaced hardwired references to /usr/local in makefile with $(prefix)
-(which defaults to /usr/local, but can be overridden on the command line),
-suggested by Nelson Beebe for use with Configure. 10 Mar 2004.
-
-From Nelson Beebe: In the Kermit makefile in the install target commands,
-line 981 reads:
-
- cp $(BINARY) $(DESTDIR)$(BINDIR)/kermit || exit 1;\
-
-Could you please add this line before it:
-
- rm -f $(DESTDIR)$(BINDIR)/kermit;\
-
-Some sites (mine included) keep multiple versions of software around,
-with hard links between $(prefix)/progname and $(prefix)/progname-x.y.z.
-Failure to remove the $(prefix)/progname at "make install" time then
-replaces the old $(prefix)/progname-x.y.z with the new one, destroying
-an old version that the site wanted to be preserved. makefile, 10 Mar 2004.
-
-Minor syntax and typo fixes (mostly prototypes): ckcdeb.h, ckcfns.c,
-ckclib.c, ckufio.c, ckuusr.h, ckuusx.c, 10 Mar 2004. (I still have a few
-more to do.)
-
-Added CC=$(CC) CC2=$(CC2) to many (but not all) makefile targets that
-reference other makefile targets. On some platforms (notably AIX, Solaris,
-SunOS) there are specific targets for different compilers, so I skipped
-those. makefile, 10 Mar 2004.
-
-Added error checking to kermit:// URL macros, so they don't plow ahead
-after the connection is closed. ckcmai.c, 11 Mar 2004.
-
-Added FreeBSD 4.9 and 5.1 targets (only the herald is affected).
-makefile, ckuver.h, 11 Mar 2004.
-
-Added "LIBS=-lcrypt" to bsd44 targets since nowadays crypt is almost always
-unbundled from libc. Also added explanatory notes. makefile, 11 Mar 2004.
-
-Changed MANDIR to default to $(manroot)/man/man1, and manroot to default
-to $(prefix). More adding of CC=$(CC) clauses: {Free,Net,Open}BSD, 4.4BSD.
-makefile, 11 Mar 2004.
-
-Miscellaneous cleanups: ckuusx.c, ckcnet.c, ckufio.c, 11 Mar 2004.
-
-Corrected the check in the linux target to see if /usr/include/crypt.h
-exists, and if so to define HAVE_CRYPT_H, which is used in ckcdeb.h to
-#include <crypt.h> to get the prototype for crypt() and prevent bogus
-conversions on its return type on 64-bit platforms (the previous test wasn't
-quite right and the resulting symbol wasn't spelled right). makefile,
-12 Mar 2004.
-
-From Jeff, 14 Mar 2004:
- . Initialize localuidbuf[] in tn_snenv(): ckctel.c.
- . Remove remote-mode checks in hupok() for K95G only (why?): ckuus3.c.
- . Add help text for new K95-only TYPE /GUI switches: ckuus2.c.
- . TYPE /GUI parsing, ...: ckuusr.c.
- . TYPE /GUI action, dotype(): ckuus6.c
- . Change Jeff's affiliation: most modules.
-
-20 Mar 2004: Looked into adding long file support, i.e. handling files more
-than 2GB (or 4GB) long. Discovered very quickly this would be a major
-project. Each platform has a different API, or environment, or transition
-plan, or whatever -- a nightmare to handle in portable code. At the very
-least we'll need to convert a lot of Kermit variables from long or unsigned
-long to some new Kermit type, which in turn is #defined or typedef'd
-appropriately for each platform (to off_t or size_t or whatever). Then we
-have to worry about the details of open() vs fopen(); printf() formats (%lld
-vs %Ld vs %"PRId64"...), platforms like HP-UX where you might have to use
-different APIs for different file systems on the same computer, etc. We'll
-need to confront this soon, but let's get a good stable 8.0.211 release out
-first! Meanwhile, for future reference, here are a few articles:
-
-General: http://freshmeat.net/articles/view/709/
-Linux: http://www.ece.utexas.edu/~luo/linux_lfs.html
-HP-UX: http://devrsrc1.external.hp.com/STK/partner/lg_files.pdf
-Solaris: http://wwws.sun.com/software/whitepapers/wp-largefiles/largefiles.pdf
-
-Looked into FTP timeouts. It appears I can just call empty() (which is
-nothing more than a front end for select()) with the desired timeout before
-any kind of network read. If it returns <= 0, we have a timeout. This is
-not quite the same as using alarm() / signal() around a recv() (which could
-get stuck) but alarm() / signal() are not not used in the FTP module and are
-not naturally portable to Windows, but select() is already in use in the FTP
-module for both Unix and Windows. This form of timeout could be used
-portably for both command response and data reads. What about writes to the
-command or data socket? They can get stuck for hours and hours without
-returning too, but the select() approach won't help here -- we need the
-actual send() or recv() to time out, or be wrapped in an alarm()/signal()
-kind of mechanism. But if we can do that for sends, we can also do it for
-receives. Better check with Jeff before I start programming anything.
-20 Mar 2004.
-
-Later: Decided to postpone the above two projects (ditto IPv6) until after
-8.0.211 is released because both will have major impacts on portability.
-Grumble: all i/o APIs should have been designed from the beginning with a
-timeout parameter. To this day, hardly any have this feature.
-
-3-4 Apr 2004: More 8.0.211 Beta.02+ test builds:
-
- . FreeBSD 3.3
- . FreeBSD 4.4
- . Linux Debian 2.1
- . Linux RH 6.1
- . Linux RH 7.1
- . Linux RH 7.2
- . Linux RH 9 (with 84 different combinations of feature selection)
- . Linux SuSE 6.4
- . Linux SuSE 7.0
- . NetBSD 1.4.1
- . NetBSD 1.5.2
- . OpenBSD 2.5
- . OpenBSD 3.0
- . QNX 4.25
- . SCO UnixWare 2.1.3
- . SCO UnixWare 7.1.4
- . SCO OpenServer 5.0.7
- . SCO XENIX 2.3.4 (no TCP)
-
-Changes needed: None.
-
-Problem: SCO XENIX 2.3.4 network build failed in the FTP module with
-header-file syntax and conflicting-definitions trouble. I'm not going to
-try to fix it; 8.0.209 built OK with FTP, so we'll just keep that one
-available.
-
-Got access to VMS 8.1 on IA64. Building the nonet version of C-Kermit
-required minor modifications to ckvvms.h, ckv[ft]io.c, and ckvcon.c, to
-account for a third architecture. Also to SHOW FEATURES in ckuus5.c. Once
-that was done, the UCX 5.5 version built OK too. Starts OK, makes Telnet
-connection OK, sends files. Has some obvious glitches though -- "stat"
-after a file transfer reports 0 elapsed time (in fact it was 00:09:48) and
-1219174400 cps (when in fact it was 10364). This doesn't happen on the
-Alpha. Btw, the IA64 binary is twice as big as the Alpha one. Changed
-to Beta.03. 5 Apr 2004.
-
-Fixed the ckdaily script to include the makefile and man page in the Zip
-file (they were not included because the Zip file was intended mainly for
-VMS users, but some Unix users prefer Zip to tar.gz). 6 Apr 2004.
-
-Traced problems in VMS/IA64 statistics report to rftimer()/gftimer() in
-ckvtio.c, which use sys$ and lib$ calls to figure elapsed time. These work
-on VAX and Alpha but not IA64. Sent a report to the chief engineer of the
-IA64 VMS port; he says it's probably a bug in VMS 8.1 (which is not a real
-release); he'll make sure it's fixed in 8.2. As an experiment, tried
-swapping in the Unix versions of these routines (which call gettimeofday()
-etc). They seem work just fine (it hung a couple times but I think that's
-because the underlying system hung too; trying it later on a new connection,
-it was fine; however I noticed a BIG discrepancy in throughput between
-sending and receiving). Moved definitions for VMS64BIT and VMSI64 to
-ckcdeb.h so all modules can use them and added them to the SHOW FEATURES
-display. Added VMSV80 definition to build procedure. Beta.03+. ckcdeb.h,
-ckcuus5.c, ckcvvms.h, ckvtio.c, ckvker.com, 6 Apr 2004.
-
-While doing the build-all, I noticed the VMS version did not build with
-Multinet or older UCX versions, always with the same errors -- undeclared
-variables, undefined symbols, all TCP/IP related. This didn't happen a
-couple weeks ago... Somehow the order of #includes was messed up --
-ckuusr.h depended on symbols that are defined in ckcnet.h, but ckcnet.h
-was being included after ckuusr.h... this was compounded by two missing
-commas in ckvker.com. 11 Apr 2004.
-
-Removed Beta designation, released as 8.0.211, 10 Apr 2004.
-
----8.0.211---
-
-I had somehow lost the edit to ckutio.c that changed the UUCP lockfile for
-Mac OS X from /var/spool/uucp to /var/spool/lock. So I slipped it in and
-re-uploaded version 8.0.211. You can tell the difference because SHOW
-VERSIONS has a 17 Apr 2004 for the Communications I/O module. Also the 10.3
-executable now has a designer banner: "Mac OS X 10.3". makefile, ckuver.h,
-ckutio.c, ckuus[45].c, 17 Apr 2004.
-
-***********************
--- /dev/null
+C-KERMIT 9.0 CHANGE LOG (Changes since 8.0.207 / K95 2.1.3 January 2003)
+
+ Chronological order.
+ Go to the bottom to find the newest edits.
+
+ F. da Cruz, The Kermit Project, Columbia University, NYC.
+ Last update: 28 June 2011.
+
+FTP USER, FTP ACCOUNT, plus the various prompts and switches for FTP username,
+password, and account all neglected to strip quotes, and in most cases quotes
+are necessary to specify a username that contains spaces. ckcftp.c,
+15 Jan 2003.
+
+FTP MPUT f1 f2 f3... gets a parse error if any of the fn's do not match an
+existing file. This is bad for scripts. In doftpput(), cmfdb() looks for
+keywords (switches) or CMIFI. When it hits CMIFI, it exits from the initial
+parse loop and then does additional cmifi()s in a loop until done. The most
+obvious fix is to parse each field with cmfdb(CMIFI,CMFLD), i.e. fall back to
+CMFLD if CMIFI doesn't match anything. Then if CMFLD was used, we don't add
+the filespec to the list. This is a rather big change but it seems to work.
+No error messages or failures happen for non-matching fields, but an error
+message is printed (and the MPUT command fails) if none of the fields match
+any files. This fix got in too late for 2.1.3; workaround: use C-Shell
+like wildcard list (ftp mput "{*.abc,foo.*}"). ckcftp.c, 16 Jan 2003.
+
+GREP did not pass its pattern through the expander, thus variables could
+not be used for patterns. This must have been an oversight -- I can't find
+anything in my notes about it. Fixed in dogrep(): ckuus6.c, 24 Jan 2003.
+
+New makefile target for HP-UX 11.xx with OpenSSL from Tapani Tarvainen.
+makefile, 31 Jan 2003.
+
+From Jeff:
+ . Avoid core dump when dereferencing tnc_get_signature(): ckuus4.c.
+ . Bump version numbers to 8.0.208, 2.1.4: ckcmai.c.
+
+Added /NOLOGIN to FTP [OPEN]. ckcftp.c, 10 Feb 2003.
+
+Don't dump core if FTP DEBUG is ON and FTP OPEN does not include a service.
+openftp(): ckcftp.c, 10 Feb 2003.
+
+HELP PATTERN text incorrectly identified commands and functions with
+floating and anchored patterns. The corrected lists are:
+Floating: GREP, TYPE /MATCH:, /EXCEPT: patterns, \farraylook(),
+Anchored: IF MATCH, file-matching wildcards, \fsearch(), \frsearch()
+ckuus2.c, 10 Feb 2003.
+
+INPUT n \fpattern(xxx) did not work for case-independent comparisons.
+Fixed in doinput(): ckuus4.c, 10 Feb 2003.
+
+It seems \fpattern() didn't work with MINPUT at all. There was no code to
+handle \fpattern() in the MINPUT parse loop, so it never worked. The code
+had to be totally rewritten to use cmfld() in a loop, rather than cmtxt()
+and then cksplit(). Furthermore, whenever any of the fields was an
+\fjoin(), this had to be split. ckuusr.c, 10 Feb 2003.
+
+Macro replacement via \m() and \fdefinition() does not work as advertised
+(i.e. case sensitively) for associative array elements; e.g. \m(xxx<abc>) is
+treated the same as \m(xxx<ABC>), contrary to section 7.10.10 of the C-Kermit
+7.0 update notes, and to the fact that the two really do exist separately.
+Fixed by adding a static function isaarray(s) which succeeds if s is an
+associative array reference and fails otherwise, and then having \m()
+and \fdef() call mxxlook() (case-sensitive lookup) if isaarray(), otherwise
+(as before) mxlook()). ckuus4.c, 11 Feb 2003.
+
+Fixed FTP OPEN to allow the /USER switch to override SET FTP AUTOLOGIN OFF,
+just as /NOLOGIN overrides SET FTP AUTOLOGIN ON. ckcftp.c, 11 Feb 2003.
+
+In K95, "set key \1234 \27H" (any SET KEY command in which the first char of
+the definition was backslash, and the ONLY character after the backslash
+quantity was an uppercase letter, that letter would be lowercased). Diagnosis:
+xlookup() poking its argument (see notes from July 2000). Jeff sent a fix.
+ckucmd.c, 15 Feb 2003.
+
+Ran my S-Expression torture test to make sure Sexps still worked. They do,
+except the bitwise & and | operators were broken, e.g. (& 7 2) and (| 1 2 4)
+get "Invalid operand" errors. Jeff's code had added an early failure return
+from the lookup loop when when a single-byte keyword matched a keyword that
+started with the same byte but was more than one byte long. So "&" would hit
+"&&" and fail instead of continuing its search (xlookup tables aren't sorted
+so there can be no early return). Fixed in xlookup(): ckucmd.c, 16 Feb 2003.
+
+Got rid of "krbmit" target from makefile. It's still there, but we don't
+use it any more. All secure targets now use "xermit", and produce a binary
+called wermit, just like the regular ones do (except the old ckucon.c ones).
+Non-secure targets, since they don't define any of the security symbols,
+wind up compiling and linking to (mostly) empty security modules. makefile,
+15 Feb 2003.
+
+Added \fcvtdate(xxx,3) to format its result in MDTM format (yyyymmddhhmmss,
+all numeric, no spaces or punctuation). Of course these numeric strings
+are too big to be 32-bit numbers and are useless for arithmetic, but they're
+useful for lexical comparison, etc. ckuus[24].c, 16 Feb 2003.
+
+The following FTP commands did not set FAILURE when they failed: RMDIR,
+CD, CDUP, Fixed in the corresponding doftpblah() routines. ckcftp.c,
+16 Feb 2003.
+
+RENAME would sometimes not print an error message when it failed, e.g. in K95
+when the destination file already existed. ckuus6.c, 17 Feb 2003.
+
+Fixed COPY error messages, which did not come out in standard format when
+/LIST was not included. ckuus6.c, 17 Feb 2003.
+
+Fixed #ifdefs in ck_crp.c to allow nonsecure builds on old platforms like
+System V/68 R3. 19 Feb 2003.
+
+Similar treatment for ck_ssl.c. 20 Feb 2003.
+
+From Jeff, 21 Feb 2003:
+ . AIX53 and AIX52 symbols for ckcdeb.h, makefile.
+ . New gcc targets for various AIX 4.x/5.x versions: makefile.
+ . Copyright date updates: ck_crp.c, ck_ssl.c.
+ . ENABLE/DISABLE QUERY broken because keyword table out of order: ckuusr.c.
+ . Fixed the use of HTTP proxies for HTTP [RE]OPEN for Unix: ckcnet.c.
+
+Also for K95 only: Allow file transfer when K95 is invoked on the remote end
+of a connection to a Pragma Systems Terminal Server connection; automatically
+SET EXIT HANGUP OFF when invoked with open port handle ("k95 -l nnnn").
+
+"cd a*" failed even when "a*" matched only one directory. Fixed in cmifi():
+ckucmd.c, 21 Feb 2003.
+
+In the Unix version, replace "extern int errno;" with "#include <errno.h>"
+if __GLIBC__ is defined, since glibc now defines a thread-specific errno.
+ckcdeb.h, 26 Feb 2003.
+
+Added #ifdefs to skip compilation of ckuath.c in nonsecure builds. Tested
+by building both secure and regular versions in Linux. ckuath.c, 26 Feb 2003.
+
+Ran the build-in-84-different-configurations script on Linux to make sure it
+still builds with all different combinations of feature selection options.
+All OK. 26 Feb 2003.
+
+Built on VMS. Needed to add a prototype for mxxlook*() to ckuusr.h; built
+OK otherwise. 26 Feb 2003.
+
+From Jeff: More #ifdef shuffling for nonsecure builds: ckuath.c, ck_ssl.c,
+27 Feb 2003.
+
+Added code to ensure \v(download) ends in a directory separator in Unix,
+Windows, and OS/2. ckuus7.c, 27 Feb 2003.
+
+Added code to K95 zfnqfp() to tack on directory separator when returning
+a directory name. ckofio.c, 27 Feb 2003.
+
+Somehow an old copy of ckuath.c popped to replace the new one. Put the new
+one back. 28 Feb 2003.
+
+From Jeff: Fix typo in my K95 zfnqfp() code from yesterday; fixes for handling
+UNCs uniformly, no matter which way their slashes are leaning. ckofio.c,
+28 Feb 2003.
+
+At Jeff Mezei's suggestion, separate text and binary mode open sequences
+for VMS session log. ckvfio.c, 28 Feb 2003.
+
+Added freebsd48 target for FreeBSD 4.8. makefile, 1 Mar 2003.
+
+Changed Mac OS X entries to include -DUSE_STRERROR. makefile, 2 Mar 2003.
+
+Fixed GETOK /GUI to evaluate its text argument. ckuus6.c, 3 Mar 2003.
+
+Jeff fixed the K95 Dialer QUICK dialog to (a) allow templates, and (b) have
+a Save-As option. 3 Mar 2003.
+
+Jeff fixed a problem with the Xmodem-CRC checksum being crunched whenever
+there was a retransmission. 7 Mar 2003.
+
+Added target/banner for Tru64 5.1B. makefile, ckuver.h, 5 Mar 2003.
+
+In Unix, the zcopy() routine (used by the COPY command) reset the user's umask
+to 0 for the remainder of the Kermit process lifetime. The bug was in
+ckufio.c 8.0.194, 24 Oct 2002, and is fixed in ckufio.c 8.0.195, 6 Mar 2003.
+Of course this happened after building 155 C-Kermit 8.0.208 binaries. (But
+before officially releasing 8.0.208.)
+
+In the VMS version, changed:
+
+ while ((n--) && xx_inc(2) > -1) ;
+to:
+ while ((n--) && xx_inc(2) >= 0) ;
+
+to suppress the "...is being compared with a relational operator to a constant
+whose value is not greater than zero" warning. ckvtio.c, 7 Mar 2002.
+
+Added a debug call to dologend in hopes of catching overzealous Locus
+switching, which seems to happen only in K95. ckuus3.c, 7 Mar 2002.
+
+Rebuilt binaries for some of the more current Unix releases: AIX 4.3.3-5.1,
+Solaris 7-9 , Red Hat 7.0-8.0, Slackware 8.1, Freebsd 4.7-4.8, NetBSD 1.6,
+OpenBSD 3.2, Unixware 7.1.3, Open Unix 8, OSR5.0.6a, etc. A Unix binary with
+COPY umask fix shows a 6 Mar 2003 date for "UNIX File support" in SHOW
+VERSIONS; a binary without the fix shows 24 Oct 2002.
+
+C-Kermit 8.0.208 dated 14 March 2003 released on 10 March 2003.
+
+---8.0.208---
+
+From Jeff 13 Mar 2003:
+ . Updated SSL module allows importation of tickets from host.
+ . freebsd50+openssl target: makefile.
+ . FTP PUT /PERMISSIONS error message for K95: ckcftp.c.
+
+Fixed MINPUT to strip quotes or braces from around targets (this was broken
+on Feb 10th). Thanks to Jason Heskett for discovering and reporting this
+(killer) bug. ckuusr.c, 14 Mar 2003.
+
+Changed version number to 209 Dev.00. ckcmai.c, 14 Mar 2003.
+
+While debugging the alphapage script, I found that the command "minput 8 \6\13
+\21\13 \13\27\4\13 \30\13" gets "?Not confirmed" in 8.0.208 and 8.0.209, but
+not in 206 and earlier. This problem too was introduced on Feb 10th by
+changing MINPUT parsing from cmtxt() followed by cksplit() to cmfld() in a
+loop. cmfld() uses setatm() to return its result and of course setatm()
+breaks on \13. Changing setatm() not to do this would break everything else.
+But cmfld() has no arguments that let us tell it to do anything different in
+this case. Changing the API would be a disaster. The only solution is to add
+an "MINPUT ACTIVE" (minputactive) global variable that tells cmfld() to tell
+setatm() not to break on CR. Now MINPUT with braced targets containing CR
+and/or LF works in 209, 206, and 201 (but not 208). ckucmd.c, ckuusr.c,
+ckuus5.c, 15 Mar 2003.
+
+MINPUT n \fjoin(&a) works OK if all the members of \&a[] are text strings, but
+if they are strings of control chars (as above), they don't get separated by
+the spaces. For example in:
+
+ dcl \&a[] = "\4\5" "\6\7" xxx
+ minput 10 \fjoin(&a)
+
+MINPUT gets two targets: "aaa" and "\4\5 \6\7 xxx". The bug was in the
+cksplit() call in the \fjoin() case of MINPUT: it needed to specify an
+include set consisting of all the control characters except NUL. ckuusr.c,
+16 Mar 2003.
+
+But there's still a problem:
+
+ dcl \&a[] = "\4\5\13\10" "\6\7" "xxx"
+
+creates an array whose first member is "^D^E (one doublequote included). But
+if braces are used instead, there's no problem. Same deal as MINPUT: cmfld()
+breaks on CR or LF, thus the end quote is lost. If I set minputactive for
+DECLARE initializers too, that fixes it. Is there any reason not to do this?
+Can't think of any (famous last words)... ckuusr.c, 16 Mar 2003.
+
+Since it has multiple applications, changed the flag's name from minputactive
+to keepallchars. ckucmd.c, ckuus[r5].c, 16 Mar 2003.
+
+\v(exedir) wasn't being set correctly (it included the program name as well
+as the directory). Fixed in getexedir(): ckuus4.c, 16 Mar 2003.
+
+SET CARRIER-WATCH <Esc> "auto matic" (spurious space in supplied keyword).
+Cosmetic only; it still worked. Fixed in setdcd(): ckuus3.c, 16 Mar 2003.
+
+"directory a b c" listed too many files -- all files whose names END WITH a,
+b, or c, rather than the files whose names WERE a, b, or c. Diagnosis: The
+filespec is changed into a pattern: {a,b,c}, which is the correct form. It is
+passed to nzxpand(), which goes through the directory getting filenames and
+sending each one to ckmatch() with the given pattern. ckmatch() receives the
+correct pattern but then prepends a "*" -- that's not right. It's not just
+in filename matching either. The following succeeds when it shouldn't:
+
+ if match xxxxc {{a,b,c}} <command>
+
+Changing ckmatch() to not prepend the "*" to each segment fixes the command
+above but breaks lots of others. Running through the "match" torture-test
+script shows the problem occurs only when the {a,b,c} list is the entire
+pattern, and not embedded within a larger pattern. Testing for this case
+fixed the problem. ckmatch(): ckclib.c, 16 Mar 2003.
+
+Fixed FTP MODTIME to not print anything if QUIET ON. ckcftp.c, 16 Mar 2003.
+
+Picked up a new ckuath.c from Jeff, not sure what the changes are. 16 Mar 2003.
+
+Did a few regular and secure builds to make sure I didn't wreck anything.
+
+Changed version number to 209 (final). ckcmai.c, 16 Mar 2003.
+
+Jason Heskett found another bug: if you define a macro FOO inside the
+definition of another macro BAR, and FOO's definition includes an odd number
+of doublequotes (such as 1), FOO's definition absorbs the rest of BAR's
+definition. Example:
+
+ def TEST {
+ .foo = {X"}
+ sho mac foo
+ }
+ do test
+ sho mac foo
+
+Results in:
+
+ foo = {X"}, sho mac foo
+
+Diagnosis: the TEST definition becomes:
+
+ def TEST .foo = {X"}, sho mac foo
+
+and the macro reader is erroneously treating the doublequote as an open
+quote, and then automatically closes the quote at the end of the definition.
+The error is that a doublequote should be significant only at the beginning of
+a field. But the macro reader isn't a command parser; it doesn't know what
+a field is -- it's just looking for commas and skipping over quoted ones.
+First we have to fix an oversight: SET COMMAND DOUBLEQUOTING OFF should have
+worked here, but it wasn't tested in this case. Fixed in getncm(): ckuus5.c,
+17 Mar 2003.
+
+There are only certain cases where it makes sense to treat doublequotes as
+significant:
+
+ . An open quote must be at the beginning or preceded by a space.
+ . A close quote is only at the end or else followed by a space.
+
+This too was fixed in getncm(): ckuus5.c, 17 Mar 2003.
+
+A fix from Jeff SSL/TLS FTP data decoding. ckcftp.c, 18 Mar 2003.
+
+Tried building C-Kermit on a Cray Y-MP with UNICOS 9.0. "int suspend",
+declared in ckcmai.c and used in many modules, conflicts with:
+
+ unistd.h:extern int suspend __((int _Category, int _Id));
+
+The "=Dsuspend=xsuspend" trick doesn't work for this; there is no way around
+the conflict other than to rename the variable: ckcmai.c, ckutio.c,
+ckuus[35xy].c. 26 Mar 2003. VMS and K95 not affected.
+
+OK that gets us past ckcmai.c... Then in ckutio.c I had to add a new #ifdef
+around the LFDEVNO setting, because the Cray didn't have mkdev.h. Could not
+find a Cray-specific manifest symbol, so I made a new makefile target (cray9)
+that sets this symbol. Having done this I have no idea what kind of lockfile
+would be created, but I also doubt if anybody dials out from a Cray. The
+binary should run a C90, J90, or Y-MP. makefile, 26 Mar 2003.
+
+Added a target for SCO OSR5.0.7. makefile, ckuver.h, 30 Mar 2003.
+
+Changed since 208:
+makefile ckuver.h ckcmai.c ckclib.c ckcftp.c ckucmd.c ckuus*.c ckutio.c.
+
+---8.0.209---
+
+From Mark Sapiro, a fix for the March 17th doublequote fix, getncm(): ckuus5.c,
+4 Apr 2003.
+
+From Jeff, 29 Apr 2003:
+ . Corrected target for HP-UX 11.00 + OpenSSL: makefile,
+ . Do not allow WILL AUTH before WONT START_TLS: ckctel.h ckctel.c
+ . Add hooks for SFTP and SET/SHOW SFTP: ckcdeb.h ckuusr.h ckuusr.c ckuus3.c
+ . Add SKERMIT ckuusr.h ckuusr.c
+ . Add ADM-5 terminal emulation: ckuus7.c, ckuus5.c
+ . Uncomment and update HELP SET SSH V2 AUTO-REKEY: ckuus2.c
+ . Enable IF TERMINAL-MACRO and IF STARTED-FROM-DIALER for C-Kermit: ckuus6.c
+ . Fix conflicting NOSCROLL keyword definition: ckuusr.h
+ . Set ttname when I_AM_SSH: ckuusy.c
+ . Add extended arg parsing for SSH, Rlogin, Telnet: ckuusy.c, ckuus4.c
+ . Security updates: ckuath.c, ck_ssl.c
+ . Change K95 version number to 2.2.0: ckcmai.c
+ . Save K95 term i/o state before executing keyboard macro: ckuus4.c
+ . Add tests for SSH Subsystem active during INPUT/OUTPUT/CONNECT: ckuus[45].c
+ . Enable K95 SET SSH V2 AUTO-REKEY: ckuus3.c
+
+SFTP and SET SFTP subcommands are implemented up to the case statements.
+
+Files of mine that Jeff hadn't picked up:
+ ckuver.h ckcftp.c ckutio.c ckuusx.c (just minor changes for last build-all)
+
+On 4 Jan 2003, SET RECEIVE MOVE-TO was changed to convert is argument to an
+absolute path, which made it impossible to specify a relative path, then
+move to different directories and have it apply relatively to each directory.
+Changed this as follows:
+
+ . Parser uses cmtxt() rather than cmdir() so it won't fail at parse time.
+ . If path is absolute, we fail at parse time if directory doesn't exist.
+ . In reof() we run the the path through xxstring (again, in case deferred
+ evaluation of variables is desired) and then, if not null, use it.
+ . If the directory doesn't exist, rename() fails and reof() returns -4,
+ resulting in a protocol error (this is not a change). We do NOT create
+ the directory on the fly.
+
+I also fixed SET SEND/RECEIVE RENAME-TO to parse with cmtxt() rather than
+cmdir(), since it's parsing a text template, not a directory name, e.g.
+"set receive rename-to file-\v(time)-v(date)-\v(pid)". This was totally
+broken, since when I don't know. We don't call xxstring() in this parse, so
+evaluation is always deferred -- I'd better not change this. ckuus7.c,
+ckcfns.c, 1 May 2003.
+
+From Jeff, Sat May 3 14:15:23 2003:
+ . Pick up the right isascii definition for K95: ckctel.c
+ . malloc... ckuath.c (new safe malloc routines for K95)
+ . Add author listing: ckuus5.c
+ . SSH Heartbeat support (K95 only): ckuus[23].c
+ . Prescan --height and --width to avoid window resizing at startup: ckuusy.c
+ . Add checks for fatal() or doexit() called from sysinit(): ckuusx.c
+ . Move some K95-specific definitions to ckoker.h: ckcdeb.h
+ . Add support for ON_CD macro in zchdir(): ckufio.c
+ . Add a command to let FTP client authenticate with SSLv2: ckcftp.c
+ . Fix parsing of FTP file facts like "UNIX.mode": ckcftp.c
+
+ON_CD will need some explaining (to be done). It's implemented for Unix,
+VMS, WIndows, and OS/2.
+
+The FTP file facts fix came from first exposure to the new OpenBSD FTP
+server: ftp://ftp7.usa.openbsd.org/pub/os/OpenBSD/3.3/i386/
+The period in "UNIX.mode" caused an erroneous word break, adding junk to
+the filename.
+
+About the malloc changes, Jeff says "K95 is not behaving well in low memory
+environments. I'm not sure that C-Kermit does much better. The program does
+not crash but it certainly does not behave the way the user expects it to.
+I'm beginning to think that any malloc() error should be treated as fatal."
+
+Not visible in these changes because it's in K95-specific modules: Jeff made
+SET ATTRIBUTES OFF and SET ATTRIBUTES DATE OFF apply to XYZMODEM transfers.
+
+From Jeff, 11 May 2003:
+ . Add support for SSH Keepalive to relevant SET command (K95): ckuus3.c
+ . Reduce max overlapped i/o requests from 30 to 7 (K95): ckuus7.c
+ . Don't call sysinit() in fatal(): ckuusx.c.
+ . Some new conditionalizations for SSL module: ck_ssl.c
+
+The doublequote-parsing fixes from March and April broke the SWITCH statement,
+which is implemented by internally defining, then executing, a macro. If I
+drop back to the old dumb handling of doublequotes, everything is fixed except
+the problem of March 17th. But can we really expect getncm() to pre-guess
+what the parser is going to do? getncm()'s only job is to find command
+boundaries, which are represented by commas. Commas, however, is needed IN
+commands too. We take a comma literally if it is quoted with \, or is inside
+a matched pair of braces, parens, or doublequotes. It is not unreasonable to
+require a doublequote in a macro definition to be prefixed by \ when it is to
+be taken literally. The proper response to Jason Heskett's complaint of March
+17th should have been to leave the code alone and recommand an appropriate
+form of quoting:
+
+ def TEST {
+ .foo = {X\"}
+ sho mac foo
+ }
+
+And this is what I have done. Another reason for sticking with the old method
+is that it's explainable. The "improved" method, even if it worked, would be
+be impossible to explain. Btw, in testing this I noticed that the switch-test
+script made 8.0.201 dump core. Today's version is fine. The problem with
+quoted strings inside of IF {...} clauses and FOR and WHILE loops is fixed
+too. Perhaps "unbroken" would be a better word. ckuus5.c, 11 May 2003.
+
+Vace discovered that FTP MGET /EXCEPT:{... (with an unterminated /EXCEPT list)
+could crash Kermit. Fixed in ckcftp.c, 11 May 2003.
+
+CONTINUE should not affect SUCCESS/FAILURE status. ckuusr.c, 11 May 2003.
+
+Fixed an oversight that goes back 15 years. While \{123} is allowed for
+decimal codes, \x{12} and \o{123} were never handled. ckucmd.c, 11 May 2003.
+
+Added support for Red Hat <baudboy.h> and /usr/sbin/lockdev. Supposedly this
+allows Kermit to be installed without setuid or setgid bits and still be able
+to lock and use the serial device. Compiles and starts, but not tested.
+ckcdeb.h, makefile, ckutio.c, ckuus5.c, 16 May 2003.
+
+From Jeff: FTP ASCII send data to host when FTP /SSL was in use was broken.
+ftp_dpl is set to Clear when FTP /SSL is in use. This was causing the data to
+be written to the socket with send() instead of the OpenSSL routines.
+ckcftp.c, ckuath.c, 21 May 2003.
+
+From Jeff: Stuff for Kerberos 524: ckcdeb.h. Fixes for FTP; "FTP ASCII send
+data did not properly compute the end of line translations. On Unix (and
+similar platforms) the end of line was correct for no character sets but
+incorrect when character sets were specified. On Windows/OS2, the end of line
+was correct when character sets were specified and incorrect when they were
+not. On MAC, both were broken. Also, FTP Send Byte counts were incorrect
+when character sets were specified." ckcftp.c. 17 Jun 2003.
+
+From Jeff: fixes to HTTP /AGENT: and /USER: switch action: ckcnet.c ckuus3.c
+ck_crp.c ckcftp.c ckuus2.c ckuusy.c ckuusr.c ckcnet.h, 21 Jun 2003.
+
+From Jeff: Fix SET DIALER BACKSPACE so it can override a previous SET KEY
+(e.g. from INI file): ckuus7.c. Some SSL/TLS updates: ck_ssl.c. HTTP support
+for VMS and other VMS improvements (e.g. a way to not have to hardwire the
+C-Kermit version number into the build script) from Martin Vorlaender:
+ckcnet.h, ckuus[r3].c, ckcdeb.h, ckvtio.c, ckcnet.c, ckvker.com. Built on
+Solaris (gcc/ansi) and SunOS (cc/k&r). The new VMS script tests the VMS
+version and includes HTTP support only for VMS 6.2 or later. 2 Jul 2003.
+
+Tried to build on our last VMS system but it seems to be dead. Looks like a
+head crash (makes really loud noises, boot says DKA0 not recognized) (fooey, I
+just paid good money to renew the VMS license). Tried building at another
+site with:
+
+ Process Software MultiNet V4.3 Rev A-X,
+ Compaq AlphaServer ES40, OpenVMS AXP V7.3
+ Compaq C V6.4-008 on OpenVMS Alpha V7.3
+
+Had to make a few corrections to ckvker.com. But still, compilation of
+ckcnet.c bombs, indicating that the SELECT definition somehow got lost
+somewhere since the 209 release (i.e. no SELECT type is defined so it falls
+thru to "SELECT is required for this code"). But I don't see anything in
+ckcdeb.h or ckcnet.[ch] that would explain this. Not ckvker.com either
+(putting the old one back gives the same result). OK, I give up, maybe it's
+just that I haven't tried building it on MultiNet recently. What about UCX?
+Aha, builds fine there except for warnings about mlook, dodo, and parser in
+ckvfio.c (because of ON_CD) -- I suppose I have #include <ckucmd.h>... (done)
+Anyhow it builds OK and the HTTP code is active and almost works (HTTP OPEN
+works; HTTP GET seems to succeed but creates an empty file every time). Tried
+building under MultiNet at another installation; same bad result.
+
+OK so why won't it build for MultiNet? Comparing ckcnet.c with the 209
+version, not a single #ifdef or #include is changed. Tried building with
+p3="NOHTTP" -- builds OK, aha. Where's the problem? Not ckcnet.h...
+Not ckcdeb.h... OK I give up, will revisit this next time I get time to
+do anything with the code.
+
+Later Jeff said "Martin did not implement VMS networking for the HTTP code.
+All he did was activate the #define HTTP which happens to work because his
+connections are using SSL/TLS connections. http_inc(), http_tol(), etc have
+no support for VMS networking regardless of whether it is UCX or MULTINET.
+The vast majority of HTTP connections are not secured by SSL/TLS. It makes no
+sense to support HTTP on VMS until someone is willing to either do the work or
+pay have the work done to implement VMS networking in that code base." So the
+fix is to not enable HTTP for VMS after all. Removed the CKHTTP definition
+for VMS from ckcdeb.h, 6 Jul 2003.
+
+Fixed ckvfio.c to #include <ckuusr.h> (instead of <ckucmd.h>) to pick up
+missing prototypes. 6 Jul 2003.
+
+From Arthur Marsh: solaris2xg+openssl+zlib+srp+pam+shadow and the corresponding
+Solaris 7 target. makefile, 6 Jul 2003.
+
+Remove duplicate #includes for <sys/stat.h>, <errno.h>, and <ctype.h> from
+ckcftp.c. 6 Jul 2003.
+
+Add -DUSE_MEMCPY to Motorola SV/68 targets because of shuffled #includes in
+ckcftp.c. 8 Jul 2003.
+
+From Jeff: Fix problems mixing SSL and SRP without Kerberos. Plus a few minor
+#define comment changes and a reshuffling of #defines in ckcdeb.h to allow me
+to build on X86 Windows without Kerberos. ckcdeb.h, ck_crp.c, ckuath.c,
+10 Jul 2003.
+
+From Jeff: updated ckuat2.h and ckuath.c, 29 Jul 2003.
+
+Mats Peterson noticed that a very small Latin-1 file would be incorrectly
+identified as UCS-2 by scanfile(). Fixed in ckuusx.c, 29 Jul 2003.
+
+Fixed ACCESS macro definition to account for the fact that FIND is now a
+built-in command. ckermit.ini, 30 Jul 2003.
+
+From Jeff: Fix for typo in urlparse() (svc/hos): ckuusy.c, 18 Aug 2003.
+
+From Jeff: Redhat9 makefile targets (needed for for OpenSSL 0.9.7):
+makefile, 19 Aug 2003.
+
+GREP /NOLIST and /COUNT did too much magic, with some undesirable fallout:
+"GREP /NOLIST /COUNT:x args" printed "file:count" for each file. "GREP
+/COUNT:x /NOLIST args" did not print "file:count", but neither did it set the
+count variable. Removed the magic. Also one of the GREP switches,
+/LINENUMBERS, was out of order. Fixed in ckuus6.c, 20 Aug 2003.
+
+From Jeff: "Reorganizing code to enable building with different subsets of
+options; a few typos corrected as well." ckcdeb.h, ckuver.h (for RH9),
+ckcnet.c, ckuus7.c, ckuus3.c: 24 Aug 2003.
+
+Scanfile misidentified a big PDF file as text because the first 800K of it
+*was* text (most other PDF files were correctly tagged as binary). Fixed
+by adding a check for the PDF signature at the beginning of the file.
+scanfile(): ckuusx.c, 25 Aug 2003.
+
+Ditto for PostScript files, but conservatively. Signature at beginning of
+file must begin with "%!PS-Ado". If it's just "%!" (or something nonstandard
+like "%%Creator: Windows PSCRIPT") we do a regular scan. Also added "*.ps"
+to all binary filename patterns. ckuusx.c, 4 Sep 2003.
+
+Ditto (but within #ifndef NOPCLSCAN) for PCL (<ESC>E) and PJL (<ESC>%) files,
+but no binpatterns (note: ".PCL" is the extension for TOPS-20 EXEC scripts).
+ckuusx.c, 4 Sep 2003.
+
+Added comments about OpenSSL 0.9.7 to all linux+openssl targets.
+makefile, 4 Sep 2003.
+
+From Jeff: Added - #define ALLOW_KRB_3DES_ENCRYPT. When this symbol is defined
+at compilation Kermit will allow non-DES session keys to be used during Telnet
+Auth. These session keys can then be used for Telnet Encrypt. The reason
+this is not compiled on by default is that the MIT Kerberos Telnet does not
+follow the RFC for constructing keys for ENCRYPT DES when the keys are longer
+than 8 bytes in length. ckuath.c, ckuus5.c, 4 Sep 2003.
+
+"ftp mget a b c" succeeded if one or more of the files did not exist, even
+with "set ftp error-action proceed". This is because the server's NLST file
+list does not include any files that don't exist, so the client never even
+tries to get them. Fortunately, the way the code is structured, this one was
+easy to fix. ckcftp.c, 14 Sep 2003.
+
+From Jeff: Corrected code in ckcnet.c to ensure that Reverse DNS Lookups are
+not performed if tcp_rdns is OFF. Fixed ck_krb5_getrealm() to actually return
+the realm of the credentials cache and not the default realm specified in the
+krb5.conf file. Previously krb5_cc_get_principal() was not being called.
+Fixed ck_krb5_is_tgt_valid() to test the TGT in the current ccache and not the
+TGT constructed from the default realm. ckcnet.c, ckuath.c, 14 Sep 2003.
+
+Marco Bernardi noticed that IF DIRECTORY could produce a false positive if
+the argument directory had previously been referenced but then removed. This
+is because of the clever isdir() cache that was added to speed up recursion
+through big directory trees. Changed IF DIRECTORY to make a second check
+(definitive but more expensive) if isdir() succeeds, and changed the
+directory-deleting routine, ckmkdir(), to flush the directory cache (UNIX
+only -- this also should be done in K95 but it's not critical). This was
+done by adding a routine, clrdircache() to ckufio.c, which sets prevstat
+to -1 and prevpath[0] to NUL. ckcfn3.c, ckuus6.c, ckufio.c, 18 Sep 2003.
+
+Marco reported the second fix still didn't work for him (even though it did
+for me). Rather than try to figure out why, I concluded that the directory
+cache is just not safe: a directory found a second ago might have been deleted
+or renamed not only by Kermit but by some other process. Why did I add this
+in the first place? The log says:
+
+ Some debug logs showed that isdir() is often called twice in a row on the
+ same file. Rather than try to sort out clients, I added a 1-element cache
+ to Unix isdir(). ckufio.c, 24 Apr 2000.
+
+Experimentation with DIR and DIR /RECURSIVE does not show this happening at
+all. So I #ifdef'd out the directory cache (see #ifdef ISDIRCACHE in ckufio.c;
+ISDIRCACHE is not defined) and backed off the previous changes: ckufio.c,
+ckcfn3.c, ckuus6.c, 28 Sep 2003.
+
+From Jeff: Replace the compile time ALLOW_KRB_3DES_ENCRYPT with a run-time
+command SET TELNET BUG AUTH-KRB5-DES which defaults to ON: ckctel.[ch],
+ckuus[234].c, ck_crp.c, ckuath.c. 4 Oct 2003.
+
+Allow DIAL RETRIES to be any positive number, and catch negative ones.
+Also added code to check for atoi() errors (e.g. truncation). At least on
+some platforms (e.g. Solaris) atoi() is supposed to set errno, but it
+doesn't. ckuus3.c, ckucmd.c, 4 Oct 2003.
+
+Added /DEFAULT: to ASK-class commands (ASK, ASKQ, GETOK):
+
+ . For popups: no way to send defaults to popup_readtext() or popup_readpass().
+ . For GUI ASK[Q], pass default to gui_txt_dialog().
+ . For GUI GETOK, convert "yes" "ok" or "no" default to number for uq_ok().
+ . For Text GETOK, add default to cmkey().
+ . For Text ASK[Q], add default to cmtxt().
+ . For GETC, GETKEY, and READ: no changes.
+
+GETOK, ASK, and ASKQ with /TIMEOUT: no longer fail when the timer goes off
+if a /DEFAULT was supplied. The GUI functions (uq_blah) don't seem to
+support timeouts. Only the text version has been tested. ckuus[26].c,
+4 Oct 2003.
+
+From Jeff: add /DEFAULT: for popups. ckuus6.c. 6 Oct 2003.
+
+Change SET DIAL INTERVAL to be like SET DIAL RETRIES. ckuus[34].c, 6 Oct 2003.
+
+Added target for HP-UX 10/11 + OpenSSL built with gcc, from Chris Cheney.
+Makefile, 12 Oct 2003.
+
+From Jeff, 6 Nov 2003:
+ . #ifdef adjustments: ckcftp.c, ckcdeb.h
+ . Fix spurious consumption of first byte(s) on Telnet connection: ckctel.c
+ . Another HP PJL test for scanfile: ckuusx.c.
+ . K95: Recognize DG4xx protected fields in DG2xx emulation: ckuus7.c.
+ . Add SSLeay version display to SHOW AUTH command: ckuus7.c
+ . Improved SET MOUSE CLEAR help text: ckuus2.c.
+ . Improved Kverbs help text: ckuus2.c (+ new IBM-3151 Kverbs).
+ . Some changes to ck_ssl.c, ckuath.c.
+
+From PeterE, 10 Nov 2003:
+ . Improved HP-UX 10/11 makefile targets for OpenSSL.
+ . #ifdef fix for OpenSSL on HP-UX: ck_ssl.c.
+
+Another new makefile from PeterE with improved and integrated HP-UX targets.
+12 Nov 2003.
+
+A couple fixes to the solaris9g+krb5+krb4+openssl+shadow+pam+zlib target
+from Jeff. Added a solaris9g+openssl+shadow+pam+zlib target. makefile,
+21 Nov 2003.
+
+From Jeff, 30 Nov 2003:
+ . Fix SEND /MOVE-TO: ckuusr.c.
+ . Fix K95 SET TITLE to allow quotes/braces around text: ckuus7.c.
+ . Improved "set term autodownload ?" response: ckuus5.c.
+ . Fix SHOW FEATURES to specify the protocol for encryption: ckuus5.c
+ . Make {SEND, RECEIVE} {MOVE-TO, RENAME-TO} work for XYZMODEM (K95 only).
+
+From Jeff: 7 Jan 2004:
+ . At one point Frank started to add a timer parameter to the
+ uq_txt() function but he only did it for the non-ANSI
+ compilers. I added it for the ANSI compilers, fixed the
+ prototypes and provided a default value easily changed
+ DEFAULT_UQ_TIMEOUT: ckcker.h, ckuus[36].c, ck_ssl.c, ckcftp.c, ckuath.c.
+ . Fixed SET TERMINAL DEBUG ON (typo in variable name): ckuus7.c.
+ . Fixed BEEP INFORMATION; previously it made no sound, now uses
+ MB_ICONQUESTION. ckuusx.c.
+
+From Ian Beckwith <ian@nessie.mcc.ac.uk> (Debianization), 7 Jan 2004:
+ . Search dir/ckermit for docs, as well as dir/kermit in cmdini(): ckuus5.c.
+ . New linux+krb5+krb4+openssl+shadow+pam target (kitchen sink minus SRP,
+ which Debian does not distribute): makefile.
+ ? Mangles the DESTDIR support in makefile to install into a staging area:
+ makefile (I didn't take this one yet).
+
+Updated copyright notices for 2004, all modules. 7 Jan 2004.
+
+Added INPUT /NOMATCH, allowing INPUT to be used for a fixed amount of time
+without attempting to match any text or patterns, so it's no longer
+necessary to "input 600 STRING_THAT_WILL_NEVER_COME". If /NOMATCH is
+included, INPUT succeeds if the timeout expires, with \v(instatus) = 1
+(meaning "timed out"); fails upon interruption or i/o error. ckuusr.h,
+ckuus[r24].c, 7 Jan 2004.
+
+Added SET INPUT SCALE-FACTOR <float>. This scales all INPUT timeouts by the
+given factor, allowing time-sensitive scripts to be adjusted to changing
+conditions such as congested networks or different-speed modems without
+having to change each INPUT-class command. This affects only those timeouts
+that are given in seconds, not as wall-clock times. Although the scale
+factor can have a fractional part, the INPUT timeout is still an integer.
+Added this to SHOW INPUT, and added a \v(inscale) variable for it.
+ckuusr.h, ckuus[r257].c, 7 Jan 2004.
+
+undef \%a, \fverify(abc,\%a) returns 0, which makes it look as if \%a is a
+string composed of a's, b's, and/or c's, when in fact it contains nothing.
+Changed \fverify() to return -1 in this case. ckuus4.c, 12 Jan 2004.
+
+\fcode(xxx) returned an empty string if its argument string was empty. This
+makes it unsafe to use in arithmetic or boolean expressions. Changed it to
+return 0 if its argument was missing, null, or empty. ckuus4.c, 12 Jan 2004.
+
+Updated \verify() and \fcode() help text. ckuus2.c, 12 Jan 2004.
+
+While setting up IKSD, Ian Beckwith noticed that including the --initfile:
+option caused Kermit to start parsing its own Copyright string as if it were
+the command line, and eventually crash. I couldn't reproduce on Solaris /
+Sparc but I could in Linux / i386 (what Ian is using) -- a change from Jeff
+on 28 Apr 2003 set the command-line arg pointer to a literal empty string in
+prescan() about line 1740 of of ckuus4.c; the pointer is incremented next
+time thru the loop, resulting in random memory being referenced. Fixed by
+setting the pointer to NULL instead of "". ckuus4.c, 12 Jan 2004.
+
+declare \&a[999999999999999] would dump core on some platforms. atoi()
+or whatever would truncate the dimension to maxint. When we add 1 to the
+result, we get a negative number, which is used as an index, loop test, etc.
+Fixed both dodcl() and dclarray() to check for (n+1 < 0). ckuus[r5].c,
+12 Jan 2004.
+
+Unix zchki() would fail on /dev/tty, which is unreasonable. This prevented
+FOPEN /READ from reading from the terminal. zchki() already allowed for
+/dev/null, so I added /dev/tty to the list of specials. Ditto for FOPEN
+/WRITE and zchko(). ckufio.c 13 Jan 2004.
+
+Added untabify() routine to ckclib.[ch], 13 Jan 2004.
+Added FREAD /TRIM and /UNTABIFY. ckuus[27].c, 13 Jan 2004.
+Added \funtabify(). ckuusr.h, ckuus[24].c, 13 Jan 2004.
+
+Dat Nguyen noticed that (setq u 'p') followed by (u) dumped core. This was
+caused by an over-clever optimization that skipped mallocs for short
+literals, but then went on later to try to free one that hadn't been
+malloc'd. Fixed in dosexp(): ckuus3.c, 14 Jan 2004.
+
+Catch another copyright date. ckuus5.c, 14 Jan 2004.
+
+Fixed SWITCH to work even when SET COMMAND DOUBLEQUOTE OFF (from Mark
+Sapiro). ckuus5.c, 15 Jan 2004.
+
+Changed version to 8.0.211 so scripts can test for recently added features.
+ckcmai.c, 15 Jan 2004.
+
+Fixed a glitch in K95 "help set port". ckuus2.c, 20 Jan 2004.
+
+Fix from Jeff: Connections to a TLS-aware protocol which require a reconnect
+upon certificate verification failure could not reconnect if the connection
+was initiated from the command line or via a URL. ckctel.c ckcmai.c
+ckuusr.c ckuus7.c ckuusy.c, 20 Jan 2004.
+
+From Alex Lewin: makefile target and #ifdef for Mac OS X 10.3 (Panther):
+makefile, ckcnet.c, 7 Feb 2004.
+
+Added KFLAGS to sco32v507 targets to make PTY and SSH commands work. The
+same flags could probably also be added to earlier OSR5 targets but they
+have not been tested there. makefile, 7 Feb 2004.
+
+Checked a complaint that "LOCAL &a" did not make array \&a[] local. Indeed
+it did not, and can not. You have to use the full syntax in the LOCAL
+command, "LOCAL \&a[]", or else it doesn't know it's not a macro named &a.
+7 Feb 2004.
+
+Fixed some confusion in creating IKSD database file and temp-file names.
+I was calling zfnqfp() without remembering that the path member of the
+returned struct included the filename, so to get just the directory name,
+I needed to strip the filename from the right. ckuusy.c, 2 Mar 2004.
+
+New ckuath.c, ck_ssl.c from Jeff. 2 Mar 2004.
+
+Updated Jeff's affiliation in VERSION command text. ckuusr.c, 2 Mar 2004.
+
+Designation changed from Dev.00 to Beta.01. ckcmai.c, 2 Mar 2004.
+
+Fixed zrename() syslogging -- it had success and failure reversed.
+Beta.02: ckufio.c, 4 Mar 2004.
+
+Problem: when accessing IKSD via a kermit:// or iksd:// URL, and a user ID
+is given but no password, doxarg() set the password to "" instead of leaving
+it NULL, but all the tests in dourl() are for NULL. Fixed in doxarg():
+ckuusy.c, 5 Mar 2004.
+
+The logic in dourl() about which macro to construct (login and connect,
+login and get directory listing, or login and fetch a file) was a bit off,
+so all three cases were not handled. ckcmai.c, 5 Mar 2004.
+
+Trial Beta builds:
+ . HP-UX B.11.11 PA-RISC
+ . HP-UX B.11.23 IA64
+ . Tru64 4.0G Alpha
+ . Tru64 5.1B Alpha
+ . Debian 3.0 i386
+ . Red Hat ES 2.1 i386
+ . Slackware 9.1 i386
+ . VMS 7.3-1 Alpha + UCX 5.3
+ . VMS 7.3-1 Alpha no TCP/IP
+ . VMS 7.3 Alpha MultiNet 4.3 A-X
+ . SCO UnixWare 7.1.4 i386
+ . SCO OSR5.0.7 i386
+ . Solaris 9 Sparc
+
+Fixed compiler warning in doxarg() caused by typo (NULL instead of NUL) in
+the 5 March doxarg() edit. ckuusy.c, 9 Mar 2004.
+
+IKSD (kermit://) command-line URLs did not work right if the client had
+already preauthenticated with Kerberos or somesuch because they tried to log
+in again with REMOTE LOGIN. The macros constructed in doxarg() needed to
+check \v(authstate) before attempting REMOTE LOGIN. ckcmai.c, 10 Mar 2004.
+
+Added ckuker.nr to x.sh (ckdaily upload) and updated ckuker.nr with current
+version number and dates. 10 Mar 2004.
+
+Replaced hardwired references to /usr/local in makefile with $(prefix)
+(which defaults to /usr/local, but can be overridden on the command line),
+suggested by Nelson Beebe for use with Configure. 10 Mar 2004.
+
+From Nelson Beebe: In the Kermit makefile in the install target commands,
+line 981 reads:
+
+ cp $(BINARY) $(DESTDIR)$(BINDIR)/kermit || exit 1;\
+
+Could you please add this line before it:
+
+ rm -f $(DESTDIR)$(BINDIR)/kermit;\
+
+Some sites (mine included) keep multiple versions of software around,
+with hard links between $(prefix)/progname and $(prefix)/progname-x.y.z.
+Failure to remove the $(prefix)/progname at "make install" time then
+replaces the old $(prefix)/progname-x.y.z with the new one, destroying
+an old version that the site wanted to be preserved. makefile, 10 Mar 2004.
+
+Minor syntax and typo fixes (mostly prototypes): ckcdeb.h, ckcfns.c,
+ckclib.c, ckufio.c, ckuusr.h, ckuusx.c, 10 Mar 2004. (I still have a few
+more to do.)
+
+Added CC=$(CC) CC2=$(CC2) to many (but not all) makefile targets that
+reference other makefile targets. On some platforms (notably AIX, Solaris,
+SunOS) there are specific targets for different compilers, so I skipped
+those. makefile, 10 Mar 2004.
+
+Added error checking to kermit:// URL macros, so they don't plow ahead
+after the connection is closed. ckcmai.c, 11 Mar 2004.
+
+Added FreeBSD 4.9 and 5.1 targets (only the herald is affected).
+makefile, ckuver.h, 11 Mar 2004.
+
+Added "LIBS=-lcrypt" to bsd44 targets since nowadays crypt is almost always
+unbundled from libc. Also added explanatory notes. makefile, 11 Mar 2004.
+
+Changed MANDIR to default to $(manroot)/man/man1, and manroot to default
+to $(prefix). More adding of CC=$(CC) clauses: {Free,Net,Open}BSD, 4.4BSD.
+makefile, 11 Mar 2004.
+
+Miscellaneous cleanups: ckuusx.c, ckcnet.c, ckufio.c, 11 Mar 2004.
+
+Corrected the check in the linux target to see if /usr/include/crypt.h
+exists, and if so to define HAVE_CRYPT_H, which is used in ckcdeb.h to
+#include <crypt.h> to get the prototype for crypt() and prevent bogus
+conversions on its return type on 64-bit platforms (the previous test wasn't
+quite right and the resulting symbol wasn't spelled right). makefile,
+12 Mar 2004.
+
+From Jeff, 14 Mar 2004:
+ . Initialize localuidbuf[] in tn_snenv(): ckctel.c.
+ . Remove remote-mode checks in hupok() for K95G only (why?): ckuus3.c.
+ . Add help text for new K95-only TYPE /GUI switches: ckuus2.c.
+ . TYPE /GUI parsing, ...: ckuusr.c.
+ . TYPE /GUI action, dotype(): ckuus6.c
+ . Change Jeff's affiliation: most modules.
+
+20 Mar 2004: Looked into adding long file support, i.e. handling files more
+than 2GB (or 4GB) long. Discovered very quickly this would be a major
+project. Each platform has a different API, or environment, or transition
+plan, or whatever -- a nightmare to handle in portable code. At the very
+least we'll need to convert a lot of Kermit variables from long or unsigned
+long to some new Kermit type, which in turn is #defined or typedef'd
+appropriately for each platform (to off_t or size_t or whatever). Then we
+have to worry about the details of open() vs fopen(); printf() formats (%lld
+vs %Ld vs %"PRId64"...), platforms like HP-UX where you might have to use
+different APIs for different file systems on the same computer, etc. We'll
+need to confront this soon, but let's get a good stable 8.0.211 release out
+first! Meanwhile, for future reference, here are a few articles:
+
+General: http://freshmeat.net/articles/view/709/
+Linux: http://www.ece.utexas.edu/~luo/linux_lfs.html
+HP-UX: http://devrsrc1.external.hp.com/STK/partner/lg_files.pdf
+Solaris: http://wwws.sun.com/software/whitepapers/wp-largefiles/largefiles.pdf
+
+Looked into FTP timeouts. It appears I can just call empty() (which is
+nothing more than a front end for select()) with the desired timeout before
+any kind of network read. If it returns <= 0, we have a timeout. This is
+not quite the same as using alarm() / signal() around a recv() (which could
+get stuck) but alarm() / signal() are not not used in the FTP module and are
+not naturally portable to Windows, but select() is already in use in the FTP
+module for both Unix and Windows. This form of timeout could be used
+portably for both command response and data reads. What about writes to the
+command or data socket? They can get stuck for hours and hours without
+returning too, but the select() approach won't help here -- we need the
+actual send() or recv() to time out, or be wrapped in an alarm()/signal()
+kind of mechanism. But if we can do that for sends, we can also do it for
+receives. Better check with Jeff before I start programming anything.
+20 Mar 2004.
+
+Later: Decided to postpone the above two projects (ditto IPv6) until after
+8.0.211 is released because both will have major impacts on portability.
+Grumble: all i/o APIs should have been designed from the beginning with a
+timeout parameter. To this day, hardly any have this feature.
+
+3-4 Apr 2004: More 8.0.211 Beta.02+ test builds:
+
+ . FreeBSD 3.3
+ . FreeBSD 4.4
+ . Linux Debian 2.1
+ . Linux RH 6.1
+ . Linux RH 7.1
+ . Linux RH 7.2
+ . Linux RH 9 (with 84 different combinations of feature selection)
+ . Linux SuSE 6.4
+ . Linux SuSE 7.0
+ . NetBSD 1.4.1
+ . NetBSD 1.5.2
+ . OpenBSD 2.5
+ . OpenBSD 3.0
+ . QNX 4.25
+ . SCO UnixWare 2.1.3
+ . SCO UnixWare 7.1.4
+ . SCO OpenServer 5.0.7
+ . SCO XENIX 2.3.4 (no TCP)
+
+Changes needed: None.
+
+Problem: SCO XENIX 2.3.4 network build failed in the FTP module with
+header-file syntax and conflicting-definitions trouble. I'm not going to
+try to fix it; 8.0.209 built OK with FTP, so we'll just keep that one
+available.
+
+Got access to VMS 8.1 on IA64. Building the nonet version of C-Kermit
+required minor modifications to ckvvms.h, ckv[ft]io.c, and ckvcon.c, to
+account for a third architecture. Also to SHOW FEATURES in ckuus5.c. Once
+that was done, the UCX 5.5 version built OK too. Starts OK, makes Telnet
+connection OK, sends files. Has some obvious glitches though -- "stat"
+after a file transfer reports 0 elapsed time (in fact it was 00:09:48) and
+1219174400 cps (when in fact it was 10364). This doesn't happen on the
+Alpha. Btw, the IA64 binary is twice as big as the Alpha one. Changed
+to Beta.03. 5 Apr 2004.
+
+Fixed the ckdaily script to include the makefile and man page in the Zip
+file (they were not included because the Zip file was intended mainly for
+VMS users, but some Unix users prefer Zip to tar.gz). 6 Apr 2004.
+
+Traced problems in VMS/IA64 statistics report to rftimer()/gftimer() in
+ckvtio.c, which use sys$ and lib$ calls to figure elapsed time. These work
+on VAX and Alpha but not IA64. Sent a report to the chief engineer of the
+IA64 VMS port; he says it's probably a bug in VMS 8.1 (which is not a real
+release); he'll make sure it's fixed in 8.2. As an experiment, tried
+swapping in the Unix versions of these routines (which call gettimeofday()
+etc). They seem work just fine (it hung a couple times but I think that's
+because the underlying system hung too; trying it later on a new connection,
+it was fine; however I noticed a BIG discrepancy in throughput between
+sending and receiving). Moved definitions for VMS64BIT and VMSI64 to
+ckcdeb.h so all modules can use them and added them to the SHOW FEATURES
+display. Added VMSV80 definition to build procedure. Beta.03+. ckcdeb.h,
+ckcuus5.c, ckcvvms.h, ckvtio.c, ckvker.com, 6 Apr 2004.
+
+While doing the build-all, I noticed the VMS version did not build with
+Multinet or older UCX versions, always with the same errors -- undeclared
+variables, undefined symbols, all TCP/IP related. This didn't happen a
+couple weeks ago... Somehow the order of #includes was messed up --
+ckuusr.h depended on symbols that are defined in ckcnet.h, but ckcnet.h
+was being included after ckuusr.h... this was compounded by two missing
+commas in ckvker.com. 11 Apr 2004.
+
+Removed Beta designation, released as 8.0.211, 10 Apr 2004.
+
+I had somehow lost the edit to ckutio.c that changed the UUCP lockfile for
+Mac OS X from /var/spool/uucp to /var/spool/lock. So I slipped it in and
+re-uploaded version 8.0.211. You can tell the difference because SHOW
+VERSIONS has 17 Apr 2004 for the Communications I/O module. Also the 10.3
+executable now has a designer banner: "Mac OS X 10.3". makefile, ckuver.h,
+ckutio.c, ckuus[45].c, 17 Apr 2004.
+
+---8.0.211---
+
+Removed "wermit" from "make clean" (how did it get there?). makefile.
+
+From Jeff, applied 10 May 2004.
+ . Rearrange #ifdefs that define OS/2-only features. ckcdeb.h.
+ . Fix two strncat()s that should have been ckstrncat()s. ckuus7.c.
+ . Fix two strncat()s that should have been ckstrncat()s. ckuus4.c.
+ . Fix one strncat(). ckcfns.c.
+ . SET FTP CHAR ON used backwards byte order when output to screen. ckcfns.c.
+ . Fix two strncat()s. ckuus3.c.
+ . Add SET NETWORK TYPE NAMED-PIPE for K95. ckuus3.c.
+ . Add "No active connections" message to hupok(). ckuus3.c.
+ . Fix many strncat()s. ckcnet.c.
+ . Fix some strncat()s. ckcftp.c
+ . Make FTP port unsigned short for 16383 < port < 65536. ckcftp.c.
+ . Improvements to FTP USER command. ckcftp.c.
+ . Fix FEAT parsing to allow for various forms of whitespace. ckcftp.c.
+
+S-Expression (AND FOO BAR) would not short-circuit if FOO's value was 0,
+even though short-circuiting code has been there since Day 1. Similarly for
+(OR BAR FOO). Turns out the first operand was a special case that bypassed
+the short-circuit check. Fixed in dosexp(): ckuus3.c, 10 May 2004.
+
+Red Hat 7.3 (and maybe others) <baudboy.h> referenced open() without first
+ensuring it was declared. The declaration is in <fcntl.h>, which is after
+<baudboy.h> in ckutio.c series of #includes. Made a special case for this.
+ckutio.c (see comments), 10 May 2004.
+
+If the local Kermit's parity is set to SPACE and then a file arrives via
+autodownload, automatic parity detection improperly switches it to NONE.
+Fixed in rpack() by switching parity automatically only if parchk() returns
+> 0 (rather than > -1), since NONE and SPACE are indistinguishable. A
+bigger problem still remains: autodownload does not work at all if the
+sender is using actual parity bits (even, odd, or mark) and the receiver's
+parity is NONE. ckcfn2.c, 10 May 2004.
+
+When a DIAL MACRO is defined and the phone number is comprised of more than
+one "word" (i.e. contains spaces), the dial macro loses the second and
+subsequent words after the first call. Fixed in xdial() by inserting quotes
+around phone number before passing it to xdial(). ckuus6.c, 10 May 2004.
+
+DIAL MACRO fix was not right; the quotes were kept as part of the phone
+number and sent to the modem. dodo() pokes its argument to separate the
+macro argument string into its component arguments. xdial() is called
+repeatedly on the same string, so after the first time, a NUL has been
+deposited after the first word of the telephone number. The fix is to have
+xdial() create a pokeable copy of its argument string before calling
+dodo(dial-macro,args...). It might seem odd that dodo pokes its argument,
+but making copies would be would be prohibitive in space and time.
+ckuus6.c, 23 May 2004.
+
+FTP CD did not strip braces or quotes from around its argument. Fixed in
+doftprmt(): ckcftp.c, 23 May 2004.
+
+Added client side of REMOTE MESSAGE/RMESSAGE/RMSG: ckuus[r27].c, 23 May 2004.
+
+Server side of REMOTE MESSAGE: ckcpro.w, 23 May 2004.
+
+From Dave Sneddon: an updated CKVKER.COM containing a fix where the
+COMPAQ_SSL symbol was not defined but later referenced which generated an
+undefined symbol error. ckvker.com, 5 Jan 2005.
+
+From Andy Tanenbaum (28 May 2005):
+ . Fix an errant prototype in ckcker.h and ckucmd.h - () instead of (void).
+ . Add support for MINIX 3.0. makefile, ckutio.c, ckufio.c, ckuver.h.
+
+Fixed messed-up sndhlp() call which apparently had been jiggered to
+compensate for the bad prototype which has now been fixed, ckcpro.w,
+12 Jun 2005.
+
+From Jeff (12 June 2005):
+ . Security updates. ck_ssl.c, ck_crp.c, ckuath.c.
+ . Fix bug in K95 SET PRINTER CHARACTER-SET. ckuus3.c.
+ . Add printer character-set to K95 SHOW PRINTER display. ckuus5,c
+ . Add SET MSKERMIT FILE-RENAMING to K95. ckuus7.c, ckuusr.h.
+ . Add help for K95 SET MSKERMIT. ckuus2.c.
+ . Add SET GUI CLOSE to K95. ckuusr.h, ckuus2.c, ckuus3.c
+ . Add help text for K95 SET GUI MENUBAR and TOOLBAR. ckuus2.c.
+ . Add --noclose command-line option for K95. ckuusy.c
+ . Add PAM support for Mac OS X. ckufio.c.
+ . Add GSSAPI support for Mac OS X. ckcftp.c.
+ . Pick up more URL options. ckcker.h, ckuusy.c.
+ . Fix bug in delta-time calculation across year boundary. ckucmd.c.
+ . Add Secure Endpoints to copyright notices. ckcmai.c.
+ . Fix FTP HELP to override unverbose setting. ckcftp.c.
+ . Fix assorted minor typos.
+
+From Matthias Kurz: automatic herald generation for NetBSD 2.0 and later,
+"make netbsd2". ckuver.h, makefile, 12 Jun 2005.
+
+Added SET TERMINAL LF-DISPLAY, like CR-DISPLAY but for linefeed rather than
+carriage return. ckuusr.h, ckuus[257x].c, 12 Jun 2005.
+
+Made a command-line option --unbuffered to do what the -DNONOSETBUF
+compile-time option does, i.e. force unbuffered console i/o. Unix only.
+ckuusr.h, ckuusy.c, ckutio.c, 12 Jun 2005.
+
+Fixed getiact() (which displays TERM IDLE-ACTION setting) to display
+space as \{32}. ckuus7.c, 12 Jun 2005.
+
+Added LMV as a synonym for LRENAME, which is itself a synonym for LOCAL
+RENAME. ckuusr.c, 12 Jun 2005.
+
+Put HELP SET TERMINAL DG-UNIX-MODE text where it belonged. ckuus2.c,
+12 Jun 2005.
+
+Added IF LINK (Unix only) to test if a filename is a symlink. Uses the most
+simpleminded possible method, calls readlink() to see if it succeeds or fails.
+No other method is dependable across different Unixes. This code should be
+portable because I already use readlink() elsewhere within exactly the same
+#ifdefs. ckufio.c, ckuus2.c, ckuus6.c, 12 Jun 2005.
+
+Fixed a bug in which \fdir() wouldn't work when its argument was the nonwild
+name of a directory file. zxpand(): ckufio.c, 12 Jun 2005.
+
+Made \fdirectory() a synonym for \fdirectories(). Made \fdir() an
+acceptable abbreviation for these, even though it clashes with \fdirname(),
+which still works as before. ckuus4.c, 12 Jun 2005.
+
+Added the long-needed \flopx() function, to return rightmost pieces of
+strings, such as file extensions. \fstripx() and \flopx() are the
+orthogonal functions we need to pick filenames apart from the right:
+\stripx(foo.tar.gz) = foo.tar; flopx(foo.tar.gz) = gz. ckuusr.h, ckuusr.c,
+ckuus2.c, 12 Jun 2005.
+
+Removed reference to defunct fax number, ckcmai.c, 12 Jun 2005.
+
+Added -DHAVE_PTMX to linux+krb5+openssl+zlib+shadow+pam. From Timothy Folks.
+makefile, 12 Jun 2005.
+
+Built on Solaris 9 and NetBSD 2.0.
+
+From Jeff: New build target for Mac OS X 10.3 with Kerberos 5 and SSL.
+makefile, 14 Jun 2005.
+
+Fixed error in ckuver.h NetBSD #ifdefs. 15 Jun 2005.
+
+Fixed SET TERMINAL IDLE-ACTION OUTPUT to work as documented, namely if the
+output string is empty, to send a NUL. Previously there was no way to make
+it send a NUL. ckuus7.c, 15 Jun 2005.
+
+Suppose (in Unix, for example) a filename contains wildcard characters, such
+as {abc}.txt. When referring to such a file (e.g. in a SEND command), these
+characters can be quoted, e.g. \{abc\}.txt. But if the file list has been
+obtained programmatically, e.g. stored in an array, there is no way, short
+of tedious, complicated, and error-prone string processing, to reference the
+file. For this we need a way to disable wildcard processing. I added { ON,
+OFF } choices for the SET WILD and SHOW FILE commands: ckuusr.h, ckuus[234].c.
+{ ON, OFF } turns wildcarding off and on without affecting the { KERMIT,
+SHELL } agent choice; it does this by setting a new and separate global
+variable, wildena. Added semantics to ckufio.c. Crude but effective. It
+might have been more Unixlike to add Yet Another form of quoting but we
+have enough of that already (later maybe I'll add a \function() for this).
+Needs to be propagated to Windows and VMS. 15 Jun 2005.
+
+Improved and fixed typos in HELP WILDCARD and HELP PATTERN. ckuus2.c,
+15 Jun 2005.
+
+The GREP command, and probably anything else that uses ckmatch() for pattern
+matching, failed on patterns like */[0-3]*.html. The [a-b] handler, when
+failing to match at the current position, neglected to back up the pattern
+and try again on the remainder of the string. I also fixed another case, in
+which matching a literal string a*b?c against the pattern a[*?]*[?*]c caused
+ckmatch() to recurse until it blew up. ckclib.c, 16 Jun 2005.
+
+Added builds and designer banner for Solaris 10. makefile, ckuver.h,
+27 Jun 2005.
+
+Defined CKHTTP for NetBSD, the HTTP code builds and works fine there.
+ckcdeb.h, 2 Jul 2005.
+
+Added #ifndef OSF40..#endif around definition of inet_aton() in ck_ssl()
+to allow building in Tru64. Added tru64-51b+openssl to makefile.
+15 Jul 2005.
+
+HTTP GET would fail if the URL contained any metacharacters, no matter how
+much you quoted them. Although it uses cmfld() to parse the (partial) URL,
+it then uses cmofi() to get the output filename, which by default is the
+"filename" from the URL, which might be something like "rankem.asp?id=1639".
+cmofi() refuses to accept unquoted metacharacters in "filenames" and that's
+what happens in this case if the output filename is not specified. Worked
+around this by disabling wildcard processing around HTTP GET using the new
+"wildena" variable from June 15th. ckuusr.c, 18 Jul 2005.
+
+Fixed the June 16th fix to the pattern matcher. I fixed a real problem, but
+I made an unrelated optimization that introduced new ones. ckclib.c,
+18 Jul 2005.
+
+Added missing help text for \fb64encode() and \fb64decode(). ckuus2.c,
+18 Jul 2005.
+
+Changed SET WILD OFF help text to warn that this setting prevents the
+creation of backup files (later I'll have to see if something more useful
+can be done about this). ckuus2.c, 18 Jul 2005.
+
+Built OK on Mac OS X 10.4.2 using macosx103 target (but with some
+"signedness" warnings in ckcnet.c and ckcftp.c). Built on Unixware 7.1.4
+with uw7 target. 27-28 Jul 2005.
+
+Added -DCKHTTP to Mac OS X 10.3-.4 KFLAGS. Makefile, 4 Aug 2005.
+
+Built on BSDI 4.3.1. Added -DCKHTTP.
+
+Compact substring notation extended to accept not only start:length but also
+start-end notation. Thus \s(foo[12:18]) means the substring of foo starting
+at position 12 of length 18, and tne new \s(foo[12-18]) means the substring
+of foo starting at position 12 and ending with position 18. Ditto for
+\:(\%a), etc. ckuus4.c, 9 Aug 2005.
+
+See correspondence with Mark Sapiro, Nov 2003 and Sep 2004, about certain
+variations on IF syntax having been broken by the introduction of "immediate
+macros" circa 1999. It seems the problem -- variables not being expanded --
+always occurs in the ELSE part when (a) the IF condition is false; (b) the
+ELSE command is "standalone", i.e. expressed as a separate command after the
+IF command (original C-Kermit 5A syntax), and (c) its command list is a block.
+This would suggest the problem is in the XXELS parser.
+
+Going back to 1999, I find this:
+ Fixed a problem Jim Whitby noticed with quoting in ELSE statements. This
+ problem was introduced when I unified IF and XIF, and occurs only when
+ ELSE begins on a line, followed by a { command list } rather than a single
+ command. The solution (gross) was to make a special version of pushcmd()
+ (called pushqcmd()) for this situation, which doubles backslashes while
+ copying, BUT ONLY IF it's a command list (i.e. starts with "{"); otherwise
+ we break lots of other stuff. Result passes Jim's test and still passes
+ ckedemo.ksc and iftest.ksc. ckucmd.c, ckuus6.c, 27 Sep 99.
+
+I undid this change and it made no difference to all the other IF
+constructions (in fact, it fixed an unrelated one that was broken, so now
+iftest scores 54 out of 54, instead of 53). However, it does not fix the
+ELSE problem; in fact it pushes it all the way in the other direction:
+
+ The opposite occurs any time you try to execute an immediate macro inside a
+ macro or any other { block }: not only is the variable evaluated, it is
+ evaluated into nothing. It looks like this happens only in immediate
+ macros, i.e. *commands* that start with '{'. So maybe we really have two
+ isolated problems, that can each be fixed.
+
+The situation is illustrated by this simple script:
+
+ def xx {
+ if false { echo \%1, echo \%2 }
+ else { echo \%3, echo \%4 }
+ }
+ xx one two three four
+
+With pushqcmd() it echoes the variable names literally; with pushcmd() it
+echoes empty lines. Since ELSE, when its argument is a block, dispatches
+to the immediate-macro handler, it seems we have unified the two problems,
+so fixing one should fix the other.
+
+The problem is that we define a new temporary macro and then call dodo() to
+execute it. But if the definition contains macro arguments, we have added a
+new level of macro invocation, thus wiping out the current level of args.
+The cure is to expand the variables in the immediate macro in the current
+context, before executing it. This means simply changing the cmtxt() call
+that reads the immediate macro to specify xxsting as its processing
+function, rather than NULL, which is used for real macros to defer their
+argument evaluation until after the macro entered. ckuusr.c, 11 Aug 2005.
+
+Added a new makefile target, macosx10.4, for Mac OS X 10.4. This one uses
+an undocumented trick to get the otherwise unavailable-except-by-clicking
+Mac OS X version number (in this case 10.4.2) and stuff it into the HERALD
+string. makefile, 11 Aug 2005.
+
+Built OK on Solaris 9, Solaris 10 (with a few implicit declaration warnings
+in ckuusx.c), Mac OS X 10.4.2 (with some warnings in ckcnet.c and ckcftp.c),
+Mac OS X 10.3.9 (also using the macos10.4 entry, which gets the right
+version number, and gets no warnings at all), RH Enterprise Linux AS4 on AMD
+x86_64, Tru64 Unix 4.0F, SCO UnixWare 7.1.4
+
+For docs and/or scriptlib: Unix C-Kermit can be a stdin/out filter. The
+trick is to use the ASK, ASKQ, or GETC command for input, specifying no
+prompt, and ECHO or XECHO for output, e.g.:
+
+while true {
+ ask line
+ if fail exit 0
+ echo \freverse(\m(line))
+}
+exit 0
+
+FOPEN didn't do anything with the channel number if the open failed, so any
+subsequent command that tried to reference it would get a parse error it was
+undefined or non-numeric, not very helpful. Changed FOPEN to set the
+channel number to -1 if the file can't be opened. Now subsequent operations
+on the channel fail with "Channel -1: File not open". I also added two
+magic channel numbers: -8 means that any FILE command (besides OPEN and
+STATUS) on that channel is a noop that succeeds silently; -9 is a noop that
+fails silently. So now it's possible to simply set a channel number to one
+of these values to disable i/o to certain file without getting lots of error
+messages. dofile(): ckuus7.c, 12 Aug 2005.
+
+Added automatic herald construction for UnixWare 7. makefile, 12 Aug 2005.
+
+Unix isdir() never allowed for arguments that started with tilde, so gave
+incorrect results for ~/tmp/ or ~fdc. The problem was mainly invisible
+since most commands that parsed file or directory names used cmifi(), cmdir(),
+etc, which did the conversions themselves. But IF DIRECTORY was an exception,
+since its operand had to be treated as just text, and then tested after it
+was parsed. ckufio.c, 13 Aug 2005.
+
+Fixed the following:
+"ckuusx.c", line 8959: warning: implicit function declaration: ckgetpeer
+"ckufio.c", line 1869: warning: implicit function declaration: ttwait
+"ckufio.c", line 2941: warning: implicit function declaration: mlook
+"ckufio.c", line 2943: warning: implicit function declaration: dodo
+"ckufio.c", line 2944: warning: implicit function declaration: parser
+"ckcftp.c", line 2625: warning: implicit function declaration: delta2sec
+"ckcftp.c", line 4071: warning: no explicit type given for parameter: prm
+"ckcftp.c", line 8389: warning: no explicit type given for parameter: brief
+ckuusx.c, ckufio.c, ckcftp.c, ckucmd.h. 13 Aug 2005.
+
+Unbuffered stdout code has never worked because the setbuf(stdout,NULL) call
+has to occur before the stdout has been used. The reason it's needed is
+that some Kermit code writes to stderr (which is unbuffered) and other code
+writes to stdout, and therefore typescripts can come out jumbled. Robert
+Simmons <robertls@nortel.com> provided the needed clue when he insisted it
+worked only when executed at the very beginning of main(). So I moved the
+code to that spot. But since now we also want to make unbuffered a runtime
+(command-line) option, I had to do a clunky by-hand pre-prescan inline in
+main() to look thru argv[], even before prescan() was called. ckcmai.c,
+ckutio.c, ckuusy.c, 13 Aug 2005. (Now that this works, it might be a good
+idea to remove all use of stderr from Kermit.)
+
+Managed, after some finagling, to build a 64-bit version on Solaris 10 at
+Utah Math with Sun cc. (Can't make any gcc builds at all, 32- or 64-bit,
+they all blow up in <sys/siginfo.h>.) New target: solaris10_64. makefile,
+15 Aug 2005.
+
+The 64-bit Solaris 10 version compiles and links OK and transfers files in
+remote mode. It can make FTP connections and use them, but Telnet connections
+always fail with "network unreachable". This is with all default libs and
+include files. Nelson has a separate set in /usr/local, which he references
+explicitly in all his 64-bit builds, but using these makes no difference.
+Some data type is wrong in ckcnet.c. But telnet works fine in 64-bit Linux
+and Tru64 builds. Debug logs trace the difference to netopen() (of course),
+the spot where we test the results of inet_addr(), which is already marked
+suspicious for 64-bit builds. It seems that inet_addr() is of type in_addr_t,
+which in turn is u_int32, i.e. an unsigned 32-bit int. Yet the man page says
+that failure is indicated by returning -1. I guess this doesn't matter in
+32-bit builds, but in the 64-bit world, the test for failure didn't work
+right. I made a Solaris-specific workaround, and checked that it works in
+both 32-bit and 64-builds. I really hate typedefs. ckcnet.c, 15 Aug 2005.
+
+Changed the plain-text version (as opposed to the popup or GUI version - the
+GUI version, at least, already does this) of ASKQ to echo keystrokes
+asterisks rather than simply not echo anything, so it's easier to see what
+you're doing, the effects of editing, etc. Experimental; for now, there's
+no way to disable this. Not sure if there needs to be. Anyway, to get this
+working required a fair amount of cleaning up of gtword(), which was echoing
+different ways in different places. ckuus6.c, ckucmd.c, 15 Aug 2005.
+
+Added a solaris9_64 target for building a 64-bit version on Solaris 9 with
+Sun cc. Verified, using the DIR command and \fsize() function on a 4.4GB
+file, that the Solaris 64-bit version of Kermit gets the size correctly, and
+that it can copy such a file (thus its fopen/fread/fwrite/fclose interface
+works right). Initiated a large-file transfer between here and Utah over
+SSH and verified that it puts the correct file size in the A packet when
+sending; the right quantities are shown on the file transfer display (file
+size CPS, percent done, etc). But even at 5Mb/sec, it takes a good while to
+transfer 4.4GB, more than 2 hours (not streaming; 30 window slots, 4K
+packets, maybe it would go faster with streaming)... After an hour or so,
+it filled up the partition and gave up (gracefully) before it reached the
+2GB frontier (drained its pending packets, closed the partial file).
+Restarted at 12:54, this time with streaming and 8K packets (the speed
+wasn't significantly different). This time it transferred 95% of the file
+(4187660288 bytes) before failing because the disk filled up. Went to Utah
+and started a transfer between two Solaris 10/Sparc hosts; this goes about 8
+times faster. The transfer completed successfully after 17m41s. All fields
+in the f.t. display looked right the whole time. Then I verified various
+other 64-bit combinations transferring the same 4.4GB file:
+
+ To................
+ From Sol Amd i64 Tru
+ Sol OK OK OK OK Sol = Solaris 10 / Sparc
+ Amd OK Amd = AMD x86_64 RH Enterprise Linux AS4
+ i64 OK i64 = Intel IA64, RH 2.1AS
+ Tru Tru = Tru64 Unix 4.0F Alpha
+
+(The other combinations are difficult to test for logistical reasons.)
+
+Tried sending the same long file with Kermit's FTP client. It chugged along
+for a while until I stopped it; it would have taken hours to complete.
+There is no indication that it wouldn't have worked, assuming the FTP server
+could also handle long files, which who knows. Anyway, Kermit showed all
+the right data on the display screen. 17 Aug 2005.
+
+On AMD x86_64 and IA64 native 64-bit Linux builds, the pty routines did not
+work at all. ptsname() dumped core. If I commented out ptsname(), then the
+next thing dumped core. The same code works on the other 64-bit builds.
+Poking around, I see that this version of Linux has an openpty() function,
+which I could try using instead of the current API -- grantpty(), etc. Then
+I see that openpty() is already coded into Kermit's pty module,
+conditionalized under HAVE_OPENPTY, which has never before been defined for
+any build. I added a test to the makefile linux target (look for the
+openpty() prototype in <pty.h>, if found define HAVE_OPENPTY as a CFLAG and
+also add -lutil to LNKFLAGS). Works fine on the problem builds, and also
+on previously working 32-bit builds. makefile, 17 Aug 2005.
+
+Fixed a bug in the ASKQ echo asterisks code, which made the VMS version of
+C-Kermit always echo asterisks. Turns out that some code in the main parse
+loop to reset command-specific flags was in the wrong place, which had other
+effects too, for example ASKQ temporarily turns off debug logging as a
+security measure, but the code to turn it back on was skipped in most cases.
+Some other side effects related to the DIRECTORY and CD commands might have
+been possible but I haven't seen them. ckuus[56].c, 23 Aug 2005.
+
+Problem reported when sending a file to VMS when the name in the F packet
+starts with a device specification and does not include a directory field,
+and PATHNAMES are RELATIVE. Example: dsk:foo.bar becomes f_oo.bar. The
+code assumes that if there is a device field, it is followed by a directory
+field, and it inserts a dot after the '[', which in this case is not there.
+Later the dot becomes '_' because of the only-one-dot rule. Solution: only
+insert the dot if there really is an opening bracket. nzrtol(): ckvfio.c,
+23 Aug 2005.
+
+A report on the newsgroup complains that C-Kermit and K95 servers were
+sending REMOTE DIR listings with only #J line terminators, rather than #M#J.
+Yet all the other REMOTE xxx responses arrived with #M#J. snddir() was
+neglecting to switch to text mode. ckcfns.c, 26 Aug 2005.
+
+Back to long files. What happens if 32-bit Kermit is sent a long file?
+It gets an A-packet that looks like this:
+
+ ^A_"A."U1""B8#120050815 18:28:03!'42920641*4395073536,#775-!7@ )CP
+
+The 32-bit receiver reacts like so:
+
+ gattr length[4395073536]=100106240
+
+the first number being the string from the A-packet, the second being the
+value of the long int it was converted to by atol(). Clearly not equal in
+this case. When this happens Kermit should reject the file instead of
+accepting it and then getting a horrible error a long time later. Added
+code to gattr() to convert the result of atol() back to a string and compare
+it with the original string; if they're not equal, reject the file on the
+assumption that the only reason this could happen is overflow. Also some
+other code in case the sender sends the only LENGTHK attribute. Now files
+whose lengths are too big for a long int are rejected right away, provided
+the sender sends the length in an A packet ahead of the file itself. If
+this new code should ever cause a problem, it can be bypassed with SET
+ATTRIBUTE LENGTH OFF. ckcfn3.c, 26 Aug 2005.
+
+As I recall from when I was testing this a few weeks ago, when the too-big
+length is not caught at A-packet time, the transfer fails more or less
+gracefully when the first attempt is made to write past the limit. I went
+to doublecheck this by sending a big file from the 64-bit Solaris10 version
+to a 32-bit Mac OS X version that does not have today's code. The Mac
+thinks the incoming file is 2GB long when it's really 4GB+. But in this
+case, something new happens! Although the percent done and transfer rate go
+negative, the file keeps coming. It would seem that Mac OS X lets us create
+long files without using any special APIs. The transfer runs to completion.
+Mac OS X Kermit says SUCCESS (but gets the byte count and cps wrong, of
+course). But then a STATUS command says FAILURE. The file was, however,
+transferred successfully; it is exactly the same length and compares byte
+for byte with the original. This tells me that in the Mac OS X version --
+and how many others like it??? -- today's rejection code should not be
+enabled. Meanwhile I put today's new code in #ifndef NOCHECKOVERFLOW..#endif,
+and defined this symbol in the Mac OS X 10.4 target. Over time, I'll have
+to find out what other platforms have this characteristic. And of course
+I'll also have to do something about file-transfer display, statistics, and
+status. makefile, ckcfn3.c, 26 Aug 2005.
+
+From now on I'm going to bump the Dev.xx number each time I upload a new
+ckdaily. This one will be Dev.02. ckckmai.c, 26 Aug 2005.
+
+Got rid of all the extraneous FreeBSD 4 and 5 build targets. Now there's
+one (freebsd) for all FreeBSD 4.1 and later. makefile, 27 Aug 2005.
+
+Mac OS X 10.4 (Tiger) is a 64-bit OS. Building C-Kermit 0n 10.4.2 without
+any special switches stilll gives a 32-bit executable. Ditto building with
+-mpowerpc64. Further investigation turned up a tip sheet on MySQL that says
+you have to include all of these: -mpowerpc64 -mcpu=G5 -mtune=G5 -arch
+ppc64. That did the trick. New makefile target: macosx10.4_64. But the
+10.4.2 system I tried did not have 64-bit [n]curses or resolv libs, so this
+build has no -DNOCURSES -DNO_DNS_SRV. makefile, 27 Aug 2005.
+
+Created a symbol CK_64BIT to indicate true 64-bit builds at compile time.
+Added 64-bit announcement to the startup herald and the VERSION text.
+ckcdeb.h, ckuus[r5].c, 27 Aug 2005.
+
+Added a built-in variable \v(bits) to indicate the size of the build
+(16, 32, 64, or whatever else sizeof() might report). ckuusr.h, ckuus4.c,
+27 Aug 2005.
+
+Got rid of all the warnings in 64-bit Mac OS X about args to getsockopt(),
+getsockname(), and getpeername(), and the comparisons on the return value
+of inet_addr(). ckcnet.[ch], 27 Aug 2005.
+
+Now to check the effects on other builds...
+ Linux on AMD64: ok.
+ Linux on IA64: ok.
+ Linux on i386: ok.
+ Mac OS X 10.3.9 32-bit: ok.
+ Solaris 10 64-bit: ok.
+ Solaris 9 32-bit: ok.
+ Tru64 4.0F: ok.
+ FreeBSD 4.11: ok.
+ FreeBSD 5.4 ia64 (64-bit): ok.
+ FreeBSD 5.4 i386 (32-bit): ok.
+
+The Tru64 5.1B build totally blew up because they have their own unique
+sockopt/etc length-argument data type (int!), so I had to roll back on using
+socklen_t for this in all 64-bit builds. Checked to make sure it still
+builds on Tru64 4.0F after this change (it does). ckcnet.h, 27 Aug 2005.
+
+The HP-UX 11i/ia64 build comes out to be 32-bit but thinks it's 64-bit.
+CK_64BIT is set because __ia64 is defined. So how do I actually make a
+64-bit HP-UX build? I tried adding +DD64 to CFLAGS, and this generates
+64-bit object files but linking fails to find the needed 64-bit libs
+(e.g. -lm). For now I added an exception for HPUX to the CK_64BIT
+definition section. ckcdeb.h, 27 Aug 2005.
+
+Took the time to verify my recollection about the "graceful failure" on a
+regular Pentium Linux system when receiving a too-big file... OK, it's not
+exactly graceful. It gets a "File size limit exceeded" error; the message
+is printed in the middle of the file-transfer display, apparently not by
+Kermit, and Kermit exits immediately. Looks like a trap... Yup. "File
+size limit exceeded" is SIGXFSZ (25). What happens if we set it to SIG_IGN?
+Just the right thing: The receiver gets "Error writing data" at 2147483647
+bytes, sends E-packet to sender with this message, and recovers with total
+grace (drains packet buffers, returns to prompt). ckutio.c, 27 Aug 2005.
+
+Backed off from rejecting a file because its announced size overflows a
+long. Now instead, I set the file size to -2 (a negative size means the
+size is unknown, but we have always used -1 for this; -2 means "unknown and
+probably too big"). In this case, the f-t display says:
+
+ File Size: POSSIBLY EXCEEDS LOCAL FILE SIZE LIMIT
+
+then the user can interrupt it with X or whatever, or can let it run and
+see if maybe (as in the case of Mac OS X) it will be accepted anyway. This
+way, we skip all the bogus calculations of percent done, time remaining, etc.
+ckcfn3.c, ckuusx.c, 27 Aug 2005.
+
+Discovered that VMS C-Kermit on Alpha and IA64 is a 32-bit application;
+sizeof(long) == sizeof(char *) == 4. Tried adding /POINTER_SIZE=64 to VMS
+DECC builds on Alpha and IA64, but the results aren't great. Tons of
+warnings about pointer size mismatches between Kermit pointers and RMS ones,
+and the executable doesn't run. It appears that access to long files
+would require a lot of hacking, similar to what's needed for 32-bit Linux.
+
+--- Dev.02: 27 Aug 2005 ---
+
+From Jeff, 28 Aug 2005.
+ . Fix SSH GLOBAL-KNOWN-HOSTS-FILE / USER-KNOWN-HOSTS-FILE parsing, ckuus3.c.
+ . Pick up K95STARTFLAGS from environment, ckuus4.c.
+ . Fix some typos in command-line processing (-q), ckuus4.c.
+ . Be sure to suppress herald if started with -q, ckuus7.c.
+ . Fix ssh command-line switches, ckuusy.c.
+
+Eric Smutz complained that HTTP POST was adding an extraneous blank line,
+which prevented his application from successfully posting. RFC 2616 states
+(in Section 4.1):
+
+ In the interest of robustness, servers SHOULD ignore any empty
+ line(s) received where a Request-Line is expected. In other words, if
+ the server is reading the protocol stream at the beginning of a
+ message and receives a CRLF first, it should ignore the CRLF.
+
+ Certain buggy HTTP/1.0 client implementations generate extra CRLF's
+ after a POST request. To restate what is explicitly forbidden by the
+ BNF, an HTTP/1.1 client MUST NOT preface or follow a request with an
+ extra CRLF.
+
+This seems pretty clear. One section of code in http_post() (just above the
+postopen: label) was appending a CRLF to a buffer whose last already was
+terminated by CRLF, and then appended a second CRLF; thus two empty lines.
+I removed the second one. ckcnet.c, 28 Aug 2005.
+
+I looked into the 64-bitness of NetBSD, it seems to be like Linux and
+FreeBSD on 64-bit hardware, i.e. you just build it there and it works, at
+least on Alpha and AMD64, going back to NetBSD 1.4 or 1.5. But I don't have
+access to any of these for verification and documentation on the Web is
+scanty.
+
+Checked PeterE's complaint again of warnings in ckutio.c about parameter
+list of get[ug]id() and gete[ug]id(). When I "make hpux1100o" on HP-UX
+11.11 (PA-RISC), there are definitely no warnings. He says the same thing
+happens on 10.xx, but I don't have access to that any more. I also did
+"make hpux1100o" on HP-UX 11.23 (11i v2) (PA-RISC), also no warnings.
+(Except in both cases, a warning about a comment within a comment in
+/usr/include/sys/ptyio.h). On HP-UX 11i v2 on Itanium, however, there are
+TONS of warnings, mostly of the "variable set but never used" kind. Also
+"dollar sign used in identifier". Tracking this last one down, I see it's
+complaining about code that's in #ifdefs for other platforms, such as
+Apollo Aegis. Is "aegis" defined in HP-UX 11i v2/IA64? No! (It would show
+up in SHOW FEATURES if it was.) Some phase of the compiler is complaining
+about code that it should be skipping (and that, in fact, it *is* skipping
+it because the build is successful). It's as if cc is running lint for me
+but not telling lint which macros are defined and which are not.
+
+Verified that 64-bit linking fails in the same way for HP-UX 11i v2 on both
+IA64 and PA-RISC. Sent a query to HP.
+
+Compiling ckcnet.c and ckcftp.c got the familiar sockopt-related warnings on
+HP-UX 11i v2; turns out it is just like Tru64 Unix in using an int for the
+length argument. Added another special case and the warnings went away.
+ckcnet.h, 28 Aug 2005.
+
+Added some stuff to SHOW FEATURES to see what kinds of macros are exposed
+(e.g. INT_MAX, LONG_MAX, LLONG_MAX, etc) and also show sizeof(long long) and
+sizeof(off_t). Building this code all over the place will give me an idea
+of how widespread these data types are, and to what extent I can tell
+whether they are available from clues in the header files. (At first
+glance, it appears that I'm not picking up <limits.h>, but adding an
+#include for it is just asking for trouble.) No complaints about long long
+or off_t from Solaris 9 or recent Linuxes. ckuus5.c, 28 Aug 2005.
+
+Fixed a warning in HP-UX 10 and 11 stemming from some old-style prototypes
+in ckutio.c for get[re][gu]id(). ckutio.c, 29 Aug 2005.
+
+Updated minix3 target from Andy Tanenbaum. makefile, 29 Aug 2005.
+
+PeterE confirms that "long long" and off_t are available in all HP-UX 10 and
+11, and in HP-UX 9 on PA-RISC but not Motorola. 30 Aug 2005.
+
+Got 64-bit builds to work on HP-UX. According to my notes, John Bigg of HP
+said (in 1999) that HP-UX 10.30 and later require PA-RISC 1.1, and do not
+work on PA-RISC 1.0. But is PA 1.0 64-bit or what? Today, Alex McKale of
+HP said "The 64-bit binaries will work on all machines that have the same or
+later release of HP-UX (excluding PA-RISC 1.1 machines)". Still need
+clarification... Maybe it's that all IA64 builds can be 64-bit but I need
+dual builds for PA-RISC. Meanwhile I started transfer of a 4GB+ file from
+Solaris to HP-UX 11i but it exceeded some quota on the HP long before it
+approached the 2G point. It failed cleanly and up until then it was working
+fine (numbers, stats, etc). 30 Aug 2005.
+
+Support of large files in 32-bit builds began in 10.20. 64-bit application
+support began in 11.00, but not all machines that run 11.00 support 64 bits.
+About long files, see HP /usr/share/doc/lg_files.txt.
+
+PeterE found that certain patterns can still make Kermit loop; example:
+
+ if match T01011-00856-21-632-073 *[abc] { echo GOOD } else { echo BAD }
+ if match T01011-00856-21-632-073 *[a-z] { echo GOOD } else { echo BAD }
+
+The minimum offending pattern is * followed immediately by an [xxx]
+construction, followed by anything else, including nothing. Previous
+versions of Kermit handled this one correctly, without looping (but failed
+certain matches that should have succeeded). The new section of code I
+added on 15 June, upon failure to match, advances the string pointer and
+backs up the pattern to the previous pattern, and starts again
+(recursively). However, there needed to be a corresponding check at entry
+for an empty target string. ckmatch(): ckclib.c, 12 Sep 2005.
+
+PeterE discovered that "kermit -y filethatdoesnotexit" gives an erroneous
+error message that names the user's customization, rather than the name
+given on the command line. doinit(): ckuus5.c, 12 Sep 2005.
+
+FREAD does not get an error if it tries to read a record or file or piece of
+file that is too big for its buffer. In particular, FREAD /SIZE:xxx seems
+to succeed even if less than xxx was read. It should fail unless, perhaps,
+it successfully read up to the end of the file. Furthermore, if xxx is
+bigger than the file buffer size, it should complain. The buffer is
+line[LINBUFSIZ], 32K. The lack of failure was due to code in dofile() that
+adjusted the given size silently if it was greater than the buffer size,
+which I removed, and also added a check when parsing the /SIZE: switch.
+dofile(): ckuus7.c, 12 Sep 2005.
+
+That still didn't help with FREAD /SIZE:n returning less than n bytes, even
+when they were available. That's because the underlying routine, z_in(),
+didn't check fread()'s return code, which is the number of bytes read.
+If fread() has smaller buffers, it needs to be called in a loop. z_in():
+ckuus7.c, 12 Sep 2005.
+
+Flen() fails on strings of length 8192 or more. The limitation is in the
+callers of zzstring, which seem to be specifying an 8K buffer, in this case
+fneval(). The operable symbols are FNVALL (max length of value returned by
+a function) and MAXARGLEN (maximum length of an argument to a function). I
+changed both of these for BIGBUFOK builds to be CMDBL. Buffers can never be
+infinite, there has to be a limit. It's important to make everything work
+consistently within that limit, and to make something useful happen when the
+limit is exceeded. At this point, I can probably also increase the limits
+for modern 32-bit systems, and certainly for 64-bit ones. Also there's no
+point in worrying about 16-bit platforms any more; earlier C-Kermit versions
+can still be used on them if necessary. ckuusr.h, 12 Sep 2005.
+
+Special #ifdefs for finding resolv.h and nameser.h in MINIX3 from Andy
+Tanenbaum. ckcnet.c, 20 Sep 2005.
+
+PeterE noticed that ckmatch(), even though it works pretty well now, does a
+lot of extra and unnecessary recursion after determining the string and
+pattern do not match, at least when the pattern is of the form *[abc].
+After several false starts I was able reduce this effect to a minor level
+(but not eliminate it all together) by changing a while loop into a do loop.
+ckmatch(): ckclib.c, 15 Oct 2005.
+
+Added -DNOLONGLONG to HP-UX 8.00 and earlier builds, and to Motorola-based
+HP-UX 9.00 builds. This is simply to inhibit the test for whether "long
+long" is supported by the compiler, since when it isn't, the module
+containing the test won't compile. makefile, ckuus5.c, 16 Oct 2005.
+
+Making ASKQ always echo asterisks is a bad idea, because when it doesn't
+echo, it's the perfect way to read silently from stdin, e.g. in a CGI script
+(INPUT can also be used for this but it's not as straightforward). So I put
+the default for ASKQ back to no echoing, then gave ASKQ its own switch
+table, which is the same as for ASK with the addition of an /ECHO:x switch,
+which tells what character to echo. ckucmd.c, ckuus[26].c, 17 Oct 2005.
+
+Fixed a bug in FTP GET /COMMAND filename commandname; it always dumped core
+dereferencing a null string (the nonexistent local asname). ckcftp.c,
+17 Oct 2005.
+
+For docs: if you don't like the funny business that happens when you type
+an IF command at the prompt, use XIF instead and it won't happen. Also note
+that commands like "if xxx { echo blah } else { echo blah blah }" don't
+work when typed at the prompt; you have to use XIF for this.
+
+Back to ckmatch()... Under certain conditions (e.g. patterns like *[abc])
+failure to match would not stop the recursion because the string and pattern
+arguments are on the stack, as they must be, so there was no way for level
+n-1 to know that level n had detected a definitive nonmatch and that no
+further attempts at matching were required. The right way to handle this is
+to recode the whole thing as coroutines, the cheap way out is with a global
+static flag. Works perfectly, in the sense that the match.ksc test results
+are identical to what they were before and the extra backing up and
+recursion are eliminated. (The Oct 15th fix wasn't really a fix, it broke
+a couple of cases.) ckclib.c, 20 Oct 2005.
+
+ckuus7.c(2987): warning #267: the format string requires additional arguments
+(in PURGE command); fixed 20 Oct 2005.
+
+From Andy Tanenbaum, final changes for MINIX3: #ifdef out the inline
+definitions for gettimeofday() and readlink(). ckutio.c, 23 Oct 2005.
+
+From Jeff: struct gss_trials initializers changed from gss_mech_krb5 to
+ck_gss_mech_krb5. ckcftp.c, 23 Oct 2005.
+
+From Jeff: some improvements to K95 GUI SHOW TERMINAL. ckuus5.c, 23 Oct 2005.
+
+Found and corrected some misplaced #ifdefs in shofeat(), ckuus5.c, 23 Oct 2005.
+
+--- Dev.03 ---
+
+Fixed a compiler warning in a debug() statement in zzstring() by adding
+parens. ckuus4.c, 24 Oct 2005.
+
+Added -DNOLONGLONG to sv68r3v6 target, makefile, 25 Oct 2005.
+
+New makefile targets for HP-UX from PeterE to handle the 'long long'
+situation. 26 Oct 2005.
+
+From Jeff: changes to support OpenSSL 0.9.8, ck_ssl.h. ckcasc.h has had
+short names defined for ASCII control characters for 20-some years but now
+they are causing conflicts, so EM becomes XEM (also for OpenSSL 0.9.8).
+Changed K95's default terminal type from VT320 to VT220 because VT320
+termcaps/terminfos are disappearing from Unix hosts: ckuus7.c. Reorganize
+the data-types section of SHOW FEATURES to add more macro tests for integral
+sizes and to provide for the proper printf formatting in order to allow the
+sizes to be output ("You are going to need to be careful because %llx is not
+supported on all platforms. On Windows, it is the same as %lx, 32 bits"):
+ckuus5.c, 26 Oct 2005.
+
+Defined NOLONGLONG ckcdeb.h for various old platforms where we know we are
+never going to need 64-bit ints (even if they support a long long datatype,
+chances are pretty slim they supported 64-bit file sizes). ckcdeb.h,
+26 Oct 2005.
+
+PeterE noticed that GOTO targets can only be 50 characters long. This was
+by design, a long time ago, on the assumption that nobody would make longer
+labels. But in SWITCH statements, case labels can be variables that expand
+to anything at all. If we chop them off at 50, we might execute the wrong
+case. Changed the maximum label size to be 8K, and added code to dogoto()
+to check when a label or target is too long and fail, to prevent spurious
+GOTO or SWITCH results. ckuusr.h, ckuus[r6].c, 26 Oct 2005.
+
+Testing revealed there was still a problem with SWITCH case labels that were
+variables that expanded into long strings. Turns out that I was being
+too clever when I decided that, if the SWITCH macro was n1 characters long
+and the case-label search target was n2 characters long, I only had to
+search the first n1-n2+1 characters of the macro definition. That was true
+before I allowed case labels to be variables, but not any more! Fixed in
+dogoto(): ckuus5.c, 26 Oct 2005.
+
+--- Dev.04 ---
+
+Dev.04 didn't actually contain Jeff's data-type changes to shofeat(),
+I think I saved the wrong buffer in EMACS... Fixed now. 27 Oct 2005.
+
+PeterE corrected a typo in the HP-UX 7.00 makefile target. 27 Oct 2005.
+
+PeterE had been reporting problems stress-testing the new SWITCH code, but
+only on HP-UX 9, primarily stack overrun. Turns out to be the HP-UX 9
+optimizing compiler's fault. No optimization, no problems.
+
+PeterE found that even when dogoto() detects a string that is too long
+and fails, this does not stop SWITCH from producing a result, which can not
+possibly be trusted. Changed the part of dogoto() that handles this to
+not just fail, but also to exit the script immediately and return to top
+level. ckuus6.c, 28 Oct 2005.
+
+An idea popped into my head after having typed too many commands like "dir
+ck[cuw]*.[cwh]" to check the list of matching files, and then having to
+retype the same filespec in a SEND command: Why not unleash some unused
+control character such as Ctrl-K to spit out the most recently entered input
+filespec? It was easy, just a few lines in cmifi2() and gtword(), plus a
+couple declarations. To see all the changes, search for "lastfile" (all the
+new code is protected by #ifndef NOLASTFILE). ckucmd.c, 28 Oct 2005.
+
+I added a new variable \v(lastfilespec) that expands to the same last
+filespec, for use in scripts. ckuusr.h, ckuus4.c, 28 Oct 2005.
+
+The Unix version of C-Kermit failed to put anything in the session log if
+SET TERMINAL DEBUG ON. Rearranged the pertinent clause so logging happens
+independent of TERMINAL DEBUG. For now, since the user who noticed this
+wanted debug format to go into the session log, that's what I do. The
+alternative would be to just log the raw incoming stream as usual, or to add
+Yet Another SET Command to choose. ckucns.c, 11 Nov 2005.
+
+Fixed HELP INTRO text. ckuus2.c, 11 Nov 2005.
+
+Added NOLONGLONG for SV68. ckcdeb.h, 11 Nov 2005.
+
+--- Dev.05 ---
+
+Added a debug() statement in FTP secure_getbyte() to see what's going on
+with Muhamad Taufiq Tajuddin's 205-byte-per-second FTP/SSL downloads.
+
+--- Dev.06 ---
+
+Result: nothing, SSL_get_error() does not report any errors. Suggested
+testing SSL_read()'s return code, if 0 don't update the screen.
+
+Created a new data type CK_OFF_T in ckcdeb.h that will eventually resolve
+to whatever each platform uses for file sizes and offsets. ckcdeb.h,
+17 Nov 2005.
+
+Made a new library routine ckfstoa() that converts a file size or offset to
+a string. This is to solve the problem with having to use different
+printf() formats for different representations of file size (int, long, long
+long, off_t, signed, unsigned, etc). Replaced a few printf("%l",size) with
+printf("%s",ckfstoa(size)) with the expected results. This is just a start,
+the definitions will need adjustment for many platforms, variables need to
+be redeclared, and all the offending printf's (and printw's) will have to
+hunted down and converted. ckclib.[ch], ckuus4.c, 17 Nov 2005.
+
+Built a minimal version on Linux with:
+make linux "KFLAGS=-DNOLOCAL -DNOICP -DNOCSETS -DNODEBUG"
+Worked fine, result was 260K on i686. 21 Nov 2005.
+
+Discovered that Kermit's date parser, contrary to the documentation, failed
+to handle strings like "Wed, 13 Feb 2002 17:43:02 -0800 (PST)", which are
+commonly found in email. This was because of an overzealous and misguided
+check in the code; once removed, all was well. ckucmd.c, 26 Nov 2005.
+
+Added a new format code 4 to \fcvtdate() to emit asctime() format, used in
+BSD-format email message envelopes (i.e. the "From " line). shuffledate(),
+ckucmd.c, ckuus[24].c, 26 Nov 2005.
+
+Added a new function \femailaddress(). Given a From: or Sender: header line
+from an RFC2822-format email address, extracts and returns the actual email
+address, such as kermit@columbia.edu. ckuusr.h, ckuus[42].c, 26 Nov 2005.
+
+Using the new functions, I wrote a script to fetch mail from a POP3 server
+over a TLS connection. But the line-at-a-time input (needed for changing
+line terminators and byte-stuffing text lines that start with "From ") is
+slow, 17 sec to read 29 messages totaling 175K.
+
+Added INPUT /CLEAR so INPUT can be started with a clean buffer without
+requiring a separate CLEAR INPUT command. ckuusr.h, ckuus[r24].c,
+27 Nov 2005.
+
+One thing that INPUT was never able to do well was read and save the
+complete incoming data stream. That's because, while waiting for its
+target, the buffer might overflow wrap around. Yet there was never a way to
+tell it to stop when its buffer fills up and let me save it. I added a
+/NOWRAP switch that does this. If the buffer fills up before any other
+completion criterion is met, INPUT returns failure, but with \v(instatus)
+set to 6 (the next available instatus value). Thus a program that wants to
+read and save (say) an email message from a POP server, which could be any
+length at all, and which terminates with <CRLF>.<CRLF> could do this:
+
+ set flag off
+ while open connection {
+ input /nowrap 10 \13\10.\13\10 # Wait for <CRLF>.<CRLF>
+ if success {
+ frwrite /string \%o {\freplace(\v(input),\13\10.\13\10,\13\10)}
+ set flag on
+ break
+ } else if ( == \v(instatus) 6 || == \v(instatus) 1 ) {
+ frwrite /string \%o {\v(input)}
+ continue
+ }
+ break
+ }
+ if flag (handle success)
+
+Note carefully the braces around the FWRITE text; without them, trailing
+spaces would be lost.
+
+Previously the only way to INPUT an entire data stream without losing
+anything (assuming it was ordinary lines of text that were not "too long"),
+was line-by-line:
+
+ while open connection {
+ input /clear 10 \13\10
+ if fail break
+ if eq "\v(input)" "$ \13\10" break
+ fwrite /string \%o {\freplace(\v(input),\13\10,\10)}
+ }
+
+The new code is 3 times faster using the default INPUT buffer length of 4K.
+Raising it to 16K makes it 3.6 times faster (not worth it). Changing the
+POP3 script to use INPUT /NOWRAP makes it about twice as fast (it does more;
+it has to do all the byte-stuffing and unstuffing). 27 Nov 2005.
+
+Changed ssl_display_xxx() to just return if SET QUIET ON. Otherwise there
+is no way to suppress the messages. Also protected a previously unprotected
+printf("[SSL - OK]\r\n"); by if ( ssl_verbose_flag ). ck_ssl.c,
+28 Nov 2005.
+
+Discovered that FOPEN /APPEND doesn't work if the file doesn't exist. It
+uses cmiofi() which is a super-hokey front end to cmifi2(). I had code to
+call it but for some reason it was commented out, with a note to the effect
+it didn't work. I uncommented it but that didn't help much. So I wrote an
+entirely new cmiofi() that works exactly as it should, using chained FDBs,
+_CMIFI to _CMOFI (I think the original cmiofi() predated chained FDBs).
+ckuus7.c, ckucmd.c, 29 Nov 2005.
+
+Getting rid of the awful hacks required to call cmiofi() meant I also had to
+change the EDIT command, which is the only other place where it's used.
+Unfortunately now it's no longer possible to give EDIT without a filename
+(to just start an empty editor) but I doubt anyone will notice. ckuusr.c,
+29 Nov 2005.
+
+IF KERBANG didn't always work right. If a kerbang script TAKEs another
+kerbang script, the second one should have IF KERBANG false, but it didn't.
+Added a check for \v(cmdlevel) == 1. Now you can write a wrapper that runs
+a kerbang script in a loop, and the latter can use IF KERBANG to know
+whether to EXIT (if called at top level) or END (if called by another
+script, thus allowing -- in this case -- the loop to continue). ckuus6.c,
+29 Nov 2005.
+
+Changed \flop() and flopx() functions to take a third argument, a number
+signifying at which occurrence of the break character to lop, so:
+
+ \flopx(sesame.cc.columbia.edu) = edu
+ \flopx(sesame.cc.columbia.edu,,2) = columbia.edu
+
+ckuus[24].c, 1 Dec 2005.
+
+Built OK on VMS 7.2-1 with MultiNet 4.4. Built with and without OpenSSL on
+Linux OK, ditto Solaris 9. Built OK on RH Linux AS4 on X86_64 (64-bit);
+"show var fsize" (using new ckfstoa()) works OK there. Also Mac OS X 10.3.9
+(32-bit), Tru64 UNIX 4.0F (64-bit), HP-UX 11iv2 (64-bit) (picky new compiler
+spews out tons of useless warnings), FreeBSD 6.0 on ia64 (64-bit).
+
+--- Dev.07 ---
+
+Changed "make netbsd" to be a synonym for "make netbsd2" because the
+original netbsd target was ancient. Renamed it to netbsd-old. makefile,
+3 Dec 2005.
+
+Updated INPUT and MINPUT help text. ckuus2.c, 3 Dec 2005.
+
+Discovered that on a SET PORT /SSL connection, Kermit treats incoming
+0xff data bytes (e.g. sent from the POP server) as IACs and goes into Telnet
+negotiations. Jeff says "You will need to implement NP_SSLRAW and NP_TLSRAW
+that do the same as NP_TCPRAW but negotiate SSL or TLS as appropriate."
+This was not as easy as it sounded, because apparently a lot of the Telnet
+code is used by SSL and TLS even when Telnet protocol is not being executed.
+I wound up doing this as follows: I added /SSL-RAW and /TLS-RAW to the
+switch table. Rather than disable Telnet, they do exactly what the /SSL and
+/TLS switches do, but also set a special flag. This flag is checked in only
+two place: netclos() (to prevent Kermit from sending TELNET LOGOUT when
+closing the connection), and tn_doop() (to prevent Kermit from reacting to
+incoming IACs; it makes tn_doop() return(3), which means "quoted IAC", which
+causes the caller to keep the IAC as data). ckcnet.h, ckctel.h, ckctel.c,
+ckuus7.c, 4 Dec 2005.
+
+The INPUT command did not account for tn_doop() returning 3. Fixed in
+doinput(), ckuus4.c, 4 Dec 2005.
+
+Added another debug() statement in FTP secure_getbyte() to see what's going on
+with Muhamad Taufiq Tajuddin's 205-byte-per-second FTP/SSL downloads, plus
+new code to test SSL_read()'s return code (byte count); if 0 don't update
+the screen. ckcftp.c, 4 Dec 2005.
+
+--- Dev.08 ---
+
+Fixed a typo in the non-ANSIC definition of ckfstoa(). ckclib.c, 7 Dec 2005.
+
+Our Ctrl-C trap (the ON_CTRLC macro) wasn't working for kerbang files.
+Rearranged some code to make it work. ckcmai.c, 8 Dec 2005.
+
+Started converting code to use CK_OFF_T for file sizes and offsets, and
+all [s]printf's to replace "%ld" or whatever with "%s", and the size
+variable with a call to ckfstoa(). Since I haven't actually changed the
+definition of CK_OFF_T from what all the size variables were to begin
+with (i.e. long), it shouldn't do any harm. So far just ckcfn3.c
+10 Dec 2005.
+
+An updated HP-UX 9.xx makefile target from PeterE to fix a core dump that
+happens on that platform due to insufficient resources. 14 Dec 2005.
+
+Added debug() statements to http_blah() routines to tell whether the
+connection is "chunked". There seems to be a bad performance problem.
+ckcnet.c, 14 Dec 2005.
+
+PeterE complained about ugly DIRECTORY error message, ?No files match -
+"{blah}". The braces are used internally in case the user typed more than
+one filespec. I changed the error message to remove them. Ditto DELETE.
+ckuus6.c, 15 Dec 2005.
+
+The problem with HTTP downloads is that Kermit always does single-character
+read() or socket_read() calls (or the SSL equivalent); see http_inc(). I
+added buffering code for non-SSL connections only but it's gross because it
+has to swap ttyfd and httpfd before calling nettchk(). I tried making a
+nettchk() clone that accepts a file descriptor as an argument but it didn't
+work because too many other routines that are invoked directly or implicitly
+by nettchk() (such as in_chk()) are still hardwired to use ttyfd. HTTP GETs
+are now 20 times faster on the local network (the improvement is less
+dramatic over a clogged Internet). ckcnet.[ch], 15 Dec 2005.
+
+--- Dev.09 ---
+
+HTTP file-descriptor swapping is not thread safe. Doing it right, of
+course, is a big deal, so for now I just don't define HTTP_BUFFERING for
+Windows. ckcnet.c, 15 Dec 2005.
+
+Noticed that HTTP not included in FreeBSD and OpenBSD builds. Fixed in
+ckcdeb.h, 22 Dec 2005.
+
+Fleshed out 32/64-bit data type definitions and changed struct zattr
+(file attribute structure) members length and lengthk to have the new
+CK_OFF_T type. Changed final arguments of debug() and tlog() to be the new
+LONGLONG type. ckcdeb.h, 22 Dec 2005.
+
+Changed ckfstoa() to return a signed number in string form, rather than an
+unsigned one. That's because off_t is signed (thank goodness). Added the
+inverse function, ckatofs() so we can convert file sizes and offsets back
+and forth between binary number and string. ckclib.c, 22 Dec 2005.
+
+Changed Attribute Packet reader to convert incoming file size attribute
+with ckatofs() rather than atol(). ckcfn3.c, 22 Dec 2005.
+
+Converted debug(), tlog(), ckscreen(), etc, to handle potentially "long long"
+arguments by making their "n" argument CK_OFF_T. ckuusx.c, ckcdeb.h,
+22 Dec 2005.
+
+Converted the rest of the source files to use CK_OFF_T for all file size
+and offset and byte-count related variables, and converted all references to
+these variables in printfs to go through ckfstoa(). Then I built it on
+Linux/i386 with:
+
+ make linux "KFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"
+
+which makes off_t be 64 bits and magically makes all the regular file APIs
+use 64-bit sizes and offsets without changing the API calls in the source
+code. It's going to be a lot of work to get through all the kinks but I was
+able to send a long file, do directory listings of long files, do
+\fsize(longfile), etc. When it sends a file, the length is shown correctly
+in the A packet. If the receiver does not support big numbers, it receives
+the file OK anyway, without showing the size, the thermometer, or percent
+done (and then will get an error when the file keeps coming after the 2G
+mark). Kermit 95 actually refuses long files for "Size", but only if the
+announced is less than 2^63 bytes. When today's Linux version receives a
+file, it shows the length correctly in the file-transfer display, as well as
+percent done, thermometer, etc. Also built this version on true 64-bit
+Linux, and it worked fine. Many files changed, 22 Dec 2005.
+
+For the record, this API is specified in X/Open's Single UNIX Specification
+Version 2, which is branded as UNIX 98. It is called Large File Support, or
+LFS, and was developed at the Large File Summit.
+
+It looks like the operative feature-test macro in glibc for transitional
+large file support is __USE_LARGEFILE64. So if this is defined, we can also
+supply _LARGEFILE_SOURCE and _FILE_OFFSET_BITS=64 automatically for 32-bit
+Linux builds. But there's a Catch-22, you don't know if this is defined
+until you read the header files, but you have to define _LARGEFILE_SOURCE
+and _FILE_OFFSET_BITS before you read the header files. Maybe it's good
+enough to grep through <features.h> for __USE_LARGEFILE64. makefile,
+23 Dec 2005.
+
+Checked this on true 64-bit Linux. The same symbols are defined in CFLAGS,
+but they do no harm; it builds without complaint and works fine. 24 Dec 2005.
+
+Built it on Red Hat Linux 6.1 from 1999. This picked up the long file
+support too. Guess 6.1 isn't old enough to not have it! Kermit seems to
+work OK on regular files but I don't have enough disk space to create a long
+file, and my bigfile.c program (which creates a long file containing only 1
+byte) doesn't work ("fseeko: invalid argument"). It looks like parts of
+this API were visible in Linux before they were actually working.
+24 Dec 2005.
+
+Converted all fseek() and ftell() to macros that expand to fseek() and ftell()
+or fseeko() and ftello() depending on whether _LARGEFILE_SOURCE is defined.
+ckufio.c, ckuus7.c, ckuusx.c, 24 Dec 2005.
+
+Made a CK_OFF_T version of cmnum(). It would be a very big deal to just
+change cmnum() to return a new type, so another idea is to rename cmnum() to
+something else, cmnumw(), change its result argument to CK_OFF_T, and then
+make a stub cmnum() to call it to get an int, then call cmnumw() explicitly
+any time we need a big number. ckucmd.c, 24 Dec 2005.
+
+Calling cmnumw() directly requires changes to each routine that uses it.
+The INCREMENT and DECREMENT commands, for example, required changes to
+doincr(), varval(), and incvar(), and all references to them. ckuusr.[ch],
+ckuus[56].c, 24 Dec 2005.
+
+Calling cmnumw() in chained FDBs required defining a new function code,
+_CMNUW, adding a new member to the OFDB struct for returning wide results,
+and adding a new case to cmfdb(). ckucmd.[ch], 24 Dec 2005.
+
+Changed FSEEK and FCOUNT to use the new chained FDB interface, now we can
+seek and look past 2GB. ckuus7.c, 24 Dec 2005.
+
+Next come switches, which store their results in a struct stringint. This
+struct was defined in each module where it was used (ckuus[r367].c, ckcftp.c).
+I moved the definition to ckuusr.h and added a wval member, which can be
+referenced by any switch-parsing code that calls cmnumw(). 24 Dec 2005.
+
+Changed SEND /CALIBRATE:n to allow big values of n. This makes it possible
+to test the protocol aspects of long-file transfer without actually having a
+long file handy. ckuusr.c, 24 Dec 2005.
+
+SEND /SMALLER-THAN:n, SEND /LARGER-THAN:n, and and SEND /START:n also now
+allow large values of n. ckuusr.c, 24 Dec 2005.
+
+Changed the algebraic expression evaluator to use wide values.
+ckuus5.c, 24 Dec 2005.
+
+Fixed ckfstoa() to handle the case when n is negative and (0 - n) is also
+negative, which happens for numbers 2^(n-1) or greater, where n is the
+number of bits in the word size we're dealing with, e.g. 64, in which case
+2^63 has its sign bit set so seems to be negative. In such cases, ckfstoa()
+returns "OVERFLOW" instead of a numeric string. We'll have to see how this
+plays out but I think it's better to cause a parse error and stop things
+dead than to return a spurious number. ckclib.c, 24 Dec 2005.
+
+Converted the S-Expression handler to use wide integers. ckuus3.c, 24 Dec 2005.
+
+Took all the LONGLONG stuff out of ckcdeb.h, we don't need it.
+
+All of these changes result in 64-bit arithmetic (more or less) on 32-bit
+Linux, as well as on true 64-bit platforms.
+
+Rebuilt today's code on Solaris 9 in the 32-bit and 64-bit worlds, on Red
+Hat 6.1, Red Hat AS4.2. I haven't bothered trying a 32/64 hybrid build for
+Solaris, since I can build a pure 64-bit version there. Quick tests show
+the large-number arithmetic works OK in all cases except, of course, on pure
+32-bit builds (unfortunately I can't find a running Linux system old enough
+to verify this for Linux, but it's true for other 32-bit platforms).
+24 Dec 2005.
+
+Tried building a hybrid version on Solaris 9 after all since the LFS API is
+ostensibly the same as for Linux:
+
+ make solaris9 "KFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"
+
+It built smoothly and the resulting binary is 2.5MB compared to 3.4MB for
+the 100% 64-bit version. Looks like a keeper. For now, added solaris9lfs
+and solaris10lfs entries to the makefile but if these work on PCs we can
+make these the regular entries for Solaris 9 and 10. 27 Dec 2005.
+
+Built on Mac OS X 10.4 with the regular target. It seems that in that case,
+off_t is 64 bits anyway. Noticed that a lot of stuff didn't work, like
+exponentiation in S-Expressions. Tried building it as above, which worked,
+and now CK_OFF_T is 64 bits instead of 32, but (^ 2 30) is still 2.0. In
+fact 2-to-the-any-power is 2.0. It seems that the Mac OS X version did not
+have FNFLOAT defined. It also seems that every test in dosexp() like:
+
+ if (result != fpresult) fpflag++;
+
+should have been protected by #ifdef FNFLOAT..#endif /* FNFLOAT */ -- a
+double-ended break, as they say in the nuclear power industry. ckuus3.c,
+27 Dec 2005.
+
+Added GREP /EXCEPT:pattern. ckuus[26].c, 27 Dec 2005.
+
+Fixed a problem with uninitialized pv[].wval (switch-parsing parameter-value)
+members that showed up on certain platforms or with certain compilers. Now
+the Mac OS X 10.4 version works. ckuus[r367].c, ckcftp.c, 28 Dec 2005.
+
+Built on Unixware 7.1.1, a pure 32-bit build, seems fine. Rebuilt on Red
+Hat AS 4.2 just to make sure I didn't break anything, it's OK. No testing
+on HP-UX, etc, because HP testdrive file system is full, can't upload
+anything. 29 Dec 2005.
+
+Commented out the SHOW FEATURES section that displays constants like
+INT_MAX, CHAR_MAX, etc, because printing each value in the appropriate
+format is too tricky, and we don't need them anyway. ckuus5.c, 29 Dec 2005.
+
+Updated ckvfio.c to use CK_OFF_T for the relevant variables. Built and
+tested on VMS/Alpha 7.2: file transfer in remote mode; making a Telnet
+connection and then local-mode file transfer; S-Expressions, all OK. Also
+built a no-net version OK. 29 Dec 2005.
+
+Built and tested on Red Hat AS4 AMD X86_64, used it to upload new sources to
+FreeBSD 4.11. Built on FreeBSD 4.11/i386. Here's another one where off_t
+is 64 bits, even though long is 32 bits. But it seems to work ok, not sure
+why, when CK_OFF_T is 32 bits. There is no _LARGEFILE_SOURCE stuff in the
+header files. 29 Dec 2005.
+
+Built on Mac OS X 10.3.9 using the new macosx10.4 target to pick up LFS.
+Works fine.
+
+Built on Red Hat Linux 4WS on IA64 (64-bit). Now this one is odd, stat()
+fails on big files. It happens also if I use the "linuxnolfs" target, which
+does not define _USE_LARGEFILE or _FILE_OFFSET_BITS=64. DIRECTORY BIGFILE
+shows the size as -1, but if "log debug", it says "no files match", i.e.
+different behavior, observer effect. I hate when that happens.
+
+Let's see if that's an anomaly... Built on Tru64 Unix 4.0F (64-bit Alpha).
+It sees long files just fine. Rebuilt and checked on x86_64 again... fine.
+OK, let's not worry about IA64 yet.
+
+Another small fix to the HP-UX 9.0 target from PeterE. makefile, 29 Dec 2005.
+
+---Dev.10---
+
+Code adjustments from Jeff, mainly to the SSL and TLS Raw mode code from
+several weeks ago, plus changing some data types in the security code to
+CK_OFF_T, plus a different data type for CK_OFF_T for K95 because Windows
+size_T isn't signed. This presumably will allow large-number arithmetic but
+it will not give large file access because that will require replacing all C
+library file i/o calls (esp. in ckofio.c) with native Windows APIs. Build
+on Solaris 9 with and without SSL and on Linux RH AS4.2 with and without
+SSL. ck_crp.c, ck_ssl.c, ck_ssl.h, ckcdeb.h, ckcftp.c, ckcmai.c, ckcnet.c,
+ckcnet.h, ckctel.c, ckuat2.h, ckuus4.c, ckuus7.c, ckuusr.c, 30 Dec 2005.
+
+It was reported that WRITE SESSION always returned a failure status, even
+when it succeeded. The problem was that Unix versions of zsout() and
+zsoutl(), for the session log only, were using write() and returning
+write()'s return code, which is different from what zsout() and zsoutl() are
+documented to return. Also plugged a couple potential holes in zsoutx()
+that I noticed while I was in the neighborhood. ckufio.c, 30 Dec 2005.
+
+Added FSEEK /FIND:pattern. This form of FSEEK accepts all the other
+switches and arguments and performs the desired seek. Then, if the seek was
+successful, it starts from that point and reads through the file, line by
+line, searching for the first line that contains the given string or matches
+the given (unanchored) pattern and, if found, sets the file pointer to the
+beginning of that line. Useful, e.g., for very long timestamped logs, where
+you want to start processing at a certain date or time; searching for a
+particular string is much faster than doing date comparisons on each line.
+ckuus[27].c, 30 Dec 2005.
+
+It was annoying me that FILE STATUS (FSTATUS) required a channel number to
+be given even if only one file was open, so I supplied the correct default
+in that case. ckuus7.c, 30 Dec 2005.
+
+INPUT /NOWRAP, added recently, is used for efficiently copying the INPUT
+stream intact, but it's not good for matching because if the INPUT target is
+broken between the end of the previous buffer and the beginning of the next
+one, the context is lost and the match does not occur. I thought of several
+ways around this, but they all involve saving a huge amount of context --
+old input buffers, the arrays of target strings and corresponding match
+positions, etc. The alternative is fairly simple but it's not transparent
+to the user. Here's what I did in a POP script:
+
+ .eom := "\13\10.\13\10"
+ set flag off # FLAG ON = success
+ while ( open connection && not flag ) {
+ .oldinput := \fright(\v(input),8) # Save tail of previous INPUT buffer
+ input /clear /nowrap 4 \m(eom) # Get new INPUT buffer
+ if success { # INPUT matched - good
+ .s := {\freplace(\v(input),\m(eom),\13\10)}
+ set flag on
+ } else { # No match
+ .s := \v(input) # Check if target crossed the border
+ .oldinput := \m(oldinput)\fsubstr(\v(input),1,8)
+ if \findex(\m(eom),\m(oldinput)) set flag on
+ }
+ ...
+ }
+
+I think this will be easier to explain than any dangerous and grotesque
+magic I might put into doinput() itself. For now, added a few words about
+this to HELP INPUT. ckuus2.c, 30 Dec 2005.
+
+Back to the pattern matcher. Noticed that "IF MATCH index.html [a-hj-z]*"
+succeeded when it should have failed. In ckmatch(), the clist section
+needed one more clause: it can't float the pattern if an asterisk does not
+occur in the pattern before the clist. This change fixes the problem
+without breaking any other cases that weren't already broken, most of which
+involve slists, i.e. {string,string,string,...}. ckclib.c, 30 Dec 2005.
+
+Tried FSEEK /FIND: on a largish file (over 100,000 lines), using it to seek
+to a line near the end. It took 0.756 seconds, compared with Unix grep,
+which did the same thing in 0.151 sec. That's because C-Kermit is using
+ckmatch(). But if the search target is not a pattern, it should be a bit
+faster to use ckindex(). Yup, 0.554 sec, a 36% improvement. Can't expect
+to compete with grep, though; it's highly tuned for its single purpose.
+ckclib.[ch], ckuus7.c, 1 Jan 2006.
+
+Updated visible copyright dates to 2006: ckcmai.c, ckuus2.c, ckuus5.c,
+1 Jan 2006.
+
+Noticed that NetBSD 2.0.3 has 64-bit off_t, and that _LARGEFILE_SOURCE is
+mentioned in <stdio.h>. Tried building Kermit with _LARGEFILE_SOURCE added
+to CFLAGS, it's good. Added it to the netbsd target. makefile, 1 Jan 2006.
+
+Fixed typo, #ifdef CK_NOLONGLONG in ckuus5.c should have been #ifndef
+CK_LONGLONG (which, it turns out, we don't use anyway). 2 Jan 2005.
+
+Observed that FreeBSD 4.x has a 64-bit off_t, but does not use the
+_LARGEFILE_SOURCE convention. Reasoning that all versions of FreeBSD have
+off_t (I was able to check back to FreeBSD 3.3), I simply #define CK_OFF_T
+to be off_t in ckcdeb.h within #ifdef __FreeBSD__ .. #endif. Another one
+down. This can be done for any platform that is guaranteed to have off_t.
+Turns out FreeBSD 3.3 has 64-bit off_t too. 2 Jan 2005.
+
+OpenBSD, same as FreeBSD. Also, added OS-version-getting thing to makefile
+target for the program herald, as in the other BSDs. Built on OpenBSD 2.5
+from 1998, it has 64-bit off_t too. ckcdeb.h, makefile, 2 Jan 2005.
+
+Dumping the command stack every time there's an error is really too much.
+I added SET COMMAND ERROR-DISPLAY {0,1,2,3} to set the verbosity level of
+error messages. Only level 3 dumps the stack. ckuus[235].c, 2 Jan 2005.
+
+Built on HP-UX 11.11 with _LARGEFILE_SOURCE and _FILE_OFFSET_BITS=64. The
+result works fine as far as I can tell. It sees big files, it can open
+them, seek to positions past the 2^31 boundary. It can send large files.
+It can do large-number arithmetic (^ 2 62). The only problem is that during
+compilation, every single modules warns:
+
+ cc: "/usr/include/sys/socket.h", line 504: warning 562: Redeclaration of
+ "sendfile" with a different storage class specifier: "sendfile" will have
+ internal linkage.
+ cc: "/usr/include/sys/socket.h", line 505: warning 562: Redeclaration of
+ "sendpath" with a different storage class specifier: "sendpath" will have
+ internal linkage.
+
+These warnings should be perfectly harmless since they are not coming from
+C-Kermit code, nor does C-Kermit use either one of those functions. These
+warnings don't come out in HP-UX 11i v2, but on that one we get tons and tons
+of picky compiler warnings (variables set but not used, defined but not
+referenced, etc). A couple, however, turned out to be valid; one case of
+"expression has no effect", and two of "string format incompatible with
+data type" (I missed a couple file-size printfs).
+
+There were also numerous warnings about signedness mismatch or sign
+conversion of constants like IAC (0xff). Does the HP-UX Optimizing Compiler
+have a compiler flag to make all chars unsigned? Yes, +uc, but the man page
+says "Be careful when using this option. Your application may have problems
+interfacing with HP-UX system libraries and other libraries that do not use
+this option". Sigh, better not use it.
+
+After reviewing "HP-UX Large Files White Paper Version 1.4" and HP's
+"Writing Portable Code" documents, I added -D_LARGEFILE_SOURCE
+-D_FILE_OFFSET_BITS=64 to the hpux1000 target, which is the basis for all
+HP-UX 10.00 and later builds. Large files are available in HP-UX 10.20 and
+later. 10.00 and 10.10 were not real releases, and anyway these flags
+should be harmless there unless the large-file implementation was only
+partly done. Built OK on both PA-RISC and IA64, optimized and plain.
+makefile, 4 Jan 2006.
+
+Built on FreeBSD 6.0 on IA64. All OK except I got a warning about the
+argument passed to time() in logwtmp() in ckufio.c. This section had
+already been partially fixed; thus I put the improved version into
+#ifdef CK_64BIT, which is our newly available symbol that should be
+automatically defined for any true 64-bit build. ckufio.c, 4 Jan 2006.
+
+Finally got around to testing Jeff's changes to SSL/TLS RAW mode from
+December 30th against our POP server. It didn't work, couldn't log in.
+Tried backing off the ckctel.c changes first; that allowed login and
+communication, but it did not suppress activation of Telnet protocol
+whenever a 0xff byte arrived. Backed off the rest of the changes and now
+all is OK again. ckctel.c, ckcnet.c, ckuus7.c, 9 Jan 2006.
+
+Built on NetBSD 1.4.1 (1999), found that it did not like the large file
+assumption -- fseeko() and ftello() do not exist; added a clause to the
+netbsd target to check for fseeko and not define _LARGEFILE_SOURCE if not
+found. Oddly enough, off_t is 64 bits anyway, but it doesn't look like the
+APIs are half-done. For example, stat() uses off_t (64 bits) for the file
+length, but fseek() uses long (32 bits) and there is no 64-bit analog.
+Anyway the new netbsd target works on both 1.4.1 and 1.5.2 (no large files)
+and on 2.0.3 (large files). makefile, 9 Jan 2006.
+
+Built on QNX-32 4.25, which has no large file support. Got a few strange
+compiler (WatCom) warnings, but it built and runs OK. Noticed that file
+transfers into QNX over a Telnet connection can't use streaming, but that's
+nothing new to this version; same thing happens with C-Kermit 7.0. 9 Jan 2006.
+
+Built on IRIX 6.5. I didn't bother with large files there because it does
+not support the _LARGEFILE_SOURCE interface; you have to change all the APIs
+at the source level from blah() to blah64(). Seems to work fine as a 32-bit
+app even though its off_t is 64 bits. Tried a pure 64-bit IRIX 6.5 build
+but it dies in ckcnet.c when it hits SOCKOPT_T and GSOCKNAME_T with "The
+identifier 'socklen_t' is undefined".
+
+Looks like I no longer have access to SCO OSR5.
+
+Made a pure 32-bit build on SCO UnixWare 7.1.4, all OK. Found that this
+version also supports LFS, added it to the uw7 target. makefile, 9 Jan 2006.
+
+--- Dev.11 ---
+
+Evidently the HP-UX bundled (non-ANSI non-optimizing) compiler doesn't like
+long integers in switch expressions. Changed three examples of these in the
+S-expression code. ckuus3.c, 10 Jan 2006.
+
+A section of tstats() where GFTIMER isn't defined (e.g. on Motorola
+sv68r3v6) was garbled. Fixed in ckcfn2.c, 10 Jan 2006.
+
+A fix for setting 921600 bps on Linux from Paul Fulghum, Microgate Systems Ltd.
+ttgspd(): ckutio.c, 11 Jan 2006.
+
+Noticed that when I changed the compact substring notation code back on
+August 9th, I broke the ability to use arithmetic expressions within the
+brackets, which explains some rather odd behavior I saw with some of my
+scripts. Looking more deeply into this, I also see that all the parsers I
+have been using up to now for this, as well as for array bounds pairs, have
+been inadequate because they never allowed for nested constructions, such as
+a member of a bounds pair that itself was an array element, possibly with
+another array element as a subscript. I wrote a new routine for this,
+called boundspair(), which is like arraybounds() except it accepts an extra
+argument, an array of characters that can serve as bounds-pair delimiters,
+and it returns the pair separator that was encountered in another new
+argument. For the alternative substring notation for [startpos-endpos] I
+had to change the delimiter from '-' to '_' because '-' can be used in
+arithmetic but '_' is not a recognized operator. This is so I can parse,
+e.g. [a:b] or [a_b] in the same context, and then find out which form was
+used, e.g. \s(line[9:12]) or \s(line[9_12]); the first string is 4 bytes
+long, the second is 12. Everything seems to be OK now. \s(line[10]) gives
+everything starting at 10, but \s(line[10:0]) gives the null string. Bad
+syntax in the bounds pairs results in a null string; missing pieces of the
+bounds pair result in defaults that should be compatible with previous
+behavior. ckuus[45].c, ckuusr.h, 13 Jan 2005.
+
+Changed arraybounds() to call boundspair(). This was a rather drastic
+change, not strictly necessary, but I think I got all the kinks out.
+ckuus5.c, 13 Jan 2005.
+
+Changes from PeterE to the makefile for HP-UX 6 and 7, to accommodate bigger
+symbol tables, etc. 19 Jan 2005.
+
+Determined that SCO OSR5.0.6 (and earlier) do(es) not support large files.
+Don't know about 5.0.7. 30 Jan 2005.
+
+Created a new build target for SCO OSR6.0.0. Gets the exact 6.x.x version
+dynamically. Supports large files and big-number arithmetic via CK_OFF_T.
+The sockopt() family of functions changed the data types of some of their
+arguments since OSR5. It was already possible to define SOCKOPT_T and
+GSOCKNAME_T from the command line but I had to add code to also allow this
+for GPEERNAME_T too. ckcnet.c, makefile, 30 Jan 2005.
+
+Apparently, ever since C-Kermit 7.0 was released, it has never been possible
+to use a variable for the as-name in a RECEIVE command in Kermit 95. This
+is because evaluation of the as-name field was deferred until after we could
+check whether it might be a directory name (which, in Windows, could start
+with a backslash). This little bit of magic was not a good idea, magic
+hardly ever is. I changed the code to evaluate both as-name fields in the
+normal way. If they want to receive to a directory called "\%1", they'll
+just have to spell it differently. The workaround is to turn the whole
+command into a macro and evaluate it before executing it, e.g.:
+
+ assign xx receive /as-name:\%1
+ do xx
+
+ckuus6.c, 1 Feb 2006.
+
+Built OK on FreeBSD 6.1 on AMD64. Adjusted some copyrights and date stamps.
+ckcmai.c, makefile, 8 Feb 2006.
+
+--- Dev.12 ---
+
+Fixed a signed/unsigned char warning in the new boundspair() calling code
+in the compact substring notation handler. ckuus4.c, 9 Feb 2006.
+
+Removed a spurious extra linux+openssl label from the makefile, added
+solaris10g_64 synonym. 9 Feb 2006.
+
+Satisfied myself that LFS is OK on Solaris 10 i386, and I'm going to assume
+it's also OK on Solaris 9. Made LFS standard for all Solaris 9 and 10
+builds (including the secure ones) except the explicitly 64-bit ones, and
+made the provisional solarisXXlfs targets into synonyms. makefile, 9 Feb 2006.
+
+--- Dev.13 ---
+
+Further attempts at SSL/TLS message suppression when QUIET is ON.
+ck_ssl.c, 16 Feb 2006.
+
+From J.Scott Kasten: (quote...) I just uploaded a patch to /kermit/incoming.
+The file name is "jsk-patch-for-cku211.diff". I have also included the
+patch as ASCII text in this email below. This patch may be applied to the
+cku211.tar.gz source code via:
+ cd cku211, patch -p1 <../jsk-patch-for-cku211.diff
+The patch adds 4 new build targets:
+ netbsdwoc - a stripped no curses target for iksd used.
+ netbsdse - security enhanced target with srp, ssl, and zlib.
+ irix65gcc - build on SGI Irix 6.5 platform using gcc.
+ irix65se - security enhanced target with srp, ssl, and zlib.
+The patch fixes one build target:
+ irix64gcc - The "-s" option is not supported by gcc under Irix.
+I thank all of you in the Kermit Project for such a fine utility. I
+recently had to get a 16 MB file overseas across a spotty communications
+link to repair a computer remotely. Kermit was the only thing that could do
+the job, so I wanted to contribute these patches back to the mainstream to
+say thanks. This digitally signed email is a binding contract that
+officially assigns the rights to the source code patch (shown below) that I
+developed to the Kermit Project at Columbia University. (...end quote)
+ck_ssl.c, makefile, 23 Feb 2006.
+
+Changed the new NetBSD target names to be consistent with the conventions
+used in most other targets:
+
+ netbsdwoc -> netbsdnc
+ netbsdse -> netbsd+ssl+srp+zlib
+ irix65se -> irix65+ssl+srp+zlib
+
+and removed old, now superfluous, NetBSD targets (old-netbsd, netbst15,
+netbst16), leaving synonym labels in their place. Also updated (crudely)
+the Linux target variations (curses instead of nocurses, no curses at all)
+to be (appropriately modified) copies of the current linux target. It would
+be nicer to combine them, but this gets the job done. makefile, 23 Feb 2006.
+
+--- Dev.14 ---
+
+Fixed the HELP command when used with tokens like @, ^, #, and ;. The first
+two had been omitted from the table. The second two required a new path
+into the guts of the parser, since comments are normally stripped at a very
+low level. ckuus[r2].c, ckucmd.c, 24 Feb 2006.
+
+Built on AIX 5.1 ("make aix51") without incident. Then I tried:
+
+ make aix51 "KFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"
+
+This had no effect. I found the relevant document ath the IBM website. It
+says to use -D_LARGE_FILES instead. I added this to the AIX 4.2 target
+since (a) IBM says large files are supported by AIX 4.2 and later, and (b)
+all Kermit AIX targets past 4.2 use the 4.2 one. Plus a clause to make
+sure CK_OFF_T is defined appropriately. ckcdeb.h, makefile, 6 Mar 2006.
+
+Added a 32-bit aix51+openssl target. Builds OK, works fine (tested against
+our SSL POP server). Tried I tried adding -D_LARGE_FILES. It seems to work
+fine, so we'll keep it. Cleaned up the other aix5blah entries a bit also.
+makefile, 6 Mar 2006.
+
+Fixes from J. Scott Kasten to the IRIX 6.4 and 6.5 makefile targets. They
+were badly wrong. makefile, 6 Mar 2006.
+
+The reason Kermit was looping on directories in IRIX was a classic
+"double-ended break". The makefile targets failed to define DIRENT so
+Kermit was open/read on directories rather than opendir()/readdir(). But
+then it was also failing to account for the fact that read() would return -1
+on error. The makefile fix adds -DDIRENT, and the read() case in traverse()
+now properly terminates its loop on error. ckufio.c, 6 Mar 2006.
+
+--- Dev.14 ---
+
+In response to a complaint that C-Kermit would not build on HP-UX 11 with
+OpenSSL, I tried it myself on both 11.11/PA-RISC and 11i v2/Itanium. It built
+OK on both but I had to add a new target (hpux1000o+openssl-nozlib) for no
+Zlib since these boxes did not have it installed. makefile, 9 Mar 2006.
+
+Added OpenSSL version number display to SHOW FEATURES. ckuus5.c, 9 Mar 2006.
+
+Gavin Graham noticed that FTP [M]GET /DELETE /MOVE-TO: was rejected with
+"?Sorry, /DELETE conflicts with /MOVE or /RENAME". This check belongs in the
+PUT code but not in the GET code. Commented it out and tested the result.
+The combination is now accepted but then Kermit refuses the incoming file as
+if it had been given a /SMALLER-THAN: or /LARGER-THAN: switch, which it didn't
+happen. Turns out there was one more place where I wasn't initializing the
+new "wide int" member of the switch-parsing pv[] struct. Once this was fixed,
+the /MOVE-TO part still didn't work. Turned out the /DELETE case was part of
+a long if-else-if-else- chain, which effectively made /DELETE and /MOVE-TO: or
+/RENAME-TO: mutually exclusive. Fixed this, now it works fine. ckcftp.c,
+13 Mar 2006.
+
+Got access to AIX 5.3, built there, all OK, including large files. 13 Mar 2006.
+
+--- Dev.16 ---
+
+Patches from Mark Sapiro to suppress getsockopt() and getsockname() warnings
+in Mac OS X. ckcnet.[ch], 18 Mar 2006.
+
+In response to a complaint from Clarence Dold, tried "make redhat9" (which
+is the rather dated target that tried to include all forms of security) on
+RH Linux AS4.3, it failed miserably. I made a new makefile target, removing
+Kerberos IV and got a lot farther. But then in ckcftp.c, the following
+struct definition:
+
+ struct {
+ CONST gss_OID_desc * CONST * mech_type;
+ char *service_name;
+ } gss_trials[] = {
+ { &ck_gss_mech_krb5, "ftp" },
+ { &ck_gss_mech_krb5, "host" },
+ };
+
+refers to a variable, ck_gss_mech_krb5, that is not defined anywhere. Up
+above, however, is a static definition for gss_mech_krb5, so I changed the
+struct definition to match. Next, in ckuath.c, the compiler could not find
+the com_err.h file. Turns out in Linux this is in a subdirectory, et, so we
+have to add a -I clause to the makefile target for this. Made a target for
+Linux+SSL only. Made a target for Linux+Krb5 only; this required moving an
+#ifdef in ckuus7.c to prevent an unguarded reference to SSLEAY_VERSION.
+New targets: linux+krb5+ssl, linux+krb5, linux+krb5. ckcftp.c, ckuus7.c,
+makefile, 27 Mar 2006.
+
+New targets of HP-UX 10/11 with OpenSSL from PeterE. makefile, 27 Mar 2006.
+
+Added large file/integer support to SHOW FEATURES. ckuus5.c, 27 Mar 2006.
+
+Built OK on Solaris 9 and 10 with gcc (someone was complaining that this
+didn't work, but that was 8.0.211).
+
+Started build on a Sun 3/80 mc68030 with NetBSD 2.0 and gcc 3.3.3. But it
+died with an assembler error in ckcfn2.c (compiler bug). 27 Mar 2006.
+
+--- Dev.17 ---
+
+NebBSD 2.0 build completed by turning off optimization on ckcfn2.c
+("KFLAGS=-O0"). Result supports 64-bit ints and, presumably, large files.
+uname -p = "m68k", -m = "sun3". 29 Mar 2006.
+
+Corrected an omission in applying PeterE's updates to the HP-UX targets.
+makefile, 28 Mar 2006.
+
+solaris2xg+krb5+krb4+openssl+shadow:
+
+Tried resurrecting the solaris2xg+krb5+krb4+openssl+shadow target. It asks
+to link with libdes but there is no libdes. Removed -ldes from the target,
+now at least it builds and runs wart. The compilation blows up in ckcftp.c
+for missing header files:
+
+ ckcftp.c:462: kerberosIV/krb.h: No such file or directory
+ ckcftp.c:500: gssapi/gssapi_generic.h: No such file or directory
+ ckcftp.c:501: gssapi/gssapi_krb5.h: No such file or directory
+
+Got a bit farther by adding appropriate -I's and -L's to KFLAGS but it still
+dies compiling (or linking?) ckcftp.c, but it doesn't say exactly why. OK,
+deferred.
+
+Added SET SEXPRESSION TRUNCATE-ALL-RESULTS { ON, OFF }. This can be used
+for force integer arithmetic in any kind of calculation that requires it,
+such as date calculations. This is a global setting, not on any kind of
+stack. Also, updated SHOW SEXP and added HELP SET SEXP which wasn't there
+before. ckuus[23].c, 30 Mar 2006.
+
+To make the RENAME command a bit more useful, need to add some switches.
+But it shares a switch table, qvswtab[], with some other commands. Broke
+this off into its own switch table. ckuus6.c, 17 Apr 2006.
+
+Added RENAME switch values that can be used in the same table with the DELETE
+switch values, which are shared by many commands. ckuusr.h, 17 Apr 2006.
+
+Discovered that the RENAME command could be entered without any arguments
+and it would still succeed. Fixed in dorenam(): ckuus6.c, 17 Apr 2006.
+
+Added parsing for RENAME /UPPER:option (to uppercase the file name(s)),
+/LOWER:option (to lowercase), and /REPLACE:{{s1}{s2}} (to do string
+replacement on the filename(s)), but not the semantics. When any of these
+switches is given, the target ("to") name is not parsed; they act on the
+source name. The /LOWER: switch takes keyword args to specify whether it
+should act only only files that have all UPPER case latters, or on ALL files
+(i.e., including files with mixed-case names); similarly for the /UPPER:
+switch. There is some creative parsing allowing these to be given with or
+without a colon and keyword argument, which works fine except if you include
+the colon but no argument, execute the command (which works fine), and then
+recall the command. I haven't yet decided about the interaction among these
+switches. Clearly if /UPPER is given after /LOWER, it overrides. But if
+/UPPER (or /LOWER) is given with /REPLACE, what should happen? ckuus6.c,
+17 Apr 2006.
+
+Filled in actions for RENAME /UPPER: and /LOWER: for the single file case,
+and tested all combinations of switch values and filename configurations.
+Once that was OK, moved the code out into a separate routine, renameone(),
+and then called it from both the single-file case and the multifile case.
+ckuus6.c, 19 Apr 2006.
+
+Added RENAME /SIMULATE. Filled in the code for string replacement, needs
+testing. ckuus6.c, 20 Apr 2006.
+
+Changed /REPLACE options to allow a negative number to specify an occurrence
+from the right, so -1 means the last occurrence, -2 means the next-to-last,
+etc. ckuus6.c, 24 Apr 2006.
+
+Added RENAME /COLLISION:{OVERWRITE,PROCEED,FAIL}. This is implemented but
+not tested. ckuus6.c, 24 Apr 2006.
+
+Worked on RENAME /COLLISION:FAIL. I decided it was less than useful to ...
+
+Added SET RENAME { COLLISION, LIST } to let user change default collision
+and listing actions. ckuusr.[ch], ckuus[36].c, 25 Apr 2006.
+
+Experimented with parsing for /CONVERT:cset1:cset2. The problem here is
+that there is no straightforward way for a switch to have multiple
+arguments. Or is there...? If I parse cset1 with cmswi() rather than
+cmkey(), it almost works; the only problem is that the character-set
+keywords don't have CM_ARG set, so they don't know to stop on, and ignore, a
+colon. If I make a copy of the table and set CM_ARG in the flags field for
+each keyword, it works fine: if I Tab in the first name, it fills itself
+out, supplies a colon, and waits for the second name. So in the code, the
+first time that RENAME /CONVERT is invoked, I put code to copy fcstab[] and
+set CM_ARG in each flags field. Works fine, and now we know how to make a
+switch that takes multiple arguments. ckuus6.c, 24 Apr 2006.
+
+I thought I had a function to convert the character set of a string but I
+don't, so actually implementing /CONVERT: will be difficult.
+
+Actually the parsing wasn't that easy either. It works OK interactively,
+but not in a TAKE file. To make a long story short, I had to change
+gtword() and cmkey2() to not require "/" at the beginning of a switch, and
+then to parse arguments-that-are-followed-by-other-arguments as if they were
+switches, so that they can end with colon rather than space. This might
+seem dangerous, but switches always have "/" at the beginning, so the check
+is superfluous. ckucmd.c, 26 Apr 2006.
+
+Back to /CONVERT... Once I was able to get the code to call cvtstring() I
+was able to debug it (at first it was skipping every second character). And
+now we have a general-purpose string-translating function we can call from
+anywhere. Requires that C-Kermit be built with Unicode support.
+ckuus6.c, 26 Apr 2006.
+
+Added SHOW RENAME. ckuusr.h, ckuus[r5].c, 26 Apr 2006.
+
+Conditionalized some Unix/Windows assumptions in renameone() so the code
+could work in VMS. ckuus6.c, 2 May 2006.
+
+Added RENAME /FIXSPACES to change all spaces in the filename(s) to
+underscore or any other character or string that is given. This is just a
+special case of RENAME /REPLACE:{{ }{x}} with easier syntax.
+ckuusr.h, ckuus6.c, 2 May 2006.
+
+Added an "all-but" control to the /REPLACE options:
+/REPLACE:{{.}{_}{~1}} means replace all but the first (this one works);
+/REPLACE:{{.}{_}{~-1}} means replace all but the last (this one not yet).
+ckuus6.c, 2 May 2006.
+
+Filled in the second one ("all but" the given occurrence). The algorithm is
+simply to reverse the three strings and then use the same code as we use in
+the left-right-case, and then unreverse the result. At first I used
+yystring() for this but yikes, what a bad design! So I made a better
+string-reversal routine, gnirts(), for this (luckily yystring() is only used
+in one place, for which its design is appropriate). ckuus6.c, 3-4 May 2006.
+
+Added code to handle the case where the file being renamed includes a path
+specification. In this case we separate the path, apply the renaming
+functions to the filename only, and then at the end rejoin the original
+filename with the path, and join the new name with same path or, if a
+destination directory was given, with that. ckuus6.c, 4 May 2006.
+
+Added HELP SET RENAME and updated HELP RENAME. ckuus2.c, 4 May 2006.
+
+"Tom Violin" (Tom Hansen) noticed that the first time you FOPEN a file,
+Kermit's memory consumption goes way up. In fact there's a warning to that
+effect in the code, where, upon first open, a potentially big array of
+potentially big structs is allocated. I rewrote the code to allocate each
+array member (struct ckz_file) as needed, i.e. when a file is opened, and to
+free it when the file is closed (or the open fails). This was actually
+quite a lot of work, which is why I didn't do it the first time around:
+every single "." had to be changed to "->". Every check for a valid
+channel first had to check if the channel's struct was allocated and every
+other reference to z_file[i]->anything had to be prechecked that z_file[i]
+was not a NULL pointer. Also I made some improvements to FILE STATUS, and I
+fixed FILE CLOSE to default the channel number if only one channel was open,
+as I did for FILE STATUS a while back. ckuus7.c, Cinco de mayo 2006.
+
+Ran my old BUILDS script that builds C-Kermit with about 100 different
+combinations of feature-selection switches. Fixed a few small glitches so
+now they all build OK (except can't do NOANSI builds any more on recent
+Linuxes because of varargs()). ckuus3.c, ckuus5.c, ckuus6.c, ckuus7.c,
+ckucmd.c, ckcfns.c, 6 May 2006.
+
+Fixed RENAME /LOWER and /UPPER, when given with no colon or argument, to
+default to ALL. ckuus6.c, 13 May 2006.
+
+Built on VMS 7.2-1, tested new RENAME command there; seems to be OK.
+13 May 2006.
+
+--- Dev.18 ---
+
+I wanted to test large files against RESEND but I don't have access to any
+system that can run C-Kermit and that also has enough space for a large
+file. I created a "fake" large file on Linux (3G hole plus 1 byte), and
+sent it over a localhost connection, and interrupted it repeatedly and then
+initiated a RESEND at the sender. In each case, it picked up where it left
+off. But before the 2G boundary was crossed the disk filled up.
+Inconclusive. 14 May 2006.
+
+PeterE got a warning in the new FILE OPEN code when building in HP-UX 9.
+I added a cast, built on HP-UX 11, no more complaint. However there
+are warnings about internal vs external bindings of sendpath and sendfile
+in every module. Too bad, these are not Kermit tokens, it's a conflict in
+HP's header files. Marc Sapiro doesn't see them; probably it's something
+on the HP testdrive site. ckuus7.c, 17 May 2006.
+
+Fixed the tru64-51b+openssl target -- the terminating doublequote of KFLAGS
+was missing -- and also the osf target, which failed to import the LIBS
+definition from whatever other target invoked it. Now the SSL build goes OK
+on Tru64 5.1B. Replaced x.tar.z in the download areas without declaring a
+new Dev number. The new one has a makefile with today's date. Software
+engineering at its best! makefile, 18 May 2006.
+
+Scott Kasten noted that the estimated-time-remaining calculation would go
+bonkers on LFS systems when RESENDing a large file. It looks like the
+shocps() and shoetl() functions escaped the CK_OFF_T conversion. I made
+what seemed to be the right adjustments, and then was lucky enough to find a
+computer that had enough free disk space for me to send a large file,
+interrupt it several times, resend it, all seems to be OK. 28 May 2006.
+Later Scott verified these changes independently for Linux, but the problems
+in IRIX remain.
+
+Patches from Scott Kasten for large files on IRIX 6.5: ckcdeb.h, makefile,
+12 Jun 2006.
+
+--- Dev.19 ---
+
+Added a new function for dealing with JPGs and GIFs:
+
+\fpicture(filename,&a)
+ returns 0 if file not recognized or can't be opened;
+ returns 1 if landscape, 2 if portrait or square.
+ If array given, element 1 is width, element 2 is height.
+
+ckuusr.h, ckuus4.c, 19 Jun 2006.
+
+Scott Kasten reports that the FTP client can transfer large files OK, at
+least in Linux, but has trouble with recovery:
+
+ . Kermit takes a very long time to start the transfer, sometimes over
+ 30 minutes. Suspect the ftp server is counting the bytes in a long file?
+ Or maybe it's a text-mode transfer and it's counting the lines? Probably
+ in response to Kermit's SIZE command.
+
+ . The size shown in the FT display is wrong by a random amount. And of
+ course so are the progress bar, percent done, and time remaining.
+
+ . The file, however, is transferred correctly. REGET works correctly too.
+
+I tried setting up a test scenario locally but our Solaris FTP server does
+not support large files:
+
+ FTP SENT [SIZE BIGFILE]
+ FTP RCVD [550 BIGFILE: not a plain file.]
+ FTP SENT [PASV]
+ FTP RCVD [227 Entering Passive Mode (128,59,48,24,246,37)]
+ FTP SENT [RETR BIGFILE]
+ FTP RCVD [550 BIGFILE: Value too large for defined data type.]
+
+Created the same 3GB on a Tru64 Unix system that allows FTP access. Made
+the connection from C-Kermit on Solaris (32-bit with LFS):
+
+ 16:46:12.908 FTP SENT [SIZE BIGFILE]
+ 16:46:12.947 FTP RCVD [213 3000000001]
+
+Note that it takes less than half a second to get the reply. Now I start
+the download and then interrupt it at about 2%:
+
+ 16:46:12.979 FTP SENT [TYPE I]
+ 16:46:13.174 FTP RCVD [200 Type set to I.]
+ 16:46:13.226 FTP SENT [PASV]
+ 16:46:13.262 FTP RCVD [227 Entering Passive Mode (15,170,178,171,11,37)]
+ 16:46:13.299 FTP SENT [RETR BIGFILE]
+ 16:46:13.337 FTP RCVD [150 Opening BINARY mode data connection for BIGFILE..]
+ 16:47:24.895 FTP RCVD [426 Transfer aborted. Data connection closed.]
+ 16:47:24.934 FTP RCVD [226 Abort successful]
+ 16:47:24.991 FTP SENT [MDTM BIGFILE]
+ 16:47:25.028 FTP RCVD [213 20060706204458]
+
+Now I do a REGET:
+
+ 16:51:55.321 FTP SENT [PASV]
+ 16:51:55.357 FTP RCVD [227 Entering Passive Mode (15,170,178,171,11,43)]
+ 16:51:55.394 FTP SENT [REST 122736640]
+ 16:51:55.430 FTP RCVD [350 Restarting at 122736640. Send STORE or RETRIEVE..]
+ 16:51:55.431 FTP SENT [RETR BIGFILE]
+ 16:51:55.469 FTP RCVD [150 Opening BINARY mode data connection for BIGFILE..]
+
+This worked perfectly, as far as I can tell; the FT display picked up in the
+right place; the thermometer, percent done, and estimated time remaining
+were the same as when we left off last time. I did the same thing several
+more times, everything was OK. It would have taken a really long time to
+let this run to completion, but I think this demonstrates that Scott's
+symptoms are server-dependent. No changes. 6 July 2006.
+
+Checked current code on VMS 8.2-1 on IA64 / UCX 5.5, builds fine.
+No changes. Updated listing at HP. 6 July 2006.
+
+Checked FTP GET of large file in ASCII mode against Tru64 FTP server. It
+was fine, and there was no delay in the server's response to our SIZE command
+(as there would be if it were scanning the entire file to count how many
+bytes would be required to send it in text mode). 7 Jul 2006.
+
+Tested FTP PUT big file against Tru64, OK. Ditto FTP RESEND big file:
+
+ C-Kermit>resend BIGFILE
+ PUT BIGFILE (binary) (3000000001 bytes)---> PASV
+ 227 Entering Passive Mode (15,170,178,171,13,186)
+ ---> SIZE BIGFILE
+ 213 343211280
+ ---> MDTM BIGFILE
+ 213 20060707141243
+ ---> APPE BIGFILE
+ 150 Opening BINARY mode data connection for BIGFILE (128.59.59.56,45470).
+
+Made REPUT a synonym for RESEND. ckuusr.c, 7 Jul 2006.
+
+Added FTP REPUT and FTP RESEND since previously there was no FTP-prefixed
+command for recovering uploads, only the regular RESEND command, which might
+not have been obvious to people. ckcftp.c, 7 Jul 2006.
+
+Added help text for FTP RESEND and REPUT and amended RESEND help text.
+ckcftp.c, ckuus2.c, 7 Jul 2006.
+
+Changed name of \fpicture() to \fpictureinfo() and added help text. By the
+way, ImageMagick can do this too: identify -format "%w %h" dscf0520.jpg.
+The advantage of having it in Kermit is that not everybody has ImageMagick.
+ckuus[24].c, 7 Jul 2006.
+
+Changed the numeric comparisons = < > <= >= != to allow long integers by
+changing the data type to CK_OFF_T, etc. ckuus6.c, 7 Jul 2006.
+
+Noticed that \fkeywordvalue(foo=this is a string) only kept the first word.
+Fixed it to keep the whole definition. Also added \fkwvalue() as a briefer
+synonym. ckuus4.c, 7 Jul 2006
+
+Sometimes we want to check if a file's status before we've FOPEN'd it, in
+which case the channel variable is likely to be empty and \f_status(\%c)
+would get an error. Making the obvious change didn't fix this, however. It
+turns out that the function evaluator failed to adjust argn (argument count)
+when trailing arguments were empty, and argn was being used in this case,
+and probably others, to test whether an argument existed. I added code to
+adjust argn to reflect the number of arguments up to and including the
+rightmost non-empty one. ckuus4.c, 7 Jul 2006.
+
+Fixed \fstripb() to not dump core if second argument is missing.
+ckuus4.c, 7 Jul 2006.
+
+Discovered that it was not obvious what pattern to use to match strings
+enclosed in square brackets. "if match [abc] \[*\]" didn't work. Neither
+did various other tricks like NCRs for the brackets. However, "if match
+[abc] \\[*\\]" does work. Trying to fix this would no doubt break 100 other
+things, so let's call it a feature. 7 Jul 2006.
+
+Added \fgetpidinfo(n) to return info about a process ID; for now it simply
+returns 1 if the process is alive and 0 if not (or -1 if the argument is
+bad or missing or on any kind of error). ckuusr.h, ckuus[24].c, 7 Jul 2006.
+
+The "where-did-my-file-go" message seemed to be ending with a LF rather
+than CRLF, probably because the terminal modes had not yet been restored,
+leaving the next prompt hanging below it, rather than on the left margin,
+if C-Kermit exited immediately after the transfer. Fixed by changing
+all \n's to \r\n's in wheremsg(): ckcpro.w, 8 Jul 2006.
+
+Added \v(lastkwval) so we can retrieve programmatically the keyword most
+recently processed by \fkeywordval(). ckuusr.h, ckuus4.c, 9 Jul 2006.
+
+--- Dev.20 ---
+
+Added #ifdef SV68, #include <unistd.h>, #endif because Unix System V/68 on
+Motorola choked on the SEEK_CUR reference without it. ckuus4.c, 10 Jul 2006.
+
+Make \fkeywordval(xxx) undefine xxx (i.e. when a keyword is given with no
+value). This way command-line keywords will always override preexisting
+default definitions, whether they have a value or not, which makes it easier
+to parse command lines like "foo=bar blah xx=yy". ckuus[24].c, 12 Jul 2006.
+
+On 29 Nov 2005 I changed IF KERBANG to solve a problem (see entry for that
+date), but introduced a new one; namely that you can't have (e.g.) a FATAL
+macro that uses IF KERBANG to decide whether to EXIT all the way or STOP
+back to the prompt. Changed it again, this time to require not that the
+command level be 1, but that the command *file* level be 0 (i.e. that we are
+in the top-level command file, irrespective of the command or macro level,
+but not in a subfile). ckuus6.c, 12 Jul 2006.
+
+It is unhelpful when Kermit gets a syntax error in the middle of a big
+compound statement block (e.g. FOR or WHILE loop) and dumps out the whole
+thing in an error message. I changed the two places where this can happen
+to call a new routine that, instead of dumping out the entire cmdbuf,
+checks its length first and if it's more than a line long, truncates it
+and adds an ellipsis. ckuus6.c, 12 Jul 2006.
+
+The new RENAME command didn't give very good error messages, e.g. if the
+filespec didn't match any files. Fixed in dorenam(): ckuus6.c, 12 Jul 2006.
+
+Fixed DIR /TOP to work if the /TOP:n argument was omitted, defaulting
+to 10. domydir(): ckuus6.c, 12 Jul 2006.
+
+Added DIR /COUNT:v to count the number of files that match the given
+criteria and store result in the variable v. ckuusr.h, ckuus[r26].c,
+24 Aug 2006.
+
+Added HDIRECTORY as an invisible synonym for DIR /SORT:SIZE /REVERSE.
+Can be used with other switches, of course, so (e.g.) HD /TOP shows the
+ten biggest files. ckuusr.h, ckuus[r26].c, 24 Aug 2006.
+
+DIR /FOLLOWLINKS and /NOFOLLOWLINKS always did the same thing; the switch
+was ignored, a symlink is always followed. Fixed in ckuus6.c, 24 Aug 2006.
+
+Added DIR /NOLINKS, which means don't show or count symlinks at all.
+ckuusr.h, ckuus[r26].c, 24 Aug 2006.
+
+Build on Solaris 9 and NetBSD 3.0, 24 Aug 2006.
+
+Added a missing definition for LOCK_DIR in the Linux HAVE_BAUDBOY case,
+suggested by Gerry Belanger. ckutio.c, 6 Oct 2006.
+
+Suggested by Jim Crapuchettes: \v(dialmessage) is the text string
+corresponding to \v(dialstatus). ckuusr.h, ckuus4.c, 6 Oct 2006.
+
+Soewono Effendi sent code for exit sequence to leave DTR on; this amounted
+to unsetting HPUCL in c_cflag. I did it a simpler way, hopefully portable
+to all Unixes, but who knows at this late date. The code is inside
+#ifndef CK_NOHUPCL..#endif in case it causes trouble. It is executed if
+SET EXIT HANGUP is OFF and a serial port was open at the time Kermit exits
+(or closes it explicitly). ttclos(): ckutio.c, 6 Oct 2006.
+
+Built on Solaris9/Sparc; FreeBSD 6.2/AMD64; NetBSD 3.0/i386; HP-UX 11i v2;
+SCO OSR6.00.
+
+--- Dev.21 ---
+
+Added netbsd+openssl target to makefile. Built OK (NetBSD 3.0, OpenSSL
+0.9.7d) except with some warnings in ck_crp.c. Connects and logs in OK to a
+secure site. 10 Oct 2006.
+
+Added a debug statement to ftp_hookup() to record the TCP port that was used.
+ckcftp.c, 11 Oct 2006.
+
+Built with OpenSSL 0.9.7l on Solaris 9. Built with OpenSSL 0.9.8d on
+Solaris 9; connects and logs in to a secure site. 11 Oct 2006.
+
+The new RENAME command didn't work if both the source and destination names
+included directory segments, e.g. "rename /tmp/foo ~/bar" (see notes of
+4 May 2006). This was fixed in renameone() by a special case in which
+the second argument is given but it is a filename, not a directory name.
+ckuus6.c, 11 Oct 2006.
+
+Fixed unguarded reference to dialmsg[] for \fdialmessage(), noticed by
+Gerry Belanger. ckuus4.c, 12 Oct 2006.
+
+Added a TOUCH command that does what UNIX touch does: creates the file if it
+does not exist, updates the timestamp if it does. If a wildcard is given,
+it operates only on existing files. It shares the DIRECTORY command parser,
+so all the same file selection switches can be given. ckuusr.[ch],
+ckuus[26].c, 12 Oct 2006.
+
+PeterE noticed that if you FOPEN a file, do some seeks or reads, then FCLOSE
+it, then FOPEN it again (or open a different one), some of the old
+information is still there (e.g. current line number). This is an artifact
+of the changes of May 4th. Now the file closing and opening routines are a
+bit more careful about scrubbing and initializing the file info struct.
+ckuus7.c, 12 Oct 2006.
+
+--- Dev.22 ---
+
+Built OK on Red Hat Linux AS4 with both "make linux" and "make linuxnc".
+15 Oct 2006.
+
+DIRECTORY /BRIEF ignored file selection switches and always listed all
+files. This was because of how I cleverly called filhelp() (the routine
+that lists matching files when ? is typed in a filename field) and, of
+course, filhelp() doesn't know anything about the DIRECTORY command's file
+selections. Changed filhelp() to accept all the args needed for passing
+along to fileselect(), renamed it to xfilhelp(), and made a filhelp() stub
+that chains to xfilhelp() with null selections. ckcker.h, ckucmd.[ch],
+ckuus6.c, 29 Nov 2006.
+
+SHOW CONNECTION for an SSH connection said the connection type was "NET"
+rather than "SSH". Fixed in dolognet(): ckuus3.c, 29 Nov 2006.
+
+SHOW CONNECTION didn't show the TCP port number. This command works by
+parsing the current connection log entry string, which doesn't have a field
+for this, but which sometimes shows the port number as part of the hostname
+(but more often not). Added code to dolognet() to log the TCP port number,
+if known. This involved adding a gettcpport() function to ckcnet.c.
+ckcnet.[ch], ckuus3.c, 29 Nov 2006.
+
+This was impossible: def \%1 upper, echo \f\%1(abc) -- i.e. to "compose" a
+function name. Fixed in zzstring(). But note that it's still not possible
+to do this: def \%1 \fupper, echo \%1(abc) -- because at the point where
+"\fupper" is encountered, which is automatically fed to fneval(), the
+argument list hasn't been read yet. ckuus4.c, 29 Nov 2006.
+
+The meaningless Lisp command (=) would cause Kermit to hang. Due to some
+idiosyncracy in the parser, it would see this as ((=) and would go into
+"wait for the closing paren" mode. There was already a hack in the code to
+compensate for this, but it didn't work. I fixed the hack but I don't
+understand the real problem. Anyway, comparing Kermit with real (Franz)
+Lisp I discovered that comparison operators do not require two arguments, as
+Kermit has been doing, although they do require at least one. I changed
+Kermit to not require two, so now all the comparison predicates behave
+exactly like Franz Lisp, including getting an error if there are no args).
+ckuus[r3].c, 29 Nov 2006.
+
+From to-do list: Make a way to inhibit pattern matching in SWITCH labels.
+It's already there; just quote the wildcard characters; the only trick is
+that for some reason (such as that SWITCH is really an internally defined
+macro), a double quote is needed:
+
+ switch \%1 {
+ :a\\*z, echo literally "a*z", break
+ :abcxyz, echo literally "abcxyz", break
+ :a*z, echo a...z, break
+ :default, echo NO MATCH
+ }
+
+In first case, the asterisk is taken literally; in the third it's a
+metacharacter and the label matches any string that starts with 'a' and
+ends with 'z'.
+
+Array initialization would quit early if any initializers were undefined,
+e.g. "decl \&a[] = \%a \%b \%c" would stop at the first element if \%b
+was not defined, even though \%c might be defined. Fixed in dodcl():
+ckuusr.c, 30 Nov 2006.
+
+DIR /ARRAY:a filespec, when the filespec does not match any files,
+terminates with the array undeclared. It would be better to return a
+declared but empty array (\&a[0] = 0). The code is already there to do
+that, but isn't working. And yet "declare \&a[0]" does indeed create a
+0-element array ("show array" shows a dimension of 0). Turns out there were
+two problems; one was the careless recycling of a local variable ("array"),
+resulting in failure to create \&a[] (but not any other array). Fixed in
+domydir(): ckuus6.c, 30 Nov 2006.
+
+The other problem was that dclarray(), when called with an array name and a
+dimension of zero, does two different things depending on whether the array
+already existed. There is still a fair amount of confusion about whether a
+dimension of 0 indicates an array with 1 element (as it should) or a
+nonexistent array. We call dclarray() with a size of 0 to undeclare an
+array but we also need to able able to declare an array with only element 0.
+I changed dclarray() to treat a negative dimension as a command to destroy
+the array, and 0 or positive as a command to create the array with the given
+dimension. ckuus[r56].c, 30 Nov 2006.
+
+Next problem: when chkarray() returns 0, this should not be interpreted to
+mean the array does not exist. Looks like the only place this happened was
+in \fcontents(); fixed in ckuus4.c, 30 Nov 2006.
+
+If we include file selectors with DIR /ARRAY:&a and some of the files that
+match the given filespec but don't fit the selectors, the array's dimension
+is bigger than its number of elements. Added code at the end of domydir()
+to resize the array so \fdim() returns the number of filenames in the array,
+and also made sure that element 0 contains that number too. ckuus6.c,
+30 Nov 2006.
+
+This would be a nice elegant way to loop over a bunch of files, if it worked:
+
+ for \%i 1 \ffiles(*) 1 { rename \fnextfile() xxx_\flpad(\%i,3,0) }
+
+But in this loop, Kermit skips every other file (beginning with the first)
+and then runs out of files halfway through the loop. Why? Because in
+commands like RENAME and DELETE, the filename parser is in a chained FDB
+with the switch parser. First the switch parser, cmswi(), gets its hands on
+\fnextfile(), passing it through the evaluator and thus getting the first
+filename, which it then sees is not a switch, so now the field is parsed by
+the next parser in the chain, cmifi(), which causes \fnextfile() to be
+executed again. In fact, the FOR loop has nothing to do with; the same
+thing happens like this:
+
+ void \ffiles(*)
+ delete \fnextfile()
+
+This deletes not the first file, but the second one. Obviously users can be
+told not to refer to \fnextfile() in chained-fdb fields:
+
+ for \%i 1 \ffiles(*) 1 { .f := \fnextfile(), delete \m(f) }
+
+but this is hardly intuitive. I had some clever ideas of how to make
+\fnextfile() work as expected in this context but it's way too much magic.
+Better to simply document that \fnextfile() is "deprecated" and the array
+format should be used:
+
+ for \%i 1 \ffiles(*,&a) 1 { delete \&a[\%i] }
+
+The difference is, an array element doesn't change every time it's referred to!
+
+Added a /PRESERVE switch to the COPY command to preserve the timestamp and
+permissions of the file. I did this using the Kermit APIs so it should work
+for any version of C-Kermit or K95. ckuus[26].c, 30 Nov 2006.
+
+Added COPY /OVERWRITE:{ALWAYS,NEVER,OLDER,NEWER} to control name collisions
+when copying across directories. ckuus[26].c, 1 Dec 2006.
+
+--- Dev.23 ---
+
+Fixed a bug in SET TELNET PROMPT-FOR-USERID, SET AUTH KERBEROS[45] PROMPT,
+and SET AUTH SRP PROMPT in which the user's string was compared with a
+literal (s == ""), reported by Pavol Rusnak. Worse, empty strings (if the
+test succeeded) were turned into null pointers, and then fed to strlen().
+Fixed in ckuus3.c, 5 Dec 2006.
+
+Added an optional 4th argument to \findex(), \frindex(), \fsearch(), and
+\frsearch(): the desired occurrence number of the searched-for string.
+\frsearch() was a bit tricky. ckuus[24].c, 7 Dec 2006.
+
+Added \fcount(s1,s2) to tell the number of occurrences of s1 in s2.
+ckuus[24].c, 8 Dec 2006.
+
+Added \ffunction(s1) to tell if a given built-in function is available.
+ckuus[24].c, 8 Dec 2006.
+
+Changed RENAME /COLLISION:PROCEED to be /COLLISION:SKIP, which is clearer.
+ckuus[26].c, 8 Dec 2006.
+
+For communication protocols: INPUT /COUNT:n to read exactly n characters
+without any matching. Can be used, for example, with CONTENT_LENGTH in CGI
+scripts; NUL characters are counted but not collected. ckuusr.[ch],
+ckuus4.c, 8 Dec 2006.
+
+There was a bad bug in the date-parsing routines; it's been there for years.
+If a date string includes a timezone, e.g. "Sat, 9 Dec 2006 19:26:23 EST",
+and converting to GMT changes the date, the variables for day, month, and
+year (which are used later) were not updated, and the final result was a day
+off. Fixed in cmcvtdate(): ckucmd.c, 10 Dec 2006.
+
+Built OK with SSL/TLS. Tested with the POP script, found that I broke INPUT
+when adding the /COUNT feature; there was a path through the code that could
+leave the "anychar" variable unset and therefore random. Fixed in
+doinput(). The POP script, which does not use /COUNT, works again and so
+does a new CGI script, which does use /COUNT. ckuus4.c, 10 Dec 2006.
+
+Supplied a missing comma in the help-text array for HELP SET TERMINAL, which
+resulted in bad formatting in K95 around SET SNI-FIRMWARE-VERSIONS.
+ckuus2.c, 10 Dec 2006.
+
+Made "help locus" a synonym for "help set locus". ckuusr.[ch], ckuus2.c,
+11 Dec 2006.
+
+This morning the Columbia FTP server was malfunctioning in a perfect way
+for me to implement and test an FTP timeout mechanism. The server would
+close the data connection after sending the file, but the client never saw
+the close and was stuck forever in a recv(). I added code to do a select()
+on the data connection prior to entering the recv(), with a timeout on the
+select() that the user can establish with SET FTP TIMEOUT. Built and tested
+on Solaris 9, clear-text FTP. Also built cleanly for FTPS and tested
+against a server that does not hang; I don't have access to an FTPS server
+that would tickle the timeout code. ckcftp.c, 11 Dec 2006.
+
+--- Dev.24 ---
+
+Fixed a bug in the INPUT /COUNT: parser: the array of search strings was
+never initialized, which didn't matter before, but with /COUNT:, if the
+first element was not a NULL pointer, we'd treat it as a search string, and
+then if it happened to match something in the input stream, the operation
+would stop before the count was exhausted. Fixed by (a) initializing the
+array, and (b) ignoring any search strings if /COUNT: was given. ckuusr.c,
+13 Dec 2006.
+
+Removed a debug() statement from zsattr() that suddenly started making some
+version of gcc complain, reported by Gerry Belanger. ckufio.c, 13 Dec 2006.
+
+--- Dev.25 ---
+
+Some casts for the 3 interior args of the new select() call in ckcftp.c
+for HP-UX 9. 14 Dec 2006.
+
+Changed \fkeywordvalue() to accept a string rather than a single word
+as its second argument, so that more than one separator could be specified,
+and to return -1 on error, 0 if it found nothing, 1 if given a keyword but
+no value, and 2 if there was a keyword and a value. dokwval(): ckuus[24].c,
+14 Dec 2006.
+
+Checked FTP timeout on command channel with FTP DIRECTORY of a big directory
+using a path into our ftp server that preserves the hanging behavior. The
+timeout was actually working, but the failure condition wasn't propagating
+back to the user, and there was no error message. Fixed in doftprecv2() and
+failftprecv2(): ckcftp.c, 15 Dec 2006.
+
+Added the obvious timeout checks for FTP uploads, but I have no way to test
+the code since our misbehaving FTP server does not hang when receiving
+files, only when sending them. But uploads work both with and without a
+timeout set, so at least no harm is done. ckcftp.c, 17 Dec 2006.
+
+When downloading with FILE DESTINATION NOWHERE (= /CALIBRATE), Kermit still
+checked the size of the incoming file and refused it if there wasn't enough
+free disk space, on platforms (such as VMS) where zchkspa()) actually works;
+reported by Bob Gezelter. ckcfn3.c, 18 Dec 2006.
+
+Built on Mac OS X 10.4.8 and NetBSD 3.1_RC3, all OK. 19 Dec 2006.
+
+--- Dev.26 ---
+
+Built on VMS 7.3-2/Alpha. Had to squelch a couple compiler warnings by
+changing some ints in the new \fpictureinfo() code from unsigned to signed,
+and fix a typo in the prototype for the new gettcpport() function.
+ckcnet.h, ckuus4.c, 22 Dec 2006.
+
+--- Dev.27 ---
+
+Parameterized pty routines and all references to them for file descriptor,
+rather than to use global ttyfd, thus allowing ptys to be created for
+different purposes. Tested on Solaris 9 and Mac OS X 10.4.8, with "set host
+/connect /pty emacs" (fine in both cases), and (more to the point) "set host
+/connect /pty kermit" -- here we make a connection from one Kermit process
+to another and transfer a file; works fine and wasn't especially slow either;
+a good sign. ckcdeb.h, ckutio.c, ckupty.c, 22 Dec 2006.
+
+Created a new version of ttruncmd() called ttyptycmd(), which works by
+calling do_pty() to get a pty to run the command on, and then in a loop,
+reads from the pty and writes to the net and reads from the net and writes
+to the pty, using select() to which of those it should do on each pass.
+First cut just uses single-byte reads and writes. Tested using Kermit
+itself as an external protocol. Works but slowly: 6000cps. Zmodem doesn't
+work at all. ckutio.c, 24 Dec 2006.
+
+Changed single-character read() and write() to buffered reads and writes,
+with ttxin() and ttol() used for network i/o. Using Kermit as the external
+protocol, this gives 450Kcps (about 1/3 normal on this connection).
+
+But now there's a problem: the loop doesn't know when to stop. How does it
+know when the process that is running on the pty has exited? With single
+character read()'s that are executed unconditionally when select() says the
+pty has data waiting, as in the first pass, I get EIO if there actually
+isn't any, and can exit the loop. But now, to avoid blocking, I call
+in_chk() to see how much data is waiting, and I don't try to read anything
+if it says nothing is waiting. If the process associated with the pty file
+descriptor has terminated, in_chk() would presumably get some kind of error,
+but it doesn't. I changed do_pty to return the pid of the fork where it
+execs its command so we can check the pid with kill(pid,0) when in_chk() of
+the pty says 0, but this doesn't help either; it seems like the process is
+not exiting, but of course it is.
+
+I could not find any legitimate way to test when the pty fork terminated.
+Select() always says the pty file descriptor was ready, no matter what.
+Select() never reports an exception on the pty file descriptor;
+in_chk(ptyfd) returns 0 and not an error. read(ptyfd,...) gets 0 but not an
+error. fcntl(ptyfd,...) doesn't get an error. Finally I tried
+write(ptyfd,c,0) and this indeed gets EIO (i/o error). With this, using
+Kermit as the external protocol works fine in Solaris but I tend to think
+this trick will not be very portable (it isn't). 24 Dec 2006.
+
+Made ttptycmd() use a more intelligent buffering scheme, fixed a few things
+about how I was setting up the select() call that should address some of
+yesterday's problems. Still doesn't work but it's progress. A: 25 Dec 2006.
+
+Debugging yesterday's code... Still, the error conditions are never set,
+we never detect when the pty closes. In Solaris, if select() says ptyfd is
+ready to read but in_chk() says there are no characters there, we can treat
+this as a loop-exit condition. But in NetBSD, in_chk() always says 0 when
+used on a pty (but works OK on a serial or net connection).
+
+Realized I could not use in_chk() on the pty because there is too much
+baggage with the communication path -- myread(), etc etc) -- so I replaced
+this with a simple ioctl(ptyfd,FIONREAD,&n). This works fine in Solaris but
+always returns 0 in NetBSD, despite what the man page says (i.e. that this
+function can be used on any file descriptor).
+
+OK, let's see.... select() does not return useful results. It says
+characters are waiting on ptyfd when they are not, and it never detects the
+closure of the pty..... Well of course not, because we are the ones who
+have to close it. Just because the process has stopped doesn't mean the pty
+is closed. So we're back to square one, how do we know when to close it?
+ckupty.c seems to keep the process ID in a global variable, pty_fork_pid
+(which is not the same as the pid now returned by do_pty(), which is
+useless, but I don't understand why). But it doesn't matter because when we
+kill(pty_fork_pid,0), we still get no error of any kind, even after we know
+the process has exited. I am completely flummoxed. select() lies, and even
+if it didn't, there is simply no completion criterion. In the loop,
+select() always says that the pty is ready to read. To be continued.
+26 Dec 2006.
+
+Back to Square One, single-byte reads and writes.
+
+ . This works for both ripple and Kermit.
+ . Doesn't work for Zmodem but we'll deal with that later.
+ . In this case FD_ISSET(ptyfd) is still true after pty closes.
+
+But the ensuing read() gets EIO so we know the pty is gone. That means the
+same thing should happen in the buffered version, no? Yes; I went back to
+the buffered version and replaced all the other nonworking tests by a
+blocking read of 1 byte on the pty and this detects the termination. Now:
+
+ . ripple works perfectly (of course it's only one-way).
+ . Kermit fails
+
+Let's call the remote, forked, redirected, external Kermit A and its
+local partner B. A sends its S-packet, B receives it OK and Acks.
+A apparently does not receive the ACK in time, so sends the S again, but OK.
+followed immediately by the F. B Acks the F. A sends the A, B Acks it.
+But now A sends a piece of the previous F packet and the the first piece
+of a D packet.
+
+Clearly the buffering is messed up. Sure enough, there was an extraneous
+statement incrementing a read pointer in a write section. Removing that
+cleared up the problems with Kermit, now we can send and receive substantial
+files efficiently in remote mode. Zmodem seems to work too, except that at
+the beginning a bunch of "**B0800000000022d"'s are stuffed into Kermit's
+command buffer, so after the transfer we get some error messages.
+
+In local mode, over a Telnet connection, Kermit works fine. Zmodem works
+OK too except it doesn't finish right, so at the very end rz on the far end
+is still waiting for something; if I cancel out of it with ^X^X^X^X^X, it
+deletes the file. So there still is something wrong with the termination
+test.
+
+Also you don't see anything on your screen when running Kermit or Zmodem
+this way. That's to be expected, since they are using stdio for the
+transfer, so they can't also be displaying progress or other messages.
+
+Built this on NetBSD again... Seems to work this time, but has trouble
+finishing, like Zmodem. Hmmm, on closer examination, it turns out that
+since in_chk() always returns 0 on the ptyfd, we fall into our new
+single-byte read code, so it's really slow, like 10K cps on a connection
+where 1M is the norm. 27 Dec 2006.
+
+Switched the pty from buffer peeking (FIONREAD) and blocking reads to to
+nonblocking reads (O_NONBLOCK / O_NDELAY). Works just fine on NetBSD except
+now we no longer get EIO at the end when trying to read from the pty process
+that has exited. In fact, we're back to square one again. not ioctl(), not
+fcntl(), not select(), not even read() gets an i/o error after the pty
+process exits. But in NetBSD, we have to use nonblocking reads because ...
+Hmmmm, maybe switch the fd between blocking and nonblocking for the test...
+Nope, NetBSD seems to be hopeless (later, Ed Ravin confirmed that similar
+problems have been observed with other applications that try to do this).
+
+Switching to Linux, I see that yesterday's Solaris code (blocking reads)
+works exactly the same way on Linux.
+
+Tried today's O_NDELAY method on Solaris. It works perfectly. And then I
+moved this one to Linux and it works perfectly there too. Except in both
+cases we have the weird thing with Zmodem at the end, but I think that's
+because rz/sz don't use standard i/o. On NetBSD, it still hangs at the end.
+
+Turns out that testing the pid works in NetBSD, even though it didn't in
+Solaris. Turns out read() gets an i/o error in Solaris and Linux but not
+in NetBSD. So checking the read result first, and then checking the pid
+if read() got zero bytes catches all three. 28 Dec 2006.
+
+Now the question of return code. In the original ttruncmd() function, we do
+a fork() and a wait(). When the external protocol program finishes, wait()
+gives us its return code and we can pass it on through \v(pexitstat) as well
+ttruncmd's own return code. But ttptycmd() has to interact with the pty
+continuously, so it can't just sit back and wait() for it. Instead we have
+to detect when the process has exited and then call waitpid() on the fork
+pid, before shutting down the pty. Tested on Solaris using Kermit as the
+external protocol and then inducing failure, or letting it run to
+completion. FAILURE and SUCCESS set appropriately in each case. Tested
+with Zmodem too, works OK except for the aforementioned cosmetic glitch at
+the end. Tested on NetBSD, all OK.
+
+To make K5 connection to Panix from Spam:
+
+ set telnet debug on
+ authenticate K5 init /realm:PANIX.COM /password:xxxxx
+ set host shell.panix.com 23 /k5login
+
+Good... Now I try to send a file from Spam to Panix over the K5 connection
+using Kermit itself as the external protocol. It fails. Inspection of the
+debug log on the far side shows that the S-Packet was received correctly,
+good! This means we are reading the clear-text S-Packet from the external
+Kermit program, and that ttol() is encrypting appropriately.
+
+The remote Kermit sends the Ack and goes to read the next packet: ttinl()
+calls myfillbuf() and:
+
+ SVORPOSIX myfillbuf calling read()
+ SVORPOSIX myfillbuf=0 <-- read returns 0
+ SVORPOSIX myfillbuf ttcarr=2
+ SVORPOSIX myfillbuf errno=0 <-- and reports no error
+ HEXDUMP: mygetbuf read (-3 bytes)
+ mygetbuf errno=0
+ ttinl myread failure, n=-3
+ ttinl myread errno=0
+ ttinl non-EINTR -3[closing]
+
+This happens because myfillbuf() deliberately returns -3 when read() gets 0
+bytes. I don't understand why this happens but the real problem is yet to
+come. The local Kermit (the one that has made the secure connection and is
+running the external protocol through ttptycmd()) eventually figures out
+that the transfer failed and when we reconnect, we get total garbage -- the
+encryption either stopped happening, or got out of sync.
+
+Looking at the local debug log, ttol() is doing its job, converting the
+initial "kermit -r\13" from plaintext to cyphertext, as shown by the
+hexdumps. Then it enters ttptycmd()... Hmmmm, wait, how can it send the
+"kermit -r" before it starts the external protocol? Never mind, worry about
+that later... Anyway, ttptycmd() says:
+
+ ttptycmd loop top have_pty=1
+ ttptycmd loop top have_net=1
+ ttptycmd FD_SET ptyfd in
+ ttptycmd FD_SET ttyfd in
+ ttptycmd nfds=5
+ ttptycmd select=1
+ ttptycmd FD_ISSET ttyfd in
+ ...
+ ttptycmd in_chk(ttyfd) n=11
+ ttptycmd ttxin n=11
+
+ttxin() asks for 11 bytes, myfillbuf() gets 11 bytes, and hexdump() shows
+the cyphertext, there doesn't seem to be any decrypting going on. Hmmm, it
+looks like the regular code calls ttinc() in a loop, rather than ttxin().
+Maybe ttxin() doesn't have decryption hooks. No, that's not it, the code is
+there, but the Kermit packet reader does not use ttxin(), it uses ttinl().
+But of course we can't use that for external protocols because it's designed
+only to read Kermit packets. Substituting a loop of ttinc()s for the ttxin()
+call fixes things (and strangely enough, it seems to be faster). And now we
+have our first external protocol transfer over a secure connection (external
+Kermit program, Linux over Kerberos 5 to NetBSD). Zmodem worked too for a
+short file but "something happens" with longer ones. 29 Dec 2006.
+
+New makefile target for Linux with Kerberos 5, linux+krb5, that doesn't
+include anything extra from SSL or other security methods (but apparently it
+is still necessary to include -DOPENSSL_097 in order to get the right names
+for the DES routines?). Ditto netbsd+krb5 for NetBSD, except in this case
+-DOPENSSL_097 is not necessary. makefile, 30 Dec 2006.
+
+Note to myself: On Panix:
+
+ export LD_LIBRARY_PATH=/usr/local/kerblib
+ make netbsd+krb5 "K5LIB=-L/usr/local/kerblib" "K5INC=-I/usr/local/include"
+
+Can't telnet-k5 from newly built Kermit on NetBSD; partway through the
+negotiations, just after "TELNET RCVD SB ENCRYPTION SUPPORT DES_CFB64
+DES_OFB64 IAC SE" it dumps core. The last two lines in debug.log after
+this are:
+
+ tn_sb[len]=5
+ encrypt_support[cnt]=2
+
+Rebuilding with -DOPENSSL_097 doesn't change anything. Ed Ravin said they
+have two different Kerberos installations, Heimdal and MIT; maybe some
+mixup between the two explains the problem (Jeff concurs). The core dump
+occurs in ck_crp: encrypt_support():
+
+ debug(F100,"XXX ep not NULL","",0);
+ type = ep->start ? (*ep->start)(DIR_ENCRYPT, 0) : 0; <-- Here
+ debug(F101,"XXX new type","",type);
+
+Anyway, I can log in with Kerberos 5 to Panix OK from Columbia (sesame)
+using 8.0.201. So let's try to resurrect the Solaris version with everything:
+
+ solaris9g+krb5+krb4+openssl+shadow+pam+zlib
+
+I hunted around to find where the current library and header file
+directories were... Last time I tried this (March 2006) it bombed, not
+finding libdes. Instead we have /opt/kerberos5125/lib/libdes425.a. Made a
+new cu-specific target that includes this; now we get farther; it blows up
+in ckcftp.c with tons of errors and warnings, which we can worry about
+later. Building again with -DNOFTP, it gets to ckuath.c (the first security
+module) and:
+
+ ckuath.c:151:18: error: krb5.h: No such file or directory
+ ckuath.c:152:21: error: profile.h: No such file or directory
+ ckuath.c:153:21: error: com_err.h: No such file or directory
+ ckuath.c:176:28: error: kerberosIV/krb.h: No such file or directory
+ In file included from /opt/openssl-0.9.8d/include/openssl/des.h:101,
+ from ckuath.c:219:
+
+Found krb5.h in /opt/kerberos5125/include/krb5.h, added a -I for this
+directory ... Now we get lots of warnings in ckuath.c, but it completes OK,
+then we wind up bombing out in ck_crp.c; I don't know why -- there are all
+the same warnings (related to argument passing to DES functions), but no
+errors. I have no clue.
+
+Tried to resurrect the solaris2x+krb4 target; this required changing -lkrb
+to -lkrb4 and -ldes to -ldes425. Lots of warnings in ckutio.c, ckcnet.c,
+ckctel.c, then it bombs out in ckcftp.c because it can't find krb.h. I
+found it, adjusted the -I flags, but now it bombs because krb.h itself
+#includes <kerberosIV/des.h>, which of course it can't find because the
+brackets mean it's looking in /usr/include/kerberosIV/, which, of course,
+the sys folks have removed. Giving up on Solaris again. Later, Jeff said
+"Solaris does not publicly export the krb5 libraries. You need to build
+the MIT Kerberos libraries separately and link to them." 30 December 2006.
+
+Changed copyright date to 2007. ckcmai.c, 1 Jan 2007.
+
+With Ed Ravin's help, successfully built C-Kermit with Kerberos 5 and
+OpenSSL (netbsd+krb5+openssl+zlib), but it does not make K5 connections; it
+gets hung up in the Telnet negotiations. 3 Jan 2007.
+
+Downloaded MIT Kerberos 5 v1.4.4 to Solaris 9, 54MB worth. This is just so
+I can build a Kerberized C-Kermit for testing ttyptycmd(). Ran the
+configure program, got a few warnings but it didn't fail (should it?) Did
+"make install", specifying a private directory but it failed immediately
+with "cannot stat libkrb5support.so.0.0: No such file or directory".
+OK, I tried. 3 Jan 2007.
+
+Made a new makefile target for Mac OS X, macosx10.4+krb5+ssl, ran it on Mac
+OS X 10.4.8. It bombs out in ckcftp.c with: ckcftp.c:551: error: static
+declaration of 'gss_mech_krb5' follows non-static declaration
+/usr/include/gssapi/gssapi_krb5.h:76: error: previous declaration of
+'gss_mech_krb5' was here". Ditto for gss_mech_krb5_old, gss_nt_krb5_name,
+and gss_nt_krb5_principal. Tried again with -DNOFTP. We get lots of
+warnings in the network modules, but they complete. But ck_ssl.c bombed
+with a conflict between its own declarations of encrypt_output and
+decrypt_input and the ones in ckuat2.h; removed the prototypes from the
+latter (as Jeff advised) it built OK and it works OK too. Built with FTP
+too, but with link-time warnings about the aforementioned gss_* symbols.
+#ifdef'd them out (gss_mech_krb5, gss_mech_krb5_old, gss_mech_name, and
+gss_mech_principal) for MACOSX, where these symbols are exported by the
+library. Now it all compiles and links OK, and runs OK too. 3 Jan 2007.
+
+Spent a day hunting around for a version of Zmodem that would build and
+execute on Mac OS X, finally found one. Now at last I could try a Zmodem
+external-protocol transfer over a secure connection. But phooey, C-Kermit's
+pty support didn't work on this box. Kermit finds master /dev/ptypa OK,
+then in ptyint_void_association() tries to open /dev/tty but gets ERRNO=6
+"device not configured" (which is apparently OK, because the same thing
+happens on other platforms where this works), then tries to open slave
+/dev/ttypa and gets ERRNO=13 "permission denied" because, indeed, I don't
+have r/w permission on the device. Left a message. 4 Jan 2007.
+
+Changed TRANSMIT /BINARY output buffer size from 252 to 508 to avoid
+TCP fragmentation. Need to add a SET command for this later.
+ckuus4.c, 5 Jan 2007.
+
+Found another Mac where the ptys weren't protected against me, make a K5
+connection and transferred a largish file with Zmodem with zero glitches,
+except it was kind of slow, 84K cps. Well, we're doing single-character
+reads on the net (ttinc()'s instead of ttxin()). Hmmm, but then I did it
+again and got 2.2Mcps. Success was reported, but it actually didn't work;
+it only sent the first quarter of the file.... Oh well, at least now we
+have a testbed. 5 Jan 2007.
+
+Tried again, saw that the file is actually transferred instantly but then
+we're not picking up the protocol at the end. Theory: after the transfer
+finishes, we come back to the prompt on the remote host, which means we have
+something to read from the net and write to the pty, but the pty has already
+exited. AFTER THE PTY IS GONE, WE DO NOT WANT TO READ FROM THE NET ANY
+MORE. Adding this test makes Kermit succeed right away when sending the
+same largish file, with a transfer rate of 4M cps, that's better. But the
+rz program on the far end is evidently not receiving the goodbye handshake
+from the receiver, because it sits there foreever in its *B09002402009418
+mode until I ^X^X^X^X^X out of it, at which point it deletes the file it
+already received, not very helpful. In the code, I read from the pty if the
+pty is open and there is room in the buffer. This means that when we get to
+the end, either there is no room in the buffer (unlikely) or the last bit
+sent by sz before exiting was cut off when the fork closed. Why do we get
+in this fix only with Zmodem and not with Kermit?
+
+In Mac OS X, after sz exits, we get ERRNO=5 if we try to write to the pty,
+but we still get no errors after that if we try to read from it. Still,
+prior to this we did more than 20 unproductive nonblocking reads from the
+pty (no error, no bytes) without incident; there did not seem to be anything
+waiting. In fact, the last thing we read from the pty were the text
+messages that are issued at the end of the transfer: "rz 3.73 1-30-03
+finished." After which it pauses a second and spits out a message about
+UNREGISTERED COPY.
+
+Figured out how to build lrzsz, in hopes that the previous problems were
+with rzsz and crzsz's fiddling with file descriptors, but I get the same
+behavior. Which is good, I guess, because if I can fix one, I fix them all.
+Or not... Testing lrz by itself (not under C-Kermit), I see that it doesn't
+work at all with Kermit's own Zmodem implementation.
+
+OK, here's one problem: at the end of the transfer, the Omen Zmodems print
+stuff like "Please read the license agreement", Kermit dutifully reads this
+from the pty and sends it to the host, the host shell says "Please: command
+not found", issues its prompt again, which Kermit reads, feeds to the pty,
+and apparently the pty echoes it, so we send it back to the host, and there
+ensues an infinite loop of getty babble until the pty closes. Now, there
+ought to be a way to make the external protocol shut up, like Kermit's
+-q(uiet) flag, but these are unregistered versions so you can't shut up the
+messages. In fact, the transfer works, but the getty babble at the end
+ruins the experience. Now I'm beginning to wonder how any of these programs
+ever worked as external protocols. Hmmm, now that I try it, I see the
+same thing happens the old way, when using ttruncmd() rather than ttptycmd().
+
+Reading the crzsz documentation I see it says that messages come out on
+stderr. OK, that's progress. In ckupty.c I try redirecting 2 to /dev/null.
+Well good, this filters out the messages from csz, but we still get getty
+babble on the prompt. In the debug log, we read the last bunch of stuff
+from net, 618 bytes of Zmodem stuff... Now what happens?
+
+Zmodem on the remote exits, the host prints its prompt. Kermit, of course,
+reads the prompt from the net, now come to the bottom of the loop and we
+have 7 bytes to write to the pty, and no error condition, so we continue the
+loop. select() says that the pty is ready for writing. We write the 7
+bytes and and get no error. Loop again, this time select() says the pty has
+data waiting. Sure enough we get the prompt back, and send it to the net,
+and thus begins the getty babble. There are two causes for this:
+
+ 1. crzsz does not exit immediately; it sleeps for 10 seconds after
+ printing its nag message.
+
+ 2. During this interval the pty seems to be echoing what is sent to it.
+ csz is not echoing; I checked. Anyway, removing the pause doesn't
+ seem to make a difference.
+
+ttptycmd() needs to:
+
+ . TELL the pty module to redirect stderr to /dev/null
+ . SET PTY TO NOECHO (master or slave?)
+
+Tried setting the pty to noecho:
+
+ termbuf.c_lflag &= ~(ECHO|ECHOE|ECHOK);
+
+and this seemed to stop the getty babble. After the file transfer, I read
+back the prompt from the host shell, I write the prompt bytes to the pty;
+there is no error. And now select() simply hangs forever (or times out if
+a timeout is set). The question here is: why didn't writing to the pty
+produce an error? And, because we never detect the pty has exited, we can't
+set a good return code. 5 Jan 2007.
+
+Moved pty fork testing to a separate routine, pty_get_status(), and
+added a call to it from the place where we time out, in case the fork
+terminated; then we can get and return its status. 6 Jan 2007.
+
+Added calls to pty_get_status() to every place where we suspect a pty error,
+tried again with lrzsz, crzsz, and regular rzsz. All three work, but in
+each case waitpid() indicates that the sz program gave exit code 1 (failure).
+ckutio.c, 7 Jan 2007.
+
+Changing the subject... On my test system, every time I execute ttptycmd(),
+I get "permission denied" on /dev/ttyp3. Then I run it again and get to
+ttyp4 which is OK. I wanted to skip past any pty for which I lack
+permission and try the next without raising an error. Added debugging code:
+
+ 16:25:23.524 pty_getpty() pty master open error[/dev/ptyp0]=5
+ 16:25:23.524 pty_getpty() pty master open error[/dev/ptyp1]=5
+ 16:25:23.524 pty_getpty() pty master open error[/dev/ptyp2]=5
+ 16:25:23.524 pty_getpty() found pty master[/dev/ptyp3]
+ 16:25:23.524 pty_getpty() slavebuf [2][/dev/ttyp3]
+
+So it already was skipping past open errors; ttyp3 was opened successfully.
+The problem is that ptyp3 is rw-rw-rw-, but the corresponding master,
+ttyp3, is rw--r----. It seems the code assumes that if the master can be
+opened, then so can the corresponding slave. Unfortunately, the code is
+not structured to allow us to skip ahead to the next master if the slave
+can't be opened. 7 Jan 2007.
+
+Spent a couple hours trying to rearrange the code in the pty module to skip
+past inaccessible slaves but it was a rabbit hole, not worth it, backed off.
+8 Jan 2008.
+
+Tried an upload over a secure connection using lsz. Unexpectedly, this time
+it worked; not only was the file (about 0.5MB) transferred correctly, but
+Kermit detected the fork's termination and got the pid's exit status, and,
+for the first time, correctly reported a successful transfer. I have no
+idea why this works today and not yesterday. More tests; it works most of
+the time. It works with csz and with regular sz too.
+
+(days later...)
+
+ckucns.c seems to do the right thing; it recognize the ZSTART string,
+activates the Zmodem-Receive APC, and returns. doconect() sees the APC and
+begins to execute it. The RECEIVE command results in a call to the GET
+command parser, doxget() (IS THAT RIGHT?), then comes a ttflui(), which
+throws away a bunch of stuff. Finally we get to ttptycmd(), we get a pty
+and run lrz in it, select() says stuff is waiting from the pty, but read
+returns 0, errno 0. Skipping the ttflui() in doxget() if the protocol was
+not Kermit didn't seem to make difference. ckuus6.c, 8 Jan 2007.
+
+The problem is that in this case, reads from the pty never get anything (no
+data, no error), write always gets an error. It's as if the pty was not
+being set up right, or we're using the wrong file descriptor. And if we
+skip the autodownload? Same thing.
+
+OK, putting downloads aside for a moment, let's get uploads working as well
+as possible. At this point we have the odd situation (at least in this
+configuration) that the upload succeeds, but now for some reason we are
+unable to read the exit status from the process, even though this was
+working before, so ttptycmd() returns 0 (failure), yet Kermit reports
+success.
+
+Well, it turns out that kill(pty_fork_pid,0) was gumming up the works.
+If we use only waitpid() all is well, I think. waitpid() with WNOHANG
+returns -1 with status -1 errno 0 if the pid has not exited, and it returns
+the pid and status > -1 if the process has exited. Fixed pty_get_status()
+to do it this way. ckutio.c, 7 Jan 2007.
+
+Let's move this from Mac OS to NetBSD and see how it works. Well, the file
+transfer was just fine, but then I used some sexps to calculate the elapsed
+time and transfer rate, and Kermit hung in dosexp(). Fine, ignoring that...
+The debug log shows that ttptycmd() gets the pty OK, master and slave, the
+i/o goes smoothly, and waitpid() does its job perfectly. Solaris, same
+deal; ttruncmd() goes smoothly, but then the sexps afterward get "Arithmetic
+exception". Turns out there was a BAD bug in dosexp() that allowed an
+integer division by 0 to occur under certain circumstances; it's always been
+there. Fixed in dosexp(): ckuus3.c, 8 Jan 2007.
+
+After noticing a few problems running the pop.ksc script in production over
+the past year, rewrote \femailaddress() to be more reliable and a lot
+simpler. ckuus4.c, 9 Jan 2007.
+
+Back to ttptycmd()... When we left off, we could send but not receive. Set
+up a test case using Kermit as the external protocol for receiving a short
+file. If I SET STREAMING OFF and use short packets, it actually does work,
+so it's not a complete failure to function, but apparently a lack of flow
+control for the pty. Began by completing the parameterization of the pty
+module, so it can be called for interactive use (fc 0) or for running
+protocols (1). Confirmed that everything works at least as well as before
+(e.g. "set host /pty emacs" vs external protocols). ckcdeb.h, ckutio.c,
+ckupty.c, 9 Jan 2007.
+
+Found in HP-UX "man 7 pty" a description of ioctl(fd,TIOCTTY,fc) which is
+exactly what we want: fc 0 turns off all termio processing and guarantees an
+uninterrupted, unmolested, flow-controlled stream of bytes in both
+directions. This function also exists in Linux, but not in Solaris, NetBSD,
+or Mac OS X (TIOCNOTTY is not what we want, it does something else entirely).
+
+Another possibility is TIOCREMOTE, which "causes input to the pseudoterminal
+to be flow controlled and not input edited, regardless of the terminal
+mode". This one exists in at least HPUX, NetBSD, Solaris, and Mac OS X.
+
+Solaris: builds OK, but at runtime we get ENOTTY ("Inappropriate ioctl for
+device"). By the time this happens, it's hard to tell from the code whether
+the fd we're using is for the master or the slave; TIOCREMOTE can be used
+only on the master. Close inspection shows that I am indeed doing that;
+ptyfd as seen by ttptycmd() is truly the master, i.e. the /dev/ptyXX device,
+not the /dev/ttyXX device (the slave fd can't be seen at all, as it exists
+only in a separate fork). OK, so now we know that TIOCREMOTE can't be used
+on Solaris.
+
+NetBSD: Somehow, whether as a result of today's fiddling or the phase of the
+moon, the code in pty_open_slave() that tries to open /dev/tty started
+failing on NetBSD ("Device not configured"). Changing it to be run only if
+fc == 0 (which doesn't seem to hurt anything), once again I get ENOTTY on
+the TIOCREMOTE ioctl. Zmodem works but Kermit totally fails (the fork exits
+immediately with an exit code of 0, even though it didn't do anything).
+
+Mac OS X: Exactly the same sequence and results as NetBSD.
+
+Linux: It did not execute the new ioctl at all; apparently the TIOC symbols
+are hidden or not exported or something.
+
+Where we stand:
+ . Downloads don't work
+ . Uploads got slow again
+ . Kermit doesn't work at all as an external protocol
+
+Actually if I take the debugging out it goes fast, but it doesn't finish.
+
+All today's work on ttptycmd() looks like a dead end. To roll back to
+yesterday:
+
+ cp ckutio.c-20070108 ckutio.c
+ cp ckupty.c-20070108 ckupty.c
+ cp ckupty.h-20070108 ckupty.h
+
+or to continue with today's:
+
+ cp ckutio.c-20070109 ckutio.c
+ cp ckupty.c-20070109 ckupty.c
+ cp ckupty.h-20070109 ckupty.h
+
+Comparing Monday's and Tuesday's pty-related code, the differences are:
+ 1. Passing of function code to and among pty modules.
+ 2. Skipping the TIOCSCTTY ioctl and the open("/dev/tty") test.
+ 3. Attempting to put pty in TIOCTTY or TIOCREMOTE mode.
+
+Commenting out 2 and 3 should put us back where we were on Monday if the
+parameterization was done right. And with this, on Solaris, downloading
+with Kermit external protocol works but slowly, 8K cps, with or without
+debugging. Debug log does not show any obvious bottlenecks; select() takes
+anywhere between no time at all and 0.1 seconds to return. If I increase
+the pty-net buffer size from 1K to 4K, the rate goes up to 55K cps. If I
+make it 8K I get 136K cps. With 16K I get 346K cps. 32K: 395K cps -- this
+last one isn't worth the doubling. But at 24K I get 490K cps, sometimes
+twice that. Let's stick with 24K for now. Downloading with Zmodem (rzsz)
+works at the same rate, but now we're back to seeing the getty babble
+(Several "**B0800000000022d") at the end. 10 Jan 2007.
+
+Moving to Mac OS X, everything works the same as on Solaris, except I don't
+get the Zmodem getty babble there, not even with Omen rzsz. Tested sends
+in both remote and local mode, the latter over a secure Kerberos 5 Telnet
+connection, using C-Kermit, rzsz, lrzsz, and crzsz, all good. 10 Jan 2007.
+
+Now we're back where we were yesterday morning, but with better throughput.
+The big issue then was receiving files. But yikes, now it works! Not only
+that, I got a transfer rate of 2.1M cps. That's using Kermit protocol,
+streaming, and big (4K) packets. Which didn't work before. Not a fluke
+either, I uploaded bigger and bigger files up to 6MB, they all went
+smoothly, at rates between 1 and 2 MBps. 10 Jan 2007.
+
+Not so great in Zmodem land, however. If I start the external-protocol
+receiver on the far end, escape back and start a Zmodem send... nothing.
+If I leave the remote C-Kermit at its prompt (where it supposed to recognize
+the Zmodem start string), still nothing. On the other hand, if I do it
+with a script instead of by hand:
+
+ def xx output take blah\13, send /proto:zmodem \%1
+
+it works, at least intermittently. But that's in remote mode. We won't be
+using this in remote mode. In local mode, where we have a secure connection
+to another computer, it seems we can read from the pty and write to the net,
+but we time out waiting to read from the net; nothing arrives. Well, we
+know that i/o works both ways, so there is some kind of screwup with the
+Zmodem protocol start itself. Increasing the (still hardwired timeout) from
+5 to 22sec and driving the whole process with a script so as to avoid
+autodownload as well as manual dexterity effects... It just sits there
+forever, way longer than 22 sec. ^C'ing out, I see that sz was indeed
+started on the far end and the protocol was executing. But it looks like
+the receiver (the one running under ttptycmd()) is getting trashed packets,
+because (a) it seems to be sending the same thing over and over again, and
+(b) sometimes it waits as long as 10 seconds before anything arrives from
+the remote. Maybe I was too impatient; I interrupted it after 4 minutes but
+it seems to have been making some progress. Whenever there was data
+available to read from the net, it was always 65 bytes, and it was not
+actually the same data over and over. This is using lrz as the external
+protocol. crz gets a bit farther. In this case we read up to 24K at a
+gulp, but the amount varies a lot. It looks like we took in about 1.2MB of
+Zmodem protocol data, but were only able to output the first 20K of the
+file. Clearly there were lots of errors. In the end, the crz exits with
+status 1 (failure).
+
+Anyway it looks like we're back at needing to find a way to accomplish
+something like TIOCREMOTE on the pty, which is where we came in. 10 Jan 2007.
+
+Without any way to make the pty transparent and flow controlled, it would
+seem to make sense to write to the pty in smaller chunks than we do to the
+net. I left the read-from-pty-write-to-net buffer at 24K and changed the
+read-from-net-write-to-pty buffer to 48 bytes.
+
+Upload using lsz worked but took about 3 minutes. Actually it didn't work.
+On the local end it seemed to work, but the file did not appear on the
+remote end. Tried this several times, each time with different results,
+adding more debugging each time. The problem this time was that the pty
+read could get EWOULDBLOCK. Changed the code to not treat this as an error,
+now Zmodem uploads are solid again except I never got EWOULDBLOCK again
+either, even though I repeated the same upload about 1000 times (with
+throughput of over 2MBps even with debugging on), so the test for it has
+not been exercised.
+
+OK, uploads still work. Back to downloading... The very first pty read
+gets 0 bytes, followed by the fork test that shows that it exited with
+exit status 2.
+
+Next we try starting sz with some different options on the far end:
+
+ -q: quiet (no messages):
+ for some reason this gets totally stuck.
+ it looks as if this option is misdocumented;
+ sz seems to be sending the letter C (as in Xmodem 1K or whatever)
+
+ -e: escape (all control chars):
+ first attempt to read pty finds the process gone with exit status 2.
+
+ -k: send 1k blocks:
+ this one didn't stop immediately. It reads 48 bytes from net, writes
+ 48 to the pty with no error. Then reads 21 bytes from the pty, writes
+ them to the net OK. Then reads 48 bytes from net, writes them to pty OK,
+ reads 21 from pty, writes to net OK, etc etc... It appears to have
+ worked but (final read from pty returned 0, fork test showed lrz exited
+ with status 0), but only 754 bytes were received from the net when the
+ file is 420K...
+
+Well this only goes to show that the faster we shove stuff into the pty, the
+worse it gets. Zmodem downloads won't work unless we can make the pty
+transparent and flow-controlled. So to summarize today's developments:
+
+ . separated in/out buffer sizes
+ . handled EWOULDBLOCK
+ . found out that sz options don't help much
+
+11 Jan 2007.
+
+Next day. This has got to be the most delicate code ever, it's like
+Whack-A-Mole, fix A and B pops up. Even without touching it, something that
+worked perfectly a 2:00 doesn't work at all an hour later. Maybe I could
+have used pipes instead of ptys, but pipes have problems of their own.
+There has to be a way to do this. The telnet server, the SSH server, etc --
+they all run on ptys, and we can upload files to them with Kermit. Why?
+Because Kermit puts its terminal into all the right modes using the
+time-honored methods of ttpkt() and ttvt(). Perhaps all we need is a copy
+of ttpkt() that operates on the pty.
+
+On that theory, let's go back to Kermit as the external protocol.
+It's important to suppress all messages and displays. With that,
+uploads work fine, no hitches.
+
+Downloads: We fail right away. The debug log shows the Kermit program that
+we are starting in the pty says:
+
+ "" - Invalid command-line option, type "kermit -h" for help.
+
+But of course we are not giving it an invalid command-line option.
+Switching to gkermit for the external protocol, now we see that no matter
+command-line options we use, we read 0d 0d 0a from the pty and then the
+next time we go to read from the pty we get 0 bytes and waitpid() says the
+program has exited with status 1.
+
+Why should downloading be different from uploading? ttptycmd has no idea,
+it does everything the same. The only difference would seem to be which
+side sends first, but even that tends to get washed out by each program's
+startup messages.
+
+Downloading with Kermit worked 2 days ago, what's different now? The buffer
+sizes. Putting the net-to-pty back up to 24K (from 48 bytes)... Now it
+works again.
+
+Conclusion: Kermit conditions the pty correctly, Zmodem does not. Therefore
+ttruncmd() must duplicate what ttpkt() does.
+
+Or not. Because rz works fine on ssh/telnet ptys too. But not on our pty.
+lrz exits immediately with status code 2 = 01000 but there are no clues in
+the lrz.c source code, I don't even see this exit status set anywhere.
+Unredirecting stderr, I see that the error is "lrz: garbage on command line".
+
+Why do both Kermit and Zmodem sometimes think they are receiving an invalid
+command line? If I could capture the garbage...
+
+Side trip #1: ("pty.log",O_WRONLY) gives "no such file or directory".
+Changed this to ("pty.log",O_CREAT,0644) and now it doesn't get an error,
+and it creates the file, but not with 0644 permissions, and with nothing
+written in it. How come nothing works?
+
+Fine, the debug log shows that ttptycmd() receives the correct string
+(e.g. "lrz -v"). It passes it to do_pty() correctly, and do_pty() passes it
+to exec_cmd(), which runs cksplit() on it, coming up (in this case) with
+"lrz" and "-v", which is right, and then:
+
+ args = q->a_head + 1;
+ execvp(args[0],args);
+
+execvp() wants the args array to have a null element at the end. cksplit()
+does indeed do that, or at least the code is there. Added code to exec_cmd()
+to verify the argument list and that it is null-terminated. So far it is.
+
+Anyway, we have traffic between the Zmodem partners, but no joy.
+Commenting out the bit that redirects stderr, now I can see it on my screen
+in real time:
+
+ lrz waiting to receive.Retry 0: Bad CRC
+ Retry 0: Got ERROR
+ Retry 0: TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: TIMEOUT
+
+etc etc, forever. Trying sz -e on the far end, I get:
+
+ Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ ...
+ Retry 0: Got ERROR
+ Retry 0: Bad CRC
+ Retry 0: Got ERROR
+ Retry 0: Got ERROR
+ lrz: xxufio.c removed.
+
+So apparently it's not a matter of escaping. Trying some other stuff, I
+caught the command-line problem in the act:
+
+ lrz: garbage on commandline
+ Try `lrz --help' for more information.
+
+Debug log shows:
+
+ cksplit result[lrz]=1
+ cksplit result[-v]=2
+ exec_cmd arg[lrz]=0
+ exec_cmd arg[-v]=1
+ exec_cmd arg[]=2
+
+An empty string at the end instead of a null pointer. I really do not see
+any way that could happen, but rather than dig into cksplit() again after
+all these years I added a test for this in exec_cmd(), which, of course
+after adding it, never encountered this behavior again.
+
+Fiddled with pty buffer size again. Made it 512 bytes instead of 24K.
+Zmodem downloads are the same (Rety 0: TIMEOUT, over and over). But I don't
+see what the problem is -- every time we receive n bytes from the net, we
+write n bytes successfully to the pty and there are no errors. But it also
+looks like the remote sender is sending the file header over and over
+because it's not receiving an acknowledgment. If we're not losing data,
+then maybe it's a transparency problem.
+
+Tried uncommenting the TIOCblah stuff I commented out before. Now instead
+of only timeouts I get:
+
+ lrz waiting to receive.Retry 0: Bad CRC
+ Retry 0: Got ERROR
+ Retry 0: Bad CRC
+ Retry 0: Got ERROR
+ Retry 0: Bad CRC
+ Retry 0: Got ERROR
+ Retry 0: TIMEOUT
+
+which is odd because the TIOCREMOTE ioctl failed with errno 14, EFAULT,
+bad address, which should indicate it had no effect. We're still receiving
+data from the remote in tiny chunks (from 12 to 65 bytes), apparently the
+same stuff (file header), and writing them to the pty successfully but
+nothing...
+
+Looked at cloning ttpkt() for the pty, but these stupid routines use global
+tty mode structs so it's not going to be easy.
+
+Well, we got exactly nowhere today, but I think I'll leave stderr as it is
+so users will see some feedback; no reason not to.
+
+WHY DO KERMIT DOWNLOADS WORK AND ZMODEM NOT?
+
+Is it 8-bit transparency? Up til now I've been testing with text files.
+If I try to download a binary what happens? Fails after 99 seconds. Packet
+log from the far end shows that as soon as the first packet containing 8-bit
+data is sent, everything stops. At least I got one of these:
+
+ 17:23:56.475 exec_cmd arg[gkermit]=0
+ 17:23:56.475 exec_cmd arg[-qr]=1
+ 17:23:56.475 exec_cmd arg[]=2
+ 17:23:56.475 exec_cmd SUBSTITUTING NULL=2 <-- the code I just added
+
+Doing this again shows the same thing on the near end. All the 7-bit-only
+packets are sent and acknowledged OK. Three 8-bit data packets arrive and
+nothing else happens after that. This is with G-Kermit.
+
+The same thing happens with C-Kermit receiving. But if I change C-Kermit's
+.kermrc to turn off streaming and use a short packet length:
+
+The transfer works, even though it's sending 8-bit bytes. So the problem is
+not 8-bit data after all, per se. Facts:
+
+ . Kermit can receive streaming transfers of 7-bit files.
+ . Kermit can not receive streaming transfers of 8-bit files.
+ . Kermit can receive nonstreaming transfers of 8-bit files with short packets.
+ . Kermit can receive nonstreaming transfers of 8-bit files with 1K packets.
+ . Kermit can receive nonstreaming transfers of 8-bit files with 4K packets.
+
+So it's the combination of streaming and 8-bit data? 12 Jan 2007.
+
+As a test I made a new routine pty_make_raw() that does cfmakeraw() (a
+nonportable "POSIX-like" function known to be used on ptys in applications
+that do approximately what we're attempting). Results:
+
+ Solaris: errno 25 - inappropriate ioctl for device.
+
+This happens even when we try to get the terminal modes with tcgetattr(),
+which is completely nuts. We pass it the file descriptor of the pty master,
+which is supposed to work. But in Mac OS X, there are no errors. But
+downloads still don't work; lots of errors but the pattern is different.
+Using a very small buffer:
+
+ Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Bad CRC
+ Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: TIMEOUT
+ Retry 0: Got ERROR
+ Retry 0: TIMEOUT
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Bad CRC
+
+Using a bigger buffer:
+
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ (several screensful)
+
+Various other combinations... Nothing seems to work.
+
+Insight: telnetd does exactly what we want to do, sort of.
+But it uses TIOCPKT, so every time it reads from pty, it receives
+one control byte and then the data bytes, which would complicate our
+buffering scheme considerably. Anyway the TIOCPKT ioctl() fails on
+Mac OS X with 14 "Bad address".
+
+Also see: snoopserver.c (found in Google). It seems to do things in a
+slightly different way -- it sets stdout to raw and then dups it to the
+slave side of the pty?
+
+Maybe it's a mistake to use the ckupty.c routines. They are designed for
+creating and accessing an interactive session. Maybe just copy one of the
+other programs.
+
+18 Jan 2007. Tried going back to blocking rather than nonblocking reads
+to see if it would make a difference, after all the other changes. Nope.
+OK, let's look at some of these other programs...
+
+snoopserver.c. I don't know exactly what this is or where it's from or what
+platform it runs on and there are no comments to speak of, but it does
+approximately what ttptycmd() does. To get a pty it uses openpty():
+
+ if (openpty(&pty, &tty, NULL, NULL, NULL) == -1)
+
+then creates a fork. In the fork, it closes the pty (master) and
+manipulates the modes of the tty (slave), dups tty to be stdio, and then
+doex execv() on the command. Meanwhile the upper fork closes the tty
+(slave), gets the attributes of stdin, using atexit() to have them
+automatically restored on exit. Then it sets stdin to raw mode and enters
+the select() loop on stdin, the pty master, and the net. It uses regular
+blocking reads. It does not use TIOCPKT or anything like it.
+
+openpty() is supported on: Linux, Mac OS X, NetBSD, FreeBSD, ...
+openpty() is NOT supported on: Solaris, HP-UX, ...
+
+ 1. Try copying the pty code, but keep everything else the same.
+
+I did this; it compiles and starts OK, upper fork (ttptycmd) debug log shows
+no errors, but nothing happens. Logs show that the Kermit program that is
+started in the subfork seems to die as soon as it reaches eof on its init
+file. The good news, at least, is that select() doesn't report report that
+the pty is ready to be read. Clearly the file descriptors aren't being
+assigned as expected, or as before.
+
+In ckupty.c getptyslave() dup2's the slave fd to 0 and 1. The new code
+does exactly the same thing. Debug log makes it look like the forked kermit
+is not receiving its command line. But now I'm not even sure that the
+forked kermit started at all. ps from another terminal doesn't show it.
+
+19 Jan 2007: Noticed that in snoopserver, the select() calls use standard
+input and output file descriptors, rather than the pty master. Made that
+change... In doing that I had to look at every file descriptor in every
+line of code and discovered a couple mistakes, fixed them, put back the
+original code but with the fixes, tried it, but no change; can upload OK but
+still can't download with Zmodem without lots of errors and ultimate
+failure. Going back to the alternative version and trying to get the the
+file descriptors sorted out, now it appears that the external Kermit program
+never even starts in the lower fork. After a bit more fiddling I sort that
+out, but now when the lower Kermit program goes to open "/dev/tty" it gets
+errno 6 "Device not configured". Forcing it to use stdio with "-l 0", it
+gets past this and actually sends its first packet. But the Kermit on top
+reads nothing from the pty.
+
+Next, I change the pty fd from STDIN_FILENO and STDOUT_FILENO to slavefd.
+No difference. Next I comment out the dup2() calls. This time I get some
+action. The transfer starts, but only one packet comes. Log shows that
+the lower Kermit sends its S packet. The upper Kermit receives the ACK
+but the lower Kermit never gets it. The write to the pty succeeds, no
+error. Different combinations give different results. If write to master
+and read from the slave, I get packets in both directions but tons of
+errors.... This happens only if I comment out the dup2()'s.
+
+25 Jan 2007: After leaving it sit for a while, and realizing that what I'm
+trying to do has to be possible because so much other software does the same
+thing (e.g. Telnet servers), I put things back to how they were originally
+-- the upper fork (Kermit) uses the master and the lower fork the slave.
+The upper fork puts the master in raw mode, the lower fork puts the slave in
+raw mode. The lower fork dup2's the slave fd to stdin/out. Send file in
+remote mode using external Kermit: works OK but select() times out at the
+end. This means that the self-contained pty code in ttptycmd() is sorted
+out -- all the file descriptors go to the right place, etc, and now we can
+use this routine as a testbed, rather than the original ckupty.c-based one.
+
+But send with lsz, csz, and regular rz: Nothing happens, times out after 0
+bytes of i/o. Once again, Kermit works, Zmodem doesn't. The reason for
+running Zmodem in a pty is so its i/o will work as it does on a terminal,
+no matter how it may fiddle the file descriptors. So why don't we see a
+single byte come out?
+
+Commenting out pty_make_raw(), I get a successful Zmodem send using lsz.
+csz manages to get the filename across, but then gets stuck. regular sz, on
+the other hand, works perfectly. Testing csz by itself (not under Kermit),
+I see it fails in exactly the same way ("Got phony ZEOF", etc). OK, forget
+crzsz.
+
+OK, let's move to local mode over a Kerberized Telnet connection...
+Uploading (sending) with external Kermit protocol... works.
+Downloading (receiving) with external Kermit protocol... works.
+Uploading with sz... works.
+Downloading with lrz... Gets tons of errors and fails.
+
+Running pty_make_raw() on the slave but not on the master: no difference.
+Running pty_make_raw() on the master but not on the slave: no difference.
+
+Back where we started... Either:
+
+ . Zmodem is overdriving the pty, no matter what modes we put it in.
+ . It's a transparency problem.
+
+Theoretically we should be able to test these by using different sz switches:
+ -q: quiet (should always use this)
+ -e: escape all control characters
+ -B n: Buffer n bytes (rather than whole file)
+ -L n: Packet length
+ -l n: Frame length (>= packet length)
+ -w n: Window size
+ -4: 4K blocksize (doesn't help)
+
+-q by itself doesn't help.
+-q -e, this one worked but still got about 100 errors and was very slow.
+-q -e -l 200 -L 100, failed fast and bad.
+-q -e -w 1. Failed quickly.
+-q -e -w 1 -B 100. Eventually failed.
+-q -w 1, Eventually failed.
+-q -l 1024, this gets much more errors, definitely need -e.
+-q -e -l 1024, got pretty far before failing.
+-q -e -w 1 -l 1024, also got pretty far before failing.
+-q -e, this one got farthest of all, about 48K, before getting errors.
+
+In the latter combinations that work somewhat better, we always get up to
+16K, or 32K, or 48K, before the errors start coming out and piling up.
+Sometimes the errors are recoverable and we receive as much as 300K
+successfully before giving up.
+
+Now that we have data flowing pretty well (but not well enough), tried
+reinstating pty_make_raw(), but it hurt more than helped.
+
+As a sanity check, I tried transferring from the same host over the same
+kind of connection (Kerberized Telnet) directly to K95's built-in Zmodem
+protocol, and that worked fine. So the problem is definitely in the pty.
+Or more precisely, where Kermit writes incoming net data to the pty master.
+
+26 Jan 2007: Tried changing the size of the net-to-pty buffer from 24K to
+1K. Result: total failure. Set both buffers to 1K. Still total failure.
+Set both to 4K: now we get about 45K of data, then failure. Put them both
+back to 24K, still fails totally -- the same code that worked pretty well
+yesterday. Actually, no downloads work, not even Kermit, not even of
+text files.
+
+27 Jan 2007: Since I have not been able to find a way to make ptys work for
+this, I made a third copy of this routine, this time using pipes instead of
+ptys. The disadvantage here is that if the external protocol does not use
+stdio, the pipes won't work, but one thing a time...
+
+Inferior Kermit starts in lower fork, but when it tries to send its first
+packet it gets errno=9 EBADF, Bad File Descriptor. Substituting G-Kermit as
+the external protocol, which is simpler, reveals that the problem is that
+the external protocol gets errors when it tries to manipulate the its stdio
+file descriptors with ioctls, etc; these are not valid for a pipe. The pipe
+mechanism itself works. If I take out the test for ttpkt() failing in
+gkermit, the file transfer works OK. Trying Zmodem... Sending works OK;
+receiving works a lot better than with ptys (it got 360K into the file
+before failing). Making the buffers smaller, doesn't help.
+
+I'm starting to wonder if the problem might be in my buffering code, rather
+than in the pty or pipe interface... Try making a version that does
+single-character reads and writes.
+
+This one reads the first packet from the lower Kermit and sends it. It is
+recognized by the other Kermit, which sends an ACK. We see the ^A of the
+ACK, but then select() times out on the next character -- OF COURSE: because
+at a lower level, it has already been read. We have to check the myread
+buffer, and then call select() only if it's empty. Making this change:
+
+ . SEND with G-Kermit works (but very slowly).
+ . SEND with lsz works but gets a lot of errors, eventually succeeds.
+
+Let's work our way back... With the same changes to the buffered pipe version:
+
+ . SEND with G-Kermit/streaming works (fast).
+ . SEND with lsz works too (fast), but we get gubbish at the end.
+ . RECEIVE with Kermit fails because "/dev/tty is not a terminal device".
+ . RECEIVE with rsz... lots of errors ("garbage count exceeded") but succeeded.
+
+But maybe now we're seeing pipe artifacts, so going back one more step to
+the version that gets its own pty and starts its own fork:
+
+ . SEND with G-Kermit/Streaming works (fast) but select() times out at the end.
+
+Another breakthrough: Moved the write pieces to below the read pieces. This
+is what was preventing the buffer reset code from working -- with the writes
+done before the reads, we never catch up and can never reset the buffers.
+
+ . SEND with G-Kermit/streaming works (fast) (but there's a pause at the end)
+ . SEND with lsz works (fast) (but there's a pause at the end)
+ . RECEIVE with rsz... lots of errors ("garbage count exceeded") and fails.
+ . RECEIVE with Kermit -- nothing happens (it thinks it succeeded), then we
+ reconnect, terminal sees S packet and goes into autodownload
+
+From the log it looks like ttpkt() fails in the lower Kermit. Switching
+this with the hacked G-Kermit... it gets "transmission error on reliable
+link". Tried again with real Kermit below, this time with "-l 0" and not
+streaming. This was actually working, but slowly, I don't see any NAKs in
+the packet log, but then select() timed out.
+
+28 Jan 2007: Restored both the calls to pty_make_raw():
+
+ . SEND with C-Kermit streaming works, but slow (54Kcps)
+ . Ditto, but with debugging off -- hangs forever.
+ . Ditto, but using G-Kermit instead of C-Kermit -- also hangs forever.
+
+Backed off on calling pty_make_raw(). Same thing.
+Reduced size of net-to-pty buffer. Same thing.
+
+15 Feb 2007... Decided to give up on this and publish it as is, in hopes
+that somebody with more experience with ptys can make it work, because I'm
+just going in circles. So today I just have to get the code into shape so
+people could choose among the three alternative routines. The second one,
+yttyptycmd(), is the one that uses openpty(), which is not portable, so it
+can be enabled only for Mac OS X, NetBSD, FreeBSD, and Linux, or by also
+defining HAVE_OPENPTY at compile time. Anyway, if you build Kermit in the
+normal way, you get the regular behavior -- ttruncmd() is used to execute
+external protocols. If you build it with -DXTTPTYCMD, you get the first
+version of ttptycmd(); with -DYTTPTYCMD the second, and with -DZTTPTYCMD the
+third.
+
+(Then some interruptions, then...)
+
+From Jeff, fix hostname comparison in X.509 certificate checking to work
+right in the case of names that contain no periods. dNSName_cmp(): cl_ssl.c,
+21 Feb 2007.
+
+John Dunlap noticed some strange behavior when transferring files between
+home base and the EM-APEX oceanographic floats via satellite... long story,
+but every so often the transfer would get stuck for a long time, and it
+happened only when C-Kermit was sending a file and received two or more
+packets (Ack or Nak) back to back from the float. Years ago I added some
+lookahead code to ttinl() to clear the input buffer of any interpacket junk
+so that, in the windowing case, we wouldn't be tricked next time around into
+thinking a packet was waiting to be read when there wasn't. The code, which
+has been there for a while, was a bit fractured; luckily, it would be
+executed only when the debug log was active so it didn't have much effect.
+The problem was that if the SOP came immediately after the EOP, it could be
+missed because the loop read the next character before checking the current
+one. Fixed by rearranging the loop. Also I changed it so it would execute
+in all cases, not only when the debug log was active. Also, cleaned up a
+bunch of confusing #ifdefs and removed some chunks that had been commented
+out for years, decades maybe. ttinl(): ckutio.c, 21-22 Feb 2007.
+
+Added NOW keyword info to HELP DATE, plus a tip about how to convert to UTC;
+suggested by Arthur Marsh. ckuus2.c, 22 Feb 2007.
+
+When an FTP client sends NLST to the server and no matching files are found,
+the server is supposed to respond with an error message on the control
+channel and nothing on the data channel. However it seems that at least one
+server sends the error message back on the data channel, as if it were a
+filename ("/bin/ls: blah: No such file or directory"), and on the control
+channel there is no error indication ("226 ASCII Transfer complete"). At
+this point remote_files() has a listfile and, if a match pattern was given,
+it looks through list to see if any of the lines match the given filename,
+e.g. "blah". This makes FTP CHECK give false positives. The problem
+(diagnosed by Jeff) is that the match pattern was not given in this case, so
+it takes some random default action, resulting in the spurious success
+return. Fixed by using the user's string as the pattern. Not tested,
+however, since I don't have access to a server that behaves this way.
+ckcftp.c, 22 Feb 2007.
+
+If an external-protocol file transfer fails, don't print Kermit-specific
+hints. ckuus5.c, 22 Feb 2007.
+
+One more time with ttinl(). Got rid of the "csave" junk, which never could
+have worked (which is no doubt why it was in a debugging section). The
+problem was that saving the beginning of the next packet locally did not
+synchronize with the buffer clearing (ttflui()) done at a higher level,
+between calls to ttinl(). So now, the lookahead code, if it finds the
+beginning an as-yet unread packet, puts it back at the head of the input
+queue. This way, if the protocol engine clears the input buffer, it will
+get the whole packet, not just the part after the SOH. ckutio.c, 24 Feb 2007.
+
+From Steven M Schweda, Saint Paul, MN: adaptation of large file support to
+VMS (it was already possible to transfer large files in VMS C-Kermit but the
+file-transfer display and statistics were wrong). And a minimal adaptation
+of the FTP client to VMS -- no RMS, no special VMS file stuff, Stream_LF and
+binary files only, developed and tested only with UCX. SSL/TLS is
+supported. The source-code changes are minimal; most have nothing to do
+with VMS, but with header files, prototypes, and data types (e.g. ftp_port
+int rather than short, various signed/unsigned conflicts) to shut up
+compiler warnings. Some of these could be dangerous in terms of
+portability; I've marked them with /* SMS 2007/02/15 */. ckcfns.c,
+ckcnet.h, ck_ssl.h, ckuus3.c, ckuus4.c, ckvfio.c, ckcftp.c, ckvker.mms
+(which was rewritten to actually reflect the source module dependencies),
+ckvker.com (also heavily modified). ckvker.com (the "makefile" for VMS
+C-Kermit) now includes "F" and "I" option flags for the large File and
+Internal ftp features, plus better handling of Vax/Alpha/IA64 distinction.
+26 Feb 2007.
+
+Changed NetBSD targets to include -DHAVE_OPENPTY and -lutil, so they
+can use openpty(). makefile, 26 Feb 2007.
+
+Built on Solaris without and with SSL OK.
+Built on NetBSD with Kerberos 5, OK.
+Built on Mac OS X 10.4, regular version, OK.
+Built on Mac OS X 10.4 with SSL and Kerberos 5, OK.
+
+On VMS 7.2-1/Alpha with MultiNet 4.4A-X...
+
+'CC' 'CCOPT' KSP:ckuus3
+%DCL-W-TKNOVF, command element is too long - shorten
+ \CKUUS4.OBJ "'CC' 'CCOPT' KSP:ckuus4" "KSP:ckuus4.c KSP:ckcsym.h KSP:ckcdeb.h
+ KSP:ckclib.h" "KSP:ckcasc.h KSP:ckcker.h KSP:ckcnet.h KSP:ckvioc.h"
+"KSP:ckctel.h KSP:ckuusr.h KSP:ckucmd.h KSP:ckuver.h" "KSP:ckcxla.h
+ KSP:ckuxla.h KSP:ckcuni.h KSP:ckuath.h"
+
+The new rule for ckuus4.c was too long. I removed one file from the
+dependency list (ckcxla.h, which will probably never change again) and that
+made it OK. Built Nonet and Net versions OK, but this is without the new
+stuff.
+
+"make f" (large-file support) on VMS 7.2-1...
+'CC' 'CCOPT' KSP:ckuus4
+ if (CKFSEEK(fp,(CK_OFF_T)j,SEEK_CUR) != 0) {
+........................^
+%CC-I-IMPLICITFUNC, In this statement, the identifier "fseeko" is implicitly
+declared as a function.
+
+Ditto for ftello and fseeko in various other places, and then fseeko and
+ftello come up up undefined at link time.
+
+The rule for ckcftp in "make i" (Internal FTP support) had the same problem.
+I removed ckcxla.h from its dependency list too, but "utime" comes up
+undeclared at compile time and undefined at link time.
+
+Verdict: neither one of the two new features can be used in VMS 7.2 or
+earlier, but the code still builds OK if you don't ask for them.
+
+VMS 8.3 on IA64... Can't build anything:
+%MMS-F-BADTARG, Specified target (WERMIT) does not exist in description file
+
+27 Feb 2007: Changed CKVKER.COM to keep all its dependencies but use a
+shorter logical name (Steven M Schweda). The problem on VMS 8.3 is that MMS
+now supports case-sensitive file systems, and so it can't find anything.
+Workaround: bypass MMS (include "m" in P1). With this, "@ckvker.com ifm"
+builds OK on HP Testdrive, but I can't test the new features since outbound
+connections are not allowed there. As for fseeko(), ftello(), and utime(),
+they simply are not available prior to VMS 7.3. It would probably be a good
+idea to test for this in CKVKER.COM, but actually it is possible to install
+newer C's and CRTLs on older VMS versions, so don't stand in their way.
+
+28 Feb 2007: With additional changes from SMS, and then some further
+adjustments, I was able to build the FTP version on VMS 7.2-1. First I
+tested it with GET of a binary file, but it transferred it in text mode.
+After a few more attempts with PUT and GET, it crashed with "floating/decimal
+divide by zero" in ckscreen, ckuusx.c line 27859. Of course, that's the
+listing line, not the source line, and I don't have a listing.
+
+To get a listing, I deleted CKUUSX.OBJ and then did:
+
+ $ make i "" "" "/LIST"
+
+Surprisingly, it recompiled everything.
+
+Anyway, the divide by zero happened in a section of code where the divisor
+was not checked, but it was a section of code we should not have been
+executing at all, since the file-transfer display was fullscreen, and this
+was in the "brief" section. Anyway, I added the needed check. Again, it
+recompiles everything. Maybe there's no MMS on grumpy -- right, there isn't.
+
+ANYWAY... Try to GET a binary file like this:
+
+ binary
+ ---> TYPE I
+ 200 Type set to I.
+ get gkermit
+ ---> TYPE A
+ 200 Type set to A.
+ ---> SIZE gkermit
+ 550 gkermit: file too large for SIZE.
+ GET gkermit (text) (-1 bytes)---> TYPE A
+
+Anyway... "get /binary gkermit" downloads it, seemingly correctly (the byte
+count is right).
+
+But "put /binary gkermit.;1" results in a 0-length GKERMIT file being sent.
+Here's the debug log:
+
+FTP PUT gnfile[DISK$MSA4:[C.FDC.NET]gkermit.;1]=1
+ftp putfile flg[DISK$MSA4:[C.FDC.NET]gkermit.;1]=0
+zltor fncnv[DISK$MSA4:[C.FDC.NET]gkermit.;1]=-1
+FTP PUT nzltor[GKERMIT]
+zfnqfp 1[DISK$MSA4:[C.FDC.NET]gkermit.;1]=675
+zfnqfp 2[DISK$MSA4:[C.FDC.NET]GKERMIT.;1]=31
+zfnqfp 3[DISK$MSA4:[C.FDC.NET]GKERMIT.;1]=31
+zrelnam result 2[gkermit.;1]
+ftp sendrequest restart[DISK$MSA4:[C.FDC.NET]gkermit.;1]=0
+openi name[DISK$MSA4:[C.FDC.NET]gkermit.;1]
+openi sndsrc=-1
+openi file number=2
+zopeni[DISK$MSA4:[C.FDC.NET]gkermit.;1]=2
+zopeni fp=0
+chkfn=2
+chkfn return=0
+zopeni fixed file format - using blk I/O
+zopeni binary flag at open=1
+zopeni ifile_bmode=1
+zopeni binary=1
+zopeni RMS operations completed ok
+openi zopeni 1[DISK$MSA4:[C.FDC.NET]gkermit.;1]=1
+ftpcmd cmd[PASV]
+FTP SENT [PASV]
+FTP RCVD [227 Entering Passive Mode (166,84,1,2,233,216)]
+initconn connect ok
+FTP SENT [STOR GKERMIT]
+FTP RCVD [150 Opening BINARY mode data connection for 'GKERMIT'.]
+doftpsend2 ftpcode[STOR]=150
+
+ Here is where the file is supposed to be read and sent but there is nothing
+ in the log between the "doftpsend2 ftpcode" line and the following line.
+
+rftimer status=1
+gftimer status 1=1
+gftimer status 2=1409025
+gftimer status 3=1409025
+gftimer s[0.000000]
+zclose n=2
+chkfn=2
+chkfn return=1
+zclose ZIFILE RMS operations completed ok
+ftp getreply lcs=0
+ftp getreply rcs=-1
+ftp getreply fc=0
+FTP RCVD [226 Transfer complete.]
+ftp getreply[226 Transfer complete.]=2
+doftpsend2 ok=0
+
+Everything is OK up until we go to send the file, then it behaves as if we
+got EOF immediately and so closes the data connection, and reports success;
+an empty copy of the file is left on the far end.
+
+Starting over with a text file.... PUT LOGIN.COM gets another divide by
+zero. But it happened in the code I just fixed, which is impossible. Swell.
+I recompiled everything and this time the upload worked, and downloading it
+again worked too.
+
+But a binary file still can't be uploaded. Trying to upload a text file
+after doing this seems to succeed (reports the right number of bytes sent)
+but nothing appears on the far side.
+
+SUMMARY:
+
+ To download a text file: GET /ASCII blah.txt (/ASCII is optional)
+ To download a binary file: GET /BINARY blah.bin (/BINARY is required)
+ To upload a text file: PUT blah.txt (/ASCII switch not needed)
+ To upload a binary file: PUT /BINARY blah.bin (doesn't work)
+
+Problems:
+ . Why doesn't BINARY "stick"?
+ . Why don't binary uploads work?
+
+The culprit seems to be the VMS version of zxin(). In the FTP module,
+zxin() is called only when sending binary files. In VMS, zxin() is just
+a front end for C-Library fread(). It probably needs to do just do
+zminchar() in a loop, like binary mode does, but calling zzout instead
+of xxout. Or something like that. FINISH THIS TOMORROW (debug on grumpy).
+
+2 Mar 2007: New logs from John Dunlap.
+
+ema-1636-log-0175.dbg: C-Kermit uploads a short file. It receives an Ack for
+the Z packet it just sent, tailgated by the beginning of a Nak for the next
+packet. When the second SOH is encountered, it is put back in the myread
+queue. Then the protocol engine, to which we return the Ack, says, "I have
+the packet I wanted so I'm clearing the buffer", and away go the first two
+bytes of the Nak from the myread buffer. Then, having just received the Ack
+of our Z packet, we send our B, and go to read the reply. in_chk finds 0 in
+the myread buffer (which we just cleared) and 6 waiting to be read from the
+comms channel, which it does, obtaining the remaining 6 bytes of the Nak,
+which it properly discards. (The reason this is proper is that, having
+already received the Ack for the last packet it sent, no Ack or Nak that
+arrives subsequently -- in the non-windowing case -- could possibly affect
+what it does next.) Since it hasn't yet found a good packet, it keeps
+reading, and now it finds the Ack to the B, as soon as it showed up. This
+is how it's supposed to work. No time was lost because of anything that
+C-Kermit did.
+
+ema-1636-log-0174.dbg: C-Kermit uploads a short file. It sends Data packet
+#3 and receives the Ack followed immediately by the first 3 bytes of a Nak
+for packet 4. When it gets to the SOH of the second packet, it pushes it
+back in the queue. Again, input() flushes the input buffer (myread queue
+and device buffer). C-Kermit detects EOF on the file it is sending, and
+sends the Z packet. Then it reads the remaining bytes of the Nak,
+which it discards, and then it finds the Ack for Z which comes in 23 seconds
+later, sends the B, gets a Nak for the B, sends the B again, gets the Ack
+for the B 4 seconds later, and done. Again, it's working right and losing
+no time.
+
+The question remains: what would happen if the protocol engine did not clear
+the buffer? Would ttinl() retrieve all packets in sequence even when they
+come back to back? To test this, I had C-Kermit send a file using 30 window
+slots and observed the stream of Acks in the reverse direction:
+
+ HEXDUMP: mygetbuf read (16 bytes)
+ 01 25 23 59 2f 52 39 0d | 01 25 24 59 2b 26 31 0d .%#Y/R9. .%$Y+&1.
+ ttinl lookahead my_count=9
+ ttinl lookahead removed=^M
+ ttinl lookahead pushback SOP=^A
+ HEXDUMP: ttinl got (7 bytes)
+ 01 25 23 59 2f 52 39 | .%#Y/R9
+ RECEIVE BUFFERS:
+ buffer inuse address length data type seq flag retries
+ 0 1 29212 9667 0 Y 3 0
+ [\ 1%#Y]
+ ...
+ in_chk my_count=8
+ ...
+ ttinl lookahead my_count=1
+ ttinl lookahead removed=^M
+ HEXDUMP: ttinl got (7 bytes)
+ 01 25 24 59 2b 26 31 | .%$Y+&1
+ RECEIVE BUFFERS:
+ buffer inuse address length data type seq flag retries
+ 0 1 29212 9667 0 Y 4 0
+ [\ 1%$Y]
+
+Here we can see that the pushed-back SOH was properly retrieved next time
+around, and the tailgating Ack was not lost. This scenario repeats itself
+212 times in the log, and there are no screwups.
+
+Back to VMS FTP... The problem with sending binary files is that zxin()
+uses C-Library fopen()/fread() instead of RMS, so it can't access the input
+file, which was opened by zopeni(), which is totally RMS-ified in VMS
+C-Kermit. For VMS only, I replaced the zxin() loop by a zminchar() loop
+like the one used in text mode, except without the character set or
+record-format conversion. Tested by PUT /BINARY of some binary files, which
+worked fine. ckcftp.c, 2 Mar 2007.
+
+Next problem... VMS C-Kermit ftp client sending binary files in text mode.
+Variation 1: We just send the file. zopeni() is supposed to detect that
+it's a binary file and automatically set the mode. And it does:
+
+ zopeni fixed file format - using blk I/O
+ zopeni binary flag at open=0
+ zopeni ifile_bmode=1
+ zopeni binary=0
+ zopeni autoswitch from TEXT to BINARY
+ zopeni RMS operations completed ok
+
+but then in gnfile():
+
+ if (!server || (server && ((whatru & WMI_FLAG) == 0)))
+ binary = gnf_binary; /* Restore prevailing transfer mode */
+
+Well, since VMS sets text/binary mode automatically when sending files,
+this code can (and should) be skipped in VMS. gnfile(): ckcfns.c, 2 Mar 2007.
+
+Variation 2: BINARY or SET FILE TYPE BINARY doesn't force binary mode. But
+SET FTP TYPE BINARY does. But BINARY does indeed call doftptyp() so what's
+the problem? We do indeed set ftp_typ to 1 but it gets reset somewhere
+before we call zopeni(). But then zopeni() puts it back to 1. Tracing
+through a transfer, it looks like all of this works right, it's only that
+the file transfer display says TEXT when the transfer is really in binary
+mode. This is because screen() is called before openi(). I wonder if we
+can call scrft() from the ftp module... No, that would be too easy. OK,
+sendrequest calls openi() and sets the file mode; putfile() calls
+screen(SCR_FN), which prints the transfer mode. But putfile calls
+sendrequest() after it puts up the screen that says the file type. So it
+looks like sendrequest() has to call screen(SCR_FN) again if it changes the
+file type. OK, that did it. ckuusx.c, ckcftp.c, 2 Mar 2007.
+
+The BINARY and TEXT (ASCII) commands do not inhibit automatic type switching
+in VMS. They don't in Unix either. They never have. Should they? I think
+so, otherwise what good are they? Plus we want the Kermit FTP client to
+behave like the others. I added code for this but it doesn't work, due to
+the layers and layers of text/binary detection and switching and
+if-this-but-then-if-that... Anyway, no harm done. The normal rule is:
+when you PUT a file, Kermit figures out on a per-file basis whether to use
+text or binary mode unless you include a /TEXT (/ASCII) or /BINARY switch
+in the PUT (or MPUT) command. ckuus[r3].c, ckcftp.c, 2 Mar 2007.
+
+Wed Mar 7 16:21:13 2007 WROTE SHORT TEST PROGRAM for ttruncmd (the openpty
+version) on Mac OS X. On dulce: ~/kermit/ttpty.c / ttpty.sh. It starts the
+external protocol in the lower fork. The command to run is a command-line
+argument. Sending and receiving files with Kermit works OK. But again, the
+standalone program totally fails when I use sz or lsz as the external
+protocol. So it looks like we can rule out any environmental effects of
+running the code inside C-Kermit.
+
+Mon Mar 12 16:52:20 2007: Put some effort into making ttpty.c more useful;
+added a debug log. Found that for some reason, at least on Mac OS X,
+select() always timed out at the the end. I added a SIGCHLD alarm and that
+seems to handle the fork exit condition very nicely. Now we can send (say)
+a 3MB file at good speed on Ethernet (1Mcps) considering the debugging, etc,
+and it terminates instantly. But when sending a file into ttptycmd (with
+"gkermit -r"), things go wrong at the end -- the Z packet is never
+acknowledged. This is reproducible. Maybe this is a good lead.... The log
+shows that select() timed out, even though the gkermit fork had not yet
+exited (or finished). It looks like gkermit sent the Ack, ttpty.c read it
+from the pty and sent it out the net:
+
+ 0003: read pty=8 <-- read Ack from pty
+ 0003: loop top have_pty=1
+ 0003: loop top have_net=1
+ 0003: FD_SET pty_in
+ 0003: FD_SET ttyfd in
+ 0003: FD_SET ttyfd out=8
+ 0003: nfds=5
+ 0003: select=1
+ 0003: FD_ISSET ttyfd out
+ 0003: write net=8 <-- send ack to net
+ 0003: loop top have_pty=1
+ 0003: loop top have_net=1
+ 0003: FD_SET pty_in
+ 0003: FD_SET ttyfd in
+ 0003: nfds=5
+ 0009: select=0
+ 0009: select timeout - have_pty=1
+
+But Ack never arrived. This is a streaming transfer. But nope, streaming
+is not the problem. If I disable streaming ("gkermit -Sr"), we hang in in
+the middle of sending the data. If I use small packets, we don't hang:
+1000 is OK, 2000 is not. In fact, the cutoff is 1024. OK, TBC...
+
+Wed 14 Mar 2007: Receiving a file thru ttpty "gkermit -e 1200 -Srd"
+produces a debug log that shows that gkermit gets a lot of EAGAIN errors
+when it tries to read from its stdin. In fact, it takes 6 tries (read()
+calls) to read the S packet (27 bytes). Then when the first data packet
+arrives (1200 bytes), read() never returns even one single byte. The
+timeout interval is 15 seconds and it times out repeatedly. Added a
+primitive hex dump to the ttpty debug log for each read/write (showing only
+the first 24 characters and the last character, so it fits on one line).
+Tried uploading a file. The S, F, and A packets (short) are received and
+Ack'd OK, but then ttpty select() times out, never receiving even one byte
+from the D packet. Clearly, when the pty driver receives a burst of > 1K
+bytes, stops working. As before, if I limit the packets to < 1K, it works
+fine.
+
+Can I send an 8-bit binary file? Nope. ttpty reads the binary data just
+fine from the net and writes it exactly as it was received to the pty, but
+the first time we write an 8-bit byte, we never hear back from the PTY
+again. But the log shows that when the initial 7-bit packets from the pty,
+it looks like the PTY is not in rawmode, because these packets end with ^J
+rather than ^M. Calling pty_make_raw() on the masterfd and slavefd
+explicitly, however, doesn't change anything. It doesn't matter if I do
+this in the lower fork or the upper fork. So maybe it's the actual
+semantics of pty_make_raw() that are wrong.
+
+Thu 15 Mar 2007: Went thru all the terminal mode flags in Mac OS X; didn't
+help. Changed hex dump to show whole packet. Put hex dump routine in a
+private copy of G-Kermit. Tried to transfer an 8-bit file, logging both
+ttpty and gkermit. Compared what ttpty received on stdin with what it sent
+to the pty (same) and what was received by G-Kermit (same). Then I realized
+that my little test program was not putting its controlling terminal into
+raw mode; when I did that, I could upload binary files (streaming, 2MB/sec).
+And with Zmodem too (with rz; lrz doesn't work for some reason). Looking
+back at the original in ckutio.c, I see that ttptycmd() never called
+ttpkt(). Maybe that was the trouble all along. (Yup, but maybe not the
+whole trouble.)
+
+Moving back to C-Kermit and the original ttptycmd() routine, adding the call
+to ttpkt(), and stripping out a lot of cruft, and moving the pty_make_raw()
+code to ckupty.c, Kermit uploads and downloads (streaming) work fine in
+Solaris. Zmodem sends a file, but then the transfer hangs at the very end,
+as if the signoff protocol were lost. This happens on Solaris. If I move
+back to Mac OS X, everything works just fine. Then, making a Kerberized
+connection from the Mac to NetBSD, I can send files from the Mac with both
+Zmodem and Kermit. Receiving... Kermit OK. Zmodem... Nope. "rz:
+Persistent CRC or other ERROR" (and created a 265MB debug.log!)
+
+Fri 16 Mar 2007: ttptycmd() was for sending files with Zmodem across
+encrypted connections. But it occurred to me that it's necessary for
+clear-text connections too; e.g. Telnet, where 0xff has to be doubled. Of
+course Zmodem doesn't do that itself, so there's no way Zmodem external
+protocol could work when executed over a Telnet connection, and in fact
+it doesn't. I wonder why I ever thought it did.
+
+Wed 21 Mar 2007: Back to where we left off a week ago. Trying C-Kermit's
+ttptycmd() on the Mac again, in remote mode:
+
+ . G-Kermit send txt (kst): OK 832Kcps
+ . G-Kermit recv txt (kr): OK 425Kcps
+ . G-Kermit send bin (ksb): OK 1000Kcps
+ . G-Kermit recv bin (kr): OK 188Kcps
+
+And Zmodem:
+
+ . sz txt (zst): OK 563Kcps
+ . sz bin (zsb): OK 714Kcps
+ . rz txt (zr): OK 863Kcps
+ . rz bin (zr): OK 198Kcps
+
+So in remote mode, everything works. Now let's try a clear-text Telnet
+connection...
+
+ . G-Kermit send txt (kst): OK 841Kcps
+ . G-Kermit recv txt (krt): OK 391Kcps
+ . G-Kermit send bin (ksb): OK 811Kcps
+ . G-Kermit recv bin (krb): OK 171Kcps
+
+And Zmodem over the same clear-text telnet connection:
+
+ . sz txt (zst): OK 91Kcps (*)
+
+Kermit is sending sz messages like "sz 3.73 1-30-03 finished." to the
+host, which tries to execute them, after the transfer is finished.
+Of course "sz" is a command, but:
+
+ sz: cannot open 3.73: No such file or directory
+ sz: cannot open 1-30-03: No such file or directory
+ sz: cannot open finished.: No such file or directory
+
+Did I lose that code that dis-redirects stderr when I went back to using the
+pty code from the ckupty module? No, it's there and it's being executed.
+Apparently the copy of sz I have is writing its "finished" message to stdout
+because "sz blah 2> /dev/null" does not suppress it. Starting again with
+lsz instead of sz:
+
+ . sz txt (lzst): OK 413Kcps
+ . sz bin (lzsb): OK FAILED (*)
+ . rz txt (lzrt): OK
+ . rz bin (lzrb): OK
+
+(*) Sigh. Using lsz, we get "garbage count exceeded" errors and eventual
+failure. But using regular sz, we get the extraneous message that starts
+sz on the far tend, and the resulting getty babble.
+
+But even without changing the code, it will work one minute, and then fail
+consistently the next. For example, I was able to send files with sz
+successfully over and over, but with the getty babble at the end. Then,
+after trying lsz and then going back to sz, every attempt at sending a file
+quits with "Got ZCAN". The difference has to be that Kermit always does at
+least some minimal encoding of C0/C1 control characters such NUL and DEL and
+IAC, and I doubt that Zmodem does.
+
+http://zssh.sourceforge.net/ says:
+
+ If file transfer is initiated but never completes (ie a line like :
+
+ Bytes Sent: 0/ 513 BPS:0 ETA 00:00 Retry 0: Got ZCAN
+
+ can be seen, but transfer never completes), chances are the pty/tty on one
+ of the systems are not 8-bit clean. (Linux is 8-bit clean, NetBSD is not).
+ Using the -e (escape) option of rz should solve this problem.
+
+It doesn't, at least not with lrz. And yes, the receiving end happens to be
+NetBSD. But it looks like the zssh people have been down this road too.
+
+But with rz and sz, it worked. Once. Twice. Three times. But of course,
+with the getty babble at the end. This can be taken care of by doing:
+
+ rz -eq ; cat > foo
+
+which puts "sz 3.73 1-30-03 finished" and any other messages in foo (but you
+have to type ^D to finish the cat). Using this method I was also able to
+send an 8K binary file that contained a test pattern of all 256 possible byte
+values. Then I tried a 3MB binary executable. All OK. So here we go again:
+
+ . sz txt (zst): OK
+ . sz bin (zsb): OK
+ . rz txt (zrt):
+ . rz bin (zrb):
+
+Downloading fails about halfway through a fairly large file. I tried an
+even bigger file, guaranteed to be 100% ASCII; same thing -- halfway
+through: "rz: Persistent CRC or other ERROR". But it worked with a smaller
+version of the same file (82K versus 2MB). Tried again with the bigger
+version, it failed in exactly the same way at exactly the same spot: byte
+number 1048320. But this is just ASCII text so it can't be a transparency
+problem. Substituting another plain ASCII file of the same size but totally
+different contents, it doesn't fail (2.36MB). Back to the previous file, it
+fails again, but in a different spot (832960). So it's not totally
+deterministic.
+
+To round things out, I tried downloading the binary test-pattern file; it's
+only 8K. This failed.
+
+ -4, --try-4k go up to 4K blocksize
+ -B, --bufsize N buffer N bytes (N==auto: buffer whole file)
+ -e, --escape escape all control characters (Z)
+ -E, --rename force receiver to rename files it already has
+ -L, --packetlen N limit subpacket length to N bytes (Z)
+ -l, --framelen N limit frame length to N bytes (l>=L) (Z)
+
+Tried again with "sz -L 256 -B 256 -4aeq". Doesn't change anything.
+
+NOTE: Mac OS X rz 3.73 1-30-03 does not support -e.
+NetBSD rz 0.12.20 does support -e.
+
+Thu 22 Mar 2007: It occurs to me that ttpkt() might still be a problem;
+maybe it's the network connection and not the pty that is not transparent
+enough. To test this theory I did "stty raw ; stty -a" and then copied all
+of the flag values into ttpkt in the BSD44ORPOSIX section:
+
+ . rz txt (zrt): OK (2.36MB file, worked 2 out of 3 times)
+ . rz bin (zrb): "rz: Persistent CRC or other ERROR"
+
+A little more fiddling with the flags and I got the 8K binary test pattern
+to SEEM to download OK (in the sense that rz gave a 0 return code) but the
+file itself was truncated, always at 224. If I changed the test pattern
+file to not include any bytes with value 224 (0xe0) or 255 (0xff), the
+download worked. So we have a transparency problem somewhere. The debug
+log shows that all byte values are being received from the network correctly
+so the problem has to occur when we try to feed them to the pty.
+
+But no amount of twiddling with the termios flags seems to let these
+characters pass through. Of course, since they are not in the C0 or C1
+control range, "sz -e" doesn't quote them (which it does by prefixing with
+Ctrl-X and then adding 0x40 to the byte value so (e.g.) NUL becomes ^X@.
+Note that 255 does not cause problems because it coincides with the IAC
+character; the remote Telnet server doubles outbound IACs, and Kermit's
+ttinc() undoubles them automatically (as the log shows).
+
+Trying to send a different file (a C-Kermit binary) shows that 255 is the
+real killer; the file is truncated where the first one appears (at about
+6K), even though some 224's precede it. Going back to the remote-mode test,
+I see the same thing happens with the binary test-pattern file, if I send it
+from K95 direct to rz-under-C-Kermit-in-remote-mode. So it has nothing to
+do with C-Kermit having a network connection. Yet if I send the same file
+direct from K95 to rz, it goes OK and the result is not truncated, so it's
+not Zmodem either. The data arrives to C-Kermit intact, so the failure is
+definitely in writing it to the rz process through the slave and master ptys.
+
+BUT if I send the same file from K95 to rz-under-ttpty, that works. What's
+the difference? Suppose I just transplant ttpty literally into C-Kermit...
+It makes no difference. When receiving the test-pattern, it truncates it
+in exactly the same place.
+
+Well, all this is on Mac OS X. What if I move it to a different platform?
+OK, building on Solaris and following the exact same procedure, ttptycmd()
+doesn't even use the network connection. I think that's because rzsz on
+Solaris is hardwired to use the controlling terminal and can't be
+redirected, even in a pty?
+
+Moved to NetBSD.
+
+ . sz txt (zst): Failed ("Got ZCAN")
+ . sz bin (zsb):
+ . rz txt (zrt): OK
+ . rz bin (zrb):
+
+Well, this is a big mess. Sending doesn't work (or sometimes it does but
+reports that it didn't). Receiving... well, actually it's the same thing;
+the file is completely transferred but then the final protocol handshake is
+lost. The local C-Kermit returns to its prompt, but rz is still running:
+
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Got TIMEOUT
+ Retry 0: TIMEOUT
+ Retry 0: Got TIMEOUT
+
+I don't see how that is even possible. Even after I exit from Kermit the
+messages keep coming, even though ps doesn't show the rz process anywhere.
+Looking at the code, I see a place where end_pty() was still commented out
+from the ttpty.c episode, I uncommented it. But still:
+
+ . sz txt (zst): Fails ("Got ZCAN")
+ . sz bin (zsb): Fails instantly (but with no diagnostic)
+ . rz txt (zrt): OK
+ . rz bin (zrb): Fails with tons of "Bad CRC", "Garbage Count exceeded"
+
+Conclusion for the day: I think this is hopeless. Even if I can get it to
+work somewhere, the results depend on the exact Zmodem software, how it uses
+stdin/out vs stderr versus getting its own nonredirectable file descriptor,
+versus the Zmodem version on the other end and which options are available
+on each, versus the pty and select() quirks on each platform, and on and on.
+It will be so hard to explain and to set up that nobody would ever use it.
+It would be better to just implement Zmodem internally.
+
+Fri 23 Mar 2007: Went back to the small test program, ttpty.c. Tried
+setting both the master and the slave pty to rawmode, even though I have
+never seen any other software that did this. I had it receive the binary
+test pattern file; it worked. I made a bigger test-pattern file, 3MB,
+containing single, double, and triple copies of each byte in byte order and
+in random order, this one was accepted too.
+
+So it would seem that the ckupty.c module is something to avoid after all.
+It's full of stuff I don't understand and probably should not undo. So
+changing C-Kermit's ttptycmd() to manage its own pty again, using openpty()
+(which is not portable), I got it all to work in remote mode: Kermit
+text/binary up/down and Zmodem text/binary up/down. But in local mode on
+the client side of a Telnet connection...
+
+ zst: OK, but we still get the getty babble at the end that starts sz.
+ zsb: OK, ditto. This is with the 3MB test-pattern file.
+ zrt: Not OK -- "Persistent CRC or other ERROR"
+ zrb: Not OK -- got the cutoff at 224 again "Persistent CRC or other ERROR"
+
+It's close. But actually this was still with USE_CKUPTY_C defined. When I
+undefined it, it was back to being totally broken. Start over. (Check the
+new cfmakeraw() code.)
+
+Tue 27 Mar 2007: Starting over. Back to ttpty.c. Let's verify, VERY
+CAREFULLY, that it really does work, using the most stressful of the four
+tests: sending the big (3.2768MB) binary test pattern from K95 into rz
+through ttpty, logging everything. ttpty definitely receives the big file
+smoothly with no errors or hiccups when I have it set to use the master side
+of the pty for i/o. The application program (Zmodem in this case) runs on
+the slave, and the network and/or control program communicates with the
+master. This implies that Zmodem controls the terminal modes of the slave,
+and ttpty should be concerned with those of the master. Doing it this way
+in ttpty confirms this.
+
+Fine. But if I tell ttpty to SEND a file with sz, nothing happens. Ditto
+with lsz. Select times out waiting for input from the pty. But if I
+manually tell K95 to RECEIVE /PROTOCOL:ZMODEM it works OK. Somehow sz's
+initial B000000 string is being swallowed somewhere, and it's waiting for
+a reply from the receiver. sigh... But "ttpty gkermit -s filename" works
+fine. What's the difference? It has nothing to do with stdout vs stderr;
+sz is not writing to stderr at all. Is it some timing thing between the
+forks? Aha. It's that I change the modes of the pty master in one fork
+while sz is already starting in the other fork.
+
+OK, good, now for the first time we have Kermit and Zmodem both able to
+upload and download a large worst-case binary test-pattern file... in
+remote mode. Now taking today's lessons and fitting them back into
+C-Kermit so I can try it local mode...
+
+Using G-Kermit as the external protocol, first in remote mode... All good:
+text/binary up/down. The "halting problem" is solved by SIGCHLD, which
+catches fork termination instantly and lets ttptycmd() know there is no more
+pty. Zmodem:
+
+ zst: OK
+ zsb: OK
+ zrt: OK
+ zrb: OK
+
+That's a first. Next, repeat in local mode, in which C-Kermit is the client
+and has made a Telnet connection to another host over a secure (Kerberos V)
+connection:
+
+ kst: OK zst: ...
+ ksb: OK
+ krt: OK
+ krb: OK
+
+It seems we can never end a day on a high note. Somehow I seem to have
+broken regular internal Kermit protocol transfers over encrypted connections
+-- the en/decryption engine loses sync. But they still work OK over a
+clear-text Telnet connection.
+
+Today's code in ~/80/dulce.tar (27 Mar 2007).
+
+Added makefile target solaris10g+openssl. Gathered all the standard CFLAGS
+for Solaris into cdcdeb.h so they don't have to be included in every single
+makefile target for Solaris. On local Solaris 10 host OpenSSL is in
+/opt/openssl-0.9.8e/. Tried the new makefile target, works OK. Also made
+solaris10+openssl for Sun CC, but couldn't test it because I can't find any
+Solaris 10 host that has Sun CC. Built with gcc at another site that has
+OpenSSL 0.9.8f-dev, all OK. ckcdeb.h, makefile, 24 Jun 2007.
+
+It occurs to me that Kermit transfers on secure connections might have been
+broken by the changes I made back in February to ttinl() for John Dunlap.
+Here, for the first time, we invoke myunrd() to push a byte back into the
+input queue, and there is also some funny business with "csave", which
+changed, and which an old comment notes that it has to be treated specially
+when encrypting. So it could be that the broken Kermit transfer has nothing
+to do with the work on external protocols, and that putting back the
+previous ttinl() will fix it. But now I can't seem to make a Kerberized
+connection from Panix to Panix, even though I can make one from Columbia to
+Panix. This means I have to build a Kerberized binary from the current
+source code on either Solaris or Mac OS X. Trying Solaris
+first... [~/solaris9k5/mk5.sh] This didn't work the first time due to
+undefined krb5_init_ets, which is referenced if MIT_CURRENT is not defined
+(it should be for Kerberos 5 1.05 and later and we have 1.42 here), tried
+again with -DMIT_CURRENT=1... Nope, that one totally blew up in ck_crp.c.
+Later, Jeff says krb5_init_ets is a no-op in Kerberos 1.4.x and later,
+so I added an #ifdef (NO_KRB5_INIT_ETS) for skipping it; now it builds and
+runs OK. ckuath.c, makefile, 9 Jul 2007.
+
+Meanwhile, using C-Kermit on Mac OS X, which makes the Kerberized connection
+just fine, but still has the problem transferring files over it. Packet log
+shows:
+
+ s-00-01-^A9 Sz/ @-#Y3~Z! z0___F"U1@A^M
+ r-00-01-^A9 Y~/ @-#Y3~^>J)0___J"U1@I
+ s-01-01-^A(!Fx.x)(V^M
+ r-xx-08-<timeout>
+ S-01-08-^A(!Fx.x)(V^M
+ r-xx-08-<timeout>
+ S-01-08-^A(!Fx.x)(V^M
+ r-xx-16-<timeout>
+
+Note that S packet is sent, received, and Ack'd OK. The F packet is sent but
+is never Ack'd. Tried this several times and noticed that it's just
+receiving that is screwed up, not sending. After ^C'ing out of the
+transfer, I can still type commands, and they are executed on the far end,
+but the results coming back are gibberish. Mon Jul 9 16:08:22 2007 (come
+back to this later... substitute Dev.27 ttinl for current one and see if
+the problem goes away, and if so, conditionalize the new code for clear-text
+connections).
+
+Built C-Kermit with Kerberos 5 on Solaris with a version of ckutio.c that
+uses the old ttinl() and transferred a file OK over a Kerberized connection.
+So now it's just a matter of reconciling the old and new ttinl. The easiest
+way to do this is to have new ttinl() chain to old ttinl() if the connection
+is encrypted, which is what I did and it works fine. At some point the two
+versions of ttinl() should be reconciled. ckutio.c, 12 Aug 2007.
+
+There was a function, islink(), used in only one place (ckuus6.c) that had
+the same name as a commonly used scalar variable, and it was missing a
+prototype. Changed its name to isalink() and added the prototype (Unix
+only), ckuus6.c, ckufio.c, ckcdeb.h. 12 Aug 2007.
+
+Revisiting the ASCII and BINARY top-level commands, which are supposed to
+be like in other FTP clients, but don't seem to have any effect. I added a
+new routine to the FTP module, doftpglobaltype(), that sets the global,
+sticky, permanent transfer mode (ASCII or BINARY) (TENEX could be added to
+if anybody asks). These commands (now that they work) are different from
+SET FTP TYPE { ASCII, BINARY }, which set the *default* transfer mode when
+automatic switching fails for a given file. ckuusr.c, ckcftp.c, 12 Aug 2007.
+ (notify: Matt <mlist@cmcflex.com>)
+
+Even though the code hasn't changed, suddenly we're getting:
+
+ "ckuusx.c", line 5682: warning: implicit function declaration: tgetent
+ "ckuusx.c", line 6183: warning: implicit function declaration: tgetstr
+ "ckuusx.c", line 6262: warning: implicit function declaration: tputs
+ "ckuusx.c", line 6266: warning: implicit function declaration: tgoto
+
+in ckuusx.c on Solaris 9. <curses.h> is still in /usr/include, dated 2002.
+A quick search shows the missing functions are hiding in <term.h>, which
+until now was included only in Linux. Added a USE_TERM_H clause. No, that
+doesn't help, the prototypes are not selected at compile time; there are
+#ifdefs in that file that skip over these prototypes. I had to put them in
+the code under #ifdef BUG999..#endif (I could have used a longer name like
+#ifdef ADD_PROTOTYPES_FOR_CURSES_FUNCTIONS, but that would not be portable).
+ckuusx.c, 12 Aug 2007.
+
+Also:
+
+ "ckuusx.c", line 9232: warning: implicit function declaration: creat
+
+This is called in the IKSD database code, used for getting a lockfile.
+creat() is a Unixism in code that is supposed to be portable. But IKSD only
+runs on Unix and Windows, so I assume the Windows C library has a creat()
+function. Anyway, suddenly the Solaris header files seem to have blocked
+whatever path previously existed to the creat() prototype (which is in
+<fcntl.h>), so I added an #include in the appropriate spot. ckuusx.c,
+12 Aug 2007.
+
+Kermit functions for converting the number base -- \fradix(), \fhexify(),
+\unfhexify() -- did not work with big numbers; ckradix() was missed in the
+CK_OFF_T conversion. Fixed in ckclib.c, 12 Aug 2007.
+
+Updated the help text for ASCII, BINARY, and SET FTP TYPE to clarify the
+semantics. ckuus2.c, ckcftp.c, 12 Aug 2007.
+
+Error messages were printed upon failure to open any of the four log file,
+even with SET QUIET ON. Fixed in ckuus4.c, 12 Aug 2007.
+
+Built OK on NetBSD 1.3_RC3. Tried to build secure version but the libraries
+had disappeared. 13 Aug 2007.
+
+Built OK on Mac OS X 10.4.9. Tried the secure version, macosx10.4+krb5+ssl.
+Here we get the usual pile of "pointer targets in passing argument 1 of
+(function name) differ in signedness", regarding security functions, but it
+built OK. 13 Aug 2007.
+
+Reconciling the two ttinl's... On encrypted connections myread() returns
+encrypted bytes; ttinl() has to decrypt them; it wasn't doing this in the
+lookahead section so I fixed it. The new code works on both encrypted and
+clear-text connections. I removed the chaining to oldttinl(), and
+oldttinl() itself. ckutio.c, 13 Aug 2007.
+
+ (Wouldn't it make more sense and be more efficient and less confusing
+ for myfillbuf() to do the decrypting?)
+
+When C-Kermit uses Zmodem as an external protocol, it doesn't seem to scan
+files before sending them to set text or binary mode appropriately. It's
+that external protocols bypass Kermit's whole "get next file" mechanism; the
+(possibly wild) filespec is simply passed to the external protocol program.
+Changing this would be a very big deal. But if only one file is being sent
+(the filespec is not wild) it's easy enough to check. I added this to the
+external protocols section of the protocol module. It can be overridden in
+any of the regular ways (/TEXT or /BINARY switch on SEND command, SET
+PATTERNS OFF, SET TRANSFER MODE MANUAL, etc). ckcpro.w, 13 Aug 2007.
+
+[FTP SEND /RECURSIVE]
+Peter Crowley reported a problem with FTP recursive uploads getting the
+directory tree wrong when the previous pathname was a left substring of the
+new pathname (e.g. foo/bar/ and foo/bar2/). The logic did not handle this
+case and created the bar2 directory as a subdirectory of bar, rather than as
+a parallel directory. Fixed in syncdir() and tested with various edge cases.
+ckcftp.c 14 Aug 2007.
+
+ notify <peter.crowley@alumni.utexas.net>
+
+Added CD messages to FTP BRIEF display to track the ups and downs of
+recursive uploads. ckcftp.c, 14 Aug 2007.
+
+The OUTPUT command gave a misleading error message ("Connection to xxx not
+open") when used on a serial port that was, indeed, open but was not
+presenting the Carrier signal, when CARRIER-WATCH was not OFF. Added a new
+message for this, and some others. ckuus5.c, 14 Aug 2007.
+
+Sending from the command line, e.g. kermit -s foo, did not give an
+informative error message if the file could not be found or opened. Fixed
+in ckuusy.c, 14 Aug 2007.
+
+OK, back to ttptycmd.... It seems that back on March 27th, I got everything
+working but I thought that there was still something wrong with it because
+an unrelated problem so I put it aside. The version of ttpty.c from that
+date worked OK, and it looks like I updated ckutio.c from it, but that
+version of ckutio.c was put aside. Since then I have been working on the
+ckutio.c version that was NOT put aside and so now I have to reconcile the
+two:
+
+ ~/80/ttypty/20070327/ckutio.c
+ ~/80/ckutio.c
+
+As a first cut I did this simply by replacing the contents of the #ifdef
+CK_REDIR section of the latter with that of the former. Of course in
+Solaris this comes up with openpty() implicitly declared at compile time and
+unresolved at link time. So the first task is to get HAVE_OPENPTY defined
+for platforms that have it and have the others use the ttruncmd(). For
+starters I put an #ifdef block in ckcdeb.h that defines HAVE_OPENPTY for
+Linux, FreeBSD, NetBSD, OpenBSD, and Mac OS X. Ones that don't have
+openpty() include AIX, HP-UX, and Solaris. Others like SCO I don't know but
+I doubt it. The real solution is to get the ckupty.c module to work but one
+thing at a time... This version is supposed work with secure builds on the
+openpty() platforms, and on the others like Solaris, if an external protocol
+is attempted on a secure (encrypted) connection, an error message is
+printed and the command fails. ckutio.c, 14 Aug 2007.
+
+How to test? Apparently I did all my testing on Panix before, and that's
+where all my Zmodem builds are, but now when I build a Kerberized version
+(which works if I do it on the right pool host), it won't make a local
+connection, and there is no other place I can connect to that has a
+Kerberized Telnet server. I can, however, connect to Panix from here, using
+the same code, but on Mac OS X...
+
+Slight detour: Got access to AIX again (5.3.0.0). Picky compiler, some
+things needed fixing.... Also it says "1506-507 (W) No licenses available.
+Contact your program supplier to add additional users. Compilation will
+proceed shortly" and of course it goes kind of slow. For some reason, I
+can't do streaming transfers into AIX over a local network (to its SSH
+server), but windowed transfers are OK. Anyway, noting that we've been
+using the same basic makefile target since AIX 4.2, changing nothing but the
+version herald, I made a new target, simply "aix", that picks up the AIX
+version automatically and sets the herald from it. Ditto for aix+openssl,
+but on this host requires setting SSLINC and SSLLIB to /opt/ssl/include and
+/opt/ssl/lib. Also the make program here was extremely sensitive to spacing
+so I had to make some minor edits to get the link step to work for the SSL
+version. ckuusy.c, makefile, 14-15 Aug 2007.
+
+Got rid of the special Panix secure NetBSD target, replaced it with a
+regular one, which is invoked in the normal way by defining K5INC and K5LIB
+to point to to where the stuff is hidden. Cleaned up and modernized the
+comments in the makefile a bit. makefile 15 Aug 2007.
+
+Changed some data types and added some casts to ckctel.c to do away with
+tons of "pointer targets in passing argument 1 of 'xxx' differ in signedness"
+warnings. 15 Aug 2007.
+
+Set up Mac OS X as the testbed for ttptycmd(), with Panix as the remote
+partner over a Kerberos 5 connection. The first test is to send a 300K
+text file with gkermit as the external protocol. It worked fine, and the
+debug log showed all the right components were active (namely encryption and
+ttptycmd) [kermit/zmodem send/receive text/binary]:
+
+ Kermit Zmodem
+ kst OK zst OK
+ ksb OK zsb OK
+ krt OK zrt OK
+ krb OK zrb Failed "rz: Persistent CRC or other ERROR"
+
+We've seen this before. The problem is 0xff, Telnet IAC, as I proved to
+myself by constructing a 3MB file that contained every byte but 0xff in every
+mixture and order and transferring it successfully over the same connection.
+Presumably the Telnet server is doubling IACs, whereas of course rz is not
+undoubling, thus the CRC error. This is progress. 15 Aug 2007.
+
+Log shows that indeed every IAC in the source file arrives doubled. Adding
+code to remove the first IAC of every adjacent pair, a small test file with
+different-length runs of IACs transfers OK. The 3MB all.bin file does not.
+
+Starting over... I can receive a big text file with Zmodem OK. The 3.2MB
+binary test pattern that contains no IACs failed after 1.8MB, but the part
+that it transferred was OK. A second try, almost the whole thing arrived,
+it stopped just 584 bytes short of the end. Could be that file size is a
+separate problem. Making a new copy exactly 1MB long... Well, that's
+interesting, this one too stopped just short of the end. And again, the
+same thing. When connecting back to the host, the last Zmodem packet can
+be seen on the screen; it's as if the local Zmodem exited before reading
+the last packet... But OK, if I change the options on the remote sz
+sender to use small blocks, etc, then it works.
+
+Now, changing from the 1MB no-IAC-binary test pattern, to the 1MB all-values
+test pattern, we fail after 81K. But the part that was transferred is
+correct. Second try, same thing, but 57K. Third: 40K. Each time, upon
+connecting back, the session is completely dead.
+
+IF I HAVE TO undouble IACs for incoming files, don't I have to double them
+going out? To send a block to net we just call ttol(), but ttol() doesn't
+do any doubling (because Kermit protocol always quotes 0xff). To see what
+happens, I changed the ttol() call to ttoc() in a loop that doubles IACs. I
+tested this by sending the full 3.2MB test pattern, which worked fine.
+
+For receiving, it's slow but it works OK with files that don't contain IACs
+(my concern was that IACs might appear in outbound files or in Zmodem
+protocol messages). It receives the 1MB no-IAC test pattern, so there are
+no problems with protocol or timing. But the full test pattern always gets
+cut off, but at different points, as before, with the remote session dead.
+Changing the Zmodem receiver from rz to lrz on the local end (since the
+sender on the remote end is lsz) does not change the behavior.
+
+Anyway, I went back and replaced the byte loop with something more
+efficient, and it goes about 20 times faster. But this doesn't help either,
+it only makes it fail faster. But aha, what if a doubled IAC is broken
+across successive pty reads -- we have to make the "previous character"
+memory persistent. Well, that was a good insight, but it still didn't fix
+it. The log shows the IAC handling code is working fine.
+
+What does sz say? Capturing its stderr to a file... "Retry 1: Got ZCAN".
+Next time: "Retry 1: Got TIMEOUT". Next time: Got ZCAN.
+
+Trying different Zmodem options... apparently I don't need to use short
+blocks. But I do need to use -e, probably because of Telnet NVT treatment
+of carriage return; without -e, there is a "persistent CRC error". -O
+disables timeouts, but this makes no difference.
+
+OK, we still have two Big Problems:
+
+ 1. When a long file has no IACs, the final < 1K of the file is not received.
+ 2. When a long file has IACs, the transfer generally stops very early.
+
+Problem 1: the transfer consistently fails less than 1K from the end of the
+file. Upon CONNECT back to the host, a big Zmodem packet is sitting there
+waiting to be read, which means ttptycmd()'s copy of rz is terminating
+early. Can we catch it in the debug log? Doing this takes forever and
+writes a GB to the disk... And then the problem doesn't happen. Also, I
+can receive a HUGE text file almost instantly with no errors at all.
+
+Switching to lrz on the receiving end, now I see the error messages, about
+300 lines like this:
+
+ Retry 0: Garbage count exceeded
+ Bytes received: 872352/1000000 BPS:85464 ETA 00:01 Retry 0: Bad CRC
+ Bytes received: 892448/1000000 BPS:86690 ETA 00:01 Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Retry 0: Got ERROR
+ Bytes received: 898336/1000000 BPS:84293 ETA 00:01 Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+ Retry 0: Garbage count exceeded
+ Bytes received: 900384/1000000 BPS:83751 ETA 00:01 Bad escape sequence
+ 2fRe
+ try 0: Bad data subpacket
+ Bytes received: 941472/1000000 BPS:86191 ETA 00:00 Retry 0: Bad CRC
+ Retry 0: Garbage count exceeded
+
+Even when it succeeds, it gets these. But if I receive a text file, no
+matter how big, no errors or retries or timeouts at all. So it appears that
+there is only one problem: a big-time lack of transparency regarding 8-bit
+and/or control characters. The odd thing is, it's not that the characters
+can't get through -- they all can -- but they seem to cause transitory
+blockages. 16 Aug 2007.
+
+Cleaned up the remaining pointer signedness warnings in ckutio.c, but this
+was a mistake, it broke Kerberos connections completely. Undid the changes.
+ckutio.c, 17 Aug 2007.
+
+Changed all return() in the fork()==0 section of ttptycmd() to exit().
+ckutio.c, 17 Aug 2007.
+
+Tried explicitly setting the slave pty to rawmode. Makes no difference.
+Tried using the Mac OS X (curses) raw() function, and also system("stty
+raw"); still no difference. Tried doing all of these in different
+combinations and orders. I found one combination that cuts the errors about
+in half, and the transfer of the no-IAC test pattern almost always succeeds
+(but it's slow). Anyway, it doesn't help much with the test pattern that
+contains IACs. Well, the code is more solid than it was before but
+functionally we have not advanced much if we can't download a binary file
+with Zmodem! On the other hand, we can upload them, and we can transfer
+text files in both directions, which is an improvement over the previous
+situation, in which the entire session would hang due to loss of
+synchronization of the encryption stream.
+
+Tried adding -funsigned-char to CFLAGS of Mac OS X target. It does not
+make the "signedness" warnings go away and it doesn't change the runtime
+symptoms.
+
+I tried a simpler version of pty_make_raw(), the one from Serg Iakovlev, but
+it was a total failure. That's encouraging though, because it indicates
+that pty_make_raw() is the right place to be working.
+
+Then I made pty_make_raw() set or unset every single terminal flag
+explicitly. This made no difference, but didn't hurt anything either.
+
+Then I made pty_make_raw() explicitly set all the c_cc[] characters to 0
+(but left c_cc[VMIN] as 1). This made no difference either.
+
+I checked pty_make_raw() against ttpkt() and the only difference I found in
+the terminal flags is that ttpkt() sets IGNPAR thinking it means "ignore
+parity errors" when really it means "discard any character that has a parity
+error" (at least according to Iakovlev) -- exactly the opposite. But I
+tried it both ways, no difference. 17 Aug 2007.
+
+I noticed that even Zmodem text receives can fail. They don't get any
+errors, they just get cut off shortly before the end. (But usually they
+succeed, and fast too, like 500K cps).
+
+What if I don't call pty_make_raw() at all on the slave pty?
+
+zrt: EESSSSSSSS: 80% good (E = stopped just before end but no other errors)
+
+zrb no-IAC test pattern, short blocks:
+ 1. S/5 (success with 5 screens of errors.
+ 2. S/7
+ 3. S/7
+ 4. S/6
+ 5. E/7 (failed just before end)
+ 6. S/7
+ 7. S/6
+ 8. S/6
+ 9. S/6
+10. S/4
+
+So, lots of errors, but it recovered 90% of the time.
+Next, same thing, but without requesting short blocks:
+
+ 1. E/5
+ 2. S/5
+ 3. E/4
+ 4. S/5
+ 5. S/5
+ 6. S/5
+ 7. X/0 (hard failure right away: "Got ZCAN"
+ 8. S/5
+ 9. S/5
+10. S/5
+
+So it doesn't look like short blocks make that much difference. Now what if
+I turn off prefixing? Bad CRC, fails immediately every time. Putting back
+pty_make_raw(slave), it still fails hard.
+
+Tried a new strategy with pty_make_raw(): rather than modify existing flags,
+I set all flags to 0, and then turn on only those few that we need like CS8.
+Now we get only 2.5 screens of errors instead 4-7 and the transfer rate is
+higher for binary files (all of the previous ones were under 100K CPS, while
+for text files it was 400-500K CPS):
+
+ 1. S/2 195669 CPS
+ 2. S/2 194720
+ 3. E/3
+ 4. S/2 192550
+ 5. S/3 192325
+ 6. S/3 145066
+ 7. S/2 200689
+ 8. S/3 188948
+ 9. S/2 209461
+10. S/3 181991
+
+I noticed that there was no TIOCSTTY ioctl in the pty/fork setup sequence,
+which is recommended somewhere, so I tried that and it was a disaster; the
+entire session hung. I took it back out. 18 Aug 2007.
+
+Tried some transfers over a clear-text (not encrypted) connection with the
+same results: smooth, fast transfer of a big text file (400K cps); rocky but
+successful transfer of the no-IAC binary pattern file (135K cps). Switching
+back to ttruncmd(), the same binary file is received at 1.5M cps, and the
+no-IAC binary file totally fails after too many "Bad CRC"s; and we already
+know that any file that contains IACs will fail. One might say that
+ttptycmd() is better in every respect than ttruncmd() except in speed
+(when it works).
+
+Let's see if ttyptycmd still works in remote mode (to local K95):
+ . sz / text works, but slowly.
+ . lsz / text works but some weird errors are reported.
+ . lsz / binary / no IAC doesn't work at all (CRC-32 mismatch for a header;
+ Unexpected control character ignored: 13, etc).
+ . sz / binary / no IAC works OK but slow.
+ . sz / binary / full test pattern with IAC works OK but slow.
+ . Sending text into rz fails completely.
+
+What about ttruncmd() in remote mode?
+ . send /text works, fast.
+ . send /binary works, fast.
+ . receive /text works, not so fast but not bad.
+ . receive /binary works, not so fast but not bad.
+
+So we use ttruncmd() for remote mode, and we use it for local mode
+serial-port and modem connections, and we use ttptycmd() on network
+connections because (a) they might be encrypted, and (b) even if they are
+not, they use some protocol that we have to handle, e.g. Telnet, Rlogin.
+19 Aug 2007.
+
+Discovered that Sending binary files no longer works. Text is OK, binary
+transfers don't even start. This happens on both encrypted and clear-text
+connections. ttptycmd() is being used in both cases. But oddly enough,
+receiving binary still works as before. What did I break, and when?
+Oh, it was just the script, when I changed it from using sz to lsz. Putting
+it back to sz makes it work, even with the full 3.2MB binary pattern with
+IACs.
+
+I backed off the changes I made to ckctel.c to suppress some warnings, in
+view of the fact that similar changes to ckutio.c broke things so badly.
+19 Aug 2007.
+
+If sz is not given the -e flag, it sends control characters bare, except ^P,
+^Q, ^S, and ^X. ^X is the control prefix, so ^A is sent ^X followed by A.
+With -e, all C0 control chars are prefixed, but with ^X, which is, of
+course, a control character. Interestingly, the C1 analogs of ^P, ^Q, ^S
+(but not ^X and, unfortunately, not IAC) are also prefixed. -e makes no
+difference for 8-bit characters.
+
+If we have a Telnet connection and the server is in ASCII (NVT) mode, CR is
+always followed by LF or NUL. Well, it seems the server is putting us
+(Kermit) in binary mode in this case, but staying in ASCII mode itself.
+Added code to handle NVT byte stuffing and unstuffing in each direction
+independently, according to the TRANSMIT_BINARY state in that direction. I
+made a file containing just the bytes 0-31 and 127 and 128-159 and 255 (66
+bytes all together) and sending it from the host to C-Kermit, the local log
+shows that every control character was received correctly and all TELNET
+conversions were done right -- NUL removed after CR (and only after CR); IAC
+removed after IAC (and only after an IAC meant as a quote). For the first
+time, I can receive the 1MB all-values test pattern, but there are still
+tons of (correctable) CRC errors, so the transfer rate is really awful, like
+about 5% of what we get with a text file (25Kcps instead of 500).
+
+Further experimentation shows that the fundamental transparency problem is
+fixed; we can receive short files (say, 1K or less) containing absolutely
+any byte values in any combination with no errors at all. But once the file
+size reaches (say) 10K, we get CRC errors, like one every 2 or 3K of data.
+These are not deterministic. In successive transfers of the same file, they
+come in different spots. It's tempting to blame pty buffer overruns, but
+then text files would show the same behavior. When a binary file size
+exceeds, say, 1MB, the chances of successful completion go way down,
+independent of whether my external protocol is rz or lrz. I like lrz better
+because the error reports come out on the screen as the transfer is going
+on. Trying to download a real-world binary file -- a 2.2MB C-Kermit
+executable -- I get 4500 error messages but the transfer eventually succeeds,
+with an effective throughput of 21Kcps.
+
+Actually it turns out that "sz -a somebigtextfile" (2.2MB) also gets a lot
+of CRC errors. The -e flag (escape all control characters) makes the same
+big text file transfer with few or no errors. It's not sure-fire.
+Sometimes no errors, sometimes one or two, and sometimes a fatal error that
+kills the transfer.
+
+With binary files... a 32K binary file seems to make it every time. 40K
+fails about 50% of the time. 48K fails 60% and every time it fails, it has
+created a partial file of exactly 32K (32768 bytes). 96K fails 9 out of 10
+times, when it fails, the partial file is always 0 bytes, or 32768, or
+65536, but that just means that rz's file output buffer is 32K.
+
+Why, then, do binary files cause trouble if it is not a solid transparency
+problem? If a certain file can get through once, why can't it get through
+every time? When a character arrives at the pty, the pty driver probably
+takes a different path through its code, checking the terminal flags that
+would affect that character. I tried making Kermit's network read buffers
+very small but, surprisingly, this made things worse. I also tried making
+them very much bigger, which didn't help either. 24K still seems to be the
+right size.
+
+So, is it that some characters take longer to process than others? So long
+that data is lost due to lack of flow control between TCP and the pty? One
+way to test this theory is to slow Zmodem down. I tried "-l 32" which,
+according to the man page, tells sz to "wait for the receiver to acknowledge
+correct data every N (32 <= N <= 1024) characters. This may be used to
+avoid network over-run when XOFF flow control is lacking." Makes no
+difference. I also tried the -w (Window) switch, ditto. In fact there are
+all sorts of options to set the "window size", "packet length", "block
+size", and "frame length", but with no explanation of what these mean or how
+they are related. If I crank everything down to minimum value:
+
+ lsz q -L 32 -l 32 -w 1
+
+I get 50% success with the 96K file instead of 10%. Adding -e, oddly
+enough, made it worse. I also tried setting the environment variable
+ZNULLS to different numbers like 512, no help there either.
+
+I tried making the read-from-net-write-to-pty buffer small (1K) but leaving
+the pty-to-net one big. This improves chances of success, but it's
+intolerably slow (3Kcps when the connection is capable of 500K).
+
+I also changed the write-to-pty operation from a single write() call of
+possibly many K characters to a byte loop, one write() per byte. Same
+result: success (but still about 300 recoverable errors), throughput 3Kcps.
+20 Aug 2007.
+
+With ttptycmd() configured to write to the pty in a byte loop, it is
+possible to delay each write. Adding a 10msec delay per character results
+in a transfer that runs at about 20 cps and (for the 96K test file) would
+take about 80 minutes to complete. And yet it still gets just as many
+errors. So it's not a matter of timing either. The errors come, on
+average, every file 388 bytes, but not at regular intervals.
+
+I tried the TIOCREMOTE ioctl on the pty master, as discussed somewhat
+obliquely in the Mac OS X "man pty" page; "This mode causes input to the
+pseudo terminal to be flow controlled and not input edited (regardless of
+the terminal mode)" -- sounds like just the ticket but it made no
+difference. Actually, looking at a man page on another OS (Solaris), it
+says this is only for lines of text, EOLs are supplied, so that would mess
+up the protocol. So remember: don't use this.
+
+Tried without O_NDELAY; the behavior was the same but the speed was much
+slower.
+
+Tried switching back to the ckupty.c routines on Mac OS X and found that it
+works now the same as with openpty(), except that I seem to get more getty
+babble at the end. But this means I can run some tests on Solaris. I moved
+the entire test environment from Mac OS X 10.4.9 to Solaris 9. But it
+doesn't work at all.
+
+Trying to figure out the ckupty.c modules again.
+ . do_pty() calls pty_getpty() which returns in arg1 the fd of the pty master.
+ . Then it creates a pipe as a way to tell when the child dies
+ . Then it creates a fork:
+ - The parent does a blocking read from the pipe
+ - The child calls getptyslave() to get the pty slave
+ and writes one byte to the pipe
+ and then execs the command it's supposed to run
+Note that the file descriptor of the slave is known only to the lower fork.
+Therefore the lower fork is the one that has to set all the tty modes, etc.
+I took care of all that but the ckupty.c method doesn't work at all on
+Solaris. But it works "fine" on Mac OS X (the 32K all-bytes test file
+transfers instantly with no errors, but the 96K one errors out).
+
+The problem on Solaris is that pty_make_raw() fails on the masterfd (but not
+on the slavefd) with errno 25 "ioctl inappropriate for device". It doesn't
+matter whether I do it in ckupty.c or ckutio.c. I found a web page on
+kde.org that says Solaris does not allow tcget/setattr() on a pty master.
+But the Sun "knowledge base" is not open to the public. Well, presumably
+changes made to the slave are reflected in the master (comments in Solaris
+telnetd seem to confirm this...) Let's come back to Solaris later.
+
+Moving to a Linux with lrzsz installed... Built a Kerberos 5 version with
+USE_CKUPTY_C. Like on Mac OS X, it transfers short files OK and chokes on
+longer ones. Switched to openpty(), it behaves the same. So the problems
+on Mac OS X are evidently not OS-specific, which is good I guess, since that
+means finding the way around them will apply to more than one platform.
+21 Aug 2007.
+
+Look into TIOCSCTTY again. On System V based OS's, opening a pty acquires a
+controlling terminal automatically. On BSD-based OS's, no; you have to use
+the TIOCSCTTY on the slave file descriptor to give it one. I'm not sure why
+a controlling terminal would be needed, except that without one, the virtual
+device "/dev/tty" does not exist for the process that runs on the pty, and
+maybe the application that runs there (e.g. rzsz) checks for it. On the
+downside, having a controlling terminal opens the process up to terminal
+interrupts like SIGINT and SIGQUIT. Until now I have not been using this
+ioctl(). Results (in Linux):
+
+ With TIOCSCTTY: 96K all-bytes test: 11 screens of errors, then success
+ Without TIOCSCTTY: exactly the same.
+
+Tried the same thing with TIOCNOTTY instead of TIOCSCTTY, with exactly the
+same results (no effect whatsoever).
+
+There has to be a way to make this work, because Zmodem works through
+telnetd, which basically the same thing as ttptycmd(): a relay between the
+network and a pty. ttptycmd() is like telnetd backwards. Modern telnetds
+are not much help; they don't access ptys or the network directly, they go
+through "mux" devices so I can't see what they're doing to get transparency
+and flow control. An old BSD telnetd uses packet mode but that would be a
+big deal...
+
+I tried ignoring various signals like SIGTTOU and SITSTP, since some Telnet
+clients do this. No effect, no difference. Anyway, in Linux the transfers
+almost always finish OK despite the many errors. There is just some trick
+I'm missing to make the pty accept a stream of arbitrary bytes without
+hiccuping.
+
+What about Solaris, which uses ckupty.c? In streams-based OS's, where line
+disciplines and whatnot are pushed on top of the pty, it looks like the pty
+module saves the file descriptor of the "bare" slave pty (as 'spty') before
+pushing things onto it, and then later uses spty rather than the regular
+slave pty file descriptor when getting/setting terminal modes. I'm not sure
+what this is all about but it's definitely SysVish... It happens if
+STREAMSPTY is defined, but I noticed that STREAMSPTY is never defined
+anywhere. I tried defining it so we take an entirely different path through
+the code. It made absolutely no difference.
+
+Then I noticed that HAVE_STREAMS is not defined for Solaris either. Tried
+defining it, but the session didn't work at all, no i/o. Removing the
+HAVE_STREAMS definition but keeping the STREAMSPTY defined, I rebuilt and
+tried "set host /connect /pty emacs". I got an EMACS screen but could not
+type anything into it, which means that STREAMSPTY should not be defined
+either. Removed the definition and "set host /pty" works again. So what's
+the problem with ttptycmd()?
+
+In fact, ttptycmd() works on Solaris with Kermit as the external protocol,
+but not with Zmodem, not even with text files. So again, there is no
+fundamental problem with the code or the logic, it's Just A Matter Of
+Transparency to control and/or 8-bit characters -- some trick I don't know
+about.
+
+Looking at the Solaris debug log... I see that ckupty.c is calling
+init_termbuf() to set the tty modes of the master, not the slave, and
+set_termbuf() to set them, but you can't do that in Solaris, error 25. This
+is in getptyslave(). Shouldn't getptyslave() be setting the tty modes of
+the slave, not the master? I changed it to do this, but like all other
+changes, it made no difference. I checked to make sure that after the change,
+"set host /pty /connect emacs" still worked and it did.
+
+And then what... I had some code to redirect stderr in ckupty.c that was
+not being executing due to a typo. When I fixed the typo, poof, Zmodem
+binary transfers started working, or working as well as they work in Linux
+and Mac OS X. It turns out that if I don't redirect stderr, sz and rz
+just don't work. But lsz and lrz do. But if I do redirect it, I don't see
+the progress messages from lsz/lrz. 22 Aug 2007.
+
+Built on HP-UX 11i v3 (B.11.31 U ia64) with optimizing compiler, got tons of
+picky warnings, but it finished and linked and runs OK. Many of the
+warnings were like this:
+
+ "ckucns.c", line 1606: warning #2068-D: integer conversion resulted in a
+ change of sign: tnopt[0] = (CHAR) IAC;
+
+IAC is defined as 255 in ckctel.h. If I define it as 0xff, I don't get the
+warnings. I changed the definitions of all the Telnet commands to be in hex
+notation rather than decimal. If cuts way down on the HP-UX warnings and
+doesn't seem to cause problems elsewhere. ckctel.h, 23 Aug 2007.
+
+Now it looks like Solaris is working but then it hangs at the end. It
+appears as if the ckupty.c module is blocking SIGCHLD. Debug log shows that
+when the transfer is complete, we received IAC DM (Telnet Data Mark) after
+sz's last gasp and before the shell prompt is printed. But calling
+tn_doop() in this case is a mistake because we are reading the number of
+bytes that we know are available in a counted loop, but tn_doop() would
+consume an unknown number of bytes and we would never know when to exit the
+loop. Anyway, C-Kermit doesn't do anything with DM. Skipping over
+tn_doop() (and not writing out the Telnet command bytes) fixes the hanging
+condition at the end, even though SIGCHLD is never raised. ckutio.c,
+23 Aug 2007.
+
+Some tests, Solaris to NetBSD over K5.
+zst sends ascii.txt, a 2.36MB ascii text file (Kcps / Errors).
+zrt receives the same file:
+
+ zst 587/0 526/0 542/0 434/0 423/0
+ zrt 827/0 800/0 847/0 FAIL 610/0
+
+So text is good. Binary not so good. Here we transfer the 1MB all-bytes
+pattern file. zrb receives it successfully, but with 1248 errors, at only
+15Kcps. Sending the same file out always fails:
+
+ Begin 20070823 16:32:07: SEND BINARY all2.bin [sz]
+ Sending: all2.bin
+ Bytes Sent: 5600/1000000 BPS:12446 ETA 01:19 FAILURE
+ End 20070823 16:32:13
+ Elapsed time: 6.617992999999842
+ cps = 151103.2121067556
+ lsz: caught signal 1; exiting
+
+Decided to move to Linux but found that something is screwed up in Linux
+C-Kermit with tilde expansion:
+
+ send ~/testfiles/all.bin
+
+doesn't expand at all (but it did yesterday!). The problem was in the
+ancient, ancient realuid/setuid handling code; real_uid() no longer works in
+Linux. I worked around this in whoami() by setting ruid to getuid() if
+real_uid() returned a negative number. Maybe dangerous, worry about it
+later. ckufio.c, 23 Aug 2007.
+
+ANYWAY... after fixing that, I tested zsb on Linux, and it's broken there
+too, using openpty(), so it's nothing to do with ckupty.c. After sending
+the first Zmodem data packet, it just hangs, nothing comes back. In text
+mode it gets farther, but then the same thing happens. Captured stderr from
+rz on the far end:
+
+ Bytes received: 608/1000000 BPS:21137 ETA 00:47 Retry 0: Bad CRC
+ Bytes received: 864/1000000 BPS:23540 ETA 00:42 Retry 0: Bad CRC
+ Bytes received: 1120/1000000 BPS:25003 ETA 00:39 Retry 0: Bad CRC
+ Bytes received: 5696/1000000 BPS:56988 ETA 00:17 Retry 0: Bad CRC
+ Bytes received: 9120/1000000 BPS:62227 ETA 00:15 Retry 0: Bad CRC
+ Bytes received: 9376/1000000 BPS:60766 ETA 00:16 Retry 0: Bad CRC
+ Bytes received: 9632/1000000 BPS:60361 ETA 00:16 Retry 0: Got TIMEOUT
+ Retry 0: Sender Canceled
+ Retry 0: Got ZCAN
+
+The local sz, however, doesn't give any error message. ZCAN means: "other
+end canceled session by sending 5 ^X's" (or user typed them). What actually
+happens is that ttptycmd()'s select() times out waiting for something from
+the Zmodem partner and ttptycmd() itself kills the sz fork with SIGHUP.
+When lsz receives SIGHUP it sends the ZCAN. So the real problem is that
+after some point we're not receiving anything.
+
+I changed the timeout from 4 seconds to 30 seconds and now I see it just
+stops for long periods of time and then resumes. The lrz log on the
+receiving end shows tons of timouts, CRC errors, and other errors. The
+local log shows that lsz wound up sending ZCAN (2 x (10 x ^H, 10 x ^X)).
+
+Moving on to another problem... Turns out Ctrl-C (SIGINT) is working right
+after all. Since I'm using my test scripts like kerbang scripts, Ctrl-C
+exits through trap(), as it should, closing the connection and cleaning up.
+If I start Kermit and tell it to TAKE the script, then Ctrl-C brings me back
+to the prompt with the connection still open (as it should). However, until
+now I haven't done anything about the fork or the ptys. Added code to
+trap() to kill the fork and close the master pty. ckuusx.c, 24 Aug 2007.
+
+Added code to try to break the deadlock. If select() times out, but we have
+stuff to write either to the pty or the net, try to do it anyway, even
+though select() did not say we could. But this doesn't help because when
+select() times out we don't have anything to write. The problem is that
+after receiving that last packet from the remote rz, the local lsz doesn't
+seem to do anything, as if the lower fork wasn't running (and to confirm
+this hypothesis, sometimes I noticed that when I Ctrl-C'd out of this, the
+transfer would take off again).
+
+Backing up and testing with gkermit rather than zmodem:
+
+ kst ripple.txt [824K] OK
+ kst ascii.txt [1359K] OK
+ krt ripple.txt -- FAILED
+
+It seems that we can't handle streaming. If I set up krt to disable
+streaming on receipt, it works OK.
+
+ krt ripple.txt [824K] OK
+ krb all2.bin [1000K] OK
+
+So here we have no trouble sending but big trouble receiving unless we
+disable streaming. Whereas with Zmodem we have trouble receiving.
+
+But this wasn't happening before, what changed? Using C-Kermit on the far
+end to receive the file with debug log on, I see that it is sending 4K data
+packet after 4K data packet, with the local gkermit silent, as expected.
+About midway through the transfer, the local Kermit sends an error packet
+"Transmission error on reliable link". Looking at G-Kermit's debug log...
+It receives the first five 4K data packets OK, but gets a CRC error on the
+fifth one, and sends the Error packet. So it has received a stream of
+20-some thousand bytes OK and then messes up. That number sounds a lot like
+ttptycmd()'s buffer size. I changed the buffer sizes to be different:
+
+ Read from pty and write to net: 4K
+ Read from net and write to pty: 1K
+
+This time it received the first 4K packet and failed on the second one.
+Then I increased the buffers to 98K each, expecting to receive lots more
+packets successfully but it bombed out on the 5th one. But that's good, it
+confirms there's no logic error in the buffer management. Just to make
+sure, though, let's set the buffer size smaller than the packet size and
+disable streaming. In this case we get 4 good data packets and a CRC error
+on the 5th one and so we request retransmission, and the next 8 times it
+arrives it gets a different CRC error, but the 9th copy is OK. Then the
+next packet comes and it gets a CRC error every time. And this is nothing
+but plain ASCII text.
+
+Switching to remote mode:
+
+ REMOTE=1 kk kst
+
+(after tricking myself because it was using ttruncmd() for this...) I see
+that nothing works at all. What did I break? 24 Aug 2007.
+
+Fixed ttptycmd() to restore console modes after a remote-mode transfer.
+ckutio.c, 25 Aug 2007.
+
+Noticed that error codes like ESRCH are not available in all modules.
+That's because of some complicated in #ifdefs in ckcdeb.h that wind up not
+always #including <errno.h>. But I notice that ckutio.c includes it
+unconditionally with no ill effects, and so does ckvfio.c. Does any version
+of Unix at all not have <errno.h>? Added a catch-all clause to ckcdeb.h to
+#include <errno.h> (in UNIX only) if, after the other clauses, ESRCH was
+still not defined. ckcdeb.h, 25 Aug 2007.
+
+Now back to debugging ttptycmd()... Remote-mode transfers with ttptycmd()
+were broken in two places, maybe as long as 2 weeks ago (this would have
+affected non-network transfers too, which I can't test any more).
+The logic was missing in a couple places for the non-network and/or
+non-Telnet and/or non-encrypting connections (if statements with no else
+parts). Fixed in ckutio.c, 25 Aug 2007.
+
+Testing remote mode:
+
+ kst OK zst OK
+ ksb OK zsb OK
+ krt OK zrt OK
+ krb OK zrb OK
+
+Functionally it all works but there are hitches with Zmodem as always.
+When sending to K95:
+
+ . If I send with lsz, there are hundreds of "Subpacket too long" errors,
+ and the transfer is very slow, but it succeeds.
+
+ . If I send with the 1994 Omen version of sz, transmission is instantaneous
+ and without errors, but then it hangs at the end.
+
+ . If I bypass C-Kermit and send direct from lsz or sz, both work fine.
+
+So clearly the ptys are getting in the way. The hanging at the end would be
+caused by the sz process closing before its last output reached the master
+pty. It would need to do some form of flushing and/or pausing at the end
+but there's nothing I can do about that; these programs were not designed to
+be used in this way. Anyway, it only seems to happen with files longer than
+100K.
+
+For local mode, testing in Solaris over our Kerberos 5 connection again:
+
+ gkermit lrzsz
+ kst OK zst FAIL
+ ksb OK zsb FAIL
+ krt OK zrt OK but with errors
+ krb OK zrb FAIL
+
+If I use Omen rzsz as the external protocol (e.g. with zst), it blocks
+redirection and it sends the file to my terminal, rather than over the
+connection. This would probably be because it finds out the device name of
+the job's controlling terminal and opens it, to prevent redirection. This
+is hard to prevent in Solaris because there is no TIOCSTTY ioctl().
+Supposedly the same thing is accomplished by closing and reopening the slave
+pty after doing setsid(). I added code to do this, but it made no
+difference. (If I use lsz instead of sz, it is indeed redirected, but jams
+up after about 15K.) ckupty.c, 27 Aug 2007.
+
+On Mac OS X with sz 3.73 1-30-03, however, the redirection works, so I
+assume it would also work in Linux, FreeBSD, NetBSD, etc, too. Doing the
+full test suite on Mac OS X:
+
+ gkermit lrzsz rzsz
+ kst OK zst FAIL (1) OK
+ ksb OK zsb FAIL (2) OK
+ krt OK zrt OK (3) OK for 100K file, fails for longer.
+ krb OK zrb FAIL (4) OK (1MB all-bytes test pattern)
+
+(1) 64K file OK every time; 100K file fails every time.
+(2) 10K file fails every time.
+(3) Succeeds with 800K file but gets a few recoverable errors.
+(4) Succeeds with 48K binary file with some errors, fails with longer ones.
+
+So actually it looks pretty good, it's just that lrzsz messes up. When
+sending with lsz if I include -L 512 it sends the 100K test file with no
+errors, but still chokes on longer ones.
+
+Testing on Mac OS X again, but this time over a clear-text Telnet connection:
+
+ gkermit lrzsz rzsz
+ kst OK zst FAIL(1) OK
+ ksb OK zsb FAIL(2) OK
+ krt OK zrt OK(3) OK
+ krb OK zrb FAIL(4) OK
+
+(1) Almost worked, finished 777K out of 824K without errors.
+(2) Got tons of errors, failed in first 30K out of 1000K.
+(3) OK for 100K file but fails for larger.
+(4) OK for 48K binary fail but fails for larger.
+
+Maybe see if we can do without the OPENPTY part.
+
+TOMORROW -- just clean up the code, add some SET / SHOW / HELP commands,
+document it, and move on.
+
+Note: In K95, SET WINDOW sets the Zmodem packet length, 32 - 1024, multiple
+of 64.
+
+SEE ~/80/external.txt
+
+Changed ftp port from int to unsigned int. ckcftp.c, 30 Aug 2007.
+
+Tried again to build KRB4/KRB5/SSL/TLS version for Solaris 9. Had to update
+the build procedure again, of course, because of new file and directory
+names, but ran into problems anyway because the
+cu-solaris9g+krb5+krb4+openssl+shadow+pam+zlib target was calling another
+target that did not know about the hardwired pathnames. Integrated the two
+targets and tried building again. It actually compiled ok (but with lots of
+warnings from the security modules), but failed at link time with
+krb5_init_ets not found; fixed that with an #ifdef NO_KRB5_INIT_ETS, now it
+builds OK but without the ftp client. Tried building it WITH the FTP and
+that was OK too, no changes needed except to the build procedure. 12 Feb
+2008, that is: C-Kermit 8.0.212 : 20080212.
+
+Tried to build with -DCK_SRP and -lsrp but:
+
+ hash_supported ckcftp.o
+ hash_getdescbyname ckcftp.o
+ hash_getdescbyid ckcftp.o
+ cipher_getdescbyname ckcftp.o
+ krypto_delete ckcftp.o
+ krypto_new ckcftp.o
+ cipher_supported ckcftp.o
+ krypto_msg_priv ckcftp.o
+ krypto_msg_safe ckcftp.o
+ hash_getlist ckcftp.o
+ cipher_getlist ckcftp.o
+ cipher_getdescbyid ckcftp.o
+
+Sent mail to Tom Wu and backed off for now. makefile, 14 Feb 2008.
+(Tom Wu never answered; seems like SRP is defunct.)
+
+The ".blah = xxx" form of variable assignment only worked for variables
+names of length 22 or less, noticed and fixed by Wolfram Sang. ckucmd.c,
+5 Mar 2008.
+
+In "set host /pty ssh ..." connections, the INPUT command suddenly stopped
+working. This is in Solaris 9. It happens with all 8.0.* versions of
+C-Kermit, so it's nothing to do with ttptycmd(). Added some debug()
+statements but they don't show anything. Turns out there wasn't a problem
+after all. Wed Mar 26 16:04:53 2008
+
+Changed cmifi() to not print "?No files match" (or whatever) if SET QUIET ON.
+ckucmd.c, 26 Mar 2008.
+
+Added \v(remoteip) for the IP address of the host we're connected to,
+and \v(inmessage) for INPUT status messages corresponding to \v(instatus).
+ckuusr.h, ckcmai.c, ckuus[24].c, 26 Mar 2008.
+
+Made \fkeywordval() strip braces/quotes from the right-hand side so we can
+handle things like:
+
+ password="stringwithspaceatend "
+
+ckuus4.c, 6 Aug 2008.
+
+Added invisible PUTENV command for UNIX only. Value should not be enclosed
+in doublequotes. Requires lge \v(buildid) 20080826. ckuusr.[ch], 26 Aug 2008.
+
+Added SET VARIABLE-EVALUATION { RECURSIVE, SIMPLE }. This is highly
+experimental, but also highly desirable if it works out. SIMPLE inhibits
+the default recursive method of evaluating \%x and \&x[] variables, which
+is, quite frankly, nuts and makes programming in Kermit at best
+counterintuitive. I made an exception in the case of array subscripts,
+because changing how they are evaluated could break a lot of scripts, and
+anyway there should never be any harm in evaluating them recursively because
+their final value is always (or should be) numeric, not some string that
+might contain backslashes. The SET VAR setting is on the stack, just like
+SET QUIET (it follows the quiet/xquiet code in ckuus[356].c), so macros or
+command files that change it can't break the script that invokes them.
+Added \frecurse() to force recursive evaluation of a \%x or \&x[] variable
+regardless of the VARIABLE-EVALUATION setting. Added \v(vareval) to allow
+programmatic setting to current setting. Tested on Solaris 9 but should be
+totally portable. ckuusr.[ch], ckuus[356].c, 11 Sep 2008.
+
+From Günter Knauf: 64-bit builds were failing on SuSE Linux because
+libresolv and libcrypt were in lib64 rather than lib; updated the tests in
+the linux makefile target to find them. makefile, 12 Jan 2009.
+
+Tried building on Red Hat Enterprise Linux Server release 5.3 64-bit.
+There is no curses or ncurses. "make linuxnc" compiled OK but collapsed at
+link time looking for crypt(), res_search(), and dn_expand(). Turned out
+the linuxnc (and linuxc) targets needed the same treatment as the Linux one
+for 64-bit Linuxes. makefile, 3 Mar 2009.
+
+Consolidated the linux targets so we no longer need three separate ones for
+curses, ncurses, and no curses. "make linux" works ok on computers with and
+without (n)curses. "make linux+ssl", ditto. "linux+krb5+ssl builds OK but
+needs -DNO_KRB5_INIT_ETS". Makefile, 3 Mar 2009.
+
+Fixed copyright date announced in herald, ckuus5.c, 3 Mar 2009.
+
+Patch from Seth Theriault to avoid deprecation warning for utmp references
+in ckufio.c in Mac OS X 10.5 (later, this became a consolidated makefile
+target that works automatically for at least Mac OS X 10.3.9 through
+10.5.6). makefile, ckufio.c, 28 April 2009.
+
+zshcmd() (the function used by RUN and ! to run external commands) was not
+falling back as expected in Linux RHEL4/5 if SHELL was not defined in the
+environment. Also in all Unix versions, there was no indication if a RUN/!
+command failed (other than the return code) because the specified shell
+didn't exist or was not executable (e.g. the SHELL environment variable was
+misdefined). Now it prints the name of the offending shell and the reason
+it couldn't be executed (Not found, Permission denied, etc). ckufio.c,
+28 April 2009.
+
+There is no easy way to get the last field of string; for example, the
+extension from a filename, which might have any number of fields. In
+general we want to be able to get "word number n" counting from the right;
+\fword() lacks this ability. Now if you give it a negative word number,
+that says to count from the right; for example \fword(one two three four
+five, -2) returns "four". ckclib.c, ckuusr.c, 14 May 2009.
+
+Fixed a typo in the aix51+openssl (SSLLIBS should have been SSLLIB).
+From Jason Lehr. makefile, 27 May 2009.
+
+Updated the linux+openssl+zlib+shadow+pam target to chain to the new main
+Linux target. A bunch of other ones remain un-updated. makefile, 12 Jun 2009.
+
+Updates to the new Mac OS X 10.5 target from Seth Theriault (which is
+supposed to work on all Mac OS 10-point-anything) to avoid warnings
+that came up on on Mac OS 10.4.11/Intel. Once this one is proven we should
+be able to remove/consolidate lots of other ones. makefile, 12 Jun 2009.
+
+C-Kermit disables SSL with the message "?OpenSSL libraries do not match
+required version." if the version of OpenSSL that Kermit was built with is
+not exactly the same as the version that is loaded dynamically at runtime.
+This is actually the proper behavior, since APIs are not guaranteed not to
+change between OpenSSL versions prior to 1.0.0. Made the error message more
+informative. ck_ssl.c, 26 Aug 2009, and again 28 Aug 2009.
+
+AIX 6.1 is out, it is really just a new name for AIX 5.4. Added makefile
+targets, plus for the first I made AIX 4.2 and later figure out its version
+number in the makefile target so we don't have to keep adding new -DAIXnn
+sections to the code, and also get its hardware name (e.g. "powerpc") from
+uname at make time, rather than hardwiring "rs6000" as I did before.
+Consolidated all AIX 4.2 and later targets so now just "make aix" or "make
+aix+ssl" can be used. Except not the gcc ones as they have some quirks so
+I'd rather not disturb them. Tested this on AIX 5.3.
+makefile, 28 Aug 2009.
+
+From Kinjal Shah, a correction to the Linux makefile entry that allows it
+find the 64-bit curses or ncurses library. makefile, 29 Aug 2009.
+
+Renamed aix4[23]: to oldaix4[23]: in makefile to fix the warning messages
+I didn't notice before. I didn't want to remove them because they have
+some special things that might still be needed, if anybody still has these
+AIX versions. makefile, 29 Aug 2009.
+
+Built on RHEL 5.3 64-bit, regular and with OpenSSL 0.9.8e. 31 Aug 2009.
+
+Built on NetBSD 5.0.1/i386, regular and with OpenSSL 0.9.9-dev, 1 Sep 2009.
+
+Changed SSL message to mention LD_LIBRARY_PATH (Solaris), SHLIB_PATH (HP-UX),
+LIBPATH (AIX), or LD_LIBRARY_PATH (Linux). ck_ssl.c, 3 Sep 2009
+
+Noticed that "make linux+openssl" fails to include -lutil a link time, which
+it needs for openpty(). That's because this target is obsolete. I renamed
+it to be oldlinux+openssl and added linux+openssl as a synonym for
+linux+ssl. makefile, 3 Sep 2009.
+
+Tested linux+openssl+zlib+shadow+pam, it's OK. Also linux+krb5. Also
+linux+krb5+ssl. makefile, 3 Sep 2009.
+
+Tried building on Solaris 9 with OpenSSL 0.9.8k with
+solaris9g+openssl+shadow+pam+zlib, it failed like so:
+
+ ck_ssl.c:2875: error: conflicting types for 'inet_aton'
+ /usr/include/arpa/inet.h:52: previous declaration of 'inet_aton' was here
+ make[2]: [ck_ssl.o] Error 1
+ make[2]: Leaving directory hmt/sirius1/prv0/kd/fdc/solaris9ssl'
+ make[1]: [solaris2xg+openssl+zlib+pam+shadow] Error 2
+ make[1]: Leaving directory hmt/sirius1/prv0/kd/fdc/solaris9ssl'
+ make: [solaris9g+openssl+shadow+pam+zlib] Error 2
+
+The problem was caused by including an inet_aton() function ck_ssl.c for
+the benefit of platforms that don't have one in their libraries. This is
+defeated by including NO_DCL_INET_ATON in KFLAGS. I added this, but then
+I thought it would be a good idea to automatically sense the OpenSSL
+version so we can automatically set OPENSSL_097 or OPENSSL_098 rather than
+bombing out, so I added code to do that too, and also to set the Solaris
+version number: 9, 10, or 11. The new entry is solaris9g+openssl.
+ckcdeb.h, makefile, 3 Sep 2009.
+
+Fixed a complaint in ckufio.c about implicit declaration of initgroups.
+ckufio.c, 4 Sep 2009.
+
+Built on Solaris 10 with gcc and Sun CC using new solaris{9,10,11} target
+that is like the new solaris{9,10,11}g one but without the gccisms.
+makefile, 4 Sep 2009.
+
+Changed solaris{9,10,11}g+ssl target to set only the SSL-specific things and
+then chain to the main solaris{9,10,11}g target. Tested OK on Solaris 9 and
+10. makefile, 4 Sep 2009.
+
+Created solaris{9,10,11}+ssl target that is exactly like the
+solaris{9,10,11}g+ssl except it chains to the solaris{9,10,11} target
+instead of the solaris{9,10,11}g one. That is, it builds an SSL version of
+C-Kermit using Sun CC rather than gcc. makefile, 4 Sep 2009.
+
+Tried building on HP-UX 10.20, bundled (non-ANSI) compiler ("make
+hpux1000"). This failed until I:
+
+ . Moved a struct initialization out of setextern(), ckuus3.c.
+ . Removed an ANSIism from the declaration of sigchld_handler() in ckutio.c
+ . Added a cast to strcmp() in zvuser(), ckufio.c.
+
+Builds OK now. Built OK with "hpux1000o" (the ANSI compiler) too.
+And with "hpux1000gcc". Couldn't test "hpux1000o+openssl". 21 Sep 2009.
+
+The Sony Playstation 2 and 3 are 64-bit PowerPC platforms that can run Linux
+if it is installed as an "other OS" on its hard disk; and the Linux kernel
+since 2.6.21 supports the PS3 without any patching required. Pawel Rogocz
+reported that "make linuxppc" (one of the old targets that has not yet been
+integrated into the main "linux" target) compiles OK on 2.6.29-ydl61.3
+(Yellow Dog Linux release 6.2 'Pyxis'), but fails at link time because
+'openpty' isn't found, because -lutil was not included, because that part
+was added only to the main linux target. I asked him to try "make linux"
+and he sent back a transcript in which there were thousands of errors from
+the curses code ckuusx.c. Later I tried it myself and it built without a
+hitch. My theory is that between then and now, a missing piece of the
+ncurses library (/usr/include/ncursesw) was installed. 21 Sep 2009.
+
+HP-UX 9.05 on PA-RISC 9000/712 building with hpux0900 (bundled compiler):
+ . ckutio.c compilation failed with PENDIN and FLUSHO not defined in
+ pty_make_raw(). I dummied definitions for them to handle this situation
+ on this or any other platform where it might crop up.
+ ckutio.c, 24 Sep 2009.
+ . Ditto for the PTY module, + IMAXBEL. ckupty.c, 24 Sep 2009.
+ . References to endusershell() were fatal in the bundled compiler. Changed
+ the hpux0900 target to define NODCLENDUSERSHELL, and put a special case
+ in ckufio.c to not put a cast in front of the call if NODCLENDUSERSHELL
+ is defined. Now it builds and links OK. makefile, ckufio.c, 24 Sep 2009.
+
+HP-UX 9.05 on PA-RISC 9000/712 building with hpux0900o (optimizing compiler):
+ . Warnings in ckutio.c at line 14860 about arguments to select (pointers
+ are not assignment-compatible). "man select" says arguments are ints.
+ Defining INTSELECT fixes these warnings but results in fatal errors later
+ around line 14881 and others in the area involving FD_SET. This was too
+ involved so I put it back as it was. 24 Sep 2009.
+
+Built OK on Solaris 10 with Sun CC. A couple warnings about implicit
+function declarations for curses routines because apparently they aren't
+declared in curses.h. Tuff. 25 Sep 2009.
+
+Tried building on Solaris 10 with Sun CC and OpenSSL 0.9.8k, and this
+uncovered various loose ends in the solaris9+openssl target, which I fixed.
+makefile, 25 Sep 2005.
+
+Fixed four typos in printfs in ck_ssl.c, \% instead of just %. 25 Sep 2009.
+
+Squelched 20-some complaints about a character array being referred to
+directly instead of by a pointer, plus several other similar nits to get rid
+of all the compilation warnings on Solaris 10 with Sun C 5.8 Patch 121015-06
+2007/10/03. ckctel.c, ckctel.h, 25 Sep 2009.
+
+Built the result on the same Solaris 10 system with gcc 4.2.4 using the
+new solari10g+openssl target, working out a few kinks here too.
+makefile, 25 Sep 2009.
+
+Made consolidated Solaris 9/10/11 64-bit targets for gcc, solaris9g64,
+solaris10g64, solaris11g64, tested on Solaris 10 Sparc. makefile, 25 Sep 2009.
+
+Made consolidated Solaris 9/10/11 64-bit targets for Sun cc: solaris9_64,
+solaris10_64, solaris11_64. These simply set a couple flags and chain to
+the main solaris9 target. makefile, 25 Sep 2009.
+
+Removed a bunch of old superfluous Solaris 9 and 10 targets: oldsolaris9,
+oldsolaris9lfs, solaris9g64 solaris9g_64, oldsolaris10 old solaris10lfs,
+oldsolaris10+openssl, oldsolaris10g+openssl, solaris10_64, oldsolaris10g,
+solaris10g_64, solaris10g64. There are still plenty more to prune but it's
+a start. makefile, 25 Sep 2009.
+
+Added or fixed some missing prototypes in ckctel.h:
+fwdx_send_xauth_to_xserver(), fwdx_parse_displayname. 25 Sep 2009.
+
+Improved the instructions for building secure versions in the makefile,
+using this example:
+
+ make solaris9+openssl "SSLINC=-I/opt/openssl-0.9.8k/include" \
+ "SSLLIB=-L/opt/openssl-0.9.8k/lib"
+
+makefile, http://kermit.columbia.edu/security.html, 25 Sep 2009.
+
+Built on HP-UX 11.11, 26 Sep 2009:
+ . make hpux1100 (ok)
+ . make hpux1100gcc (ok)
+ . make hpux1100o (gets a lot of warnings about sendpath and sendfile,
+ because they are also declared in <sys/socket.h>, but builds OK)
+ . make hpux1000gcc+openssl \
+ SSLINC=-I/opt/openssl/include SSLLIB=-L/opt/openssl/lib
+
+Note: sendpath and sendfile are not Kermit symbols. The warnings are coming
+from socket.h: 'Redeclaration of "sendfile" with a different storage class
+specifier'. This is nothing new; see notes of 2-4 Jan 2005.
+
+From Peter Eichhorn:
+ . Update to makefile to make current code build OK on HP-UX 8.00.
+ . Changes to format of some hints to make them more copy-and-pastable.
+makefile, ckuu5.c, 28 Sep 2009.
+
+From Peter Eichhorn: Changes to HP-UX 7.0 target to increase the switch table
+stack size, which was overflowing. makefile, 30 Sep 2009
+
+HP-UX 6.5 (1989), "make hpux0650tcpc"... (8:19...) Needed to not include
+arpa/inet.h (which doesn't exist) and not use host address lists (add
+-DNOHADDRLIST), which gets us past ckcnet.c, but in ckcftp.c we bomb out on
+FD_SETSIZE undefined. Somehow we worked around this in ckcnet.c. Patched
+in a definition in ckcftp.c, and also added -DINTSELECT to compiler flags.
+Compiles ok, bombs at link time on bcopy, bzero, FD_ZERO, FD_SET, FD_ISSET.
+Now it compiles and links OK but dumps core when started. Added
+-DNOCKGETFQHOST, rebuilt from scratch (takes 35 minutes). It starts OK, but
+it dumps core when given a "telnet xxx" command, where xxx is a hostname.
+However, it works OK if an IP address is used: "telnet 123.45.6.78". It
+took all day to track this down, but now it's fixed (see the #ifdef HPUX6
+sections of ckcnet.c). So now (for the first time, I think) we have both
+telnet and ftp in HP-UX 6.x, if anyone cares. ckcnet.[ch], ckcftp.c,
+makefile, 2 Oct 2009.
+
+Changed default SET TERMINAL TYPE type for K95 from vt320 to vt220. This is
+because Unix OS's such as Solaris have dropped vt320 as a terminal type.
+settrmtyp(), ckuus7.c, 5 Oct 2009.
+
+I moved the PUTENV command code, which was inline, to a function, doputenv().
+ckuus[r7].c, ckuusr.h, 5 Oct 2009.
+
+Changed the UNIX version of SET TERMINAL TYPE to take a value and then do
+the equivalent of "export TERM=value" by calling doputenv(). This sets
+\$(TERM) correctly and passes its value along to inferior processes.
+However, to make this take effect within Kermit itself (for the fullscreen
+file transfer display and for the SCREEN command, Ctrl-L, etc) I also had to
+reinitialize the curses database, which is tricky because normally if you
+feed it an unknown terminal name, it just exits. ckuus7.c, 5 Oct 2009.
+
+Changed the little-known and little-used RESET command (which closes all
+open files) to also put command echoing back to normal in case it got
+messed up somehow (as in HP-UX 6.5, upon returning from PUSH).
+ckuusx.c, 5 Oct 2009.
+
+For Unix, increased string buffer sizes for wildcard expansion for all
+platforms that have BIGBUFOK defined from 500000 (0.5M) to 10000000 (10M)
+bytes, and for 64-bit builds to 2000000000 (2G) bytes. No point making
+it bigger than that because malloc's argument is a size_t, which is an int.
+ckufio.c, 5 Oct 2009.
+
+Built on Mac OS X 10.4.11, required one minor adjustment to the makefile
+(-DNODCLINITGROUPS). This was using the macosx10.5 target, which is
+supposed to be universal like the linux and netbsd targets, but not yet
+proven. Also built a 64-bit version (-mpowerpc64 -mcpu=G5 -mtune=G5
+-arch ppc64); it compiles and links OK but won't start: "Bad CPU Type
+in executable". Fix later... makefile, 5 Oct 2009.
+
+Changes from Seth Theriault to suppress signed vs unsigned char warnings in
+Mac OS 10.5.8 from gcc4, and a new makefile target for Mac OS X (presumably
+10.3.9 or later) + Kerberos 5 and OpenSSL. ckutio.c, ckuath.c, ckctel.c,
+ckcnet.c, ckcftp.c, ck_crp.c, makefile, 6 Oct 2009.
+
+ Later I had to back out of these, because although it made for a
+ clean build, in the resulting executable SSL connections didn't work.
+
+Tue Oct 6 17:23:27 2009
+FTP address resolution is broken, but ftp_hookup() hasn't changed.
+So... (see the #ifdef HPUX6 sections of ckcnet.c) (I did, and I rolled
+back some of the changes from the other day, but it made no difference.)
+Putting back the ckcftp.c from a few weeks ago makes no difference.
+Putting back the ckcnet.c from a few weeks ago makes no difference.
+
+Added patches from Seth Theriault so macosx10.5+krb5+openssl would build
+on Mac OS X 10.3.9. makefile, ckcftp.c, 7 Oct 2009.
+
+Built today's code on Linux RHEL4, NetBSD 5.0.1, Solaris 9, and Mac OS X
+10.4.11, both with and without SSL. The NetBSD system has OpenSSL 0.9.9-dev.
+7 Oct 2009.
+
+In Mac OS X 10.6, the following symbols are unresolved at link time:
+_des_key_sched, _des_new_random_key, _des_ecb_encrypt,
+_des_init_random_number_generator, _des_fixup_key_parity. This is
+with OpenSSL 0.9.8k. But it doesn't happen on other platforms that
+have 0.9.8k.
+
+Added SET SESSION-LOG NULL-TERMINATED-TEXT. This is for the benefit of a
+speech synthesizer that will speak a line of text only after receiving a
+NUL character. A more general solution would be to define a filter or
+whatever, but who has time. ckuus[23x].c, 7 Oct 2009.
+
+Consolidated Mac OS X targets, and removed experimental 64-bit ones, because
+they never could work in 10.5 and earlier because 64-bit libs are missing,
+and 10.6 and later are 64-bit automatically. makefile, 8 Oct 2009.
+
+Built on Mac OS X 10.6.1. It came out automatically as a 64-bit build
+because __LP64__ is defined somewhere that I can't find. But this explains
+why the 0.9.8k on 10.6 comes up with missing symbols when the 0.9.8k lib
+10.5 (or on Solaris or on Linux) does not: it's a different library: "Mach-O
+64-bit dynamically linked shared library x86_64", rather than "Mach-O
+dynamically linked shared library ppc". Probably the 64-bit version has
+some things #ifdef'd out. Added -m32 to the CFLAGS and LNKFLAGS for the
+macosx+krb5+openssl targets, and it built OK one time. But then the errors
+came back. makefile, 8 Oct 2009.
+
+Updated C-Kermit installation for Mac OS X in ckuwr.html on the website.
+8 Oct 2009.
+
+Tried some things to get around the problem with OpenSSL in Mac OS X 10.6,
+to no avail. Asked Jeff. He said, "MacOS X no longer includes DES anywhere
+on the system. Not for SSL, not for Kerberos, not for anything. This will
+increasingly become the situation on new operating systems. Windows 7 and
+2008 R2 will also ship with no DES." Sure enough, the Mac OS X Server
+Upgrading and Migrating document for 10.6 says, "Mac OS X Server v10.6 does
+not support single DES encryption. It supports AES 128 and 256 encryption
+types. However, during a migration or upgrade from v10.4 to v10.6, servers
+that were Kerberized by the v10.5 Open Directory server will not use the AES
+128 or 256 encryption types. To use the AES 128 or 256 encryption types you
+must re-Kerberize all servers." 12 Oct 2009.
+
+DES and 3DES encryption can be excluding removing the -DCK_DES flag. I
+removed this one and -DLIBDES (and -m32) and this makes a working 64-bit
+version. Then I added code to the macosx+krb5+openssl target to use these
+flags if the Mac OS X version was 10.5 or less and leave them out for 10.6
+or later. Tested on 10.4.11 and 10.6.1. A better way to do it might have
+been "nm -gj libssl.dylib | grep des_", but that gives the same results on
+10.4 and 10.6. Also, 10.6 still has /usr/include/ssl/des.h.
+makefile, 13 Oct 2009.
+
+Next issue:
+ In file included from ckutio.c:15674:
+ /usr/lib/gcc/i386-redhat-linux/3.4.6/include/varargs.h:4:2: #error "GCC no
+ longer implements <varargs.h>."
+ /usr/lib/gcc/i386-redhat-linux/3.4.6/include/varargs.h:5:2: #error "Revise
+ your code to use <stdarg.h>."
+
+The problem occurs when trying to force a non-ANSIC build with GCC.
+Changing the source file to include <stdarg.h> instead of <varargs.h>
+doesn't help because evidently <stdarg.h> requires an ANSI C compiler.
+Nothing can be done about this. 13 Oct 2009.
+
+Next issue: Can't compile ckcftp.c with -DNOCSETS or -DNOSPL; some
+#ifdef/#endif doesn't match up. Sigh, this is the hardest kind of thing to
+debug. There's 17,622 lines of code in this module and no tool that I know
+of.... Wait, I wrote one. But it shows all the #if/#ifdef/#ifndef's and
+#endifs matching up just fine. Backing off to ckcftp.c of a few days ago
+(before char / unsigned char casts were added), I see that it builds OK, so
+I backed off to that one, but put back the special case #ifdef for MACOSX103
+declaring CONST gss_OID_desc, and it builds OK (the other stuff was purely
+cosmetic, when will I learn?). ckcftp.c, 13 Oct 2009.
+
+Protected cvtstring() and related functions with #ifdef NOCSETS..#endif,
+and ditto for the character-set conversion code in dorename().
+ckuus6.c, 13 Oct 2009.
+
+Fixed an #endif /* TNCODE */ that was a line too low in ttptycmd(),
+causing -DNONET builds to fail. ckutio.c, 13 Oct 2009.
+
+There was a reference to doputenv() that wasn't guarded by #ifndef NOPUTENV,
+fixed in ckuus7.c, 13 Oct 2009.
+
+Moved doputenv() and settermtyp() out of an #ifdef NOLOCAL section because
+these are useful even when not making connections. ckuus7.c, 13 Oct 2009.
+
+Moved havelfs declaration outside of #ifdef NOXFER because it was also used
+for other things. ckcmai.c, 13 Oct 2009.
+
+COPY /PRESERVE depended on code from the Kermit protocol module, which
+is omitted in -DNOXFER builds. Disabled COPY /PRESERVE in -DNOXFER
+builds. ckuus6.c, 14 Oct 2009.
+
+SHOW PROTOCOL code for external protocols had to be #ifdef'd out for
+-DNOPUSH builds. ckuus4.c, 14 Oct 2009.
+
+There was some confusion between "No XYZMODEM" and "No external protocols";
+cleared up in ckuus3.c, 14 Oct 2009.
+
+After all that, 86 different combinations of feature selections built OK on
+Linux. And the Kerberized version (K5) works OK on Linux for Telnet and FTP.
+14 Oct 2009.
+
+Changed version number to 9.0. All modules, 16 Oct 2009.
+
+Need to make LOG SESSION log to a tty. Right now "log session
+/dev/ttyKeySerial1" says "Write permission denied" even though the device is
+crw-rw-rw-. This happens in zchko(), which is called by cmofi(). The
+problem is that /dev/ is not writeable. I added a Unix-only clause that
+attempts to open the file for write access using open(), in order to get a
+file descriptor, which then can be passed to isatty() to check if it's a
+tty, and if so, to allow access. And then close it. I tested this on Mac
+OS X as follows:
+
+ log session /dev/ttyKeySerial1
+ telnet somehost
+
+The Mac's serial port was connected to the serial port of another computer
+where Kermit displayed the incoming characters in CONNECT mode. Glitches:
+
+ 1. The port has to be set up as desired in advance, outside of Kermit.
+ 2. log session /dev/ttyKeySerial1 will hang if any required modem signals
+ are not present when the port is opened.
+ 3. Bypasses lockfile mechanism - so we do this only if -DNOUUCP.
+
+For (2), I tried setting O_NDELAY / O_NONBLOCK, and this allowed zchko() to
+continue, but then it freezes in the subsequent fopen(). So I changed
+zopeno() to also check if the device is a serial port, and if so, to open()
+it with O_NDELAY / O_NONBLOCK, and then convert the file descriptor into a
+file pointer with fdopen().
+
+Now for the speaking device that needs lines to be terminated by NUL...
+
+ set session-log binary <-- need to put these in SHOW LOG
+ set session-log null-padded (and in HELP SET LOG)
+ set line /dev/ttyKeySerial1
+
+This part works.
+
+This feature is enabled only for -DNOUUCP builds because serial ports aren't
+like other Unix files; we would have to create a lockfile, but we can't do
+that... actually, ttlock() takes a name as an argument, but ttunlck() does
+not, so there would be no way to remove the lock. Anyway, there is only one
+API for configuring the port (speed, flow control, etc) and it only works
+with the SET LINE device, not any random file. To fix this would require
+massive redesign and changes. ckuus[23].c, ckufio.c, 19-20 Oct 2009.
+
+I made -DNOUUCP the default for Mac OS X, since everybody winds up building
+it that way anyhow. To undo this, do "make macosx KFLAGS=-UNOUUCP".
+makefile, 21 Oct 2009.
+
+Changed SET SESSION-LOG TEXT to strip out ANSI escape sequences;
+previously there wasn't that much difference between TEXT and BINARY logs.
+It's still not perfect; for example it doesn't delete characters that the
+user erased. (Made sure this still builds with -DNOESCSEQ.)
+ckucns.c, 22 Oct 2009.
+
+Changed SHOW LOG to show the SET SESSION-LOG settings, as well as
+SET DEBUG, which was not shown before. ckuus5.c, 22 Oct 2009.
+
+If a series of PUTENV commands is given, each new one undoes the previous
+one, so only the last definition is seen by the new fork (or by Kermit
+itself). Turns out you can't feed automatic variables to putenv(); they
+have to be static, so to allow for multiple PUTENV commands Kermit has to
+maintain an array of static strings. ckuus7.c, 6 Nov 2009.
+
+From Seth Theriault, a better way for the makefile to determine the
+Mac OS X version number; there's a program for this, sw_ver. makefile,
+6 Nov 2009.
+
+Peter Eichhorn reported that file-transfer failure hints were not coming
+out since Dev.27. The only change I made since then was to skip them if
+the file-transfer protocol was not Kermit. I was using the wrong variable
+in the tests, 'proto' instead of 'protocol'. ckuus5.c, 6 Nov 2009.
+
+Changed Mac OS X targets to correctly extract the Mac OS major version
+from uname -r in order to choose correctly between utmp and utmpx; this
+wasn't working in 10.6.1. makefile, 6 Nov 2009.
+
+Fix from Seth T. for an oversight in the previous edit. Also add
+MACOSX103 to "show features" display. makefile, ckuus5.c, 10 Nov 2009.
+
+Added REJECT as a synonym for DISCARD in SET FILE COLLISION; it's more
+intuitive and more accurate. ckuus[27].c, 15 Nov 2009.
+
+\fsplit() and \fword() always break on 8-bit characters unless you explicitly
+put every single 8-bit value into the include set, e.g. (for a TSV file):
+
+ undef include
+ for \%i 128 255 1 {
+ if == \%i 9 continue
+ .include := \m(include)\fchar(\%i)
+ }
+ .\%n := \fsplit(\m(line),&a,\9,\m(include))
+
+I changed cksplit() to treat all 8-bit bytes 128-255 as non-break characters
+by default. It might have made more sense to do this for 160-255 (since
+128-159 are traditionally C1 control characters) but thanks to Microsoft
+tradition is out the window. To treat one or more 8-bit characters as break
+characters, put them in the break set. This might break some scripts, but I
+doubt it because this flaw was so awful that if anyone had come up against
+they would have let me know. ckclib.c, 16 Nov 2009.
+
+Changed the netbsd target to set -funsigned-char, since cc on NetBSD is
+actually gcc. makefile, 16 Nov 2009.
+
+Changed macosx targets to get the CPU type from the HOSTTYPE environment
+variable. Also added getenv("HOSTTYPE") as a last-resort method to set the
+\v(cpu) variable at runtime (maybe it should be the first resort?)...
+ckuus4.c, makefile, 16 Nov 2009.
+
+Made sure the solaris9_64 and solaris10 targets still work. 16 Nov 2009.
+
+Made sure the current source package builds OK on HP-UX 10.20... Got a lot
+of "warning 6062: Optdriver: Exceeding compiler resource limits in xxx; some
+optimizations skipped. Use +Onolimit if override desired" but it builds OK.
+Tested long file transfer; works OK. 17 Nov 2009.
+
+Built on FreeBSD 7.2 with and without OpenSSL, all OK. 17 Nov 2009.
+
+Built on NetBSD 5.0.1 with and without OpenSSL, all OK, but netbsd+krb5
+fails with "can't find -lgssapi_krb5"; worked around this with
+"K5LIB=-L/usr/local/kerblib" (where the lib actually is on this host) but
+then it failed with "ckcftp.c:13868: error: 'gss_nt_service_name' undeclared".
+17 Nov 2009.
+
+I found a VMS 6.2 system... Takes a loooong time to build there. In
+ckuusy.c, DEC C didn't like the prototypes and declarations of dorlgarg()
+and dotnarg() as static so I made them not static. But that didn't help,
+now it fails at the very end, saying the final #ifdef is an invalid
+statement. It looks like an #ifdef mismatch that affects only VMS. I ran
+my #ifdef matcher, it turned up nothing. I substituted a copy of ckuusy.c
+from 2007, it comes up with the same errors. Then I substituted the copy
+from 8.0.211 from 2004, and this one compiled OK and, miraculously, the
+whole mess even linked OK and runs OK. The Alpha binary is 2.84MB. Now I
+have 4500 lines of code to compare.... I went through the two files line by
+line and I can't see a single thing wrong. I gave up and tried building the
+TCP/IP version. It builds fine except for ckuusy.c, with the utterly
+useless error message:
+
+ #endif /* NOCMDL */
+ ...................^
+ %CC-E-BADSTMT, Invalid statement.
+
+Indicating the last line in the file. Just for the heck of it, I put
+another line after that one:
+
+ /* This is a test */
+
+and got:
+
+ /* This is a test */
+ ....................^
+ %CC-E-BADSTMT, Invalid statement.
+
+So it is not objecting to anything in the file. Trying the old LISP trick,
+I put an extraneous closing bracket after that. Success! Honestly, I don't
+see anything wrong with file. It's DEC C V5.3-006. I suspect a C bug.
+I'll leave it like this for now until I get access to some other VMS
+versions. Another clue is that when building the network version I get a
+horrible warning I never saw before from a module that hasn't been touched
+in a very long time (ckvrtl.c). Also, in the network version, I note that
+the FTP code is not compiled in. We have to try this again with some
+command-line switches, but it'll do for now. ckuusy.c, 18 Nov 2009.
+
+---C-Kermit 9.0 Alpha.01---
+
+From Steven Schweda (SMS), the real solution for the VMS closing brace
+problem, it wasn't a DECC bug, it was a me bug. ckuusy.c, 20 Nov 2009.
+
+Rediscovered the new VMS build options: f for Long Files, i for Internal
+FTP. "make mnf" doesn't work on VMS 6.2, it looks like the VMS definition
+for CK_OFF_T got lost. Same thing with "make mfi". Come back to this later.
+
+From Gerry Belanger, a fix to INPUT /COUNT:n. ckuus4.c, 26 Nov 2009.
+
+Added \fsqueeze(s), returns string s with leading and trailing whitespace
+removed, Tabs converted to Spaces, and multiple spaces converted to single
+spaces. For now, ASCII only, no options. ckuusr.h, ckuus[24].c, 27 Nov 2009.
+
+I wrote a Kermit script to read a big file of addresses on Solaris 9,
+\fsqueeze()ing each line. After about 14000 lines, there was a malloc
+failure in getnct() (the command-file reader). There's nothing wrong with
+\fsqueeze(), the failure is on a deeper level, because the same thing
+happens if I use \fupper() (which is structurally identical to \fsqueeze())
+in the same script. The problem is not in getnct() either, because every
+malloc() is freed (I checked). On the other hand, the same script (with
+\fupper() instead of \fsqueeze() completes OK in C-Kermit 8.0.201. If I
+remove the function call (\fsqueeze() or \fupper()) from the script, it also
+runs OK in 9.0. This seems to point the finger at fnevel(), which contains
+countless malloc's and free's. But comparing fneval() between 8.0.211 and
+9.0, I don't see any difference that would explain this behavior -- nothing
+at all that involves malloc(), makstr(), or free(). Nor any pertinent
+change in the caller (zzstring) of fneval(). 27 Nov 3009.
+
+Another problem is that when this happens, the error is not caught (e.g. by
+the IF FAIL statement after the command that contains the function call);
+instead, C-Kermit returns immediately to its prompt. 27 Nov 2009.
+
+It could simply be that some of the buffers we allocate are much bigger now.
+But again, I don't see much difference between 8.0.211 and 9.0; we were
+already allocating 32K command-related buffers (malloc() takes a size_t, and
+size_t is an int almost everywhere). I built the same source on NetBSD and
+ran the same script (with \fqueeze()), and it worked fine. Let's worry
+about this later, if it comes up. 27 Nov 2009.
+
+Built OK on Silicon Graphics IRIX 6.5 R10000; regular build OK, SSL and
+Kerberos builds failed. 30 Nov 3009.
+
+Tried to build on Digital Unix 4.0F but it blew up in ckutio.c, apparently
+not recognizing any of the terminal struct symbols from termios.h. Tried
+again with gcc, same thing. Tried explicitly #including <sys/termios.h>
+within #ifdef TRU64, same thing. What could have changed? 30 Nov 2009.
+
+Built OK on Linux RHEL5.4/Itanium-2, make linux. The secure build
+required "FLAGS=-DNO_KRB5_INIT_ETS" and built OK. 30 Nov 2009.
+
+Built OK on Digital Unix 4.0F using "make osf" instead of "make tru64-40f".
+I don't know why the specific target doesn't work, but it's not worth
+chasing down. 2 Dec 2009.
+
+Built OK on MirBSD 10, despite a lot of gratuitous compiler warnings. Built
+OK on MirBSD 10, OpenBSD 4.5, and Fedora 10. 3 Dec 2009.
+
+(Various other successful Unix builds in these weeks...)
+
+Built on VMS 7.2 and 8.3 with and without TCP/IP, no problems. 11 Jan 2010.
+
+Built on VMS 8.3 with "make fi" to include the FTP client and long-file
+support (mid Jan 2010).
+
+Built on VMS 8.3 with UXC 5.6 and HP SSL 1.3, which is OpenSSL 0.9.7e.
+It compiled and linked OK but when I tried to make an FTP SSL connection
+it crashed in SSL$LIBSSL_SHR, which is called from ssl_auth(), after having
+had TLS accepted as an authentication type, but before actually
+authenticating. In Unix:
+
+ 19. ftp open ftp.somecompany.com /user:pge.com/test_quota /password:xxxxxx
+Connected to ftp.somecompany.com.
+220-Somecompany FTP v6.0 for WinSock ready...
+220 Welcome to the online storage FTP server. Please check the main web
+site for system announcements and AUP. (O)
+---> AUTH TLS
+234 AUTH command OK. Initializing SSL connection.
+TLS accepted as authentication type
+SSL DEBUG ACTIVE
+=>START SSL/TLS connect on COMMAND
+
+In VMS:
+
+ 19. ftp open ftp.somecompany.com /user:pge.com/test_quota /password:xxxxxx
+Connected to ftp.somecompany.com.
+220 Somecompany FTP v6.0 for WinSock ready...
+---> AUTH TLS
+234 AUTH command OK. Initializing SSL connection.
+TLS accepted as authentication type
+SSL DEBUG ACTIVE
+%SYSTEM-F-ACCVIO, access violation, reason mask=04, virtual
+address=FFFFFFFF8001A120, PC=000000000068B118, PS=0000001B
+
+Note: The Unix version received the second 220 response, the VMS version did
+not. That's odd, it's the same code... 25 Jan 2010.
+
+Added some essential details to the HELP FSEEK text. ckuus2.c, 25 Jan 2010.
+
+Discovered that the result returned by \fsearch() is totally unreliable.
+This is probably too hard to fix.
+
+FSEEK did not pay attention to SET CASE, searches were always case sensitive.
+Fixed in ckuus7.c, 26 Jan 2010.
+
+FSEEK failed to find anything if the search pattern was matched in the first
+line of the file. Fixed in ckuus7.c, 26 Jan 2010.
+
+\fword() and \fsplit().... Another change, but not backwards-incompatible.
+One may now put the word ALL (just like that, all uppercase) as the include
+set (4th argument) to indicate that there will be no break characters other
+than those explicitly given in the break set, e.g. \fsplit(\m(xx),&a,:,ALL)
+breaks a line only on a colon (:), nothing else. The original rules for
+cksplit() were more than a little counterintuitive: the default break set is
+all non alphanums, and the default include set is all alphanums, so if you
+wanted to parse (say) a CSV file, breaking only on comma, you had to think
+of all the characters you wanted to keep. This way you just say ALL.
+ckclib.c, 26 Jan 2010.
+
+Speaking of CSV files... How can you put comma as a function argument when
+comma is the function-argument separator? Use one of these forms:
+
+ \fsplit(\m(xx),&a,",",ALL)
+ \fsplit(\m(xx),&a,{,},ALL)
+ \fsplit(\m(xx),&a,\44,ALL)
+ \fsplit(\m(xx),&a,\fchar(44),ALL)
+
+From John Dunlap, U. of Washington Applied Physics Lab: 'When "stty -a <
+/dev/ttyS0 | grep crtscts" shows "crtscts" (not "-crtscts") and when using a
+three wire serial interface and when asking kermit to not use flow control
+(set flow none) then "ckutio.c1" (see attachments) fails while "ckutio.c"
+works. The result of "diff -u ckutio.c1 ckutio.c" is attached as "diffs"'.
+ckutio.c, 26 Jan 2010.
+
+Changed the year from 2009 to 2010 in the modules I worked on today and in
+the heralds, etc. ckckmai.c, ckuus5.c, ckutio.c, ckclib.c, ckuus7.c,
+26 Jan 2010.
+
+Built on Linux Fedora Core 3, regular and with OpenSSL 0.9.7a. Built on
+Ubuntu 9.4 OK, but SSL and Kerberos builds failed due to not finding libs
+and/or header files. I'm sure this could be fixed... 27 Jan 2010.
+
+Added SSL, KRB4, and KRB5 to the startup herald for versions that were
+built with SSL, Kerberos 4, or Kerberos 5. Built OK on Fedora 3 with
+linux+krb5+ssl and new banner shows correctly. ckuus5.c, 27 Jan 2010.
+
+Set NO_KRB5_INIT_ETS by default in ckuath.h since krb5_init_ets() is a no-op
+in Kerberos 1.4.x and later and in some installations it can't be found,
+which clobbers the build. ckuath.h, 27 Jan 2010.
+
+Adapted to MINIX 3 1.5, the first version that has virtual memory according
+to Andy T, who should know. On earlier versions (e.g. MINIX 3 1.2) any
+attempt to build C-Kermit causes the compiler to crash. Now the compiler
+doesn't crash but it spews out countless warnings about old-fashioned
+function declarations that I don't get anywhere else. The real problems
+came in ckutio.c where numerous symbols were undefined at compile time and
+the POSIX function tcgetpgrp() was not found at link time, even though there
+is a prototype for it in the MINIX header files, and there is no alternative
+(since POSIX doesn't let us use ioctl()). Also note that there is some
+confusion over the compile-time symbols MINIX, MINIX2, MINIX3, and MINIX315.
+You would expect MINIX to mean "any version of MINIX" but in some parts of
+ckutio.c it means MINIX 1.0. I sincerely doubt that C-Kermit 9.0 can be
+built on any version of Minix before 3.1.5 so I removed the confusion and
+made MINIX mean "any Minix". It builds on 3.1.5 OK now, except for the FTP
+client. This can probably be fixed but... Modules changed: ckcdeb.h,
+ckuver.h, ckcmai.c, ckuus5.c, ckutio.c, 1 Feb 2010.
+
+Later.. Andy says MINIX does not support job control, so no program is ever
+in the background. That settles that! 1 Feb 2010.
+
+Built OK on Minix, Linux, Mac OS X, Solaris 9, NetBSD 5.0.1... 1 Feb 2010.
+
+---C-Kermit 9.0 Alpha.02---
+
+From Christian Corti at Uni-Stuttgart.de: fixes to allow building on SunOS
+4.1, which once was my main development platform but which is long-gone from
+here. ckupty.c, ckutio.c, 9 Feb 2010. (He says it is also necessary to
+comment out the "struct winsize" and "struct ttysize" in sys/ioctl.h;
+otherwise there will be a conflict with sys/ttycom.h (included by termios.h)
+which also declares these structs. But you need both includes.')
+
+From John Dunlap, a fix for Kermit protocol fixed packet-timeout interval
+going to a unexpected value (missing else clause in two places).
+ckcfn2.c, 9 Feb 2010.
+
+Added an aixg target to build on AIX with gcc when gcc is not installed as
+cc, and also added CC=$(CC) CC2=$(CC) clauses to the aix and aix+ssl
+targets. Wow, AIX really loses bigtime when receiving files through its ssh
+server. Streaming can't be used, sliding windows recover from errors but
+there are tons of them using the default 4K packets; 500 works much better.
+Built with IBM cc and gcc, and also tested (successfully) the new aix+ibmssl
+target, in which the OpenSSL headers and libs are in a standard place.
+makefile, 9 Feb 2010.
+
+In ckupty.h, make the #include <sys/ioctl.h> be #ifndef SUNOS41.
+From Christian Corti. 10 Feb 2010.
+
+Built on VMS E8.4. 12 Feb 2010.
+
+Tried to build on a real VAX-11/785 but the machine seems to be seriously
+wedged. 12-15 Feb 2010.
+
+Added note to CKVKER.COM to the effect the the 'f' option has no effect
+on VAX architecture. 15 Feb 2010.
+
+Moved the #include "ckvrtl.h" in the FTP module to below the include for
+utime.h, because building the VMS version with the 'i' option (meaning
+"include internal ftp client") results in "struct utimbuf tp" erroring out
+because struct utimbuf is not defined yet (at least in some version of VMS
+with some version of C). From Rob Brown, ckcftp.c, 20 Feb 2010.
+
+From Martin Vorlaender: new code in VMS C-Kermit build procedure to detect
+OpenSSL version automatically. ckvker.com, 22 Feb 2010.
+
+Added code to INPUT command to strip ANSI escape sequences. It's activated
+by SET SESSION-LOG TEXT. ckuusr.h: added prototype for chkaes();
+ckucon.c, ckucns.c: made inesc[] and oldesc[] global instead of static;
+ckuus4.c: doinput() code for skipping escape sequences. 1 Mar 2010.
+
+Peter Eichhorn complained that if you make an ssh connection with Kermit,
+then log out from the ssh host, and then use a "connect" command to
+make a new connection to the same host (which you can do with Telnet),
+Kermit says (e.g.):
+
+ DNS Lookup... Can't get address for ssh -e none somehostname
+ Sorry, can't open ssh -e none somehostname: Error 0
+
+I added code to detect and handle this case and it seems to work OK, even
+though it's kind of a hack. ckuusr.[ch], ckuus7.c, 1 Mar 2010.
+
+There has never been a clean way to put debugging messages (ECHO commands)
+in a script which are executed only if debugging is desired and ignored
+otherwise. You'd have to set a random variable and test it, or define a
+macro or whatever. To make this more straightforward, I added SET DEBUG
+MESSAGE ON/OFF/STDERR, and added a new MESSAGE (syn: MSG) command for printing
+debugging messages to stdout if SET DEBUG MESSAGE is ON or to stderr if SET
+DEBUG MESSAGE is STDERR. ckcmai.c, ckuus[r23].c, 12 Mar 2010.
+
+Also for debugging and error messages, I added \v(lastcommmand) so that
+the command that failed can be included in an IF FAIL or DEBUG error message.
+This works even for commands that have syntax errors.
+ckuusr.h, ckuus5.c, ckucmd.c, 12 Mar 2010.
+
+From SMS for VMS: 'Added/documented P3 options INTSELECT, OLDFIB, OLDIP.
+Disabled (commented out) automatic definition of NOSETTIME for VMS before
+V7.2 (vms_ver .lts. "VMS_V72").' ckcdeb.h, ckcftp.c, ckcnet.c, ckuus[2567].c,
+ckvfio.c, ckvker.com, ckvrtl.[ch], 15 Mar 2010.
+
+Exposed inesc[] and oldesc[] for VMS, so new INPUT command escape-sequence
+stripping can work (really, chkaes() and related global variables should be
+moved out of ck[uvd]con.c/ckucns.c and into a common module; do that later).
+ckuusr.h, ckvcon.c, 15 Mar 2010.
+
+Built OK on Solaris9, Mac OS X 10.4.11, RHEL4 (32-bit), RHEL5 (64-bit),
+AIX 5.3, SCO OpenServr 6.0.0... 15 Mar 2010.
+
+Not so good on VMS, turns out I made a typo in one of the VMS updates
+(#ifndef OLDIP instead of #ifdef...). ckcnet.c, 16 Mar 2010.
+
+More from SMS for VMS, 16 Mar 2010:
+ . Set MAXPATH correctly for VMS, ckcdeb.h.
+ . NAM -> NAML, QIO replaces system( "SET PROTECTION"), bugfixes in
+ cvtdir() and nzltor(), ... (See comments): ckvfio.c, new ckvrms.h.
+ (The RMS code in ckvfio.c was almost totally rewritten)
+ . Moved "NAMX$*" (and related) macros to ckvrms.h, and renamed to
+ "NAMX_*" (and similar "$" -> "_"), moved "FIB_*" macros from ckvrtl.c.
+
+These changes are mainly to accommodate the ODS5 file system, which has
+longer and mixed-case filenames, and also to execute certain commands
+(e.g. for setting file protection, deleting directories) directly instead
+of using a system() command.
+
+Built OK on VMS 8.3 (with and without network support). 16 Mar 2010.
+
+Failed to build on VMS 6.2. 16 Mar 2010.
+
+FreeBSD 8.0 <libutil.h> has a hexdump() prototype that conflicts with the
+hexdump macro defined in ckcdeb.h. Since the same thing is likely to happen
+elsewhere, I changed the Kermit macro to ckhexdump as well all references to
+it: ckcdeb.h, ckcftp.c, ckcnet.c, ckctel.c, ckuath.c, ckutio.c, 16 Mar 2010.
+
+Built OK on Digital Unix Tru-64 4.0E using "make osf", 16 Mar 2010.
+
+Tried again to build Digital Unix Tru64 4.0E using "make tru64-40e", but
+something prevents it from picking up the termios symbols and it blows up in
+ckutio.c, whereas this used to work in earlier C-Kermit versions. This is
+the only Tru64 system I still have access to, so I can't tell if it's a
+local peculiarity or what. Note that POSIX is not defined for this build.
+But if I define it, I get into trouble with "struct timeval". Tried again
+with "KFLAGS=-DPOSIX -DNOTIMEVAL" but that doesn't help. Tried "make
+dec-osf" and that worked OK but oddly enough it makes a Kermit with less
+features than "make osf". 16 Mar 2010.
+
+To go with MESSAGE and SET DEBUG MESSAGE, I added IF DEBUG, which is true
+if SET DEBUG MESSAGE is not OFF and false otherwise. ckuusr.h, ckuus6.c,
+16 Mar 2010.
+
+From SMS: Corrections to my merging of SMS's changes, ckcftp.c, ckvrtl.h.
+Builds OK on VMS 6.2 now. Also did an SSL build on VMS 8.3 with OpenSSL
+m0.9.7e and "OPENSSL_DISABLE_OLD_DES_SUPPORT" was included in P3
+automatically by Martin V's addition to ckvker.com. 17 Mar 2010.
+
+From SMS: #include <types.h> earlier for VMS in ckcdeb.h to pick up off_t
+before it is referenced. This allows C-Kermit to compile on VMS/Alpha 6.2
+but linking fails on fseeko() and ftello() (and yet, a functional executable
+is created, and FSEEK works right). Builds the same way with no problems at
+all on VMS 8.3 / Alpha. In this case we get the full 64-bit arithmetic...
+Well, 62 bits:
+
+ ATLAS::C-Kermit>( ^ 2 63)
+ 9223372036854775000.0
+ ATLAS::C-Kermit>( ^ 2 62)
+ 4611686018427387904
+
+whereas on VMS 6.2 we get integers only up to (^ 2 30). 17 Mar 2010.
+
+Changed the VMS build procedure to enable large file support automatically
+for non-VAX and VMS 7.3 or greater. No reason not to include this feature.
+Changed the sense of the F option to DISABLE large file support in the
+unlikely case that C-Kermit is being built on a suitable platform but the
+C library is older than VMS73_ACRTL-V0200, in which case fseeko() and
+ftello() will come up missing at link time. ckvker.com, 18 Mar 2010.
+
+Changed VMS build procedure to include the FTP client in any network build
+by default. Changed the sense of the I option to exclude the FTP client,
+in case anybody would want to do that. ckvker.com, 18 Mar 2010.
+
+From SMS: updated dependencies in CKVKER.COM, fix the "don't reinclude me"
+clause in CKVRTL.H. 19 Mar 2010.
+
+Built OK on VMS 6.2 and 8.3 with and without networking. Large file support
+included automatically in VMS 8.3 FTP client included automatically in both
+network builds. 19 Mar 2010.
+
+Changed hexdump() to ckhexdump() in ck_crp.c, which I missed before.
+19 Mar 2010.
+
+---C-Kermit 9.0 Alpha.03---
+
+In HP-UX with the bundled-non ANSI compiler, we get warnings about functions
+such as endusershell(), which are declared void in the header files. But in
+non-ANSI builds we defind VOID to be int rather than void, so our prototypes
+are wrong. I checked that HP-UX 9, 10, and 11 all have void datatype and
+changed the definition of VOID to void in those cases. ckcdeb.h, 29 Mar 2010.
+
+Fixed a typo in a debug() statement in cksplit() that was causing some
+warnings. ckclib.c, 29 Mar 2010.
+
+Ditto in tls_load_certs(). ck_ssl.c, 29 Mar 2010.
+
+"make hpux1000o+ssl" files with:
+/usr/ccs/bin/ld: Unsatisfied symbols:
+ __umoddi3 (code)
+ __udivdi3 (code)
+ __eprintf (code)
+
+It appears that OpenSSL (0.9.7c in this case) requires -lgcc.
+And indeed hpux1000gcc+ssl builds fine. 29 Mar 2010.
+
+There are various warnings in the SSL code in ckutio.c, ckcftp.c, and
+ckcnet.c about pointers not being assignment compatible, but I have learned
+from experience not to try to fix these (see notes from 6 Oct 2009).
+29 Mar 2010.
+
+connect(s, (struct sockaddr *)&hisctladdr, sizeof (hisctladdr)): In FTP,
+this doesn't work on RHEL5 / Mac OX X 6.1/2 64-bit. But the connect() in
+Telnet works. On Mac OS X 6.2 I tried changing the socket() call to be like
+the one in ckcnet.c for Telnet, but it made no difference. On a RHEL5.4
+system on i386, FTP works fine, so it's not the Red Hat version. On Digital
+Unix 4.0E 64-bit, same thing:
+
+ 11:23:10.722 ftp_hookup[kermit.columbia.edu]=21
+ 11:23:10.722 ftp hookup A[kermit.columbia.edu]
+ 11:23:10.722 ftp hookup C[kermit.columbia.edu]
+ 11:23:10.722 ftp hookup socket=4
+ 11:23:10.722 ftp hookup HADDRLIST
+ 11:23:10.723 ftp hookup connect failed=13
+ 11:23:10.723 ftp hookup bad
+
+13 = Permission denied:
+
+ [EACCESS] Search permission is denied for a component of the path prefix;
+ or write access to the named socket is denied.
+
+On Gentoo Linux, also on Alpha, the errno is 51: Network is unreachable.
+Clearly some data type in the sockets structs is out of whack.
+
+The third connect() argument is "address length". The address is a
+struct sockaddr. About the third argument, RHEL5 "man connect" says:
+
+ The third argument of connect() is in reality an int (and this is what
+ 4.x BSD and libc4 and libc5 have). Some POSIX confusion resulted in
+ the present socklen_t, also used by glibc. See also accept(2).
+
+Building on RHEL5 on x86_64, where size_t is 8 and socklen_t is 4, I get a
+warning:
+
+ ckcftp.c: In function 'ftp_hookup':
+ ckcftp.c:14667: warning:
+ comparison is always true due to limited range of data
+
+Referring to:
+
+ if (hisctladdr.sin_addr.s_addr != (unsigned long) -1)
+
+This seems to be the problem; if I remove the (unsigned long) cast (in two
+places), the problem goes away. Actually what I should be comparing it with
+is INADDR_NONE, which is defined appropriately in some header file, e.g. as
+0xffffffff. Also I define it explicitly as -1 if it is not defined in any
+header file (as is the case in Solaris 9). Tested OK on 64-bit RHEL5,
+32-bit RHEL5, Digital Unix 4.0E 64-bit, Solaris 9 32-bit, Mac OS X 10.4.11
+32-bit, Mac OS X 10.6.3 64-bit, AIX 5.3, Gentoo Linux 2.6.31 on Alpha
+64-bit, NetBSD 5.0.1 32-bit.... ckcftp.c, 29 Mar 2010.
+
+---C-Kermit 9.0 Alpha.04---
+
+Yesterday's VOID redefinition caused problems for HP-UX in ckuusx.c, in the
+curses section where VOID is undef'd and not used to avoid a conflict with
+curses.h. As a workaround I defined a new macro CKVOID with the same
+definition as VOID and used it in the offending section of ckuusx. The real
+solution is to replace all references to VOID with CKVOID (since VOID is
+increasingly likely to cause conflicts), but a mass search and replace is
+not without risks. ckcdeb.h, ckuusx.c, 30 Mar 2010.
+
+Changed VOID and CKVOID definition to be 'void' for all HP-UX (verified by
+PeterE back to HP-UX 6.5, 1989). Still need to check this on HP-UX 5.21;
+if that's an exception it can be done in the makefile. ckcdeb.h, 30 Mar 2010.
+
+The change I made to allow CONNECT to reestablish a previous SSH connection
+prevented a new SSH connection to a different host to be made. Fixed in
+ckuus7.c, 30 Mar 2010.
+
+Fixed mistaken extern declarations of krb4_errno and krb5_errno as strings
+in nvlook(); they are ints. Built OK on Mac OS X 10.6.3. ckuus4.c, 30 Mar 2010.
+
+A fix to Trusted HP-UX makefile target from PeterE, to account for the
+equivalence of +openssl and +ssl as target suffixes. 30 Mar 2010.
+
+Added a new function \fcvtcsets(string,cset1,cset1) that converts a string
+from one character set to another. The csets are File Character-Set names.
+ckuus4.c, 31 Mar 2010.
+
+Added a new function \fdecodehex(string,prefix) that decodes a string
+containing prefixed hex bytes. Default prefix is %%, but any prefix of
+one of two chars (such as % or 0x) can be specified. ckuusr.h, ckclib.h,
+ckclib.c, ckuusr.c, 31 Mar 2010.
+
+Richard Nolde reports that Kermit can't find -lpam on Fedora 12 because it's
+in /lib rather than /usr/lib. RHEL5 has symlinks, FC12 should too. Added a
+note to the makefile. 1 Apr 2010.
+
+Build on Solaris 11 for the first time. Had to adjust ckuver.h to get the
+version herald right. This was on a box that reported its architecture as
+i86pc. 1 Apr 2010.
+
+Added MIME character-set names as invisible synonyms in the file and
+terminal character-set tables, fcstab[] and tcstab[]. Note that not all the
+character sets known to Kermit are registered in MIME. But at least now
+MIME-registered character sets can be referred to by their MIME names, e.g.
+ISO-8859-1, ISO646-ES, IBM437, WINDOWS-1252. These are not listed if you
+type ? in a field that is parsing them, unless you type a letter first,
+e.g. "i?" lists ISO- and IBM set names. Later maybe I'll make parallel
+tables, or keyword attribute bit that says whether a name is MIME or not.
+The real benefit of this change is that now Kermit can take its
+character-set names from external sources like email headers or web logs.
+ckuxla.c, 1 Apr 2010.
+
+Changed the IF command to accept a bare macro name its condition. This will
+parse and execute correctly if the macro is defined and if it has a numeric
+value, or if it is not defined, in which case it evaluates to 0 (FALSE). If
+it is defined but has a non-numeric value, a parse error occurs. ckuus6.c,
+2 Apr 2010.
+
+Added \fstringtype() function. Given a string argument, it tells whether
+the string is 7bit, 8bit, utf8, binary, etc. ckuusr.h, ckuus[4x].c,
+2 Apr 2010.
+
+Did a few builds to make sure there were no booboos. Solaris 9, NetBSD
+5.01, Linux RHEL4, HP-UX 10.20 (non-ANSI compiler and ANSI optimizing
+compiler), Mac OS X 10.4.11, SCO OSR 6.00. 5 Apr 2010.
+
+---C-Kermit 9.0 Alpha.05---
+
+Increased maximum variable name length from 4K to 16K. Verified that
+too-long names are caught and recovered from correctly. ckuusr.h, 6 Apr 2010.
+
+Implemented a new \fsplit() option for parsing CSV files, which turns out to
+be a little complicated, because the separator is not just a comma, but a
+comma and all its surrounding spaces. Also there are special quoting rules
+for fields with embedded commas and fields with embedded quotes. ckclib.c,
+7 Apr 2010.
+
+---C-Kermit 9.0 Alpha.06---
+
+VMS changes from SMS. They build OK, Kermit file transfers are still OK,
+but FTP text-mode GETs always hang on the 10th 8K network read. Couldn't
+get a debug log this time. ckcmai.c, ckvfio.c, ckvrms.h, ckvker.com.
+8 Apr 2010.
+
+Changing VNAML from 4K to 16K broke the build on HP-UX 9. Put it back to
+4K. 9 Apr 2010.
+
+John Dunlap, running days-long stress tests between E-Kermit and C-Kermit,
+found a bug in the packet-reading and -decoding code: If a NAK packet
+arrives with its length field corrupted to indicate a bigger size, and there
+are enough bytes following in the pipeline, ttinl() will return a too-long
+packet (if there are not enough bytes waiting to be read, then ttinl() will
+properly time out). In the bad case rpack() trusts the packet length, uses
+it as the basis for computation of the block-check length, which is then
+used to access memory that might not be there, causing (at least on John's
+Linux system) a segmentation fault. John added the normal clause to check
+the result of the block-check calculation, and I changed ttinl() to always
+break on the eol character (normally carriage return), since this can never
+appear in a packet, even if we "set control unprefix all". Also added a
+check to ttinl() to protect against length fields corrupted into illegal
+values. ckcfn2.c, ckutio.c, 13 Apr 2010.
+
+From Lewis McCarthy:
+ Based on code inspection, C-Kermit appears to have an SSL-related security
+ vulnerability analogous to that identified as CVE-2009-3767 (see e.g.
+ http://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2009-3767).
+
+ I'm attaching a patch for this issue relative to the revision of ck_ssl.c
+ obtained from a copy of http://www.columbia.edu/kermit/ftp/test/tar/x.zip
+ downloaded on 2010/07/30, which I believe is the latest.
+
+ When this flaw was first widely publicized at last year's Black Hat
+ conference, it was claimed that some public certificate authorities had
+ indeed issued certificates that could be used to exploit this class of
+ vulnerability. As far as I know they have not revealed specifically which
+ public CA(s) had been found issuing such certificates.
+ Some references: http://www.mseclab.com/?p=180
+ http://www.theregister.co.uk/2009/07/30/universal_ssl_certificate/
+
+Patches added to ck_ssl.c, 4 Aug 2010.
+
+Peter Eichhorn reported that "RENAME ../x ." didn't work. This is a side
+effect of the changes of 2006 to the RENAME command, there was a little
+confusion in the renameone() routine; fixed in ckuus6.c, 4 Aug 2010.
+
+If only one file is FOPEN'd, FCLOSE given with no arguments would close it.
+Turns out to be a bad idea. Example: program with an input and output file,
+try to close the output file before it is opened by just typing FCLOSE; this
+can mess up the input file. For safety FCLOSE has to require a channel
+number or ALL. ckuus7.c, 4 Aug 2010.
+
+Added \fstrcmp(s1,s2,case,start,length), which has the advantage over IF
+EQU,LGT,LLT that case sensitivity can be specified as a function arg, and
+also substrings can be specified. ckuusr.h, ckuus[24].c, 5 Aug 2010.
+
+The CSV feature of Alpha.06 had a subtle flaw, namely that if the last item
+in a comma separated list was enclosed within doublequotes with a trailing
+space after the closing doublequote, a spurious empty final element would be
+created in the result array. Fixed in cksplit(), ckclib.c, 5 Aug 2010.
+
+---Alpha.07---
+
+The CSV feature of \fsplit() splits a comma-separated list into an array.
+To turn the array back into a comma separated list, \fjoin(&a,\44,1) almost
+works, except for elements contain literal doublequotes, such as:
+
+ Mohammad "The Greatest" Ali
+
+This calls for making a symbolic CSV argument for \fjoin() like the one that
+was made for \fsplit(): \fjoin(&a,CSV). Also \fjoin(&a,TSV) for
+Tab-separated list. Thus if Kermit reads a record in CSV format, splits it
+into an array, and then joins the array back into a CSV record, the result
+will be equivalent to the original, according to the CSV definition. It
+might not be identical, because if the result had extraneous spaces before
+or after the separating commas, these are discarded, but that does not
+affect the elements themselves. Furthermore it is now possible to convert
+a comma-separated list into a tab-separated list, and vice versa (which is
+not a simple matter of changing commas to tabs or vice versa). ckuus4.c,
+12 Aug 2010.
+
+From Joop Boonen 26 Juli 2010: "Added HAVE_LOCKDEV as openSuSE >= 11.3 uses
+lockdev but not baudboy. They use ttylock directly. The program code has
+been added so the the program works without a problem." makefile, ckcdeb.h,
+ckutio.c, ckuus5.c, 23 Aug 2010.
+
+---Alpha.08---
+
+From Gary Mills at the U of Manitoba: convert Solaris version from BSD ptys
+to streams ptys because there are only 48 BSD-style ptys and he was running
+out. No code changes needed, the only change necessary was to add the
+following flags to the makefile target:
+
+ -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME
+ -DPUSH_PTEM -DPUSH_LDTERM -DPUSH_TTCOMPAT
+
+makefile, ckcmai.c, 21 Sep 2010.
+
+Testing this in Solaris 9 I see that the DES library disappeared. Added
+code to the solaris9 targets (also used by Solaris 10 and 11) to check for
+this. makefile, 21 Sep 2010.
+
+The Solaris target checked the OpenSSL version automatically to set the
+right flag, the Linux target didn't. Put the OpenSSL-version testing code
+in the Linux target too. makefile, 21 Sep 2010.
+
+A couple minor changes to the tru64-51b makefile targets from Steven Schweda
+but there still are some problems with the Tru64 Unix builds.
+makefile, 21 Sep 2010.
+
+---Alpha.09---
+
+\fcontents(\&a[3]) got an error if the array was declared but its dimension
+was less than 3, which is bad when dealing with (say) an array created
+dynamically by \fsplit(), which might or might not have a third element.
+In case it doesn't -- i.e. in case we are referring to an out of range
+element of any array that is declared -- we should just return a null
+string, as we do with other types of variables that are not defined.
+For that matter, ditto even if the array is not declared; what useful
+purpose is served by throwing an error in this case?
+ckuus4.c, 30 Dec 2010.
+
+cksplit() treats \ as a quoting character. If the source string contains
+backslashes, they are swallowed (or, if doubled, one is kept). That's not
+good for parsing external data, such as lines read from files, where there
+are no quoting rules. This came up when parsing CSV files; as a workaround,
+I made \fsplit() treat backslash as an ordinary character for CSV and TSV
+splitting (a better solution might be yet another argument that specifies
+a quote character). ckclib.c, 30 Dec 2010.
+
+Began converting C-Kermit to Open Source with the Simplified 3-Clause BSD
+license. Updated the text for the INTRO, LICENSE, NEWS, and SUPPORT
+commands. Fixed things so the copyright year to be displayed is defined in
+one place (ck_cryear in ckcmai.c), rather than hardwired into text strings
+all over the place. COPYING.TXT, ckcmai.c, ckuus[256].c, 2 Jun 2011.
+
+When I added MIME synonyms for Kermit character-set names, I left a bogus
+entry in the tables ("windows-1251") that was in the wrong place
+alphabetically, thus preventing most references to file character-set names
+from working right. Removed the bogus entry. ckuxla.c, 2 Jun 2011.
+
+Most combinations work OK, but not translating Cyrillic text from UTF-8
+to Latin/Cyrillic, and probably the same would be true for any case of
+converting from UTF-8 or UCS-2 to anything else. The problem was in
+xgnbyte(), which converts the input stream from the specified character to
+UCS2; it needed to make a special case for when the input file was already
+Unicode. Believe it or not, this problem occurred at least as far back as
+8.0.201 (9.5 years ago) and nobody noticed. So if the fix isn't perfect
+probably nobody will notice that either. ckcfns.c, 3 Jun 2011.
+
+The SET BLOCK CHECK command did not parse all the items in its keyword
+list. Fixed in ckuus3.c, 3 Jun 2011.
+
+For EM-APEX ocean floats project, where buoys in stormy waters have to
+transmit data through an earth satellite using non-error-correcting modems,
+John Dunlap ran exhaustive stress tests of Kermit protocol transfers through
+a simulated connection that injected errors and delays and identified a
+weakness in Kermit protocol when it is used under extremely bad conditions:
+If a data byte of the S packet (or its Ack) is corrupted and the 1-byte
+checksum is also corrupted in such a way that that the checksum matches the
+corrupted data, the two Kermit programs will disagree as to the negotiated
+parameters. For example, if file Sender's RPT field is changed from '~' to
+'^', the receiver will decode the packet incorrectly. Ditto for most of the
+other parameters. The result is that a corrupted file is received but
+reported correct. John suggested a new mode of operation in which the Type
+3 block check is used for all packets. Such a mode can not be negotiated
+because the negotiation packet itself is assumed by all Kermit programs to
+have a 1-byte checksum. Added SET BLOCK-CHECK 5 to the parser (with
+invisible synonym FORCE-3". ckuus3.c, 3 Jun 2011.
+
+Added supporting code for SET BLOCK 5: ckcfn[23].c, ckcpro.w, ckcmai.c,
+ckuus3.c, 3 Jun 2011.
+
+Added code to skip the heuristic that S and I packets always have block
+check type 1. File transfer OK between two C-Kermits with SET BLOCK 5.
+rpack(): ckcfn2.c, 5 Jun 2011.
+
+Made the file receiver put "5" in the block-check-type in its ACK to the
+S-Packet. spar(): ckcfns.c, 5 Jun 2011.
+
+Now the question is: Can we make the file receiver automatically and safely
+recognize a three-byte block check on an incoming S or I packet? It's
+tricky because the block check field is not self-identified, it's just the
+last "n" characters of string indicated by the length field, so correct
+decoding of the packet depends on stateful knowledge of "n". How about this:
+rpack() already knows what type of packet it is, so if it's an S or I packet
+and the 8th byte of the data field is "5" and last 3 bytes, when interpreted
+as the CRC, match the packet contents, then we accept the packet and switch
+to BLOCK 5 mode.
+
+On the other hand, if the "5" was put there by corruption, the CRC should
+catch the error. In that case we NAK the packet and presumably get a
+different version back. There would be no reason to try to re-read the same
+packet with a different block check, because the "5" could not possibly be
+there legitimately unless it had a 3-byte CRC. To be clear, this is
+cheating. We read the packet contents before we know the packet is correct,
+then we check that it *is* correct. I made the 4-line change to rpack()
+and it works OK in the absence of transmission errors. ckcfn2.c, 3 Jun 2011.
+
+So the various combinations should work as desired:
+
+ . Sender and receiver both support and are told to SET BLOCK 5 ("SB5").
+ . Sender SB5, but receiver doesn't support it (errors out).
+ . Sender SB5, receiver supports it but wasn't told (auto-recognizes it).
+ . Receiver SB5 but sender no (errors out).
+
+Note in the last case, the receiver should NOT automatically fall back to
+standard behavior because if the user said SET BLOCK 5 that means every
+packet MUST be protected by CRC to prevent the I/S packets from being
+corrupted.
+
+Installed new HELP SET BLOCK-CHECK text. ckuus2.c, 5 Jun 2011.
+
+Autodownload didn't work when the S or I packet had a 3-byte block check
+because kstart() checked it for a 1-byte checksum. Fixed in kstart(),
+ckcfn2.c, 6 Jun 2011. However, older Kermit versions and programs that
+claim to do "autodownload" will never recognize this type of packet. No
+big deal since even if they did, the transfer would fail anyway.
+
+Added 'FORCE 3' to E-Kermit, called it EK 1.7. The option is "-b 5". Works
+OK for sending and receiving, both with and without the new option. Also
+works with "-b 5" if you send an S packet to it with '5' in the BCT field.
+Changes were minimal, I have them all in ek17.diff.
+
+I could probably also make a new G-Kermit in about 10 minutes, but who cares
+about G-Kermit... We already have two useful Kermit programs that
+interoperate with the new protocol. 6 Jun 2011.
+
+Replaced the very inadequate help texts for functions \fword() and
+\fsplit() with new ones. ckuus2.c, 6 Jun 2011.
+
+There were a couple reports of file corruption that I was saving for later.
+Now that now is later I dug up the messages, files, and logs and it turns
+out that nobody had reported a reproducible case of Kermit corrupting a
+file. There have been non-reproducible cases though, almost certainly due
+to corruption of the S or I packet or its ACK, which is why we now have SET
+BLOCK 5. Even with BLOCK CHECK 5, there is no guarantee that the same thing
+won't happen, it is just far less likely. Even if we added a 32-bit CRC or
+even 64-bit one, there would still be a small chance it could happen.
+
+7 Jun 2011:
+
+Corrected various #ifdefs (or lack of them) when building C-Kermit with
+different combinations of feature-selection options such as NOCSETS, NOICP,
+NOLOCAL, NOSPL, NOUNICODE, etc. ckcfns.c ckcmai.c ckcxla.h ckuus2.c
+ckuus4.c ckuus5.c ckuus6.c ckuusr.c, 7 Jun 2011. After running the script
+that does all these builds (84 of them) I ran it again to make sure that
+none of the changes broke builds that succeeded before the changes were made.
+
+Built OK on Solaris9 ("make solaris9")
+Ditto with Krb5 and OpenSSL 0.9.8q ("make solaris9g+openssl+shadow+pam+zlib")
+
+Built OK on Mac OS X 10.4.11 ("make macosx").
+Also "make macosx+krb5+openssl.
+
+Built OK on Linux RHEL4 ("make linux").
+Built OK on Linux RHEL4 with OpenSSL 0.9.7a ("make linux+ssl").
+Built OK on Linux RHEL5 ("make linux").
+
+"make linux+ssl" fails on RHEL5 because of DES, even though the target
+tests for the presence or absence of the DES libraries. In this case the
+libraries are there but they lack the functions des_ecb3_encrypt,
+des_random_seed, and des_set_odd_parity. The build succeeds as:
+
+ make linux+ssl KFLAGS=-UCK_SSL
+
+Since DES is now considered harmful, Jeff Altman suggests that all OpenSSL
+builds, even for old versions, should omit it ("If you are building with
+openssl and no kerberos or srp, just disable DES. Disabling DES will impact
+telnet and rlogin but it won't matter if you have no ability to negotiate a
+session key").
+
+From Ian Beckwith, patches for Debian Linux:
+ . Change all '-' to '\(hy' in man page (new pedantry): ckuker.nr.
+ . Make IKSD authentication (using PAM) ask for a password when an invalid
+ username has been given, to avoid disclosing which account names are valid:
+ ckufio.c, ckuus7.c.
+ . Fix spelling errors: ckcftp.c, ckuus2.c, ckuker.nr, ckcpro.w, ckuusr.h.
+ . Patch makefile to support install to a staging area with DESTDIR.
+ . Some other patches (mainly for typos) were for plain-text documentation
+ files that were generated from Web pages; I updated the web pages.
+
+A big corporate C-Kermit user has an application where a local C-Kermit
+makes a connection to a remote one, uploads some files, and then if the
+server has any new patch files for the local, it sends the patches and
+does a REMOTE HOST command to run the patch program. This stopped working
+in C-Kermit 6.0 or 7.0 when I put a check to prevent it, because "it makes
+no sense to send REMOTE commands to the local end, because the results are
+sent back to the remote to be displayed on its screen but it has no screen".
+That may be true, but if the user needs to control the local from the
+remote, they should be able to. I removed the checks. This doesn't solve
+the problem of where the output goes; ideally it would go to the local
+screen but I don't see any elegant and simple way to make that change.
+However the output redirectors can still be used with the REMOTE command
+so the results can be captured to a remote file, which could then be sent.
+ckuus7.c, 7 Jun 2011.
+
+Changed SET VARIABLE-EVALUATION to SET COMMAND VARIABLE-EVALUATION, but left
+the former version available. ckuusr.c, 9 Jun 2011.
+
+Documented the SET COMMAND VARIABLE-EVALUATION command, which I added in
+2008. ck90.html, 9 Jun 2011.
+
+Renamed all old Mac OS X makefile targets to have the prefix "old" to avoid
+confusing them with the current targets, and made macosx10 a synonym for
+macosx, so those who used previous makefiles will get a current target
+without having to know the new name. makefile, 9 Jun 2011.
+
+Added XMESSAGE, which is to MESSAGE as XECHO is ECHO: prints the text
+without a line terminator, so it can be continued by subsequent [X]MESSAGE
+commands. ckuusr.[ch], 9 Jun 2011.
+
+Back to "make linux+ssl" on RHEL5... I took the coward's way out and added
+code to the makefile target to check whether the build worked (somebody let
+me know if there is a better way to check), and if not to give a message
+suggesting they "make clean ; make linux+ssl KFLAGS=-UCK_DES". makefile,
+9 Jun 2011.
+
+Noticed that \frecurse() would dump core if called with no arguments.
+Fixed in ckuus4.c, 9 Jun 2011.
+
+Added \q() as an alternative to the more verbose \fliteral() for quoting
+strings that contain characters (like \) that would otherwise be significant
+to Kermit. It's more efficient because it isn't a function call, and 'q'
+is an intuitive letter to mean 'quote'. It also works better than
+\fliteral() because functions treat commas and braces specially. ckuus4.c,
+10 Jun 2011.
+
+Built OK on VMS 8.3 on Alpha, no net. DEC C caught a couple glitches in the
+new code that gcc didn't catch, which I fixed. ckuus[25].c, 10 Jun 2011.
+
+Built OK on VMS 8.3 on Alpha with Multinet 5.3. The SSL build failed but
+I'm not going to worry about it. 10 Jun 2011.
+
+Built OK on NetBSD 5.1. 10 Jun 2011.
+
+Tried to resurrect my old "build-all" machine, an IBM Netfinity 3500 from
+1997 with 20-some mountable bootable hard disks with lots of 1990s OS's on
+them. No dice. I can see the BIOS but not the hard disks. The
+configuration is still correct because it tries to boot from the mountable
+hard disk, but it fails (I tried six different ones).
+
+Tried to resurrect my old Siemens Nixdorf RM 200 MIPS machine. Booted OK,
+headless even, but makes a hellish high-pitched whine, like a dentist drill.
+It's pretty slow too. "make sinix542" (for SINIX 5.4.2) bombed at link
+time on no rdchk(). Fixed by #including <sys/filio.h>. ckutio.c, 10 Jun 2011.
+
+Tried to resurrect my old SCO Xenix 2.3.4 machine, also headless. Amazingly
+it still works; it can't use a monitor but I can Telnet to it. Had to tweak
+some #ifdefs but I got a no-net version built successfully. According to my
+notes, it hasn't been possible to build with TCP/IP since C-Kermit 8.0,
+but how many people ever had SCO Xenix 2.3.4 with TCP/IP anyway? Anyway we
+still have the binaries for C-Kermit 7.0. ckuus4.c, 10 Jun 2011.
+
+Built OK on AIX 5.3. Built OK on Solaris 10. 11 Jun 2011.
+
+Tried harder to revive the build-all machine, now it sort of works, but not
+all of the bootable OS's work. Built C-Kermit 9.0 OK on OpenBSD 3.0. Built
+OK on QNX 4.25 but had to #ifdef references to IXANY in ckutio.c and ckupty.
+Built OK on NetBSD 1.5.1 (2000). Tried "make netbsd+ssl" on this one, it's
+OpenSSL 0.9.5a 1 Apr 2000, but it bombs out in ckuath.c, no big deal.
+Another problem in NetBSD 1.5.2 is that even though off_t is 8, CK_OFF_T
+is 4. Worth noting but not worth fixing unless someone else notices.
+13 Jun 2011.
+
+SuSE 7.0... boots OK but telnet server doesn't work. Can telnet out but
+it's too flaky, connection drops if I try to transfer a file.
+
+OpenBSD 2.5 [1999] OK. Red Hat 7.1 OK. Red Hat 7.1 with OpenSSL 0.9.6
+not OK, same error as with 0.9.5a:
+
+ckuath.c
+In file included from ck_ssl.h:48,
+ from ckuath.c:225:
+/usr/include/openssl/des.h:77: warning: redefinition of `Block'
+ckuat2.h:86: warning: `Block' previously declared here
+/usr/include/openssl/des.h:83: redefinition of `struct des_ks_struct'
+/usr/include/openssl/des.h:91: warning: redefinition of `Schedule'
+ckuat2.h:90: warning: `Schedule' previously declared here
+
+So it appears that OpenSSL support is broken for pre-0.9.7. Tried
+building it again with -UCK_SSL (since the errors are originating from
+from des.h)... But it still failed exactly the same way. I found
+#includes for des.h in ckuath.c and and ck_ssl.h and #ifdef'd them out,
+but it still fails:
+
+In file included from /usr/include/openssl/evp.h:89,
+ from /usr/include/openssl/x509.h:67,
+ from /usr/include/openssl/ssl.h:69,
+ from ck_ssl.h:51,
+ from ckuath.c:227:
+/usr/include/openssl/des.h:77: warning: redefinition of `Block'
+ckuat2.h:86: warning: `Block' previously declared here
+/usr/include/openssl/des.h:83: redefinition of `struct des_ks_struct'
+/usr/include/openssl/des.h:91: warning: redefinition of `Schedule'
+ckuat2.h:90: warning: `Schedule' previously declared here
+
+Built OK on Debian 2.1. 13 Jun 2011.
+
+On FreeBSD 4.4, it blows up with:
+ckufio.c: In function vpass':
+ckufio.c:8201: conflicting types for 'initgroups'
+/usr/include/unistd.h:154: previous declaration of 'initgroups'
+ckufio.c:8201: warning: extern declaration of 'initgroups' doesn't match global
+one. Fixed by defining NODCLINITGROUPS for FreeBSD in ckufio.c. It might not
+be the right fix, but I don't have a lot of other FreeBSD versions to
+compare with. Anyway now it builds OK on 4.4, and also on FreeBSD 3.3.
+ckufio.c, 13 Jun 2011.
+
+Tried to build on SCO Open Server 5.0.7 but it fails at link time because
+it can't find rdchk(). But it's supposed to be there! Come back to this
+later...
+
+Red Hat 6.1 i386 32/64 linux 2332545
+Red Hat 7.1 i386 32/64 linux 2368528
+Red Hat EL4 i386 32/74 linux 2363067
+Red Hat EL5.6 i386 64 linux 2371279
+Solaris9 sparc 32/64 solaris9 2849896
+Solaris9+ssl sparc 32/64 solaris9 5021764
+Solaris10 sparc 32/64 solaris10 2855776
+QNX i386 32 qnx32 2012323
+NetBSD 1.5.1 i386 32/64 netbsd 2198055
+NetBSD 5.1 i386 32/64 netbsd 2159863
+OpenBSD 2.5 i386 32/64 openbsd 2236036
+Mac OS X 10.6.7 x86_64 64 macosx 2.7M
+Mac OS X 10.4.11 ppc 32/64 macosx 2496304
+Debian 2.1 i386 32/64 linux 2213221
+FreeBSD 4.4 i386 32/64 freebsd 2291333
+FreeBSD 3.3 i386 32/64 freebsd 2147370
+SINIX 5.42 mips 32 sinix542 3319325 (1995)
+SCO Unixware 2.1.3 i386 32 uw213 2242176
+SCO OSR6.0.0 i386 32/64 sco_osr600 2368300
+
+More builds, 14 June 2011:
+
+VMS 6.2 alpha 32 make mn 2556928 No TCP/IP
+VMS 6.2 alpha 32 make m 3112960 UCX 4.0
+Solaris 11 i386 32/64 solaris11 2823860
+Solaris 11 i386 32/64 solaris11+ssl 2993660 OpenSSL 0.9.8l
+NetBSD 5.1 i386 32/64 netbsd+krb5 2307855 Kerberos 5
+Linux Slackware 12.1.0 i386 32/65 linux 2175754
+Linux Fedora 14 i386 32/64 linux 2256514
+Linux Fedora 14 i386 32/64 linux+ssl ....... OpenSSL 1.0.0d
+Linux Fedora 14 i386 32/64 linux+krb 2449614 (*)
+
+(*) make linux+krb5 "LIBS=$LIBS /lib/libk5crypto.so.3 /lib/libcom_err.so.2"
+
+Noticed that netbsd+ssl build on NetBSD 5.1 said "NetBSD 1.5" in its banner.
+Fixed by replacing the old hardwired target with the new "subroutinized"
+target a'la linux+ssl and adapting it to NetBSD. makefile, 15 Jun 2011.
+
+Same deal for Kerberos 5, make a new netbsd+krb5 target and it builds ok,
+at least once one figures out where the Kerberos headers and libs are.
+makefile, 15 Jun 2011.
+
+Same deal for the netbsdnc target, now it simply defined NOCURSES and
+chains to the main netbsd target. makefile, 15 Jun 2011.
+
+Tried to build with Kerberos 5 on Solaris, fails because the DES library
+no longer exists. This one is beyond me, sorry.
+
+Made new targets for MirBSD, mirbsd and mirbsd+ssl, makefile 15 Jun 2011.
+
+In OpenSUSE 11.2 with OpenSSL 0.9.8r we bomb on undefined references from
+various DES library routines. Builds OK without DES.
+
+Various linux+krb5 builds fail because can't find -lgssapi_krb5
+
+SSL builds with OpenSSL < 0.9.7 fail even though there is code to support
+the older SSL.
+
+Fixed some printf %ld vs int instances in the sizeofs section of SHOW FEATURES.
+ckuus5.c, 15 Jun 2011.
+
+Fixed the new linux+ssl target to actually use the SSLINC and SSLLIBS
+definitions, oops. makefile, 15 Jun 2011.
+
+15 June 2011 builds (Beta.01):
+
+AIX 5.3 ppc 32/64 aix+ssl 3283846 OpenSSL 0.9.8m
+NetBSD 5.1 i386 32/64 netbsd 2159863
+NetBSD 5.1 i386 32/64 netbsd+ssl 2350274 OpenSSL 0.9.9-dev
+NetBSD 5.1 i386 32/64 netbsd+krb5 2349627 MIT Krb5 1.6.3
+FreeBSD 8.2 i386 32/64 freebsd 2298414
+FreeBSD 8.2 i386 32/64 freebsd+ssl 2448961 OpenSSL 0.9.8q
+OpenBSD 4.7 i386 32/64 openbsd 2266132
+OpenBSD 4.7 i386 32/64 openbsd+ssl 2409263 OpenSSL 0.9.8k
+MirBSD 10 i386 32/64 mirbsd 2216601
+MirBSD 10 i386 32/64 mirbsd+ssl 2358318 OpenSSL 0.9.8r
+OpenSuse 11.2 x86_64 64 linux 2348468
+OpenSuse 11.2 x86_64 64 linux+ssl (*) 2546540 OpenSSL 0.9.8r
+RHEL 5.6 ia64 64 linux 4390687
+RHEL 5.6 ia64 64 linux+ssl (*) 4775007 OpenSSL 0.9.8e
+Ubuntu 9.10 i386 32/64 linux 2275523
+Ubuntu 9.10 i386 32/64 linux+ssl 2466708 OpenSSL 0.9.8r
+Gentoo 1.12.13 ppc 32/64 linux 2386597
+Gentoo 1.12.13 ppc64 64 linux 2749015
+Gentoo 1.12.13 ppc64 64 linux+ssl 3002150 OpenSSL 0.9.8r
+Gentoo 1.12.13 sparc 32/64 linux 2478382
+Gentoo 1.12.13 sparc 32/64 linux+ssl 2690499 OpenSSL 0.9.8r
+Solaris 9 sparc 32/64 solaris9 2849896
+Solaris 10 i386 32/64 solaris10 2837620
+IRIX 6.5 R10000 32/64 irix65 2869704
+
+* and KFLAGS=-UCK_DES
+
+Tried building on NetBSD 5.1 with Heimdal Kerberos using:
+
+make netbsd+krb5 \
+ "KFLAGS=-DHEIMDAL" \
+ "K5INC=-I/usr/include" \
+ "K5LIB=-L/usr/lib"
+
+It found all its headers OK, but it blew up in ckuath.c. Small wonder,
+ckccfg.html says:
+
+HEIMDAL
+ Should be defined if Kerberos V support is provided by HEIMDAL. Support
+ for this option is not complete in C-Kermit 8.0. Anyone interested in
+ working on this should contact kermit-support.
+
+'krb5-config --version' gives the MIT Kerberos 5 version number.
+
+Make a new netbsd+krb5+ssl target based on the combination of the new
+netbsd+ssl and netbsd+krb5 targets. There were lots of warnings in the
+compilation but no errors, but it produced an executable that starts and
+does normal things but I have no idea if the SSL or Kerberos functions work.
+makefile, 16 Jun 2011.
+
+Changed the cu-solaris9-krb5 target to test for the presence of DES because
+DES isn't there, to see if this would allow a Kerberos build to proceed.
+And it worked, amazing. At least the build completed, I have no way to test
+the Kerberos part. makefile, 16 Jun 2011.
+
+Updated the solaris9+ssl target to do the DES testing. makefile, 16 Jun 2011.
+
+Updated cu-solaris+krb5 target to test whether the GSSAPI library is called
+libgassapi or libgassapi_krb5. makefile, 16 Jun 2011.
+
+Added lots of tests to the Linux Kerberos 5 entries, linux+krb5 and
+linux+krb5+ssl, because some have libk5crypto and some don't; some have
+libcom_err and some don't; and some have libgssapi_krb5 (e.g. RHEL5,
+OpenSuse 11.2) whereas others have libgssapi (Gentoo).
+
+16 June 2011 builds (Beta.01):
+
+NetBSD 5.1 i386 32/64 netbsd+krb5+ssl 2451757 OpenSSL 0.9.9 MIT Krb5 1.6.3
+Solaris 9 sparc 32/64 solaris9+krb5 2543036 MIT Kerberos 5 1.7.1
+Solaris 9 sparc 32/64 solaris9+ssl 5021544 OpenSSL 0.9.8q (gcc)
+Gentoo... ppc 32/64 linux 2386597
+Gentoo... ppc 32/64 linux+ssl 2593561 OpenSSL 0.9.8r
+Gentoo... ppc64 64 linux 2749015
+Gentoo... ppc64 64 linux+ssl 3002150 OpenSSL 0.9.8r
+RHEL5 x86_64 64 linux+krb5 (*) 2563878 MIT Kerberos 5 1.6.1
+RHEL5 x86_64 64 linux+krb5+ssl(*) 2563878 MIT Kerberos 5 1.6.1
+Fedora 14 i386 32/64 linux+krb5+ssl 2539891 MIT Krb5 + OpenSSL 0.9.8r
+
+* KFLAGS=-UCK_DES
+
+--- C-Kermit 9.0.299 Beta.01 ---
+
+sizeof() can return a long or an int, so neither printf("%d",sizeof(blah));
+or printf("%ld",sizeof(blah)); can be used everywhere. Changed the
+"sizeofs" section of SHOW FEATURES in the dumbest (and therefore most
+portable) way to squelch the warnings. ckuus5.c, 17 Jun 2011.
+
+From John Dunlap: "Watching the server screen led me to offer a cosmetic
+patch for ckuusx.c. I noticed that the server screen said it was
+"RESENDING" when it really wasn't. The attached patch emits blanks to
+insure that old labels are completely erased." ckuusx.c, 17 Jun 2011.
+
+Nelson Beebe found two places where I had SSLLIBS in the makefile instead of
+SSLLIB. makefile, 18 Jun 2011.
+
+More important he knew how to force gcc to load the right header files for
+OpenSSL 1.0.0d (by using '-isystem' rather than '-I'). Previously it was
+using the 0.9.8r header files but linking with the 1.0.0d libraries. This
+is not in the sources or makefile; it's done when giving the 'make' command:
+
+ export PATH=/usr/bin:$PATH
+ export SSLINC=-isystem/usr/include
+ export "SSLLIB=-L/usr/lib -Wl,-rpath,/usr/lib"
+ make linux+ssl
+
+Folded the previous linux+openssl+zlib+shadow+pam and linux+openssl+shadow
+targets into linux+ssl. Checked the linuxso (scripting only) target, builds
+OK, 600K. Made new subroutinized linux+krb5+krb4 target but can't find
+anyplace to test it. Made new subroutinized linux+shadow+pam target, works
+fine on RHEL4. Revised comments and lists again. makefile, 18 Jun 2011.
+
+For the pluggable-disk OS's that boot OK but lack a working network, I
+rigged up a serial connection using a DB9-FF null modem cable, and then a
+DB9-MF modem cable to make it reach. I don't see any modem signals on
+either end, but the data goes through OK. COM1 on the desktop PC,
+/dev/ttyS1 or whatever on Lab. Since there are no modem signals, can't use
+RTS/CTS. At 57600bps with Xon/Xoff, 500-byte packets and sliding windows,
+transfers work OK at about 5000cps using 5 window slots; takes 8 minutes to
+transfer the gzipped C-Kermit tarball. Kermit to the rescue. 19 Jun 2011.
+
+Transferred the tarball over serial ports to SCO OSR5.0.5 at 38.4Kbps, the
+highest speed supported, 12 minutes, no errors, 3300cps. Unpack, make
+sco32v505udk, OK. Also built the TCP/IP version and it almost made an
+outbound connection, but only once (not a Kermit problem but something with
+the TCP/IP stack). 19 Jun 2011.
+
+Ditto for Solaris 2.6/i386, except 57.6Kbps, 4K-byte packets, no problem.
+Solaris 8/i386, ditto. 19 Jun 2011.
+
+SCO OpenServer 5.0.5 i386 32 sco32v505udk 1940964 No TCP/IP
+SCO OpenServer 5.0.5 i386 32 sco32v505udknet 2314668 With TCP/IP
+Sun Solaris 2.6 i386 32 solaris26g 4661368
+Sun Solaris 8 i386 32 solaris8g 4675432
+
+When using compact substring notation, \s(xx[4]) returns the whole string
+xx starting at position 4, but \s(xx[4:]) returns an empty string. Fixed
+the latter to be like the former. ckuus5.c, 20 Jun 2010.
+
+Really it would have been nicer if \s(xx[4]) returned a single character,
+the 4th character of xx, but it's too late now. Added another "separator"
+character '.' (period) for that: \s(xx[4.]) is the 4th character of xx.
+ckuus4.c, 20 Jun 2010.
+
+Back to SCO OSR5.0.7... This failed before because 'rdchk' came up unknown
+at link time, unlike all previous OSR5's, that used rdchk() in place of the
+FIONREAD ioctl. Added #ifdefs to make a special case for 5.0.7. I'm not
+sure this is the best way, but this is the minimal change to get it to work.
+If anybody cares, maybe the same can be done for previous OSR5 releases.
+ckutio.c, 20 Jun 2010 (search for SCO_OSR507).
+
+SCO OpenServer 5.0.7 i386 32 sco32v507 1895724 No TCP/IP
+SCO OpenServer 5.0.7 i386 32 sco32v507net 2246792 With TCP/IP
+
+Checked current code on RHEL4, found that my GSSAPI-lib finding makefile
+target didn't look in enough places; added some more. makefile, 21 Jun 2011.
+
+Got reports back on HPUX from Peter Eichhorn, almost all good on HP-UX 7, 8,
+9, 10, and 11. 21-22 Jun 2011.
+
+Got access to Debian 5.0 and 7-to-be ("Wheezy/Sid"). Regular 'make linux' is
+OK in Debian 5, but in 7 can't find crypt, res_search, or dn_expand; had
+to add more library search clauses to 'make linux'. makefile, 21 Jun 2011.
+
+In Debian 7.0, libk5crypto could not be found without adding another clause
+to 'make linux+krb5'. That done, the SSL build (1.0.0d) was OK, as well as
+the krb5+ssl one. makefile, 21 Jun 2011.
+
+I found a Linux box that had both Kerberos 4 and 5 installed and tried 'make
+linux+krb5+krb4', which failed because of missing DES functions. Tried
+'make linux+krb5+krb4 KFLAGS=-UCK_DES', but that fails too, even though it
+doesn't fail for Kerberos 5 alone, so probably some Krb4 code is making
+unguarded calls to the DES routines. What is really needed is a way to
+completely strip all DES references from any given build, code and makefile,
+a big deal. 21 Jun 2011.
+
+Fixed some typos in COPYING.TXT (noticed by Ian Beckwith). 24 Jun 2011.
+
+Got access to perhaps the last living 4.3BSD VAX system. It doesn't have
+SEEK_CUR so I had to #ifdef out the \fpicture() function. Aside from that,
+no problems. ckuus4.c, 24 Jun 2011.
+
+I had been wanting the S-Expression (ROUND x) to allow a second argument n,
+which, if given, tells where the rounding should occur. If n is positive,
+the number is rounded to n decimal places. If zero, it is rounded to the
+nearest integet. If positive, the number is rounded to the nearest power of
+10; e.g. -2 means "to the nearest hundred". If ROUND is used as before,
+with one argument, it works as before. ckclib.c, ckuus3.c, 25 Jun 2011.
+
+From Arthur Marsh, a few more directories to test for libresolv in Linux.
+makefile, 26 Jun 2011.
+
+From Martin Vorlaender, a fix for the VMS file-transfer display and
+statistics, a place where a file length wasn't being cast to CK_OFF_T
+in zchki(). ckvfio.c, 28 Jun 2011.
+
+Updated version to 9.0.300 and removed the Beta designation.
+ckcmai.c, makefile, 28 Jun 2011.
+
+Removed solaris9_64 target from makefile. It builds but it doesn't work
+at all. 30 Jun 2011.
+
+--- C-Kermit 9.0.300 ---
+
+On Solaris 10 and 11, DNS lookups don't work. It seems these Solaris
+versions have INADDRX and INADDRX_NONE defined, thus triggering the code in
+ckcnet.c, ckucns.c, and ckcftp.c #ifdef'd on these symbols, but that code
+doesn't work in this case. This happens building with gcc as well as with
+Sun cc. Put #ifdefs in ckcnet.h to undefine these symbols (if they are
+defined after including all the header files) for Solaris. I didn't bother
+trying to differentiate the Solaris versions because the symbols are not
+defined in Solaris 9 or earlier, and they should not be used in Solaris 10
+or 11. ckcnet.h, 6 July 2011.
+
+From SMS: To avoid the %CC-W-PTRMISMATCH1 complaints from ck_ssl.c, add
+two (harmless) type casts at lines 2460 and 2773, 6 July 2011.
+
+Built and tested on Solaris 9, Solaris 10, and RHEL5. 6 July 2011.
+
+--- C-Kermit 9.0.301 Beta.01 ---
+
+Updated version text and date. ckcmai.c, makefile, 11 July 2011.
+
+--- C-Kermit 9.0.301 ---
+
+After the initial release I made some small changes that affect only HP-UX
+5.x: added -DVOID=void and -DCKVOID=void to the hpux0500 makefile targets,
+and put #ifdefs around #include <errno.h>, which (in the WinTCP case) didn't
+protect itself against multiple inclusion (which is happening in other
+header files, not in Kermit). makefile, ckucmd.c, ckucon.c, ckutio.c,
+ckufio.c, ckcnet.c, ckcftp.c, 14 July 2011.
+
+In the new copyright notice, copied from the BSD license template,
+one instance of "the <ORGANIZATION>" was not replaced by "Columbia
+University". Fixed in ckcmai.c, 19 July 2011.
+
+Added another search term for lk5crypto in the linux+krb5 targets.
+makefile, 20 July 2011.
+
+Added and successfully used a new solaris9+krb5+ssl target.
+makefile, 8 Aug 2011.
+
+FreeBSD 9 switched from utmp to utmpx, which broke compilation of Kermit on
+that version. Furthermore, the UUCP lockfile convensions changed in FreeBSD
+8, which did not prevent C-Kermit from compiling, but any attempt to lock a
+terminal or pty device would fail. Thanks to Alexey Dokuchaev "danfe" for
+finding and patching the problems. I undid the patches and fixed the code
+so it didn't need to be patched, except for some declarations in the
+ck_crp.c module, which I felt had better not be changed without thoroughly
+testing the changes on dozens of different platforms, which I don't have
+time to do (in any case, it builds OK on FreeBSD 9 without the patch). In
+particular I made completely new makefile targets for FreeBSD 4.0 and later,
+which automatically detect FreeBSD 8 and FreeBSD 9 to enable the appropriate
+feature tests in the code, for a regular build and a build with OpenSSL.
+These changes should affect only FreeBSD. ckutio.c, ckufio.c, ck_crp.c,
+ckuus5.c, makefile, 20 Aug 2011.
+
+Changed the version to 9.0.302, ckcmai.c, 20 Aug 2011.
+
+Fixed freebsd+ssl and netbsd+ssl, netbsd+krb5, and netbsd+krb5+ssl targets
+to have CC=$(CC) instead of CC=gcc; ditto for CC2, and adjusted line breaks
+in freebsd and freebsd+ssl targets. makefile, 21 Aug 2011.
+
+--- 9.0.302 ---
+
+---------------------------------
+***************************
Author: Frank da Cruz (fdc@columbia.edu).
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#define SYN 22 /* SYN, Ctrl-V */
#define ETB 23 /* Ctrl-W */
#define CAN 24 /* CAN, Ctrl-X */
-#define EM 25 /* Ctrl-Y */
+#define XEM 25 /* Ctrl-Y (was EM but conflicts with OpenSSL) */
#define SUB 26 /* SUB Ctrl-Z */
#define ESC 27 /* Escape Ctrl-[ */
#define XFS 28 /* Field Separator, Ctrl-Backslash */
- C-Kermit 8.0 General Hints and Tips
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
- Frank da Cruz
- [1]The Kermit Project, [2]Columbia University
-
- As of: C-Kermit 8.0.211, 17 March 2003
- This page last updated: Sat Apr 10 16:37:37 2004 (New York USA Time)
+ As of: C-Kermit 9.0.300, 30 June 2011
+ This page last updated: Tue Jun 28 08:54:30 2011 (New York USA Time)
IF YOU ARE READING A PLAIN-TEXT version of this document, it is a
plain-text dump of a Web page. You can visit the original (and
possibly more up-to-date) Web page here:
- [3]http://www.columbia.edu/kermit/ckcbwr.html
+ [11]http://www.columbia.edu/kermit/ckcbwr.html
This document contains platform-independent C-Kermit hints and tips.
Also see the platform-specific C-Kermit hints and tips document for
your platform, for example:
- [4]http://www.columbia.edu/kermit/ckubwr.html
+ [12]http://www.columbia.edu/kermit/ckubwr.html
- for Unix. This document also applies to [5]Kermit 95 for Windows,
+ for Unix. This document also applies to [13]Kermit 95 for Windows,
which is based on C-Kermit.
- [ [6]C-Kermit ] [ [7]TUTORIAL ]
- ________________________________________________________________________
+ [ [14]C-Kermit ] [ [15]TUTORIAL ]
- CONTENTS
+CONTENTS
- 0. [8]PATCHES
- 1. [9]INCOMPATIBLE CHANGES
- 2. [10]THE C-KERMIT COMMAND PARSER
- 3. [11]MULTIPLE SESSIONS
- 4. [12]NETWORK CONNECTIONS
- 5. [13]MODEMS AND DIALING
- 6. [14]DIALING HINTS AND TIPS
- 7. [15]TERMINAL SERVERS
- 8. [16]TERMINAL EMULATION
- 9. [17]KEY MAPPING
- 10. [18]FILE TRANSFER
- 11. [19]SCRIPT PROGRAMMING
- ________________________________________________________________________
+ 0. [16]PATCHES
+ 1. [17]INCOMPATIBLE CHANGES
+ 2. [18]THE C-KERMIT COMMAND PARSER
+ 3. [19]MULTIPLE SESSIONS
+ 4. [20]NETWORK CONNECTIONS
+ 5. [21]MODEMS AND DIALING
+ 6. [22]DIALING HINTS AND TIPS
+ 7. [23]TERMINAL SERVERS
+ 8. [24]TERMINAL EMULATION
+ 9. [25]KEY MAPPING
+ 10. [26]FILE TRANSFER
+ 11. [27]SCRIPT PROGRAMMING
- 0. PATCHES
+0. PATCHES
- [ [20]Top ] [ [21]Contents ] [ [22]Next ]
+ [ [28]Top ] [ [29]Contents ] [ [30]Next ]
Source-level patches for C-Kermit 8.0.211:
(None)
- ________________________________________________________________________
- 1. INCOMPATIBLE CHANGES
+1. INCOMPATIBLE CHANGES
- [ [23]Top ] [ [24]Contents ] [ [25]Next ]
+ [ [31]Top ] [ [32]Contents ] [ [33]Next ]
These are not necessarily exhaustive lists.
- 1.1. C-Kermit 6.0
+1.1. C-Kermit 6.0
- C-Kermit 6.0 was released 6 September 1996 and is completely
- documented in [26]Using C-Kermit, 2nd Edition. The following
- incompatible changes were made in C-Kermit 6.0:
+ C-Kermit 6.0 was released 6 September 1996 and is completely documented
+ in [34]Using C-Kermit, 2nd Edition. The following incompatible changes
+ were made in C-Kermit 6.0:
* Unless you tell C-Kermit otherwise, if a serial or network
connection seems to be open, and you attempt to EXIT or to open a
appears to be open and asks you if you really want to close it. If
you do not want these warnings, add SET EXIT WARNING OFF to your
customization file or script, or give this command at the prompt.
- * The default for SET { SEND, RECEIVE } PATHNAMES was changed from
- ON to OFF, to prevent unexpected creation of directories and
+ * The default for SET { SEND, RECEIVE } PATHNAMES was changed from ON
+ to OFF, to prevent unexpected creation of directories and
depositing of incoming files in places you might not know to look.
* The default for SET FILE INCOMPLETE was changed from DISCARD to
KEEP to allow for file transfer recovery.
protocol specification.
* The default flow-control is now "auto" ("do the right thing for
each type of connection"), not Xon/Xoff.
- * Backslash (\) is no longer a command continuation character. Only
- - (hyphen, dash) may be used for this in C-Kermit 6.0 and later.
+ * Backslash (\) is no longer a command continuation character. Only -
+ (hyphen, dash) may be used for this in C-Kermit 6.0 and later.
* Negative INPUT timeout now results in infinite wait, rather than 1
second.
- 1.2. C-Kermit 7.0
+1.2. C-Kermit 7.0
C-Kermit 7.0 was released 1 January 2000. Its new features are
documented in the C-Kermit 7.0 Supplement,
- [27]http://www.columbia.edu/kermit/ckermit2.html. The following
+ [35]http://www.columbia.edu/kermit/ckermit2.html. The following
incompatible changes were made in C-Kermit 7.0:
* The "multiline GET" command is gone. Now use either of the
following forms instead:
get remote-name local-name
get /as-name:local-name remote-name
+
If either name contains spaces, enclose it in braces (or, in
C-Kermit 8.0, doublequotes).
* To include multiple file specifications in a GET command, you must
now use MGET rather than GET:
mget file1 file2 file3 ...
+
* C-Kermit 7.0 and later use FAST Kermit protocol settings by
- default. This includes "unprefixing" of certain control
- characters. Because of this, file transfers that worked with
- previous releases might not work in the new release especially
- against a non-Kermit-Project Kermit protocol implementation (but
- it is more likely that they will work, and much faster). If a
- transfer fails, you'll get a context-sensitive hint suggesting
- possible causes and cures. Usually SET PREFIXING ALL does the
- trick.
- * By default C-Kermit 7.0 and later send files in text or binary
- mode by looking at each file to see which is the appropriate mode.
- To restore the previous behavior, put SET TRANSFER MODE MANUAL and
- the desired SET FILE TYPE (TEXT or BINARY) in your C-Kermit
+ default. This includes "unprefixing" of certain control characters.
+ Because of this, file transfers that worked with previous releases
+ might not work in the new release especially against a
+ non-Kermit-Project Kermit protocol implementation (but it is more
+ likely that they will work, and much faster). If a transfer fails,
+ you'll get a context-sensitive hint suggesting possible causes and
+ cures. Usually SET PREFIXING ALL does the trick.
+ * By default C-Kermit 7.0 and later send files in text or binary mode
+ by looking at each file to see which is the appropriate mode. To
+ restore the previous behavior, put SET TRANSFER MODE MANUAL and the
+ desired SET FILE TYPE (TEXT or BINARY) in your C-Kermit
initialization file.
* The RESEND and REGET commands automatically switch to binary mode;
previously if RESEND or REGET were attempted when FILE TYPE was
- TEXT, these commands would fail immediately, with a message
- telling you they work only when the FILE TYPE is BINARY. Now they
- simply do this for you.
- * SET PREFIXING CAUTIOUS and MINIMAL now both prefix linefeed (10
- and 138) in case rlogin, ssh, or cu are "in the middle", since
+ TEXT, these commands would fail immediately, with a message telling
+ you they work only when the FILE TYPE is BINARY. Now they simply do
+ this for you.
+ * SET PREFIXING CAUTIOUS and MINIMAL now both prefix linefeed (10 and
+ 138) in case rlogin, ssh, or cu are "in the middle", since
otherwise <LF>~ might appear in Kermit packets, and this would
cause rlogin, ssh, or cu to disconnect, suspend,escape back, or
otherwise wreck the file transfer. Xon and Xoff are now always
prefixed too, even when Xon/Xoff flow control is not in effect,
since unprefixing them has proven dangerous on TCP/IP connections.
* In UNIX, VMS, Windows, and OS/2, the DIRECTORY command is built
- into C-Kermit itself rather than implemented by running an
- external command or program. The built-in command might not behave
- the way the platform-specific external one did, but many options
- are available for customization. Of course the underlying
+ into C-Kermit itself rather than implemented by running an external
+ command or program. The built-in command might not behave the way
+ the platform-specific external one did, but many options are
+ available for customization. Of course the underlying
platform-specific command can still be accessed with "!", "@", or
"RUN" wherever the installation does not forbid. In UNIX, the "ls"
command can be accessed directly as "ls" in C-Kermit.
backslash (\).
* SET QUIET { ON, OFF } is now on the command stack, just like SET
INPUT CASE, SET COUNT, SET MACRO ERROR, etc, as described on p.458
- of [28]Using C-Kermit, 2nd Edition. This allows any macro or
+ of [36]Using C-Kermit, 2nd Edition. This allows any macro or
command file to SET QUIET ON or OFF without worrying about saving
and restoring the global QUIET value. For example, this lets you
write a script that tries SET LINE on lots of devices until it
separator; in previous releases it did not. This is to allow
constructions such as:
cd \v(dir)data.tmp
+
to work across platforms that might have different directory
notation, such as UNIX, Windows, and VMS.
* Prior to C-Kermit 7.0, the FLOW-CONTROL setting was global and
SET LINE/PORT/HOST is likely to be undone. Therefore SET FLOW can
be guaranteed to have the desired effect only if given after the
SET LINE/PORT/HOST command.
- * Character-set translation works differently in the TRANSMIT
- command when (a) the file character-set is not the same as the
- local end of the terminal character-set, or (b) when the terminal
- character-set is TRANSPARENT.
+ * Character-set translation works differently in the TRANSMIT command
+ when (a) the file character-set is not the same as the local end of
+ the terminal character-set, or (b) when the terminal character-set
+ is TRANSPARENT.
- 1.3. C-Kermit 8.0
+1.3. C-Kermit 8.0
The following incompatible changes were made in C-Kermit 8.0:
* C-Kermit now accepts doublequotes in most contexts where you
previously had to use braces to group multiple words into a single
field, or to force inclusion of leading or trailing blanks. This
might cause problems in contexts where you wanted the doublequote
- characters to be taken literally. Consult [29]Section 5 of the
- [30]C-Kermit 8.0 Update Notes for further information.
+ characters to be taken literally. Consult [37]Section 5 of the
+ [38]C-Kermit 8.0 Update Notes for further information.
* Using the SET HOST command to make HTTP connections is no longer
- supported. Instead, use the new [31]HTTP OPEN command.
- ________________________________________________________________________
+ supported. Instead, use the new [39]HTTP OPEN command.
+
+1.4. C-Kermit 9.0
+
+ The [40]\fsplit() function is incredibly handy, it can do almost
+ anything, up to and including parsing a LISP program (the underlying
+ code is the basis of the [41]S-Expression interpreter). But did you
+ ever try to use it to parse (say) a Tab-Separated-List (TSV file) or
+ Comma-Separated-List (CSV)? It works as expected as long as the data
+ contains only 7-bit characters. But if your data contains (say) Spanish
+ or German or Russian text written in an 8-bit character set such as ISO
+ 8859-1, every 8-bit character (any value 128-255) is treated as a break
+ character. This is fixed in C-Kermit 9.0 by treating all 8-bit bytes as
+ "include" characters rather than break characters, a total reversal of
+ past behavior. I don't think it will affect anyone though, because if
+ this had happened to anyone, I would have heard about it!
- 2. THE C-KERMIT COMMAND PARSER
+ Since most standard 8-bit character sets have control characters in
+ positions 128-160, it might have made sense to keep 128-160 in the
+ break set, but with the proliferation of Microsoft Windows code pages,
+ there is no telling which 8-bit character is likely to be some kind of
+ text, e.g. "smart quotes" or East European or Turkish accented letters.
- [ [32]Top ] [ [33]Contents ] [ [34]Next ] [ [35]Previous ]
+2. THE C-KERMIT COMMAND PARSER
+
+ [ [42]Top ] [ [43]Contents ] [ [44]Next ] [ [45]Previous ]
Various command-related limits are shown in the following table, in
which the sample values are for a "large memory model" build of
- C-Kermit, typical for modern platforms (Linux, Solaris, AIX, VMS,
- etc). You can see the values for your version of Kermit by giving the
- SHOW FEATURES command. The maximum length for a Kermit command (CMDBL)
- also determines the maximum length for a macro definition, since
- DEFINE is itself a command. The maximum length for a variable name is
- between 256 and 4096 characters, depending on the platform; for array
- declarations and references, that includes the subscript.
- ______________________________________________________________
+ C-Kermit, typical for modern platforms (Linux, Solaris, AIX, VMS, etc).
+ You can see the values for your version of Kermit by giving the SHOW
+ FEATURES command. The maximum length for a Kermit command (CMDBL) also
+ determines the maximum length for a macro definition, since DEFINE is
+ itself a command. The maximum length for a variable name is between 256
+ and 4096 characters, depending on the platform; for array declarations
+ and references, that includes the subscript.
Item Symbol Sample
Value Definition
Filespecs in MSEND command MSENDMAX 1024 ckuusr.h
Length for GOTO target label LBLSIZ 50 ckuusr.h
\fexecute() recursion depth limit CMDDEP 64 ckucmd.h
- ______________________________________________________________
If you need to define a macro that is longer than CMDBL, you can break
- the macro up into sub-macros or rewrite the macro as a command file.
- In a pinch you can also redefine CMDBL and recompile C-Kermit. All of
+ the macro up into sub-macros or rewrite the macro as a command file. In
+ a pinch you can also redefine CMDBL and recompile C-Kermit. All of
these numbers represent tradeoffs: the bigger the number, the more
"powerful" Kermit in the corresponding area, but also the bigger the
program image and possibly disk footprint, and the longer it takes to
initialization file ("-y filename"), and get to the prompt. There is,
however, one exception to this rule: you *can* interrupt commands --
including TAKE commands -- given in the '-C "command list"'
- command-line argument and -- if there were no action commands among
- the command-line arguments -- you will be returned to the C-Kermit
- prompt. So, for example, if you want to start C-Kermit in such a way
- that it executes a command file before issuing its first prompt, and
- you also want to be able to interrupt the command file and get to the
- prompt, include a TAKE command for the desired command in the -C
- argument, for example:
+ command-line argument and -- if there were no action commands among the
+ command-line arguments -- you will be returned to the C-Kermit prompt.
+ So, for example, if you want to start C-Kermit in such a way that it
+ executes a command file before issuing its first prompt, and you also
+ want to be able to interrupt the command file and get to the prompt,
+ include a TAKE command for the desired command in the -C argument, for
+ example:
kermit -C "take dial.scr"
At the command prompt, if you use the backslash (\) prefix to enter a
control character, space, or question mark into a command literally,
- the backslash disappears and is replaced by the quoted character. If
- it was a control character, it is shown as a circumflex (^). This
- allows editing (backspace, delete, Ctrl-W) to work correctly even for
- control characters.
+ the backslash disappears and is replaced by the quoted character. If it
+ was a control character, it is shown as a circumflex (^). This allows
+ editing (backspace, delete, Ctrl-W) to work correctly even for control
+ characters.
Priot to C-Kermit 8.0, the only way to include a comma literally in a
macro definition -- as opposed to having it separate commands within
If you quote special characters in a filename (e.g. in the SEND
command), filename completion may seem to work incorrectly. For
- example, if you have a file whose name is a*b (the name really
- contains an asterisk), and you type "send a\\*<ESC>", the "b" does not
- appear, nor will Ctrl-R redisplay the completed name correctly. But
- internally the file name is recognized anyway.
+ example, if you have a file whose name is a*b (the name really contains
+ an asterisk), and you type "send a\\*<ESC>", the "b" does not appear,
+ nor will Ctrl-R redisplay the completed name correctly. But internally
+ the file name is recognized anyway.
Question-mark help does not work during execution of an ASKQ command.
The question marks are simply accepted as text.
- In OUTPUT commands only, \B sends a BREAK signal, \L sends a Long
- BREAK signal, and \N sends a NUL (ASCII 0). BREAK and Long BREAK are
- special signals, not characters, and NUL is a character that normally
- cannot be included in a C string, since it is the C string terminator.
- If you really want to output a backslash followed by a B, an L, or an
- N (as is needed to configure certain modems, etc), double the
- backslash, e.g. "output \\B". In C-Kermit 7.0 or later, you can disarm
- and re-arm the special OUTPUT-command escapes (\B, \L, and \N) with
- SET OUTPUT SPECIAL-ESCAPES { OFF, ON }.
-
- When using the command-line processor ("kermit -l /dev/tty00 -b
- 19200", etc), note that in some cases the order of the command-line
- options makes a difference, contrary to the expectation that order of
- command-line options should not matter. For example, the -b option
- must be given after the -l option if it is to affect the device
- specified in the -l option.
- ________________________________________________________________________
-
- 3. MULTIPLE SESSIONS
-
- [ [36]Top ] [ [37]Contents ] [ [38]Next ] [ [39]Previous ]
-
- C-Kermit 7.0 and earlier do not support multiple sessions. When you
- SET LINE (or SET PORT, same thing) to a new device, or SET HOST to a
- new host, the previous SET LINE device or network host connection is
+ In OUTPUT commands only, \B sends a BREAK signal, \L sends a Long BREAK
+ signal, and \N sends a NUL (ASCII 0). BREAK and Long BREAK are special
+ signals, not characters, and NUL is a character that normally cannot be
+ included in a C string, since it is the C string terminator. If you
+ really want to output a backslash followed by a B, an L, or an N (as is
+ needed to configure certain modems, etc), double the backslash, e.g.
+ "output \\B". In C-Kermit 7.0 or later, you can disarm and re-arm the
+ special OUTPUT-command escapes (\B, \L, and \N) with SET OUTPUT
+ SPECIAL-ESCAPES { OFF, ON }.
+
+ When using the command-line processor ("kermit -l /dev/tty00 -b 19200",
+ etc), note that in some cases the order of the command-line options
+ makes a difference, contrary to the expectation that order of
+ command-line options should not matter. For example, the -b option must
+ be given after the -l option if it is to affect the device specified in
+ the -l option.
+
+3. MULTIPLE SESSIONS
+
+ [ [46]Top ] [ [47]Contents ] [ [48]Next ] [ [49]Previous ]
+
+ C-Kermit 7.0 and earlier do not support multiple sessions. When you SET
+ LINE (or SET PORT, same thing) to a new device, or SET HOST to a new
+ host, the previous SET LINE device or network host connection is
closed, resulting in hangup of the modem or termination of the network
connection. In windowing environments like HP-VUE, NeXTSTEP, Windows,
OS/2, etc, you can run separate copies of Kermit in different windows
To achieve multiple sessions through a single serial port (e.g. when
dialing up), you can install SLIP or PPP on your computer and then use
- C-Kermit's TCP/IP support over the SLIP or PPP connection, assuming
- you also have TCP/IP networking installed on your computer.
+ C-Kermit's TCP/IP support over the SLIP or PPP connection, assuming you
+ also have TCP/IP networking installed on your computer.
C-Kermit 8.0 has the same restriction on SET LINE and SET HOST
sessions: only one regular session (dialout, Telnet, etc) can be open
- at a time. However, version 8.0 adds two new kinds of sessions: FTP
- and HTTP; one or both of these can be open at the same as a regular
+ at a time. However, version 8.0 adds two new kinds of sessions: FTP and
+ HTTP; one or both of these can be open at the same as a regular
session.
- ________________________________________________________________________
- 4. NETWORK CONNECTIONS
+4. NETWORK CONNECTIONS
- [ [40]Top ] [ [41]Contents ] [ [42]Next ] [ [43]Previous ]
+ [ [50]Top ] [ [51]Contents ] [ [52]Next ] [ [53]Previous ]
- FTP Client Bugs
+FTP Client Bugs
- The Unix C-Kermit 8.0.206 FTP client had the following bugs at the
- time most of the 8.0.206 binaries were built for the C-Kermit 8.0
- CDROM:
+ The Unix C-Kermit 8.0.206 FTP client had the following bugs at the time
+ most of the 8.0.206 binaries were built for the C-Kermit 8.0 CDROM:
1. FTP MGET fails when directory segments contain wildcards, as in
"ftp mget */data/*.dat". Work around by doing a separate MGET for
These two bugs are fixed in the source code that is included on the
CDROM, and also in Kermit 95 2.1.1. You can tell if a C-Kermit 8.0.206
binary has these fixes by typing SHOW VERSION; if it says "FTP Client,
- 8.0.200, 24 Oct 2002" it has the fixes; if the edit number is less
- that 200, it doesn't, in which case can build a new binary from the
- source code (or contact us and we'll try to get get one for you).
+ 8.0.200, 24 Oct 2002" it has the fixes; if the edit number is less that
+ 200, it doesn't, in which case can build a new binary from the source
+ code (or contact us and we'll try to get get one for you).
- Making TCP/IP Connections Can Take a Long Time
+Making TCP/IP Connections Can Take a Long Time
The most frequently asked question in many newsgroups is "Why does it
take such a long time to make a Telnet connection to (or from) my
clients):
1. Most Telnet servers perform reverse DNS lookups on the client for
- security and/or logging reasons. If the Telnet client's host
- cannot be found by the server's local DNS server, the DNS request
- goes out to the Internet at large, and this can take quite some
- time. The solution to this problem is to make sure that both
- client and host are registered in DNS.
- 2. C-Kermit itself performs reverse DNS lookups unless you tell it
- not to. This is to allow C-Kermit to let you know which host it is
- actually connected to in case you have made a connection to a
- "host pool" (multihomed host). You can disable C-Kermit's reverse
- DNS lookup with SET TCP REVERSE-DNS-LOOKUP OFF.
+ security and/or logging reasons. If the Telnet client's host cannot
+ be found by the server's local DNS server, the DNS request goes out
+ to the Internet at large, and this can take quite some time. The
+ solution to this problem is to make sure that both client and host
+ are registered in DNS.
+ 2. C-Kermit itself performs reverse DNS lookups unless you tell it not
+ to. This is to allow C-Kermit to let you know which host it is
+ actually connected to in case you have made a connection to a "host
+ pool" (multihomed host). You can disable C-Kermit's reverse DNS
+ lookup with SET TCP REVERSE-DNS-LOOKUP OFF.
3. C-Kermit 7.0 and later strictly enforce Telnet protocol rules. One
such rule is that certain negotiations must be responded to. If
C-Kermit sends a such a negotiation and the host does not respond,
congested or the host is slow), but eventually will time out. To
eliminate the waits (and therefore risk possible protocol
mismatches -- or worse -- between Telnet client and server), tell
- C-Kermit to SET TELNET WAIT OFF (or include the /NOWAIT switch
- with the TELNET command).
+ C-Kermit to SET TELNET WAIT OFF (or include the /NOWAIT switch with
+ the TELNET command).
- The Rlogin Client
+The Rlogin Client
In multiuser operating systems such as UNIX and VMS, TCP/IP Rlogin
connections are available only to privileged users, since "login" is a
privileged socket. Assuming you are allowed to use it in the first
place, it is likely to behave differently depending on what type of
- host you are rlogging in to, due to technical reasons having to do
- with conflicting interpretations of RFC793 (Out-Of-Band Data) and
- Rlogin (RFC1122)... "Specifically, the TCP urgent pointer in BSD
- points to the byte after the urgent data byte, and an RFC-compliant
- TCP urgent pointer points to the urgent data byte. As a result, if an
- application sends urgent data from a BSD-compatible implementation to
- an [44]RFC-1122 compatible implementation then the receiver will read
- the wrong urgent data byte (it will read the byte located after the
- correct byte in the data stream as the urgent data byte)." Rlogin
- requires the use of OOB data while Telnet does not. Therefore, it is
- possible for Telnet to work between all systems while BSD and System V
- TCP/IP implementations are almost always a bad mix.
-
- The Telnet Client
+ host you are rlogging in to, due to technical reasons having to do with
+ conflicting interpretations of RFC793 (Out-Of-Band Data) and Rlogin
+ (RFC1122)... "Specifically, the TCP urgent pointer in BSD points to the
+ byte after the urgent data byte, and an RFC-compliant TCP urgent
+ pointer points to the urgent data byte. As a result, if an application
+ sends urgent data from a BSD-compatible implementation to an
+ [54]RFC-1122 compatible implementation then the receiver will read the
+ wrong urgent data byte (it will read the byte located after the correct
+ byte in the data stream as the urgent data byte)." Rlogin requires the
+ use of OOB data while Telnet does not. Therefore, it is possible for
+ Telnet to work between all systems while BSD and System V TCP/IP
+ implementations are almost always a bad mix.
+
+The Telnet Client
On a TCP/IP TELNET connection, you should normally have PARITY set to
NONE and (except in VMS C-Kermit) FLOW-CONTROL also set to NONE. If
-- it interferes with TELNET protocol.
If echoing does not work right after connecting to a network host or
- after dialing through a TCP/IP modem server, it probably means that
- the TELNET server on the far end of the connection is executing the
- TELNET protocol incorrectly. After initially connecting and
- discovering incorrect echoing (characters are echoed twice, or not at
- all), escape back, give the appropriate SET DUPLEX command (FULL or
- HALF), and then CONNECT again. For a consistently misbehaving
- connection, you can automate this process in a macro or TAKE file.
-
- TELNET sessions are treated just like serial communications sessions
- as far as "terminal bytesize" and "command bytesize" are concerned. If
- you need to view and/or enter 8-bit characters during a TELNET
- session, you must tell C-Kermit to SET TERMINAL BYTESIZE 8, SET
- COMMAND BYTESIZE 8, and SET PARITY NONE.
+ after dialing through a TCP/IP modem server, it probably means that the
+ TELNET server on the far end of the connection is executing the TELNET
+ protocol incorrectly. After initially connecting and discovering
+ incorrect echoing (characters are echoed twice, or not at all), escape
+ back, give the appropriate SET DUPLEX command (FULL or HALF), and then
+ CONNECT again. For a consistently misbehaving connection, you can
+ automate this process in a macro or TAKE file.
+
+ TELNET sessions are treated just like serial communications sessions as
+ far as "terminal bytesize" and "command bytesize" are concerned. If you
+ need to view and/or enter 8-bit characters during a TELNET session, you
+ must tell C-Kermit to SET TERMINAL BYTESIZE 8, SET COMMAND BYTESIZE 8,
+ and SET PARITY NONE.
If you SET TELNET DEBUG ON prior to making a connection, protocol
negotiations will be displayed on your screen. You can also capture
them in the debug log (along with everything else) and then extract
- them easily, since all Telnet negotiations lines begin with
- (uppercase) "TELNET".
- ________________________________________________________________________
+ them easily, since all Telnet negotiations lines begin with (uppercase)
+ "TELNET".
+
+The SSH Client
- 5. MODEMS AND DIALING
+ C-Kermit does not have its own built-in SSH client; instead, in the
+ Unix tradition, uses the external SSH client to do the SSH part, and
+ Kermit does its thing on top -- file transfer, scripting, etc. Under
+ certain circumstances that have not yet been identified, it sometimes
+ happens that after making an SSH connection from C-Kermit, logging out
+ from the remote host, and popping back to the local C-Kermit program,
+ subsequent SSH commands file with a message like "Network type not
+ supported". Starting a new copy of C-Kermit is the workaround.
- [ [45]Top ] [ [46]Contents ] [ [47]Next ] [ [48]Previous ]
+5. MODEMS AND DIALING
+
+ [ [55]Top ] [ [56]Contents ] [ [57]Next ] [ [58]Previous ]
External modems are recommended because:
warranted.
* They are more likely to have manuals.
- Modems can be used by C-Kermit only when they are visible as or
- through a regular serial port device. Certain modems can not be used
- in this normal way on many kinds of computers: Winmodems, RPI modems,
- Controllerless modems, the IBM Mwave, etc; all of these require
- special drivers that perform some, most, or all of the modem's
- functions in software. Such drivers are generally NOT available in
- UNIX or other non-Windows (or non-OS/2, in the case of the Mwave)
- platforms.
+ Modems can be used by C-Kermit only when they are visible as or through
+ a regular serial port device. Certain modems can not be used in this
+ normal way on many kinds of computers: Winmodems, RPI modems,
+ Controllerless modems, the IBM Mwave, etc; all of these require special
+ drivers that perform some, most, or all of the modem's functions in
+ software. Such drivers are generally NOT available in UNIX or other
+ non-Windows (or non-OS/2, in the case of the Mwave) platforms.
- In order to dial a modem, C-Kermit must know its repertoire of
+ In order to dial a modem, C-Kermit must know the modem's repertoire of
commands and responses. Each modem make and model is likely to have a
- different repertoire. Since Kermit has no way of knowhing which kind
- of modem will be dialed, normally you have to tell it with a SET MODEM
+ different repertoire. Since Kermit has no way of knowing which kind of
+ modem will be dialed, normally you have to tell it with a SET MODEM
TYPE command, e.g.:
set modem type usrobotics
In the early days, there was a wide variety of modems and command
languages. Nowadays, almost every modem uses the Hayes AT command set
(but with some differences in the details) and its startup
- configuration includes error correction, data compression, and
- hardware (RTS/CTS) flow control. As long as C-Kermit is capable of
- hardware flow control (as it is on many, but not all, the platforms
- where it runs, since some operating systems don't support it), the
- modem can be dailed immediately, without lengthy configuration
- dialogs, and in fact this is what SET MODEM TYPE GENERIC-HIGH-SPEED
- does. In C-Kermit 8.0, GENERIC-HIGH-SPEED has become the default modem
- type, so now it is usually possible to SET LINE, SET SPEED, and DIAL
- without having to identify your modem. If this doesn't work, of
- course, then you might have to fall back to the tradiational method:
- Give a SET MODEM TYPE for a specific modem first, then SET LINE, SET
- SPEED, and DIAL.
+ configuration includes error correction, data compression, and hardware
+ (RTS/CTS) flow control. As long as C-Kermit is capable of hardware flow
+ control (as it is on many, but not all, the platforms where it runs,
+ since some operating systems don't support it), the modem can be dialed
+ immediately, without lengthy configuration dialogs, and in fact this is
+ what SET MODEM TYPE GENERIC-HIGH-SPEED does. In C-Kermit 8.0,
+ GENERIC-HIGH-SPEED has become the default modem type, so now it is
+ usually possible to SET LINE, SET SPEED, and DIAL without having to
+ identify your modem. If this doesn't work, of course, then you might
+ have to fall back to the traditional method: Give a SET MODEM TYPE for
+ a specific modem first, then SET LINE, SET SPEED, and DIAL.
An important change in C-Kermit 6.0 is that when you give a SET MODEM
TYPE command to tell Kermit what kind of modem you have, Kermit also
cause some confusion if you use "set modem type hayes" for dialing a
more advanced type of modem.
- The new default for flow control is "auto", meaning "do the right
- thing for each type of connection". So (for example) if your version
- of C-Kermit supports SET FLOW RTS/CTS and your modem also supports
- RTS/CTS, then Kermit automatically sets its flow control to RTS/CTS
- and set modem's flow control to RTS/CTS too before attempting to use
- the modem.
+ The new default for flow control is "auto", meaning "do the right thing
+ for each type of connection". So (for example) if your version of
+ C-Kermit supports SET FLOW RTS/CTS and your modem also supports
+ RTS/CTS, then Kermit automatically sets its flow control to RTS/CTS and
+ set modem's flow control to RTS/CTS too before attempting to use the
+ modem.
For these reasons, don't assume that "set modem type hayes" should be
- used for all modems that uses the Hayes AT command set. "set modem
- type hayes" really does mean Hayes 1200 or 2400, which in turn means
- no hardware flow control, and no speed buffering. This choice will
- rarely work with a modern high-speed modem.
- ________________________________________________________________________
+ used for all modems that uses the Hayes AT command set. "set modem type
+ hayes" really does mean Hayes 1200 or 2400, which in turn means no
+ hardware flow control, and no speed buffering. This choice will rarely
+ work with a modern high-speed modem.
- 6. DIALING HINTS AND TIPS
+6. DIALING HINTS AND TIPS
- [ [49]Top ] [ [50]Contents ] [ [51]Next ] [ [52]Previous ]
+ [ [59]Top ] [ [60]Contents ] [ [61]Next ] [ [62]Previous ]
If you have a high-speed, error-correcting, data-compressing,
speed-buffering modem, you should fix the modem's interface speed as
support hardware flow control, it is usually possible to select
software flow control (Xon/Xoff), and C-Kermit will do its best to set
the modem for local Xon/Xoff flow control too (but then, of course,
- Ctrl-S and Ctrl-Q characters can not be transmitted on the
- connection).
+ Ctrl-S and Ctrl-Q characters can not be transmitted on the connection).
If you are having trouble dialing your modem, SET DIAL DISPLAY ON to
- watch the dialing interactions between C-Kermit and your modem.
- Consult Chapters 3-4 of [53]Using C-Kermit (2nd Ed) for modem-dialing
+ watch the dialing interactions between C-Kermit and your modem. Consult
+ Chapters 3-4 of [63]Using C-Kermit (2nd Ed) for modem-dialing
troubleshooting instructions. The following sections offer some
- addtional hints and tips.
+ additional hints and tips.
- 6.1. Syntax
+6.1. Syntax
If you want to dial a number that starts with #, you'll need to quote
the "#" character (as \# or \{35}), since it is also a comment
C-Kermit>dial xyzcorp
Lookup: "xyzcorp" - not found - dialing as given
- This normally does no harm, but some modems might behave strangely
- when given dial strings that contain certain letters. For example, a
- certain German modem treats any dial string that contains the letter
- "s" as a command to fetch a number from its internal list, and replies
- OK to the ATD command, which is normally not a valid response except
- for partial dialing. To avoid this situation, use:
+ This normally does no harm, but some modems might behave strangely when
+ given dial strings that contain certain letters. For example, a certain
+ German modem treats any dial string that contains the letter "s" as a
+ command to fetch a number from its internal list, and replies OK to the
+ ATD command, which is normally not a valid response except for partial
+ dialing. To avoid this situation, use:
lookup xyzcorp
if success dial
- 6.2. The Carrier Signal
+6.2. The Carrier Signal
- Remember: In many C-Kermit implementations (depending on the
- underlying operating system -- mostly Windows, OS/2, and
- System-V-based UNIX versions, and in C-Kermit 7.0, also VMS), you
- can't CONNECT to a modem and type the modem's dialing command (like
- "ATDT7654321") manually, unless you first tell C-Kermit to:
+ Remember: In many C-Kermit implementations (depending on the underlying
+ operating system -- mostly Windows, OS/2, and System-V-based UNIX
+ versions, and in C-Kermit 7.0, also VMS), you can't CONNECT to a modem
+ and type the modem's dialing command (like "ATDT7654321") manually,
+ unless you first tell C-Kermit to:
SET CARRIER-WATCH OFF
automatically when the connection is hung up. See the description of
SET CARRIER-WATCH in "Using C-Kermit".
- Similarly, if your dialed connection drops when CARRIER-WATCH is set
- to AUTO or ON, you can't CONNECT back to the (now disconnected) screen
- to see what might have happened unless you first SET CARRIER-WATCH
- OFF. But sometimes not even SET CARRIER-WATCH OFF will help in this
+ Similarly, if your dialed connection drops when CARRIER-WATCH is set to
+ AUTO or ON, you can't CONNECT back to the (now disconnected) screen to
+ see what might have happened unless you first SET CARRIER-WATCH OFF.
+ But sometimes not even SET CARRIER-WATCH OFF will help in this
situation: certain platforms (for example Unixware 2.1), once carrier
drops, won't let the application do i/o with the device any more. In
that case, if you want to use the device again, you have to CLOSE it
- and OPEN it again. Or you can have Kermit do this for you
- automatically by telling it to SET CLOSE-ON-DISCONNECT ON.
+ and OPEN it again. Or you can have Kermit do this for you automatically
+ by telling it to SET CLOSE-ON-DISCONNECT ON.
- 6.3. Dialing and Flow Control
+6.3. Dialing and Flow Control
Don't SET FLOW RTS/CTS if your modem is turned off, or if it is not
presenting the CTS signal. Otherwise, the serial device driver can get
tell the modem to use RTS/CTS. You probably did this yourself when you
configured the modem.
- 6.4. The Dial Timeout
+6.4. The Dial Timeout
If it takes your call longer to be completed than the timeout interval
that C-Kermit calculates, you can use the SET DIAL TIMEOUT command to
override C-Kermit's value. But beware: the modem has its own timeout
for completing the call. If it is a Hayes-like modem, C-Kermit adjusts
- the modem's value too by setting register S7. But the maximum value
- for S7 might be smaller than the time you need! In that case, C-Kermit
- sets S7 to 0, 255, or other (modem-specific) value to signify "no
- timeout". If Kermit attempts to set register S7 to a value higher than
- your modem's maximum, the modem will say "ERROR" and you will get a
- "Failure to initialize modem" error. In that case, use SET DIAL
- TIMEOUT to override C-Kermit's calculation of the timeout value with
- the highest value that is legal for your modem, e.g. 60.
+ the modem's value too by setting register S7. But the maximum value for
+ S7 might be smaller than the time you need! In that case, C-Kermit sets
+ S7 to 0, 255, or other (modem-specific) value to signify "no timeout".
+ If Kermit attempts to set register S7 to a value higher than your
+ modem's maximum, the modem will say "ERROR" and you will get a "Failure
+ to initialize modem" error. In that case, use SET DIAL TIMEOUT to
+ override C-Kermit's calculation of the timeout value with the highest
+ value that is legal for your modem, e.g. 60.
- 6.5. Escape Sequence Guard Time
+6.5. Escape Sequence Guard Time
A "TIES" (Time-Independent Escape Sequence) modem does not require any
guard time around its escape sequence. The following text:
if sent through a TIES modem, for example because you were uploading
this file through it, could pop the modem back into command mode and
- make it hang up the connection. Later versions of the Telebit T1600
- and T3000 (version LA3.01E firmware and later), and all WorldBlazers,
- use TIES.
+ make it hang up the connection. Later versions of the Telebit T1600 and
+ T3000 (version LA3.01E firmware and later), and all WorldBlazers, use
+ TIES.
Although the probability of "+++" appearing in a Kermit packet is
- markedly lower than with most other protocols (see the [54]File
+ markedly lower than with most other protocols (see the [64]File
Transfer section below), it can still happen under certain
circumstances. It can also happen when using C-Kermit's TRANSMIT
command. If you are using a Telebit TIES modem, you can change the
AT S48=0 S2=255
But when escape sequence recognition is turned off, "modem hangup"
- (<pause>+++<pause>ATH0<CR>) will not work, so you should also SET
- MODEM HANGUP RS232-SIGNAL (rather then MODEM-COMMAND).
+ (<pause>+++<pause>ATH0<CR>) will not work, so you should also SET MODEM
+ HANGUP RS232-SIGNAL (rather then MODEM-COMMAND).
- 6.6. Adaptive Dialing
+6.6. Adaptive Dialing
Some modems have a feature called adaptive dialing. When they are told
to dial a number using Tone dialing, they check to make sure that
a secondary dialtone. Typically you take the phone off-hook, get the
PBX dialtone, dial "9" to get an outside line, and then get the phone
company's dialtone. In a situation like this, you need to tell the
- modem to expect the secondary dialtone. On Hayes and compatible
- modems, this is done by putting a "W" in the dial string at the
- appropriate place. For example, to dial 9 for an outside line, and
- then 7654321, use ATDT9W7654321:
+ modem to expect the secondary dialtone. On Hayes and compatible modems,
+ this is done by putting a "W" in the dial string at the appropriate
+ place. For example, to dial 9 for an outside line, and then 7654321,
+ use ATDT9W7654321:
SET PBX-OUTSIDE-PREFIX 9W
(replace "9" with whatever your PBX's outside-line prefix is).
- 6.7. The Busy Signal
+6.7. The Busy Signal
Some phone companies are eliminating the busy signal. Instead, they
issue a voice message such as "press 1 to automatically redial until
rather than BUSY (immediately), and Kermit will declare the call a
failure, rather than trying to redial the same number.
- 6.8. Hanging Up
+6.8. Hanging Up
- There are two ways to hang up a modem: by turning off the serial
- port's DTR signal (SET MODEM HANGUP-METHOD RS232-SIGNAL) or sending
- the modem its escape sequence followed by its hangup command (SET
- MODEM HANGUP-METHOD MODEM-COMMAND). If one doesn't work, try the
- other. If the automatic hangup performed at the beginning of a DIAL
- command causes trouble, then SET DIAL HANGUP OFF.
+ There are two ways to hang up a modem: by turning off the serial port's
+ DTR signal (SET MODEM HANGUP-METHOD RS232-SIGNAL) or sending the modem
+ its escape sequence followed by its hangup command (SET MODEM
+ HANGUP-METHOD MODEM-COMMAND). If one doesn't work, try the other. If
+ the automatic hangup performed at the beginning of a DIAL command
+ causes trouble, then SET DIAL HANGUP OFF.
The HANGUP command has no effect when C-Kermit is in remote mode. This
is on purpose. If C-Kermit could hang up its own controlling terminal,
If you DIAL a modem, disconnect, then SET HOST or TELNET, and then
HANGUP, Kermit sends the modem's hangup command, such as "+++ATHO".
- There is no good way to avoid this, because this case can't reliably
- be distinguished from the case in which the user does SET HOST
+ There is no good way to avoid this, because this case can't reliably be
+ distinguished from the case in which the user does SET HOST
terminal-server, SET MODEM TYPE name, DIAL. In both cases we have a
- valid modem type selected and we have a network connection. If you
- want to DIAL and then later make a regular network connection, you
- will have to SET MODEM TYPE NONE or SET DIAL HANGUP OFF to avoid this
- phenomenon.
- ________________________________________________________________________
+ valid modem type selected and we have a network connection. If you want
+ to DIAL and then later make a regular network connection, you will have
+ to SET MODEM TYPE NONE or SET DIAL HANGUP OFF to avoid this phenomenon.
- 7. TERMINAL SERVERS
+7. TERMINAL SERVERS
- [ [55]Top ] [ [56]Contents ] [ [57]Next ] [ [58]Previous ]
+ [ [65]Top ] [ [66]Contents ] [ [67]Next ] [ [68]Previous ]
Watch out for terminal server's escape character -- usually a control
character such as Ctrl-Circumflex (Ctrl-^). Don't unprefix it in
Kermit!
- Ciscos -- must often be told to "terminal download"... Cisco ASM
- models don't have hardware flow control in both directions.
+ Ciscos -- must often be told to "terminal download"... Cisco ASM models
+ don't have hardware flow control in both directions.
- Many terminal servers only give you a 7-bit connection, so if you
- can't make it 8-bit, tell Kermit to "set parity space".
+ Many terminal servers only give you a 7-bit connection, so if you can't
+ make it 8-bit, tell Kermit to "set parity space".
- The following story, regarding trouble transferring 8-bit files
- through a reverse terminal server, was contributed by an Annex
- terminal server user:
+ The following story, regarding trouble transferring 8-bit files through
+ a reverse terminal server, was contributed by an Annex terminal server
+ user:
- Using C-Kermit on an HP 9000 712/80 running the HP-UX 10.0
+ Using C-Kermit on an HP 9000 712/80 running the HP-UX 10.00
operating system. The HP was connected to a Xylogics Annex
- MICRO-ELS-UX R7.1 8 port terminal server via ethernet. On the
- second port of the terminal server is an AT&T Paradyne 3810 modem,
- which is connected to a telephone line. There is a program which
- runs on the HP to establish a Telnet connection between a serial
- line on the Annex and a character special file on the HP (/dev
- file). This is an Annex specific program called rtelnet (reverse
- telnet) and is provided with the terminal server software. The
- rtelnet utility runs on top of the pseudo-terminal facility
- provided by UNIX. It creates host-originiated connections to
- devices attached ot Annex serial ports. There are several command
- line arguments to be specified with this program: the IP address of
- the terminal server, the number of the port to attach to, and the
- name of the pseudo-device to create. In addition to these there are
- options to tell rtelnet how to operate on the connect: -b requests
- negotiation for Telnet binary mode, -d turns on socket-leve
- debugging, -f enables "connect on the fly" mode, -r removes the
- device-name if it already exists, etc. The most important of these
- to be specified when using 8 data bits and no parity, as we found
- out, was the -t option. This creates a transparent TCP connection
- to the terminal server. Again, what we assumed to be happening was
- that the rtelnet program encountered a character sequence special
- to itself and then "eating" those kermit packets. I think this is
- all of the information I can give you on the configuration, short
- of the values associated with the port on the terminal server.
+ MICRO-ELS-UX R7.1 8 port terminal server via ethernet. On the second
+ port of the terminal server is an AT&T Paradyne 3810 modem, which is
+ connected to a telephone line. There is a program which runs on the
+ HP to establish a Telnet connection between a serial line on the
+ Annex and a character special file on the HP (/dev file). This is an
+ Annex specific program called rtelnet (reverse telnet) and is
+ provided with the terminal server software. The rtelnet utility runs
+ on top of the pseudo-terminal facility provided by UNIX. It creates
+ host-originated connections to devices attached ot Annex serial
+ ports. There are several command line arguments to be specified with
+ this program: the IP address of the terminal server, the number of
+ the port to attach to, and the name of the pseudo-device to create.
+ In addition to these there are options to tell rtelnet how to
+ operate on the connect: -b requests negotiation for Telnet binary
+ mode, -d turns on socket-leve debugging, -f enables "connect on the
+ fly" mode, -r removes the device-name if it already exists, etc. The
+ most important of these to be specified when using 8 data bits and
+ no parity, as we found out, was the -t option. This creates a
+ transparent TCP connection to the terminal server. Again, what we
+ assumed to be happening was that the rtelnet program encountered a
+ character sequence special to itself and then "eating" those kermit
+ packets. I think this is all of the information I can give you on
+ the configuration, short of the values associated with the port on
+ the terminal server.
How to DIAL from a TCP/IP reverse terminal server (modem server):
5. (for troubleshooting) SET DIAL DISPLAY ON
6. DIAL phone-number
- The order is important: SET HOST before SET MODEM TYPE. Since this is
- a Telnet connection, serial-port related commands such as SET SPEED,
- SET STOP-BITS, HANGUP (when MODEM HANGUP-METHOD is RS232), etc, have
- no effect. However, in C-Kermit 8.0, if the modem server supports
- [59]RFC-2217 Telnet Com-Port Control protocol, these commands do
- indeed take effect at the server's serial port.
- ________________________________________________________________________
-
- 8. TERMINAL EMULATION
-
- [ [60]Top ] [ [61]Contents ] [ [62]Next ] [ [63]Previous ]
-
- Except for the Windows, OS/2, and Macintosh versions, C-Kermit does
- not emulate any kind of terminal. Rather, it acts as a
- "semitransparent pipe", passing the characters you type during a
- CONNECT session to the remote host, and sending the characters
- received from the remote host to your screen. Whatever is controlling
- your keyboard and screen provides the specific terminal emulation: a
- real terminal, a PC running a terminal emulator, etc, or (in the case
- of a self-contained workstation) your console driver, a terminal
- window, xterm, etc.
-
- Kermit is semitrantsparent rather than fully transparent in the
+ The order is important: SET HOST before SET MODEM TYPE. Since this is a
+ Telnet connection, serial-port related commands such as SET SPEED, SET
+ STOP-BITS, HANGUP (when MODEM HANGUP-METHOD is RS232), etc, have no
+ effect. However, in C-Kermit 8.0, if the modem server supports
+ [69]RFC-2217 Telnet Com-Port Control protocol, these commands do indeed
+ take effect at the server's serial port.
+
+8. TERMINAL EMULATION
+
+ [ [70]Top ] [ [71]Contents ] [ [72]Next ] [ [73]Previous ]
+
+ Except for the Windows, OS/2, and Macintosh versions, C-Kermit does not
+ emulate any kind of terminal. Rather, it acts as a "semitransparent
+ pipe", passing the characters you type during a CONNECT session to the
+ remote host, and sending the characters received from the remote host
+ to your screen. Whatever is controlling your keyboard and screen
+ provides the specific terminal emulation: a real terminal, a PC running
+ a terminal emulator, etc, or (in the case of a self-contained
+ workstation) your console driver, a terminal window, xterm, etc.
+
+ Kermit is semitransparent rather than fully transparent in the
following ways:
* During a TELNET ("set host") session, C-Kermit itself executes the
* If you have changed your keyboard mapping using SET KEY, C-Kermit
replaces the characters you type with the characters or strings
they are mapped to.
- * If you SET your TERMINAL CHARACTER-SET to anything but
- TRANSPARENT, C-Kermit translates your keystrokes (after applying
- any SET KEY definitions) before transmitting them, and translates
- received characters before showing them on your screen.
+ * If you SET your TERMINAL CHARACTER-SET to anything but TRANSPARENT,
+ C-Kermit translates your keystrokes (after applying any SET KEY
+ definitions) before transmitting them, and translates received
+ characters before showing them on your screen.
* If your remote and/or local TERMINAL CHARACTER-SET is an ISO 646
7-bit national character set, such as German, French, Italian,
Swedish, etc, or Short KOI used for Cyrillic, C-Kermit's CONNECT
(VT100/200/300-like) 7-bit escape sequence formats are supported
for this purpose, no proprietary schemes like H-P, Televideo,
Tektronix, etc.
- * If your version of C-Kermit includes SET TERMINAL APC command,
- then C-Kermit's CONNECT command will handle APC escape sequences
- if TERMINAL APC is not set to OFF (which is the default).
+ * If your version of C-Kermit includes SET TERMINAL APC command, then
+ C-Kermit's CONNECT command will handle APC escape sequences if
+ TERMINAL APC is not set to OFF (which is the default).
You can make C-Kermit fully transparent by starting it with the -0
(dash zero) command-line option.
then punch the key at the right time; or (d) use the VMSLOGIN macro
that is defined in CKERMIT.INI to do this for you automatically.
- SET SESSION-LOG { TEXT, BINARY }, which is effective in UNIX and
- AOS/VS but not other C-Kermit versions, removes CR, DEL, NUL, XON, and
- XOFF characters (Using C-Kermit neglects to mention that XON and XOFF
- are removed). The TEXT-mode setting is ineffective during SCRIPT
- command execution, as well as on X.25 connections.
- ________________________________________________________________________
+ SET SESSION-LOG { TEXT, BINARY }, which is effective in UNIX and AOS/VS
+ but not other C-Kermit versions, removes CR, DEL, NUL, XON, and XOFF
+ characters (Using C-Kermit neglects to mention that XON and XOFF are
+ removed). The TEXT-mode setting is ineffective during SCRIPT command
+ execution, as well as on X.25 connections.
- 9. KEY MAPPING
+9. KEY MAPPING
- [ [64]Top ] [ [65]Contents ] [ [66]Next ] [ [67]Previous ]
+ [ [74]Top ] [ [75]Contents ] [ [76]Next ] [ [77]Previous ]
Except in the terminal-emulating versions, C-Kermit's key mapping
facilities are limited to normal "ASCII" keys, and cannot be used with
- function keys, arrow keys, arcane key combinations, etc. Since
- C-Kermit runs on such a wide variety of hardware platforms (including,
- for example, more than 360 different UNIX platforms), it is not
- possible for C-Kermit to support every conceivable keyboard under
- every release of every UNIX (or VMS, or ...) product on every
- different kind of computer possibly under all manner of different
- console drivers, even if it had the means to do so.
+ function keys, arrow keys, arcane key combinations, etc. Since C-Kermit
+ runs on such a wide variety of hardware platforms (including, for
+ example, more than 360 different UNIX platforms), it is not possible
+ for C-Kermit to support every conceivable keyboard under every release
+ of every UNIX (or VMS, or ...) product on every different kind of
+ computer possibly under all manner of different console drivers, even
+ if it had the means to do so.
In technical terms, C-Kermit uses the read() function to read
keystrokes, and read() returns a single byte (value 0 through 255).
return either a 2-byte "scan code" or else a character string (such as
an escape sequence like "<ESC> O p"). In both cases, C-Kermit has no
way to tell the difference between such multibyte key values, and the
- corresponding series of single-byte key values. This could only be
- done by accessing the keyboard at a much lower level in a highly
+ corresponding series of single-byte key values. This could only be done
+ by accessing the keyboard at a much lower level in a highly
platform-dependent manner, probably requiring tens of thousands of
lines of code to support even a sampling of the most popular
workstation / OS combinations.
etc) include their own key-mapping facility. For example in AIX, the
AIXterm program (in whose window you would run C-Kermit) allows
rebinding of the F1-F12 keys to arbitrary strings. The same is true of
- Xterm and DECterm windows, etc. Consult the technical documentation
- for your workstation or emulator. See sample Xterm (Xmodmap) mappings
- in the [68]Unix C-Kermit Hints and Tips document.
+ Xterm and DECterm windows, etc. Consult the technical documentation for
+ your workstation or emulator. See sample Xterm (Xmodmap) mappings in
+ the [78]Unix C-Kermit Hints and Tips document.
The SET KEY command (except in Kermit 95) does not allow a key
definition to be (or contain) the NUL (\0) character.
- ________________________________________________________________________
- 10. FILE TRANSFER
+10. FILE TRANSFER
- [ [69]Top ] [ [70]Contents ] [ [71]Next ] [ [72]Previous ]
+ [ [79]Top ] [ [80]Contents ] [ [81]Next ] [ [82]Previous ]
C-Kermit 7.0 is the first release of C-Kermit to use fast (rather than
robust and therefore slow) protocol defaults: long packets, sliding
windows, control-character unprefixing, and streaming where possible.
- This makes most transfers (partner willing) dramatically faster "out
- of the box" but might break some combinations that worked before. If
+ This makes most transfers (partner willing) dramatically faster "out of
+ the box" but might break some combinations that worked before. If
transfers with C-Kermit 7.0 or later fail where transfers worked with
earlier C-Kermit versions, try the following (one at a time, in this
order):
settings.
Execution of multiple file transfers by C-Kermit from a command file
- when in remote mode might exhibit long delays between each transfer.
- To avoid this, just include the command "SET DELAY 0" in your command
- file before any of the file-transfer commands.
+ when in remote mode might exhibit long delays between each transfer. To
+ avoid this, just include the command "SET DELAY 0" in your command file
+ before any of the file-transfer commands.
- File transfer failures can occur for all sorts of reasons, most of
- them listed in Chapter 10 of [73]Using C-Kermit. The following
- sections touch on some that aren't.
+ File transfer failures can occur for all sorts of reasons, most of them
+ listed in Chapter 10 of [83]Using C-Kermit. The following sections
+ touch on some that aren't.
- The [74]C-Kermit 7.0 Release Notes document SEND /COMMAND as taking an
- argument, but it doesn't. Instead of SEND /COMMAND:{some command},
- use:
+ The [84]C-Kermit 7.0 Release Notes document SEND /COMMAND as taking an
+ argument, but it doesn't. Instead of SEND /COMMAND:{some command}, use:
SEND /COMMAND [ other switches such as /AS-NAME: ] command [ arguments... ]
- 10.1. Laptops
+10.1. Laptops
Watch out for laptops and their assorted power-saver features; for
example, a built-in modem's "auto timeout delay" hanging up the
timeout", "auto timeout", etc, and add the command to disable this
feature to Kermit's init string for this modem.
- 10.2. NFS
+10.2. NFS
- If uploading a large file to an NFS-mounted disk fails (or is
- painfully slow), try uploading it to a local disk (e.g. /tmp on Unix)
- and then copying to the NFS disk later.
+ If uploading a large file to an NFS-mounted disk fails (or is painfully
+ slow), try uploading it to a local disk (e.g. /tmp on Unix) and then
+ copying to the NFS disk later.
- 10.3. Modems
+10.3. Modems
If you are dialing out and find that downloads work but uploads don't,
- try again with a lower serial-port speed. Case in point: dialing out
- on a certain PC from Linux at 115200 bps using a USR Courier 56K
+ try again with a lower serial-port speed. Case in point: dialing out on
+ a certain PC from Linux at 115200 bps using a USR Courier 56K
"V.Everything" external modem and RTS/CTS flow control. Downloads
worked flawlessly, uploads stopped dead after the first few packets
were sent. The modem lights showed constant retraining (ARQ light
blinks slowly), and the CTS light was off 95% of the time, allowing
nothing to get through. Reducing the serial port speed to 57600 bps
- made the problems go away. Evidently the PC in question has a very
- fast serial port, since dialing the same modem with a different PC at
- 115200 bps works without incident.
+ made the problems go away. Evidently the PC in question has a very fast
+ serial port, since dialing the same modem with a different PC at 115200
+ bps works without incident.
- 10.4. TCP/IP Connections
+10.4. TCP/IP Connections
If you have trouble transferring files over a TCP/IP connection, tell
Kermit to SET PARITY SPACE and try again. If that doesn't work, also
try a shorter packet length or smaller window size (to compensate for
certain well-known broken Telnet servers), and/or SET RELIABLE OFF.
- 10.5. Multihop Connections
+10.5. Multihop Connections
If you have a multihop connection, with the interior nodes in CONNECT
mode (Kermit, Telnet, Rlogin, or any other), you can expect (a) file
transfer to be slower, and (b) the connection to be less transparent
(to control characters, perhaps to the 8th bit) than a more direct
- connection. C-Kermit 7.0 and later have a "-0" (dash-zero)
- command-line option to make it 100% transparent in cases where it is
- to be used in the middle.
-
- 10.6. Recovery
-
- The recovery feature (RESEND command) that was added in version
- 5A(190) works only for binary-mode transfers. In order for this
- feature to be useful at all, the default for SET FILE INCOMPLETE was
- changed from DISCARD to KEEP. Otherwise an interrupted transfer would
- leave no partial file behind unless you had remembered to change the
- default. But now you have to pay closer attention to Kermit's messages
- to know whether a transfer succeeded or failed -- previously, if it
- failed, the file would not show up on the receiving end at all; in
- 5A(190) and later, you'll get a partial file which could easily be
- mistaken for the complete file unless you change the default back to
- DISCARD or read the screen messages, or keep a transaction log.
-
- 10.7. Filename Collisions
+ connection. C-Kermit 7.0 and later have a "-0" (dash-zero) command-line
+ option to make it 100% transparent in cases where it is to be used in
+ the middle.
+
+10.6. Recovery
+
+ The recovery feature (RESEND command) that was added in version 5A(190)
+ works only for binary-mode transfers. In order for this feature to be
+ useful at all, the default for SET FILE INCOMPLETE was changed from
+ DISCARD to KEEP. Otherwise an interrupted transfer would leave no
+ partial file behind unless you had remembered to change the default.
+ But now you have to pay closer attention to Kermit's messages to know
+ whether a transfer succeeded or failed -- previously, if it failed, the
+ file would not show up on the receiving end at all; in 5A(190) and
+ later, you'll get a partial file which could easily be mistaken for the
+ complete file unless you change the default back to DISCARD or read the
+ screen messages, or keep a transaction log.
+
+10.7. Filename Collisions
SET FILE COLLISION BACKUP is the default. This means:
them, no notion of a "version retention count", etc, but you can
use the PURGE command to clean them up.
* If a file arrives that has the same name as a directory, the file
- transfer fails because Kermit will not rename a directory. Send
- the file with another name, or use SET FILE COLLISION RENAME.
+ transfer fails because Kermit will not rename a directory. Send the
+ file with another name, or use SET FILE COLLISION RENAME.
* If the directory lacks write permission, the file transfer fails
even if you have write access to the file that is being backed up;
in that case, switch to SET FILE COLLISION OVERWRITE or APPEND, or
SET FILE COLLISION UPDATE depends on the date/time stamp in the
attribute packet. However, this is recorded in local time, not
- Universal Time (GMT), and there is no indication of time zone. The
- time is expressed to the precision of 1 second, but some file systems
- do not record with this precision -- for example, MS-DOS records the
- file date/time only to the nearest 2 seconds. This might cause update
+ Universal Time (GMT), and there is no indication of time zone. The time
+ is expressed to the precision of 1 second, but some file systems do not
+ record with this precision -- for example, MS-DOS records the file
+ date/time only to the nearest 2 seconds. This might cause update
operations to send more files than necessary.
(This paragraph does NOT apply to UNIX, where, as of C-Kermit 7.0,
default) renames the incoming file if a file already exists with the
same name (the default is to rename the previously existing file, and
store the incoming file with its own name). It is strongly recommended
- that you do not use SET FILE COLLISION RENAME if you ever intend to
- use the recovery feature:
+ that you do not use SET FILE COLLISION RENAME if you ever intend to use
+ the recovery feature:
- * When the file is first received by C-Kermit, its name is changed
- if another file already has the same name. When you RESEND the
- same file after a failure, C-Kermit will probably try to append
- the re-sent portion to the wrong file.
+ * When the file is first received by C-Kermit, its name is changed if
+ another file already has the same name. When you RESEND the same
+ file after a failure, C-Kermit will probably try to append the
+ re-sent portion to the wrong file.
* Assuming that you get RESEND to work with FILE COLLISION RENAME,
C-Kermit, when receiving the remainder of the file during a RESEND
operation, will report back the wrong name. Nothing can be done
note that for purposes of DISABLE and ENABLE, "set host *" connections
do not count as local mode even though, strictly speaking, they are.
- 10.8. DOS Pathnames
+10.8. DOS Pathnames
When referring to foreign MS-DOS, Windows, Atari ST, OS/2, or other
file specifications that contain backslash characters in a C-Kermit
This is because backslash is used in C-Kermit commands for introducing
special character codes, variables, functions, etc.
- 10.9. Cancellation
+10.9. Cancellation
- If attempting to cancel local-mode file reception at a very early
- stage (i.e. before data packets are exchanged) with X or Z does not
- work, use E or Ctrl-C instead, or wait until the first data packets
- are sent.
+ If attempting to cancel local-mode file reception at a very early stage
+ (i.e. before data packets are exchanged) with X or Z does not work, use
+ E or Ctrl-C instead, or wait until the first data packets are sent.
If you cancel a transfer that is underway using X or Z, and a lot of
window slots are in use, it might take a while for the cancellation to
If C-Kermit is sending a file, remote-mode packet-mode breakout (three
consecutive Ctrl-C's by default) is not effective until after C-Kermit
- sends its first packet. If C-Kermit is receiving a file or is in
- server mode, it is effective right away. In the former case, the SET
- DELAY value determines the earliest time at which you can break out of
- packet mode.
+ sends its first packet. If C-Kermit is receiving a file or is in server
+ mode, it is effective right away. In the former case, the SET DELAY
+ value determines the earliest time at which you can break out of packet
+ mode.
- 10.10. Partner Peculiarities
+10.10. Partner Peculiarities
When one or both partners is on an SCO operating system such as OSR5,
you might issue the command:
must SET FLOW NONE. The HP48SX does not support flow control, and
evidently also becomes confused if you attempt to use it. You might
also need to use SET SEND PAUSE 100 (or other number). For greater
- detail about transferring files the the HP-48, see:
+ detail about transferring files the HP-48, see:
- [75]http://www.columbia.edu/kermit/hp48.html
+ [85]http://www.columbia.edu/kermit/hp48.html
Some communication programs have errors in their implementation of
Kermit attribute packets. If you get an error message from your
communication program like "Attribute error", tell C-Kermit to SET
ATTRIBUTES OFF. Better yet, switch to a real Kermit program.
- Some communication software claims to implement Kermit sliding
- windows, but does so incorrectly. If sliding window transfers fail,
- set C-Kermit's window size to the smallest one that works, for
- example, SET WINDOW 1.
+ Some communication software claims to implement Kermit sliding windows,
+ but does so incorrectly. If sliding window transfers fail, set
+ C-Kermit's window size to the smallest one that works, for example, SET
+ WINDOW 1.
For lots more detail about how to cope with defective Kermit partners,
see:
- * [76]Coping with Faulty Kermit Implementations (C-Kermit 7.0 and
+ * [86]Coping with Faulty Kermit Implementations (C-Kermit 7.0 and
later).
- * [77]Coping with Broken Kermit Partners (C-Kermit 8.0 and later).
+ * [87]Coping with Broken Kermit Partners (C-Kermit 8.0 and later).
The UNIX version of C-Kermit discards carriage returns when receiving
files in text mode. Thus, "bare" carriage returns (sometimes used to
achieve overstriking) are lost.
- ________________________________________________________________________
- 11. SCRIPT PROGRAMMING
+11. SCRIPT PROGRAMMING
- [ [78]Top ] [ [79]Contents ] [ [80]Previous ]
+ [ [88]Top ] [ [89]Contents ] [ [90]Previous ]
- 11.1. Comments Versus the SCRIPT Command
+11.1. Comments Versus the SCRIPT Command
Remember that ";" and "#" introduce comments when (a) they are the
first character on the line, or (b) they are preceded by at least one
INPUT 5 \; ; Just quote the semicolon
SCRIPT ~0 \#--#--# ; Just quote the "#"
- ________________________________________________________________________
- 11.2. Alphabetic Case and the INPUT Command
+11.2. Alphabetic Case and the INPUT Command
INPUT and MINPUT caseless string comparisons do not work for non-ASCII
(international) characters. Workaround: SET INPUT CASE OBSERVE. Even
- then, the "lexically less than" and "lexically greater than"
- operations (IF LLT, IF LGT) probably won't work as expected. The same
- is true for the case-conversion functions \Flower() and \Fupper().
- C-Kermit does not know the collating sequence for different character
- sets and languages. (On the other hand, it might work depending on
- such items as how Kermit was linked, whether your operating supports
- "locales", etc)
- ________________________________________________________________________
-
- 11.3. NUL (0) Characters in C-Kermit Commands
-
- You can't include a NUL character (\0) in C-Kermit command text
- without terminating the character string in which it appears. For
- example:
+ then, the "lexically less than" and "lexically greater than" operations
+ (IF LLT, IF LGT) probably won't work as expected. The same is true for
+ the case-conversion functions \Flower() and \Fupper(). C-Kermit does
+ not know the collating sequence for different character sets and
+ languages. (On the other hand, it might work depending on such items as
+ how Kermit was linked, whether your operating supports "locales", etc)
+
+11.3. NUL (0) Characters in C-Kermit Commands
+
+ You can't include a NUL character (\0) in C-Kermit command text without
+ terminating the character string in which it appears. For example:
echo In these brackets [\0] is a NUL
will echo "In these brackets [". This applies to ECHO, INPUT, OUTPUT,
and all other commands (but you can represent NUL by "\N" in an OUTPUT
string). This is because C-language strings are terminated internally
- by the NUL character, and it allows all of C-Kermit's string
- comparison and manipulation functions to work in the normal "C" way.
+ by the NUL character, and it allows all of C-Kermit's string comparison
+ and manipulation functions to work in the normal "C" way.
To illustrate:
INPUT 5 ABC
- INPUT operations discard and ignore NUL characters that arrive from
- the communication device, meaning that they do not figure into
- matching operations (e.g. A<NUL>B matches AB); they are not deposited
- in the INPUT buffer (\v(input)); and they are not counted in
- \v(incount), with two exceptions:
+ INPUT operations discard and ignore NUL characters that arrive from the
+ communication device, meaning that they do not figure into matching
+ operations (e.g. A<NUL>B matches AB); they are not deposited in the
+ INPUT buffer (\v(input)); and they are not counted in \v(incount), with
+ two exceptions:
1. An arriving NUL character restarts the INPUT SILENCE timer.
2. An arriving NUL character terminates the INPUT command with the
INPUT character was NUL. That is, there is no way to tell only by
looking at \v(inchar) the difference between a NUL that was INPUT and
no INPUT at all. If the INPUT command succeeded but \v(inchar) is
- empty, then a NUL character was input. Also, \v(incount) will be set
- to 1.
+ empty, then a NUL character was input. Also, \v(incount) will be set to
+ 1.
Here's a sample script fragment to read characters, possibly including
NUL, from the communication connection and write them to a file:
character.
\v(incount) and \v(inchar) are NOT affected by the CLEAR command.
- ________________________________________________________________________
- 11.4. \ffiles() and \fnextfile() Peculiarities
+11.4. \ffiles() and \fnextfile() Peculiarities
The following script program:
did not work as expected in C-Kermit 6.0 and earlier but does work in
C-Kermit 7.0 and later.
- ________________________________________________________________________
- 11.5. Commands That Have Only Local Effect
+11.5. Commands That Have Only Local Effect
Certain settings are local to each command level, meaning that
subordinate command levels (macros or command files) can change them
TAKE ERROR
This arrangement allows CASE, TIMEOUT, and ERROR settings, which are
- used to control automatic exit from a command file or macro upon
- error, to be automatically restored when the command file or macro
- exits.
+ used to control automatic exit from a command file or macro upon error,
+ to be automatically restored when the command file or macro exits.
The COUNT variable follows this rule too, which permits nested SET
COUNT / IF COUNT loops, as in this example in which the inner loop
SET COUNT 5
WHILE COUNT { WRITE SCREEN Outer:, SHOW COUNT, DO INNER }
- Keep in mind that an inferior command level cannot manipulate the
- COUNT value held by a higher level. For example:
+ Keep in mind that an inferior command level cannot manipulate the COUNT
+ value held by a higher level. For example:
DEFINE OOFA SHOW COUNT, IF COUNT GOTO LOOP
SET COUNT 5
OOFA
ECHO Done
- results in an infinite loop; the COUNT value remains at 5 because it
- is never decremented at the same level at which it was set.
- ________________________________________________________________________
+ results in an infinite loop; the COUNT value remains at 5 because it is
+ never decremented at the same level at which it was set.
- 11.6. Literal Braces in Function Calls
+11.6. Literal Braces in Function Calls
Since braces are used in function calls to indicate grouping, there is
no way to pass literal braces to the function itself. Solution: Define
define \%a {{ab{cd}}
echo \fsubstring(\%a)
ab{cd
- ________________________________________________________________________
- 11.7. Defining Variables on the C-Kermit Command Line
+11.7. Defining Variables on the C-Kermit Command Line
To define variables on the C-Kermit command line, use the -C
command-line option with one or more DEFINE or ASSIGN commands. Note
- that the C-Kermit command line must cope with the quoting rules of
- your shell. Examples:
+ that the C-Kermit command line must cope with the quoting rules of your
+ shell. Examples:
kermit -C "define \\%a foo, define phonenumber 7654321"
In this case we follow UNIX quoting rules by doubling the backslash.
- Once C-Kermit starts, the \%a and \m(phonenumber) variables are
- defined as indicated and can be used in the normal way.
+ Once C-Kermit starts, the \%a and \m(phonenumber) variables are defined
+ as indicated and can be used in the normal way.
In DOS or Windows or OS/2 the command would be:
Here we need to double the percent sign rather than the backslash
because of DOS shell quoting rules.
- ________________________________________________________________________
- 11.8. Per-Character Echo Check with the OUTPUT Command
+11.8. Per-Character Echo Check with the OUTPUT Command
- Sometimes the OUTPUT command must be used to send commands or data to
- a device in "echoplex" mode, meaning that characters must be sent one
- at a time, and the next character can not be sent until the echo from
- the previous one has been received. For example, a certain PBX might
- have this characteristic. Let's say a Kermit script is used to program
- the PBX. If characters are sent too fast, they can be lost. It would
- seem that the command:
+ Sometimes the OUTPUT command must be used to send commands or data to a
+ device in "echoplex" mode, meaning that characters must be sent one at
+ a time, and the next character can not be sent until the echo from the
+ previous one has been received. For example, a certain PBX might have
+ this characteristic. Let's say a Kermit script is used to program the
+ PBX. If characters are sent too fast, they can be lost. It would seem
+ that the command:
SET OUTPUT PACING milliseconds
- could be used to take care of this, but the pacing interval is
- constant and must be set large enough to allow even the slowest echo
- to finish. If the script is large (an actual example is 14,000 lines
- long), this can cause it to take hours longer than it needs to.
+ could be used to take care of this, but the pacing interval is constant
+ and must be set large enough to allow even the slowest echo to finish.
+ If the script is large (an actual example is 14,000 lines long), this
+ can cause it to take hours longer than it needs to.
Here is a macro you can use to OUTPUT a string in an Echoplex
environment:
C-Kermit 7.0 or later is required.
- It sends one character at a time and then waits up to 2 seconds for
- the character to be echoed back, but continues to the next character
- as soon as the echo appears, so no time is wasted. You can add an IF
- FAIL clause after the INPUT in case you want to do something special
- about failure to detect an echo within the timeout period. Obviously
- you can also change the 2-second limit, and adjust the script in any
- other desired way.
- ________________________________________________________________________
+ It sends one character at a time and then waits up to 2 seconds for the
+ character to be echoed back, but continues to the next character as
+ soon as the echo appears, so no time is wasted. You can add an IF FAIL
+ clause after the INPUT in case you want to do something special about
+ failure to detect an echo within the timeout period. Obviously you can
+ also change the 2-second limit, and adjust the script in any other
+ desired way.
- 11.9. Scripted File Transfer
+11.9. Scripted File Transfer
Sometimes a user complains that when she makes a connection by hand,
logs in, and transfers a file, there are no problems, but when she
2. When you log in interactively, your terminal emulator sends the
response. This is invisible to you; you don't know it's happening.
3. When you script the login, and begin a file transfer immediately
- upon logging in, the host still sends the "What Are You?"
- sequence. Kermit's INPUT ECHO setting is ON by default, so the
- escape sequence passes through to the terminal, and the terminal
- sends its response. But by this time Kermit has already started
- the file transfer.
+ upon logging in, the host still sends the "What Are You?" sequence.
+ Kermit's INPUT ECHO setting is ON by default, so the escape
+ sequence passes through to the terminal, and the terminal sends its
+ response. But by this time Kermit has already started the file
+ transfer.
4. By default, the local Kermit program examines the keyboard for
interruption characters between every packet. The "What Are You"
response is sitting in the keyboard buffer. Eventually Kermit will
read a character such as "c" that is a valid interruption
- character, and the file transfer stops with "User cancelled".
+ character, and the file transfer stops with "User canceled".
The right way to handle this situation is to have your look for the
"What Are You?" sequence and send the response itself, as described in
Using C-Kermit, pp.429-431. Or you can work around it by telling the
local Kermit to "set input echo off" and/or "set transfer interruption
off".
- ________________________________________________________________________
-
- 11.10. Other...
-
- Escape sequences (or any strings that contain control characters)
- can't be used as labels, GOTO targets, or SWITCH cases.
-
- [ [81]Top ] [ [82]Contents ] [ [83]C-Kermit Home ] [ [84]C-Kermit 8.0
- Overview ] [ [85]Kermit Home ]
- _________________________________________________________________
- C-Kermit 8.0 Unix Hints and Tips / [86]The Kermit Project /
- [87]Columbia University / [88]kermit@columbia.edu / 10 April 2004
+11.10. Hexadecimal arithmetic...
+
+ C-Kermit can do both integer and floating-point arithmetic, in both
+ ordinary algebraic notation and in Lisp S-Expression notation. All
+ arithmetic operators and functions operate only on decimal numbers. It
+ is possible, however, to write scripts that operate on hexadecimal
+ numbers. This is done by converting them to decimal prior to any
+ arithmetic operations, and then converting them back to hexadecimal for
+ display. Example:
+
+; EVALUATE is a command that evaluates an arithmetic expression.
+; See HELP EVALUATE for details. This is just for demonstration.
+; Arithmetic expressions can be used in any context where a number
+; can be used. Also, the special notation:
+;
+; .\%a ::= expression
+;
+; evaluations the expression and assigns the result to the variable.
+;
+.\%a := fffe ; Set variable to hex value
+set eval old ; See HELP EVAL
+eval \fhex2n(\%a) ; Show value of variable
+eval \fhex2n(\%a) + 1 ; Show value of expression
+eval \fhex2n(\%a) + 2 ; Show value of expression
+.\%x ::= \fhex2n(\%a) + 1 ; Assign value of expression to variable
+echo \fn2hex(\%x) ; Display variable's value in hex
+.\%x ::= \fhex2n(\%a) + 2 : Ditto
+echo \fn2hex(\%x)
+.\%x ::= \fhex2n(\%a) | \fhex2n(ffff) ; Similarly for logical OR
+echo \fn2hex(\%x)
+.\%x ::= \fhex2n(\%a) & \fhex2n(ffff) ; and logical AND
+echo \fn2hex(\%x)
+
+ By the way, you might be tempted to use Kermit's \xnn notation to plug
+ hex numbers into arithmetic expressions but this doesn't work. That
+ notation is strictly for bytes (hex representation of character
+ values), not for numbers.
+
+11.11. Other...
+
+ Escape sequences (or any strings that contain control characters) can't
+ be used as labels, GOTO targets, or SWITCH cases.
+
+ [ [91]Top ] [ [92]Contents ] [ [93]C-Kermit Home ] [ [94]C-Kermit 8.0
+ Overview ] [ [95]Kermit Home ]
+ __________________________________________________________________
+
+ C-Kermit 8.0 Unix Hints and Tips / [96]The Kermit Project /
+ [97]kermit@columbia.edu / 30 June 2011
References
- 1. http://www.columbia.edu/kermit/
- 2. http://www.columbia.edu/
- 3. http://www.columbia.edu/kermit/ckcbwr.html
- 4. http://www.columbia.edu/kermit/ckubwr.html
- 5. http://www.columbia.edu/kermit/k95.html
- 6. http://www.columbia.edu/kermit/ckermit.html
- 7. http://www.columbia.edu/kermit/ckututor.html
- 8. http://www.columbia.edu/kermit/ckcbwr.html#x0
- 9. http://www.columbia.edu/kermit/ckcbwr.html#x1
- 10. http://www.columbia.edu/kermit/ckcbwr.html#x2
- 11. http://www.columbia.edu/kermit/ckcbwr.html#x3
- 12. http://www.columbia.edu/kermit/ckcbwr.html#x4
- 13. http://www.columbia.edu/kermit/ckcbwr.html#x5
- 14. http://www.columbia.edu/kermit/ckcbwr.html#x6
- 15. http://www.columbia.edu/kermit/ckcbwr.html#x7
- 16. http://www.columbia.edu/kermit/ckcbwr.html#x8
- 17. http://www.columbia.edu/kermit/ckcbwr.html#x9
- 18. http://www.columbia.edu/kermit/ckcbwr.html#x10
- 19. http://www.columbia.edu/kermit/ckcbwr.html#x11
- 20. http://www.columbia.edu/kermit/ckcbwr.html#top
- 21. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 22. http://www.columbia.edu/kermit/ckcbwr.html#x2
- 23. http://www.columbia.edu/kermit/ckcbwr.html#top
- 24. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 25. http://www.columbia.edu/kermit/ckcbwr.html#x2
- 26. http://www.columbia.edu/kermit/ck60manual.html
- 27. http://www.columbia.edu/kermit/ckermit2.html
- 28. http://www.columbia.edu/kermit/ck60manual.html
- 29. http://www.columbia.edu/kermit/ckermit80.html#x5
- 30. http://www.columbia.edu/kermit/ckermit80.html
- 31. http://www.columbia.edu/kermit/ckermit80.html#x2.2
- 32. http://www.columbia.edu/kermit/ckcbwr.html#top
- 33. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 34. http://www.columbia.edu/kermit/ckcbwr.html#x3
- 35. http://www.columbia.edu/kermit/ckcbwr.html#x1
- 36. http://www.columbia.edu/kermit/ckcbwr.html#top
- 37. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 38. http://www.columbia.edu/kermit/ckcbwr.html#x4
- 39. http://www.columbia.edu/kermit/ckcbwr.html#x2
- 40. http://www.columbia.edu/kermit/ckcbwr.html#top
- 41. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 42. http://www.columbia.edu/kermit/ckcbwr.html#x5
- 43. http://www.columbia.edu/kermit/ckcbwr.html#x3
- 44. ftp://ftp.isi.edu/in-notes/rfc1122.txt
- 45. http://www.columbia.edu/kermit/ckcbwr.html#top
- 46. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 47. http://www.columbia.edu/kermit/ckcbwr.html#x6
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/ckcbwr.html
+ 12. http://www.columbia.edu/kermit/ckubwr.html
+ 13. http://www.columbia.edu/kermit/k95.html
+ 14. http://www.columbia.edu/kermit/ckermit.html
+ 15. http://www.columbia.edu/kermit/ckututor.html
+ 16. http://www.columbia.edu/kermit/ckcbwr.html#x0
+ 17. http://www.columbia.edu/kermit/ckcbwr.html#x1
+ 18. http://www.columbia.edu/kermit/ckcbwr.html#x2
+ 19. http://www.columbia.edu/kermit/ckcbwr.html#x3
+ 20. http://www.columbia.edu/kermit/ckcbwr.html#x4
+ 21. http://www.columbia.edu/kermit/ckcbwr.html#x5
+ 22. http://www.columbia.edu/kermit/ckcbwr.html#x6
+ 23. http://www.columbia.edu/kermit/ckcbwr.html#x7
+ 24. http://www.columbia.edu/kermit/ckcbwr.html#x8
+ 25. http://www.columbia.edu/kermit/ckcbwr.html#x9
+ 26. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 27. http://www.columbia.edu/kermit/ckcbwr.html#x11
+ 28. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 29. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 30. http://www.columbia.edu/kermit/ckcbwr.html#x2
+ 31. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 32. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 33. http://www.columbia.edu/kermit/ckcbwr.html#x2
+ 34. http://www.columbia.edu/kermit/ck60manual.html
+ 35. http://www.columbia.edu/kermit/ckermit2.html
+ 36. http://www.columbia.edu/kermit/ck60manual.html
+ 37. http://www.columbia.edu/kermit/ckermit80.html#x5
+ 38. http://www.columbia.edu/kermit/ckermit80.html
+ 39. http://www.columbia.edu/kermit/ckermit80.html#x2.2
+ 40. http://www.columbia.edu/kermit/ckermit80.html#x8.7.2
+ 41. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 42. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 43. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 44. http://www.columbia.edu/kermit/ckcbwr.html#x3
+ 45. http://www.columbia.edu/kermit/ckcbwr.html#x1
+ 46. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 47. http://www.columbia.edu/kermit/ckcbwr.html#contents
48. http://www.columbia.edu/kermit/ckcbwr.html#x4
- 49. http://www.columbia.edu/kermit/ckcbwr.html#top
- 50. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 51. http://www.columbia.edu/kermit/ckcbwr.html#x7
+ 49. http://www.columbia.edu/kermit/ckcbwr.html#x2
+ 50. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 51. http://www.columbia.edu/kermit/ckcbwr.html#contents
52. http://www.columbia.edu/kermit/ckcbwr.html#x5
- 53. http://www.columbia.edu/kermit/ck60manual.html
- 54. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 53. http://www.columbia.edu/kermit/ckcbwr.html#x3
+ 54. ftp://ftp.isi.edu/in-notes/rfc1122.txt
55. http://www.columbia.edu/kermit/ckcbwr.html#top
56. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 57. http://www.columbia.edu/kermit/ckcbwr.html#x8
- 58. http://www.columbia.edu/kermit/ckcbwr.html#x6
- 59. ftp://ftp.isi.edu/in-notes/rfc2217.txt
- 60. http://www.columbia.edu/kermit/ckcbwr.html#top
- 61. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 62. http://www.columbia.edu/kermit/ckcbwr.html#x9
- 63. http://www.columbia.edu/kermit/ckcbwr.html#x7
- 64. http://www.columbia.edu/kermit/ckcbwr.html#top
- 65. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 66. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 57. http://www.columbia.edu/kermit/ckcbwr.html#x6
+ 58. http://www.columbia.edu/kermit/ckcbwr.html#x4
+ 59. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 60. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 61. http://www.columbia.edu/kermit/ckcbwr.html#x7
+ 62. http://www.columbia.edu/kermit/ckcbwr.html#x5
+ 63. http://www.columbia.edu/kermit/ck60manual.html
+ 64. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 65. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 66. http://www.columbia.edu/kermit/ckcbwr.html#contents
67. http://www.columbia.edu/kermit/ckcbwr.html#x8
- 68. http://www.columbia.edu/kermit/ckubwr.html
- 69. http://www.columbia.edu/kermit/ckcbwr.html#top
- 70. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 71. http://www.columbia.edu/kermit/ckcbwr.html#x11
+ 68. http://www.columbia.edu/kermit/ckcbwr.html#x6
+ 69. ftp://ftp.isi.edu/in-notes/rfc2217.txt
+ 70. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 71. http://www.columbia.edu/kermit/ckcbwr.html#contents
72. http://www.columbia.edu/kermit/ckcbwr.html#x9
- 73. http://www.columbia.edu/kermit/ck60manual.html
- 74. http://www.columbia.edu/kermit/ckermi70.htm
- 75. http://www.columbia.edu/kermit/hp48.html
- 76. http://www.columbia.edu/kermit/ckermit70.html#x4.22
- 77. http://www.columbia.edu/kermit/ckermit80.html#x15
- 78. http://www.columbia.edu/kermit/ckcbwr.html#top
- 79. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 80. http://www.columbia.edu/kermit/ckcbwr.html#x10
- 81. http://www.columbia.edu/kermit/ckcbwr.html#top
- 82. http://www.columbia.edu/kermit/ckcbwr.html#contents
- 83. http://www.columbia.edu/kermit/ckermit.html
- 84. http://www.columbia.edu/kermit/ck80.html
- 85. http://www.columbia.edu/kermit/index.html
- 86. http://www.columbia.edu/kermit/index.html
- 87. http://www.columbia.edu/
- 88. mailto:kermit@columbia.edu
+ 73. http://www.columbia.edu/kermit/ckcbwr.html#x7
+ 74. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 75. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 76. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 77. http://www.columbia.edu/kermit/ckcbwr.html#x8
+ 78. http://www.columbia.edu/kermit/ckubwr.html
+ 79. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 80. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 81. http://www.columbia.edu/kermit/ckcbwr.html#x11
+ 82. http://www.columbia.edu/kermit/ckcbwr.html#x9
+ 83. http://www.columbia.edu/kermit/ck60manual.html
+ 84. http://www.columbia.edu/kermit/ckermi70.htm
+ 85. http://www.columbia.edu/kermit/hp48.html
+ 86. http://www.columbia.edu/kermit/ckermit70.html#x4.22
+ 87. http://www.columbia.edu/kermit/ckermit80.html#x15
+ 88. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 89. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 90. http://www.columbia.edu/kermit/ckcbwr.html#x10
+ 91. http://www.columbia.edu/kermit/ckcbwr.html#top
+ 92. http://www.columbia.edu/kermit/ckcbwr.html#contents
+ 93. http://www.columbia.edu/kermit/ckermit.html
+ 94. http://www.columbia.edu/kermit/ck80.html
+ 95. http://www.columbia.edu/kermit/index.html
+ 96. http://www.columbia.edu/kermit/index.html
+ 97. mailto:kermit@columbia.edu
- C-Kermit Configuration Options
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
- Frank da Cruz
- [1]The Kermit Project
- [2]Columbia University
+C-Kermit Configuration Options
- As of: C-Kermit 8.0.211, 10 April 2004
- This page last updated: Sun Apr 11 16:45:55 2004 (New York USA Time)
+ As of: C-Kermit 9.0.300, 30 June 2011
+ This page last updated: Fri Jul 1 15:48:21 2011 (New York USA Time)
IF YOU ARE READING A PLAIN-TEXT version of this document, note that
this file is a plain-text dump of a Web page. You can visit the
original (and possibly more up-to-date) Web page here:
- [3]http://www.columbia.edu/kermit/ckccfg.html
+ [11]http://www.columbia.edu/kermit/ckccfg.html
- [ [4]C-Kermit Home ] [ [5]Kermit Home ]
- ________________________________________________________________________
+ [ [12]C-Kermit Home ] [ [13]Kermit Home ]
CONTENTS
- 1. [6]FILE TRANSFER
- 2. [7]SERIAL COMMUNICATION SPEEDS
- 3. [8]FULLSCREEN FILE TRANSFER DISPLAY
- 4. [9]CHARACTER SETS
- 5. [10]APC EXECUTION
- 6. [11]PROGRAM SIZE
- 7. [12]MODEM DIALING
- 8. [13]NETWORK SUPPORT
- 9. [14]EXCEPTION HANDLING
- 10. [15]SECURITY FEATURES
- 11. [16]ENABLING SELECT()
- 12. [17]I/O REDIRECTION
- 13. [18]FLOATING-POINT NUMBERS, TIMERS, AND ARITHMETIC
- 14. [19]SPECIAL CONFIGURATIONS
- I. [20]SUMMARY OF COMPILE-TIME OPTIONS
- ________________________________________________________________________
+ 1. [14]FILE TRANSFER
+ 2. [15]SERIAL COMMUNICATION SPEEDS
+ 3. [16]FULLSCREEN FILE TRANSFER DISPLAY
+ 4. [17]CHARACTER SETS
+ 5. [18]APC EXECUTION
+ 6. [19]PROGRAM SIZE
+ 7. [20]MODEM DIALING
+ 8. [21]NETWORK SUPPORT
+ 9. [22]EXCEPTION HANDLING
+ 10. [23]SECURITY FEATURES
+ 11. [24]ENABLING SELECT()
+ 12. [25]I/O REDIRECTION
+ 13. [26]FLOATING-POINT NUMBERS, TIMERS, AND ARITHMETIC
+ 14. [27]SPECIAL CONFIGURATIONS
+ I. [28]SUMMARY OF COMPILE-TIME OPTIONS
OVERVIEW
For details about your particular operating system, also see the
system-specific installation instructions file, such as the
- [21]C-Kermit Installation Instructions for Unix.
+ [29]C-Kermit Installation Instructions for Unix.
- [ [22]C-Kermit Home ] [ [23]Kermit Home ]
- ________________________________________________________________________
+ [ [30]C-Kermit Home ] [ [31]Kermit Home ]
1. FILE TRANSFER
- [ [24]Top ] [ [25]Contents ] [ [26]Next ] [ [27]Previous ]
+ [ [32]Top ] [ [33]Contents ] [ [34]Next ] [ [35]Previous ]
Prior to version 7.0, C-Kermit was always built with the most
conservative Kermit file-transfer protocol defaults on every platform:
is now set to CAUTIOUS rather than NONE at startup). C-Kermit's
settings prevail when it is receiving.
- [ [28]C-Kermit Home ] [ [29]Kermit Home ]
- ________________________________________________________________________
+ [ [36]C-Kermit Home ] [ [37]Kermit Home ]
2. SERIAL COMMUNICATION SPEEDS
- [ [30]Top ] [ [31]Contents ] [ [32]Next ] [ [33]Previous ]
+ [ [38]Top ] [ [39]Contents ] [ [40]Next ] [ [41]Previous ]
As of 6 September 1997, a new simplified mechanism for obtaining the
list of legal serial interface speeds is in place:
* If the symbol TTSPDLIST is defined, the system-dependent routine
- ttspdlist() is called at program initialization to obtain the
- list.
+ ttspdlist() is called at program initialization to obtain the list.
* This symbol should be defined only for C-Kermit implementations
that have implemented the ttspdlist() function, typically in the
- ck?tio.c module. See [34]ckutio.c for an example.
- * TTSPDLIST is automatically defined in [35]ckcdeb.h for UNIX. Add
+ ck?tio.c module. See [42]ckutio.c for an example.
+ * TTSPDLIST is automatically defined in [43]ckcdeb.h for UNIX. Add
the appropriate #ifdefs for other platforms when the corresponding
ttspdlist() functions are filled in.
* If TTSPDLIST is (or normally would be) defined, the old code
For example, based simply on #ifdef Bnnnn..#endif (in UNIX). Although
it might be better to actually check each speed against the currently
selected hardware interface before allowing it in the array, there is
- usually no passive and/or reliable and safe way to do this, and so
- it's better to let some speeds into the array that might not work,
- than it is to erroneously exclude others. Speeds that don't work are
- caught when the SET SPEED command is actually given.
+ usually no passive and/or reliable and safe way to do this, and so it's
+ better to let some speeds into the array that might not work, than it
+ is to erroneously exclude others. Speeds that don't work are caught
+ when the SET SPEED command is actually given.
Note that this scheme does not necessarily rule out split speed
- operation, but effectively it does in C-Kermit as presently
- constituted since there are no commands to set input and output speed
- separately (except the special case "set speed 75/1200").
+ operation, but effectively it does in C-Kermit as presently constituted
+ since there are no commands to set input and output speed separately
+ (except the special case "set speed 75/1200").
Note that some platforms, notably AIX 4.2 and 4.3, implement high
serial speeds transparently to the application, e.g. by mapping 50 bps
applies:
Speeds are defined in two places: the SET SPEED keyword list in the
- command parser (as of this writing, in the [36]ckuus3.c source file),
+ command parser (as of this writing, in the [44]ckuus3.c source file),
and in the system- dependent communications i/o module, ck?tio.c,
functions ttsspd() (set speed) and ttgspd() (get speed). The following
speeds are assumed to be available in all versions:
If one or more of these speeds is not supported by your system, you'll
need to change the source code (this has never happened so far). Other
- speeds that are not common to all systems have Kermit-specific
- symbols:
+ speeds that are not common to all systems have Kermit-specific symbols:
Symbol Symbol
Speed (bps) to enable to disable
460800 BPS_460K NOB_460K
921600 BPS_921K NOB_921K
- The [37]ckcdeb.h header file contains default speed configurations for
+ The [45]ckcdeb.h header file contains default speed configurations for
the many systems that C-Kermit supports. You can override these
defaults by (a) editing ckcdeb.h, or (b) defining the appropriate
enabling and/or disabling symbols on the CC command line, for example:
make blah "KFLAGS=-DBPS_14400 -DNOB_115200"
Note: some speeds have no symbols defined for them, because they have
- never been needed: 12.5bps, 45.5bps, 20000bps, etc. These can easily
- be added if required (but they will work only if the OS supports
- them).
+ never been needed: 12.5bps, 45.5bps, 20000bps, etc. These can easily be
+ added if required (but they will work only if the OS supports them).
IMPORTANT: Adding one of these flags at compile time does not
necessarily mean that you will be able to use that speed. A particular
supported speeds), and supported by the serial device driver, and of
course by the physical device itself.
- ALSO IMPORTANT: The list of available speeds is independent of how
- they are set. The many UNIXes, for example, offer a wide variety of
- APIs that are BSD-based, SYSV-based, POSIX-based, and purely made up.
- See the ttsspd(), ttgspd(), and ttspdlist() routines in [38]ckutio.c
- for illustrations.
+ ALSO IMPORTANT: The list of available speeds is independent of how they
+ are set. The many UNIXes, for example, offer a wide variety of APIs
+ that are BSD-based, SYSV-based, POSIX-based, and purely made up. See
+ the ttsspd(), ttgspd(), and ttspdlist() routines in [46]ckutio.c for
+ illustrations.
The latest entries in this horserace are the tcgetspeed() and
ttsetspeed() routines found in UnixWare 7. Unlike other methods, they
accept the entire range of integers (longs really) as speed values,
- rather than certain codes, and return an error if the number is not,
- in fact, a legal speed for the device/driver in question. In this
- case, there is no way to build a list of legal speeds at compile time,
- since no Bnnnn symbols are defined (except for "depracated, legacy"
- interfaces like ioctl()) and so the legal speed list must be
- enumerated in the code -- see ttspdlist() in [39]ckutio.c.
+ rather than certain codes, and return an error if the number is not, in
+ fact, a legal speed for the device/driver in question. In this case,
+ there is no way to build a list of legal speeds at compile time, since
+ no Bnnnn symbols are defined (except for "deprecated, legacy"
+ interfaces like ioctl()) and so the legal speed list must be enumerated
+ in the code -- see ttspdlist() in [47]ckutio.c.
- [ [40]C-Kermit Home ] [ [41]Kermit Home ]
- ________________________________________________________________________
+ [ [48]C-Kermit Home ] [ [49]Kermit Home ]
3. FULLSCREEN FILE TRANSFER DISPLAY
- [ [42]Top ] [ [43]Contents ] [ [44]Next ] [ [45]Previous ]
+ [ [50]Top ] [ [51]Contents ] [ [52]Next ] [ [53]Previous ]
New to edit 180 is support for an MS-DOS-Kermit-like local-mode full
- screen file transfer display, accomplished using the curses library,
- or something equivalent (for example, the Screen Manager on DEC VMS).
- To enable this feature, include the following in your CFLAGS:
+ screen file transfer display, accomplished using the curses library, or
+ something equivalent (for example, the Screen Manager on DEC VMS). To
+ enable this feature, include the following in your CFLAGS:
-DCK_CURSES
and then change your build procedure (if necessary) to include the
- necessary libraries. For example, in Unix these are usually "curses"
- or "ncurses" (and more recenlty, "ncursesw" and "slang"), perhaps also
+ necessary libraries. For example, in Unix these are usually "curses" or
+ "ncurses" (and more recently, "ncursesw" and "slang"), perhaps also
"termcap", "termlib", or "tinfo":
"LIBS= -lcurses -ltermcap"
"LIBS= -ltinfo"
"man curses" for further information, and search through the Unix
- [46]makefile for "CK_CURSES" to see many examples, and also see the
- relevant sections of the [47]Unix C-Kermit Installation Instructions,
- particularly Sections [48]4 and [49]9.2.
+ [54]makefile for "CK_CURSES" to see many examples, and also see the
+ relevant sections of the [55]Unix C-Kermit Installation Instructions,
+ particularly Sections [56]4 and [57]9.2.
There might still be a complication. Some implementations of curses
reserve the right to alter the buffering on the output file without
- restoring it afterwards, which can leave Kermit's command processing
- in a mess when the prompt comes back after a fullscreen file transfer
+ restoring it afterwards, which can leave Kermit's command processing in
+ a mess when the prompt comes back after a fullscreen file transfer
display. The typical symptom is that characters you type at the prompt
after a local-mode file transfer (i.e. after seeing the curses
file-transfer display) do not echo until you press the Return (Enter)
-DCK_NEWTERM
- to your makefile target (see comments in screenc() in [50]ckuusx.c for
+ to your makefile target (see comments in screenc() in [58]ckuusx.c for
an explanation).
If that doesn't fix the problem, then use a bigger hammer and replace
which tells Kermit to force stdout to be unbuffered so CBREAK mode can
work.
- In SCO Xenix and SCO UNIX, there are two separate curses libraries,
- one based on termcap and the other based on terminfo. The default
- library, usually terminfo, is established when the development system
- is installed. To manually select terminfo (at compile time):
+ In SCO Xenix and SCO UNIX, there are two separate curses libraries, one
+ based on termcap and the other based on terminfo. The default library,
+ usually terminfo, is established when the development system is
+ installed. To manually select terminfo (at compile time):
compile -DM_TERMINFO and link -ltinfo
<curses.h> looks at M_TERMINFO and M_TERMCAP to decide which header
files to use. /usr/lib/libcurses.a is a link to either libtinfo.a or
- libtcap.a. The C-Kermit compilation options must agree with the
- version of the curses library that is actually installed.
+ libtcap.a. The C-Kermit compilation options must agree with the version
+ of the curses library that is actually installed.
NOTE: If you are doing an ANSI-C compilation and you get compile time
warnings like the following:
New to edit 190 is the ability to refresh a messed-up full-screen
display, e.g. after receiving a broadcast message. This depends on the
- curses package including the wrefresh() and clearok() functions and
- the curscr variable. If your version has these, or has code to
- simulate them, then add:
+ curses package including the wrefresh() and clearok() functions and the
+ curscr variable. If your version has these, or has code to simulate
+ them, then add:
-DCK_WREFRESH
The curses and termcap libraries add considerable size to the program
- image (e.g. about 20K on a SUN-4, 40K on a 386). On some small
- systems, such as the AT&T 6300 PLUS, curses can push Kermit over the
- edge... even though it compiles, loads, and runs correctly, its
- increased size apparently makes it swap constantly, slowing it down to
- a crawl, even when the curses display is not in use. Some new makefile
- targets have been added to take care of this (e.g. sys3upcshcc), but
- similar tricks might be necessary in other cases too.
-
- On the curses file-transfer display, just below the "thermometer", is
- a running display of the transfer rate, as a flat quotient of file
+ image (e.g. about 20K on a SUN-4, 40K on a 386). On some small systems,
+ such as the AT&T 6300 PLUS, curses can push Kermit over the edge...
+ even though it compiles, loads, and runs correctly, its increased size
+ apparently makes it swap constantly, slowing it down to a crawl, even
+ when the curses display is not in use. Some new makefile targets have
+ been added to take care of this (e.g. sys3upcshcc), but similar tricks
+ might be necessary in other cases too.
+
+ On the curses file-transfer display, just below the "thermometer", is a
+ running display of the transfer rate, as a flat quotient of file
characters per elapsed seconds so far. You can change this to an
average that gives greater weight to recent history (0.25 *
instantaneous cps + 0.75 * historical cps) by adding -DCPS_WEIGHTED to
- your CFLAGS (sorry folks, this one is not worth a SET command). You
- can choose a second type of weighted average in which the weighting
- smooths out progressively as the transfer progresses by adding
- -DCPS_VINCE to -DCPS_WEIGHTED.
+ your CFLAGS (sorry folks, this one is not worth a SET command). You can
+ choose a second type of weighted average in which the weighting smooths
+ out progressively as the transfer progresses by adding -DCPS_VINCE to
+ -DCPS_WEIGHTED.
An alternative to curses is also available at compile time, but should
be selected if your version of Kermit is to be run in local mode only
In some C-Kermit builds, we replace printf() via #define printf...
However, this can cause conflicts with the [n]curses header files.
- Various hacks are required to get around this -- see [51]ckutio.c,
- [52]ckufio.c, [53]ckuusx.c, [54]ckucmd.c, etc.
+ Various hacks are required to get around this -- see [59]ckutio.c,
+ [60]ckufio.c, [61]ckuusx.c, [62]ckucmd.c, etc.
- [ [55]C-Kermit Home ] [ [56]Kermit Home ]
- ________________________________________________________________________
+ [ [63]C-Kermit Home ] [ [64]Kermit Home ]
4. CHARACTER SETS
- [ [57]Top ] [ [58]Contents ] [ [59]Next ] [ [60]Previous ]
+ [ [65]Top ] [ [66]Contents ] [ [67]Next ] [ [68]Previous ]
Since version 5A, C-Kermit has included support for conversion of
character sets for Western European languages (i.e. languages that
originated in Western Europe, but are now also spoken in the Western
- Hemisphere and other parts of the world), via ISO 8859-1 Latin
- Alphabet 1, for Eastern European languages (ISO Latin-2), Hebrew (and
- Yiddish), Greek, and Cyrillic-alphabet languages (ISO Latin/Cyrillic).
- Many file (local) character sets are supported: ISO 646 7-bit national
- sets, IBM code pages, Apple, DEC, DG, NeXT, etc.
+ Hemisphere and other parts of the world), via ISO 8859-1 Latin Alphabet
+ 1, for Eastern European languages (ISO Latin-2), Hebrew (and Yiddish),
+ Greek, and Cyrillic-alphabet languages (ISO Latin/Cyrillic). Many file
+ (local) character sets are supported: ISO 646 7-bit national sets, IBM
+ code pages, Apple, DEC, DG, NeXT, etc.
To build Kermit with no character-set translation at all, include
-DNOCSETS in the CFLAGS. To build with no Latin-2, add -DNOLATIN2. To
build with no Cyrillic, add -DNOCYRIL. To omit Hebrew, add -DNOHEBREW.
- If -DNOCSETS is *not* included, you'll always get LATIN1. To build
- with no KANJI include -DNOKANJI. There is presently no way to include
+ If -DNOCSETS is *not* included, you'll always get LATIN1. To build with
+ no KANJI include -DNOKANJI. There is presently no way to include
Latin-2, Cyrillic, Hebrew, or Kanji without also including Latin-1.
- [61]Unicode support was added in C-Kermit 7.0, and it adds a fair
+ [69]Unicode support was added in C-Kermit 7.0, and it adds a fair
amount of tables and code (and this is only a "Level 1" implementation
-- a higher level would also require building in the entire Unicode
- database). On a PC with RH 5.2 Linux, building C-Kermit 7.0, we get
- the following sizes:
+ database). On a PC with RH 5.2 Linux, building C-Kermit 7.0, we get the
+ following sizes:
- NOCSETS NOUNICODE NOKANJI Before After
+ NOCSETS NOUNICODE NOKANJI Before After
[ ] [ ] [ ] 1329014 (Full)
[ ] [ ] [ X ] 1325686 (Unicode but no Kanji)
[ ] [ X ] [ ] 1158837 (All charsets except Unicode)
non-Unicode Kanji sets (Shift-JIS, EUC-JP, JIS-7, etc). Kanji is still
representable in UCS-2 and UTF-8.
- [ [62]C-Kermit Home ] [ [63]Kermit Home ]
- ________________________________________________________________________
+ [ [70]C-Kermit Home ] [ [71]Kermit Home ]
5. APC EXECUTION
- [ [64]Top ] [ [65]Contents ] [ [66]Next ] [ [67]Previous ]
+ [ [72]Top ] [ [73]Contents ] [ [74]Next ] [ [75]Previous ]
The Kermit CONNECT and INPUT commands are coded to execute Application
Program Command escape sequences from the host:
CK_APC
- is defined automatically in [68]ckuusr.h. For OS/2, APC is enabled at
+ is defined automatically in [76]ckuusr.h. For OS/2, APC is enabled at
runtime by default, for UNIX it is disabled. It is controlled by the
SET TERMINAL APC command. Configuring APC capability into a version
- that gets it by default (because CK_APC is defined in [69]ckuusr.h)
- can be overridden by including:
+ that gets it by default (because CK_APC is defined in [77]ckuusr.h) can
+ be overridden by including:
-DNOAPC
on the CC command line.
C-Kermit's autodownload feature depends on the APC feature, so
- deconfiguring APC also disables autodownload (it doesn't use APC
- escape sequences, but uses the APC switching mechanism internally).
+ deconfiguring APC also disables autodownload (it doesn't use APC escape
+ sequences, but uses the APC switching mechanism internally).
- [ [70]C-Kermit Home ] [ [71]Kermit Home ]
- ________________________________________________________________________
+ [ [78]C-Kermit Home ] [ [79]Kermit Home ]
6. PROGRAM SIZE
- [ [72]Top ] [ [73]Contents ] [ [74]Next ] [ [75]Previous ]
+ [ [80]Top ] [ [81]Contents ] [ [82]Next ] [ [83]Previous ]
SECTION CONTENTS
- 6.1. [76]Feature Selection
- 6.2. [77]Changing Buffer Sizes
- 6.3. [78]Other Size-Related Items
- 6.4. [79]Space/Time Tradeoffs
+ 6.1. [84]Feature Selection
+ 6.2. [85]Changing Buffer Sizes
+ 6.3. [86]Other Size-Related Items
+ 6.4. [87]Space/Time Tradeoffs
- (Also see [80]Section 4)
+ (Also see [88]Section 4)
Each release of C-Kermit is larger than the last. On some computers
(usually old ones) the size of the program prevents it from being
- successfully linked and loaded. On some others (also usually old
- ones), it occupies so much memory that it is constantly swapping or
- paging. In such cases, you can reduce C-Kermit's size in various ways,
- outlined in this section. The following options can cut down on the
- program's size at compile time by removing features or changing the
- size of storage areas.
+ successfully linked and loaded. On some others (also usually old ones),
+ it occupies so much memory that it is constantly swapping or paging. In
+ such cases, you can reduce C-Kermit's size in various ways, outlined in
+ this section. The following options can cut down on the program's size
+ at compile time by removing features or changing the size of storage
+ areas.
If you are reading this section because all you want is a small, fast,
quick-to-load Kermit file-transfer application for the remote end of
your connection, and the remote end is Unix based, take a look at
G-Kermit:
- [81]http://www.columbia.edu/kermit/gkermit.html
+ [89]http://www.columbia.edu/kermit/gkermit.html
6.1. Feature Selection
The following table shows the savings achieved when building C-Kermit
8.0 (Beta.04) with selected feature-deselection switches on an
Intel-based PC with Red Hat Linux 7.0 and gcc 2.96. The sizes are for
- non-security builds. The fully configured non-security build is
- 2127408 bytes.
-
- Option Size Savings Effect
- NOICP 545330 74.4% No Interactive Command Parser (command-line only)
- NOLOCAL 1539994 27.6% No making connections.
- NOXFER 1551108 27.1% No file transfer.
- IKSDONLY 1566608 26.4% Internet Kermit Server only.
- NOCSETS 1750097 17.7% No character-set conversion.
- NOSPL 1800293 15.4% No Script Programming Language.
- NONET 1808575 15.0% No making network connections.
- NOUNICODE 1834426 13.8% No Unicode character-set conversion.
- NOHELP 1837877 13.6% No built-in help text.
- NODEBUG 1891669 11.1% No debug log.
- NOFRILLS 1918966 9.8% No "frills".
- NOFTP 1972496 7.3% No FTP client.
- NODIAL 1984488 6.7% No automatic modem dialing.
- NOPUSH 2070184 2.7% No shell access, running external programs, etc.
- NOIKSD 2074129 2.5% No Internet Kermit Server capability.
- NOHTTP 2082610 2.1% No HTTP client.
- NOFLOAT 2091332 1.7% No floating-point arithmetic.
- NOCHANNELIO 2095978 1.5% No FOPEN/FREAD/FWRITE/FCLOSE, etc.
- MINIDIAL 2098035 1.4% No built-in support for many kinds of modems.
- NOSERVER 2098987 1.3% No server mode.
- NOSEXP 2105898 1.0% No S-Expressions.
- NOPTY 2117743 0.5% No pseudoterminal support.
- NORLOGIN 2121089 0.3% No RLOGIN connections.
- NOOLDMODEMS 2124038 0.2% No built-in support for old kinds of modems.
- NOSSH 2125696 0.1% No SSH command.
+ non-security builds. The fully configured non-security build is 2127408
+ bytes.
+
+ Option Size Savings Effect
+ NOICP 545330 74.4% No Interactive Command Parser (command-line only)
+ NOLOCAL 1539994 27.6% No making connections.
+ NOXFER 1551108 27.1% No file transfer.
+ IKSDONLY 1566608 26.4% Internet Kermit Server only.
+ NOCSETS 1750097 17.7% No character-set conversion.
+ NOSPL 1800293 15.4% No Script Programming Language.
+ NONET 1808575 15.0% No making network connections.
+ NOUNICODE 1834426 13.8% No Unicode character-set conversion.
+ NOHELP 1837877 13.6% No built-in help text.
+ NODEBUG 1891669 11.1% No debug log.
+ NOFRILLS 1918966 9.8% No "frills".
+ NOFTP 1972496 7.3% No FTP client.
+ NODIAL 1984488 6.7% No automatic modem dialing.
+ NOPUSH 2070184 2.7% No shell access, running external programs, etc.
+ NOIKSD 2074129 2.5% No Internet Kermit Server capability.
+ NOHTTP 2082610 2.1% No HTTP client.
+ NOFLOAT 2091332 1.7% No floating-point arithmetic.
+ NOCHANNELIO 2095978 1.5% No FOPEN/FREAD/FWRITE/FCLOSE, etc.
+ MINIDIAL 2098035 1.4% No built-in support for many kinds of modems.
+ NOSERVER 2098987 1.3% No server mode.
+ NOSEXP 2105898 1.0% No S-Expressions.
+ NOPTY 2117743 0.5% No pseudoterminal support.
+ NORLOGIN 2121089 0.3% No RLOGIN connections.
+ NOOLDMODEMS 2124038 0.2% No built-in support for old kinds of modems.
+ NOSSH 2125696 0.1% No SSH command.
And here are a few combinations
Options Size Savings Effect
NODEBUG NOICP NOCSETS NOLOCAL 281641 86.7% No debug log, parser,
character sets, or making connections.
- NOICP NOCSETS NOLOCAL 376468 82.3% No parser, character sets, or
- making connections.
+ NOICP NOCSETS NOLOCAL 376468 82.3% No parser, character sets, or making
+ connections.
NOICP NOCSETS NONET 427510 79.9% No parser, character sets, or network
connections.
NOSPL NOCSETS 1423784 33.1% No script language, or character sets.
BIGBUFOK
as it is by default for most modern platforms (Linux, AIX 4 and 5,
- HP-UX 10 and 11, Solaris, etc) in [82]ckuusr.h. If your build does not
+ HP-UX 10 and 11, Solaris, etc) in [90]ckuusr.h. If your build does not
get big buffers automatically (SHOW FEATURES tells you), you can
include them by rebuilding with BIGBUFOK defined; e.g. in Unix:
make xxxx KFLAGS=-DNOBIGBUF
There are options to control Kermit's packet buffer allocations. The
- following symbols are defined in [83]ckcker.h in such a way that you
+ following symbols are defined in [91]ckcker.h in such a way that you
can override them by redefining them in CFLAGS:
-DMAXSP=xxxx - Maximum send-packet length.
Using dynamic allocation (-DDYNAMIC) reduces storage requirements for
the executable program on disk, and allows more and bigger packets at
- runtime. This has proven safe over the years, and now most builds
- (e.g. all Unix, VMS, Windows, and OS/2 ones) use dynamic memory
- allocation by default. If it causes trouble, however, then omit the
- -DDYNAMIC option from CFLAGS, or add -DNODYNAMIC.
+ runtime. This has proven safe over the years, and now most builds (e.g.
+ all Unix, VMS, Windows, and OS/2 ones) use dynamic memory allocation by
+ default. If it causes trouble, however, then omit the -DDYNAMIC option
+ from CFLAGS, or add -DNODYNAMIC.
6.3. Other Size-Related Items
b. Some development systems support overlays. If the program is too
big to be built as is, check your loader manual ("man ld") to see
if an overlay feature is available. See the 2.10/2.11 BSD example
- in the UNIX makefile. (Actually, as of version 7.0, C-Kermit is
- too big to build, period, even with overlays, on 2.xx BSD).
+ in the UNIX makefile. (Actually, as of version 7.0, C-Kermit is too
+ big to build, period, even with overlays, on 2.xx BSD).
c. Similarly, some small and/or segment-based architectures support
"code mapping", which is similar to overlays (PDP11-based VENIX
1.0, circa 1984, was an example). See the linker documentation on
supports higher levels of optimization (e.g. -O2 or higher number,
-Onolimit (HP-UX), etc), try them; the greater the level of
optimization, the longer the compilation and more likely the
- compiler will run out of memory. The the latter eventuality, some
- compilers also provide command-line options to allocate more
- memory for the optimizer, like "-Olimit number" in Ultrix.
- b. If your platofrm supports shared libraries, change the make entry
+ compiler will run out of memory. The latter eventuality, some
+ compilers also provide command-line options to allocate more memory
+ for the optimizer, like "-Olimit number" in Ultrix.
+ b. If your platform supports shared libraries, change the make entry
to take advantage of this feature. The way to do this is, of
course, platform dependent; see the NeXT makefile target for an
- example. some platforms (like Solaris) do it automatically and
- give you no choice. But watch out: executables linked with shared
+ example. some platforms (like Solaris) do it automatically and give
+ you no choice. But watch out: executables linked with shared
libraries are less portable than statically linked executables.
c. Strip the program image after building ("man strip" for further
info), or add -s to the LNKFLAGS (UNIX only). This strips the
6.4. Space/Time Tradeoffs
- There are more than 6000 debug() statements in the program. If you
- want to save both space (program size) and time (program execution
- time), include -DNODEBUG in the compilation. If you want to include
- debugging for tracking down problems, omit -DNODEBUG from the make
- entry. But when you include debugging, you have two choices for how
- it's done. One definition defines debug() to be a function call; this
- is cheap in space but expensive in execution. The other defines debug
- as "if (deblog)" and then the function call, to omit the function call
- overhead when the debug log is not active. But this adds a lot of
- space to the program. Both methods work, take your choice; IFDEBUG is
+ There are more than 6000 debug() statements in the program. If you want
+ to save both space (program size) and time (program execution time),
+ include -DNODEBUG in the compilation. If you want to include debugging
+ for tracking down problems, omit -DNODEBUG from the make entry. But
+ when you include debugging, you have two choices for how it's done. One
+ definition defines debug() to be a function call; this is cheap in
+ space but expensive in execution. The other defines debug as "if
+ (deblog)" and then the function call, to omit the function call
+ overhead when the debug log is not active. But this adds a lot of space
+ to the program. Both methods work, take your choice; IFDEBUG is
preferred if memory is not a constraint but the computer is likely to
be slow. The first method is the default, i.e. if nothing is done to
- the CFLAGS or in [84]ckcdeb.h (but in some cases, e.g. VMS, it is). To
+ the CFLAGS or in [92]ckcdeb.h (but in some cases, e.g. VMS, it is). To
select the second method, include -DIFDEBUG in the compilation (and
don't include -DNODEBUG).
- [ [85]C-Kermit Home ] [ [86]Kermit Home ]
- ________________________________________________________________________
+ [ [93]C-Kermit Home ] [ [94]Kermit Home ]
7. MODEM DIALING
- [ [87]Top ] [ [88]Contents ] [ [89]Next ] [ [90]Previous ]
+ [ [95]Top ] [ [96]Contents ] [ [97]Next ] [ [98]Previous ]
-DNODIAL removes automatic modem dialing completely, including the
- entire [91]ckudia.c module, plus all commands that refer to dialing in
+ entire [99]ckudia.c module, plus all commands that refer to dialing in
the various ckuus*.c modules.
-DMINIDIAL leaves the DIAL and related commands (SET/SHOW MODEM,
around since 1985 or so. To remove support for these modems, add
-DNOOLDMODEMS to CFLAGS at compilation time.
- Finally, if you keep support for old modems, you will notice that
- their names appear on the "set modem ?" menu. That's because their
- names are, by default, "visible". But the list is confusing to the
- younger generation, who have only heard of modems from the
- V.32bis-and-later era. If you want to be able to use old modems, but
- don't want their names cluttering up menus, add this to CFLAGS:
+ Finally, if you keep support for old modems, you will notice that their
+ names appear on the "set modem ?" menu. That's because their names are,
+ by default, "visible". But the list is confusing to the younger
+ generation, who have only heard of modems from the V.32bis-and-later
+ era. If you want to be able to use old modems, but don't want their
+ names cluttering up menus, add this to CFLAGS:
-DM_OLD=1
- [ [92]C-Kermit Home ] [ [93]Kermit Home ]
- ________________________________________________________________________
+ [ [100]C-Kermit Home ] [ [101]Kermit Home ]
8. NETWORK SUPPORT
- [ [94]Top ] [ [95]Contents ] [ [96]Next ] [ [97]Previous ]
+ [ [102]Top ] [ [103]Contents ] [ [104]Next ] [ [105]Previous ]
SECTION CONTENTS
- 8.1. [98]TCP/IP
- 8.2. [99]X.25
- 8.3. [100]Other Networks
+ 8.1. [106]TCP/IP
+ 8.2. [107]X.25
+ 8.3. [108]Other Networks
C-Kermit supports not only serial-port and modem connections, but also
TCP/IP and X.25 network connections. Some versions support other
SUBSECTION CONTENTS
- 8.1.1. [101]Firewalls
- 8.1.2. [102]Compilation and Linking Problems
- 8.1.3. [103]Enabling Host Address Lists
- 8.1.4. [104]Enabling Telnet NAWS
- 8.1.5. [105]Enabling Incoming TCP/IP Connections
- 8.1.6. [106]Disabling SET TCP Options
+ 8.1.1. [109]Firewalls
+ 8.1.2. [110]Compilation and Linking Problems
+ 8.1.3. [111]Enabling Host Address Lists
+ 8.1.4. [112]Enabling Telnet NAWS
+ 8.1.5. [113]Enabling Incoming TCP/IP Connections
+ 8.1.6. [114]Disabling SET TCP Options
C-Kermit's TCP/IP features require the Berkeley sockets library or
equivalent, generally available on any Unix system, as well as in
- Windows 9x/NT, OS/2, VMS, AOS/VS, VOS, etc. The TCP/IP support
- includes built-in TELNET, FTP, and HTTP protocol. To select TCP/IP
- support, include -DTCPSOCKET in your makefile target's CFLAGS, or (in
- VMS) the appropriate variant (e.g. -DWOLLONGONG, -DMULTINET,
- -DEXCELAN, -DWINTCP, etc).
+ Windows 9x/NT, OS/2, VMS, AOS/VS, VOS, etc. The TCP/IP support includes
+ built-in TELNET, FTP, and HTTP protocol. To select TCP/IP support,
+ include -DTCPSOCKET in your makefile target's CFLAGS, or (in VMS) the
+ appropriate variant (e.g. -DWOLLONGONG, -DMULTINET, -DEXCELAN,
+ -DWINTCP, etc).
The VMS and/or early Unix third-party TCP/IP products are often
incompatible with each other, and sometimes with different versions of
("man ln" for details about links.)
The network support for TCP/IP and X.25 is in the source files
- [107]ckcnet.h, [108]ckctel.c, [109]ckctel.c, [110]ckctel.h,
- [111]ckcftp.c, with miscellaneous SHOW commands, etc, in the various
+ [115]ckcnet.h, [116]ckctel.c, [117]ckctel.c, [118]ckctel.h,
+ [119]ckcftp.c, with miscellaneous SHOW commands, etc, in the various
ckuus*.c modules, plus code in the ck*con.c or ckucns.c (CONNECT
command) and several other modules to detect TELNET negotiations, etc.
SET TCP NODELAY (Nagle algorithm)
- See the [112]C-Kermit user documentation for descriptions of these
+ See the [120]C-Kermit user documentation for descriptions of these
commands.
8.1.1. Firewalls
One firewall method is called SOCKS, in which a proxy server allows
users inside a firewall to access the outside world, based on a
permission list generally stored in a file. SOCKS is enabled in one of
- two ways. First, the standard sockets library is modified to handle
- the firewall, and then all the client applications are relinked (if
+ two ways. First, the standard sockets library is modified to handle the
+ firewall, and then all the client applications are relinked (if
necessary, i.e. if the libraries are not dynamically loaded) with the
modified sockets library. The APIs are all the same, so the
applications do not need to be recoded or recompiled.
For SOCKS5, use -DCK_SOCKS5.
- Explicit firewall support can, in general, not be a standard feature
- or a feature that is selected at runtime, because the SOCKS library
- tends to be different at each site -- local modifications abound.
+ Explicit firewall support can, in general, not be a standard feature or
+ a feature that is selected at runtime, because the SOCKS library tends
+ to be different at each site -- local modifications abound.
The ideal situation occurs when firewalls are supported by the first
- method, using dynamically linked sockets-replacement libraries; in
- this case, all your TCP/IP client applications negotiate the firewall
+ method, using dynamically linked sockets-replacement libraries; in this
+ case, all your TCP/IP client applications negotiate the firewall
transparently.
8.1.2. Compilation and Linking Problems
- If you get a compilation error in [113]ckcnet.c, with a complaint like
+ If you get a compilation error in [121]ckcnet.c, with a complaint like
"incompatible types in assignment", it probably has something to do
- with the data type your system uses for the inet_addr() function,
- which is declared (usually) in <arpa/inet.h>. Kermit uses "unsigned
- long" unless the symbol INADDRX is defined, in which case "struct
- inaddr" is used instead. Try adding -DINADDRX to CFLAGS in your make
- entry, and if that fixes the problem, please send a report to
- kermit@columbia.edu.
+ with the data type your system uses for the inet_addr() function, which
+ is declared (usually) in <arpa/inet.h>. Kermit uses "unsigned long"
+ unless the symbol INADDRX is defined, in which case "struct inaddr" is
+ used instead. Try adding -DINADDRX to CFLAGS in your make entry, and if
+ that fixes the problem, please send a report to kermit@columbia.edu.
Compilation errors might also have to do with the data type used for
getsockopt() and setsockopt() option-length field. This is normally an
int, but sometimes it's a short, a long, or an unsigned any of those,
- or a size_t. To fix the compilation problem, add -DSOCKOPT_T=xxx to
- the CFLAGS in your makefile target, where xxx is the appropriate type
- (use "man getsockopt" or grep through your system/network header files
- to find the needed type).
+ or a size_t. To fix the compilation problem, add -DSOCKOPT_T=xxx to the
+ CFLAGS in your makefile target, where xxx is the appropriate type (use
+ "man getsockopt" or grep through your system/network header files to
+ find the needed type).
8.1.3. Enabling Host Address Lists
When you give Kermit an IP host name, it calls the socket routine
gethostbyname() to resolve it. gethostbyname() returns a hostent
- struct, which might or might not not include a list of addresses; if
- it does, then if the first one fails, Kermit can try the second one,
- and so on. However, this will only work if the symbol "h_addr" is a
- macro defined as "h_addr_list[0]", usually in netdb.h. If it is, then
- you can activate this feature by defining the following symbol in
- CFLAGS:
+ struct, which might or might not not include a list of addresses; if it
+ does, then if the first one fails, Kermit can try the second one, and
+ so on. However, this will only work if the symbol "h_addr" is a macro
+ defined as "h_addr_list[0]", usually in netdb.h. If it is, then you can
+ activate this feature by defining the following symbol in CFLAGS:
HADDRLIST
need something like ioctl(0, TIOCGWINSZ, ...). If your version of
Kermit was built with NAWS capability, SHOW VERSIONS includes CK_NAWS
among the compiler options. If it doesn't, you can add it by defining
- CK_NAWS at compile time. Then, if the compiler or linker complain
- about undefined or missing symbols, or there is no complaint but SHOW
- TERMINAL fails to show reasonable "Rows =, Columns =" values, then
- take a look at (or write) the appropriate ttgwsiz() routine. On the
- other hand, if CK_NAWS is defined by default for your system (in
- [114]ckcnet.h), but causes trouble, you can override this definition
- by including the -DNONAWS switch on your CC command line, thus
- disabling the NAWS feature.
+ CK_NAWS at compile time. Then, if the compiler or linker complain about
+ undefined or missing symbols, or there is no complaint but SHOW
+ TERMINAL fails to show reasonable "Rows =, Columns =" values, then take
+ a look at (or write) the appropriate ttgwsiz() routine. On the other
+ hand, if CK_NAWS is defined by default for your system (in
+ [122]ckcnet.h), but causes trouble, you can override this definition by
+ including the -DNONAWS switch on your CC command line, thus disabling
+ the NAWS feature.
This appears to be needed at least on the AT&T 3B2, where in
- [115]ckutio.c, the routine ttgwsiz() finds that the TIOCGWINSZ symbol
+ [123]ckutio.c, the routine ttgwsiz() finds that the TIOCGWINSZ symbol
is defined but lacks definitions for the corresponding winsize struct
and its members ws_col and ws_row.
- The UNIX version of C-Kermit also traps SIGWINCH, so it can send a
- NAWS to the Telnet server any time the local console terminal window
- size changes, e.g. when you stretch it with a mouse. The
- SIGWINCH-trapping code is enabled if SIGWINCH is defined (i.e. in
- signal.h). If this code should cause problems, you can disable it
- without disabling the NAWS feature altogether, by defining NOSIGWINCH
- at compile time.
+ The UNIX version of C-Kermit also traps SIGWINCH, so it can send a NAWS
+ to the Telnet server any time the local console terminal window size
+ changes, e.g. when you stretch it with a mouse. The SIGWINCH-trapping
+ code is enabled if SIGWINCH is defined (i.e. in signal.h). If this code
+ should cause problems, you can disable it without disabling the NAWS
+ feature altogether, by defining NOSIGWINCH at compile time.
8.1.5. Enabling Incoming TCP/IP Connections
connection on the given port. This feature is enabled automatically at
compile if TCPSOCKET is defined and SELECT is also defined. But watch
out, simply defining SELECT on the cc command line does not guarantee
- successful compilation or linking (see [116]Section 11).
+ successful compilation or linking (see [124]Section 11).
- If you want to disable incoming TCP/IP connections, then build
- C-Kermit with:
+ If you want to disable incoming TCP/IP connections, then build C-Kermit
+ with:
-DNOLISTEN
8.1.6. Disabling SET TCP Options
The main reason for this is because of header file / prototype
- conflicts at compile time regardting get- / setsockopt(). If you can't
+ conflicts at compile time regarding get- / setsockopt(). If you can't
fix them (without breaking other builds), add the following in CFLAGS:
-DNOTCPOPTS
8.2. X.25
- X.25 support requires (a) a Sun, (b) the SunLink product (libraries
- and header files), and (c) an X.25 connection into your Sun. Similarly
- (in C-Kermit 7.0 or later) Stratus VOS and IBM AIX.
+ X.25 support requires (a) a Sun, (b) the SunLink product (libraries and
+ header files), and (c) an X.25 connection into your Sun. Similarly (in
+ C-Kermit 7.0 or later) Stratus VOS and IBM AIX.
In UNIX, special makefile targets sunos4x25 and sunos41x25 (for SUNOS
4.0 and 4.1, respectively), or aix41x25, are provided to build in this
feature, but they only work if conditions (a)-(c) are met. To request
this feature, include -DSUNX25 (or -DIBMX25) in CFLAGS.
- SUNX25 (or -DIBMX25) and TCPSOCKET can be freely mixed and matched,
- and selected by the user at runtime with the SET NETWORK TYPE command
- or SET HOST switches.
+ SUNX25 (or -DIBMX25) and TCPSOCKET can be freely mixed and matched, and
+ selected by the user at runtime with the SET NETWORK TYPE command or
+ SET HOST switches.
8.3. Other Networks
Provision is made in the organization of the modules, header files,
commands, etc, for addition of new network types such as DECnet, X.25
for other systems (HP-UX, VMS, etc), and so on. Send email to
- [117]kermit@columbia.edu if you are willing and able to work on such a
+ [125]kermit@columbia.edu if you are willing and able to work on such a
project.
- [ [118]C-Kermit Home ] [ [119]Kermit Home ]
- ________________________________________________________________________
+ [ [126]C-Kermit Home ] [ [127]Kermit Home ]
9. EXCEPTION HANDLING
- [ [120]Top ] [ [121]Contents ] [ [122]Next ] [ [123]Previous ]
+ [ [128]Top ] [ [129]Contents ] [ [130]Next ] [ [131]Previous ]
The C language setjmp/longjmp mechanism is used for handling
- exceptions. The jump buffer is of type jmp_buf, which almost
- everywhere is typedef'd as an array, in which case you should have no
- trouble compiling the exception-handling code. However, if you are
- building C-Kermit in/for an environment where jmp_buf is something
- other than an array (e.g. a struct), then you'll have to define the
- following symbol:
+ exceptions. The jump buffer is of type jmp_buf, which almost everywhere
+ is typedef'd as an array, in which case you should have no trouble
+ compiling the exception-handling code. However, if you are building
+ C-Kermit in/for an environment where jmp_buf is something other than an
+ array (e.g. a struct), then you'll have to define the following symbol:
JBNOTARRAY
- [ [124]C-Kermit Home ] [ [125]Kermit Home ]
- ________________________________________________________________________
+ [ [132]C-Kermit Home ] [ [133]Kermit Home ]
10. SECURITY FEATURES
- [ [126]Top ] [ [127]Contents ] [ [128]Next ] [ [129]Previous ]
+ [ [134]Top ] [ [135]Contents ] [ [136]Next ] [ [137]Previous ]
Security, in the sense of secure authentication and strong encryption,
can be built into versionf of C-Kermit for which the appropriate
compatibility library in the current Kerberos 5 distribution.
KRB5_U2U
- Should be defined if KRB5 is defined and Kerberos 5 User to
- User mode is desired.
+ Should be defined if KRB5 is defined and Kerberos 5 User to User
+ mode is desired.
HEIMDAL
Should be defined if Kerberos V support is provided by HEIMDAL.
types. That should be done by defining CK_DES or CK_CAST.
CK_DES
- Should be defined if either DES or 3DES Telnet Encryption
- option support is desired.
+ Should be defined if either DES or 3DES Telnet Encryption option
+ support is desired.
LIBDES
- If CK_DES is defined and DES support is being provided by
- either Eric Young's libdes.a or OpenSSL 0.9.6x or earlier, this
- option must be defined. If it is not defined, it will be
- assumed that DES support is provided by the MIT Kerberos IV
- libraries.
+ If CK_DES is defined and DES support is being provided by either
+ Eric Young's libdes.a or OpenSSL 0.9.6x or earlier, this option
+ must be defined. If it is not defined, it will be assumed that
+ DES support is provided by the MIT Kerberos IV libraries.
CK_CAST
Should be defined if CAST Telnet Encryption option support is
Should be defined if SSL/TLS support (OpenSSL) is desired.
SSL_KRB5
- If KRB5 is defined, and OpenSSL is built to support the
- Kerberos 5 ciphers, then you should define SSL_KRB5
+ If KRB5 is defined, and OpenSSL is built to support the Kerberos
+ 5 ciphers, then you should define SSL_KRB5
NOSSLKRB5
If you are using OpenSSL 0.9.7 or higher and do not wish to
escape" features from the program, including the PUSH, RUN, and
SPAWN commands, the "!" and "@" command prefixes, OPEN !READ,
OPEN !WRITE, job control (including the SUSPEND command), the
- REDIRECT command, shell/DCL escape from CONNECT mode, as well
- as the server's execution of REMOTE HOST commands (and, of
- course, the ENABLE HOST command). Add NODISPO to also prevent
- acceptance of incoming MAIL or REMOTE PRINT files. For UNIX,
- also be sure to read [130]Section 11 of the [131]Unix C-Kermit
- Installation Instructions. about set[ug]id configuration.
- Additional restrictions can be enforced when in server mode;
- read about the DISABLE command in the user manual.
+ REDIRECT command, shell/DCL escape from CONNECT mode, as well as
+ the server's execution of REMOTE HOST commands (and, of course,
+ the ENABLE HOST command). Add NODISPO to also prevent acceptance
+ of incoming MAIL or REMOTE PRINT files. For UNIX, also be sure
+ to read [138]Section 11 of the [139]Unix C-Kermit Installation
+ Instructions. about set[ug]id configuration. Additional
+ restrictions can be enforced when in server mode; read about the
+ DISABLE command in the user manual.
NOCCTRAP
Compiling with NOCCTRAP prevents the trapping of SIGINT by
NOPUSH and NOCCTRAP together allow Kermit to be run from restricted
shells, preventing access to system functions.
- [ [132]C-Kermit Home ] [ [133]Kermit Home ]
- ________________________________________________________________________
+ [ [140]C-Kermit Home ] [ [141]Kermit Home ]
11. ENABLING SELECT()
- [ [134]Top ] [ [135]Contents ] [ [136]Next ] [ [137]Previous ]
+ [ [142]Top ] [ [143]Contents ] [ [144]Next ] [ [145]Previous ]
Kermit works best if it can do nonblocking reads, nondestructive input
buffer checking, and millisecond sleeps. All of these functions can be
universally available. Furthermore, select() is required if incoming
TCP/IP connections are to be supported.
- select() was introduced with Berkeley UNIX, rejected by AT&T for
- System V, but is gradually creeping in to all UNIX versions (and other
+ select() was introduced with Berkeley UNIX, rejected by AT&T for System
+ V, but is gradually creeping in to all UNIX versions (and other
operating systems too) by virtue of its presence in the sockets
- library, which is needed for TCP/IP. AT&T SVID for System V R4
- includes select(), but that does not mean that all SVR4
- implementations have it.
+ library, which is needed for TCP/IP. AT&T SVID for System V R4 includes
+ select(), but that does not mean that all SVR4 implementations have it.
Furthermore, even when select() is available, it might work only on
socket file descriptors, but not on others like serial ports, pipes,
-DSELECT
- to the CFLAGS, and removing -DRDCHK or -DCK_POLL if it is there. If
- you get compilation errors, some adjustments to ck*tio.c and/or
- ck*net.c might be needed; search for SELECT (uppercase) in these files
- (note that there are several variations on the calling conventions for
+ to the CFLAGS, and removing -DRDCHK or -DCK_POLL if it is there. If you
+ get compilation errors, some adjustments to ck*tio.c and/or ck*net.c
+ might be needed; search for SELECT (uppercase) in these files (note
+ that there are several variations on the calling conventions for
select()).
Various macros and data types need to be defined in order to use
As of C-Kermit 7.0, select() is also the preferred control mechanism
for the CONNECT command. Unfortunately, the structures used by the
original UNIX CONNECT command, based on fork(), and those used by
- select(), are so different, it was not practical to implement them
- both in one module. So the select()-based CONNECT command module for
- UNIX is [138]ckucns.c, and the fork-based one remains [139]ckucon.c.
- To choose the fork-based one, which is more portable (but slower and
- more fragile), use "wermit" as the make target. To choose the
- select-based one, use "xermit". Only do this if you can verify that
- the CONNECT command works on serial connections and PIPE connections
- as well as TCP connections.
+ select(), are so different, it was not practical to implement them both
+ in one module. So the select()-based CONNECT command module for UNIX is
+ [146]ckucns.c, and the fork-based one remains [147]ckucon.c. To choose
+ the fork-based one, which is more portable (but slower and more
+ fragile), use "wermit" as the make target. To choose the select-based
+ one, use "xermit". Only do this if you can verify that the CONNECT
+ command works on serial connections and PIPE connections as well as TCP
+ connections.
The select()-based Unix CONNECT module, ckucns.c, must be used if
encryption is to be done, since the fork() version (ckucon.c) loses
too. For example, it recovers better from exterior killing, forced
disconnections, etc, plus it goes faster.
- SHOW VERSIONS tells whether the CONNECT module uses fork() or
- select().
+ SHOW VERSIONS tells whether the CONNECT module uses fork() or select().
- C-Kermit 8.0 adds learned script capability, which depends on
- select(). All the "wermit" based targets (as opposed to "xermit") had
- NOLEARN added to them. Whenever changing a target over from wermit to
- xermit, also remember to remove NOLEARN.
+ C-Kermit 8.0 adds learned script capability, which depends on select().
+ All the "wermit" based targets (as opposed to "xermit") had NOLEARN
+ added to them. Whenever changing a target over from wermit to xermit,
+ also remember to remove NOLEARN.
- [ [140]C-Kermit Home ] [ [141]Kermit Home ]
- ________________________________________________________________________
+ [ [148]C-Kermit Home ] [ [149]Kermit Home ]
12. I/O REDIRECTION
- [ [142]Top ] [ [143]Contents ] [ [144]Next ] [ [145]Previous ]
+ [ [150]Top ] [ [151]Contents ] [ [152]Next ] [ [153]Previous ]
The REDIRECT command allows a local program to be run with its i/o
- redirected over the communications connection. Your version of
- C-Kermit has a REDIRECT command if it was built with the following
- CFLAG:
+ redirected over the communications connection. Your version of C-Kermit
+ has a REDIRECT command if it was built with the following CFLAG:
-DCK_REDIR
-DNETCMD. CK_RDIR must also be defined, since the same mechanisms are
used internally.
- [ [146]C-Kermit Home ] [ [147]Kermit Home ]
- ________________________________________________________________________
+ [ [154]C-Kermit Home ] [ [155]Kermit Home ]
13. FLOATING-POINT NUMBERS, TIMERS, AND ARITHMETIC
- [ [148]Top ] [ [149]Contents ] [ [150]Next ] [ [151]Previous ]
+ [ [156]Top ] [ [157]Contents ] [ [158]Next ] [ [159]Previous ]
Floating-point support was added in C-Kermit 7.0.
-DNOGFTIMER
If you try to build with -DGFTIMER but you get compilation errors,
- either fix them (and send email to kermit@columbia.edu telling what
- you did), or else give up and use -DNOGFTIMER (or -DNOFLOAT) instead.
- Hint: depending on your machine architecture, you might have better
- luck using double than float as the data type for floating-point
- numbers, or vice versa. Look in [152]ckcdeb.h for the CKFLOAT
- definition.
+ either fix them (and send email to kermit@columbia.edu telling what you
+ did), or else give up and use -DNOGFTIMER (or -DNOFLOAT) instead. Hint:
+ depending on your machine architecture, you might have better luck
+ using double than float as the data type for floating-point numbers, or
+ vice versa. Look in [160]ckcdeb.h for the CKFLOAT definition.
Floating-point arithmetic is also supported in the script programming
language. First via the \fpp...() functions, such as \fppadd(), which
LIBS=".... -lm"
- In K95 and VMS, FNFLOAT is defined automatically if CKFLOAT is
- defined. In Unix, however, FNFLOAT must be added to each makefile
- target individually, because of the special linking instructions that
- must also be added to each target.
+ In K95 and VMS, FNFLOAT is defined automatically if CKFLOAT is defined.
+ In Unix, however, FNFLOAT must be added to each makefile target
+ individually, because of the special linking instructions that must
+ also be added to each target.
Note: S-Expressions require FNFLOAT.
- [ [153]C-Kermit Home ] [ [154]Kermit Home ]
- ________________________________________________________________________
+ [ [161]C-Kermit Home ] [ [162]Kermit Home ]
14. SPECIAL CONFIGURATIONS
- [ [155]Top ] [ [156]Contents ] [ [157]Previous ]
+ [ [163]Top ] [ [164]Contents ] [ [165]Previous ]
As of C-Kermit 7.0, if you build C-Kermit normally, but with -DNOICP
(No Interactive Command Parser), you get a program capable of making
communications program that is considerably smaller than the full
C-Kermit.
- [ [158]C-Kermit Home ] [ [159]Kermit Home ]
- ________________________________________________________________________
+ [ [166]C-Kermit Home ] [ [167]Kermit Home ]
APPENDIX I: SUMMARY OF COMPILE-TIME OPTIONS
- [ [160]Top ] [ [161]Contents ]
+ [ [168]Top ] [ [169]Contents ]
These are the symbols that can be specified on the cc command line,
listed alphabetically. Others are used internally, including those
taken from header files, those defined by the compiler itself, and
those inferred from the ones given below. Kermit's SHOW VERSIONS
- command attempts to display most of these. See [162]ckcdeb.h and
- [163]ckcnet.h for inference rules. For example SVR3 implies ATTSV,
+ command attempts to display most of these. See [170]ckcdeb.h and
+ [171]ckcnet.h for inference rules. For example SVR3 implies ATTSV,
MULTINET implies TCPSOCKET, and so on.
- Here is the complete list of the Kermit-specific compile-time
- switches:
+ Here is the complete list of the Kermit-specific compile-time switches:
ACUCNTRL Select BSD 4.3-style acucntrl() bidirectional tty control.
aegis Build for Apollo Aegis (predefined on Apollo systems).
AIX370 Build for IBM AIX/370 for IBM mainframes.
AIXESA Build for IBM AIX/ESA for IBM mainframes.
- AIXPS2 Build for IBM AIX 3.0 for PS/2 series (never formally
- released).
+ AIXPS2 Build for IBM AIX 3.0 for PS/2 series (never formally released).
AIXRS Build for IBM AIX 3.x on RS/6000.
AIX41 Build for IBM AIX 4.x on RS/6000.
AMIGA Build for Commodore Amiga with Intuition OS.
CK_SOCKBUF Enable TCP socket-buffer-size-increasing code.
CK_SOCKS UNIX only: Build with socks library rather than regular
sockets
- CK_SOCKS5 UNIX only: Build with socks 5 lib rather than regular
- sockets
+ CK_SOCKS5 UNIX only: Build with socks 5 lib rather than regular sockets
CK_SPEED Enable control-character unprefixing.
CK_SYSINI="xxxxx" Quoted string to be used as system-wide init file
name.
HPUX Build for Hewlett Packard HP-UX.
HPUX9 Build for Hewlett Packard HP-UX 9.x.
HPUX10 Build for Hewlett Packard HP-UX 10.x.
- HWPARITY Define if this version can SET PARITY HARDWARE { EVEN,
- ODD...}
+ HWPARITY Define if this version can SET PARITY HARDWARE { EVEN, ODD...}
I386IX Build for Interactive System V R3.
IFDEBUG Add IF stmts "if (deblog)" before "debug()" calls.
INADDRX TCP/IP inet_addr() type is struct inaddr, not unsigned long.
INTERLAN Build with support for Racal/Interlan TCP/IP.
- ISDIRBUG System defs of S_ISDIR and S_ISREG have bug, define
- ourselves.
+ ISDIRBUG System defs of S_ISDIR and S_ISREG have bug, define ourselves.
ISIII Build for Interactive System III.
IX370 Build for IBM IX/370.
KANJI Build with Kanji character-set translation support.
MAXRP=number Maximum receive-packet length.
MAXSP=number Maximum send-packet length.
MDEBUG Malloc-debugging requested.
- MINIDIAL Minimum modem dialer support: CCITT, Hayes, Unkown, and None.
+ MINIDIAL Minimum modem dialer support: CCITT, Hayes, Unknown, and None.
MINIX Build for MINIX.
MIPS Build for MIPS workstation.
MULTINET Build with support for TGV MultiNet TCP/IP (VAX/VMS).
NDIR BSD long filenames supported using <ndir.h> and opendir().
NDGPWNAM Don't declare getpwnam().
NDSYSERRLIST Don't declare sys_errlist[].
- NEEDSELECTDEFS select() is avaible but we need to define FD_blah
+ NEEDSELECTDEFS select() is available but we need to define FD_blah
ourselves.
NETCMD Build with support for SET HOST /COMMAND and PIPE commands.
NEXT Build for NeXT Mach 1.x or 2.x or 3.0, 3.1, or 3.2.
NOFRILLS Build with "no frills" (this should be phased out...)
NOFTRUNCATE Include this on UNIXes that don't have ftruncate().
NOGETUSERSHELL Include this on UNIXes that don't have getusershell().
- NOGFTIMER Don't use high-precision floating-point file-transfer
- timers.
+ NOGFTIMER Don't use high-precision floating-point file-transfer timers.
NOHEBREW Build with no support for Hebrew character sets.
NOHELP Build with no built-in help.
NOIKSD Build with IKSD support excluded.
NOLOGIN Build without IKSD (network login) support.
NOLSTAT Not OK to use lstat().
NOMDMHUP Build without "modem-specific hangup" (e.g. ATH0) feature.
- NOMHHOST Exclude the multihomed-host TCP/IP code (if compilcation
+ NOMHHOST Exclude the multihomed-host TCP/IP code (if compilation
errors)
NOMINPUT Build without MINPUT command.
NOMSEND Build with no MSEND command.
NOXFER Build with no Kermit or other file-transfer protocols.
NOXMIT Build with no TRANSMIT command.
NOXPRINT Disables transparent print code.
- OLDMSG Use old "entering server mode" message (see [164]ckcmai.c).
+ OLDMSG Use old "entering server mode" message (see [172]ckcmai.c).
OLINUXHISPEED Build in old Linux hi-serial-speed code (for Linux <=
1.0).
OPENBSD Build for OpenBSD.
RTAIX Build for AIX 2.2.1 on IBM RT PC.
RTU Build for Masscomp / Concurrent RTU.
SAVEDUID BSD or other non-AT&T UNIX has saved-setuid feature.
- SBSIZ=xxx Define overall size of send-packet buffer (use with
- DYNAMIC).
+ SBSIZ=xxx Define overall size of send-packet buffer (use with DYNAMIC).
SDIRENT Directory structure specified in <sys/dirent.h>.
SELECT select() function available (conflicts with RDCHK and CK_POLL)
- SELECT_H Include <sys/select.h> for select()-releated definitions.
+ SELECT_H Include <sys/select.h> for select()-related definitions.
SETEUID BSD 4.4-style seteXid() functions available.
SIG_V Type for signal() is void. Used to override normal assumption.
SIG_I Type for signal() is int. Used to override normal assumption.
SVR3 Build for AT&T System V Release 3.
SVR3JC Allow job control support on System V Release 3 UNIX versions.
SVR4 Build for AT&T System V Release 4.
- SW_ACC_ID UNIX only -- swap real & effective ids around access()
- calls.
+ SW_ACC_ID UNIX only -- swap real & effective ids around access() calls.
sxaE50 Build for PFU Compact A Series SX/A TISP.
SYSLOGLEVEL=n Force syslogging at given level.
SYSTIMEH Include <sys/time.h>.
ZJDATE Has zjdate() function that converts date to Julian format.
XPRINT Transparent print code included in CONNECT module.
- [ [165]Top ] [ [166]Contents ] [ [167]C-Kermit Home ] [ [168]Kermit
+ [ [173]Top ] [ [174]Contents ] [ [175]C-Kermit Home ] [ [176]Kermit
Home ]
- _________________________________________________________________
+ __________________________________________________________________
- C-Kermit Configuration Options / [169]The Kermit Project /
- [170]Columbia University / [171]kermit@columbia.edu / 14 March 2003
+ C-Kermit Configuration Options / [177]The Kermit Project /
+ [178]kermit@columbia.edu / 30 June 2011
References
- 1. http://www.columbia.edu/kermit/
- 2. http://www.columbia.edu/
- 3. http://www.columbia.edu/kermit/ckccfg.html
- 4. http://www.columbia.edu/kermit/ckermit.html
- 5. http://www.columbia.edu/kermit/index.html
- 6. http://www.columbia.edu/kermit/ckccfg.html#x1
- 7. http://www.columbia.edu/kermit/ckccfg.html#x2
- 8. http://www.columbia.edu/kermit/ckccfg.html#x3
- 9. http://www.columbia.edu/kermit/ckccfg.html#x4
- 10. http://www.columbia.edu/kermit/ckccfg.html#x5
- 11. http://www.columbia.edu/kermit/ckccfg.html#x6
- 12. http://www.columbia.edu/kermit/ckccfg.html#x7
- 13. http://www.columbia.edu/kermit/ckccfg.html#x8
- 14. http://www.columbia.edu/kermit/ckccfg.html#x9
- 15. http://www.columbia.edu/kermit/ckccfg.html#x10
- 16. http://www.columbia.edu/kermit/ckccfg.html#x11
- 17. http://www.columbia.edu/kermit/ckccfg.html#x12
- 18. http://www.columbia.edu/kermit/ckccfg.html#x13
- 19. http://www.columbia.edu/kermit/ckccfg.html#x14
- 20. http://www.columbia.edu/kermit/ckccfg.html#xa1
- 21. http://www.columbia.edu/kermit/ckuins.html
- 22. http://www.columbia.edu/kermit/ckermit.html
- 23. http://www.columbia.edu/kermit/index.html
- 24. http://www.columbia.edu/kermit/ckccfg.html#top
- 25. http://www.columbia.edu/kermit/ckccfg.html#contents
- 26. http://www.columbia.edu/kermit/ckccfg.html#x2
- 27. http://www.columbia.edu/kermit/ckccfg.html#x0
- 28. http://www.columbia.edu/kermit/ckermit.html
- 29. http://www.columbia.edu/kermit/index.html
- 30. http://www.columbia.edu/kermit/ckccfg.html#top
- 31. http://www.columbia.edu/kermit/ckccfg.html#contents
- 32. http://www.columbia.edu/kermit/ckccfg.html#x3
- 33. http://www.columbia.edu/kermit/ckccfg.html#x1
- 34. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 35. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 36. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
- 37. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 38. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 39. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 40. http://www.columbia.edu/kermit/ckermit.html
- 41. http://www.columbia.edu/kermit/index.html
- 42. http://www.columbia.edu/kermit/ckccfg.html#top
- 43. http://www.columbia.edu/kermit/ckccfg.html#contents
- 44. http://www.columbia.edu/kermit/ckccfg.html#x4
- 45. http://www.columbia.edu/kermit/ckccfg.html#x2
- 46. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 47. http://www.columbia.edu/kermit/ckuins.html
- 48. http://www.columbia.edu/kermit/ckuins.html#x4
- 49. http://www.columbia.edu/kermit/ckuins.html#x9.2
- 50. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
- 51. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 52. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 53. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
- 54. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.c
- 55. http://www.columbia.edu/kermit/ckermit.html
- 56. http://www.columbia.edu/kermit/index.html
- 57. http://www.columbia.edu/kermit/ckccfg.html#top
- 58. http://www.columbia.edu/kermit/ckccfg.html#contents
- 59. http://www.columbia.edu/kermit/ckccfg.html#x5
- 60. http://www.columbia.edu/kermit/ckccfg.html#x3
- 61. http://www.columbia.edu/kermit/unicode.html
- 62. http://www.columbia.edu/kermit/ckermit.html
- 63. http://www.columbia.edu/kermit/index.html
- 64. http://www.columbia.edu/kermit/ckccfg.html#top
- 65. http://www.columbia.edu/kermit/ckccfg.html#contents
- 66. http://www.columbia.edu/kermit/ckccfg.html#x6
- 67. http://www.columbia.edu/kermit/ckccfg.html#x4
- 68. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
- 69. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/ckccfg.html
+ 12. http://www.columbia.edu/kermit/ckermit.html
+ 13. http://www.columbia.edu/kermit/index.html
+ 14. http://www.columbia.edu/kermit/ckccfg.html#x1
+ 15. http://www.columbia.edu/kermit/ckccfg.html#x2
+ 16. http://www.columbia.edu/kermit/ckccfg.html#x3
+ 17. http://www.columbia.edu/kermit/ckccfg.html#x4
+ 18. http://www.columbia.edu/kermit/ckccfg.html#x5
+ 19. http://www.columbia.edu/kermit/ckccfg.html#x6
+ 20. http://www.columbia.edu/kermit/ckccfg.html#x7
+ 21. http://www.columbia.edu/kermit/ckccfg.html#x8
+ 22. http://www.columbia.edu/kermit/ckccfg.html#x9
+ 23. http://www.columbia.edu/kermit/ckccfg.html#x10
+ 24. http://www.columbia.edu/kermit/ckccfg.html#x11
+ 25. http://www.columbia.edu/kermit/ckccfg.html#x12
+ 26. http://www.columbia.edu/kermit/ckccfg.html#x13
+ 27. http://www.columbia.edu/kermit/ckccfg.html#x14
+ 28. http://www.columbia.edu/kermit/ckccfg.html#xa1
+ 29. http://www.columbia.edu/kermit/ckuins.html
+ 30. http://www.columbia.edu/kermit/ckermit.html
+ 31. http://www.columbia.edu/kermit/index.html
+ 32. http://www.columbia.edu/kermit/ckccfg.html#top
+ 33. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 34. http://www.columbia.edu/kermit/ckccfg.html#x2
+ 35. http://www.columbia.edu/kermit/ckccfg.html#x0
+ 36. http://www.columbia.edu/kermit/ckermit.html
+ 37. http://www.columbia.edu/kermit/index.html
+ 38. http://www.columbia.edu/kermit/ckccfg.html#top
+ 39. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 40. http://www.columbia.edu/kermit/ckccfg.html#x3
+ 41. http://www.columbia.edu/kermit/ckccfg.html#x1
+ 42. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 43. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 44. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
+ 45. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 46. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 47. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 48. http://www.columbia.edu/kermit/ckermit.html
+ 49. http://www.columbia.edu/kermit/index.html
+ 50. http://www.columbia.edu/kermit/ckccfg.html#top
+ 51. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 52. http://www.columbia.edu/kermit/ckccfg.html#x4
+ 53. http://www.columbia.edu/kermit/ckccfg.html#x2
+ 54. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 55. http://www.columbia.edu/kermit/ckuins.html
+ 56. http://www.columbia.edu/kermit/ckuins.html#x4
+ 57. http://www.columbia.edu/kermit/ckuins.html#x9.2
+ 58. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
+ 59. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 60. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 61. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
+ 62. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.c
+ 63. http://www.columbia.edu/kermit/ckermit.html
+ 64. http://www.columbia.edu/kermit/index.html
+ 65. http://www.columbia.edu/kermit/ckccfg.html#top
+ 66. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 67. http://www.columbia.edu/kermit/ckccfg.html#x5
+ 68. http://www.columbia.edu/kermit/ckccfg.html#x3
+ 69. http://www.columbia.edu/kermit/unicode.html
70. http://www.columbia.edu/kermit/ckermit.html
71. http://www.columbia.edu/kermit/index.html
72. http://www.columbia.edu/kermit/ckccfg.html#top
73. http://www.columbia.edu/kermit/ckccfg.html#contents
- 74. http://www.columbia.edu/kermit/ckccfg.html#x7
- 75. http://www.columbia.edu/kermit/ckccfg.html#x5
- 76. http://www.columbia.edu/kermit/ckccfg.html#x6.1
- 77. http://www.columbia.edu/kermit/ckccfg.html#x6.2
- 78. http://www.columbia.edu/kermit/ckccfg.html#x6.3
- 79. http://www.columbia.edu/kermit/ckccfg.html#x6.4
- 80. http://www.columbia.edu/kermit/ckccfg.html#x4
- 81. http://www.columbia.edu/kermit/gkermit.html
- 82. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
- 83. ftp://kermit.columbia.edu/kermit/c-kermit/ckcker.h
- 84. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 85. http://www.columbia.edu/kermit/ckermit.html
- 86. http://www.columbia.edu/kermit/index.html
- 87. http://www.columbia.edu/kermit/ckccfg.html#top
- 88. http://www.columbia.edu/kermit/ckccfg.html#contents
- 89. http://www.columbia.edu/kermit/ckccfg.html#x8
- 90. http://www.columbia.edu/kermit/ckccfg.html#x6
- 91. ftp://kermit.columbia.edu/kermit/c-kermit/ckudia.c
- 92. http://www.columbia.edu/kermit/ckermit.html
- 93. http://www.columbia.edu/kermit/index.html
- 94. http://www.columbia.edu/kermit/ckccfg.html#top
- 95. http://www.columbia.edu/kermit/ckccfg.html#contents
- 96. http://www.columbia.edu/kermit/ckccfg.html#x9
- 97. http://www.columbia.edu/kermit/ckccfg.html#x7
- 98. http://www.columbia.edu/kermit/ckccfg.html#x8.1
- 99. http://www.columbia.edu/kermit/ckccfg.html#x8.2
- 100. http://www.columbia.edu/kermit/ckccfg.html#x8.3
- 101. http://www.columbia.edu/kermit/ckccfg.html#x8.1.1
- 102. http://www.columbia.edu/kermit/ckccfg.html#x8.1.2
- 103. http://www.columbia.edu/kermit/ckccfg.html#x8.1.3
- 104. http://www.columbia.edu/kermit/ckccfg.html#x8.1.4
- 105. http://www.columbia.edu/kermit/ckccfg.html#x8.1.5
- 106. http://www.columbia.edu/kermit/ckccfg.html#x8.1.6
- 107. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
- 108. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
- 109. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
- 110. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.h
- 111. ftp://kermit.columbia.edu/kermit/c-kermit/ckcftp.c
- 112. http://www.columbia.edu/kermit/ckermit.html
- 113. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
- 114. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
- 115. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 116. http://www.columbia.edu/kermit/ckccfg.html#x11
- 117. mailto:kermit@columbia.edu
- 118. http://www.columbia.edu/kermit/ckermit.html
- 119. http://www.columbia.edu/kermit/index.html
- 120. http://www.columbia.edu/kermit/ckccfg.html#top
- 121. http://www.columbia.edu/kermit/ckccfg.html#contents
- 122. http://www.columbia.edu/kermit/ckccfg.html#x10
- 123. http://www.columbia.edu/kermit/ckccfg.html#x8
- 124. http://www.columbia.edu/kermit/ckermit.html
- 125. http://www.columbia.edu/kermit/index.html
- 126. http://www.columbia.edu/kermit/ckccfg.html#top
- 127. http://www.columbia.edu/kermit/ckccfg.html#contents
- 128. http://www.columbia.edu/kermit/ckccfg.html#x11
- 129. http://www.columbia.edu/kermit/ckccfg.html#x9
- 130. http://www.columbia.edu/kermit/ckuins.html#x11
- 131. http://www.columbia.edu/kermit/ckuins.html
+ 74. http://www.columbia.edu/kermit/ckccfg.html#x6
+ 75. http://www.columbia.edu/kermit/ckccfg.html#x4
+ 76. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
+ 77. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
+ 78. http://www.columbia.edu/kermit/ckermit.html
+ 79. http://www.columbia.edu/kermit/index.html
+ 80. http://www.columbia.edu/kermit/ckccfg.html#top
+ 81. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 82. http://www.columbia.edu/kermit/ckccfg.html#x7
+ 83. http://www.columbia.edu/kermit/ckccfg.html#x5
+ 84. http://www.columbia.edu/kermit/ckccfg.html#x6.1
+ 85. http://www.columbia.edu/kermit/ckccfg.html#x6.2
+ 86. http://www.columbia.edu/kermit/ckccfg.html#x6.3
+ 87. http://www.columbia.edu/kermit/ckccfg.html#x6.4
+ 88. http://www.columbia.edu/kermit/ckccfg.html#x4
+ 89. http://www.columbia.edu/kermit/gkermit.html
+ 90. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
+ 91. ftp://kermit.columbia.edu/kermit/c-kermit/ckcker.h
+ 92. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 93. http://www.columbia.edu/kermit/ckermit.html
+ 94. http://www.columbia.edu/kermit/index.html
+ 95. http://www.columbia.edu/kermit/ckccfg.html#top
+ 96. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 97. http://www.columbia.edu/kermit/ckccfg.html#x8
+ 98. http://www.columbia.edu/kermit/ckccfg.html#x6
+ 99. ftp://kermit.columbia.edu/kermit/c-kermit/ckudia.c
+ 100. http://www.columbia.edu/kermit/ckermit.html
+ 101. http://www.columbia.edu/kermit/index.html
+ 102. http://www.columbia.edu/kermit/ckccfg.html#top
+ 103. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 104. http://www.columbia.edu/kermit/ckccfg.html#x9
+ 105. http://www.columbia.edu/kermit/ckccfg.html#x7
+ 106. http://www.columbia.edu/kermit/ckccfg.html#x8.1
+ 107. http://www.columbia.edu/kermit/ckccfg.html#x8.2
+ 108. http://www.columbia.edu/kermit/ckccfg.html#x8.3
+ 109. http://www.columbia.edu/kermit/ckccfg.html#x8.1.1
+ 110. http://www.columbia.edu/kermit/ckccfg.html#x8.1.2
+ 111. http://www.columbia.edu/kermit/ckccfg.html#x8.1.3
+ 112. http://www.columbia.edu/kermit/ckccfg.html#x8.1.4
+ 113. http://www.columbia.edu/kermit/ckccfg.html#x8.1.5
+ 114. http://www.columbia.edu/kermit/ckccfg.html#x8.1.6
+ 115. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
+ 116. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
+ 117. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
+ 118. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.h
+ 119. ftp://kermit.columbia.edu/kermit/c-kermit/ckcftp.c
+ 120. http://www.columbia.edu/kermit/ckermit.html
+ 121. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
+ 122. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
+ 123. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 124. http://www.columbia.edu/kermit/ckccfg.html#x11
+ 125. mailto:kermit@columbia.edu
+ 126. http://www.columbia.edu/kermit/ckermit.html
+ 127. http://www.columbia.edu/kermit/index.html
+ 128. http://www.columbia.edu/kermit/ckccfg.html#top
+ 129. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 130. http://www.columbia.edu/kermit/ckccfg.html#x10
+ 131. http://www.columbia.edu/kermit/ckccfg.html#x8
132. http://www.columbia.edu/kermit/ckermit.html
133. http://www.columbia.edu/kermit/index.html
134. http://www.columbia.edu/kermit/ckccfg.html#top
135. http://www.columbia.edu/kermit/ckccfg.html#contents
- 136. http://www.columbia.edu/kermit/ckccfg.html#x12
- 137. http://www.columbia.edu/kermit/ckccfg.html#x10
- 138. ftp://kermit.columbia.edu/kermit/c-kermit/ckucns.c
- 139. ftp://kermit.columbia.edu/kermit/c-kermit/ckucon.c
+ 136. http://www.columbia.edu/kermit/ckccfg.html#x11
+ 137. http://www.columbia.edu/kermit/ckccfg.html#x9
+ 138. http://www.columbia.edu/kermit/ckuins.html#x11
+ 139. http://www.columbia.edu/kermit/ckuins.html
140. http://www.columbia.edu/kermit/ckermit.html
141. http://www.columbia.edu/kermit/index.html
142. http://www.columbia.edu/kermit/ckccfg.html#top
143. http://www.columbia.edu/kermit/ckccfg.html#contents
- 144. http://www.columbia.edu/kermit/ckccfg.html#x13
- 145. http://www.columbia.edu/kermit/ckccfg.html#x11
- 146. http://www.columbia.edu/kermit/ckermit.html
- 147. http://www.columbia.edu/kermit/index.html
- 148. http://www.columbia.edu/kermit/ckccfg.html#top
- 149. http://www.columbia.edu/kermit/ckccfg.html#contents
- 150. http://www.columbia.edu/kermit/ckccfg.html#x14
- 151. http://www.columbia.edu/kermit/ckccfg.html#x12
- 152. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 153. http://www.columbia.edu/kermit/ckermit.html
- 154. http://www.columbia.edu/kermit/index.html
- 155. http://www.columbia.edu/kermit/ckccfg.html#top
- 156. http://www.columbia.edu/kermit/ckccfg.html#contents
- 157. http://www.columbia.edu/kermit/ckccfg.html#x13
- 158. http://www.columbia.edu/kermit/ckermit.html
- 159. http://www.columbia.edu/kermit/index.html
- 160. http://www.columbia.edu/kermit/ckccfg.html#top
- 161. http://www.columbia.edu/kermit/ckccfg.html#contents
- 162. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 163. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
- 164. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
- 165. http://www.columbia.edu/kermit/ckccfg.html#top
- 166. http://www.columbia.edu/kermit/ckccfg.html#contents
- 167. http://www.columbia.edu/kermit/ckermit.html
- 168. http://www.columbia.edu/kermit/index.html
- 169. http://www.columbia.edu/kermit/index.html
- 170. http://www.columbia.edu/
- 171. mailto:kermit@columbia.edu
+ 144. http://www.columbia.edu/kermit/ckccfg.html#x12
+ 145. http://www.columbia.edu/kermit/ckccfg.html#x10
+ 146. ftp://kermit.columbia.edu/kermit/c-kermit/ckucns.c
+ 147. ftp://kermit.columbia.edu/kermit/c-kermit/ckucon.c
+ 148. http://www.columbia.edu/kermit/ckermit.html
+ 149. http://www.columbia.edu/kermit/index.html
+ 150. http://www.columbia.edu/kermit/ckccfg.html#top
+ 151. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 152. http://www.columbia.edu/kermit/ckccfg.html#x13
+ 153. http://www.columbia.edu/kermit/ckccfg.html#x11
+ 154. http://www.columbia.edu/kermit/ckermit.html
+ 155. http://www.columbia.edu/kermit/index.html
+ 156. http://www.columbia.edu/kermit/ckccfg.html#top
+ 157. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 158. http://www.columbia.edu/kermit/ckccfg.html#x14
+ 159. http://www.columbia.edu/kermit/ckccfg.html#x12
+ 160. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 161. http://www.columbia.edu/kermit/ckermit.html
+ 162. http://www.columbia.edu/kermit/index.html
+ 163. http://www.columbia.edu/kermit/ckccfg.html#top
+ 164. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 165. http://www.columbia.edu/kermit/ckccfg.html#x13
+ 166. http://www.columbia.edu/kermit/ckermit.html
+ 167. http://www.columbia.edu/kermit/index.html
+ 168. http://www.columbia.edu/kermit/ckccfg.html#top
+ 169. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 170. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 171. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
+ 172. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
+ 173. http://www.columbia.edu/kermit/ckccfg.html#top
+ 174. http://www.columbia.edu/kermit/ckccfg.html#contents
+ 175. http://www.columbia.edu/kermit/ckermit.html
+ 176. http://www.columbia.edu/kermit/index.html
+ 177. http://www.columbia.edu/kermit/index.html
+ 178. mailto:kermit@columbia.edu
/* C K C D E B . H */
/*
- Tue Apr 6 14:00:16 2004
+Mon Aug 23 09:22:05 2010
NOTE TO CONTRIBUTORS: This file, and all the other C-Kermit files, must be
compatible with C preprocessors that support only #ifdef, #else, #endif,
#define, and #undef. Please do not use #if, logical operators, or other
later-model preprocessor features in any of the portable C-Kermit modules.
- You can, of course, use these constructions in platform-specific modules
+ You can, of course, use these constructions in platform-specific modules
when you know they are supported.
*/
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
/*
Etymology: The name of this file means "C-Kermit Common-C-Language Debugging
Header", because originally it contained only the formats (F000-F111) for
- the debug() and tlog() functions. Since then it has grown to inlcude all
+ the debug() and tlog() functions. Since then it has grown to include all
material required by all other C-Kermit modules, including the non-Kermit
- specific ones.
+ specific ones. In other words, this is the one header file that is
+ guaranteed to be included by all C-Kermit source modules.
*/
#ifndef CKCDEB_H /* Don't include me more than once. */
#endif /* ULONG */
#endif /* OS2 */
-/* Structure definitions for Kermit file attributes */
-/* All strings come as pointer and length combinations */
-/* Empty string (or for numeric variables, -1) = unused attribute. */
-
-struct zstr { /* string format */
- int len; /* length */
- char *val; /* value */
-};
-struct zattr { /* Kermit File Attribute structure */
- long lengthk; /* (!) file length in K */
- struct zstr type; /* (") file type (text or binary) */
- struct zstr date; /* (#) file creation date yyyymmdd[ hh:mm[:ss]] */
- struct zstr creator; /* ($) file creator id */
- struct zstr account; /* (%) file account */
- struct zstr area; /* (&) area (e.g. directory) for file */
- struct zstr password; /* (') password for area */
- long blksize; /* (() file blocksize */
- struct zstr xaccess; /* ()) file access: new, supersede, append, warn */
- struct zstr encoding; /* (*) encoding (transfer syntax) */
- struct zstr disp; /* (+) disposition (mail, message, print, etc) */
- struct zstr lprotect; /* (,) protection (local syntax) */
- struct zstr gprotect; /* (-) protection (generic syntax) */
- struct zstr systemid; /* (.) ID for system of origin */
- struct zstr recfm; /* (/) record format */
- struct zstr sysparam; /* (0) system-dependent parameter string */
- long length; /* (1) exact length on system of origin */
- struct zstr charset; /* (2) transfer syntax character set */
-#ifdef OS2
- struct zstr longname; /* OS/2 longname if applicable */
-#endif /* OS2 */
- struct zstr reply; /* This goes last, used for attribute reply */
-};
-
-/* Kermit file information structure */
-
-struct filinfo {
- int bs; /* Blocksize */
- int cs; /* Character set */
- long rl; /* Record length */
- int org; /* Organization */
- int fmt; /* Record format */
- int cc; /* Carriage control */
- int typ; /* Type (text/binary) */
- int dsp; /* Disposition */
- char *os_specific; /* OS-specific attributes */
-#ifdef OS2
- unsigned long int lblopts; /* LABELED FILE options bitmask */
-#else
- int lblopts;
-#endif /* OS2 */
-};
-
#ifdef MACOSX10 /* Mac OS X 1.0 */
#ifndef MACOSX /* implies Mac OS X */
#define MACOSX
#endif /* ANYSCO */
#endif /* UNIXWARE */
+#ifndef MINIX /* Minix versions */
+#ifdef MINIX315
+#define MINIX
+#else
+#ifdef MINIX3
+#define MINIX
+#else
+#ifdef MINIX2
+#define MINIX
+#endif /* MINIX2 */
+#endif /* MINIX3 */
+#endif /* MINIX315 */
+#endif /* MINIX */
+
#ifdef CK_SCO32V4 /* SCO 3.2v4 */
#ifndef ANYSCO
#define ANYSCO
/* Built-in makefile entries */
+#ifdef SOLARIS11 /* Solaris 11 implies 10 */
+#ifndef SOLARIS10
+#define SOLARIS10
+#endif /* SOLARIS10 */
+#endif /* SOLARIS11 */
+
+#ifdef SOLARIS10 /* Solaris 10 implies 9 */
+#ifndef SOLARIS9
+#define SOLARIS9
+#endif /* SOLARIS9 */
+#endif /* SOLARIS10 */
+
#ifdef SOLARIS9 /* Solaris 9 implies 8 */
#ifndef SOLARIS8
#define SOLARIS8
#define POSIX_CRTSCTS
#endif /* POSIX_CRTSCTS */
#endif /* POSIX */
+#ifndef SVR4
+#define SVR4
+#endif /* SVR4 */
+#ifndef STERMIOX
+#define STERMIOX
+#endif /* STERMIOX */
+#ifndef SELECT
+#define SELECT
+#endif /* SELECT */
+#ifndef FNFLOAT
+#define FNFLOAT
+#endif /* FNFLOAT */
+#ifndef DIRENT
+#define DIRENT
+#endif /* DIRENT */
+#ifndef BIGBUFOK
+#define BIGBUFOK
+#endif /* BIGBUFOK */
+#ifndef CK_NEWTERM
+#define CK_NEWTERM
+#endif /* CK_NEWTERM */
#endif /* SOLARIS */
#ifdef SUN4S5 /* Sun-4 System V environment */
#include <stdio.h> /* Begin by including this. */
#include <ctype.h> /* and this. */
+#ifdef VMS
+#include <types.h> /* Ensure off_t. */
+#include "ckvrms.h" /* Get NAMDEF NAMX_C_MAXRSS. */
+#endif /* def VMS */
+
/* System-type compilation switches */
#ifdef FT21 /* Fortune For:Pro 2.1 implies 1.8 */
#endif /* OSKORUNIX */
#ifdef OS2
-#define CK_ANSIC /* OS/2 supports ANSIC and more extensions */
+#define CK_ANSIC /* OS/2 supports ANSIC and more extensions */
#endif /* OS2 */
-#ifdef OSF50 /* Newer OSF/1 versions imply older ones */
+#ifdef OSF50 /* Newer OSF/1 versions imply older ones */
#ifndef OSF40
#define OSF40
#endif /* OSF40 */
#endif /* CK_POSIX_SIG */
#endif /* QNX */
-/* Void type */
-
+/*
+ void type, normally available only in ANSI compilers.
+ The HP-UX exception (for its "bundled" non-ANSI C compiler)
+ is known to be valid back to HP-UX 6.5.
+ Adjustments might be needed for earlier HP-UX versions.
+*/
#ifndef VOID /* Used throughout all C-Kermit */
#ifdef CK_ANSIC /* modules... */
#define VOID void
#else
+#ifdef HPUX
+#define VOID void
+#else
#define VOID int
+#endif /* HPUX */
#endif /* CK_ANSIC */
#endif /* VOID */
+/*
+ Exactly the same as VOID but for use in contexts where the VOID symbol
+ conflicts some header-file definition. This is needed for the section
+ of ckuusx.c that provides C-Kermit's curses interface, roughly the
+ second half of ckuusx.c.
+*/
+#ifndef CKVOID
+#ifdef CK_ANSIC
+#define CKVOID void
+#else
+#ifdef HPUX
+#define CKVOID void
+#else
+#define CKVOID int
+#endif /* HPUX */
+#endif /* CK_ANSIC */
+#endif /* CKVOID */
/* Const type */
#endif /* TLOG */
#endif /* NOICP */
-#ifndef TLOG
-#define tlog(a,b,c,d)
-#else
-#ifndef CKCMAI
-/* Debugging included. Declare debug log flag in main program only. */
-extern int tralog, tlogfmt;
-#endif /* CKCMAI */
-_PROTOTYP(VOID dotlog,(int, char *, char *, long));
-#define tlog(a,b,c,d) if (tralog && tlogfmt) dotlog(a,b,c,d)
-_PROTOTYP(VOID doxlog,(int, char *, long, int, int, char *));
-#endif /* TLOG */
-
/* Formats for debug() and tlog() */
#define F000 0
#ifdef USE_UU_LOCK /* FreeBSD or other with uu_lock() */
#define USETTYLOCK
#else
-#ifdef HAVE_BAUDBOY /* Red Hat Linux >= 7.2 */
+/*
+ Prior to 8.0.299 Alpha.08 this was HAVE_BAUDBOY which was added for
+ Red Hat 7.2 in May 2003 but which is no longer supported in Debian and
+ OpenSuse (at least).
+*/
+#ifdef HAVE_LOCKDEV
#define USETTYLOCK
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
#endif /* USE_UU_LOCK */
#endif /* AIXRS */
#endif /* USETTYLOCK */
#endif /* NOTTYLOCK */
+#ifndef NO_OPENPTY /* Can use openpty() */
+#ifndef HAVE_OPENPTY
+#ifdef __linux__
+#define HAVE_OPENPTY
+#else
+#ifdef __FreeBSD__
+#define HAVE_OPENPTY
+#else
+#ifdef __OpenBSD__
+#define HAVE_OPENPTY
+#else
+#ifdef __NetBSD__
+#define HAVE_OPENPTY
+#else
+#ifdef MACOSX10
+#define HAVE_OPENPTY
+#endif /* MACOSX10 */
+#endif /* __NetBSD__ */
+#endif /* __OpenBSD__ */
+#endif /* __FreeBSD__ */
+#endif /* __linux__ */
+#endif /* HAVE_OPENPTY */
+#endif /* NO_OPENPTY */
+
/* Kermit feature selection */
#ifndef NOSPL
extern long ztmsec, ztusec; /* Fraction of sec of current time */
#endif /* CKCMAI */
-#ifndef NOUNPREFIXZERO /* Allow unprefixing of NUL (0) */
+#ifndef NOUNPREFIXZERO /* Allow unprefixing of NUL (0) */
#ifndef UNPREFIXZERO /* in file-transfer packets */
#define UNPREFIXZERO
#endif /* UNPREFIXZERO */
#define CKHTTP
#endif /* mips */
#endif /* ultrix */
+#ifdef __NetBSD__ /* NetBSD */
+#define CKHTTP
+#endif /* __NetBSD__ */
+#ifdef __FreeBSD__
+#define CKHTTP
+#endif /* __FreeBSD__ */
+#ifdef __OpenBSD__
+#define CKHTTP
+#endif /* __OpenBSD__ */
/* Add more here... */
#endif /* CKHTTP */
#ifndef CKHTTP /* If CKHTTP not defined yet */
-#define NOHTTP /* then define HOHTTP */
+#define NOHTTP /* then define NOHTTP */
#endif /* CKHTTP */
#endif /* NOHTTP */
#endif /* CK_TTGWSIZ */
#endif /* NOTTGWSIZ */
+#ifdef OS2
/* OS/2 C-Kermit features not available in 16-bit version... */
#ifdef OS2ONLY
/* OS/2 C-Kermit features not available in Windows NT version... */
-#ifdef OS2
#ifdef NT
#ifdef PCFONTS /* PC Font support */
#undef PCFONTS
#endif /* PCFONTS */
-#ifdef NPIPE /* Named Pipes communication */
-#undef NPIPE
-#endif /* NPIPE */
#ifdef OS2PM /* Presentation Manager */
#undef OS2PM
#endif /* OS2PM */
#else
/*
The following declaration would cause problems for VMS and OS/2, in which
- errno is an "extern volatile int noshare"...
+ errno is an "extern volatile int noshare"... NOTE: by now (2007) the
+ following is an anachronism and should be the execption rather than the
+ rule.
*/
- extern int errno; /* Needed by most modules. */
+extern int errno;
#endif /* __GLIBC__ */
#endif /* OS2 */
#endif /* VMS */
#endif /* STRATUS */
#endif /* _CRAY */
+#ifdef UNIX /* Catch-all so we can have */
+#ifndef ESRCH /* access to error mnemonics */
+#include <errno.h> /* in all modules - 2007/08/25 */
+#endif /* ESRCH */
+#endif /* UNIX */
+
#ifdef pdp11 /* Try to make some space on PDP-11 */
#ifndef NODIAL
#define NODIAL
#endif /* BIGBUFOK */
#endif /* DEBUG */
-#ifndef DEBUG
-/* Compile all the debug() statements away. Saves a lot of space and time. */
-#define debug(a,b,c,d)
-#define hexdump(a,b,c)
-/* Now define the debug() macro. */
-#else /* DEBUG */
-_PROTOTYP(int dodebug,(int,char *,char *,long));
-_PROTOTYP(int dohexdump,(CHAR *,CHAR *,int));
-#ifdef IFDEBUG
-/* Use this form to avoid function calls: */
-#ifdef COMMENT
-#define debug(a,b,c,d) if (deblog) dodebug(a,b,(char *)(c),(long)d)
-#define hexdump(a,b,c) if (deblog) dohexdump((CHAR *)(a),(CHAR *)(b),c)
-#else
-#ifdef CK_ANSIC
-#define debug(a,b,c,d) ((void)(deblog?dodebug(a,b,(char *)(c),(long)d):0))
-#define hexdump(a,b,c) ((void)(deblog?dohexdump((CHAR *)(a),(CHAR *)(b),c):0))
-#else
-#define debug(a,b,c,d) (deblog?dodebug(a,b,(char *)(c),(long)d):0)
-#define hexdump(a,b,c) (deblog?dohexdump((CHAR *)(a),(CHAR *)(b),c):0)
-#endif /* CK_ANSIC */
-#endif /* COMMENT */
-#else /* IFDEBUG */
-/* Use this form to save space: */
-#define debug(a,b,c,d) dodebug(a,b,(char *)(c),(long)d)
-#define hexdump(a,b,c) dohexdump((CHAR *)(a),(CHAR *)(b),c)
-#endif /* IFDEBUG */
-#endif /* DEBUG */
-
/* File System Defaults */
#ifndef UIDBUFLEN /* Length of User ID */
#endif /* STRATUS */ /* End of types.h section */
/*
+ File lengths and offsets. This section is expected to grow as we
+ support long files on 32-bit platforms. We want this data type to be
+ signed because so many functions return either a file size or a negative
+ value to indicate an error.
+*/
+#ifndef CK_OFF_T
+#ifdef OS2
+#ifdef NT
+#define CK_OFF_T __int64
+#else
+#define CK_OFF_T long
+#endif /* NT */
+#endif /* OS2 */
+#endif /* CK_OFF_T */
+
+/* FreeBSD and OpenBSD set off_t to the appropriate size unconditionally */
+
+#ifndef CK_OFF_T
+#ifdef __FreeBSD__
+#define CK_OFF_T off_t
+#else
+#ifdef __OpenBSD__
+#define CK_OFF_T off_t
+#endif /* __OpenBSD__ */
+#endif /* __FreeBSD__ */
+#endif /* CK_OFF_T */
+
+/* 32-bit platforms that support long files thru "transitional interface" */
+/* These include Linux, Solaris, NetBSD... */
+
+#ifdef AIXRS
+#ifdef _LARGE_FILES
+#ifndef CK_OFF_T
+#define CK_OFF_T off_t
+#endif /* CK_OFF_T */
+#endif /* _LARGE_FILES */
+#endif /* AIXRS */
+
+#ifdef _LARGEFILE_SOURCE
+#ifndef CK_OFF_T
+#define CK_OFF_T off_t
+#endif /* CK_OFF_T */
+#ifdef IRIX
+#define CKFSEEK(a,b,c) fseek64(a,b,c)
+#define CKFTELL(a) ftell64(a)
+#else /* IRIX */
+#define CKFSEEK(a,b,c) fseeko(a,b,c)
+#define CKFTELL(a) ftello(a)
+#endif /* IRIX */
+#else /* Not _LARGEFILE_SOURCE */
+#define CKFSEEK(a,b,c) fseek(a,b,c)
+#define CKFTELL(a) ftell(a)
+/* See below the next section for the catch-all case */
+#endif /* _LARGEFILE_SOURCE */
+
+/* 32-bit or 64-bit platforms */
+
+/* CK_64BIT is a compile-time symbol indicating a true 64-bit build */
+/* meaning that longs and pointers are 64 bits */
+
+#ifndef VMS /* VMS Alpha and IA64 are 32-bit! */
+#ifndef CK_64BIT
+#ifdef _LP64 /* Solaris */
+#define CK_64BIT
+#else
+#ifdef __LP64__ /* MacOS X 10.4 (or _LP64,__ppc64__) */
+#define CK_64BIT
+#else
+#ifdef __arch64__ /* gcc alpha, sparc */
+#define CK_64BIT
+#else
+#ifdef __alpha /* Alpha decc (or __ALPHA) */
+#define CK_64BIT
+#else
+#ifdef __amd64 /* AMD x86_64 (or __x86_64) */
+#define CK_64BIT
+#else
+#ifdef __ia64 /* Intel IA64 */
+#ifndef HPUX
+#define CK_64BIT
+#endif /* HPUX */
+#endif /* __ia64 */
+#endif /* __amd64 */
+#endif /* __alpha */
+#endif /* __arch64__ */
+#endif /* __LP64__ */
+#endif /* _LP64 */
+#endif /* CK_64BIT */
+#endif /* VMS */
+
+#ifndef CK_OFF_T
+#ifdef CK_64BIT
+#define CK_OFF_T off_t /* This has to be signed */
+#else /* CK_64BIT */
+#define CK_OFF_T long /* Signed */
+#endif /* CK_64BIT */
+#endif /* CK_OFF_T */
+
+#ifndef TLOG
+#define tlog(a,b,c,d)
+#else
+#ifndef CKCMAI
+/* Debugging included. Declare debug log flag in main program only. */
+extern int tralog, tlogfmt;
+#endif /* CKCMAI */
+_PROTOTYP(VOID dotlog,(int, char *, char *, CK_OFF_T));
+#define tlog(a,b,c,d) if (tralog && tlogfmt) dotlog(a,b,c,(CK_OFF_T)d)
+_PROTOTYP(VOID doxlog,(int, char *, CK_OFF_T, int, int, char *));
+#endif /* TLOG */
+
+#ifndef DEBUG
+/* Compile all the debug() statements away. Saves a lot of space and time. */
+#define debug(a,b,c,d)
+#define ckhexdump(a,b,c)
+/* Now define the debug() macro. */
+#else /* DEBUG */
+_PROTOTYP(int dodebug,(int,char *,char *,CK_OFF_T));
+_PROTOTYP(int dohexdump,(CHAR *,CHAR *,int));
+#ifdef IFDEBUG
+/* Use this form to avoid function calls: */
+#ifdef COMMENT
+#define debug(a,b,c,d) if (deblog) dodebug(a,b,(char *)(c),(CK_OFF_T)(d))
+#define ckhexdump(a,b,c) if (deblog) dohexdump((CHAR *)(a),(CHAR *)(b),c)
+#else
+#ifdef CK_ANSIC
+#define debug(a,b,c,d) \
+((void)(deblog?dodebug(a,b,(char *)(c),(CK_OFF_T)(d)):0))
+#define ckhexdump(a,b,c) \
+((void)(deblog?dohexdump((CHAR *)(a),(CHAR *)(b),c):0))
+#else
+#define debug(a,b,c,d) (deblog?dodebug(a,b,(char *)(c),(CK_OFF_T)(d)):0)
+#define ckhexdump(a,b,c) (deblog?dohexdump((CHAR *)(a),(CHAR *)(b),c):0)
+#endif /* CK_ANSIC */
+#endif /* COMMENT */
+#else /* IFDEBUG */
+/* Use this form to save space: */
+#define debug(a,b,c,d) dodebug(a,b,(char *)(c),(CK_OFF_T)(d))
+#define ckhexdump(a,b,c) dohexdump((CHAR *)(a),(CHAR *)(b),c)
+#endif /* IFDEBUG */
+#endif /* DEBUG */
+
+
+/* Structure definitions for Kermit file attributes */
+/* All strings come as pointer and length combinations */
+/* Empty string (or for numeric variables, -1) = unused attribute. */
+
+struct zstr { /* string format */
+ int len; /* length */
+ char *val; /* value */
+};
+
+struct zattr { /* Kermit File Attribute structure */
+ CK_OFF_T lengthk; /* (!) file length in K */
+ struct zstr type; /* (") file type (text or binary) */
+ struct zstr date; /* (#) file creation date yyyymmdd[ hh:mm[:ss]] */
+ struct zstr creator; /* ($) file creator id */
+ struct zstr account; /* (%) file account */
+ struct zstr area; /* (&) area (e.g. directory) for file */
+ struct zstr password; /* (') password for area */
+ long blksize; /* (() file blocksize */
+ struct zstr xaccess; /* ()) file access: new, supersede, append, warn */
+ struct zstr encoding; /* (*) encoding (transfer syntax) */
+ struct zstr disp; /* (+) disposition (mail, message, print, etc) */
+ struct zstr lprotect; /* (,) protection (local syntax) */
+ struct zstr gprotect; /* (-) protection (generic syntax) */
+ struct zstr systemid; /* (.) ID for system of origin */
+ struct zstr recfm; /* (/) record format */
+ struct zstr sysparam; /* (0) system-dependent parameter string */
+ CK_OFF_T length; /* (1) exact length on system of origin */
+ struct zstr charset; /* (2) transfer syntax character set */
+#ifdef OS2
+ struct zstr longname; /* OS/2 longname if applicable */
+#endif /* OS2 */
+ struct zstr reply; /* This goes last, used for attribute reply */
+};
+
+/* Kermit file information structure */
+
+struct filinfo {
+ int bs; /* Blocksize */
+ int cs; /* Character set */
+ long rl; /* Record length */
+ int org; /* Organization */
+ int fmt; /* Record format */
+ int cc; /* Carriage control */
+ int typ; /* Type (text/binary) */
+ int dsp; /* Disposition */
+ char *os_specific; /* OS-specific attributes */
+#ifdef OS2
+ unsigned long int lblopts; /* LABELED FILE options bitmask */
+#else
+ int lblopts;
+#endif /* OS2 */
+};
+
+
+/*
Data type for pids. If your system uses a different type, put something
like -DPID_T=pid_t on command line, or override here.
*/
_PROTOTYP( VOID z_exec, (char *, char **, int) );
#endif /* CKEXEC */
_PROTOTYP( int chkfn, (int) );
-_PROTOTYP( long zchki, (char *) );
+_PROTOTYP( CK_OFF_T zchki, (char *) );
#ifdef VMSORUNIX
-_PROTOTYP( long zgetfs, (char *) );
+_PROTOTYP( CK_OFF_T zgetfs, (char *) );
#else
#ifdef OS2
-_PROTOTYP( long zgetfs, (char *) );
+_PROTOTYP( CK_OFF_T zgetfs, (char *) );
#else
#define zgetfs(a) zchki(a)
#endif /* OS2 */
#ifdef ZXREWIND
_PROTOTYP( int zxrewind, (void) );
#endif /* ZXREWIND */
-_PROTOTYP( int zchkspa, (char *, long) );
+_PROTOTYP( int zchkspa, (char *, CK_OFF_T) );
_PROTOTYP( VOID znewn, (char *, char **) );
_PROTOTYP( int zrename, (char *, char *) );
_PROTOTYP( int zcopy, (char *, char *) );
_PROTOTYP( int zprint, (char *, char *) );
_PROTOTYP( char * tilde_expand, (char *) );
_PROTOTYP( int zmkdir, (char *) ) ;
-_PROTOTYP( int zfseek, (long) ) ;
+_PROTOTYP( int zfseek, (CK_OFF_T) ) ;
#ifdef ZFNQFP
_PROTOTYP( struct zfnfp * zfnqfp, (char *, int, char * ) ) ;
#else
and pause. Otherwise, no prototypes.
*/
#ifdef VMS
+#include <signal.h> /* SMS: sleep() for old (V4.0-000) DEC C. */
#include <unixio.h>
+#include <unixlib.h> /* SMS: getpid() for old (V4.0-000) DEC C. */
#endif /* VMS */
#ifdef NEXT
/* or #define NULL ((void *) 0) */
#endif /* NULL */
+/* Macro to differentiate "" from NULL (to avoid comparisons with literals) */
+
+#ifndef isemptystring
+#define isemptystring(s) ((s?(*s?0:1):0))
+#endif /* isemptystring */
+
/* Maximum length for a fully qualified filename, not counting \0 at end. */
/*
This is a rough cut, and errs on the side of being too big. We don't
symbols, for fear of introducing unnecessary conflicts.
*/
#ifndef CKMAXPATH
+#ifdef VMS /* VMS may have bad (small, ODS2) */
+#define CKMAXPATH NAMX_C_MAXRSS /* PATH_MAX, so use NAMX_C_MAXRSS. */
+#else /* def VMS */
#ifdef MAXPATHLEN /* (it probably isn't) */
#define CKMAXPATH MAXPATHLEN
#else
#ifdef PATH_MAX /* POSIX */
#define CKMAXPATH PATH_MAX
-#else
+#else /* def PATH_MAX */
#ifdef MAC
#define CKMAXPATH 63
-#else
+#else /* def MAC */
#ifdef pdp11
#define CKMAXPATH 255
-#else
+#else /* def pdp11 */
#ifdef UNIX /* Even though some are way less... */
#define CKMAXPATH 1024
-#else
-#ifdef VMS
-#define CKMAXPATH 675 /* (derivation is complicated...) */
-#else
+#else /* def UNIX */
#ifdef STRATUS
#define CKMAXPATH 256 /* == $MXPL from PARU.H */
-#else
+#else /* def STRATUS */
#ifdef datageneral
#define CKMAXPATH 256 /* == $MXPL from PARU.H */
-#else
+#else /* def datageneral */
#define CKMAXPATH 255
-#endif /* STRATUS */
-#endif /* datageneral */
-#endif /* VMS */
-#endif /* UNIX */
-#endif /* pdp11 */
-#endif /* MAC */
-#endif /* PATH_MAX */
-#endif /* MAXPATHLEN */
-#endif /* CKMAXPATH */
+#endif /* def STRATUS [else] */
+#endif /* def datageneral [else] */
+#endif /* def UNIX [else] */
+#endif /* def pdp11 [else] */
+#endif /* def MAC [else] */
+#endif /* def PATH_MAX [else] */
+#endif /* def MAXPATHLEN [else] */
+#endif /* def VMS [else] */
+#endif /* ndef CKMAXPATH */
/* Maximum length for the name of a tty device */
};
#endif /* CK_KEYTAB */
+#ifdef UNIX
+_PROTOTYP( int isalink, (char *));
+#endif /* UNIX */
+
#ifdef NETPTY
-_PROTOTYP( int do_pty, (char *));
+_PROTOTYP( int do_pty, (int *, char *, int));
_PROTOTYP( VOID end_pty, (void));
#endif /* NETPTY */
LPSTR lpBuffer, DWORD cchBuffer));
#endif /* NT */
+
#include "ckclib.h"
/* End of ckcdeb.h */
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern int spsiz, spmax, rpsiz, timint, timef, npad, bestlen, maxsend;
extern int rpt, rptq, rptflg, capas, spsizf, en_fin, tsecs, flow;
-extern int pktnum, sndtyp, rcvtyp, bctr, bctu, bctl, rsn, rln, maxtry, size;
-extern int osize, maxsize, spktl, rpktl, nfils, stdouf, fsecs;
+extern int pktnum, sndtyp, rcvtyp, bctr, bctu, bctf, bctl, rsn, rln, maxtry;
+extern int size, osize, maxsize, spktl, rpktl, nfils, stdouf, fsecs;
extern int turn, turnch, displa, pktlog, seslog, xflg, mypadn;
extern int hcflg, server, cxseen, czseen, discard, slostart;
extern int nakstate, quiet, success, xitsta, what, filestatus;
extern CKFLOAT fptsecs, fpfsecs, fpxfsecs;
#endif /* GFTIMER */
-extern long filcnt, filrej, ffc, flci, flco, tlci, tlco, tfc, speed;
-extern long filcps, tfcps;
+extern long filcnt, filrej, speed, filcps, tfcps;
+extern CK_OFF_T ffc, flci, flco, tlci, tlco, tfc;
extern char *cmarg, filnam[];
#ifdef CK_TIMERS
if (rttflg && timint) /* Dynamic round trip timers? */
getrtt(nakstate, rsn); /* yes, do it. */
+ else /* JHD 20100208 */
+ rcvtimo = timint; /* JHD 20100208 */
#endif /* CK_TIMERS */
debug(F101,"input rsn=winlo","",rsn);
break;
#ifdef CK_TIMERS
if (rttflg && timint) /* If doing dynamic timers */
getrtt(nakstate, rsn); /* call routine to set it. */
+ else /* JHD 20100208 */
+ rcvtimo = timint; /* JHD 20100208 */
#endif /* CK_TIMERS */
/*
NOTE: The following statement frees the buffer of the ACK we just got.
would cause needless cycles of repeated packets. Therefore we flush the
communications input buffer now to try to get rid of undesired and unneeded
packets that we have not read yet.
+
+ Actually, the first sentence above is not entirely true: there could be an
+ Error packet waiting to be read. Flushing an E packet is bad because it
+ will not be resent, and we'll go into a cycle of timing out and
+ retransmitting up to the retry limit. - fdc 2007/03/02
*/
if (wslotn == 1 /* (not wslots!) */
#ifdef STREAMING
#ifdef DEBUG
if (deblog) { /* Save lots of function calls! */
debug(F101,"spack n","",n);
+#ifdef COMMENT
if (pkttyp != 'D') { /* Data packets would be too long */
debug(F111,"spack data",data,data);
debug(F111,"spack d",d,d);
}
+#endif /* COMMENT */
debug(F101,"spack len","",len);
debug(F101,"spack copy","",copy);
}
longpkt = (len + bctl + 2) > 94; /* Decide whether it's a long packet */
mydata = data - 7 + (longpkt ? 0 : 3); /* Starting position of header */
k = sseqtbl[n]; /* Packet structure info for pkt n */
+#ifdef COMMENT
#ifdef DEBUG
if (deblog) { /* Save 2 more function calls... */
debug(F101,"spack mydata","",mydata);
}
}
#endif /* DEBUG */
+#endif /* COMMENT */
if (k > -1) {
s_pkt[k].pk_adr = mydata; /* Remember address of packet. */
s_pkt[k].pk_seq = n; /* Record sequence number */
x = (long) (npad+5+3+bctr+5+bctr); /* count packet and ack. */
/* then set x = packet length ** 2 */
- x = x * ( ffc / (long) numerrs); /* careful of overflow */
+ x = x * ( ffc / (CK_OFF_T) numerrs); /* careful of overflow */
/* calculate the long integer sqrt(x) quickly */
q = 500;
operation (spackets < 63), then we have to resend the ACK to an I or S
packet, complete with parameters in the data field. So we take a chance and
send a copy of the parameters in an ACK packet with block check type 1.
+ (Or 3 if SET BLOCK 5.)
*/
- int bctlsav; /* Temporary storage */
- int bctusav;
- bctlsav = bctl; /* Save current block check length */
- bctusav = bctu; /* and type */
- bctu = bctl = 1; /* Set block check to 1 */
- x = spack('Y',0,(int)strlen((char *)myinit),(CHAR *)myinit);
- if (x < 0) return(x);
- logpkt('#',n,(CHAR *)"<reconstructed>",0); /* Log it */
- bctu = bctusav; /* Restore block check type */
- bctl = bctlsav; /* and length */
-
+ if (bctf) { /* Force Type 3 on all packets? */
+ x = spack('Y',0,(int)strlen((char *)myinit),(CHAR *)myinit);
+ if (x < 0) return(x);
+ logpkt('#',n,(CHAR *)"<reconstructed>",0); /* Log it */
+ } else { /* Regular Kermit protocol */
+ int bctlsav; /* Temporary storage */
+ int bctusav;
+ bctlsav = bctl; /* Save current block check length */
+ bctusav = bctu; /* and type */
+ bctu = bctl = 1; /* Set block check to 1 */
+ x = spack('Y',0,(int)strlen((char *)myinit),(CHAR *)myinit);
+ if (x < 0) return(x);
+ logpkt('#',n,(CHAR *)"<reconstructed>",0); /* Log it */
+ bctu = bctusav; /* Restore block check type */
+ bctl = bctlsav; /* and length */
+ }
} else { /* Not the first packet */
/*
It's not the first packet of the protocol operation. It's some other packet
/* C H K S P K T -- Check if buf contains a valid S or I packet */
int
-chkspkt(buf) char *buf; {
+chkspkt(packet) char *packet; {
+ int i;
int buflen;
int len = -1;
CHAR chk;
char type = 0;
- char *s = buf;
+ char *s = NULL;
+ char *buf = NULL;
+ char tmpbuf[100]; /* Longest S/I packet is about 30 */
- if (!buf) return(0);
- buflen = strlen(buf);
+ if (!packet) return(0);
+ buflen = ckstrncpy(tmpbuf,packet,100); /* Make a pokeable copy */
if (buflen < 5) return(0); /* Too short */
+ if (buflen > 100) return(0); /* Too long to be an S or I packet */
+ s = buf = tmpbuf; /* Point to beginning of copy */
+
if (*s++ != stchr) return(0); /* SOH */
len = xunchar(*s++); /* Length */
if (len < 0) return(0);
if (buflen < len + 2) return(0);
s += (len - 3); /* Position of checksum */
chk = (CHAR) (*s); /* Checksum */
- *s = NUL;
- if (xunchar(chk) != chk1((CHAR *)(buf+1),buflen-2)) /* Check it */
- return(0);
- *s = chk;
+ *s = NUL; /* Temporarily null-terminate data field */
+ if (xunchar(chk) != chk1((CHAR *)(buf+1),buflen-2)) { /* Check it */
+ /*
+ In C-Kermit 9.0 and later, an S or I packet can have a
+ Type 3 Block check ("help set block-check" for details).
+ */
+ unsigned crc; /* Failed... Try Type 3 block check */
+ *s = chk; /* Replace last byte */
+ s -= 2; /* Back up two bytes */
+ crc = (xunchar(s[0]) << 12) /* Convert 3 bytes to numeric CRC */
+ | (xunchar(s[1]) << 6)
+ | (xunchar(s[2]));
+ chk = (CHAR)(*s); /* Copy 1st byte of 3-byte CRC */
+ *s = NUL; /* Null-terminate data field */
+ if (crc != chk3((CHAR *)(buf+1),strlen(buf+1)))
+ return(0);
+ }
return(type == 'S' ? 1 : 2);
}
#endif /* CK_AUTODL */
x = parchk(recpkt, stchr, j); /* Check parity */
debug(F000,"autodownload parity","",parity);
debug(F000,"autodownload parchk","",x);
- if (x > -1 && parity != x) {
+ if (x > 0 && parity != x) {
autopar = 1;
parity = x;
}
}
/*
Separate the data from the block check, accounting for the case where
- a packet was retransmitted after the block check switched.
+ a packet was retransmitted after the block check switched. The "Type 3
+ Forced" business is new to C-Kermit 9.0.
*/
- if (type == 'I' || type == 'S') { /* I & S packets always have type 1 */
- chklen = 1;
- rln = rln + bctl - 1;
+ if (bctf) { /* Type 3 forced on all packets */
+ bctl = chklen = 3;
+ } else if ((type == 'I' || type == 'S')) { /* Otherwise... */
+ if (recpkt[11] == '5') { /* Sender is forcing Type 3 */
+ bctf = 1; /* So we will too */
+ bctl = chklen = 3;
+ debug(F100,"RECOGNIZE BLOCK CHECK TYPE 5","",0);
+ } else { /* Normal case */
+ /* I & S packets always have type 1 */
+ chklen = 1;
+ rln = rln + bctl - 1;
+ }
} else if (type == 'N') { /* A NAK packet never has data */
chklen = xunchar(recpkt[lp]) - 2;
+ if (chklen < 1 || chklen > 3) { /* JHD 13 Apr 2010 */
+ debug(F101,"rpack bad nak chklen","",chklen);
+ freerbuf(k);
+ logpkt('r',-1,(CHAR *)"<crunched:chklen>",0);
+ xxscreen(SCR_PT,'%',(long)pktnum,"(bad nak)");
+ return('Q');
+ }
rln = rln + bctl - chklen;
} else chklen = bctl;
#ifdef DEBUG
tlog(F101," effective data rate ","",(long) xx);
}
#else
- tlog(F101," elapsed time (seconds) ","",(long) tsecs);
- if (tsecs > 0) {
- long lx;
- lx = (tfc * 10L) / (long) tsecs;
- tlog(F101," effective data rate ","",lx/10L);
- }
+ tlog(F101," elapsed time (seconds) ","",tsecs);
+ if (tsecs > 0)
+ tlog(F101," effective data rate ","",(tfc / tsecs));
#endif /* GFTIMER */
+
tlog(F100,"","",0L); /* Leave a blank line */
}
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#endif /* PIPESEND */
extern int unkcs, wmax, wcur, discard, bctu, bctl, local, fdispla, what,
- sendmode, opnerr, dest, epktrcvd, epktsent, filestatus, eofmethod, dispos;
-extern long sendstart, calibrate, fncnv, fnrpath;
+ sendmode, opnerr, dest, epktrcvd, epktsent, filestatus, eofmethod, dispos,
+ fncnv, fnrpath;
extern char * ofn2;
extern char * rfspec, * sfspec, * prfspec, * psfspec, * rrfspec, * prrfspec;
extern int quiet;
#endif /* datageneral */
-extern long fsize, filcnt, ffc, tfc;
+extern long filcnt;
+extern CK_OFF_T fsize, ffc, tfc, sendstart, calibrate;
+CK_OFF_T rs_len;
#ifndef NOCSETS
_PROTOTYP (VOID setxlate, (void));
left++;
}
/* File length in K */
- if (atleno && !done[xunchar(c = '!')] && x.lengthk > -1L) {
+ if (atleno && !done[xunchar(c = '!')] && x.lengthk > (CK_OFF_T)-1) {
+#ifdef COMMENT
sprintf((char *) &data[i+2],"%ld",x.lengthk); /* safe */
+#else
+ ckstrncpy((char *)&data[i+2],ckfstoa(x.lengthk),32);
+#endif /* COMMENT */
aln = (int)strlen((char *)(data+i+2));
if (max - i >= aln + 2) {
data[i] = c;
}
}
/* File length in bytes */
- if (atleno && !done[xunchar(c = '1')] && x.length > -1L) {
+ if (atleno && !done[xunchar(c = '1')] && x.length > (CK_OFF_T)-1) {
+#ifdef COMMENT
sprintf((char *) &data[i+2],"%ld",x.length); /* safe */
+#else
+ ckstrncpy((char *)&data[i+2],ckfstoa(x.length),32);
+#endif /* COMMENT */
aln = (int)strlen((char *)(data+i+2));
if (max - i >= aln + 2) {
data[i] = c;
}
#ifdef CK_RESEND
if (sendmode == SM_RESEND && *s == '1') { /* RESEND length */
- int n; long z; CHAR *p;
+ int n; CK_OFF_T z; CHAR *p;
p = s + 1;
n = xunchar(*p++);
debug(F101,"rsattr RESEND n","",n);
- z = 0L;
+ z = (CK_OFF_T)0;
while (n-- > 0) /* We assume the format is good. */
- z = 10L * z + (long) (*p++ - '0');
+ z = (CK_OFF_T)10 * z + (CK_OFF_T)(*p++ - '0');
debug(F101,"rsattr RESEND z","",z);
- if (z > 0L) sendstart = z;
+ if (z > (CK_OFF_T)0) sendstart = z;
debug(F101,"rsattr RESEND sendstart","",sendstart);
- if (sendstart > 0L)
+ if (sendstart > (CK_OFF_T)0)
if (zfseek(sendstart) < 0) /* Input file is already open. */
return(0);
#ifdef CK_CURSES
return(0);
}
-long rs_len = 0L; /* Length of file being resent to */
-
/*
Get attributes from incoming A packet. Returns:
0 on success, file is to be accepted
gattr(s, yy) CHAR *s; struct zattr *yy; { /* Read incoming attribute packet */
char c, d;
char *ff;
- int aln, i;
+ int aln, i, overflow = 0;
#ifndef NOCSETS
extern int r_cset, axcset[];
while (c = *s++) { /* Get attribute tag */
aln = xunchar(*s++); /* Length of attribute string */
switch (c) {
+#ifdef COMMENT /* This case combined with '1' below */
case '!': /* File length in K */
for (i = 0; (i < aln) && (i < ABUFL); i++) /* Copy it */
abuf[i] = *s++;
abuf[i] = '\0'; /* Terminate with null */
if (i < aln) s += (aln - i); /* If field was too long for buffer */
- yy->lengthk = atol(abuf); /* Convert to number */
+ yy->lengthk = ckatofs(abuf); /* Convert to number */
break;
+#endif /* COMMENT */
case '/': /* Record format */
rfbuf[1] = NUL;
dsbuf[i] = *s++; /* Copy it into a separate string */
dsbuf[i] = '\0';
if (i < aln) s += (aln - i);
- rs_len = 0;
+ rs_len = (CK_OFF_T)0;
if (atdisi) { /* We are doing this attribute */
/* Copy it into the attribute structure */
yy->disp.val = dsbuf; /* Pointer to string */
the Recover attribute now. So better to leave as-is. Anyway, it's probably
more useful this way.
*/
- if (rs_len > 0L) {
+ if (rs_len > (CK_OFF_T)0) {
fncsav = fncact; /* Save collision action */
fncact = XYFX_A; /* Switch to APPEND */
}
}
break;
- case '1': /* File length in bytes */
- for (i = 0; (i < aln) && (i < ABUFL); i++) /* Copy it */
- abuf[i] = *s++;
- abuf[i] = '\0'; /* Terminate with null */
- if (i < aln) s += (aln - i);
- yy->length = atol(abuf); /* Convert to number */
- debug(F111,"gattr length",abuf,(int) yy->length);
- break;
-
+ case '!': /* File length in K */
+ case '1': { /* File length in bytes */
+ char * l2;
+ CK_OFF_T xlen;
+ for (i = 0; (i < aln) && (i < ABUFL); i++) /* Copy it */
+ abuf[i] = *s++;
+ abuf[i] = '\0'; /* Terminate with null */
+ if (i < aln) s += (aln - i);
+ if (rdigits(abuf)) { /* Make sure string is all digits */
+ xlen = ckatofs(abuf); /* Convert to number */
+ l2 = ckfstoa(xlen); /* Convert number back to string */
+ if (c == '1')
+ debug(F111,"gattr length",abuf,xlen);
+ else
+ debug(F111,"gattr lengthk",abuf,xlen);
+ if (ckstrcmp(abuf,l2,-1,1)) { /* This is how we check... */
+ xlen = (CK_OFF_T)-2; /* -2 = unk, possibly too long */
+ overflow++;
+ debug(F111,"gattr overflow",
+ (c == '1') ? "length" : "lengthk",
+ xlen);
+ }
+ if (c == '1') {
+ yy->length = xlen;
+ debug(F101,"gattr length","",xlen);
+ } else {
+ yy->lengthk = xlen;
+ debug(F101,"gattr lengthk","",xlen);
+ }
+ }
+ /* If the length field is not numeric accept the file */
+ /* anyway but with an unknown length */
+ break;
+ }
#ifdef CK_PERMS
case ',': /* System-dependent protection code */
}
}
- /* Check file length now, because we also need to know the file type */
+ /* Check space now, because we also need to know the file type */
/* in case zchkspa() differentiates text and binary (VMS version does) */
- if (atleni) { /* Length attribute enabled? */
- if (yy->length > -1L) { /* Length-in-bytes attribute rec'd? */
+ if (atleni && !calibrate) { /* Length attribute enabled? */
+ if (yy->length > (CK_OFF_T)-1) { /* Length-in-bytes attribute rec'd? */
if (!zchkspa(ff,(yy->length))) { /* Check space */
retcode = -1; /* Not enuf */
*rp++ = '1';
if (!opnerr) tlog(F100," refused: length bytes","",0);
}
- } else if (yy->lengthk > -1L) { /* Length in K attribute rec'd? */
- if (!zchkspa(ff,(yy->lengthk * 1024))) {
+ } else if (yy->lengthk > (CK_OFF_T)-1) { /* Length in K received? */
+ long xlen;
+ xlen = yy->lengthk * 1024;
+ if (!zchkspa(ff,xlen)) {
retcode = -1; /* Check space */
*rp++ = '!';
if (!opnerr) tlog(F100," refused: length K","",0);
}
}
}
- if (yy->length > -1L) { /* Remember the file size */
- fsize = yy->length;
- } else if (yy->lengthk > -1L) {
- fsize = yy->lengthk * 1024L;
- } else fsize = -1L;
+ if (retcode > -1L) { /* Remember the file size */
+ if (yy->length > (CK_OFF_T)-1) {
+ fsize = yy->length;
+ } else if (yy->lengthk > (CK_OFF_T)-1 && !overflow) {
+ fsize = yy->lengthk * 1024L;
+ } else fsize = yy->length; /* (e.g. -2L) */
+ }
#ifdef DEBUG
if (deblog) {
+#ifdef COMMENT
sprintf(abuf,"%ld",fsize); /* safe */
- debug(F110,"gattr fsize",abuf,0);
+#else
+ ckstrncpy(abuf,ckfstoa(fsize),ABUFL);
+#endif /* COMMENT */
+debug(F110,"gattr fsize",abuf,0);
}
#endif /* DEBUG */
} else { /* Binary mode */
retcode = 0; /* Accept the file */
discard = 0; /* If SET FILE COLLISION DISCARD */
+#ifdef COMMENT
sprintf(rpbuf+2,"%ld",rs_len); /* Reply with length of file */
+#else
+ ckstrncpy(rpbuf+2,ckfstoa(rs_len),RPBUFL-2);
+#endif /* COMMENT */
rpbuf[0] = '1'; /* '1' means Length in Bytes */
rpbuf[1] = tochar((int)strlen(rpbuf+2)); /* Length of length */
debug(F111,"gattr RESEND OK",rpbuf,retcode);
int
initattr(yy) struct zattr *yy; {
- yy->lengthk = yy->length = -1L;
+ yy->lengthk = yy->length = (CK_OFF_T)-1;
yy->type.val = "";
yy->type.len = 0;
yy->date.val = "";
adebu(f,zz); /* Write attributes to debug log */
- ffc = 0L; /* Init file-character counter */
+ ffc = (CK_OFF_T)0; /* Init file-character counter */
#ifdef PIPESEND
if (pipesend) /* Receiving to a pipe - easy. */
debug(F101,"opena binary","",binary);
#ifdef COMMENT
- if (fsize > -1L)
+ if (fsize >= 0)
#endif /* COMMENT */
xxscreen(SCR_FS,0,fsize,"");
int
opent(zz) struct zattr *zz; {
int x;
- ffc = tfc = 0L;
+ ffc = tfc = (CK_OFF_T)0;
x = zopeno(ZCTERM,"",zz,NULL);
debug(F101,"opent zopeno","",x);
if (x >= 0) {
int
ckopenx(zz) struct zattr *zz; {
- ffc = tfc = 0L; /* Reset counters */
+ ffc = tfc = (CK_OFF_T)0; /* Reset counters */
o_isopen = 1;
debug(F101,"ckopenx fsize","",fsize);
xxscreen(SCR_FS,0,fsize,""); /* Let screen display know the size */
}
#endif /* TLOG */
} else if (!epktrcvd && !epktsent && !cxseen && !czseen) {
- long zz;
+ CK_OFF_T zz;
zz = ffc;
#ifdef CK_RESEND
if (sendmode == SM_RESEND || sendmode == SM_PSEND)
}
i_isopen = 0;
hcflg = 0; /* Reset flags */
- sendstart = 0L; /* Don't do this again! */
+ sendstart = (CK_OFF_T)0; /* Don't do this again! */
#ifdef COMMENT
/*
This prevents a subsequent call to clsof() from deleting the file
#endif /* TLOG */
}
}
- rs_len = 0;
+ rs_len = (CK_OFF_T)0;
o_isopen = 0; /* The file is not open any more. */
cxseen = 0; /* Reset per-file interruption flag */
return(x); /* Send back zclose() return code. */
-char *fnsv = "C-Kermit functions, 8.0.223, 1 May 2003";
+char *fnsv = "C-Kermit functions, 9.0.233, 3 Jun 2011";
char *nm[] = { "Disabled", "Local only", "Remote only", "Enabled" };
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern CHAR feol;
extern int byteorder, xflg, what, fmask, cxseen, czseen, nscanfile, sysindex;
extern int xcmdsrc, dispos, matchfifo;
-extern long ffc;
extern int inserver;
extern int nolinks;
#ifndef NOSPL
_PROTOTYP( int zzstring, (char *, char **, int *) );
#endif /* NOSPL */
-#ifdef OS2ORUNIX
-_PROTOTYP( long zfsize, (char *) );
-#endif /* OS2ORUNIX */
#ifdef OS2
#include <io.h>
extern char * cdmsgfile[];
extern int spsiz, spmax, rpsiz, timint, srvtim, rtimo, npad, ebq, ebqflg,
rpt, rptq, rptflg, capas, keep, fncact, pkttim, autopar, spsizr, xitsta;
-extern int pktnum, bctr, bctu, bctl, clfils, sbufnum, protocol,
+extern int pktnum, bctr, bctu, bctf, bctl, clfils, sbufnum, protocol,
size, osize, spktl, nfils, ckwarn, timef, spsizf, sndtyp, rcvtyp, success;
extern int parity, turn, network, whatru, fsecs, justone, slostart,
ckdelay, displa, mypadn, moving, recursive, nettype;
-extern long filcnt, flci, flco, tlci, tlco, tfc, fsize, sendstart, rs_len;
-extern long filrej, oldcps, cps, peakcps, ccu, ccp, calibrate, filestatus;
+extern long filcnt;
+extern CK_OFF_T
+ tfc, fsize, sendstart, rs_len, flci, flco, tlci, tlco, calibrate;
+extern long filrej, oldcps, cps, peakcps, ccu, ccp, filestatus;
extern int fblksiz, frecl, frecfm, forg, fcctrl, fdispla, skipbup;
extern int spackets, rpackets, timeouts, retrans, crunched, wmax, wcur;
extern int hcflg, binary, fncnv, b_save, f_save, server;
_PROTOTYP( VOID fnlist, (void) );
#endif /* NOXFER */
+extern CK_OFF_T ffc;
+
/* Character set Translation */
#ifndef NOCSETS
char sndnbefore[19] = { NUL, NUL };
char *sndexcept[NSNDEXCEPT] = { NULL, NULL };
char *rcvexcept[NSNDEXCEPT] = { NULL, NULL };
-long sndsmaller = -1L;
-long sndlarger = -1L;
+CK_OFF_T sndsmaller = (CK_OFF_T)-1;
+CK_OFF_T sndlarger = (CK_OFF_T)-1;
/* Variables defined in this module but shared by other modules. */
rc = 0; /* Return code. */
m = memstr; p = memptr; /* Save these. */
memptr = (char *)s; /* Point to the string. */
- debug(F101,"encstr memptr 1","",memptr);
+ /* debug(F101,"encstr memptr 1","",memptr); */
memstr = 1; /* Flag memory string as source. */
first = 1; /* Initialize character lookahead. */
*data = NUL; /* In case s is empty */
/* P N B Y T E -- Output next byte to file or other destination */
-static long offc = 0L;
+static CK_OFF_T offc = 0L;
static int
#ifdef CK_ANSIC
/* swapping must be 0 or 1 */
if (a == -1 && (tcs | fcs) == 0) { /* Reset in case previous run */
bn = 0; /* left bn at 1... */
- offc = 0L;
+ offc = (CK_OFF_T)0;
debug(F101,"xpnbyte RESET","",bn);
return(0);
}
} output;
#endif /* OS2 */
#endif /* IKSDONLY */
- if (offc == 0L && ucsbom) { /* Beginning of file? */
+ if (!offc && ucsbom) { /* Beginning of file? */
#ifndef IKSDONLY
#ifdef OS2
#ifdef OS2
if (fn == NULL && !k95stdout && !inserver) {
offc++;
- output.bytes[0] = uc.x_char[1-swapping];
- output.bytes[1] = uc.x_char[swapping];
+ output.bytes[0] = uc.x_char[swapping];
+ output.bytes[1] = uc.x_char[1-swapping];
VscrnWrtUCS2StrAtt(VCMD,
&output.ucs2,
}
if (fcs == FC_UCS2) { /* And FCS is UCS-2 */
/* Write out the bytes in the appropriate byte order */
- if (offc == 0 && ucsbom) { /* Beginning of file? */
+ if (!offc && ucsbom) { /* Beginning of file? */
if ((rc = pnbyte((ucsorder ? 0xff : 0xfe),fn)) < 0) /* BOM */
return(rc);
if ((rc = pnbyte((ucsorder ? 0xfe : 0xff),fn)) < 0)
#ifdef KANJI
if (!binary && tcharset == TC_JEUC &&
fcharset != FC_JEUC) { /* Translating from J-EUC */
- if (ffc == 0L) xkanjf();
+ if (!ffc) xkanjf();
if (xkanji(a,fn) < 0) /* to something else? */
return(-1);
else t = 1;
#endif /* DEBUG */
if (first == 1) { /* If first character of this file.. */
- ffc = 0L; /* reset file character counter */
+ ffc = (CK_OFF_T)0; /* reset file character counter */
#ifdef COMMENT
/* Moved to below */
first = 0; /* Next character won't be first */
#endif /* KANJI */
#ifdef DEBUG
- if (deblog && ffc == 0) {
+ if (deblog && !ffc) {
debug(F101,"xgnbyte initial swap","",swapping);
}
#endif /* DEBUG */
haveuc = 0;
#ifdef UNICODE
if (fcs == FC_UCS2) { /* UCS-2: Read two bytes */
- if (ffc == 0) /* Beginning of file? */
+ if (!ffc) /* Beginning of file? */
swapping = 0; /* Reset byte-swapping flag */
uc.x_short = 0;
bomskip:
if (docrc && (what & W_SEND))
dofilcrc(x);
#endif /* NOXFER */
- if (ffc == 2) { /* Second char of file */
+ if (ffc == (CK_OFF_T)2) { /* Second char of file */
debug(F001,"xgnbyte 1st UCS2","",uc.x_short);
debug(F111,"xgnbyte fileorder","A",fileorder);
if (fileorder < 0) /* Byte order of this file */
if (fcsinfo[fcs].alphabet == AL_JAPAN) { /* Japanese source file */
int c7, x, y;
if (fcs == FC_JIS7) { /* If file charset is JIS-7 */
- if (ffc == 0L) /* If first byte of file */
+ if (!ffc) /* If first byte of file */
j7init(); /* Initialize JIS-7 parser */
x = getj7(); /* Get a JIS-7 byte */
} else /* Otherwise */
too soon and so might not have known whether it was a file transfer or a
local operation.
*/
+/*
+ (Many years later...) In testing this code I noticed that TRANSLATE'ing
+ Russian text from UTF-8 to ISO Latin/Cyrillic produced all question marks.
+ Rereading the previous paragraph it seems to me we are (I am) overloading
+ this function with responsibilites, satisfying the needs of file transfer
+ (local file charset -> transfer charset for outbound packet) and local file
+ conversion. In the case of TRANSLATE, we call (xgnbyte(), xpnbyte()) in a
+ loop, expecting the xgnbyte() will feed UCS2 to xpnbyte(). But the
+ following code does what xpnbyte() is going to do, returning (in this case)
+ an ISO Latin/Cyrillic byte stream, which xpnbyte() believes to be UCS2, and
+ comes up with nonsense. Not wanting to rip the whole thing apart and start
+ over, I made the following change that should do no harm, upon observing
+ that if the input character set is UTF-8 or UCS-2, then when we get here it
+ has already been converted to UCS2, so if we are not transferring a file, we
+ don't need to do anything else except put the bytes in the right place to be
+ returned, which is done further along.
+*/
+#ifdef COMMENT
+ /* Previous code */
xx = (what & W_SEND) ? xut : xuf;
+#else
+ /* New code 2011-06-03 */
+ if (what & W_SEND) {
+ xx = xut;
+ } else {
+ if (fcs == FC_UCS2 || fcs == FC_UTF8)
+ xx = NULL;
+ else
+ xx = xuf;
+ }
+#endif /* COMMENT */
+
eolflag = 0;
if (haveuc) { /* File is Unicode */
/* See Unicode TR13, "Converting to Other Character Sets" */
debug(F101,"getpkt first uflag","",uflag);
debug(F101,"getpkt first rt","",rt);
if (!memstr && !funcstr) /* and real file... */
- ffc = 0L; /* reset file character counter */
+ ffc = (CK_OFF_T)0; /* reset file character counter */
#ifdef COMMENT
/* Moved to below... */
first = 0; /* Next character won't be first */
/* This stuff is only for BEFORE S/I/Y negotiation, not after */
if (flag) {
- bctu = bctl = 1; /* Reset block check type to 1 */
+ if (bctf) { /* Force Block Check 3 on all packets */
+ bctu = bctl = 3; /* Set block check type to 3 */
+ } else {
+ bctu = bctl = 1; /* Reset block check type to 1 */
+ }
myinit[0] = '\0'; /* Haven't sent init string yet */
rqf = -1; /* Reset 8th-bit-quote request flag */
ebq = MYEBQ; /* Reset 8th-bit quoting stuff */
VOID
resetc() {
rptn = 0; /* Repeat counts */
- fsecs = flci = flco = 0L; /* File chars in and out */
+ fsecs = flci = flco = (CK_OFF_T)0; /* File chars in and out */
#ifdef GFTIMER
fpfsecs = 0.0;
#endif /* GFTIMER */
- tfc = tlci = tlco = 0L; /* Total file, line chars in & out */
+ tfc = tlci = tlco = (CK_OFF_T)0; /* Total file, line chars in & out */
ccu = ccp = 0L; /* Control-char statistics */
#ifdef COMMENT
- fsize = -1L; /* File size */
+ fsize = (CK_OFF_T)-1; /* File size */
#else
if (!(what & W_SEND))
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
debug(F101,"resetc fsize","",fsize);
#endif /* COMMENT */
timeouts = retrans = 0; /* Timeouts, retransmissions */
char ofn1[CKMAXPATH+4]; /* Buffer for output file name */
char * ofn2; /* Pointer to backup file name */
int ofn1x; /* Flag output file already exists */
-long ofn1len = 0L;
+CK_OFF_T ofn1len = (CK_OFF_T)0;
int opnerr; /* Flag for open error */
int /* Returns success ? 1 : 0 */
#endif /* PIPESEND */
#ifdef CALIBRATE
extern int dest;
- int csave;
+ CK_OFF_T csave;
csave = calibrate; /* So we can decode filename */
- calibrate = 0;
+ calibrate = (CK_OFF_T)0;
#endif /* CALIBRATE */
ofperms = ""; /* Reset old-file permissions */
debug(F101,"rcvfil dirflg","",dirflg);
ofn1len = zchki(ofn1); /* File already exists? */
debug(F111,"rcvfil ofn1len",ofn1,ofn1len);
- ofn1x = (ofn1len != -1);
+ ofn1x = (ofn1len != (CK_OFF_T)-1);
if ( (
#ifdef UNIX
debug(F110,"rcvfilx: n",n,0);
debug(F110,"rcvfilx: ofn1",ofn1,0);
- ffc = 0L; /* Init per-file counters */
+ ffc = (CK_OFF_T)0; /* Init per-file counters */
cps = oldcps = 0L;
- rs_len = 0L;
+ rs_len = (CK_OFF_T)0;
rejection = -1;
fsecs = gtimer(); /* Time this file started */
#ifdef GFTIMER
if (!cmarg2) cmarg2 = "";
#ifdef DEBUG
if (deblog) {
- debug(F111,"sfile cmarg2",cmarg2,cmarg2);
+ /* debug(F111,"sfile cmarg2",cmarg2,cmarg2); */
debug(F101,"sfile binary 1","",binary);
debug(F101,"sfile wearealike","",wearealike);
debug(F101,"sfile xfermode","",xfermode);
return(0);
}
if (sendmode == SM_PSEND) /* PSENDing? */
- if (sendstart > 0L) /* Starting position */
+ if (sendstart > (CK_OFF_T)0) /* Starting position */
if (zfseek(sendstart) < 0) /* seek to it... */
return(0);
#endif /* CK_RESEND */
}
intmsg(++filcnt); /* Count file, give interrupt msg */
first = 1; /* Init file character lookahead. */
- ffc = 0L; /* Init file character counter. */
+ ffc = (CK_OFF_T)0; /* Init file character counter. */
cps = oldcps = 0L; /* Init cps statistics */
rejection = -1;
fsecs = gtimer(); /* Time this file started */
if (biggest >= 8) {
if (s[8] == 'B') x = 4;
else x = s[8] - '0';
- if ((x < 1) || (x > 4)) x = 1;
+ if ((x < 1) || (x > 5)) x = 1; /* "5" 20110605 */
}
bctr = x;
*/
int
gnfile() {
- int i = 0, x = 0; long y = 0L;
+ int i = 0, x = 0;
+ CK_OFF_T filesize = 0;
int dodirstoo = 0;
int retcode = 0;
debug(F101,"gnfile recursive","",recursive);
debug(F101,"gnfile dodirstoo","",dodirstoo);
gnferror = 0;
- fsize = -1L; /* Initialize file size */
+ fsize = (CK_OFF_T)-1; /* Initialize file size */
fullname[0] = NUL;
+
+#ifdef VMS
+ /*
+ In VMS, zopeni() sets binary 0/1 automatically from the file
+ attributes. Don't undo it here.
+ */
+ debug(F101,"gnfile VMS binary","",binary);
+#else /* VMS */
if (!(what & W_REMO) && (xfermode == XMODE_A)
#ifndef NOMSEND
&& !addlist
binary = gnf_binary; /* Restore prevailing transfer mode */
debug(F101,"gnfile binary = gnf_binary","",gnf_binary);
}
+#endif /* VMS */
+
#ifdef PIPESEND
debug(F101,"gnfile pipesend","",pipesend);
if (pipesend) { /* First one */
extern char sndxnam[]; /* Pseudo filename */
debug(F100,"gnfile array","",0);
nfils = 0;
- fsize = -1L; /* Size unknown */
+ fsize = (CK_OFF_T)-1; /* Size unknown */
sndsrc = 0;
ckstrncpy(filnam,sndxnam,CKMAXPATH);
return(1);
/* Loop through file list till we find a readable, sendable file */
- y = -1L; /* Loop exit (file size) variable */
- while (y < 0L) { /* Keep trying till we get one... */
+ filesize = (CK_OFF_T)-1; /* Loop exit (file size) variable */
+ while (filesize < 0) { /* Keep trying till we get one... */
retcode = 0;
if (sndsrc > 0) { /* File list in cmlist or file */
if (filefile) { /* Reading list from file... */
fromgetpath = 0;
if (server && !isabsolute(filnam) && (ngetpath > i)) {
ckstrncpy(fullname,getpath[i],CKMAXPATH+1);
- strncat(fullname,filnam,CKMAXPATH);
+ ckstrncat(fullname,filnam,CKMAXPATH);
debug(F111,"gnfile getpath",fullname,i);
fromgetpath = 1;
i++;
) { /* It looks wild... */
/* First check if a file with this name exists */
debug(F110,"gnfile wild",fullname,0);
- if (zchki(fullname) > -1) {
+ if (zchki(fullname) >= 0) {
/*
Here we have a file whose name actually
contains wildcard characters.
if (*dirp) ckstrncpy(fullname,dirp,CKMAXPATH+1);
}
#endif /* DTILDE */
- y = zchki(fullname); /* Check if file readable */
- debug(F111,"gnfile zchki",fullname,y);
- retcode = (int) y; /* Possible return code */
- if (y == -2L && dodirstoo) {
- y = 0L;
+ filesize = zchki(fullname); /* Check if file readable */
+ debug(F111,"gnfile zchki",fullname,filesize);
+ retcode = filesize; /* Possible return code */
+ if (filesize == (CK_OFF_T)-2 && dodirstoo) {
+ filesize = 0;
}
- if (y < 0L) {
- gnferror = (int) y;
+ if (filesize < 0) {
+ gnferror = (int)filesize;
debug(F101,"gnfile gnferror C","",gnferror);
}
- if (y == -1L) { /* If not found */
+ if (filesize == (CK_OFF_T)-1) { /* If not found */
debug(F100,"gnfile -1","",0);
#ifndef NOSERVER
if (server && ngetpath > i)
doxlog(what,fullname,fsize,binary,1,"Skipped");
#endif /* TLOG */
continue;
- } else if (y < 0) {
- if (y == -3) { /* Exists but not readable */
+ } else if (filesize < 0) {
+ if (filesize == (CK_OFF_T)-3) { /* Exists but not readable */
debug(F100,"gnfile -3","",0);
filrej++; /* Count this one as not sent */
tlog(F110,"Read access denied",fullname,0); /* Log this */
continue;
} else {
int xx;
- fsize = y;
+ fsize = filesize;
+/* +++ */
+ debug(F111,"gnfile sndsmaller",ckfstoa(sndsmaller),sndsmaller);
+ debug(F111,"gnfile sndlarger",ckfstoa(sndlarger),sndlarger);
+ debug(F111,"gnfile (CK_OFF_T)-1",ckfstoa((CK_OFF_T)-1),(CK_OFF_T)-1);
+
xx = fileselect(fullname,
sndafter, sndbefore,
sndnafter,sndnbefore,
NSNDEXCEPT,sndexcept);
debug(F111,"gnfile fileselect",fullname,xx);
if (!xx) {
- y = -1L;
+ filesize = (CK_OFF_T)-1;
gnferror = -6;
debug(F101,"gnfile gnferror D","",gnferror);
continue;
NSNDEXCEPT,sndexcept)) {
gnferror = -6;
debug(F111,"gnfile fileselect",fullname,gnferror);
- y = -1L;
+ filesize = (CK_OFF_T)-1;
continue;
}
ckstrncpy(filnam,fullname,CKMAXPATH+1);
static int nxpnd = -1;
static long ndirs = 0;
static long nfiles = 0;
-static long nbytes = 0;
+static CK_OFF_T nbytes = 0;
int
sndstring(p) char * p; {
char *filetag = "files";
char *bytetag = "bytes";
#endif /* OSK */
- long len = 0;
+ CK_OFF_T len = 0;
int x, itsadir = 0, gotone = 0;
#ifdef DEBUG
} else { /* Regular file */
#ifdef VMS
sprintf((char *)linebuf,
- "%-22s%10ld %s %s\n", p, len, dstr, name);
+ "%-22s%10s %s %s\n", p, ckfstoa(len), dstr, name);
#else
if (p)
sprintf((char *)linebuf,
- "%10s%10ld %s %s%s%s\n",
- p, len, dstr, name,
+ "%10s%10s %s %s%s%s\n",
+ p, ckfstoa(len), dstr, name,
*lnk ? " -> " : "",
lnk
);
else
sprintf((char *)linebuf,
- "%10ld %s %s%s%s\n",
- len, dstr, name,
+ "%10s %s %s%s%s\n",
+ ckfstoa(len), dstr, name,
*lnk ? " -> " : "",
lnk
);
dirtag = "directory";
if (nfiles == 1)
filetag = "file";
- if (nbytes == 1)
+ if (nbytes == (CK_OFF_T)1)
bytetag = "byte";
sprintf((char *)funcbuf,
- "%sSummary: %ld %s, %ld %s, %ld %s%s",
- blankline,
- ndirs,
- dirtag,
- nfiles,
- filetag,
- nbytes,
- bytetag,
- endline);
+ "%sSummary: %ld %s, %ld %s, %s %s%s",
+ blankline,
+ ndirs,
+ dirtag,
+ nfiles,
+ filetag,
+ ckfstoa(nbytes),
+ bytetag,
+ endline);
#else
sprintf((char *)funcbuf,
- "%sSummary: %ld director%s, %ld file%s, %ld byte%s%s",
+ "%sSummary: %ld director%s, %ld file%s, %s byte%s%s",
blankline,
ndirs,
(ndirs == 1) ? "y" : "ies",
nfiles,
(nfiles == 1) ? "" : "s",
- nbytes,
- (nbytes == 1) ? "" : "s",
+ ckfstoa(nbytes),
+ (nbytes == (CK_OFF_T)1) ? "" : "s",
endline
);
#endif /* OSK */
debug(F110,"snddir name 1",name,0);
ndirs = 0L;
nfiles = 0L;
- nbytes = 0L;
+ nbytes = (CK_OFF_T)0;
if (zfnqfp(name,CKMAXPATH,fnbuf))
first = 1; /* Init getchx lookahead */
funcstr = 1; /* Just set the flag. */
funcptr = nxtdir; /* And the pointer. */
- rc = sinit();
+ binary = XYFT_T; /* Text mode for this */
+ rc = sinit(); /* 26 Aug 2005 */
debug(F111,"snddir","sinit()",rc);
return(rc);
#else
if (nxpnd == 0) {
sprintf((char *)funcbuf,
- "%s%ld file%s deleted, %ld byte%s freed%s",
+ "%s%ld file%s deleted, %s byte%s freed%s",
endline,
nfiles,
(nfiles == 1) ? "" : "s",
- nbytes,
- (nbytes == 1) ? "" : "s",
+ ckfstoa(nbytes),
+ (nbytes == (CK_OFF_T)1) ? "" : "s",
endline
);
nxpnd--;
}
#endif /* OS2 */
- nfiles = nbytes = 0L;
+ nfiles = 0L;
+ nbytes = (CK_OFF_T)0;
sprintf((char *)funcbuf,"Deleting \"%s\"%s",name,endline);
funcnxt = 0;
funclen = strlen((char *)funcbuf);
bctr = 4;
c_save = -1;
return(1);
+ } else if (*p == '5') {
+ bctr = 3;
+ c_save = -1;
+ return(1);
}
return(0);
case 401: /* Receive packet-length */
+#define FTP_TIMEOUT
+
/* C K C F T P -- FTP Client for C-Kermit */
-char *ckftpv = "FTP Client, 8.0.226, 7 Jan 2004";
+char *ckftpv = "FTP Client, 9.0.260, 14 Jul 2011";
/*
Authors:
Frank da Cruz <fdc@columbia.edu>,
The Kermit Project, Columbia University.
- Copyright (C) 2000, 2004,
+ Copyright (C) 2000, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#include <setret.h>
#endif /* ZILOG */
#include "ckcsig.h"
+#ifdef VMS
+/* 2010-03-09 SMS. VAX C needs help to find "sys". It's easier not to try. */
+#include <stat.h>
+#else /* def VMS */
#include <sys/stat.h>
+#endif /* def VMS [else] */
#include <ctype.h>
-#include <errno.h>
+
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
+#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
+
#ifndef NOTIMEH
#include <time.h>
#endif /* NOTIMEH */
#include "ckctel.h" /* (then why include it again?) */
#include "ckcxla.h"
+#ifdef CK_SSL
+#include "ckuath.h" /* SMS 2007/02/15 */
+#endif /* def CK_SSL */
+
/*
How to get the struct timeval definition so we can call select(). The
xxTIMEH symbols are defined in ckcdeb.h, overridden in various makefile
#endif /* NOSYSTIMEBH */
#endif /* DCLTIMEVAL */
+/* 2010-03-09 SMS. VAX C needs help to find "sys". It's easier not to try. */
+#ifdef VMS
+#include <types.h>
+#else /* def VMS */
#include <sys/types.h>
+#endif /* def VMS [else] */
#include <stdio.h>
#include <string.h>
#ifdef HAVE_STDLIB_H
#endif /* POSIX */
#endif /* COMMENT */
+#ifdef VMS /* SMS 2007/02/15 */
+#include "ckvrtl.h" /* for utime() */
+#else /* def VMS */
#ifdef SYSUTIMEH
#include <sys/utime.h>
#else
#define SYSUTIMEH
#endif /* UTIMEH */
#endif /* SYSUTIMEH */
+#endif /* def VMS */
#endif /* NOSETTIME */
#ifndef SCO_OSR504
#endif /* SELECT_H */
#endif /* SCO_OSR504 */
+#ifndef INADDR_NONE /* 2010-03-29 */
+#define INADDR_NONE -1
+#endif /* INADDR_NONE */
+
/* select() dialects... */
#ifdef UNIX
#define BSDSELECT /* BSD select() syntax/semantics */
+#ifndef FD_SETSIZE
+#define FD_SETSIZE 128
+#endif /* FD_SETSIZE */
+#ifdef HPUX6 /* For HP-UX 6.5 circa 1989 */
+typedef long fd_mask;
+#define NFDBITS (sizeof(fd_mask) * NBBY) /* bits per mask */
+#ifndef howmany
+#define howmany(x, y) (((x)+((y)-1))/(y))
+#endif /* howmany */
+#define FD_SET(n, p) ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
+#define FD_CLR(n, p) ((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
+#define FD_ISSET(n, p) ((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_COPY(f, t) bcopy(f, t, sizeof(*(f)))
+#define FD_ZERO(p) bzero(p, sizeof(*(p)))
+#endif /* HPUX6 */
+
#else
#ifdef OS2 /* OS/2 or Win32 */
#ifdef NT
#endif /* OS2 */
#endif /* UNIX */
+#ifdef VMS
+#define BSDSELECT /* SMS 2007/02/15 */
+#endif /* def VMS */
+
/* Other select() peculiarities */
#ifdef HPUX
#endif /* KRB4 */
#ifdef KRB5
#ifndef HEIMDAL
+#ifndef NOFTP_GSSAPI /* 299 */
#define FTP_GSSAPI
+#endif /* NOFTP_GSSAPI */
#endif /* HEIMDAL */
#endif /* KRB5 */
#endif /* CK_KERBEROS */
#include <gssapi/gssapi_generic.h>
#include <gssapi/gssapi_krb5.h>
static gss_ctx_id_t gcontext;
+
+#ifdef MACOSX
+/** exported constants defined in gssapi_krb5{,_nx}.h **/
+
+/* these are bogus, but will compile */
+
+/*
+ * The OID of the draft krb5 mechanism, assigned by IETF, is:
+ * iso(1) org(3) dod(5) internet(1) security(5)
+ * kerberosv5(2) = 1.3.5.1.5.2
+ * The OID of the krb5_name type is:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * krb5(2) krb5_name(1) = 1.2.840.113554.1.2.2.1
+ * The OID of the krb5_principal type is:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * krb5(2) krb5_principal(2) = 1.2.840.113554.1.2.2.2
+ * The OID of the proposed standard krb5 mechanism is:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * krb5(2) = 1.2.840.113554.1.2.2
+ * The OID of the proposed standard krb5 v2 mechanism is:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * krb5v2(3) = 1.2.840.113554.1.2.3
+ *
+ */
+
+/*
+ * Encoding rules: The first two values are encoded in one byte as 40
+ * * value1 + value2. Subsequent values are encoded base 128, most
+ * significant digit first, with the high bit (\200) set on all octets
+ * except the last in each value's encoding.
+ */
+
+static CONST gss_OID_desc
+ck_krb5_gss_oid_array[] = {
+ /* this is the official, rfc-specified OID */
+ {9, "\052\206\110\206\367\022\001\002\002"},
+ /* this is the unofficial, wrong OID */
+ {5, "\053\005\001\005\002"},
+ /* this is the v2 assigned OID */
+ {9, "\052\206\110\206\367\022\001\002\003"},
+ /* these two are name type OID's */
+ {10, "\052\206\110\206\367\022\001\002\002\001"},
+ {10, "\052\206\110\206\367\022\001\002\002\002"},
+ { 0, 0 }
+};
+
+static
+CONST gss_OID_desc * CONST gss_mech_krb5_v2 = ck_krb5_gss_oid_array+2;
+
+#ifdef MACOSX103
+static
+CONST gss_OID_desc * CONST gss_mech_krb5 = ck_krb5_gss_oid_array+0;
+#endif /* MACOSX103 */
+
+#ifndef MACOSX
+static
+CONST gss_OID_desc * CONST gss_mech_krb5 = ck_krb5_gss_oid_array+0;
+static
+CONST gss_OID_desc * CONST gss_mech_krb5_old = ck_krb5_gss_oid_array+1;
+static
+CONST gss_OID_desc * CONST gss_nt_krb5_name = ck_krb5_gss_oid_array+3;
+static
+CONST gss_OID_desc * CONST gss_nt_krb5_principal = ck_krb5_gss_oid_array+4;
+#endif /* MACOSX */
+
+/*
+ * See krb5/gssapi_krb5.c for a description of the algorithm for
+ * encoding an object identifier.
+ */
+
+/*
+ * The OID of user_name is:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * generic(1) user_name(1) = 1.2.840.113554.1.2.1.1
+ * machine_uid_name:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * generic(1) machine_uid_name(2) = 1.2.840.113554.1.2.1.2
+ * string_uid_name:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * generic(1) string_uid_name(3) = 1.2.840.113554.1.2.1.3
+ * service_name:
+ * iso(1) member-body(2) US(840) mit(113554) infosys(1) gssapi(2)
+ * generic(1) service_name(4) = 1.2.840.113554.1.2.1.4
+ * exported_name:
+ * 1(iso), 3(org), 6(dod), 1(internet), 5(security), 6(nametypes),
+ * 4(gss-api-exported-name)
+ * host_based_service_name (v2):
+ * iso (1) org (3), dod (6), internet (1), security (5), nametypes(6),
+ * gss-host-based-services(2)
+ */
+
+static gss_OID_desc ck_oids[] = {
+ {10, "\052\206\110\206\367\022\001\002\001\001"},
+ {10, "\052\206\110\206\367\022\001\002\001\002"},
+ {10, "\052\206\110\206\367\022\001\002\001\003"},
+ {10, "\052\206\110\206\367\022\001\002\001\004"},
+ { 6, "\053\006\001\005\006\004"},
+ { 6, "\053\006\001\005\006\002"},
+};
+
+static gss_OID ck_gss_nt_user_name = ck_oids+0;
+static gss_OID ck_gss_nt_machine_uid_name = ck_oids+1;
+static gss_OID ck_gss_nt_string_uid_name = ck_oids+2;
+static gss_OID ck_gss_nt_service_name = ck_oids+3;
+static gss_OID ck_gss_nt_exported_name = ck_oids+4;
+static gss_OID ck_gss_nt_service_name_v2 = ck_oids+5;
+#endif /* MACOSX */
#endif /* FTP_GSSAPI */
#ifdef OS2
extern int filepeek, nscanfile, fsecs, xferstat, xfermode, lastxfer, tsecs;
extern int backgrd, spackets, rpackets, spktl, rpktl, xaskmore, cmd_rows;
extern int nolinks, msgflg, keep;
-extern long fsize, ffc, tfc, filcnt, xfsecs, tfcps, cps, oldcps;
+extern CK_OFF_T fsize, ffc, tfc, sendstart, sndsmaller, sndlarger, rs_len;
+extern long filcnt, xfsecs, tfcps, cps, oldcps;
+
+#ifdef FTP_TIMEOUT
+int ftp_timed_out = 0;
+long ftp_timeout = 0;
+#endif /* FTP_TIMEOUT */
+
#ifdef GFTIMER
extern CKFLOAT fptsecs, fpfsecs, fpxfsecs;
#else
extern char sndbefore[], sndafter[], *sndexcept[]; /* Selection criteria */
extern char sndnbefore[], sndnafter[], *rcvexcept[];
extern CHAR feol;
-extern long sendstart, sndsmaller, sndlarger, rs_len;
extern char * remdest;
extern int remfile, remappd, rempipe;
int sav_log = -1;
int ftp_action = 0; /* FTP action from command line */
int ftp_dates = 1; /* Set file dates from server */
+int ftp_xfermode = XMODE_A; /* FTP-specific transfer mode */
char ftp_reply_str[FTP_BUFSIZ] = ""; /* Last line of previous reply */
char ftp_srvtyp[SRVNAMLEN] = { NUL, NUL }; /* Server's system type */
static int typesent = 0;
static int havesigint = 0;
static long havetype = 0;
-static long havesize = -1L;
+static CK_OFF_T havesize = (CK_OFF_T)-1;
static char * havemdtm = NULL;
static int mgetmethod = 0; /* NLST or MLSD */
static int mgetforced = 0;
static int csocket = -1; /* Control socket */
static int connected = 0; /* Connected to FTP server */
-static short ftp_port = 0; /* FTP port */
+/* static unsigned short ftp_port = 0; */ /* FTP port */
+/* static int ftp_port = 0; */ /* SMS 2007/02/15 */
+static int ftp_port = 0; /* fdc 2007/08/30 */
#ifdef FTPHOST
static int hostcmd = 0; /* Has HOST command been sent */
#endif /* FTPHOST */
#define FTP_VDI 36
#define FTP_ENA 37
#define FTP_DIS 38
+#define FTP_REP 39
struct keytab gprtab[] = { /* GET-PUT-REMOTE keywords */
{ "auto", 2, 0 },
{ "quote", FTP_QUO, 0 },
{ "reget", FTP_RGE, 0 },
{ "rename", FTP_REN, 0 },
+ { "reput", FTP_REP, 0 },
+ { "resend", FTP_REP, CM_INV },
{ "reset", FTP_RES, 0 },
{ "rmdir", FTP_RMD, 0 },
{ "send", FTP_PUT, CM_INV },
#define FTS_APW 25 /* Anonymous password */
#define FTS_DIS 26 /* File-transfer display style */
#define FTS_BUG 27 /* Bug(s) */
+#define FTS_TMO 28 /* Timeout */
/* FTP BUGS */
#else
{ "srp", FTS_SRP, CM_INV },
#endif /* FTP_SRP */
+#ifdef FTP_TIMEOUT
+ { "timeout", FTS_TMO, 0 },
+#endif /* FTP_TIMEOUT */
{ "type", FTS_TYP, 0 },
{ "unique-server-names", FTS_USN, 0 },
{ "verbose-mode", FTS_VBM, 0 },
if (t2 > -1L) {
ftplogprev = t2;
p = hhmmss(t2);
- strncat(ftplogbuf,"E=",CXLOGBUFL); /* Append to log record */
- strncat(ftplogbuf,p,CXLOGBUFL);
+ ckstrncat(ftplogbuf,"E=",CXLOGBUFL); /* Append to log record */
+ ckstrncat(ftplogbuf,p,CXLOGBUFL);
} else
ftplogprev = 0L;
debug(F101,"ftp cx log dialog","",dialog);
ckmakxmsg(ftplogbuf,CXLOGBUFL,
ckdate()," ",strval(ftp_logname,NULL)," ",ckgetpid(),
- " T=FTP N=", strval(ftp_host,NULL)," H=",myhost," ",NULL,NULL);
+ " T=FTP N=", strval(ftp_host,NULL)," H=",myhost,
+ " P=", ckitoa(ftp_port)," "); /* SMS 2007/02/15 */
debug(F110,"ftp cx log begin",ftplogbuf,0);
}
#endif /* CKLOGDIAL */
case 'a': /* "ascii" */
case 'b': /* Binary */
binary = (c == 'b') ? FTT_BIN : FTT_ASC;
- xfermode = XMODE_M;
+ ftp_xfermode = XMODE_M;
filepeek = 0;
patterns = 0;
break;
}
static VOID
-ftscreen(n, c, z, s) int n; char c; long z; char * s; {
+ftscreen(n, c, z, s) int n; char c; CK_OFF_T z; char * s; {
if (displa && fdispla && !backgrd && !quiet && !out2screen) {
if (!dpyactive) {
- ckscreen(SCR_PT,'S',0L,"");
+ ckscreen(SCR_PT,'S',(CK_OFF_T)0,"");
dpyactive = 1;
}
ckscreen(n,c,z,s);
if ((x = cmkey(ftptyp,nftptyp,"","",xxstring)) < 0)
return(x);
if ((y = cmcfm()) < 0) return(y);
- ftp_typ = x;
- g_ftp_typ = x;
- tenex = (ftp_typ == FTT_TEN);
+ ftp_typ = x;
+ g_ftp_typ = x;
+ tenex = (ftp_typ == FTT_TEN);
return(1);
case FTS_USN: /* Unique server names */
case FTS_DAT:
return(seton(&ftp_dates)); /* Set file dates */
+#ifdef FTP_TIMEOUT
+ case FTS_TMO: /* Timeout */
+ if ((x = cmnum("Number of seconds","0",10,&z,xxstring)) < 0)
+ return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ ftp_timeout = z;
+ return(success = 1);
+#endif /* FTP_TIMEOUT */
+
case FTS_STO: { /* Server time offset */
char * s, * p = NULL;
- int k;
+ long k;
if ((x = cmfld("[+-]hh[:mm[:ss]]","+0",&s,xxstring)) < 0)
return(x);
if (!strcmp(s,"+0")) {
return(rc);
}
+VOID /* 12 Aug 2007 */
+doftpglobaltype(x) int x; {
+ ftp_xfermode = XMODE_M; /* Set manual FTP transfer mode */
+ ftp_typ = x; /* Used by top-level BINARY and */
+ g_ftp_typ = x; /* ASCII commands. */
+ get_auto = 0;
+ forcetype = 1;
+}
+
int
doftpacct() {
int x;
int
doftpusr() { /* Log in as USER */
+ extern char uidbuf[];
+ extern char pwbuf[];
+ extern int pwflg, pwcrypt;
int x;
char *s, * acct = "";
debok = 0; /* Don't log */
- if ((x = cmfld("Remote username or ID","",&s,xxstring)) < 0)
+
+ if ((x = cmfld("Remote username or ID",uidbuf,&s,xxstring)) < 0)
return(x);
ckstrncpy(line,brstrip(s),LINBUFSIZ); /* brstrip: 15 Jan 2003 */
- if ((x = cmfld("Remote password","",&s,xxstring)) < 0)
- if (x != -3)
- return(x);
- ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
+ if ((x = cmfld("Remote password","",&s,xxstring)) < 0) {
+ if (x == -3) { /* no input */
+ if ( pwbuf[0] && pwflg ) {
+ ckstrncpy(tmpbuf,(char *)pwbuf,TMPBUFSIZ);
+#ifdef OS2
+ if ( pwcrypt )
+ ck_encrypt((char *)tmpbuf);
+#endif /* OS2 */
+ }
+ } else {
+ return(x);
+ }
+ } else {
+ ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
+ }
if ((x = cmtxt("Remote account\n or Enter or CR to confirm the command",
"", &s, xxstring)) < 0)
return(x);
CHECKCONN();
ftp_typ = type;
changetype(ftp_typ,ftp_vbm);
+ debug(F101,"doftptyp changed type","",type);
return(1);
}
/* s y n c d i r -- Synchronizes client & server directories */
-/* Used with recursive PUTs; Returns 0 on failure, 1 on success */
-
-static int cdlevel = 0, cdsimlvl = 0;
+/*
+ Call with:
+ local = pointer to pathname of local file to be sent.
+ sim = 1 for simulation, 0 for real uploading.
+ Returns 0 on failure, 1 on success.
+
+ The 'local' argument is relative to the initial directory of the MPUT,
+ i.e. the root of the tree being uploaded. If the directory of the
+ argument file is different from the directory of the previous file
+ (which is stored in global putpath[]), this routine does the appropriate
+ CWDs, CDUPs, and/or MKDIRs to position the FTP server in the same place.
+*/
+static int cdlevel = 0, cdsimlvl = 0; /* Tree-level trackers */
static int
syncdir(local,sim) char * local; int sim; {
char buf[CKMAXPATH+1];
char tmp[CKMAXPATH+1];
char msgbuf[CKMAXPATH+64];
- char c, * p = local, * s = buf, * q = buf;
+ char c, * p = local, * s = buf, * q = buf, * psep, * ssep;
int i, k = 0, done = 0, itsadir = 0, saveq;
debug(F110,"ftp syncdir local (new)",local,0);
debug(F110,"ftp syncdir putpath (old)",putpath,0);
- itsadir = isdir(local);
+ itsadir = isdir(local); /* Is the local file a directory? */
saveq = quiet;
while ((*s = *p)) { /* Copy the argument filename */
s++;
p++;
}
- if (!itsadir)
- *q = NUL; /* Keep just the path part */
+ if (!itsadir) /* If it's a regular file */
+ *q = NUL; /* keep just the path part */
debug(F110,"ftp syncdir buf",buf,0);
- if (!strcmp(buf,putpath)) { /* Same as for previous file? */
- if (itsadir) { /* It's a directory? */
+ if (!strcmp(buf,putpath)) { /* Same path as previous file? */
+ if (itsadir) { /* This file is a directory? */
if (doftpcwd(local,0)) { /* Try to CD to it */
doftpcdup(); /* Worked - CD back up */
} else if (sim) { /* Simulating... */
} else if (fdispla) {
ckmakmsg(msgbuf,CKMAXPATH,
"WOULD CREATE DIRECTORY",local,NULL,NULL);
- ftscreen(SCR_ST,ST_MSG,0l,msgbuf);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,msgbuf);
}
/* See note above */
return(0);
} else if (!doftpxmkd(local,0)) { /* Can't CD - try to create */
return(0);
- } else {
+ } else { /* Remote directory created OK */
if (fdispla == XYFD_B) {
printf("CREATED DIRECTORY %s\n",local);
} else if (fdispla) {
ckmakmsg(msgbuf,CKMAXPATH+64,
"CREATED DIRECTORY ",local,NULL,NULL);
- ftscreen(SCR_ST,ST_MSG,0l,msgbuf);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,msgbuf);
}
}
}
p = buf; /* New */
s = putpath; /* Old */
- debug(F110,"ftp syncdir A p",p,0);
- debug(F110,"ftp syncdir A s",s,0);
-
- while (*p != NUL && *s != NUL && *p == *s) p++,s++;
+ debug(F110,"ftp syncdir A (old) s",s,0); /* Previous */
+ debug(F110,"ftp syncdir A (new) p",p,0); /* New */
- if (*s == '/' && !*p) s++; /* Don't count initial slash */
+ psep = buf;
+ ssep = putpath;
+ while (*p != NUL && *s != NUL && *p == *s) {
+ if (*p == '/') { psep = p+1; ssep = s+1; }
+ p++,s++;
+ }
+ /*
+ psep and ssep point to the first path segment that differs.
+ We have to do as many CDUPs as there are path segments in ssep.
+ then we have to do as many MKDs and CWDs as there are segments in psep.
+ */
+ s = ssep;
+ p = psep;
- debug(F110,"ftp syncdir B p",p,0);
- debug(F110,"ftp syncdir B s",s,0);
+ debug(F110,"ftp syncdir B (old) s",s,0); /* Previous */
+ debug(F110,"ftp syncdir B (new) p",p,0); /* New */
- /* p and s now point to the leftmost spot where they differ */
+ /* p and s now point to the leftmost spot where the paths differ */
if (*s) { /* We have to back up */
- k = 1; /* How many levels */
- while ((c = *s++)) { /* Count dirseps */
+ k = 1; /* How many levels counting this one */
+ while ((c = *s++)) { /* Count dirseps remaining in prev */
if (c == '/' && *s)
k++;
}
- for (i = 0; i < k; i++) { /* Do that many CDUPs */
- debug(F111,"ftp syncdir up",p,i+1);
+ debug(F101,"ftp syncdir levels up","",k);
+
+ for (i = 1; i <= k; i++) { /* Do that many CDUPs */
+ debug(F111,"ftp syncdir CDUP A",p,i);
+ if (fdispla == XYFD_B)
+ printf(" CDUP\n");
if (sim && cdsimlvl) {
cdsimlvl--;
} else {
if (!*p) /* If we don't have to go down */
goto xcwd; /* we're done. */
}
+#ifdef COMMENT
while (p > buf && *p && *p != '/') /* If in middle of segment */
p--; /* back up to beginning */
if (*p == '/') /* and terminate there */
p++;
+#endif /* COMMENT */
+
+ debug(F110,"ftp syncdir NEW PATH",p,0);
s = p; /* Point to start of new down path. */
while (1) { /* Loop through characters. */
if (!doftpcwd(p,0)) { /* Try to CD to it */
if (sim) {
if (fdispla == XYFD_B) {
- printf("WOULD CREATE DIRECTORY %s\n",local);
+ printf(" WOULD CREATE DIRECTORY %s\n",local);
} else if (fdispla) {
- ckmakmsg(msgbuf,CKMAXPATH,"WOULD CREATE DIRECTORY",
+ ckmakmsg(msgbuf,CKMAXPATH,
+ "WOULD CREATE DIRECTORY",
local,NULL,NULL);
- ftscreen(SCR_ST,ST_MSG,0l,msgbuf);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,msgbuf);
}
cdsimlvl++;
} else {
if (!doftpxmkd(p,0)) { /* Can't CD - try to create */
+ debug(F110,"ftp syncdir mkdir failed",p,0);
/*
Suppose we are executing SEND /RECURSIVE. Locally we have a directory
FOO but the remote has a regular file with the same name. We can't CD
quiet = saveq;
return(0);
}
+ debug(F110,"ftp syncdir mkdir OK",p,0);
if (fdispla == XYFD_B) {
- printf("CREATED DIRECTORY %s\n",p);
+ printf(" CREATED DIRECTORY %s\n",p);
} else if (fdispla) {
ckmakmsg(msgbuf,CKMAXPATH,
"CREATED DIRECTORY ",p,NULL,NULL);
- ftscreen(SCR_ST,ST_MSG,0l,msgbuf);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,msgbuf);
}
if (!doftpcwd(p,0)) { /* Try again to CD */
+ debug(F110,"ftp syncdir CD failed",p,0);
quiet = saveq;
return(0);
}
+ if (fdispla == XYFD_B) printf(" CWD %s\n",p);
+ debug(F110,"ftp syncdir CD OK",p,0);
}
}
cdlevel++;
int x, rc = 0;
#ifdef BSD44
struct timeval tp[2];
-#else
+#else /* def BSD44 */
#ifdef V7
struct utimbuf {
time_t timep[2];
} tp;
-#else
+#else /* def V7 */
#ifdef SYSUTIMEH
#ifdef NT
struct _utimbuf tp;
#else /* NT */
struct utimbuf tp;
#endif /* NT */
-#else
+#else /* def SYSUTIMEH */
+#ifdef VMS
+ struct utimbuf tp;
+#define SYSUTIMEH /* Our utimbuf matches this one. */
+#else /* def VMS */
struct utimbuf {
time_t atime;
time_t mtime;
} tp;
-#endif /* SYSUTIMEH */
-#endif /* V7 */
-#endif /* BSD44 */
+#endif /* def VMS [else] */
+#endif /* def SYSUTIMEH [else] */
+#endif /* def V7 [else] */
+#endif /* def BSD44 [else] */
if (stat(f,&sb) < 0) {
debug(F111,"setmodtime stat failure",f,errno);
if (fc == 0) {
rc = stat(local,&statbuf);
if (rc == 0) { /* Get local file's mod time */
- tmlocal = gmtime(&statbuf.st_mtime); /* Convert to struct tm */
+ /* Convert to struct tm */
+ tmlocal = gmtime((time_t *)&statbuf.st_mtime);
#ifdef DEBUG
if (tmlocal) {
dbtime(local,tmlocal);
#ifdef PATTERNS
/* Automatic type switching? */
- if (xfermode == XMODE_A && patterns && get_auto && !forcetype) {
+ if (ftp_xfermode == XMODE_A && patterns && get_auto && !forcetype) {
int x;
x = matchname(remote,0,servertype);
debug(F111,"ftp getfile matchname",remote,x);
xlate = 0;
#endif /* NOCSETS */
- if (!pipename && (!local || !local[0]))
+ if (!local) local = "";
+ if (!pipename && !*local)
local = remote;
out2screen = !strcmp(local,"-");
ckstrncpy(fullname,local,CKMAXPATH+1);
}
if (!out2screen && displa && fdispla) { /* Screen */
- ftscreen(SCR_FN,'F',(long)pktnum,remote);
- ftscreen(SCR_AN,0,0L,fullname);
+ ftscreen(SCR_FN,'F',(CK_OFF_T)pktnum,remote);
+ ftscreen(SCR_AN,0,(CK_OFF_T)0,fullname);
ftscreen(SCR_FS,0,fsize,"");
}
tlog(F110,ftp_typ ? "ftp get BINARY:" : "ftp get TEXT:", remote, 0);
sec = (t1 - t0) / 1000;
xfsecs = (int)sec;
#endif /* GFTIMER */
+
+#ifdef FTP_TIMEOUT
+ if (ftp_timed_out)
+ rc = -4;
+#endif /* FTP_TIMEOUT */
+
debug(F111,"ftp recvrequest rc",remote,rc);
if (cancelfile || cancelgroup) {
debug(F111,"ftp get canceled",ckitoa(cancelfile),cancelgroup);
- ftscreen(SCR_ST,ST_INT,0l,"");
+ ftscreen(SCR_ST,ST_INT,(CK_OFF_T)0,"");
} else if (rc > 0) {
debug(F111,"ftp get skipped",ckitoa(cancelfile),cancelgroup);
- ftscreen(SCR_ST,ST_SKIP,0l,cmarg);
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)0,cmarg);
} else if (rc < 0) {
switch (ftpcode) {
case -4: /* Network error */
case -2: /* File error */
- ftscreen(SCR_ST,ST_MSG,0l,ck_errstr());
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,ck_errstr());
break;
case -3:
- ftscreen(SCR_ST,ST_MSG,0l,"Failure to make data connection");
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,
+ "Failure to make data connection");
break;
- case -1:
- ftscreen(SCR_ST,ST_INT,0l,""); /* (should be covered above) */
+ case -1: /* (should be covered above) */
+ ftscreen(SCR_ST,ST_INT,(CK_OFF_T)0,"");
break;
default:
- ftscreen(SCR_ST,ST_MSG,0l,&ftp_reply_str[4]);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,&ftp_reply_str[4]);
}
} else { /* Tudo bem */
- ftscreen(SCR_PT,'Z',0L,"");
+ ftscreen(SCR_PT,'Z',(CK_OFF_T)0,"");
if (rc == 0) {
- ftscreen(SCR_ST,ST_OK,0L,""); /* For screen */
+ ftscreen(SCR_ST,ST_OK,(CK_OFF_T)0,""); /* For screen */
makestr(&rrfspec,remote); /* For WHERE command */
makestr(&rfspec,fullname);
}
}
- if (ftp_dates) /* If FTP DATES ON... */
- if (!pipename && !out2screen) /* and it's a real file */
- if (rc < 1 && rc != -3) /* and it wasn't skipped */
- if (connected) /* and we still have a connection */
- if (zchki(local) > -1) { /* and the file wasn't discarded */
- chkmodtime(local,remote,1); /* set local file date */
- debug(F110,"ftp get set date",local,0);
- }
- filcnt++; /* Used by \v(filenum) */
+ if (rc > -1) {
+ if (ftp_dates) /* If FTP DATES ON... */
+ if (!pipename && !out2screen) /* and it's a real file */
+ if (rc < 1 && rc != -3) /* and it wasn't skipped */
+ if (connected) /* and we still have a connection */
+ if (zchki(local) > -1) { /* and the file wasn't discarded */
+ chkmodtime(local,remote,1); /* set local file date */
+ debug(F110,"ftp get set date",local,0);
+ }
+ filcnt++; /* Used by \v(filenum) */
+ }
#ifdef TLOG
if (tralog) {
if (rc > 0) {
tlog(F101," complete, size", "", fsize);
} else if (cancelfile) {
tlog(F100," canceled by user","",0);
+#ifdef FTP_TIMEOUT
+ } else if (ftp_timed_out) {
+ tlog(F100," timed out","",0);
+#endif /* FTP_TIMEOUT */
} else {
tlog(F110," failed:",ftp_reply_str,0);
}
putfile(cx,
local,remote,force,moving,mvto,rnto,srvrn,x_cnv,x_usn,xft,prm,fcs,rcs,flg)
char * local, * remote, * mvto, *rnto, *srvrn;
- int cx, force, moving, x_cnv, x_usn, xft, fcs, rcs, flg;
+ int cx, force, moving, x_cnv, x_usn, xft, fcs, rcs, flg, prm;
/* putfile */ {
ofcs = fcs; /* Save charset args */
orcs = rcs;
- sendstart = 0L;
+ sendstart = (CK_OFF_T)0;
restart = flg & PUT_RES;
if (!remote)
remote = "";
nc = x_cnv;
/* If Transfer Mode is Automatic, determine file type */
- if (xfermode == XMODE_A && filepeek && !pipesend) {
+ if (ftp_xfermode == XMODE_A && filepeek && !pipesend) {
if (isdir(local)) { /* If it's a directory */
k = FT_BIN; /* skip the file scan */
} else {
fullname[CKMAXPATH] = NUL;
if (displa && fdispla) { /* Screen */
- ftscreen(SCR_FN,'F',(long)pktnum,local);
- ftscreen(SCR_AN,0,0L,asname);
+ ftscreen(SCR_FN,'F',(CK_OFF_T)pktnum,local);
+ ftscreen(SCR_AN,0,(CK_OFF_T)0,asname);
ftscreen(SCR_FS,0,fsize,"");
}
#ifdef DOUPDATE
debug(F111,"ftp putfile chkmodtime",asname,mt);
if (mt == 0 && ((flg & PUT_DIF) == 0)) { /* Local is older */
tlog(F110,"ftp put /update SKIP (Older modtime): ",fullname,0);
- ftscreen(SCR_ST,ST_SKIP,SKP_DAT,fullname); /* Skip this one */
+ /* Skip this one */
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)SKP_DAT,fullname);
filcnt++;
return(SKP_DAT);
} else if (mt == 1) { /* Times are equal */
tlog(F110,"ftp put /update SKIP (Equal modtime): ",fullname,0);
- ftscreen(SCR_ST,ST_SKIP,SKP_EQU,fullname); /* Skip it */
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)SKP_EQU,fullname); /* Skip it */
filcnt++;
return(SKP_DAT);
}
if (cancelfile || cancelgroup) {
debug(F111,"ftp put canceled",ckitoa(cancelfile),cancelgroup);
- ftscreen(SCR_ST,ST_INT,0l,"");
+ ftscreen(SCR_ST,ST_INT,(CK_OFF_T)0,"");
} else if (rc > 0) {
debug(F101,"ftp put skipped",local,rc);
- ftscreen(SCR_ST,ST_SKIP,rc,fullname);
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)rc,fullname);
} else if (rc < 0) {
debug(F111,"ftp put error",local,ftpcode);
- ftscreen(SCR_ST,ST_MSG,0L,&ftp_reply_str[4]);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,&ftp_reply_str[4]);
} else {
debug(F111,"ftp put not canceled",ckitoa(displa),fdispla);
- ftscreen(SCR_PT,'Z',0L,"");
+ ftscreen(SCR_PT,'Z',(CK_OFF_T)0,"");
debug(F111,"ftp put ST_OK",local,rc);
- ftscreen(SCR_ST,ST_OK,0L,"");
+ ftscreen(SCR_ST,ST_OK,(CK_OFF_T)0,"");
debug(F110,"ftp put old sfspec",sfspec,0);
makestr(&sfspec,fullname); /* For WHERE command */
debug(F110,"ftp put new sfspec",sfspec,0);
);
if (x < 0)
return(-1);
- /* ftscreen(SCR_ST,ST_MSG,0L,mvto); */
+ /* ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,mvto); */
} else if (rnto) {
char * s = rnto;
);
if (x < 0)
return(-1);
- /* ftscreen(SCR_ST,ST_MSG,0L,s); */
+ /* ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,s); */
}
}
return(rc);
}
+#ifdef FTP_TIMEOUT
+/* fc = 0 for read; 1 for write */
+static int
+check_data_connection(fd,fc) int fd, fc; {
+ int x;
+ struct timeval tv;
+ fd_set in, out, err;
+
+ if (ftp_timeout < 1L)
+ return(0);
+
+ FD_ZERO(&in);
+ FD_ZERO(&out);
+ FD_ZERO(&err);
+ FD_SET(fd,fc ? &out : &in);
+ tv.tv_sec = ftp_timeout; /* Time limit */
+ tv.tv_usec = 0L;
+
+#ifdef INTSELECT
+ x = select(FD_SETSIZE,(int *)&in,(int *)&out,(int *)&err,&tv);
+#else
+ x = select(FD_SETSIZE,&in,&out,&err,&tv);
+#endif /* INTSELECT */
+
+ if (x == 0) {
+#ifdef EWOULDBLOCK
+ errno = EWOULDBLOCK;
+#else
+#ifdef EAGAIN
+ errno = EAGAIN;
+#else
+ errno = 11;
+#endif /* EAGAIN */
+#endif /* EWOULDBLOCK */
+ debug(F100,"ftp check_data_connection TIMOUT","",0);
+ return(-3);
+ }
+ return(0);
+}
+#endif /* FTP_TIMEOUT */
+
/* zzsend - used by buffered output macros. */
static int
if (iscanceled()) /* Check for cancellation */
return(-9);
+
+#ifdef FTP_TIMEOUT
+ ftp_timed_out = 0;
+ if (check_data_connection(fd,1) < 0) {
+ ftp_timed_out = 1;
+ return(-3);
+ }
+#endif /* FTP_TIMEOUT */
+
rc = (!ftpissecure()) ?
send(fd, (SENDARG2TYPE)ucbuf, nout, 0) :
secure_putbuf(fd, ucbuf, nout);
pktnum++;
if (rc > -1 && fdispla != XYFD_B) {
spktl = nout;
- ftscreen(SCR_PT,'D',spackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)spackets,NULL);
}
return(rc);
}
lastxfer = W_FTP|W_SEND;
xferstat = success;
if (dpyactive)
- ftscreen(SCR_TC,0,0L,"");
-
+ ftscreen(status > 0 ? SCR_TC : SCR_CW, 0, (CK_OFF_T)0, "");
if (!stay)
doexit(success ? GOOD_EXIT : BAD_EXIT, -1);
return(success);
int sec = 0;
#endif /* GFTIMER */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
-
+ struct stringint pv[SND_MAX+1]; /* Temporary array for switch values */
success = 0; /* Assume failure */
forcetype = 0; /* No /TEXT or /BINARY given yet */
out2screen = 0; /* Not outputting file to screen */
for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = -1; /* and -1 int values */
+ pv[i].wval = (CK_OFF_T)-1; /* and -1 wide values */
}
if (who == 0) { /* Called with unprefixed command */
switch (cx) {
case XXMSE: mput++; break;
}
} else {
+ if (cx == FTP_REP)
+ pv[SND_RES].ival = 1;
if (cx == FTP_MPU)
mput++;
}
break;
case SND_SMA: /* Smaller / larger than */
- case SND_LAR:
- if (!getval) break;
- if ((x = cmnum("Size in bytes","0",10,&y,xxstring)) < 0)
- goto xputx;
- pv[n].ival = y;
- break;
-
+ case SND_LAR: {
+ CK_OFF_T y;
+ if (!getval) break;
+ if ((x = cmnumw("Size in bytes","0",10,&y,xxstring)) < 0)
+ goto xputx;
+ pv[n].wval = y;
+ break;
+ }
case SND_FIL: /* Name of file containing filenames */
if (!getval) break;
if ((x = cmifi("Name of file containing list of filenames",
} else if (pv[SND_TEN].ival > 0) { /* and /TENEX*/
forcetype = 1;
ftp_typ = FTT_TEN;
- } else if (ftp_cmdlin && xfermode == XMODE_M) {
+ } else if (ftp_cmdlin && ftp_xfermode == XMODE_M) {
forcetype = 1;
ftp_typ = binary;
g_ftp_typ = binary;
/* Not MSEND, MMOVE, /LIST, or /ARRAY */
nfils = sndsrc = -1;
if (!wild) {
- y = zchki(s);
- if (y < 0) {
+ if (zchki(s) < 0) {
printf("?Read access denied - \"%s\"\n", s);
x = -9;
goto xputx;
if (pv[SND_EXC].ival > 0)
makelist(pv[SND_EXC].sval,sndexcept,NSNDEXCEPT);
if (pv[SND_SMA].ival > -1)
- sndsmaller = pv[SND_SMA].ival;
+ sndsmaller = pv[SND_SMA].wval;
if (pv[SND_LAR].ival > -1)
- sndlarger = pv[SND_LAR].ival;
+ sndlarger = pv[SND_LAR].wval;
if (pv[SND_NAM].ival > -1)
x_cnv = pv[SND_NAM].ival;
if (pv[SND_USN].ival > -1)
putflags = 0;
#endif /* PIPESEND */
- tfc = 0L; /* Initialize stats and counters */
+ tfc = (CK_OFF_T)0; /* Initialize stats and counters */
filcnt = 0;
pktnum = 0;
spackets = 0L;
if (x == 0) /* (see gnfile() comments...) */
x = gnferror;
debug(F111,"FTP PUT gnfile",filnam,x);
+ debug(F111,"FTP PUT binary",filnam,binary);
switch (x) {
case 1: /* File to send */
lastxfer = W_FTP|W_SEND;
xferstat = success;
if (dpyactive)
- ftscreen(SCR_TC,0,0L,"");
+ ftscreen(status > 0 ? SCR_TC : SCR_CW, 0, (CK_OFF_T)0, "");
}
for (i = 0; i <= SND_MAX; i++) { /* Free malloc'd memory */
if (pv[i].sval)
mgetforced = 0;
havetype = 0;
- havesize = -1L;
+ havesize = (CK_OFF_T)-1;
makestr(&havemdtm,NULL);
if (ftp_fnc < 0)
cancelfile = 0; /* This file not canceled yet */
s = cmlist[mgetx];
rc = 0; /* Initial return code */
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
if (sizeok) {
x = ftpcmd("SIZE",s,lcs,rcs,ftp_vbm); /* Get remote file's size */
if (x == REPLY_COMPLETE)
- fsize = atol(&ftp_reply_str[4]);
+ fsize = ckatofs(&ftp_reply_str[4]);
}
ckstrncpy(filnam,s,CKMAXPATH); /* For \v(filename) */
debug(F111,"ftp cmdlinget filnam",filnam,fsize);
/* If local file already exists, take collision action */
- x = zchki(s2);
- if (x > -1) {
+ if (zchki(s2) > -1) {
switch (ftp_fnc) {
case XYFX_A: /* Append */
append = 1;
break;
}
case XYFX_D: /* Discard */
- ftscreen(SCR_FN,'F',0L,s);
- ftscreen(SCR_ST,ST_SKIP,SKP_NAM,s);
+ ftscreen(SCR_FN,'F',(CK_OFF_T)0,s);
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)SKP_NAM,s);
tlog(F100," refused: name","",0);
debug(F110,"ftp cmdlinget skip name",s2,0);
goto xclget;
goto xclget;
if (rc < 0) {
ftp_fai++;
+#ifdef FTP_TIMEOUT
+ if (ftp_timed_out)
+ status = 0;
+#endif /* FTP_TIMEOUT */
if (geterror) {
status = 0;
done++;
continue;
}
rc = 0; /* Initial return code */
- if (havesize > -1L) { /* Already have file size? */
+ if (havesize > (CK_OFF_T)-1) { /* Already have file size? */
fsize = havesize;
} else { /* No - must ask server */
/*
of the file, rather than its true size.
*/
changetype(ftp_typ,0); /* Change to requested type */
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
if (sizeok) {
x = ftpcmd("SIZE",s,lcs,rcs,ftp_vbm);
if (x == REPLY_COMPLETE)
- fsize = atol(&ftp_reply_str[4]);
+ fsize = ckatofs(&ftp_reply_str[4]);
}
}
ckstrncpy(filnam,s,CKMAXPATH); /* For \v(filename) */
/* If local file already exists, take collision action */
- x = zchki(s2);
- if (x > -1) {
+ if (zchki(s2) > -1) {
switch (ftp_fnc) {
case XYFX_A: /* Append */
append = 1;
break;
}
case XYFX_D: /* Discard */
- ftscreen(SCR_FN,'F',0L,s);
- ftscreen(SCR_ST,ST_SKIP,SKP_NAM,s);
+ ftscreen(SCR_FN,'F',(CK_OFF_T)0,s);
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)SKP_NAM,s);
tlog(F100," refused: name","",0);
debug(F110,"ftp cmdlinget skip name",s2,0);
continue;
continue;
if (rc < 0) {
ftp_fai++;
+#ifdef FTP_TIMEOUT
+ if (ftp_timed_out)
+ status = 0;
+#endif /* FTP_TIMEOUT */
if (geterror) {
status = 0;
done++;
lastxfer = W_FTP|W_RECV;
xferstat = success;
if (dpyactive)
- ftscreen(SCR_TC,0,0L,"");
+ ftscreen(status > 0 ? SCR_TC : SCR_CW, 0, (CK_OFF_T)0, "");
if (!stay)
doexit(success ? GOOD_EXIT : BAD_EXIT, -1);
return(success);
int moving = 0, deleting = 0, toscreen = 0, haspath = 0;
int gotsize = 0;
int matchdot = 0;
- long getlarger = -1, getsmaller = -1;
+ CK_OFF_T getlarger = (CK_OFF_T)-1;
+ CK_OFF_T getsmaller = (CK_OFF_T)-1;
char * msg, * s, * s2, * nam, * pipename = NULL, * pn = NULL;
char * src = "", * local = "";
char * pat = "";
int sec = 0;
#endif /* GFTIMER */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
+ struct stringint pv[SND_MAX+1]; /* Temporary array for switch values */
success = 0; /* Assume failure */
forcetype = 0; /* No /TEXT or /BINARY given yet */
pipesend = 0;
havetype = 0;
- havesize = -1L;
+ havesize = (CK_OFF_T)-1;
makestr(&havemdtm,NULL);
if (g_ftp_typ > -1) { /* Restore TYPE if saved */
for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = -1; /* and -1 int values */
+ pv[i].wval = (CK_OFF_T)-1; /* and -1 wide values */
}
zclose(ZMFILE); /* In case it was left open */
break;
case SND_SMA: /* Smaller / larger than */
- case SND_LAR:
- if (!getval) break;
- if ((x = cmnum("Size in bytes","0",10,&y,xxstring)) < 0)
- goto xgetx;
- pv[n].ival = y;
- break;
-
+ case SND_LAR: {
+ CK_OFF_T y;
+ if (!getval) break;
+ if ((x = cmnumw("Size in bytes","0",10,&y,xxstring)) < 0)
+ goto xgetx;
+ pv[n].wval = y;
+ break;
+ }
case SND_FIL: /* Name of file containing filnames */
if (!getval) break;
if ((x = cmifi("Name of file containing list of filenames",
} else if (pv[SND_TEN].ival > 0) { /* and /TENEX*/
forcetype = 1;
ftp_typ = FTT_TEN;
- } else if (ftp_cmdlin && xfermode == XMODE_M) {
+ } else if (ftp_cmdlin && ftp_xfermode == XMODE_M) {
forcetype = 1;
ftp_typ = binary;
g_ftp_typ = binary;
/* Set up /MOVE and /RENAME */
+#ifdef COMMENT
+ /* Conflict exists only for PUT - removed 13 Mar 2006 - fdc */
if (pv[SND_DEL].ival > 0 &&
(pv[SND_MOV].ival > 0 || pv[SND_REN].ival > 0)) {
printf("?Sorry, /DELETE conflicts with /MOVE or /RENAME\n");
x = -9;
goto xgetx;
}
+#endif /* COMMENT */
#ifdef CK_TMPDIR
if (pv[SND_MOV].ival > 0 && pv[SND_MOV].sval) {
int len;
deleting = 1;
if (pv[SND_EXC].ival > 0)
makelist(pv[SND_EXC].sval,rcvexcept,NSNDEXCEPT);
- if (pv[SND_SMA].ival > -1)
- getsmaller = pv[SND_SMA].ival;
- if (pv[SND_LAR].ival > -1)
- getlarger = pv[SND_LAR].ival;
+ if (pv[SND_SMA].wval > -1)
+ getsmaller = pv[SND_SMA].wval;
+ if (pv[SND_LAR].wval > -1)
+ getlarger = pv[SND_LAR].wval;
if (pv[SND_NAM].ival > -1)
x_cnv = pv[SND_NAM].ival;
if (pv[SND_ERR].ival > -1)
}
#endif /* PIPESEND */
- tfc = 0L; /* Initialize stats and counters */
+ tfc = (CK_OFF_T)0; /* Initialize stats and counters */
filcnt = 0;
pktnum = 0;
rpackets = 0L;
what = mdel ? W_FTP|W_FT_DELE : W_RECV|W_FTP; /* What we're doing */
cancelgroup = 0; /* Group not canceled yet */
- if (!(xfermode == XMODE_A && patterns && get_auto && !forcetype))
+ if (!(ftp_xfermode == XMODE_A && patterns && get_auto && !forcetype))
changetype(ftp_typ,0); /* Change to requested type */
binary = ftp_typ; /* For file-transfer display */
first = 1; /* For MGET list */
/* do something here if proxy */
#endif /* FTP_PROXY */
- rs_len = 0L; /* REGET position */
+ rs_len = (CK_OFF_T)0; /* REGET position */
cancelfile = 0; /* This file not canceled yet */
haspath = 0; /* Recalculate this each time thru */
);
debug(F110,"ftp mget remote_files C",s,0);
if (!s) {
- ftscreen(SCR_FN,'F',0L,s);
- ftscreen(SCR_ST,ST_MSG,0L,"File not found");
+ ftscreen(SCR_FN,'F',(CK_OFF_T)0,s);
+ ftscreen(SCR_ST,ST_MSG,(CK_OFF_T)0,"File not found");
tlog(F110,"ftp get file not found:",s,0);
goto again;
}
local = *s2 ? s2 : s;
if (!skipthis && x_fnc == XYFX_D) { /* File Collision = Discard */
- int x;
+ CK_OFF_T x;
x = zchki(local);
debug(F111,"ftp get DISCARD zchki",local,x);
if (x > -1) {
/* Initialize file size to -1 in case server doesn't understand */
/* SIZE command, so xxscreen() will know we don't know the size */
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
/* Ask for size now only if we need it for selection */
/* because if you're going thru a list 100,000 files to select */
gotsize = 0;
if (!mdel && !skipthis && /* Don't need size for DELE... */
- (getsmaller > -1L || getlarger > -1L)) {
- if (havesize > -1L) { /* Already have file size? */
+ (getsmaller >= (CK_OFF_T)0 || getlarger >= (CK_OFF_T)0)) {
+ if (havesize >= (CK_OFF_T)0) { /* Already have file size? */
fsize = havesize;
gotsize = 1;
} else { /* No - must ask server */
of the file, rather than its true size.
*/
changetype(ftp_typ,0); /* Change to requested type */
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
if (sizeok) {
x = ftpcmd("SIZE",s,x_csl,x_csr,ftp_vbm);
if (x == REPLY_COMPLETE) {
- fsize = atol(&ftp_reply_str[4]);
+ fsize = ckatofs(&ftp_reply_str[4]);
gotsize = 1;
}
}
}
if (gotsize) {
- if (getsmaller > -1L && fsize >= getsmaller)
+ if (getsmaller >= (CK_OFF_T)0 && fsize >= getsmaller)
skipthis++;
- if (getlarger > -1L && fsize <= getlarger)
+ if (getlarger >= (CK_OFF_T)0 && fsize <= getlarger)
skipthis++;
if (skipthis) {
debug(F111,"ftp get skip size",s,fsize);
}
}
if (skipthis) { /* Skipping this file? */
- ftscreen(SCR_FN,'F',0L,s);
+ ftscreen(SCR_FN,'F',(CK_OFF_T)0,s);
if (msg)
- ftscreen(SCR_ST,ST_ERR,0L,msg);
+ ftscreen(SCR_ST,ST_ERR,(CK_OFF_T)0,msg);
else
- ftscreen(SCR_ST,ST_SKIP,0L,s);
+ ftscreen(SCR_ST,ST_SKIP,(CK_OFF_T)0,s);
continue;
}
if (fp_nml) { /* /NAMELIST only - no transfer */
rc = -1; /* Failure is fatal */
if (geterror) {
status = 0;
- ftscreen(SCR_EM,0,0L,"Directory creation failure");
+ ftscreen(SCR_EM,0,(CK_OFF_T)0,
+ "Directory creation failure");
break;
}
}
pn = NULL;
if (!gotsize && !mdel) { /* Didn't get size yet */
- if (havesize > -1L) { /* Already have file size? */
+ if (havesize > (CK_OFF_T)-1) { /* Already have file size? */
fsize = havesize;
gotsize = 1;
} else { /* No - must ask server */
- fsize = -1L;
+ fsize = (CK_OFF_T)-1;
if (sizeok) {
x = ftpcmd("SIZE",s,x_csl,x_csr,ftp_vbm);
if (x == REPLY_COMPLETE) {
- fsize = atol(&ftp_reply_str[4]);
+ fsize = ckatofs(&ftp_reply_str[4]);
gotsize = 1;
}
}
!rcvfilter &&
#endif /* PIPESEND */
!toscreen) {
+ CK_OFF_T x;
x = zchki(s2);
debug(F111,"ftp get zchki",s2,x);
debug(F111,"ftp get x_fnc",s2,x_fnc);
- if (x > -1 && !restart) {
+ if (x > (CK_OFF_T)-1 && !restart) {
int x = -1;
char * newname = NULL;
debug(F111,"ftp get rename incoming",newname,x);
}
if (x < 0) {
- ftscreen(SCR_EM,0,0L,"Backup/Rename failed");
+ ftscreen(SCR_EM,0,(CK_OFF_T)0,
+ "Backup/Rename failed");
x = 0;
goto xgetx;
}
#ifdef DEBUG
if (deblog) {
debug(F111,"ftp get rc",s,rc);
+ debug(F111,"ftp get ftp_timed_out",s,ftp_timed_out);
debug(F111,"ftp get cancelfile",s,cancelfile);
debug(F111,"ftp get cancelgroup",s,cancelgroup);
debug(F111,"ftp get renaming",s,renaming);
+ debug(F111,"ftp get moving",s,moving);
}
#endif /* DEBUG */
}
? 1 : -1;
tlog(F110, (rc > -1) ?
" deleted" : " failed to delete", s, 0);
- } else if (renaming && rcv_rename && !toscreen) {
+ }
+ if (renaming && rcv_rename && !toscreen) {
char *p; /* Rename downloaded file */
#ifndef NOSPL
char tmpbuf[CKMAXPATH+1];
continue;
if (rc < 0) {
ftp_fai++;
+#ifdef FTP_TIMEOUT
+ debug(F101,"ftp get ftp_timed_out","",ftp_timed_out);
+ if (ftp_timed_out) {
+ status = 0;
+ ftscreen(SCR_EM,0,(CK_OFF_T)0,"GET timed out");
+ }
+#endif /* FTP_TIMEOUT */
if (geterror) {
status = 0;
- ftscreen(SCR_EM,0,0L,"Fatal download error");
+ ftscreen(SCR_EM,0,(CK_OFF_T)0,"Fatal download error");
done++;
}
}
fclose(fp_nml);
fp_nml = NULL;
}
- if (x > -1) { /* Download successful */
+ if (
+#ifdef COMMENT
+ x > -1
+#else
+ success
+#endif /* COMMENT */
+ ) { /* Download successful */
#ifdef GFTIMER
t1 = gmstimer(); /* End time */
sec = (CKFLOAT)((CKFLOAT)(t1 - t0) / 1000.0); /* Stats */
xferstat = success;
}
if (dpyactive)
- ftscreen(SCR_TC,0,0L,"");
+ ftscreen(success > 0 ? SCR_TC : SCR_CW, 0, (CK_OFF_T)0, "");
#ifdef CK_TMPDIR
if (f_tmpdir) { /* If we changed to download dir */
zchdir((char *) savdir); /* Go back where we came from */
int reply;
char * s;
int lcs = -1, rcs = -1;
+ int save_vbm = ftp_vbm;
+
#ifndef NOCSETS
if (ftp_xla) {
lcs = ftp_csl;
CHECKCONN();
ckstrncpy(line,s,LINBUFSIZ);
if (testing) printf(" ftp site \"%s\"...\n",line);
+ if (!ftp_vbm)
+ ftp_vbm = !ckstrcmp("HELP",line,4,0);
if ((reply = ftpcmd("SITE",line,lcs,rcs,ftp_vbm)) == REPLY_PRELIM) {
do {
reply = getreply(0,lcs,rcs,ftp_vbm,0);
} while (reply == REPLY_PRELIM);
}
+ ftp_vbm = save_vbm;
return(success = (reply == REPLY_COMPLETE));
}
if ((x = cmtxt("Remote directory", "", &s, xxstring)) < 0)
return(x);
ckstrncpy(line,s,LINBUFSIZ);
- return(doftpcwd((char *)line,1));
+ s = brstrip(line);
+ return(doftpcwd(s,1));
case XZPWD: /* RPWD */
return(doftppwd());
case XZDEL: /* RDEL */
case FTP_PUT: /* PUT */
case FTP_MPU: /* MPUT */
case FTP_APP: /* APPEND */
+ case FTP_REP: /* REPUT */
return(doftpput(cx,1));
case FTP_PWD: /* PWD */
if ((x = cmtxt("remote filename", "", &s, xxstring)) < 0)
return(x);
CHECKCONN();
- success = remote_files(1,(CHAR *)s,NULL,0) ? 1 : 0;
+ success = remote_files(1,(CHAR *)s,(CHAR *)s,0) ? 1 : 0;
return(success);
case FTP_FEA: /* RFC2389 */
}
int
-shoftp(brief) {
+shoftp(brief) int brief; {
char * s = "?";
int n, x;
case FTT_BIN: s = "binary"; break;
case FTT_TEN: s = "tenex"; break;
}
+#ifdef FTP_TIMEOUT
+ printf(" ftp timeout: %ld\n",ftp_timeout);
+#endif /* FTP_TIMEOUT */
printf(" ftp type: %s\n",s);
printf(" ftp get-filetype-switching: %s\n",showoff(get_auto));
printf(" ftp dates: %s\n",showoff(ftp_dates));
#endif /* NOCSETS */
" /SERVER-RENAME:text",
" Each server source file is to be renamed on the server as indicated",
- " immediately after, but only if, it has arrived succesfully.",
+ " immediately after, but only if, it has arrived successfully.",
" /SMALLER-THAN:number",
" Download only those files smaller than the given number of bytes.",
" /TEXT", /* /ASCII */
" to send the file or files. See HELP FTP MPUT.",
""
};
+static char * fhs_reput[] = { /* REPUT, RESEND */
+ "Syntax: [ FTP ] REPUT [ switches ] filespec [ as-name ]",
+ " Synonym for FTP PUT /RECOVER. Recovers an interrupted binary-mode",
+ " upload from the point of failure if the FTP server supports recovery.",
+ " Synonym: [ FTP ] RESEND. For details see HELP FTP MPUT.",
+ ""
+};
static char * fhs_pwd[] = { /* PWD */
"Syntax: FTP PWD",
" Asks the FTP server to reveal its current working directory.",
return(hmsga(fhs_opt));
case FTP_PUT: /* PUT, SEND */
return(hmsga(fhs_put));
+ case FTP_REP: /* REPUT, RESEND */
+ return(hmsga(fhs_reput));
case FTP_PWD: /* PWD */
return(hmsga(fhs_pwd));
case FTP_QUO: /* QUOTE */
printf(" Establishes the default transfer mode.\n");
printf(" TENEX is used for uploading 8-bit binary files to 36-bit\n");
printf(" platforms such as TENEX and TOPS-20 and for downloading\n");
- printf(" them again.\n\n");
+ printf(" them again. ASCII is a synonym for TEXT. Normally each\n");
+ printf(" file's type is determined automatically from its contents\n"
+ );
+ printf(" or its name; SET FTP TYPE does not prevent that, it only\n");
+ printf(" tells which mode to use when the type can't be determined\n"
+ );
+ printf(" automatically. To completely disable automatic transfer-\n"
+ );
+ printf(" mode switching and force either text or binary mode, give\n"
+ );
+ printf(" the top-level command ASCII or BINARY, as in traditional\n");
+ printf(" FTP clients.\n\n");
return(0);
+#ifdef FTP_TIMEOUT
+ case FTS_TMO:
+ printf("\nSyntax: SET FTP TIMEOUT number-of-seconds\n");
+ printf(" Establishes a timeout for FTP transfers.\n");
+ printf(" The timeout applies per network read or write on the data\n");
+ printf(" connection, not to the whole transfer. By default the\n");
+ printf(" timeout value is 0, meaning no timeout. Use a positive\n");
+ printf(" number to escape gracefully from hung data connections or\n");
+ printf(" directory listings.\n\n");
+ return(0);
+#endif /* FTP_TIMEOUT */
+
#ifdef PATTERNS
case FTS_GFT:
printf("\nSyntax: SET FTP GET-FILETYPE-SWITCHING { ON, OFF }\n");
extern int quitting;
if (!connected)
return(0);
- if (!ftp_vbm && !quiet) printlines = 1;
+ ftp_xfermode = xfermode;
+ if (!ftp_vbm && !quiet)
+ printlines = 1;
ftpcmd("QUIT",NULL,0,0,ftp_vbm);
if (csocket) {
#ifdef CK_SSL
}
} else {
ftp_port = destsp->s_port;
- ftp_port = ntohs(ftp_port);
+ ftp_port = ntohs((unsigned short)ftp_port); /* SMS 2007/02/15 */
}
} else
ftp_port = atoi(service);
if (!connected)
goto fail;
+ ftp_xfermode = xfermode;
+
#ifdef CKLOGDIAL
dologftp();
#endif /* CKLOGDIAL */
break;
kwbuf[i] = s[i];
}
- if (s[i] && s[i] != SP)
+ if (s[i] && s[i] != SP && s[i] != CR && s[i] != LF)
return;
kwbuf[i] = NUL;
/* xlookup requires a full (but case independent) match */
debug(F110,"ftp parsefact mdtm",havemdtm,0);
break;
case FACT_SIZE: /* Size */
- havesize = atol(s);
+ havesize = ckatofs(s);
debug(F101,"ftp parsefact size","",havesize);
break;
case FACT_TYPE: /* Type */
if (initconn()) {
#ifndef NOHTTP
int y = -1;
- debug(F101,"doftpsend","tcp_http_proxy",tcp_http_proxy);
+ /* debug(F101,"doftpsend","tcp_http_proxy",tcp_http_proxy); */
/* If the connection failed and we are using an HTTP Proxy
* and the reason for the failure was an authentication
}
if (*p && *p != CR) { /* Bad number */
debug(F110,"doftpsend2 bad size",ftp_reply_str,0);
- sendstart = 0L;
+ sendstart = (CK_OFF_T)0;
} else if (sendstart > fsize) { /* Remote file bigger than local */
- debug(F110,"doftpsend2 big size",ckltoa(fsize),sendstart);
- sendstart = 0L;
+ debug(F110,"doftpsend2 big size",ckfstoa(fsize),sendstart);
+ sendstart = (CK_OFF_T)0;
}
/* Local is newer */
debug(F111,"doftpsend2 size",ftpsnd.remote,sendstart);
if (chkmodtime(ftpsnd.local,ftpsnd.remote,0) == 2) {
debug(F110,"doftpsend2 date mismatch",ftp_reply_str,0);
- sendstart = 0L; /* Send the whole file */
+ sendstart = (CK_OFF_T)0; /* Send the whole file */
}
}
changetype(ftp_typ,0); /* Change back to appropriate type */
- if (sendstart > 0L) { /* Still restarting? */
+ if (sendstart > (CK_OFF_T)0) { /* Still restarting? */
if (sendstart == fsize) { /* Same size - no need to send */
- debug(F111,"doftpsend2 /restart SKIP",fsize,sendstart);
+ debug(F111,"doftpsend2 /restart SKIP",
+ ckfstoa(fsize),sendstart);
zclose(ZIFILE);
ftpsndret = SKP_RES;
#ifdef NTSIG
sendmode = SM_RESEND;
ftpsnd.cmd = "APPE";
#endif /* COMMENT */
- /* sendstart = 0L; */
+ /* sendstart = (CK_OFF_T)0; */
}
}
#endif /* FTP_RESTART */
x = ftpcmd(ftpsnd.cmd, ftpsnd.remote, ftpsnd.incs, ftpsnd.outcs, ftp_vbm);
debug(F111,"doftpsend2 ftpcode",ftpsnd.cmd,ftpcode);
+ debug(F101,"doftpsend2 ftpcmd","",x);
if (x != REPLY_PRELIM && unique) {
/*
if (ftpsnd.oldintp)
signal(SIGPIPE, ftpsnd.oldintp);
#endif /* SIGPIPE */
+ debug(F101,"doftpsend2 not REPLY_PRELIM","",x);
zclose(ZIFILE);
#ifdef PIPESEND
if (sndfilter)
#endif /* NTSIG */
return;
}
+ debug(F100,"doftpsend2 getting data connection...","",0);
dout = dataconn(ftpsnd.lmode); /* Get data connection */
+ debug(F101,"doftpsend2 dataconn","",dout);
if (dout == -1) {
failftpsend2(threadinfo);
#ifdef NTSIG
return;
}
/* Initialize per-file stats */
- ffc = 0L; /* Character counter */
+ ffc = (CK_OFF_T)0; /* Character counter */
cps = oldcps = 0L; /* Thruput */
+ n = 0;
#ifdef GFTIMER
rftimer(); /* reset f.p. timer */
#endif /* GFTIMER */
#ifdef SIGPIPE
ftpsnd.oldintp = signal(SIGPIPE, SIG_IGN);
#endif /* SIGPIPE */
+ debug(F101,"doftpsend2 curtype","",curtype);
switch (curtype) {
case FTT_BIN: /* Binary mode */
case FTT_TEN:
errno = d = 0;
+#ifdef VMS
+ /*
+ This is because VMS zxin() is C-Library fread()
+ but the file was opened with zopeni(), which is RMS.
+ */
+ while (((c = zminchar()) > -1) && !cancelfile) {
+ ffc++;
+ if (zzout(dout,c) < 0)
+ break;
+ }
+#else /* VMS */
while ((n = zxin(ZIFILE,buf,FTP_BUFSIZ - 1)) > 0 && !cancelfile) {
ftpsnd.bytes += n;
ffc += n;
debug(F111,"doftpsend2 zxin",ckltoa(n),ffc);
- hexdump("doftpsend2 zxin",buf,16);
+ ckhexdump("doftpsend2 zxin",buf,16);
#ifdef CK_SSL
if (ssl_ftp_data_active_flag) {
for (bufp = buf; n > 0; n -= d, bufp += d) {
pktnum++;
if (fdispla != XYFD_B) {
spktl = d;
- ftscreen(SCR_PT,'D',spackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)spackets,NULL);
}
}
} else {
pktnum++;
if (fdispla != XYFD_B) {
spktl = d;
- ftscreen(SCR_PT,'D',spackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)spackets,NULL);
}
}
#ifdef CK_SSL
if (d <= 0)
break;
}
+#endif /* VMS */
+
+ debug(F111,"doftpsend2 XX zxin",ckltoa(n),ffc);
if (n < 0)
fprintf(stderr, "local: %s: %s\n", ftpsnd.local, ck_errstr());
if (d < 0 || (d = secure_flush(dout)) < 0) {
pipesend = 1; /* set this for open and i/o */
#endif /* PIPESEND */
- if (openi(local) == 0) /* Try to open the input file */
- return(-1);
+#ifdef VMS
+ debug(F101,"XXX before openi binary","",binary);
+ debug(F101,"XXX before openi ftp_typ","",ftp_typ);
+#endif /* VMS */
+ if (openi(local) == 0) /* Try to open the input file */
+ return(-1);
+
+#ifdef VMS
+ debug(F101,"XXX after openi binary","",binary);
+ debug(F101,"XXX after openi ftp_typ","",ftp_typ);
+ if (!forcetype) {
+ if (binary != ftp_typ) { /* VMS zopeni() sets binary */
+ debug(F101,"XXX changing type","",binary);
+ doftptyp(binary);
+ debug(F101,"XXX after doftptyp","",ftp_typ);
+
+ /* **** */
+ if (displa && fdispla) { /* Update file type display */
+ ftscreen(SCR_FN,'F',(CK_OFF_T)0,local);
+ }
+ }
+ }
+#endif /* VMS */
ftpsndret = 0;
ftpsnd.incs = incs;
ftpsnd.outcs = outcs;
char * lmode;
char * pipename;
int tcrflag;
- long localsize;
+ CK_OFF_T localsize;
};
static struct xx_ftprecv ftprecv;
return;
}
cancel_remote(ftprecv.din);
+
+#ifdef FTP_TIMEOUT
+ if (ftp_timed_out && out2screen && !quiet)
+ printf("\n?Timed out.\n");
+#endif /* FTP_TIMEOUT */
+
if (ftpcode > -1)
ftpcode = -1;
if (data >= 0) {
#endif /* CK_ANSIC */
{
register int c, d;
- long bytes = 0L;
+ CK_OFF_T bytes = (CK_OFF_T)0;
int bare_lfs = 0;
int blksize = 0;
ULONG start = 0L, stop;
#endif /* CK_URL */
extern int adl_ask;
+#ifdef FTP_TIMEOUT
+ ftp_timed_out = 0;
+#endif /* FTP_TIMEOUT */
+
ftprecv.din = -1;
#ifdef NTSIG
if (threadinfo) { /* Thread local storage... */
#endif /* CK_LOGIN */
if (ftprecv.recover) { /* Initiate recovery */
- x = ftpcmd("REST",ckltoa(ftprecv.localsize),-1,-1,ftp_vbm);
+ x = ftpcmd("REST",ckfstoa(ftprecv.localsize),-1,-1,ftp_vbm);
debug(F111,"ftp reply","REST",x);
if (x == REPLY_CONTINUE) {
ftprecv.lmode = "ab";
}
debug(F111,"ftp get rcvbufsiz",ftprecv.local,rcvbufsiz);
- ffc = 0L; /* Character counter */
+ ffc = (CK_OFF_T)0; /* Character counter */
cps = oldcps = 0L; /* Thruput */
start = gmstimer(); /* Start time (msecs) */
#ifdef GFTIMER
bytes += c;
ffc += c;
}
+#ifdef FTP_TIMEOUT
+ if (c == -3) {
+ debug(F100,"ftp recvrequest timeout","",0);
+ bytes = (CK_OFF_T)-1;
+ ftp_timed_out = 1;
+ ftpcode = -3;
+ } else
+#endif /* FTP_TIMEOUT */
if (c < 0) {
debug(F111,"ftp recvrequest errno",ckitoa(c),errno);
if (c == -1 && errno != EPIPE)
if ((!dpyactive || ftp_deb))
perror("netin");
- bytes = -1;
+ bytes = (CK_OFF_T)-1;
ftpcode = -4;
}
if (d < c) {
#endif /* NOCSETS */
while (1) {
c = secure_getc(ftprecv.din,0);
- if (cancelfile) {
+ if (cancelfile
+#ifdef FTP_TIMEOUT
+ || ftp_timed_out
+#endif /* FTP_TIMEOUT */
+ ) {
failftprecv2(threadinfo);
#ifdef NTSIG
ckThreadEnd(threadinfo);
printf("File might not have transferred correctly.\n");
}
if (ftprecv.din == -1) {
- bytes = -1;
+ bytes = (CK_OFF_T)-1;
}
if (c == -2)
- bytes = -1;
+ bytes = (CK_OFF_T)-1;
break;
#ifndef NOCSETS
}
}
#endif /* DEBUG */
- ftprecv.localsize = 0L;
+ ftprecv.localsize = (CK_OFF_T)0;
if (remfile) { /* See remcfm(), remtxt() */
if (rempipe) {
}
#endif /* COMMENT */
- ftprecv.localsize = 0L; /* Local file size */
- rs_len = 0L; /* Recovery point */
+ ftprecv.localsize = (CK_OFF_T)0; /* Local file size */
+ rs_len = (CK_OFF_T)0; /* Recovery point */
debug(F101,"ftp recvrequest recover","",recover);
if (recover) { /* Recovering... */
ftprecv.oldintr = signal(SIGINT, cancelrecv);
if (cc_execute(ckjaddr(recvcancel), doftprecv, failftprecv) < 0)
return -1;
+
+#ifdef FTP_TIMEOUT
+ debug(F111,"ftp recvrequest ftprecvret",remote,ftprecvret);
+ debug(F111,"ftp recvrequest ftp_timed_out",remote,ftp_timed_out);
+ if (ftp_timed_out)
+ ftprecvret = -1;
+#endif /* FTP_TIMEOUT */
+
if (ftprecvret < 0)
return -1;
*q = '\0';
hisctladdr.sin_addr.s_addr = inet_addr(host);
- if (hisctladdr.sin_addr.s_addr != -1) {
+ if (hisctladdr.sin_addr.s_addr != INADDR_NONE) /* 2010-03-29 */
+ {
debug(F110,"initconn A",host,0);
hisctladdr.sin_family = AF_INET;
} else {
return(-1);
} else {
if (!out2screen && displa && fdispla) {
- ftscreen(SCR_TC,0,0L,"Display canceled");
+ ftscreen(SCR_TC,0,(CK_OFF_T)0,"Display canceled");
/* fdispla = XYFD_B; */
}
}
} else {
if (!out2screen && displa && fdispla == XYFD_C) {
- ftscreen(SCR_TC,0,0L,"Display canceled");
+ ftscreen(SCR_TC,0,(CK_OFF_T)0,"Display canceled");
/* fdispla = XYFD_B; */
}
#ifdef FTP_SECURITY
#ifdef FTP_GSSAPI
+#ifdef COMMENT
+/* ck_gss_mech_krb5 is not declared anywhere */
+struct {
+ CONST gss_OID_desc * CONST * mech_type;
+ char *service_name;
+} gss_trials[] = {
+ { &ck_gss_mech_krb5, "ftp" },
+ { &ck_gss_mech_krb5, "host" },
+};
+#else
+/* This matches what is declared above */
struct {
CONST gss_OID_desc * CONST * mech_type;
char *service_name;
{ &gss_mech_krb5, "ftp" },
{ &gss_mech_krb5, "host" },
};
+#endif /* COMMENT */
+
int n_gss_trials = sizeof(gss_trials)/sizeof(gss_trials[0]);
#endif /* FTP_GSSAPI */
debtim = 1;
#endif /* DEBUG */
+ debug(F111,"ftp_hookup",host,port);
+
#ifndef NOHTTP
if (tcp_http_proxy) {
struct servent *destsp;
}
memset((char *)&hisctladdr, 0, sizeof (hisctladdr));
hisctladdr.sin_addr.s_addr = inet_addr(host);
- if (hisctladdr.sin_addr.s_addr != -1) {
+ if (hisctladdr.sin_addr.s_addr != INADDR_NONE) /* 2010-03-29 */
+ {
debug(F110,"ftp hookup A",hostname,0);
hisctladdr.sin_family = AF_INET;
ckstrncpy(hostnamebuf, hostname, MAXHOSTNAMELEN);
}
hisctladdr.sin_port = htons(cport);
errno = 0;
+
+#ifdef COMMENT
+ printf("hisctladdr=%d\n",sizeof(hisctladdr));
+ printf("hisctladdr.sin_addr=%d\n",sizeof(hisctladdr.sin_addr));
+ printf("sockaddr_in=%d\n",sizeof(struct sockaddr_in));
+ printf("hisctladdr.sin_addr.s_addr=%d\n",sizeof(hisctladdr.sin_addr.s_addr));
+#endif /* COMMENT */
+
#ifdef HADDRLIST
debug(F100,"ftp hookup HADDRLIST","",0);
while
if (servertype == SYS_UNIX && proxy) unix_proxy = 1;
#endif /* FTP_PROXY */
- if (ftp_cmdlin && xfermode == XMODE_M)
+ if (ftp_cmdlin && ftp_xfermode == XMODE_M)
ftp_typ = binary; /* Type given on command line */
else /* Otherwise set it automatically */
ftp_typ = alike ? FTT_BIN : FTT_ASC;
if (ftp_deb)
printf("[%s]\n",(char *)buf);
- havesize = -1L; /* Initialize file facts... */
- havetype = -0;
+ havesize = (CK_OFF_T)-1; /* Initialize file facts... */
+ havetype = 0;
makestr(&havemdtm,NULL);
p = (char *)buf;
if (rc > -1 && len > 0 && fdispla != XYFD_B) {
spackets++;
spktl = len;
- ftscreen(SCR_PT,'D',spackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)spackets,NULL);
}
return(rc);
}
{
int ret;
+#ifdef FTP_TIMEOUT
+ ftp_timed_out = 0;
+ if (check_data_connection(fd,1) < 0) {
+ ftp_timed_out = 1;
+ return(-3);
+ }
+#endif /* FTP_TIMEOUT */
+
if (!ftpissecure()) {
if (nout > 0) {
if ((ret = send(fd, (SENDARG2TYPE)ucbuf, nout, 0)) < 0)
return(0);
}
+
/* fc = 0 means to get a byte; nonzero means to initialize buffer pointers */
static int
if (nin == 0) {
if (iscanceled())
return(-9);
+
+#ifdef FTP_TIMEOUT
+ if (check_data_connection(fd,0) < 0)
+ return(-3);
+#endif /* FTP_TIMEOUT */
+
#ifdef CK_SSL
if (ssl_ftp_data_active_flag) {
int count, error;
count = SSL_read(ssl_ftp_data_con, ucbuf, ucbufsiz);
error = SSL_get_error(ssl_ftp_data_con,count);
+#ifdef DEBUG
+ if (error != SSL_ERROR_NONE)
+ debug(F101,"ftp secure_getbyte error","",error);
+ if (count == 0)
+ debug(F101,"ftp secure_getbyte count","",count);
+#endif /* DEBUG */
switch (error) {
case SSL_ERROR_NONE:
- nin = bufp = count;
- rpackets++;
- pktnum++;
- if (fdispla != XYFD_B) {
- rpktl = count;
- ftscreen(SCR_PT,'D',rpackets,NULL);
- }
- break;
+ if (count > 0) {
+ nin = bufp = count;
+ rpackets++;
+ pktnum++;
+ if (fdispla != XYFD_B) {
+ rpktl = count;
+ ftscreen(SCR_PT,'D',(CK_OFF_T)rpackets,NULL);
+ }
+ break;
+ }
case SSL_ERROR_WANT_WRITE:
case SSL_ERROR_WANT_READ:
case SSL_ERROR_SYSCALL:
pktnum++;
if (fdispla != XYFD_B) {
rpktl = nin;
- ftscreen(SCR_PT,'D',rpackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)rpackets,NULL);
}
}
}
* c>=0 on success (character value)
* -1 on EOF
* -2 on security error
+ * -3 on timeout (if built with FTP_TIMEOUT defined)
*/
static int
secure_getc(fd,fc) int fd,fc; { /* file descriptor, function code */
+
if (!ftpissecure()) {
static unsigned int nin = 0, bufp = 0;
if (fc) {
if (nin == 0) {
if (iscanceled())
return(-9);
+
+#ifdef FTP_TIMEOUT
+ if (check_data_connection(fd,0) < 0) {
+ debug(F100,"secure_getc TIMEOUT","",0);
+ nin = bufp = 0;
+ ftp_timed_out = 1;
+ return(-3);
+ }
+#endif /* FTP_TIMEOUT */
+
nin = bufp = recv(fd,(char *)ucbuf,actualbuf,0);
- if (nin <= 0) {
+ if ((nin == 0) || (nin == (unsigned int)-1)) {
debug(F111,"secure_getc recv errno",ckitoa(nin),errno);
debug(F101,"secure_getc returns EOF","",EOF);
nin = bufp = 0;
return(EOF);
}
debug(F101,"ftp secure_getc recv","",nin);
- hexdump("ftp secure_getc recv",ucbuf,16);
+ ckhexdump("ftp secure_getc recv",ucbuf,16);
rpackets++;
pktnum++;
if (fdispla != XYFD_B) {
rpktl = nin;
- ftscreen(SCR_PT,'D',rpackets,NULL);
+ ftscreen(SCR_PT,'D',(CK_OFF_T)rpackets,NULL);
}
}
return(ucbuf[bufp - nin--]);
if (!i)
c = 0;
return(i);
+#ifdef FTP_TIMEOUT
+ case -3:
+ debug(F101,"ftp secure_read timeout","",c);
+ return(c);
+#endif /* FTP_TIMEOUT */
default:
buf[i++] = c;
}
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
_PROTOTYP( int z_out, (int, char *, int, int) );
_PROTOTYP( int z_in, (int, char *, int, int, int) );
_PROTOTYP( int z_flush, (int) );
-_PROTOTYP( int z_seek, (int, long) );
-_PROTOTYP( int z_line, (int, long) );
+_PROTOTYP( int z_seek, (int, CK_OFF_T) );
+_PROTOTYP( int z_line, (int, CK_OFF_T) );
_PROTOTYP( int z_getmode, (int) );
_PROTOTYP( int z_getfnum, (int) );
-_PROTOTYP( long z_getpos, (int) );
-_PROTOTYP( long z_getline, (int) );
-_PROTOTYP( long z_count, (int, int) );
+_PROTOTYP( CK_OFF_T z_getpos, (int) );
+_PROTOTYP( CK_OFF_T z_getline, (int) );
+_PROTOTYP( CK_OFF_T z_count, (int, int) );
_PROTOTYP( char * z_getname, (int) );
_PROTOTYP( char * ckferror, (int) );
#endif /* CKCHANNELIO */
_PROTOTYP( int scanfile, (char *, int *, int) );
+_PROTOTYP( int scanstring, (char *) );
/* Buffered file i/o ... */
#ifdef OS2 /* K-95 */
#define xxscreen(a,b,c,d)
#define ckscreen(a,b,c,d)
#else
-_PROTOTYP( VOID ckscreen, (int, char, long, char *) );
+_PROTOTYP( VOID ckscreen, (int, char, CK_OFF_T, char *) );
#ifdef VMS
#define xxscreen(a,b,c,d) \
if (local && fdispla != XYFD_N) \
-ckscreen((int)a,(char)b,(long)c,(char *)d)
+ckscreen((int)a,(char)b,(CK_OFF_T)c,(char *)d)
#else
#define xxscreen(a,b,c,d) \
if (local && !backgrd && fdispla != XYFD_N) \
-ckscreen((int)a,(char)b,(long)c,(char *)d)
+ckscreen((int)a,(char)b,(CK_OFF_T)c,(char *)d)
#endif /* VMS */
#endif /* NODISPLAY */
#define SCR_QE 14 /* quantity equals (e.g. "foo: 7") */
#define SCR_CW 15 /* close screen window */
#define SCR_CD 16 /* display current directory */
+#define SCR_MS 17 /* message from client */
/* Skip reasons */
_PROTOTYP( int doxarg, (char **, int) );
_PROTOTYP( VOID usage, (void) );
_PROTOTYP( VOID doclean, (int) );
-_PROTOTYP( int sndhlp, () );
+_PROTOTYP( int sndhlp, (void) );
_PROTOTYP( int sndstring, (char *) );
_PROTOTYP( VOID ckhost, (char *, int) );
_PROTOTYP( int gettcs, (int, int) );
_PROTOTYP( int fileselect, (char *,
char *, char *, char *, char *,
- long, long,
+ CK_OFF_T, CK_OFF_T,
int, int,
char **) );
-
-
_PROTOTYP( char * whoami, (void) );
_PROTOTYP( int shoesc, (int) );
_PROTOTYP(int uq_file, (char *,char *,int,char **,char *,char *,int));
#ifdef CK_URL
+struct urlopt {
+ char * nam;
+ char * val;
+};
+#define MAX_URL_OPTS 16
struct urldata {
char * sav; /* The URL itself */
char * svc; /* Service */
char * hos; /* Host */
char * por; /* Port */
char * pth; /* Path */
+ int nopts; /* number of options */
+ struct urlopt opt[MAX_URL_OPTS]; /* options */
};
_PROTOTYP(int urlparse, (char *, struct urldata *));
#endif /* CK_URL */
-char * cklibv = "C-Kermit library, 8.0.033, 16 Mar 2003";
+char * cklibv = "C-Kermit library, 9.0.052, 29 Jun 2011";
#define CKCLIB_C
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1999, 2004,
+ Copyright (C) 1999, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
ckuitoa() - Converts unsigned int to string.
ckltoa() - Converts long to string.
ckultoa() - Converts unsigned long to string.
+ ckfstoa() - Converts off_t-type integer (long or long long) to string.
+ ckatofs() - Converts a numeric string to an off_t-type integer.
ckctoa() - Converts char to string.
ckmakmsg() - Constructs a message from 4 source strings.
ckmakxmsg() - Constructs a message from 12 source strings.
chknum() - Checks if string is a (possibly signed) integer.
rdigits() - Checks if string is composed only of decimal digits.
isfloat() - Checks if string is a valid floating-point number.
+ ckround() - Rounds a floating-point number to desired precision.
parnam() - Returns parity name string.
hhmmss() - Converts seconds to hh:mm:ss string.
lset() - Write fixed-length field left-adjusted into a record.
ulongtohex() - Converts an unsigned long to a hex string.
hextoulong() - Converts a hex string to an unsigned long.
cksplit() - Splits a string into an array of words.
+ ispattern() - Tells if argument string is a pattern.
Prototypes are in ckclib.h.
s1--; /* (back up over NUL) */
i = 0;
- s2 = src;
+ s2 = (char *)src;
while (*s2++) i++; /* i = strlen(src); */
if (i > (len-j))
strncpy(&dest[j],src,i);
#else
j = i; /* This should be a bit faster... */
- s2 = src; /* depends on strcpy implementation; */
+ s2 = (char *)src; /* depends on strcpy implementation; */
while ((*s1++ = *s2++) && j--) /* at least it shouldn't be slower. */
;
dest[len-1] = NUL; /* In case of early exit. */
char *s;
char *p, *a[12];
+
if (!buf) return(n); /* No destination */
if (len < 1) return(n); /* No size */
#else
ckultoa(n) unsigned long n;
#endif /* CK_ANSIC */
-/* ckltoa */ {
+/* ckultoa */ {
char buf[32]; /* Internal working buffer */
char * p, * s, * q;
int k, x, len = 0;
}
+/* C K F S T O A -- File Size (or offset) to string */
+
+/* This is just like ckltoa() except for the data type of the argument. */
+/* It's mainly for printing file sizes without having to know their data */
+/* type, so we don't have to hardware "%ld" or "%lld" into printf()s. */
+/* Works for 32 or 64 bits, according to CK_OFF_T definition. */
+
+char *
+#ifdef CK_ANSIC
+ckfstoa(CK_OFF_T n)
+#else
+ckfstoa(n) CK_OFF_T n;
+#endif /* CK_ANSIC */
+/* ckfstoa */ {
+ char buf[32]; /* Internal working buffer */
+ char * p, * s, * q;
+ int k, x, len = 0, sign = 0;
+
+ if (n < (CK_OFF_T)0) { /* Sign */
+ n = (CK_OFF_T)0 - n;
+ sign = 1;
+ }
+ buf[31] = NUL; /* 2^63-1 is about 20 decimal digits */
+ for (k = 30; k > 0; k--) { /* Convert number to string */
+ x = n % (CK_OFF_T)10;
+ if (x < 0) {
+ /* x += 10; */
+ ckstrncpy(&buf[23],"OVERFLOW",32);
+ sign = 0;
+ k = 23;
+ break;
+ }
+ buf[k] = x + '0';
+ n = n / (CK_OFF_T)10;
+ if (!n)
+ break;
+ }
+ if (sign) buf[--k] = '-'; /* Add sign if necessary */
+ len = 31 - k;
+ if (len + numbp > NUMBUF)
+ numbp = 0;
+ p = numbuf + numbp;
+ q = p;
+ s = buf + k;
+ while ((*p++ = *s++)) ; /* Copy */
+ *p++ = NUL;
+ numbp += len+1;
+ return(q); /* Return pointer */
+}
+
+/* C K A T O F S -- String to File Size (or offset) */
+
+/* This is the inverse of ckfstoa(), a replacement for atol() that works */
+/* for either 32-bit or 64-bit arguments, according to CK_OFF_T definition. */
+/* Like atol(), there is no error indication. */
+
+CK_OFF_T
+#ifdef CK_ANSIC
+ckatofs(char * s)
+#else
+ckatofs(s) char * s;
+#endif /* CK_ANSIC */
+/* ckatofs */ {
+ CK_OFF_T result = (CK_OFF_T)0;
+ int minus = 0;
+ while (*s && (*s == SP || *s == HT)) s++;
+ if (*s == '+') s++;
+ if (*s == '-') {
+ minus = 1;
+ s++;
+ }
+ while (isdigit(*s)) {
+ result = (result * (CK_OFF_T)10) + (CK_OFF_T)(*s - '0');
+ s++;
+ }
+ return(minus ? -result : result);
+}
+
/* C K I T O A -- Int to string -- FOR DISCIPLINED USE ONLY */
char *
#else
/* New version handles braces and doublequotes */
+/* WARNING: this function writes into its argument, it always has. */
char *
brstrip(p) char *p; {
regular expression it matches any string of zero or more a's followed by
one b. Regular expressions are especially useful in matching strings of
(say) digits, or letters, e.g. "[0-9]*" matches any string of digits.
+ So far, Kermit doesn't do this.
*/
static char * mypat = NULL; /* For rewriting pattern */
static int matchpos = 0;
#define MATCHRETURN(x,y) { rc=y; where=x; goto xckmatch; }
static char * lastpat = NULL;
+static int xxflag = 0; /* Global bailout flag for ckmatch() */
+
+int
+ispattern(s) char * s; {
+ int quote = 0, sbflag = 0, sb = 0, cbflag = 0, cb = 0;
+
+ char c = 0;
+ if (*s == '^') return(1);
+ while ((c = *s++)) {
+ if (quote) {
+ quote = 0;
+ continue;
+ }
+ if (c == '\\') {
+ quote = 1;
+ continue;
+ }
+ if (c == '*') return(1);
+ if (c == '?') return(1);
+ /* Unquoted brackets or braces must match */
+ if (c == '[') { sbflag++; sb++; continue; }
+ if (c == ']') { sb--; continue; }
+ if (c == '{') { cbflag++; cb++; continue; }
+ if (c == '}') { cb--; continue; }
+ if (!*s && c == '$') return(1);
+ }
+ return(sbflag || cbflag);
+}
+
int
ckmatch(pattern, string, icase, opts) char *pattern,*string; int icase, opts; {
int q = 0, i = 0, k = -1, x, flag = 0;
int rc = 0; /* Return code */
+ int havestar = 0;
int where = -1;
CHAR cp; /* Current character from pattern */
CHAR cs; /* Current character from string */
+ char * patstart; /* Start of pattern */
int plen, dot, globbing, xstar = 0;
int bronly = 0; /* Whole pattern is {a,b,c,...} */
if (!string) string = "";
if (!pattern) pattern = "";
+
if (!*pattern) { /* Empty pattern matches anything */
matchdepth++; /* (it wasn't incremented yet) */
MATCHRETURN(0,1);
+ } else if (!*string) {
+ MATCHRETURN(0,0);
}
+ patstart = pattern; /* Remember beginning of pattern */
+
if (matchdepth == 0) { /* Top-level call? */
+ xxflag = 0;
stringpos = 0; /* Reset indices etc. */
matchpos = 0;
matchend = 0;
if (*pattern == '{') /* Entire pattern is {a,b.c} */
bronly = 1; /* Maybe */
dot = (opts & 1) || /* Match leading dot (if file) */
- (opts & 2 == 0) || /* always if not file */
+ ((opts & 2) == 0) || /* always if not file */
(pattern[0] == '.'); /* or if pattern starts with '.' */
plen = strlen(pattern); /* Length of pattern */
}
debug(F110,"CKMATCH ? pat",pattern,0);
debug(F110,"CKMATCH ? str",string,0);
- pattern++, string++;
+ pattern++;
+ string++;
stringpos++;
continue;
#ifdef CKREGEX
char * psave = NULL; /* and backup pointer */
CHAR clist[256]; /* Character list from brackets */
CHAR c, c1, c2;
+
for (i = 0; i < 256; i++) /* memset() etc not portable */
clist[i] = NUL;
psave = ++pattern; /* Where pattern starts */
debug(F111,"CKMATCH [] ",pattern-1, matchpos);
for (flag = 0; !flag; pattern++) { /* Loop thru pattern */
c = (CHAR)*pattern; /* Current char */
+ debug(F000,">>> pattern char","",c);
if (q) { /* Quote within brackets */
q = 0;
clist[c] = 1;
continue;
}
}
- if (!clist[(unsigned)cs]) { /* Match? */
- MATCHRETURN(5,0); /* Nope, done. */
+ debug(F000,">>> cs","",cs);
+ debug(F101,">>> clist[cs]","",clist[cs]);
+ debug(F000,">>> string",string,*string);
+
+ if (!clist[(unsigned)cs]) { /* No match? */
+ if (!*string) { /* This clause 16 Jun 2005 */
+ MATCHRETURN(5,0); /* Nope, done. */
+ }
+/*
+ We need to fail here if the [clist] is not allowed to float.
+ The [clist] is not allowed to float if it is not preceded
+ by an asterisk, right? 30 Dec 2005.
+*/
+ if (!havestar) {
+ MATCHRETURN(500,0);
+ }
+ string++; /* From here to end added 2005/6/15 */
+ stringpos++;
+ pattern = lastpat; /* Back up pattern */
+ k = ckmatch(pattern,string,icase,opts);
+ if (xxflag) MATCHRETURN(0,0);
+ if (!matchpos && k > 0)
+ matchpos = stringpos;
+ MATCHRETURN(5, (*string) ? matchpos : 0);
}
if (!matchpos) {
matchpos = stringpos;
#endif /* DEBUG */
free(tp);
tp = NULL;
+ if (xxflag) MATCHRETURN(0,0);
if (k == 0) {
matchpos = savpos;
}
char * psave;
char * p, * s = NULL; /* meaning match anything */
int k, n, q = 0;
+ havestar++; /* The rest can float */
while (*pattern == '*') /* Collapse successive asterisks */
pattern++;
psave = pattern; /* First non-asterisk after asterisk */
} else { /* A meta char follows asterisk */
if (!*string)
MATCHRETURN(17, matchpos = 0);
- while (*string && (k = ckmatch(p,string,icase,opts) < 1)) {
+#ifdef COMMENT
+ /* This is more elegant but it doesn't work. */
+ p--;
+ string++;
+ stringpos++;
+ k = ckmatch(p,string,icase,opts);
+#else
+ while (*string && ((k = ckmatch(p,string,icase,opts)) < 1)) {
+ if (xxflag) MATCHRETURN(0,0);
string++;
stringpos++;
}
+ if (!*string && k < 1) {
+/*
+ Definitely no match so we set a global flag to inibit further backing up
+ and retrying by previous incarnations, since they don't see that the string
+ and/or pattern, which are on the stack, have been exhausted at this level.
+*/
+ xxflag++;
+ debug(F111,"CKMATCH DEFINITELY NO MATCH",p,k);
+ MATCHRETURN(91,0);
+ }
+#endif /* COMMENT */
debug(F111,"CKMATCH *<meta> k",string, k);
if (!matchpos && k > 0) {
matchpos = stringpos;
- debug(F111,"CKMATCH *<meta>",string, matchpos);
+ debug(F111,"CKMATCH *<meta> matchpos",string, matchpos);
}
MATCHRETURN(12, (*string) ? matchpos : 0);
}
} else if (cs == cp) {
- pattern++, string++;
+ pattern++;
+ string++;
stringpos++;
if (!matchpos) {
matchpos = stringpos;
xckmatch:
{
#ifdef DEBUG
- char msgbuf[96];
+ char msgbuf[256];
#endif /* DEBUG */
if (matchdepth > 0)
matchdepth--;
matchpos = rc;
#ifdef DEBUG
- ckmakxmsg(msgbuf,96,
+ ckmakxmsg(msgbuf,256,
"CKMATCH RETURN[",
ckitoa(where),
"] matchpos=",
ckitoa(matchpos),
" matchdepth=",
ckitoa(matchdepth),
- " string=",NULL,NULL,NULL,NULL,NULL
+ " pat=",pattern,
+ " string=",string,NULL,NULL
);
debug(F110,msgbuf,string,0);
#endif /* DEBUG */
floatval = f; /* Set result */
return(d ? 2 : 1); /* Succeed */
}
+
+/*
+ c k r o u n d -- Rounds a floating point number or an integer.
+
+ fpnum:
+ Floating-point number to round.
+ places:
+ Positive...To how many decimal places.
+ Zero.......Round to integer.
+ Negative...-1 = nearest ten, -2 = nearest 100, -3 = nearest thousand, etc.
+ obuf
+ Output buffer for string result if desired.
+ obuflen
+ Length of output buffer.
+ Returns:
+ Result as CKFLOAT (which is not going to be as exact as the string result)
+ And the exact result in the string output buffer, if one was specified.
+*/
+CKFLOAT
+#ifdef CK_ANSIC
+ckround(CKFLOAT fpnum, int places, char *obuf, int obuflen)
+#else
+ckround(fpnum,places,obuf,obuflen)
+ CKFLOAT fpnum; int places, obuflen; char *obuf;
+#endif /* CK_ANSIC */
+/* ckround */ {
+ char *s, *s2, *d;
+ int i, p, len, x, n, digits;
+ int carry = 0;
+ int minus = 0;
+ char buf[200];
+ char * number;
+ CKFLOAT value;
+ extern int fp_digits;
+
+ sprintf(buf,"%200.100f",fpnum); /* Make string version to work with */
+ number = (char *) buf; /* Make pointer to it */
+
+ p = places; /* Precision */
+ d = (char *)0; /* Pointer to decimal or string end */
+
+ s = number; /* Fix number... */
+ while (*s == ' ' || *s == '\011') s++; /* Strip leading whitespace */
+ if (*s == '+') s++; /* Skip leading plus sign*/
+ number = s; /* Start of number */
+ if (*s == '-') { minus++; number++; s++; } /* Remember if negative */
+
+ s = number; /* Don't allow false precision */
+ n = 0;
+ while (*s && *s != '.') s++, n++; /* Find decimal */
+
+ if (p + n > fp_digits) /* Too many digits */
+ p = fp_digits - n; /* Don't ask for bogus precision */
+ if (p < 0) p = 0; /* But don't ask for less than zero */
+ if (n > fp_digits) /* Integer part has too many digits */
+ *s = 0; /* but we can't truncate it */
+ else /* Magnitude is OK */
+ number[fp_digits+1] = 0; /* Truncate fractional part. */
+
+ len = (int)strlen(number); /* Length of non-bogus number */
+ d = s; /* Pointer to decimal point */
+ if (p > 0) { /* Rounding the fractional part */
+ if (n + p < len) { /* If it's not already shorter */
+ if (*s == '.') s++; /* Skip past decimal */
+ s += p; /* Go to desired spot */
+ if (*s > '4' && *s <= '9') /* Check value of digit */
+ carry = 1;
+ *s = 0; /* And end the string */
+ s--; /* Point to last digit */
+ }
+ } else if (p == 0) { /* Rounding to integer */
+ if (*s == '.') {
+ *s = 0; /* erase the decimal point */
+ if (*(s+1)) { /* and there is a factional part */
+ if (*(s+1) > '4' && *(s+1) <= '9') /* Check for carry */
+ carry = 1;
+ }
+ s--; /* Point to last digit */
+ }
+ } else { /* Rounding the integer part */
+ if (s + p > number) { /* as in "the nearest hundred" */
+ s += p; /* Go left to desired digit */
+ *d = 0; /* Discard fraction */
+ carry = 0;
+ if (*s > '4') /* Check first digit of fraction */
+ carry = 1; /* and set carry flag */
+ s2 = s;
+ while (s2 < d) /* Fill in the rest with zeros */
+ *s2++ = '0';
+ s--; /* Point to last digit */
+ }
+ }
+ if (carry) { /* Handle carry, if any */
+ while (s >= number) {
+ if (*s == '.') { /* Skip backwards over decimal */
+ s--;
+ continue;
+ }
+ *s += 1; /* Add 1 to current digit */
+ carry = 0;
+ if (*s <= '9') /* If result is 9 or less */
+ break; /* we're done */
+ *s = '0'; /* Otherwise put 0 */
+ carry = 1; /* carry the 1 */
+ s--; /* and back up to next digit */
+ }
+ }
+#ifdef __alpha
+ sscanf(number,"%f",&value); /* Convert back to floating point */
+#else
+ sscanf(number,"%lf",&value); /* Convert back to floating point */
+#endif
+ if (obuf) strncpy(obuf,number,obuflen); /* Set string result */
+ return(value); /* Return floating-point result */
+}
+
#endif /* CKFLOAT */
/* Sorting routines... */
ckradix(s,in,out) char * s; int in, out; {
char c, *r = rxresult;
int d, minus = 0;
+#ifdef COMMENT
unsigned long zz = 0L;
long z = 0L;
+#else
+ /*
+ To get 64 bits on 32-bit hardware we use off_t, but there
+ is no unsigned version of off_t, so we lose the ability to
+ detect overflow.
+ */
+ CK_OFF_T zz = (CK_OFF_T)0;
+ CK_OFF_T z = (CK_OFF_T)0;
+#endif /* COMMENT */
+
if (in < 2 || in > 36) /* Verify legal input radix */
return(NULL);
if (out < 2 || out > 36) /* and output radix. */
/* C H K N U M -- See if argument string is an integer */
/* Returns 1 if OK, zero if not OK */
-/* If OK, string should be acceptable to atoi() */
+/* If OK, string should be acceptable to atoi() or atol() or ckatofs() */
/* Allows leading space, sign */
int
int gr_stk[NESTMAX]; /* Nesting bracket stack */
int gr_lvl = 0; /* Nesting level */
int wordnum = 0; /* Current word number */
- char c = 'A'; /* Current char (dummy start value) */
+ CHAR c = 'A'; /* Current char (dummy start value) */
int class = 0; /* Current character class */
int state = ST_BW; /* Current FSA state */
int len = 0; /* Length of current word */
int gquote = 0; /* Quoted group */
int cquote = 0; /* Quoted character */
int collapse = 1; /* Collapse adjacent separators */
+ int all = 0; /* s3 == ALL */
+ int csv = 0; /* s3 == CSV */
+ int tsv = 0; /* s3 == TSV */
+ int prevstate = -1;
+
+ unsigned int hex80 = 128;
+ unsigned int hexff = 255;
+ CHAR notsepbuf[256];
+ notsepbuf[0] = NUL; /* Keep set for "ALL" */
if (n4) collapse = 0; /* Don't collapse */
for (i = 0; i < NESTMAX; i++) /* Initialize nesting stack */
if (splitting) { /* If splitting n = word count */
n = 0; /* Initialize it */
} else { /* Otherwise */
+#ifdef COMMENT
if (n1 < 1) { /* If 0 (or less) */
ck_sval.a_size = 0; /* nothing to do. */
return(&ck_sval);
}
+#else
+ if (n1 == 0) { /* If 0 */
+ ck_sval.a_size = 0; /* nothing to do. */
+ return(&ck_sval);
+ }
+#endif /* COMMENT */
n = n1; /* n = desired word number. */
}
slen = 0; /* Get length of s1 */
debug(F111,"cksplit",s1,n);
p = s1;
+
#ifdef COMMENT
while (*p++) slen++; /* Make pokeable copy of s1 */
if (!splitbuf || slen > nsplitbuf) { /* Allocate buffer if needed */
sep = s2; /* s2 = break set */
if (!sep) sep = "";
notsep = s3; /* s3 = include set */
- if (!notsep) notsep = "";
+ if (!notsep) {
+ notsep = "";
+ } else if ((all = !ckstrcmp(notsep,"ALL",3,1)) ||
+ (csv = !ckstrcmp(notsep,"CSV",3,1)) ||
+ (tsv = !ckstrcmp(notsep,"TSV",3,1))) {
+ int i, flag; CHAR c;
+ int n = 0;
+ char * ss;
+ if (!all && (csv || tsv)) {
+ all = 1;
+ collapse = 0;
+ }
+ if (csv || tsv) {
+ all = 1;
+ collapse = 0;
+ }
+ for (i = 1; i < 256; i++) {
+ flag = 0;
+ ss = sep;
+ while (c = *ss++ && !flag) {
+ if (c == i) flag++;
+ }
+ if (!flag) notsepbuf[n++] = c;
+ }
+ notsepbuf[n] = NUL;
+ notsep = (char *)notsepbuf;
+ debug(F110,"CKMATCH NOTSEPBUF ALL",notsep,0);
+ }
+ if (*s && csv) { /* For CSV skip leading whitespace */
+ while (*s == SP || *s == HT)
+ s++;
+ c = *s;
+ }
+ if (n2 == 0 && csv) n2 = 1; /* CSV implies doublequote grouping */
if (n2 < 0) n2 = 63; /* n2 = grouping mask */
grouping = n2;
p = ""; /* Pointer to current word */
while (c) { /* Loop through string */
c = *s;
class = 0;
- if (!cquote && c == CMDQ) { /* If CMDQ */
- cquote++; /* next one is quoted */
- goto nextc; /* go get it */
+ if (!csv && !tsv) { /* fdc 2010-12-30 */
+ /* In CSV and TSV splitting, backslash is not special */
+ if (!cquote && c == CMDQ) { /* If CMDQ */
+ cquote++; /* next one is quoted */
+ goto nextc; /* go get it */
+ }
+
}
if (cquote && c == CMDQ) { /* Quoted CMDQ is special */
if (state != ST_BW) { /* because it can still separate */
cquote = 0;
x = 1;
} else { /* Character is not quoted */
- if (c < SP) { /* Get its class */
+ if (!all && c < SP) { /* Get its class */
x = 0; /* x == 0 means "is separator" */
} else if (*sep) { /* Break set given */
ss = sep;
} else { /* Default break set is */
x = ((c >= 'a' && c <= 'z') || /* all but alphanumerics */
(c >= '0' && c <= '9') ||
- (c >= 'A' && c <= 'Z')
+ (c >= 'A' && c <= 'Z') ||
+ ((unsigned int)c >= hex80 && (unsigned int)c <= hexff)
);
}
if (x == 0 && *notsep && c) { /* Include set if given */
}
}
}
+ debug(F000,"cksplit char",s,c);
+ debug(F101,"cksplit state","",state);
+ debug(F101,"cksplit class","",class);
+
switch (state) { /* State switcher... */
case ST_BW: /* BETWEENWORDS */
if (class & CL_OPN) { /* Group opener */
if (gr_lvl >= NESTMAX)
goto xxsplit;
gr_stk[gr_lvl] = gr_cls[ko];
+ prevstate = state;
state = ST_IG; /* Switch to INGROUP state */
} else if (class & CL_DAT) { /* Data character */
gr_lvl = 0; /* Clear group nesting stack */
p--;
gquote = 0;
}
+ prevstate = state;
state = ST_IW; /* Switch to INWORD state */
} else if (class & CL_QUO) { /* Group quote */
gquote = gr_lvl+1; /* Remember quoted level */
case ST_IW: /* INWORD (but not in a group) */
if (class & CL_SEP) { /* Ends on any kind of separator */
*s = NUL; /* Terminate this word */
- wordnum++; /* Count it */
- if (splitting) { /* Dispose of it appropriately */
- if (wordnum > max) { /* Add to array if splitting */
- ck_sval.a_size = -2;
+ if (csv) { /* If comma-separated list */
+ char * s2 = s; /* discard surrounding spaces */
+ while (s2 > splitbuf) { /* first backwards... */
+ s2--;
+ if (*s2 == SP || *s2 == HT)
+ *s2 = NUL;
+ else
+ break;
+ }
+ s2 = s+1; /* Then forwards... */
+ while (*s2 && (*s2 == SP || *s2 == HT))
+ *s2++;
+ s = s2-1;
+ }
+ if (!csv || prevstate != ST_IG) {
+ wordnum++; /* Count it */
+ if (splitting || n < 0) { /* Dispose of it appropriately */
+ if (wordnum > max) { /* Add to array if splitting */
+ ck_sval.a_size = -2;
+ return(&ck_sval);
+ }
+ /* This inelegant bit corrects an edge condition */
+ if (csv && !*p && (!c || !*(s+1))) {
+ wordnum--;
+ } else {
+ setword(wordnum,p,len);
+ }
+ } else if (wordnum == n) { /* Searching for word n */
+ setword(1,p,len);
+ ck_sval.a_size = 1;
return(&ck_sval);
}
- setword(wordnum,p,len);
- } else if (wordnum == n) { /* Searching for word n */
- setword(1,p,len);
- ck_sval.a_size = 1;
- return(&ck_sval);
}
+ prevstate = state;
state = ST_BW; /* Switch to BETWEENWORDS state */
len = 0;
}
case ST_IG: /* INGROUP */
if (class & CL_CLS) { /* Have group closer? */
+ if (csv) {
+ if (*(s+1) == c) {
+ char *s2 = s;
+ while ((*s2 = *(s2+1))) s2++;
+ s++;
+ c = *s;
+ }
+ }
if (c == gr_stk[gr_lvl]) { /* Does it match current opener? */
gr_lvl--; /* Yes, pop stack */
if (gr_lvl < 0) /* Don't pop it too much */
s++;
c = *s;
*s = NUL; /* we have word. */
-
wordnum++; /* Count and dispose of it. */
len--;
- if (splitting) {
+ if (splitting || n < 0) {
if (wordnum > max) {
ck_sval.a_size = -2;
return(&ck_sval);
ck_sval.a_size = 1;
return(&ck_sval);
}
+ prevstate = state;
state = ST_BW; /* Switch to BETWEENWORDS state */
len = 0;
}
} /* while (c) */
if (gr_lvl > 0) { /* In case of an unclosed group */
- if (splitting) { /* make it the last word. */
+ if (splitting || n < 0) { /* make it the last word. */
if (++wordnum > max) {
ck_sval.a_size = -2;
return(&ck_sval);
}
setword(wordnum,p+1,len);
- } else if (wordnum == n) {
+ } else if (wordnum == n) { /* Counting from left */
setword(1,p+1,len);
ck_sval.a_size = 1;
return(&ck_sval);
- }
+ } else if (n < 0 && (wordnum + n > -1)) { /* Counting from right */
+ char * s = wordarray[wordnum + n + 1];
+ if (!s) s = "";
+ setword(1,s,strlen(s));
+ ck_sval.a_size = 1;
+ return(&ck_sval);
+ }
}
- if (!splitting) { /* Wanted word n but there was none? */
- setword(1,NULL,0);
- ck_sval.a_size = 0;
+ if (!splitting) { /* Fword... */
+ if (n < 0 && (wordnum + n > -1)) { /* Counting from right */
+ char * s = wordarray[wordnum + n + 1];
+ if (!s) s = "";
+ setword(1,s,strlen(s));
+ ck_sval.a_size = 1;
+ return(&ck_sval);
+ }
+ setword(1,NULL,0); /* From left... */
+ ck_sval.a_size = 0; /* but there weren't n words */
return(&ck_sval);
} else { /* Succeed otherwise */
ck_sval.a_size = wordnum;
+/*
+ Always put a null element at the end of the array. It does no harm in
+ the normal case, and it's required if we're making an argv[] array to
+ pass to execvp(). This element is not included in the count.
+*/
if (wordnum < MAXWORDS)
- setword(wordnum+1,NULL,0);
+ setword(wordnum+1,NULL,0);
}
#ifdef DEBUG
if (deblog) {
return(&ck_sval);
}
+/*
+ ckhexbytetoint() expects a string of two hex characters,
+ returns the int equivalent or -1 on error.
+*/
+int
+#ifdef CK_ANSIC
+ckhexbytetoint( char * s )
+#else
+ckhexbytetoint(s) char * s;
+#endif /* CK_ANSIC */
+{
+ int i, c[2];
+ if (!s) return(-1);
+ if ((int)strlen(s) != 2) return(-1);
+ for (i = 0; i < 2; i++) {
+ c[i] = *s++;
+ if (!c[i]) return(-1);
+ if (islower(c[i])) c[i] = toupper(c[i]);
+ if (c[i] >= '0' && c[i] <= '9') {
+ c[i] -= 0x30;
+ } else if (c[i] >= 'A' && c[i] <= 'F') {
+ c[i] -= 0x37;
+ } else {
+ return(-1);
+ }
+ }
+ return(c[0] * 16 + c[1]);
+}
+
+
/* End of ckclib.c */
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 2002, 2004,
+ Copyright (C) 2002, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
_PROTOTYP( char * ckuitoa, (unsigned int) );
_PROTOTYP( char * ckltoa, (long) );
_PROTOTYP( char * ckultoa, (unsigned long) );
+_PROTOTYP( char * ckfstoa, (CK_OFF_T) );
+_PROTOTYP( CK_OFF_T ckatofs, (char *) );
_PROTOTYP( char * ckitox, (int) );
_PROTOTYP( char * ckltox, (long) );
+_PROTOTYP( int ispattern, (char *) );
_PROTOTYP( int ckmatch, (char *, char *, int, int ) );
_PROTOTYP( VOID ckmemcpy, (char *, char *, int) );
_PROTOTYP( char * ckstrchr, (char *, char) );
_PROTOTYP( struct stringarray * cksplit, (int,int,
char *,char *,char *,int,int,int) );
+_PROTOTYP( int ckhexbytetoint, (char *) );
#endif /* CKCLIB_H */
-#define EDITDATE "10 Apr 2004" /* Update these with each edit */
-#define EDITNDATE "20040410" /* Keep them in sync */
-/* Sat Apr 10 12:05:49 2004 */
+#define EDITDATE "20 Aug 2011" /* Last edit date dd mmm yyyy */
+#define EDITNDATE "20110820" /* Keep them in sync */
+/* Sat Aug 20 17:20:17 2011 */
+
+/* ckcmai.c - Main program for C-Kermit plus some miscellaneous functions */
/*
ckcsym.h is used for for defining symbols that normally would be defined
using -D or -d on the cc command line, for use with compilers that don't
- support this feature. Must be before any tests for preprocessor symbols.
+ support this feature. Must come before any tests for preprocessor symbols.
*/
#include "ckcsym.h"
/*
- Consolidated program version information (for UNIX also see ckuver.h).
- See makever() below for how they are used.
+ Consolidated program C-Kermit version information for all platforms
+ (but for UNIX also see ckuver.h). See makever() below for how they are used.
*/
-/* #ifdef COMMENT */ /* Uncomment this for test version */
-#ifndef OS2
-#ifndef BETATEST
-#define BETATEST
+#ifdef COMMENT /* Uncomment this for real K95 version */
+#ifndef OS2 /* OS2 actually means Kermit 95. */
+#ifndef BETATEST /* It's because Kermit 95 started */
+#define BETATEST /* out as C-Kermit for OS/2. */
#endif /* BETATEST */
#endif /* OS2 */
-/* #endif */ /* COMMENT */
+#endif /* COMMENT */
#ifdef BETATEST
#ifdef OS2
#endif /* OS2 */
#endif /* BETATEST */
-#ifndef MAC
+char * ck_cryear = "2011"; /* C-Kermit copyright year */
+
+#ifndef MAC /* MAC = Kermit for MAC OS 6, 7, ... */
/*
Note: initialize ck_s_test to "" if this is not a test version.
Use (*ck_s_test != '\0') to decide whether to print test-related messages.
*/
+
#ifndef BETATEST
#ifndef OS2 /* UNIX, VMS, etc... (i.e. C-Kermit) */
char *ck_s_test = ""; /* "Dev","Alpha","Beta","RC", or "" */
#endif /* BETATEST */
#else /* MAC */
char *ck_s_test = "Pre-Alpha"; /* Mac Kermit is always a test... */
-char *ck_s_tver = "";
+char *ck_s_tver = ""; /* (pre Mac OS X 10, that is!) */
#endif /* MAC */
#ifdef BETADATE /* Date of this version or edit */
char *buildid = EDITNDATE; /* See top */
#ifdef UNIX
-static char sccsid[] = "@(#)C-Kermit 8.0.211";
+static char sccsid[] = "@(#)C-Kermit 9.0.302";
#endif /* UNIX */
-char *ck_s_ver = "8.0.211"; /* C-Kermit version string */
-long ck_l_ver = 800211L; /* C-Kermit version number */
+/*
+ The C-Kermit Version number is major.minor.edit (integers).
+ Major version always goes up.
+ Minor version is historical, hasn't been used since C-Kermit 7.1.
+ Edit is sequential, always goes up, but there can be gaps.
+ For example there might be many edits between releases.
+ If the major goes to 10, some version-number-based feature tests
+ could fail. It might be better to use the minor version field
+ for future releases.
+*/
+
+char *ck_s_ver = "9.0.302"; /* C-Kermit version string */
+long ck_l_ver = 900302L; /* C-Kermit version number */
#ifdef OS2
-char *ck_s_xver = "2.2.0"; /* Product-specific version string */
-long ck_l_xver = 2200L; /* Product-specific version number */
+char *ck_s_xver = "3.0.0"; /* Product-specific version string */
+long ck_l_xver = 3000L; /* Product-specific version number */
#else
#ifdef MAC
char *ck_s_xver = "0.995"; /* Product-specific version string */
/*
Author: Frank da Cruz (fdc@columbia.edu),
- Columbia University Academic Information Systems, New York City.
+ Columbia University in the city of New York,
+ Computer Center / Center for Computing Activities / Information Technology.
+ I am no longer at Columbia U as of 1 July 2011, but the email address
+ should still work. The Kermit website http://kermit.columbia.edu should
+ still be available and under my control, as well as the Kermit FTP site,
+ ftp://kermit.columbia.edu/kermit/.
COPYRIGHT NOTICE:
*/
-#ifdef OS2
-char *wiksdcpr[] = {
-"Windows Internet Kermit Service Daemon (WIKSD):",
-"Copyright (C) 1985, 2004, Trustees of Columbia University in the City of New",
-"York. All rights reserved.",
-" ",
-"PERMISSIONS:",
-" ",
-" The WIKSD software may be obtained directly, in binary form only, from",
-" the Kermit Project at Columbia University by any individual for his or",
-" her OWN USE, and by any company or other organization for its own",
-" INTERNAL DISTRIBUTION and use, including installation on servers that",
-" are accessed by customers or clients, WITHOUT EXPLICIT LICENSE. All",
-" other forms of redistribution must be licensed from the Kermit Project",
-" at Columbia University. These permissions apply only to the nonsecure",
-" version of WIKSD.",
-" ",
-"DISCLAIMER:",
-" ",
-" THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION FROM THE",
-" TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK AS TO ITS",
-" FITNESS FOR ANY PURPOSE, AND WITHOUT WARRANTY BY THE TRUSTEES OF",
-" COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK OF ANY KIND, EITHER",
-" EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED",
-" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.",
-" THE TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK SHALL NOT",
-" BE LIABLE FOR ANY DAMAGES, INCLUDING SPECIAL, INDIRECT, INCIDENTAL,",
-" OR CONSEQUENTIAL DAMAGES, WITH RESPECT TO ANY CLAIM ARISING OUT OR IN",
-" CONNECTION WITH THE USE OF THE SOFTWARE, EVEN IF IT HAS BEEN OR IS",
-" HEREAFTER ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. YOU SHALL",
-" INDEMNIFY AND HOLD HARMLESS THE TRUSTEES OF COLUMBIA UNIVERSITY IN",
-" THE CITY OF NEW YORK, ITS EMPLOYEES AND AGENTS FROM AND AGAINST ANY",
-" AND ALL CLAIMS, DEMANDS, LOSS, DAMAGE OR EXPENSE (INCLUDING",
-" ATTORNEYS' FEES) ARISING OUT OF YOUR USE OF THIS SOFTWARE.",
-" ",
-"The above copyright notice, permissions notice, and disclaimer may not be",
-"removed, altered, or obscured and shall be included in all copies of the",
-"WIKSD software. The Trustees of Columbia University in the City of",
-"New York reserve the right to revoke this permission if any of the terms",
-"of use set forth above are breached.",
-" ",
-"For further information, contact the Kermit Project, Columbia University,",
-"612 West 115th Street, New York NY 10025-7799, USA; Phone +1 (212) 854 3703,",
-"Fax +1 (212) 662 6442, kermit@columbia.edu, http://www.columbia.edu/kermit/",
-""
-};
-#endif /* OS2 */
-
char *copyright[] = {
#ifdef pdp11
-"Copyright (C) 1985, 2004, Trustees of Columbia University, NYC.",
+"Copyright (C) 1985, %s, Trustees of Columbia University, NYC.",
"All rights reserved.",
" ",
#else
-#ifdef OS2
-"Copyright (C) 1985, 2004, Trustees of Columbia University in the City of New",
-"York. All rights reserved. This software is furnished under license",
-"and may not be reproduced without license to do so. This copyright notice",
-"must not be removed, altered, or obscured.",
-" ",
-" THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION FROM THE",
-" TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK AS TO ITS",
-" FITNESS FOR ANY PURPOSE, AND WITHOUT WARRANTY BY THE TRUSTEES OF",
-" COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK OF ANY KIND, EITHER",
-" EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED",
-" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.",
-" THE TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK SHALL NOT",
-" BE LIABLE FOR ANY DAMAGES, INCLUDING SPECIAL, INDIRECT, INCIDENTAL,",
-" OR CONSEQUENTIAL DAMAGES, WITH RESPECT TO ANY CLAIM ARISING OUT OR IN",
-" CONNECTION WITH THE USE OF THE SOFTWARE, EVEN IF IT HAS BEEN OR IS",
-" HEREAFTER ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. YOU SHALL",
-" INDEMNIFY AND HOLD HARMLESS THE TRUSTEES OF COLUMBIA UNIVERSITY IN",
-" THE CITY OF NEW YORK, ITS EMPLOYEES AND AGENTS FROM AND AGAINST ANY",
-" AND ALL CLAIMS, DEMANDS, LOSS, DAMAGE OR EXPENSE (INCLUDING",
-" ATTORNEYS' FEES) ARISING OUT OF YOUR USE OF THIS SOFTWARE.",
-" ",
-#else
-"Copyright (C) 1985, 2004,",
+"Copyright (C) 1985, %s,",
" The Trustees of Columbia University in the City of New York.",
" All rights reserved.",
" ",
-"PERMISSIONS:",
+"Redistribution and use in source and binary forms, with or without",
+"modification, are permitted provided that the following conditions",
+"are met:",
" ",
-"The C-Kermit software may be obtained directly from the Kermit Project at",
-"Columbia University (or from any source explicitly licensed by the Kermit",
-"Project or implicitly licensed by Clause (A) below) by any individual for",
-"his or her OWN USE, and by any company or other organization for its own",
-"INTERNAL DISTRIBUTION and use, including installation on servers that are",
-"accessed by customers or clients, WITHOUT EXPLICIT LICENSE.",
+" + Redistributions of source code must retain the above copyright",
+" notice, this list of conditions and the following disclaimer.",
" ",
-"Conditions for REDISTRIBUTION are as follows:",
+" + Redistributions in binary form must reproduce the above copyright",
+" notice, this list of conditions and the following disclaimer in",
+" the documentation and/or other materials provided with the",
+" distribution.",
" ",
-"(A) The C-Kermit software, in source and/or binary form, may be",
-" included WITHOUT EXPLICIT LICENSE in distributions of OPERATING",
-" SYSTEMS that have OSI (Open Source Initiative, www.opensource.org)",
-" approved licenses, even if non-Open-Source applications (but not",
-" operating systems) are included in the same distribution. Such",
-" distributions include, but are not limited to, CD-ROM, FTP site,",
-" Web site, or preinstalled software on a new GENERAL-PURPOSE",
-" computer, as long as the primary character of the distribution is",
-" an Open Source operating system with accompanying utilities. The",
-" C-Kermit source code may not be changed without the consent of the",
-" Kermit Project, which will not be unreasonably withheld (this is",
-" simply a matter of keeping a consistent and supportable code base).",
+" + Neither the name of Columbia University nor the names of its",
+" contributors may be used to endorse or promote products derived",
+" from this software without specific prior written permission.",
" ",
-"(B) Inclusion of C-Kermit software in whole or in part, in any form, in",
-" or with any product not covered by Clause (A), or its distribution",
-" by any commercial enterprise to its actual or potential customers",
-" or clients except as in Clause (A), requires a license from the",
-" Kermit Project, Columbia University; contact kermit@columbia.edu.",
-" ",
-"The name of Columbia University may not be used to endorse or promote",
-"products derived from or including the C-Kermit software without specific",
-"prior written permission.",
-" ",
-"DISCLAIMER:",
-" ",
-" THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION FROM THE",
-" TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK AS TO ITS",
-" FITNESS FOR ANY PURPOSE, AND WITHOUT WARRANTY BY THE TRUSTEES OF",
-" COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK OF ANY KIND, EITHER",
-" EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED",
-" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.",
-" THE TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF NEW YORK SHALL NOT",
-" BE LIABLE FOR ANY DAMAGES, INCLUDING SPECIAL, INDIRECT, INCIDENTAL,",
-" OR CONSEQUENTIAL DAMAGES, WITH RESPECT TO ANY CLAIM ARISING OUT OF OR",
-" IN CONNECTION WITH THE USE OF THE SOFTWARE, EVEN IF IT HAS BEEN OR IS",
-" HEREAFTER ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. YOU SHALL",
-" INDEMNIFY AND HOLD HARMLESS THE TRUSTEES OF COLUMBIA UNIVERSITY IN",
-" THE CITY OF NEW YORK, ITS EMPLOYEES AND AGENTS FROM AND AGAINST ANY",
-" AND ALL CLAIMS, DEMANDS, LOSS, DAMAGE OR EXPENSE (INCLUDING",
-" ATTORNEYS' FEES) ARISING OUT OF YOUR USE OF THIS SOFTWARE.",
-" ",
-"The above copyright notice, permissions notice, and disclaimer may not be",
-"removed, altered, or obscured and shall be included in all copies of the",
-"C-Kermit software. The Trustees of Columbia University in the City of",
-"New York reserve the right to revoke this permission if any of the terms",
-"of use set forth above are breached.",
-#endif /* OS2 */
+"THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS",
+"\"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT",
+"LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR",
+"A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT",
+"HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,",
+"SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT",
+"LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,",
+"DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY",
+"THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT",
+"(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE",
+"OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.",
#endif /* pdp11 */
#ifdef OS2
+"Portions Copyright (C) 2002-2005, Secure Endpoints Inc, New York NY USA.",
"Portions Copyright (C) 1995, Oy Online Solutions Ltd., Jyvaskyla, Finland.",
#endif /* OS2 */
#ifndef pdp11
" ",
-"For further information, contact the Kermit Project, Columbia University,",
-"612 West 115th Street, New York NY 10025-7799, USA; phone +1 (212) 854 3703,",
-"fax +1 (212) 663 8202 or +1 (212) 662 6442, email kermit@columbia.edu,",
-"Web http://www.columbia.edu/kermit/ or http://www.kermit-project.org/.",
+"For further information, visit the Kermit Project website:",
+"http://www.columbia.edu/kermit/ .",
#endif /* pdp11 */
""};
+/* Windows IKSD copyright used to be separate */
+char *wiksdcpr = (char *) copyright;
+
+
/*
DOCUMENTATION:
The Kermit file transfer protocol was developed at the Columbia University
Center for Computing Activities (CUCCA), which was since renamed to Columbia
- University Academic Information Systems (AcIS). Kermit is named after
- Kermit the Frog, star of the television series THE MUPPET SHOW; the name is
- used by permission of Henson Associates, Inc.
+ University Academic Information Systems (AcIS) and after that Columbia
+ University Information Technology (CUIT). Kermit is named after Kermit the
+ Frog, star of the television series THE MUPPET SHOW; the name is used by
+ permission of Henson Associates, Inc.
Thanks to at least the following people for their contributions to this
program over the years, and apologies to anyone who was inadvertantly
Stan Barber, Rice U
Jim Barbour, U of Colorado
Donn Baumgartner, Dell
+ Ian Beckwith, Debian Project
Nelson Beebe, U of Utah
Gerry Belanger, Cognitronics
Karl Berry, UMB
Gary Bilkus
Peter Binderup, Denmark
David Bolen, Advanced Networks and Services, Inc.
+ Joop Bonen
Marc Boucher, U of Montreal
Charles Brooks, EDN
Bob Brown
Mike Brown, Purdue U
+ Rob Brown
Jack Bryans, California State U at Long Beach
Mark Buda, DEC (VMS)
Fernando Cabral, Padrao iX, Brasilia
Howard Chu, U of Michigan
Bill Coalson, McDonnell Douglas
Bertie Coopersmith, London
+ Christian Corti
Chet Creider, U of Western Ontario
Alan Crosswell, Columbia U
Jeff Damens, (formerly of) Columbia U
Herm Fischer, Encino, CA (extensive contributions to version 4.0)
Carl Fongheiser, CWRU
Mike Freeman, Bonneville Power Authority
+ Carl Friedberg
Marcello Frutig, Catholic University, Sao Paulo, Brazil (X.25 support)
Hirofumi Fujii, Japan Nat'l Lab for High Energy Physics, Tokyo (Kanji)
Chuck Fuller, Westinghouse Corporate Computer Services
Douglas Kingston, morgan.com
Lawrence Kirby, Wiltshire, UK
Tom Kloos, Sequent Computer Systems
+ Guenter Knauf
Jim Knutson, U of Texas at Austin
John T. Kohl (BSDI)
Scott Kramer, SRI International, Menlo Park, CA
Bert Laverman, Groningen U, Netherlands
Steve Layton
David Lawyer, UC Irvine
+ Jason Lehr
David LeVine, National Semiconductor Corporation
Daniel S. Lewart, UIUC
S.O. Lidie, Lehigh U
Kevin Lowey, U of Saskatchewan (OS/2)
Andy Lowry, Columbia U
James Lummel, Caprica Telecomputing Resources (QNX)
+ Lewis McCarthy
David MacKenzie, Environmental Defense Fund, U of Maryland
John Mackin, University of Sidney, Australia
Martin Maclaren, Bath U, UK
Hellmuth Michaelis, Hanseatischer Computerservice GmbH, Hamburg, Germany
Leslie Mikesell, American Farm Bureau
Todd Miller, Courtesan Consulting
+ Gary Mills
Martin Minow, DEC (VMS)
Pawan Misra, Bellcore
Ken Mizialko, IBM, Manassas, VA
Tony Querubin, U of Hawaii
Jean-Pierre Radley
Anton Rang
+ Mike Rechtman
Scott Ribe
Alan Robiette, Oxford University, UK
Michel Robitaille, U of Montreal (Mac)
Dan Schullman, DEC (modems, DIAL command, etc)
John Schultz, 3M
Steven Schultz, Contel (PDP-11)
+ Steven Schweda
APPP Scorer, Leeds Polytechnic, UK
Gordon Scott, Micro Focus, Newbury UK
Gisbert W. Selke, WIdO, Bonn, Germany
+ Kijal Shah
David Singer, IBM Almaden Research Labs
David Sizeland, U of London Medical School
Fridrik Skulason, Iceland
James R. Swenson, Accu-Weather, Inc.
Ted T'so, MIT (Linux)
Andy Tanenbaum, Vrije U, Amsterdam, Netherlands
+ Seth Theriault, Columbia U
Glen Thobe
Markku Toijala, Helsinki U of Technology
Teemu Torma, Helsinki U of Technology
Paul Vixie, DEC
Bernie Volz, Process Software
Eduard Vopicka, Prague University of Economics, Czech Republic
+ Martin Vorlaender
Dimitri Vulis, CUNY
Roger Wallace, Raytheon
Stephen Walton, Calif State U, Northridge (Amiga)
Jamie Watson, Adasoft, Switzerland (AIX)
Rick Watson, U of Texas (Macintosh)
+ Eric Weaver, Columbia U
Scott Weikart (Association for Progressive Communications)
Robert Weiner, Programming Plus, New York City
Lauren Weinstein, Vortex Technlogy
bctr = DFBCT, /* Block check type requested */
bctu = 1, /* Block check type used */
bctl = 1, /* Block check length */
+ bctf = 0, /* Block check type 3 forced on all */
c_save = -1, /* Block check saving and restoring */
ss_save = -1, /* Slow-start saving and restoring */
ebq = MYEBQ, /* 8th bit prefix */
int xfrxla = 1; /* enabled or disabled */
#endif /* NOCSETS */
+int havelfs = 0; /* Large file support available */
+
#ifndef NOXFER
int epktflg = 0; /* E-PACKET command active */
extern int ckxlogging, ckxsyslog;
#endif /* CKSYSLOG */
+CK_OFF_T fsize = (CK_OFF_T)0, /* Size of current file */
+ sendstart = (CK_OFF_T)0, /* SEND start position */
+ calibrate = (CK_OFF_T)0; /* Nonzero if calibration run */
+
int nzxopts = 0; /* Options for nzxpand() */
int nfils = 0; /* Number of files in file group */
-long fsize = 0L; /* Size of current file */
+int wildena = 1; /* Wildcard expansion enabled */
#ifdef UNIX
-int wildxpand = 0; /* Who expands wildcards */
+int wildxpand = 0; /* Who expands wildcards, 0=Kermit.. */
#else /* UNIX */
#ifdef STRATUS
-int wildxpand = 1;
+int wildxpand = 1; /* 1=Shell. */
#endif /* STRATUS */
#endif /* UNIX */
#ifdef UNIXOROSK
/* Statistics variables */
-long filcnt, /* Number of files in transaction */
- filrej, /* Number of files rejected in transaction */
+CK_OFF_T
flci, /* Characters from line, current file */
flco, /* Chars to line, current file */
tlci, /* Chars from line in transaction */
tlco, /* Chars to line in transaction */
ffc, /* Chars to/from current file */
- tfc, /* Chars to/from files in transaction */
+ tfc; /* Chars to/from files in transaction */
+
+long filcnt, /* Number of files in transaction */
+ filrej, /* Number of files rejected in transaction */
cps = 0L, /* Chars/sec last transfer */
peakcps = 0L, /* Peak chars/sec last transfer */
ccu, /* Control chars unprefixed in transaction */
debxlen = 54, /* Default length for debug strings */
debses = 0, /* Flag for DEBUG SESSION */
debtim = 0, /* Include timestamp in debug log */
+ debmsg = 0, /* Debug messages on/off */
pktlog = 0, /* Flag for packet logging */
seslog = 0, /* Session logging */
dialog = 0, /* DIAL logging */
char * g_rcv_move = NULL;
char * g_rcv_rename = NULL;
-long sendstart = 0L; /* SEND start position */
-long calibrate = 0L; /* Nonzero if calibration run */
-
#ifdef CK_TRIGGER
char *tt_trigger[TRIGGERS] = { NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL };
CHAR *tt_trmatch[TRIGGERS] = { NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL };
/* Tell if a pathname is absolute (versus relative) */
/* This should be parceled out to each of the ck*fio.c modules... */
+/* VMS isabsolute() is now in ckvfio.c. */
+#ifndef VMS
int
isabsolute(path) char * path; {
int rc = 0;
return(0);
x = (int) strlen(path);
debug(F111,"isabsolute",path,x);
-#ifdef VMS
- rc = 0;
- x = ckindex("[",path,0,0,0); /* 1-based */
- if (!x)
- x = ckindex("<",path,0,0,0);
- debug(F111,"isabsolute left bracket",path,x);
- if (!x) {
- x = ckindex(":",path,-1,1,1);
- if (x)
- debug(F111,"isabsolute logical",path,x);
- }
- if (x > 0)
- if (path[x] != '.') /* 0-based */
- rc = 1;
-#else
#ifdef UNIX
if (*path == '/'
#ifdef DTILDE
#endif /* DTILDE */
)
rc = 1;
-#else
+#else /* def UNIX */
#ifdef OS2
if (*path == '/' || *path == '\\')
rc = 1;
else if (isalpha(*path) && x > 2)
if (*(path+1) == ':' && (*(path +2) == '/' || *(path+2) == '\\'))
rc = 1;
-#else
+#else /* def OS2 */
#ifdef AMIGA
if (*path == '/'
#ifdef DTILDE
#endif /* DTILDE */
)
rc = 1;
-#else
+#else /* def AMIGA */
#ifdef OSK
if (*path == '/'
#ifdef DTILDE
#endif /* DTILDE */
)
rc = 1;
-#else
+#else /* def OSK */
#ifdef datageneral
if (*path == ':')
rc = 1;
-#else
+#else /* def datageneral */
#ifdef MAC
rc = 0; /* Fill in later... */
-#else
+#else /* def MAC */
#ifdef STRATUS
rc = 0; /* Fill in later... */
-#else
+#else /* def STRATUS */
#ifdef GEMDOS
if (*path == '/' || *path == '\\')
rc = 1;
#endif /* AMIGA */
#endif /* OS2 */
#endif /* UNIX */
-#endif /* VMS */
debug(F101,"isabsolute rc","",rc);
return(rc);
}
+#endif /* ndef VMS */
/* See if I have direct access to the keyboard */
if (nmac) { /* Any macros defined? */
int k; /* Yes */
char * cmd = "on_login"; /* MSVC 2.x compiler error */
- k = mlook(mactab,cmd,nmac); /* Look up "on_exit" */
+ k = mlook(mactab,cmd,nmac); /* Look up "on_login" */
if (k >= 0) { /* If found, */
#ifdef IKSDCONF
int saved = iksdcf;
#ifdef GEMDOS
cc_clean(); /* Atari: Clean up after ^C-trap. */
#endif /* GEMDOS */
+ fixcmd();
if (!cfilef) {
- conoll("Interrupt during initialization or command-line processing.");
+ conoll("Interrupted during initialization or \
+command-line processing.");
conoll("C-Kermit quitting...");
}
doexit(BAD_EXIT,-1); /* Exit with bad status. */
#ifndef NOSPL
addmac("\\%0",cmdfil);
#endif /* NOSPL */
- dotake(cmdfil); /* execute it */
- while (tlevel > -1) { /* until it runs out. */
+ dotake(cmdfil); /* Set up the command file */
+ if (tlevel > -1) /* Remember we did this */
+ cfilef = 1;
+ while (tlevel > -1) { /* Execute it until it runs out. */
sstate = parser(1); /* Loop getting commands. */
if (sstate) proto(); /* Enter protocol if requested. */
#ifdef NTSIG
ck_ih();
#endif /* NTSIG */
}
- cfilef = 1; /* Remember we did this */
#ifdef NTSIG
ckThreadEnd(threadinfo);
#ifdef GEMDOS
cc_clean(); /* Atari: Clean up after ^C-trap. */
#endif /* GEMDOS */
+ fixcmd();
if (!cfilef) {
- conoll("Interrupt during initialization or command-line processing.");
- conoll("C-Kermit quitting...");
+ conoll("Interrupted during initialization or \
+command-line processing.");
+ conoll("C-Kermit quitting...");
}
doexit(BAD_EXIT,-1); /* Exit with bad status. */
}
VOID
makever() { /* Make version string from pieces */
int x, y;
+ char * s;
#ifndef OS2
#ifndef MAC
ck_s_xver = ck_s_ver; /* Fill in C-Kermit version number */
return;
}
x += y + 1;
+
+ s = " OPEN SOURCE:"; /* C-Kermit 9.0 and later */
+ y = strlen(s);
+ if (CKVERLEN < x + y + 1)
+ return;
+ ckstrncat(versio,s,CKVERLEN);
+
+ x += y + 1;
if (*ck_s_who) {
y = strlen(ck_s_who);
if (CKVERLEN < x + y + 1)
*pfha = (short) 0; /* No user protection fault handler */
#endif /* datageneral */
+ int unbuf = 0; /* nonzero for unbuffered stdout */
+
+/* setbuf has to be called on the file descriptor before it is used */
+
+#ifdef UNIX
+#ifdef NONOSETBUF /* Unbuffered console i/o */
+ unbuf++; /* as a compile-time option */
+#endif /* NONOSETBUF */
+ if (!unbuf) { /* Or as a command-line selection */
+ int i, n; /* We have to pre-pre-scan for */
+ char * s; /* this one. */
+ for (i = 1; i < argc; i++) {
+ s = argv[i];
+ if (!s) n = 0; else n = (int)strlen(s);
+ if (n > 4) {
+ if (!ckstrcmp("--unbuffered",s,n,0)) {
+ unbuf++;
+ break;
+ }
+ }
+ }
+ }
+ if (unbuf)
+ setbuf(stdout,NULL);
+#endif /* UNIX */
+
/* Do some initialization */
+#ifdef VMS
+#ifdef __DECC
+ /* Get some RMS default settings. */
+ get_rms_defaults();
+#endif /* def __DECC */
+#endif /* def VMS */
+
#ifndef MAC
xargc = xargs = argc; /* Make global copies of argc */
xargv = argv; /* ...and argv. */
byteorder = 0; /* Big Endian */
bigendian = 1;
}
+ if (sizeof(CK_OFF_T) == 8) /* Large files and ints? */
+ havelfs = 1;
+
if (sysinit() < 0) /* System-dependent initialization. */
fatal("Can't initialize!");
else
switch (ttnproto) {
case NP_SSL:
case NP_TLS:
+ case NP_SSL_RAW:
+ case NP_TLS_RAW:
case NP_SSL_TELNET:
case NP_TLS_TELNET:
doexit(BAD_EXIT,1);
-char *cknetv = "Network support, 8.0.283, 7 Feb 2004";
+char *cknetv = "Network support, 9.0.297, 14 Jul 2011";
/* C K C N E T -- Network support */
/*
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifdef USE_NAMESER_COMPAT
#include <arpa/nameser_compat.h>
#endif /* USE_NAMESER_COMPAT */
+
+#ifdef MINIX3
+#include <net/gen/resolv.h>
+#include <net/gen/nameser.h>
+#else
#include <arpa/nameser.h>
#include <resolv.h>
+#endif /* MINIX 3 */
+
#ifndef PS2AIX10
#ifndef BSD4
#ifndef I386IX
#endif /* IKSD */
char myipaddr[20] = { '\0' }; /* Global copy of my IP address */
+char hostipaddr[64] = { '\0' }; /* Global copy of remote IP address */
#ifdef NETCONN
/* Don't need any of this if there is no network support. */
+#ifndef OS2
+/* Current fd-swapping hack is not thread-safe */
+#define HTTP_BUFFERING
+#endif /* OS2 */
+
+#ifdef HTTP_BUFFERING
+#define HTTP_INBUFLEN 8192
+static char http_inbuf[HTTP_INBUFLEN];
+static int http_bufp = 0, http_count;
+#endif /* HTTP_BUFFERING */
+
/*
NETLEBUF is (must be) defined for those platforms that call this
module to do network i/o (e.g. netinc(), nettchk(), etc) rather
#ifdef HPUX
#ifndef HPUX7 /* HPUX 7.00 doesn't have it */
+#ifndef HPUX6 /* HPUX 6.00 doesn't have it */
#include <arpa/inet.h> /* For inet_ntoa() prototype */
+#endif /* HPUX6 */
#endif /* HPUX7 */
#endif /* HPUX */
#endif /* OSF13 */
#ifndef I386IX
-#include <errno.h> /* Already included above */
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
+#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
#endif /* I386IX */
#include <signal.h> /* Everybody needs this */
int rc = 0;
int i = 0;
CHAR * p = (CHAR *)"le_puts";
- hexdump(p,s,n);
+ ckhexdump(p,s,n);
for (i = 0; i < n; i++)
rc = le_putchar((char)s[i]);
debug(F101,"le_puts","",rc);
CHAR * p;
int rc = 0;
p = (CHAR *)"le_putstr";
- hexdump(p,s,(int)strlen((char *)s));
+ ckhexdump(p,s,(int)strlen((char *)s));
for (p = s; *p && !rc; p++)
rc = le_putchar(*p);
return(rc);
return(-2);
#endif /* OS2ONLY */
} else { /* we got out-of-band data */
- hexdump("ttbufr out-of-band chars",&ttibuf[ttibp+ttibn],count);
+ ckhexdump("ttbufr out-of-band chars",&ttibuf[ttibp+ttibn],count);
#ifdef BETADEBUG
bleep(BP_NOTE);
#endif /* BETADEBUG */
int ucx_port_bug = 0; /* Explained below */
-#ifndef __DECC /* VAXC or GCC */
-
+#ifdef OLDIP /* Very old VAXC or GCC */
+/*
+ Note that my oldest VAX C (V3.1-051) does not need (or want) OLDIP,
+ hence the "Very old" in the comment - SMS, 2010/03/15.
+*/
#define getservbyname my_getservbyname
#ifdef CK_ANSIC
}
return &sent;
}
-#endif /* __DECC */
+#endif /* def OLDIP */
#endif /* DEC_TCPIP */
#endif /* EXCELAN */
+
+int
+gettcpport() {
+ return(svcnum);
+}
+
#endif /* TCPSOCKET */
#ifndef NOTCPOPTS
netclos(); /* Close any previous connection. */
ckstrncpy(namecopy, name, NAMECPYL); /* Copy the hostname. */
+#ifdef COMMENT
+ /* Jeff's version from 30 Dec 2005 doesn't inhibit Telnet */
+ if (ttnproto != NP_TCPRAW &&
+ ttnproto != NP_SSL_RAW &&
+ ttnproto != NP_TLS_RAW)
+ ttnproto = NP_NONE; /* No protocol selected yet. */
+#else
+ /* fdc's version from 4 Dec 2005 works ok */
if (ttnproto != NP_TCPRAW)
ttnproto = NP_NONE; /* No protocol selected yet. */
+#endif /* COMMENT */
debug(F110,"tcpsocket_open namecopy",namecopy,0);
/* Assign the socket number to ttyfd and then fill in tcp structures */
else
#endif /* RLOGCODE */
/* Assume the service is TELNET. */
- if (ttnproto != NP_TCPRAW)
- ttnproto = NP_TELNET; /* Yes, set global flag. */
+#ifdef COMMENT
+ /* Jeff's code from 2005/12/30 */
+ if (ttnproto != NP_TCP_RAW &&
+ ttnproto != NP_SSL_RAW &&
+ ttnproto != NP_TLS_RAW)
+#else
+ /* fdc's code from 2005/12/04 */
+ if (ttnproto != NP_TCPRAW)
+#endif /* COMMENT */
+ ttnproto = NP_TELNET; /* Yes, set global flag. */
#ifdef CK_SECURITY
/* Before Initialization Telnet/Rlogin Negotiations Init Kerberos */
ck_auth_init((tcp_rdns && host && host->h_name && host->h_name[0]) ?
netclos(); /* Close any previous connection. */
ckstrncpy(namecopy, name, NAMECPYL); /* Copy the hostname. */
-#ifdef COMMENT
/* Don't do this. */
+#ifdef COMMENT
+ /* fdc */
if (ttnproto != NP_TCPRAW)
ttnproto = NP_NONE; /* No protocol selected yet. */
+#endif /* COMMENT */
+#ifdef COMMENT
+ /* Jeff */
+ if (ttnproto != NP_TCP_RAW &&
+ ttnproto != NP_SSL_RAW &&
+ ttnproto != NP_TLS_RAW)
+ ttnproto = NP_NONE; /* No protocol selected yet. */
#endif /* COMMENT */
debug(F110,"tcpsrv_open namecopy",namecopy,0);
#endif /* HPUX1010 */
#else
#ifdef __DECC
+#ifdef INTSELECT
+ (int *)
+#else /* def INTSELECT */
(fd_set *)
+#endif /* def INTSELECT [else] */
#endif /* __DECC */
#endif /* HPUX */
&rfds, NULL, NULL, &tv) > 0) &&
x = (unsigned short)service->s_port;
service2 = getservbyname("telnet", "tcp");
if (service2 && x == service2->s_port) {
+#ifdef COMMENT
+ /* Jeff 2005/12/30 */
+ if (ttnproto != NP_TCPRAW && /* Yes... */
+ ttnproto != NP_SSL_RAW &&
+ ttnproto != NP_TLS_RAW) /* and if raw port not requested */
+#else
+ /* fdc 2005/12/04 */
if (ttnproto != NP_TCPRAW) /* Yes and if raw port not requested */
- ttnproto = NP_TELNET; /* Set protocol to TELNET. */
+#endif /* */
+ ttnproto = NP_TELNET; /* set protocol to TELNET. */
}
-
ckstrncpy(ipaddr,(char *)inet_ntoa(saddr.sin_addr),20);
if (tcp_rdns) {
if (!quiet) {
}
name[0] = '*';
ckstrncpy(&name[1],host->h_name,78);
- strncat(name,":",80-strlen(name));
- strncat(name,p,80-strlen(name));
+ ckstrncat(name,":",80-strlen(name));
+ ckstrncat(name,p,80-strlen(name));
if (!quiet
#ifndef NOICP
&& !doconx
static char namebuf[256];
static struct hostent *host;
static struct sockaddr_in saddr;
+#ifdef GPEERNAME_T
+ static GPEERNAME_T saddrlen;
+#else
#ifdef PTX
static size_t saddrlen;
#else
static size_t saddrlen;
#else /* UNIXWARE */
#ifdef DEC_TCPIP
+/* 2010-03-08 SMS.
+ * Coincidentally, the condition for integer arguments in select(),
+ * which is actually "defined( _DECC_V4_SOURCE)", works for an integer
+ * argument in getpeername(). Sadly, due to a lack of foresight,
+ * "defined( _DECC_V4_SOURCE)" doesn't work with DEC C V4.0, so the
+ * user-specified INTSELECT is used instead. Most likely, "size_t"
+ * should be used instead of "unsigned int", but I'm a coward.
+ */
+#ifdef INTSELECT
+ static int saddrlen;
+#else /* def INTSELECT */
+ static unsigned int saddrlen;
+#endif /* def INTSELECT [else] */
+#else
+#ifdef MACOSX10
static unsigned int saddrlen;
#else
+#ifdef CK_64BIT
+ static socklen_t saddrlen;
+#else
static int saddrlen;
-#endif /* VMS */
+#endif /* CK_64BIT */
+#endif /* MACOSX10 */
+#endif /* DEC_TCPIP */
#endif /* UNIXWARE */
#endif /* AIX42 */
#endif /* PTX */
+#endif /* GPEERNAME_T */
saddrlen = sizeof(saddr);
if (getpeername(ttyfd,(struct sockaddr *)&saddr,&saddrlen) < 0) {
debug(F111,"ckgetpeer failure",ckitoa(ttyfd),errno);
#else /* HADDRLIST */
bcopy(host->h_addr, (caddr_t)&r_addr.sin_addr, host->h_length);
#endif /* HADDRLIST */
+#ifdef COMMENT
#ifndef EXCELAN
debug(F111,"BCOPY","host->h_addr",host->h_addr);
#endif /* EXCELAN */
debug(F111,"BCOPY"," (caddr_t)&r_addr.sin_addr",
(caddr_t)&r_addr.sin_addr);
+#endif /* COMMENT */
debug(F111,"BCOPY","host->h_length",host->h_length);
#ifdef NT
#endif /* HADDRLIST */
if (i > 0)
- strncat(namebuf,&name[i-1],256-strlen(namebuf)-strlen(&name[i-1]));
+ ckstrncat(namebuf,&name[i-1],256-strlen(namebuf)-strlen(&name[i-1]));
debug(F110,"ckgetfqhn()",namebuf,0);
return(namebuf);
#endif /* NOCKGETFQHOST */
#ifdef CK_SSL
/* Commonly used SSL ports (might not be in services file) */
else if (!strcmp("https",p)) {
- ttnproto = NP_SSL;
+ ttnproto = NP_SSL_RAW;
ssl_only_flag = 1;
} else if (!strcmp("ssl-telnet",p)) {
ttnproto = NP_TELNET;
break;
#ifdef CK_SSL
case 443:
+#ifdef COMMENT
+ /* Jeff 2005/12/30 */
+ ttnproto = NP_SSL_RAW;
+#else
+ /* fdc 2005/12/04 */
ttnproto = NP_SSL;
+#endif /* COMMENT */
ssl_only_flag = 1;
break;
case 151:
type rather than modem type. Designed to be called from within ttopen.
*/
+#define XXNAMELEN 256
+static char xxname[XXNAMELEN];
+
int
netopen(name, lcl, nett) char *name; int *lcl, nett; {
char *p;
- int i, x, dns = 0;
+ int i, x, rc_inet_addr = 0, dns = 0;
#ifdef TCPSOCKET
int isconnect = 0;
#ifdef SO_OOBINLINE
iax.s_addr = inet_addr(namecopy);
debug(F111,"netopen inet_addr",namecopy,iax.s_addr);
#else /* INADDR_NONE */
+#ifdef SOLARIS
+ /* In Solaris inet_addr() is of type in_addr_t which is uint32_t */
+ /* (unsigned) yet it returns -1 (signed) on failure. */
+ /* It makes a difference in 64-bit builds. */
+ rc_inet_addr = inet_addr(namecopy); /* Assign return code to an int */
+ iax = (unsigned) rc_inet_addr; /* and from there to whatever.. */
+#else
#ifndef datageneral
iax = (unsigned int) inet_addr(namecopy);
#else
iax = -1L;
#endif /* datageneral */
+#endif /* SOLARIS */
+ debug(F111,"netopen rc_inet_addr",namecopy,rc_inet_addr);
debug(F111,"netopen inet_addr",namecopy,iax);
#endif /* INADDR_NONE */
#endif /* INADDRX */
dns = 0;
if (
-#ifdef INADDR_NONE
/* This might give warnings on 64-bit platforms but they should be harmless */
/* because INADDR_NONE should be all 1's anyway, thus the OR part is */
/* probably superfluous -- not sure why it's even there, maybe it should be */
/* removed. */
- iax.s_addr == INADDR_NONE || iax.s_addr == (unsigned long) -1L
+#ifdef SOLARIS
+ rc_inet_addr == -1
+#else
+#ifdef INADDR_NONE
+ iax.s_addr == INADDR_NONE /* || iax.s_addr == (unsigned long) -1L */
#else /* INADDR_NONE */
iax < 0
#endif /* INADDR_NONE */
+#endif /* SOLARIS */
) {
if (!quiet) {
printf(" DNS Lookup... ");
fflush(stdout);
}
if ((host = gethostbyname(namecopy)) != NULL) {
- debug(F100,"netopen gethostbyname != NULL","",0);
+ debug(F110,"netopen gethostbyname != NULL",namecopy,0);
host = ck_copyhostent(host);
dns = 1; /* Remember we performed dns lookup */
r_addr.sin_family = host->h_addrtype;
#ifndef NOHTTP
&& (tcp_http_proxy == NULL)
#endif /* NOHTTP */
- ) { /* Copying into our argument? */
+ ) {
+#ifdef COMMENT
+ ckstrncpy(xxname,host->h_name,XXNAMELEN);
+ debug(F110,"netopen xxname[1]",xxname,0);
+ if ((XXNAMELEN - (int)strlen(name)) > ((int)strlen(svcbuf)+1)){
+ ckstrncat(xxname,":",XXNAMELEN - (int)strlen(xxname));
+ ckstrncat(xxname,svcbuf,XXNAMELEN - (int)strlen(xxname));
+ debug(F110,"netopen xxname[2]",xxname,0);
+ }
+ name = (char *)xxname;
+#else
ckstrncpy(name,host->h_name,80); /* Bad Bad Bad */
if ( (80-strlen(name)) > (strlen(svcbuf)+1) ) {
- strncat(name,":",80-strlen(name));
- strncat(name,svcbuf,80-strlen(name));
+ ckstrncat(name,":",80-strlen(name));
+ ckstrncat(name,svcbuf,80-strlen(name));
}
+#endif /* COMMENT */
}
+ debug(F110,"netopen name after lookup",name,0);
#ifdef HADDRLIST
#ifdef h_addr
bcopy(host->h_addr, (caddr_t)&r_addr.sin_addr, host->h_length);
#endif /* h_addr */
#else /* HADDRLIST */
+#ifdef HPUX6
+ r_addr.sin_addr.s_addr = (u_long)host->h_addr;
+#else /* HPUX6 */
bcopy(host->h_addr, (caddr_t)&r_addr.sin_addr, host->h_length);
+#endif /* HPUX6 */
#endif /* HADDRLIST */
-#ifndef EXCELAN
- debug(F111,"BCOPY","host->h_addr",host->h_addr);
-#endif /* EXCELAN */
- debug(F111,"BCOPY"," (caddr_t)&r_addr.sin_addr",
- (caddr_t)&r_addr.sin_addr);
- debug(F111,"BCOPY"," r_addr.sin_addr.s_addr",
- r_addr.sin_addr.s_addr);
+
+#ifndef HPUX6
debug(F111,"BCOPY","host->h_length",host->h_length);
+#endif /* HPUX6 */
}
}
#endif /* NOMHHOST */
+ debug(F101,"netopen dns","",dns);
+
if (!dns) {
#ifdef INADDRX
/* inet_addr() is of type struct in_addr */
/* See if the service is TELNET. */
if (x == TELNET_PORT) {
/* Yes, so if raw port not requested */
+#ifdef COMMENT
+ /* Jeff 2005/12/30 */
+ if (ttnproto != NP_TCPRAW && ttnproto != NP_SSL_RAW &&
+ ttnproto != NP_TLS_RAW && ttnproto != NP_NONE)
+#else
+ /* fdc 2005/12/04 */
if (ttnproto != NP_TCPRAW && ttnproto != NP_NONE)
+#endif /* COMMENT */
ttnproto = NP_TELNET; /* Select TELNET protocol. */
}
#ifdef RLOGCODE
if (*s) { /* Copying into our argument? */
ckstrncpy(name,s,80); /* Bad Bad Bad */
if ( (80-strlen(name)) > (strlen(svcbuf)+1) ) {
- strncat(name,":",80-strlen(name));
- strncat(name,svcbuf,80-strlen(name));
+ ckstrncat(name,":",80-strlen(name));
+ ckstrncat(name,svcbuf,80-strlen(name));
}
}
if (!quiet && *s
debug(F101,"netopen service","",svcnum);
debug(F110,"netopen name",name,0);
+ debug(F110,"netopen ipaddr",ipaddr,0);
+ ckstrncpy(hostipaddr,ipaddr,63);
if (lcl) if (*lcl < 0) /* Local mode. */
*lcl = 1;
#endif /* VMS */
#ifdef TNCODE
if (ttnproto == NP_TELNET) {
- if ( !TELOPT_ME(TELOPT_LOGOUT) ) {
+ if (!TELOPT_ME(TELOPT_LOGOUT)
+#ifdef COMMENT
+/* Jeff 2005/12/30 */
+#ifdef CK_SSL
+ && !ssl_raw_flag && !tls_raw_flag
+#endif /* CK_SSL */
+#endif /* COMMENT */
+ ) {
/* Send LOGOUT option before close */
if (tn_sopt(DO,TELOPT_LOGOUT) >= 0) {
TELOPT_UNANSWERED_DO(TELOPT_LOGOUT) = 1;
if (x >= 1) { /* Oops, actually got a byte? */
#ifdef OS2
/* In OS/2 we read directly into ttibuf[] */
- hexdump("nettchk got real data",&ttibuf[ttibp+ttibn],x);
+ ckhexdump("nettchk got real data",&ttibuf[ttibp+ttibn],x);
ttibn += x;
#else /* OS2 */
#ifdef CK_SSL
if ( ssl_active_flag || tls_active_flag ) {
- hexdump("nettchk got real data",&ttibuf[ttibp+ttibn],x);
+ ckhexdump("nettchk got real data",&ttibuf[ttibp+ttibn],x);
ttibn += x;
} else
#endif /* CK_SSL */
#ifdef KRB5
#ifdef RLOGCODE
if (ttnproto == NP_EK5LOGIN) {
- if ((len = krb5_des_read(ttyfd,buf,n,0)) < 0)
+ if ((len = krb5_des_read(ttyfd,(char *)buf,n,0)) < 0)
return(-1);
else
return(len);
#endif /* RLOGCODE */
#ifdef KRB5_U2U
if (ttnproto == NP_K5U2U) {
- if ((len = krb5_u2u_read(ttyfd,buf,n)) < 0)
+ if ((len = krb5_u2u_read(ttyfd,(char *)buf,n)) < 0)
return(-1);
else
return(len);
WSASafeToCancel = 1;
#endif /* NT */
rc = select(FD_SETSIZE,
-#ifndef __DECC
+#ifdef __DECC
+#ifdef INTSELECT
+ (int *)
+#else /* def INTSELECT */
(fd_set *)
-#endif /* __DECC */
+#endif /* def INTSELECT [else] */
+#else /* def __DECC */
+ (fd_set *)
+#endif /* def __DECC [else] */
&rfds, NULL, NULL, &tv);
if (rc < 0) {
int s_errno = socket_errno;
extern int tt_type_mode;
if ( !ISVTNT(tt_type_mode) )
#endif /* OS2 */
- hexdump("netinc &ttbuf[ttibp]",&ttibuf[ttibp],ttibn);
+ ckhexdump("netinc &ttbuf[ttibp]",&ttibuf[ttibp],ttibn);
}
#endif /* BETADEBUG */
}
}
debug(F101,"nettol TCPIPLIB ttnet","",ttnet);
#ifdef COMMENT
- hexdump("nettol",s,n);
+ ckhexdump("nettol",s,n);
#endif /* COMMENT */
#ifdef CK_KERBEROS
/* if still not resolved, then try second strategy */
/* This second strategy does not work on Windows */
+ debug(F100,"getlocalipaddr","",0);
memset(&l_sa,0,slen);
memset(&r_sa,0,slen);
struct in_addr laddr;
#endif /* COMMENT */
+ debug(F100,"getlocalipaddrs","",0);
memset(&l_sa,0,slen);
memset(&r_sa,0,slen);
/* resolve host name for local address */
debug(F110,"getlocalipaddrs","calling gethostbyname()",0);
host = gethostbyname(localhost);
- debug(F111,"getlocalipaddrs","gethostbyname() returned",host);
+ /* debug(F111,"getlocalipaddrs","gethostbyname() returned",host); */
if (host) {
#ifdef HADDRLIST
host = ck_copyhostent(host);
#endif /* SYSUTIMEH */
#endif /* OS2 */
+#ifdef VMS /* SMS 2007/02/15 */
+#include "ckvrtl.h"
+#endif /* def VMS */
+
#ifndef HTTP_VERSION
#define HTTP_VERSION "HTTP/1.1"
#endif /* HTTP_VERSION */
/* because INADDR_NONE should be all 1's anyway, thus the OR part is */
/* probably superfluous -- not sure why it's even there, maybe it should be */
/* removed. */
- iax.s_addr == INADDR_NONE || iax.s_addr == (unsigned long) -1L
+ iax.s_addr == INADDR_NONE /* || iax.s_addr == (unsigned long) -1L */
#else /* INADDR_NONE */
- iax < 0
+ iax == -1
#endif /* INADDR_NONE */
) {
if (!quiet) {
#else /* HADDRLIST */
bcopy(host->h_addr, (caddr_t)&r_addr.sin_addr, host->h_length);
#endif /* HADDRLIST */
+#ifdef COMMENT
#ifndef EXCELAN
debug(F111,"BCOPY","host->h_addr",host->h_addr);
#endif /* EXCELAN */
(caddr_t)&r_addr.sin_addr);
debug(F111,"BCOPY"," r_addr.sin_addr.s_addr",
r_addr.sin_addr.s_addr);
+#endif /* COMMENT */
debug(F111,"BCOPY","host->h_length",host->h_length);
}
}
int x = 0;
debug(F101,"http_close","",httpfd);
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
+
if (httpfd == -1) /* Was open? */
return(0); /* Wasn't. */
}
debug(F101,"http_tol TCPIPLIB ttnet","",ttnet);
#ifdef COMMENT
- hexdump("http_tol",s,n);
+ ckhexdump("http_tol",s,n);
#endif /* COMMENT */
#ifdef CK_SSL
}
}
-
int
http_inc(timo) int timo; {
int x=-1; unsigned char c; /* The locals. */
if (httpfd == -1) {
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
debug(F100,"http_inc socket is closed","",0);
return(-2);
}
}
}
#endif /* CK_SSL */
+
+#ifdef HTTP_BUFFERING
+ /* Skip all the select() stuff if we have bytes buffered locally */
+ if (http_count > 0)
+ goto getfrombuffer;
+#endif /* HTTP_BUFFERING */
+
{
#ifdef BSDSELECT
fd_set rfds;
int s_errno = socket_errno;
debug(F111,"http_inc","select",rc);
debug(F111,"http_inc","socket_errno",s_errno);
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
if (s_errno)
return(-1);
}
if (!timo) {
#ifdef TCPIPLIB
if ((rc = socket_write(httpfd,"",0)) < 0) {
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
int s_errno = socket_errno;
debug(F101,"http_inc socket_write error","",s_errno);
#ifdef OS2
}
#else /* TCPIPLIB */
if ((rc = write(httpfd,"",0)) < 0) {
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
debug(F101,"http_inc socket_write error","",errno);
return(-1); /* Call it an i/o error */
}
}
if (timo && x < 0) { /* select() timed out */
+#ifdef HTTP_BUFFERING
+ http_count = 0;
+ http_bufp = 0;
+#endif /* HTTP_BUFFERING */
debug(F100,"http_inc select() timed out","",0);
return(-1); /* Call it an i/o error */
}
}
}
#endif /* CK_SSL */
+
+#ifdef HTTP_BUFFERING
+/*
+ Buffering code added by fdc 15 Dec 2005 for non-SSL case only because HTTP
+ GETs were orders of magnitude too slow due to the single-byte read()s. The
+ file-descriptor swapping is pretty gross, but the more elegant solution
+ (calling a nettchk() like routine with the fd as a parameter) doesn't work,
+ because nettchk() relies on too many other routines that, like itself, are
+ hardwired for ttyfd.
+*/
+ getfrombuffer:
+ if (--http_count >= 0) {
+ c = http_inbuf[http_bufp++];
+ x = 1;
+ } else {
+ int savefd;
+ savefd = ttyfd;
+ ttyfd = httpfd;
+ x = nettchk();
+ ttyfd = savefd;
+ debug(F101,"http_inc nettchk","",x);
+ if (x > HTTP_INBUFLEN)
+ x = HTTP_INBUFLEN;
+#ifdef TCPIPLIB
+ x = socket_read(httpfd,http_inbuf,x);
+#else /* Not TCPIPLIB */
+ x = read(httpfd,http_inbuf,x);
+#endif /* TCPIPLIB */
+ http_count = 0;
+ http_bufp = 0;
+ if (x > 0) {
+ c = http_inbuf[http_bufp++];
+ http_count = x - 1;
+ }
+ }
+#else /* Not HTTP_BUFFERING */
#ifdef TCPIPLIB
x = socket_read(httpfd,&c,1);
-#else
+#else /* Not TCPIPLIB */
x = read(httpfd,&c,1);
-#endif
+#endif /* TCPIPLIB */
+#endif /* HTTP_BUFFERING */
if (x <= 0) {
int s_errno = socket_errno;
} else if (!ckstrcmp(buf,"Transfer-Encoding:",18,0)) {
if ( ckindex("chunked",buf,18,0,0) != 0 )
chunked = 1;
+ debug(F101,"http_get chunked","",chunked);
}
i = 0;
} else {
} else if (!ckstrcmp(buf,"Transfer-Encoding:",18,0)) {
if ( ckindex("chunked",buf,18,0,0) != 0 )
chunked = 1;
+ debug(F101,"http_index chunked","",chunked);
}
printf("%s\n",buf);
}
#ifdef CMDATE2TM
ckstrncat(request,http_now(),len);
#else
- strcat(request,...);
+ ckstrncat(request,...,len);
#endif /* CMDATE2TM */
ckstrncat(request,"\r\n",len);
ckstrncat(request,"Host: ", len);
} else if (!ckstrcmp(buf,"Transfer-Encoding:",18,0)) {
if ( ckindex("chunked",buf,18,0,0) != 0 )
chunked = 1;
+ debug(F101,"http_put chunked","",chunked);
}
if ( stdio )
printf("%s\n",buf);
#ifdef CMDATE2TM
ckstrncat(request,http_now(),len);
#else
- strcat(request,...);
+ ckstrncat(request,...,len);
#endif /* CMDATE2TM */
ckstrncat(request,"\r\n",len);
ckstrncat(request,"Host: ", len);
} else if (!ckstrcmp(buf,"Transfer-Encoding:",18,0)) {
if ( ckindex("chunked",buf,18,0,0) != 0 )
chunked = 1;
+ debug(F101,"http_delete chunked","",chunked);
}
printf("%s\n",buf);
}
sprintf(buf,"Content-length: %d\r\n",filelen); /* safe */
ckstrncat(request,buf,len);
ckstrncat(request,"\r\n",len);
+#ifdef COMMENT
+ /* This is apparently a mistake - the previous ckstrncat() already */
+ /* appended a blank line to the request. There should only be one. */
+ /* Servers are not required by RFC 2616 to ignore extraneous empty */
+ /* lines. -fdc, 28 Aug 2005. */
ckstrncat(request,"\r\n",len);
+#endif /* COMMENT */
/* Now we have the contents of the file */
postopen:
} else if (!ckstrcmp(buf,"Transfer-Encoding:",18,0)) {
if ( ckindex("chunked",buf,18,0,0) != 0 )
chunked = 1;
+ debug(F101,"http_post chunked","",chunked);
}
if (stdio)
printf("%s\n",buf);
char b64out[256];
char * headers[HTTPHEADCNT];
int connected = 0;
- int chunked = 0;
tcp_http_proxy_errno = 0;
env = getenv("DISPLAY");
if ( !env )
- env = tn_get_display();
+ env = (char *)tn_get_display();
if ( env )
- ckstrncpy(buf,env,256);
+ ckstrncpy(buf,env,256);
else
- ckstrncpy(buf,"127.0.0.1:0.0",256);
+ ckstrncpy(buf,"127.0.0.1:0.0",256);
bzero((char *)&saddr,sizeof(saddr));
saddr.sin_family = AF_INET;
env = getenv("DISPLAY");
if ( !env )
- env = tn_get_display();
+ env = (char *)tn_get_display();
if ( env )
- ckstrncpy(buf,env,256);
+ ckstrncpy(buf,env,256);
else
- ckstrncpy(buf,"127.0.0.1:0.0",256);
+ ckstrncpy(buf,"127.0.0.1:0.0",256);
bzero((char *)&saddr,sizeof(saddr));
saddr.sin_family = AF_INET;
sock = TELOPT_SB(TELOPT_FORWARD_X).forward_x.channel[i].fd;
debug(F111,"fwdx_write_data_to_channel","socket",sock);
- hexdump("fwdx_write_data_to_channel",data,len);
+ ckhexdump("fwdx_write_data_to_channel",data,len);
fwdx_write_data_to_channel_retry:
Author: Frank da Cruz <fdc@columbia.edu>
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#define NP_K5U2U 18 /* TCP/IP Kerberos 5 User to User */
#define NP_CTERM 19 /* DEC CTERM */
#define NP_LAT 20 /* DEC LAT */
+#define NP_SSL_RAW 21 /* SSL with no Telnet permitted */
+#define NP_TLS_RAW 22 /* TLS with no Telnet permitted */
+
/* others here... */
#ifdef CK_SSL
_PROTOTYP( int netclos, (void) );
_PROTOTYP( int netflui, (void) );
_PROTOTYP( int nettchk, (void) );
+_PROTOTYP( int netxchk, (int) );
_PROTOTYP( int netbreak, (void) );
_PROTOTYP( int netinc, (int) );
_PROTOTYP( int netxin, (int, CHAR *) );
_PROTOTYP( int nettol, (CHAR *, int) );
_PROTOTYP( int nettoc, (CHAR) );
+#ifdef TCPSOCKET
+_PROTOTYP( int gettcpport, (void) );
+_PROTOTYP( int gettcpport, (void) );
+#endif /* TCPSOCKET */
+
/*
SunLink X.25 support by Marcello Frutig, Catholic University,
Rio de Janeiro, Brazil, 1990.
#endif /* bcopy */
#endif /* VMS */
+#ifdef HPUX6
+/* These are missing in HP-UX 6.xx */
+#ifndef bzero
+#define bzero(s,n) memset(s,0,n)
+#endif /* bzero */
+#ifndef bcopy
+#define bcopy(h,a,l) memcpy(a,h,l)
+#endif /* bcopy */
+#endif /* HPUX6 */
+
#ifdef UNIX /* UNIX section */
#ifdef SVR4
#endif /* IF_DOT_H */
#include <in.h>
+#ifdef VMS
+#include <inet.h> /* (SMS 2007/02/15) */
+#endif /* VMS */
#include <netdb.h>
#include <socket.h>
#include "ckvioc.h"
#endif /* UNIX */
#endif /* TCPSOCKET */
+#ifndef NOINADDRX /* 301 - Needed for Solaris 10 and 11 */
+#ifdef SOLARIS
+#define NOINADDRX
+#ifdef INADDR_NONE
+#undef INADDR_NONE
+#endif /* INADDR_NONE */
+#endif /* SOLARIS */
+#endif /* NOINADDRX */
+
+#ifdef NOINADDRX
+#ifdef INADDRX
+#undef INADDRX
+#endif /* INADDRX */
+#endif /* NOINADDRX */
+
#ifdef TCPSOCKET
#ifndef NOHADDRLIST
#ifndef HADDRLIST
/* Type needed as 5th argument (length) to get/setsockopt() */
+#ifdef TRU64
+/* They say it themselves - this does not conform to standards */
+#define socklen_t int
+#else
+#ifdef HPUX
+#define socklen_t int
+#endif /* HPUX */
+#endif /* TRU64 */
+
+#ifndef SOCKOPT_T
+#ifdef CK_64BIT
+#define SOCKOPT_T socklen_t
+#endif /* CK_64BIT */
+#endif /* SOCKOPT_T */
+
#ifndef SOCKOPT_T
#define SOCKOPT_T int
+#ifdef MACOSX10
+#undef SOCKOPT_T
+#define SOCKOPT_T unsigned int
+#else
#ifdef AIX42
#undef SOCKOPT_T
#define SOCKOPT_T unsigned long
#endif /* NT */
#endif /* PTX */
#endif /* AIX42 */
+#endif /* MACOSX10 */
#endif /* SOCKOPT_T */
/* Ditto for getsockname() */
#ifndef GSOCKNAME_T
+#ifdef CK_64BIT
+#define GSOCKNAME_T socklen_t
+#endif /* CK_64BIT */
+#endif /* GSOCKNAME_T */
+
+#ifndef GSOCKNAME_T
#define GSOCKNAME_T int
+#ifdef MACOSX10
+#undef GSOCKNAME_T
+#define GSOCKNAME_T unsigned int
+#else
#ifdef PTX
#undef GSOCKNAME_T
#define GSOCKNAME_T size_t
#endif /* UNIXWARE */
#endif /* AIX41 */
#endif /* PTX */
+#endif /* MACOSX10 */
#endif /* GSOCKNAME_T */
#endif /* TCPSOCKET */
- C-Kermit Program Logic Manual
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
+
+C-Kermit Program Logic Manual
Frank da Cruz
- [1]The Kermit Project
- [2]Columbia University
+ [11]The Kermit Project
- As of: C-Kermit 8.0.211, 10 April 2004
- This page last updated: Sat Apr 10 16:45:30 2004 (New York USA Time)
+ As of: C-Kermit 9.0.300, 30 June 2011
+ Last update: Fri Jul 1 15:47:34 2011
IF YOU ARE READING A PLAIN-TEXT version of this document, note that
this file is a plain-text dump of a Web page. You can visit the
original (and possibly more up-to-date) Web page here:
- [3]http://www.columbia.edu/kermit/ckcplm.html
-
- [ [4]C-Kermit Home ] [ [5]Kermit Home ]
- ________________________________________________________________________
-
- CONTENTS
-
- 1. [6]INTRODUCTION
- 2. [7]FILES
- 3. [8]SOURCE CODE PORTABILITY AND STYLE
- 4. [9]MODULES
- 4.A. [10]Group A: Library Routines
- 4.B. [11]Group B: Kermit File Transfer
- 4.C. [12]Group C: Character-Set Conversion
- 4.D. [13]Group D: User Interface
- 4.E. [14]Group E: Platform-Dependent I/O
- 4.F. [15]Group F: Network Support
- 4.G. [16]Group G: Formatted Screen Support
- 4.H. [17]Group H: Pseudoterminal Support
- 4.I. [18]Group I: Security
- I. [19]APPENDIX I: FILE PERMISSIONS
- ________________________________________________________________________
-
- 1. INTRODUCTION
-
- The Kermit Protocol is specified in the book Kermit, A File Transfer
- Protocol by Frank da Cruz, Digital Press / Butterworth Heinemann,
- Newton, MA, USA (1987), 379 pages, ISBN 0-932376-88-6. It is assumed
- the reader is familiar with the Kermit protocol specification.
-
- This file describes the relationship among the modules and functions
- of C-Kermit 5A and later, and other programming considerations.
- C-Kermit is designed to be portable to any kind of computer that has a
- C compiler. The source code is broken into many files that are grouped
- according to their function, as shown in the [20]Contents.
+ [12]http://www.columbia.edu/kermit/ckcplm.html
+
+CONTENTS
+
+ 1. [13]INTRODUCTION
+ 2. [14]FILES
+ 3. [15]SOURCE CODE PORTABILITY AND STYLE
+ 4. [16]MODULES
+ 4.A. [17]Group A: Library Routines
+ 4.B. [18]Group B: Kermit File Transfer
+ 4.C. [19]Group C: Character-Set Conversion
+ 4.D. [20]Group D: User Interface
+ 4.E. [21]Group E: Platform-Dependent I/O
+ 4.F. [22]Group F: Network Support
+ 4.G. [23]Group G: Formatted Screen Support
+ 4.H. [24]Group H: Pseudoterminal Support
+ 4.I. [25]Group I: Security
+ I. [26]APPENDIX I: FILE PERMISSIONS
+
+1. INTRODUCTION
+
+ The Kermit Protocol is specified in the book [27]Kermit, A File
+ Transfer Protocol by Frank da Cruz, Digital Press / Butterworth
+ Heinemann, Newton, MA, USA (1987), 379 pages, ISBN 0-932376-88-6. It is
+ assumed the reader is familiar with the Kermit protocol specification.
+
+ This file describes the relationship among the modules and functions of
+ C-Kermit 5A and later, and other programming considerations. C-Kermit
+ is designed to be portable to any kind of computer that has a C
+ compiler. The source code is broken into many files that are grouped
+ according to their function, as shown in the [28]Contents.
C-Kermit has seen constant development since 1985. Throughout its
history, there has been a neverending tug-of-war among:
a. Functionality: adding new features, fixing bugs, improving
performance.
- b. Adding support for new platforms.
+ b. Adding support for new platforms or communication methods.
c. "Buzzword 1.0 compliance".
The latter category is the most frustrating, since it generally
involves massive changes just to keep the software doing what it did
- before in some new setting: e.g. the K&R-to-ANSIC conversion (which
- had to be done, of course, without breaking K&R); Y2K (not a big deal
- in our case); the many and varied UNIX and other API "standards";
- IPv6.
-
- [ [21]Contents ] [ [22]C-Kermit ] [ [23]Kermit Home ]
- ________________________________________________________________________
-
- 2. FILES
+ before in some new setting: e.g. the K&R-to-ANSIC conversion (which had
+ to be done, of course, without breaking K&R); Y2K (not a big deal in
+ our case); the many and varied UNIX and other API "standards" with
+ which to "comply".
+
+ Upon first glance at the source code, you will probably be appalled.
+ Many will be tempted to clean it up and modernize it. But as soon as
+ you do, you are sure to break something. Remember that above all else,
+ the C-Kermit code is portable to every Unix platform that ever existed,
+ going back Unix V7 (1979)*, and to several other completely different
+ and unrelated operating-system families such as DEC/HP VMS, DG AOS/VS,
+ and Stratus VOS, as well as to some Unix offshoots like OS-9 and Plan 9
+ (from Outer Space). Every release of Kermit has been checked on every
+ platform available -- the older the better! -- to make sure it still
+ builds and runs. Even today (2011), there are modern Unix systems that
+ have non-ANSI C compilers, foremost among them HP-UX (where an ANSI
+ optimizing C compiler is available, but only as an expensive add-on).
+ In a way, portability is the most important feature of C-Kermit and
+ every effort should be made to preserve it through future releases.
+
+ Voluminous edit histories are available going back to May 1985. The
+ first versions of C-Kermit were done on our [29]DEC VAX-11/750 with
+ Ultrix 1.0 and 2.0 (as well as departmental 750s with 4.2BSD**), DEC
+ Pro-380 workstations (desktop PDP-11s) running 2.9BSD, which was
+ [30]ported to the 380 by us. Later (1988 or so) on a big VAX 8650 with
+ Ultrix, which became an 8700 (these no doubt weighed several tons), and
+ finally a succession of non-DEC equipment: an Encore Multimax, 25 years
+ worth of Suns, and now Linux on [31]HP Blades. We also had our own VMS
+ development systems for some years. All this plus a generous assortment
+ of departmental and offsite guest accounts on a multitude of platforms.
+ Anyway, the edit histories:
+
+ [32]ckc04e.txt C-Kermit 4.2(030) May 1985 to 4E(072) Jan 1989.
+ [33]ckc04f.txt C-Kermit 4F(077) Arp 1989 to 4F(095) Aug 1989.
+ [34]ckc168.txt Updates to C-Kermit 5A(168) for VMS Nov 1991
+ [35]ckc178.txt C-Kermit 5A(100) Jul 1989 to 5A(178) Jan 1992
+ [36]ckc188.txt C-Kermit 5A(188) development, 1992
+ [37]ckc189.txt C-Kermit 5A(189) development, 1993
+ [38]ckc192.txt C-Kermit 6.0(192) development, 1998
+ [39]ckc197.txt C-Kermit 7.0(197) development, 2000
+ [40]ckc200.txt C-Kermit 8.0.200 development, 2001
+ [41]ckc211.txt C-Kermit 8.0.201 through 8.0.209 2001-2004
+ [42]ckc300.txt C-Kermit 9.0.300 June 2011
+
+ _________________________________
+ * C-Kermit 6.0 was the last one to be built on V7, as I recall. The
+ code should still be good for V7 but it probably has outgrown the
+ 16-bit address space. In any case there is still a V7 makefile target
+ and a V7 path through the forest of #ifdefs in the code if anybody is
+ running V7 on an emulator and would like to try building C-Kermit.
+ There is no support for V6 but that is only because no V6 system was
+ ever found for development. Notice that some other 16-bit Unixes are
+ supported in the code, including 2.9BSD and Tandy Xenix 3.0, but have
+ not been tried since C-Kermit 6.0
+
+ ** C-Kermit 9.0.300 was built successfully on 4.2BSD about 25 years
+ later, in June 2011.
+
+ [ [43]Contents ] [ [44]C-Kermit ] [ [45]Kermit Home ]
+
+2. FILES
C-Kermit source files begin with the two letters "ck", for example
ckutio.c. Filenames are kept short (6.3) for maximum portability and
k (unused)
l Stratus VOS
m Macintosh with Mac OS 1-9
- n Microsoft Windows NT/2000/XP
- o OS/2 and/or Microsoft Windows 9x/ME/NT/2000/XP
+ n (unused)
+ o OS/2 and Microsoft Windows 9x/ME/NT/2000/XP/Vista/etc
p Plan 9 from Bell Labs
q (reserved)
- r DEC PDP-11 with RSTS/E (never used, open for reassigment)
+ r DEC PDP-11 with RSTS/E (never used, open for reassignment)
s Atari ST GEMDOS (last supported in version 5A(189))
- t DEC PDP-11 with RT-11 (never used, open for reassigment)
+ t DEC PDP-11 with RT-11 (never used, open for reassignment)
u Unix-based operating systems (*)
v VMS and OpenVMS
w Wart (Lex-like preprocessor, platform independent)
4 IBM AS/400
5-8 (reserved)
9 Microware OS-9
- _ Encryption modules
+ _ (underscore) Encryption modules
(*) In fact there is little distinction between the ckc*.* and cku*.*
categories. It would make more sense for all cku*.* modules to be
ckupty.c, which truly are specific to Unix. The rest (ckuus*.c,
ckucmd.c, etc) are quite portable.
- One hint before proceeding: functions are scattered all over the
- ckc*.c and cku*.c modules, where function size has begun to take
- precedence over the desirability of grouping related functions
- together, the aim being to keep any particular module from growing
- disproportionately large. The easiest way (in UNIX) to find out in
- what source file a given function is defined is like this (where the
- desired function is foo()...):
+ One hint before proceeding: functions are scattered all over the ckc*.c
+ and cku*.c modules, where function size has begun to take precedence
+ over the desirability of grouping related functions together, the aim
+ being to keep any particular module from growing disproportionately
+ large. The easiest way (in UNIX) to find out in what source file a
+ given function is defined is like this (where the desired function is
+ foo()...):
grep ^foo\( ck*.c
This works because the coding convention has been to make function
- names always start on the left margin with their contents indented,
- for example:
+ names always start on the left margin with their contents indented, for
+ example:
static char *
foo(x,y) int x, y; {
...
}
- Also note the style for bracket placement. This allows
- bracket-matching text editors (such as EMACS) to help you make sure
- you know which opening bracket a closing bracket matches, particularly
- when the opening bracket is above the visible screen, and it also
- makes it easy to find the end of a function (search for '}' on the
- left margin).
+ Also note the style for bracket placement. This allows bracket-matching
+ text editors (such as EMACS) to help you make sure you know which
+ opening bracket a closing bracket matches, particularly when the
+ opening bracket is above the visible screen, and it also makes it easy
+ to find the end of a function (search for '}' on the left margin).
Of course EMACS tags work nicely with this format too:
$ emacs
Esc-X Visit-Tags-Table<CR><CR>
- (but remember that the source file for ckcpro.c is [24]ckcpro.w!)
+ (but remember that the source file for ckcpro.c is [46]ckcpro.w!)
Also:
* Tabs should be set every 8 spaces, as on a VT100.
- * All lines must no more than 79 characters wide after tab
- expansion.
+ * All lines must no more than 79 characters wide after tab expansion.
* Note the distinction between physical tabs (ASCII 9) and the
indentation conventions, which are: 4 for block contents, 2 for
most other stuff (obviously this is not a portability issue, just
style).
- [ [25]Contents ] [ [26]C-Kermit ] [ [27]Kermit Home ]
- ________________________________________________________________________
+ [ [47]Contents ] [ [48]C-Kermit ] [ [49]Kermit Home ]
- 3. SOURCE CODE PORTABILITY AND STYLE
+3. SOURCE CODE PORTABILITY AND STYLE
- C-Kermit was designed in 1985 as a platform-independent replacement
- for the earlier Unix Kermit. c-Kermit's design was expected to promote
+ C-Kermit was designed in 1985 as a platform-independent replacement for
+ the earlier Unix Kermit. C-Kermit's design was expected to promote
portability, and judging from the number of platforms to which it has
been adapted since then, the model is effective, if not ideal
(obviously if we had it all to do over, we'd change a few things). To
answer the oft-repeated question: "Why are there so many #ifdefs?",
it's because:
- * Many of them are related to feature selection and program size,
- and so need to be there anyway.
+ * Many of them are related to feature selection and program size, and
+ so need to be there anyway.
* Those that treat compiler, library, platform, header-file, and
similar differences have built up over time as hundreds of people
all over the world adapted C-Kermit to their particular
environments and sent back their changes. There might be more
politically-correct ways to achieve portability, but this one is
- natural and proven. The basic idea is to introduce changes that
- can be selected by defining a symbol, which, if not defined,
- leaves the program exactly as it was before the changes.
+ natural and proven. The basic idea is to introduce changes that can
+ be selected by defining a symbol, which, if not defined, leaves the
+ program exactly as it was before the changes.
* Although it might be possible to "clean up" the "#ifdef mess",
nobody has access to all the hundreds of platforms served by the
#ifdefs to check the results.
just use GNU autoconfig / automake / autowhatever instead of
hard-coding all those #ifdefs?" Answers:
- * The GNU tools are not available on all the platforms where
- C-Kermit must be built and I wouldn't necessarily trust them if
- they were.
+ * The GNU tools are not available on all the platforms where C-Kermit
+ must be built and I wouldn't necessarily trust them if they were.
* Each platform is a moving target, so the tools themselves would
need to updated before Kermit could be updated.
- * It would only add another layer of complexity to an already
- complex process.
+ * It would only add another layer of complexity to an already complex
+ process.
* Conversion at this point would not be practical unless there was a
way to test the results on all the hundreds of platforms where
C-Kermit is supposed to build.
- When writing code for the system-indendent C-Kermit modules, please
+ When writing code for the system-independent C-Kermit modules, please
stick to the following coding conventions to ensure portability to the
widest possible variety of C preprocessors, compilers, and linkers, as
well as certain network and/or email transports. The same holds true
ones, since they must be buildable by a wide variety of compilers and
linkers, new and old.
- This list does not purport to be comprehensive, and although some
- items on it might seem far-fetched, they would not be listed unless I
- had encountered them somewhere, some time. I wish I had kept better
- records so I could cite specific platforms and compilers.
-
- * Try to keep variable and function names unique within 6
- characters, especially if they are used across modules, since 6 is
- the maximum for some old linkers (actually, this goes back to
- TOPS-10 and -20 and other old DEC OS's where C-Kermit never ran
- anyway; a more realistic maximum is probably somewhere between 8
- and 16). We know for certain that VAX C has a 31-character max
- because it complains -- others might not complain, but just
- silently truncate, thus folding two or more routines/variables
- into one.
+ This list does not purport to be comprehensive, and although some items
+ on it might seem far-fetched, they would not be listed unless I had
+ encountered them somewhere, some time. I wish I had kept better records
+ so I could cite specific platforms and compilers.
+
+ * Try to keep variable and function names unique within 6 characters,
+ especially if they are used across modules, since 6 is the maximum
+ for some old linkers (actually, this goes back to TOPS-10 and -20
+ and other old DEC OS's where C-Kermit never ran anyway; a more
+ realistic maximum is probably somewhere between 8 and 16). We know
+ for certain that VAX C has a 31-character max because it complains
+ -- others might not complain, but just silently truncate, thus
+ folding two or more routines/variables into one.
* Keep preprocessor symbols unique within 8 characters; that's the
- max for some preprocessors (sorry, I can't give a specific
- example, but in 1988 or thereabouts, I had to change character-set
- symbols like TC_LATIN1 and TC_LATIN2 to TC_1LATIN and TC_2LATIN
- because the digits were being truncated and ignored on a platform
- where I actually had to build C-Kermit 5A; unfortunately I didn't
- note which platform -- maybe some early Ultrix version?)
+ max for some preprocessors (sorry, I can't give a specific example,
+ but in 1988 or thereabouts, I had to change character-set symbols
+ like TC_LATIN1 and TC_LATIN2 to TC_1LATIN and TC_2LATIN because the
+ digits were being truncated and ignored on a platform where I
+ actually had to build C-Kermit 5A; unfortunately I didn't note
+ which platform -- maybe some early Ultrix version?)
* Don't create preprocessor symbols, or variable or function names,
that start with underscore (_). These are usually reserved for
internal use by the compiler and header files.
* Don't put #include directives inside functions or { blocks }.
* Don't use the #if or #elif preprocessor constructions, only use
#ifdef, #ifndef, #define, #undef, and #endif.
- * Put tokens after #endif in comment brackets, e.g.
- #endif /* FOO */.
+ * Put tokens after #endif in comment brackets, e.g. #endif /* FOO */.
* Don't indent preprocessor statements - # must always be first char
on line.
* Don't put whitespace after # in preprocessor statements.
all the time).
* Always cast strlen() in expressions to int:
if ((int)strlen(foo) < x)...
- * Any variable whose value might exceed 16383 should be declared as
- long, or if that is not possible, then as unsigned.
* Avoid typedefs; they might be portable but they are very confusing
- and there's no way to test for their presence or absence at
- compile time. Use preprocessor symbols instead if possible; at
- least you can test their definitions.
+ and there's no way to test for their presence or absence at compile
+ time. Use preprocessor symbols instead if possible; at least you
+ can test their definitions.
* Unsigned long is not portable; use a preprocessor symbol (Kermit
uses ULONG for this).
* Long long is not portable. If you really need it, be creative.
modifier other than L.
* Unsigned char is not portable, use CHAR (a preprocessor symbol
defined in the Kermit header files) and always take precautions
- against character signage (more about this [28]below).
+ against character signage (more about this [50]below).
* Don't use initializers with automatic arrays or structs: it's not
portable.
* Don't use big automatic arrays or structs in functions that might
be called recursively; some platforms have fixed-size stacks (e.g.
Windows 9x: 256K) and recursive functions crash with stack
- overflow. Even when there is not a compiler limitation, this
- causes memory to be consumed without bound, and can end up filling
- swap space.
+ overflow. Even when there is not a compiler limitation, this causes
+ memory to be consumed without bound, and can end up filling swap
+ space.
* Don't assume that struct assignment performs a copy, or that it
even exists.
* Don't use sizeof to get the size of an array; someone might come
- along later and and change it from static to malloc'd. Always use
- a symbol to refer to the array's size.
+ along later and and change it from static to malloc'd. Always use a
+ symbol to refer to the array's size.
* Don't put prototypes for static functions into header files that
- are used by modules that don't contain that function; the link
- step can fail with unresolved references (e.g. on AOS/VS).
+ are used by modules that don't contain that function; the link step
+ can fail with unresolved references (e.g. on AOS/VS).
* Avoid the construction *++p (the order of evaluation varies; it
shouldn't but at least one compiler had a bug that made me include
this item).
* Don't use triple assignments, like a = b = c = 0; (or quadruple,
etc). Some compilers generate bad code for these, or crash, etc
(some version of DEC C as I recall).
- * Some compilers don't allow structure members to have the same
- names as other identifiers. Try to give structure members unique
- names.
+ * Some compilers don't allow structure members to have the same names
+ as other identifiers. Try to give structure members unique names.
* Don't assume anything about order of evaluation in boolean
expressions, or that they will stop early if a required condition
is not true, e.g.:
if (i > 0 && p[i-1] == blah)
+
can still dump core if i == 0 (hopefully this is not true of any
modern compiler, but I would not have said this if it did not
actually happen somewhere).
and "1.0" is the first edition.
* Don't use or depend on anything_t (size_t, pid_t, etc), except
time_t, without #ifdef protection (time_t is the only one I've
- found that is accepted everywhere). This is a tough one because
- the same function might require (say) a size_t arg on one
- platform, whereas size_t is unheard of on another; or worse, it
- might require a totally different data type, like int or long or
- some other typedef'd thing. It has often proved necessary to
- define a symbol to stand for the type of a particular argument to
- a particular library or system function to get around this
- problem.
+ found that is accepted everywhere). This is a tough one because the
+ same function might require (say) a size_t arg on one platform,
+ whereas size_t is unheard of on another; or worse, it might require
+ a totally different data type, like int or long or some other
+ typedef'd thing. It has often proved necessary to define a symbol
+ to stand for the type of a particular argument to a particular
+ library or system function to get around this problem.
* Don't use or depend on internationalization ("i18n") features,
wchar_t, locales, etc, in portable code; they are not portable.
Anyway, locales are not the right model for Kermit's
and always use SIGRETURN at exit points from signal handlers.
* Signals should always be re-armed to be used again (this barely
scratches the surface -- the differences between BSD/V7 and System
- V and POSIX signal handling are numerous, and some platforms do
- not even support signals, alarms, or longjmps correctly or at all
- -- avoid all of this if you can).
+ V and POSIX signal handling are numerous, and some platforms do not
+ even support signals, alarms, or longjmps correctly or at all --
+ avoid all of this if you can).
* On the other hand, don't assume that signals are disarmed after
being raised. In some platforms you have to re-arm them, in others
they stay armed.
out with 0's and overwriting whatever was there before. Use
C-Kermit ckstrncpy() if you want predictable non-padding behavior,
guaranteed NUL-termination, and a useful return code.
- * DID YOU KNOW.. that some versions of inet_blah() routines return
- IP addresses in network byte order, while others return them local
+ * DID YOU KNOW.. that some versions of inet_blah() routines return IP
+ addresses in network byte order, while others return them local
machine byte order? So passing them to ntohs() or whatever is not
always the right thing to do.
* Don't use ANSI-format function declarations without #ifdef
CK_ANSIC, and always provide an #else for the non-ANSI case.
- * Use the Kermit _PROTOTYP() macro for declaring function
- prototypes; it works in both the ANSI and non-ANSI cases.
- * Don't depend on any other ANSI preprocessor features like
- "pasting" -- they are often missing or nonoperational.
+ * Use the Kermit _PROTOTYP() macro for declaring function prototypes;
+ it works in both the ANSI and non-ANSI cases.
+ * Don't depend on any other ANSI preprocessor features like "pasting"
+ -- they are often missing or nonoperational.
* Don't assume any C++ syntax or semantics.
* Don't use // as a comment introducer. C is not C++.
* Don't declare a string as "char foo[]" in one module and "extern
char * foo" in another, or vice-versa: this causes core dumps.
* With compiler makers falling all over themselves trying to outdo
- each other in ANSI strictness, it has become increasingly
- necessary to cast EVERYTHING. This is increasingly true for char
- vs unsigned char. We need to use unsigned chars if we want to deal
- with 8-bit character sets, but most character- and string-oriented
- APIs want (signed) char arguments, so explicit casts are
- necessary. It would be nice if every compiler had a
- -funsigned-char option (as gcc does), but they don't.
+ each other in ANSI strictness, it has become increasingly necessary
+ to cast EVERYTHING. Especially char vs unsigned char. We need to
+ use unsigned chars if we want to deal with 8-bit character sets,
+ but most character- and string-oriented APIs want (signed) char
+ arguments, so explicit casts are necessary. It would be nice if
+ every compiler had a -funsigned-char option (as gcc does), but they
+ don't.
* a[x], where x is an unsigned char, can produce a wild memory
reference if x, when promoted to an int, becomes negative. Cast it
to (unsigned), even though it ALREADY IS unsigned.
arguments; for ANSI compilers you MUST use ANSI declarations to
avoid promotion problems, but you can't use ANSI declarations with
non-ANSI compilers. Thus declarations of such functions must be
- hideously entwined in #ifdefs. Example: latter:
+ hideously entwined in #ifdefs. Example:
int /* Put character in server command buffer */
#ifdef CK_ANSIC
putsrv(char c)
*srvptr = '\0'; /* Make sure buffer is null-terminated */
return(0);
}
- * Be careful how you return characters from functions that return
- int values -- "getc-like functions" -- in the ANSI world. Unless
- you explicitly cast the return value to (unsigned), it is likely
- to be "promoted" to an int and have its sign extended.
+
+ * Be careful how you return characters from functions that return int
+ values -- "getc-like functions" -- in the ANSI world. Unless you
+ explicitly cast the return value to (unsigned), it is likely to be
+ "promoted" to an int and have its sign extended.
* At least one compiler (the one on DEC OSF/1 1.3) treats "/*" and
- "*/" within string constants as comment begin and end. No amount
- of #ifdefs will get around this one. You simply can't put these
+ "*/" within string constants as comment begin and end. No amount of
+ #ifdefs will get around this one. You simply can't put these
sequences in a string constant, e.g. "/usr/local/doc/*.*".
* Avoid putting multiple macro references on a single line, e.g.:
putchar(BS); putchar(SP); putchar(BS)
- This overflows the CPP output buffer of more than a few C
- preprocessors (this happened, for example, with SunOS 4.1 cc, which
- evidently has a 1K macro expansion buffer).
+ This overflows the CPP output buffer of more than a few C preprocessors
+ (this happened, for example, with SunOS 4.1 cc, which evidently has a
+ 1K macro expansion buffer).
C-Kermit needs constant adjustment to new OS and compiler releases.
Every new OS release shuffles header files or their contents, or
Assume nothing. Don't assume header files are where they are supposed
to be, that they contain what you think they contain, that they define
- specific symbols to have certain values -- or define them at all!
- Don't assume system header files protect themselves against multiple
+ specific symbols to have certain values -- or define them at all! Don't
+ assume system header files protect themselves against multiple
inclusion. Don't assume that particular system or library calls are
available, or that the arguments are what you think they are -- order,
data type, passed by reference vs value, etc. Be conservative when
mistake -- it might be there for a reason, and changing it or removing
is likely to cause compilation, linking, or runtime failures sometime,
somewhere. Some huge percentage of the code, especially in the
- platform-dependent modules, is workarounds for compiler, linker, or
- API bugs.
+ platform-dependent modules, is workarounds for compiler, linker, or API
+ bugs.
But finally... feel free to violate any or all of these rules in
platform-specific modules for environments in which the rules are
certain not to apply. For example, in VMS-specific code, it is OK to
use #if, because VAX C, DEC C, and VMS GCC all support it.
- [ [29]Contents ] [ [30]C-Kermit ] [ [31]Kermit Home ]
- ________________________________________________________________________
+ [ [51]Contents ] [ [52]C-Kermit ] [ [53]Kermit Home ]
- 3.1. Memory Leaks
+3.1. Memory Leaks
The C language and standard C library are notoriously inadequate and
unsafe. Strings are arrays of characters, usually referenced through
pointers. There is no native string datatype. Buffers are fixed size,
- and C provides no runtime bounds checking, thus allowing overwriting
- of other data or even program code. With the popularization of the
+ and C provides no runtime bounds checking, thus allowing overwriting of
+ other data or even program code. With the popularization of the
Internet, the "buffer exploit" has become a preferred method for
hackers to hijack privileged programs; long data strings are fed to a
program in hopes that it uses unsafe C library calls such as strcpy()
or sprintf() to copy strings into automatic arrays, thus overwriting
- the call stack, and therefore the routine's return address. When such
- a hole is discovered, a "string" can be constructed that contains
- machine code to hijack the program's privileges and penetrate the
- system.
+ the call stack, and therefore the routine's return address. When such a
+ hole is discovered, a "string" can be constructed that contains machine
+ code to hijack the program's privileges and penetrate the system.
This problem is partially addressed by the strn...() routines, which
should always be used in preference to their str...() equivalents
(except when the copy operation has already been prechecked, or there
is a good reason for not using them, e.g. the sometimes undesirable
- side effect of strncpy() zeroing the remainder of the buffer). The
- most gaping whole, however, is sprintf(), which performs no length
- checking on its destination buffer, and is not easy to replace.
- Although snprintf() routines are starting to appear, they are not yet
+ side effect of strncpy() zeroing the remainder of the buffer). The most
+ gaping whole, however, is sprintf(), which performs no length checking
+ on its destination buffer, and is not easy to replace. Although
+ snprintf() routines are starting to appear, they are not yet
widespread, and certainly not universal, nor are they especially
portable, or even full-featured.
For these reasons, we have started to build up our own little library
of C Library replacements, ckclib.[ch]. These are safe and highly
- portable primitives for memory management and string manipulation,
- such as:
+ portable primitives for memory management and string manipulation, such
+ as:
ckstrncpy()
Like strncpy but returns a useful value, doesn't zero buffer.
ckmakxmsg()
Like ckmakmsg() but accepts up to 12 items
- More about library functions in [32]Section 4.A.
+ More about library functions in [54]Section 4.A.
- [ [33]Contents ] [ [34]C-Kermit ] [ [35]Kermit Home ]
- ________________________________________________________________________
+ [ [55]Contents ] [ [56]C-Kermit ] [ [57]Kermit Home ]
- 3.2. The "char" vs "unsigned char" Dilemma
+3.2. The "char" vs "unsigned char" Dilemma
- This is one of the most aggravating and vexing characteristics of the
- C language. By design, chars (and char *'s) are SIGNED. But in the
- modern era, however, we need to process characters that can have (or
- include) 8-bit values, as in the ISO Latin-1, IBM CP 850, or UTF-8
- character sets, so this data must be treated as unsigned. But some C
- compilers (such as those based on the Bell UNIX V7 compiler) do not
- support "unsigned char" as a data type. Therefore we have the macro or
- typedef CHAR, which we use when we need chars to be unsigned, but
- which, unfortunately, resolves itself to "char" on those compilers
- that don't support "unsigned char". AND SO... We have to do a lot of
- fiddling at runtime to avoid sign extension and so forth.
+ This is one of the most aggravating and vexing characteristics of the C
+ language. By design, chars (and char *'s) are SIGNED. But in the modern
+ era, however, we need to process characters that can have (or include)
+ 8-bit values, as in the ISO Latin-1, IBM CP 850, or UTF-8 character
+ sets, so this data must be treated as unsigned. But some C compilers
+ (such as those based on the Bell UNIX V7 compiler) do not support
+ "unsigned char" as a data type. Therefore we have the macro or typedef
+ CHAR, which we use when we need chars to be unsigned, but which,
+ unfortunately, resolves itself to "char" on those compilers that don't
+ support "unsigned char". AND SO... We have to do a lot of fiddling at
+ runtime to avoid sign extension and so forth.
Some modern compilers (e.g. IBM, DEC, Microsoft) have options that say
"make all chars be unsigned" (e.g. GCC "-funsigned-char") and we use
them when they are available. Other compilers don't have this option,
and at the same time, are becoming increasingly strict about type
mismatches, and spew out torrents of warnings when we use a CHAR where
- a char is expected, or vice versa. We fix these one by one using
- casts, and the code becomes increasingly ugly. But there remains a
- serious problem, namely that certain library and kernel functions have
+ a char is expected, or vice versa. We fix these one by one using casts,
+ and the code becomes increasingly ugly. But there remains a serious
+ problem, namely that certain library and kernel functions have
arguments that are declared as signed chars (or pointers to them),
- whereas our character data is unsigned. Fine, we can can use casts
- here too -- but who knows what happens inside these routines.
+ whereas our character data is unsigned. Fine, we can can use casts here
+ too -- but who knows what happens inside these routines.
- [ [36]Contents ] [ [37]C-Kermit ] [ [38]Kermit Home ]
- ________________________________________________________________________
+ [ [58]Contents ] [ [59]C-Kermit ] [ [60]Kermit Home ]
- 4. MODULES
+4. MODULES
When C-Kermit is on the far end of a connection, it is said to be in
remote mode. When C-Kermit has made a connection to another computer,
conxxx() (console i/o) routines.
Protocol State
- Reading and writing from the communicatons device. In this
+ Reading and writing from the communications device. In this
mode, all i/o is handled by the Group E ttxxx() (terminal i/o)
routines.
Reading from the keyboard with conxxx() routines and writing to
the communications device with ttxxx() routines AND vice-versa.
- When in local mode, the console and communications device are
- distinct. During file transfer, Kermit may put up a file-transfer
- display on the console and sample the console for interruption
- signals.
+ When in local mode, the console and communications device are distinct.
+ During file transfer, Kermit may put up a file-transfer display on the
+ console and sample the console for interruption signals.
When in remote mode, the console and communications device are the
same, and therefore there can be no file-transfer display on the
console or interruptions from it (except for "in-band" interruptions
such as ^C^C^C).
- [ [39]Contents ] [ [40]C-Kermit ] [ [41]Kermit Home ]
- ________________________________________________________________________
+ [ [61]Contents ] [ [62]C-Kermit ] [ [63]Kermit Home ]
- 4.A. Group A: Library Functions
+4.A. Group A: Library Functions
- Library functions, strictly portable, can be used by all modules on
- all platforms: [42]ckclib.h, [43]ckclib.c.
+ Library functions, strictly portable, can be used by all modules on all
+ platforms: [64]ckclib.h, [65]ckclib.c.
- (To be filled in... For now, see [44]Section 3.1 and the comments in
+ (To be filled in... For now, see [66]Section 3.1 and the comments in
ckclib.c.)
- [ [45]Contents ] [ [46]C-Kermit ] [ [47]Kermit Home ]
- ________________________________________________________________________
+ [ [67]Contents ] [ [68]C-Kermit ] [ [69]Kermit Home ]
- 4.B. Group B: Kermit File Transfer
+4.B. Group B: Kermit File Transfer
The Kermit protocol kernel. These files, whose names start with "ckc
are supposed to be totally portable C, and are expected to compile
- correctly on any platform with any C compiler. "Portable" does not
- mean the same as as "ANSI" -- these modules must compile on 10- and
- 20-year old computers, with C preprocessors, compilers, and/or linkers
- that have all sorts of restrictions. The Group B modules do not
- include any header files other than those that come with Kermit
- itself. They do not contain any library calls except from the standard
- C library (e.g. printf()). They most certainly do not contain any
- system calls. Files:
-
- [48]ckcsym.h
+ correctly on any platform with any C compiler. "Portable" does not mean
+ the same as as "ANSI" -- these modules must compile on 10- and 20-year
+ old computers, with C preprocessors, compilers, and/or linkers that
+ have all sorts of restrictions. The Group B modules do not include any
+ header files other than those that come with Kermit itself. They do not
+ contain any library calls except from the standard C library (e.g.
+ printf()). They most certainly do not contain any system calls. Files:
+
+ [70]ckcsym.h
For use by C compilers that don't allow -D on the command line.
- [49]ckcasc.h
+ [71]ckcasc.h
ASCII character symbol definitions.
- [50]ckcsig.h
+ [72]ckcsig.h
System-independent signal-handling definitions and prototypes.
- [51]ckcdeb.h
+ [73]ckcdeb.h
Originally, debugging definitions. Now this file also contains
- all definitions and prototypes that are shared by all modules
- in all groups.
+ all definitions and prototypes that are shared by all modules in
+ all groups.
- [52]ckcker.h
+ [74]ckcker.h
Kermit protocol symbol definitions.
- [53]ckcxla.h
+ [75]ckcxla.h
Character-set-related symbol definitions (see next section).
- [54]ckcmai.c
+ [76]ckcmai.c
The main program. This module contains the declarations of all
the protocol-related global variables that are shared among the
other modules.
- [55]ckcpro.w
+ [77]ckcpro.w
The protocol module itself, written in "wart", a lex-like
preprocessor that is distributed with Kermit under the name
CKWART.C.
- [56]ckcfns.c, [57]ckcfn2.c, [58]ckcfn3.c
+ [78]ckcfns.c, [79]ckcfn2.c, [80]ckcfn3.c
The protocol support functions used by the protocol module.
- [59]Group B modules may call upon functions from [60]Group E, but not
- from [61]Group D modules (with the single exception that the main
+ [81]Group B modules may call upon functions from [82]Group E, but not
+ from [83]Group D modules (with the single exception that the main
program invokes the user interface, which is in Group D). (This last
assertion is really only a conjecture.)
- [ [62]Contents ] [ [63]C-Kermit ] [ [64]Kermit Home ]
- ________________________________________________________________________
+ [ [84]Contents ] [ [85]C-Kermit ] [ [86]Kermit Home ]
- 4.C. Group C: Character-Set Conversion
+4.C. Group C: Character-Set Conversion
- Character set translation tables and functions. Used by the [65]Group
+ Character set translation tables and functions. Used by the [87]Group
B, protocol modules, but may be specific to different computers. (So
far, all character character sets supported by C-Kermit are supported
- in [66]ckuxla.c and [67]ckuxla.h, including Macintosh and IBM
- character sets). These modules should be completely portable, and not
- rely on any kind of system or library services.
+ in [88]ckuxla.c and [89]ckuxla.h, including Macintosh and IBM character
+ sets). These modules should be completely portable, and not rely on any
+ kind of system or library services.
- [68]ckcxla.h
+ [90]ckcxla.h
Character-set definitions usable by all versions of C-Kermit.
ck?xla.h
- Character-set definitions for computer "?", e.g. [69]ckuxla.h
- for UNIX, [70]ckmxla.h for Macintosh.
+ Character-set definitions for computer "?", e.g. [91]ckuxla.h
+ for UNIX, [92]ckmxla.h for Macintosh.
- [71]ck?xla
- Character-set translation tables and functions for computer
- "?", For example, CKUXLA.C for UNIX, CKMXLA.C for Macintosh. So
- far, these are the only two such modules. The UNIX module is
- used for all versions of C-Kermit except the Macintosh version.
+ [93]ck?xla
+ Character-set translation tables and functions for computer "?",
+ For example, CKUXLA.C for UNIX, CKMXLA.C for Macintosh. So far,
+ these are the only two such modules. The UNIX module is used for
+ all versions of C-Kermit except the Macintosh version.
- [72]ckcuni.h
+ [94]ckcuni.h
Unicode definitions
- [73]ckcuni.c
+ [95]ckcuni.c
Unicode module
- Here's how to add a new file character set in the original
- (non-Unicode modules). Assuming it is based on the Roman (Latin)
- alphabet. Let's call it "Barbarian". First, in ck?xla.h, add a
- definition for FC_BARBA (8 chars maximum length) and increase
- MAXFCSETS by 1. Then, in ck?xla.c:
+ Here's how to add a new file character set in the original (non-Unicode
+ modules). Assuming it is based on the Roman (Latin) alphabet. Let's
+ call it "Barbarian". First, in ck?xla.h, add a definition for FC_BARBA
+ (8 chars maximum length) and increase MAXFCSETS by 1. Then, in
+ ck?xla.c:
* Add a barbarian entry into the fcsinfo array.
* Add a "barbarian" entry to file character set keyword table,
+ (To be filled in...)
- [ [74]Contents ] [ [75]C-Kermit ] [ [76]Kermit Home ]
- ________________________________________________________________________
+ [ [96]Contents ] [ [97]C-Kermit ] [ [98]Kermit Home ]
- 4.D. Group D: User Interface
+4.D. Group D: User Interface
This is the code that communicates with the user, gets her commands,
informs her of the results. It may be command-line oriented,
interactive prompting dialog, menus and arrow keys, windows and mice,
speech recognition, telepathy, etc. The one provided is command-and
prompt, with the ability to read commands from various sources: the
- console keyboard, a file, or a macro definition. The user interface
- has three major functions:
+ console keyboard, a file, or a macro definition. The user interface has
+ three major functions:
1. Sets the parameters for the file transfer and then starts it. This
is done by setting certain (many) global variables, such as the
2. Displays messages on the user's screen during the file transfer,
using the screen() function, which is called by the group-1
modules.
- 3. Executes any commands directly that do not require Kermit
- protocol, such as the CONNECT command, local file management
- commands, parameter-setting commands, FTP client commands, etc.
+ 3. Executes any commands directly that do not require Kermit protocol,
+ such as the CONNECT command, local file management commands,
+ parameter-setting commands, FTP client commands, etc.
- If you plan to imbed the [77]Group B, files into a program with a
+ If you plan to embed the [99]Group B, files into a program with a
different user interface, your interface must supply an appropriate
screen() function, plus a couple related ones like chkint() and
intmsg() for handling keyboard (or mouse, etc) interruptions during
see which missing symbols turn up.
C-Kermit's character-oriented user interface (as opposed to the
- Macintosh version's graphical user interface) consists of the
- following modules. C-Kermit can be built with an interactive command
- parser, a command-line-option-only parser, a graphical user interface,
- or any combination, and it can even be built with no user interface at
- all (in which case it runs as a remote-mode Kermit server).
-
- [78]ckucmd.h
- [79]ckucmd.c
+ Macintosh version's graphical user interface) consists of the following
+ modules. C-Kermit can be built with an interactive command parser, a
+ command-line-option-only parser, a graphical user interface, or any
+ combination, and it can even be built with no user interface at all (in
+ which case it runs as a remote-mode Kermit server).
+
+ [100]ckucmd.h
+ [101]ckucmd.c
The command parsing primitives used by the interactive command
parser to parse keywords, numbers, filenames, etc, and to give
help, complete fields, supply defaults, allow abbreviations and
- editing, etc. This package is totally independent of Kermit,
- but does depend on the [80]Group E functions.
+ editing, etc. This package is totally independent of Kermit, but
+ does depend on the [102]Group E functions.
- [81]ckuusr.h
+ [103]ckuusr.h
Definitions of symbols used in Kermit's commands.
ckuus*.c
Kermit's interactive command parser, including the script
- programming language: [82]ckuusr.c (includes top-level keyword
- tables); [83]ckuus2.c (HELP command text); [84]ckuus3.c (most
- of the SET command); [85]ckuus4.c (includes variables and
+ programming language: [104]ckuusr.c (includes top-level keyword
+ tables); [105]ckuus2.c (HELP command text); [106]ckuus3.c (most
+ of the SET command); [107]ckuus4.c (includes variables and
functions); ckuus[567].c (miscellaneous);
- [86]ckuusy.c
+ [108]ckuusy.c
The command-line-option parser.
- [87]ckuusx.c
+ [109]ckuusx.c
User interface functions common to both the interactive and
command-line parsers.
- [88]ckuver.h
+ [110]ckuver.h
Version heralds for different implementations.
- [89]ckuscr.c
+ [111]ckuscr.c
The (old, uucp-like) SCRIPT command
- [90]ckudia.c
+ [112]ckudia.c
The DIAL command. Includes specific knowledge of many types of
modems.
The CONNECT command. Terminal connection, and in some cases
(Macintosh, Windows) also terminal emulation. NOTE: As of
C-Kermit 7.0, there are two different CONNECT modules for UNIX:
- [91]ckucon.c -- the traditional, portable, fork()-based version
- -- and [92]ckucns.c, a new version that uses select() rather
+ [113]ckucon.c -- the traditional, portable, fork()-based version
+ -- and [114]ckucns.c, a new version that uses select() rather
than forks so it can handle encryption. ckucns.c is the
preferred version for Unix; ckucon.c is not likely to keep pace
with it in terms of upgrades, etc. However, since select() is
global variables are shared among the many modules. These should, some
day, be collected into classes or structures that can be passed around
as needed; not only for purity's sake, but also to allow for multiple
- simultaneous communication sessions and or user interfaces. Our list
- of things to do is endless, and reorganizing the source is almost
- always at the bottom.
+ simultaneous communication sessions and or user interfaces. Our list of
+ things to do is endless, and reorganizing the source is almost always
+ at the bottom.
The ckuus*.c modules (like many of the ckc*.c modules) depend on the
existence of C library features like fopen, fgets, feof, (f)printf,
- argv/argc, etc. Other functions that are likely to vary among
- operating systems -- like setting terminal modes or interrupts -- are
- invoked via calls to functions that are defined in the [93]Group E
+ argv/argc, etc. Other functions that are likely to vary among operating
+ systems -- like setting terminal modes or interrupts -- are invoked via
+ calls to functions that are defined in the [115]Group E
platform-dependent modules, ck?[ft]io.c. The command line parser
processes any arguments found on the command line, as passed to main()
via argv/argc. The interactive parser uses the facilities of the cmd
requirements for the Kermit command parser are these:
1. Set parameters via global variables like duplex, speed, ttname,
- etc. See [94]ckcmai.c for the declarations and descriptions of
+ etc. See [116]ckcmai.c for the declarations and descriptions of
these variables.
2. If a command can be executed without the use of Kermit protocol,
then execute the command directly and set the sstate (start state)
's' (send files) nfils, cmarg & cmarg2 OR cmlist
'c' (send a remote host command) cmarg
+
cmlist is an array of pointers to strings.
cmarg, cmarg2 are pointers to strings.
nfils is an integer (hmmm, probably should be an unsigned long).
defined). The intmsg() and chkint() functions provide the user i/o for
interrupting file transfers.
- [ [95]Contents ] [ [96]C-Kermit ] [ [97]Kermit Home ]
- ________________________________________________________________________
+ [ [117]Contents ] [ [118]C-Kermit ] [ [119]Kermit Home ]
- 4.E. Group E: Platform-Dependent I/O
+4.E. Group E: Platform-Dependent I/O
Platform-dependent function definitions. All the Kermit modules,
including the command package, call upon these functions, which are
designed to provide system-independent primitives for controlling and
manipulating devices and files. For Unix, these functions are defined
- in the files [98]ckufio.c (files), [99]ckutio.c (communications), and
- [100]ckusig.c (signal handling).
+ in the files [120]ckufio.c (files), [121]ckutio.c (communications), and
+ [122]ckusig.c (signal handling).
- For VMS, the files are [101]ckvfio.c, ckvtio.c, and [102]ckusig.c (VMS
+ For VMS, the files are [123]ckvfio.c, ckvtio.c, and [124]ckusig.c (VMS
can use the same signal handling routines as Unix). It doesn't really
matter what the files are called, except for Kermit distribution
purposes (grouping related files together alphabetically), only that
reported as undefined. But that was a long time ago, probably circa
Version 6.)
- 4.E.1. Global Variables
+4.E.1. Global Variables
char *DELCMD;
Pointer to string containing command for deleting files.
filespec is not given. (currently not used, handled in another
way.)
Example: char *DIRCMD2 = "/bin/ls -ld *";
- NOTE: DIRCMD2 is used only in versions that do not provide
- their own built-in DIRECTORY command.
+ NOTE: DIRCMD2 is used only in versions that do not provide their
+ own built-in DIRECTORY command.
char *PWDCMD;
Pointer to string containing command to display current
char *ckxsys;
Pointer to string that names the computer and operating system.
Example: char *ckxsys = " NeXT Mach 1.0";
- Tells what computer system ckxv applies to. In UNIX Kermit,
- this variable is also used to print the program herald, and in
- the SHOW VERSION command.
+ Tells what computer system ckxv applies to. In UNIX Kermit, this
+ variable is also used to print the program herald, and in the
+ SHOW VERSION command.
char *ckxv;
Pointer to version/edit info of ck?tio.c module.
int dfflow;
Default flow control. 0 = none, 1 = Xon/Xoff, ... (see FLO_xxx
symbols in ckcdeb.h)
- Set by Group E module. Used by [103]ckcmai.c to initialize flow
+ Set by Group E module. Used by [125]ckcmai.c to initialize flow
control variable.
int dfloc;
places in the user interface.
int dfprty;
- Default parity. 0 = none, 'e' = even, 'o' = odd, 'm' = mark,
- 's' = space. Set by Group E module. Used by ckcmai.c to
- initialize parity variable.
+ Default parity. 0 = none, 'e' = even, 'o' = odd, 'm' = mark, 's'
+ = space. Set by Group E module. Used by ckcmai.c to initialize
+ parity variable.
char *dftty;
Default communication device. Set by Group E module. Used in
- many places. This variable should be initialized the the symbol
+ many places. This variable should be initialized the symbol
CTTNAM, which is defined in ckcdeb.h, e.g. as "/dev/tty" for
UNIX, "TT:" for VMS, etc. Example: char *dftty = CTTNAM;
int ttyfd;
File descriptor of the communication device. -1 if there is no
open or usable connection, including when C-Kermit is in remote
- mode. Since this is not implemented everywhere, references to
- it are in #ifdef CK_TTYFD..#endif.
+ mode. Since this is not implemented everywhere, references to it
+ are in #ifdef CK_TTYFD..#endif.
- [ [104]Contents ] [ [105]C-Kermit ] [ [106]Kermit Home ]
- ________________________________________________________________________
+ [ [126]Contents ] [ [127]C-Kermit ] [ [128]Kermit Home ]
- 4.E.2. Functions
+4.E.2. Functions
These are divided into three categories: file-related functions (B.1),
communication functions (B.2), and miscellaneous functions (B.3).
- 4.E.2.1. File-Related Functions
+4.E.2.1. File-Related Functions
In most implementations, these are collected together into a module
- called ck?fio.c, where ? = "u" ([107]ckutio.c for Unix), "v"
- ([108]ckvtio.c for VMS), [109]etc. To be totally platform-independent,
+ called ck?fio.c, where ? = "u" ([129]ckutio.c for Unix), "v"
+ ([130]ckvtio.c for VMS), [131]etc. To be totally platform-independent,
C-Kermit maintains its own file numbers, and provides the functions
described in this section to deal with the files associated with them.
The file numbers are referred to symbolically, and are defined as
#define ZSYSFN 8 /* Input from a system function (pipe) */
#define ZRFILE 9 /* Local file for READ command */ (NEW)
#define ZWFILE 10 /* Local file for WRITE command */ (NEW)
- #define ZMFILE 11 /* Auxilliary file for internal use */ (NEW)
+ #define ZMFILE 11 /* Auxiliary file for internal use */ (NEW)
#define ZNFILS 12 /* How many defined file numbers */
- In the descriptions below, fn refers to a filename, and n refers to
- one of these file numbers. Functions are of type int unless otherwise
+ In the descriptions below, fn refers to a filename, and n refers to one
+ of these file numbers. Functions are of type int unless otherwise
noted, and are listed mostly alphabetically.
int
int
isdir(string) char *string;
Checks if the string is the name of an existing directory. The
- idea is to check whether the string can be "cd'd" to, so in
- some cases (e.g. DOS) it might also indicate any file
- structured device, such as a disk drive (like A:). Other
- nonzero returns indicate system-dependent information; e.g. in
- VMS isdir("[.FOO]") returns 1 but isdir("FOO.DIR;1") returns 2
- to indicate the directory-file name is in a format that needs
+ idea is to check whether the string can be "cd'd" to, so in some
+ cases (e.g. DOS) it might also indicate any file structured
+ device, such as a disk drive (like A:). Other nonzero returns
+ indicate system-dependent information; e.g. in VMS
+ isdir("[.FOO]") returns 1 but isdir("FOO.DIR;1") returns 2 to
+ indicate the directory-file name is in a format that needs
conversion before it can be combined with a filename. Returns:
0: not a directory (including any kind of error)
1: it is an existing directory
char *
zfcdat(name) char *name;
Returns modification (preferably, otherwise creation) date/time
- of file whose name is given in the argument string. Return
- value is a pointer to a string of the form yyyymmdd hh:mm:ss,
- for example 19931231 23:59:59, which represents the local time
- (no timezone or daylight savings time finagling required).
- Returns the null string ("") on failure. The text pointed to by
- the string pointer might be in a static buffer, and so should
- be copied to a safe place by the caller before any subsequent
- calls to this function.
+ of file whose name is given in the argument string. Return value
+ is a pointer to a string of the form yyyymmdd hh:mm:ss, for
+ example 19931231 23:59:59, which represents the local time (no
+ timezone or daylight savings time finagling required). Returns
+ the null string ("") on failure. The text pointed to by the
+ string pointer might be in a static buffer, and so should be
+ copied to a safe place by the caller before any subsequent calls
+ to this function.
struct zfnfp *
zfnqfp(fn, buflen, buf) char * fn; int buflen; char * buf;
Given the filename fn, the corresponding fully qualified,
- absolute filename is placed into the buffer buf, whose length
- is buflen. On failure returns a NULL pointer. On success
- returns a pointer to a struct zfnfp containing pointers to the
- full pathname and to just the filename, and an int giving the
- length of the full pathname. All references to this function in
+ absolute filename is placed into the buffer buf, whose length is
+ buflen. On failure returns a NULL pointer. On success returns a
+ pointer to a struct zfnfp containing pointers to the full
+ pathname and to just the filename, and an int giving the length
+ of the full pathname. All references to this function in
mainline code must be protected by #ifdef ZFNQFP..#endif,
because it is not present in all of the ck*fio.c modules. So if
you implement this function in a version that did not have it
- before, be sure to add #define ZFNQFP in the appropriate spot
- in ckcdeb.h or in the build-procedure CFLAGS.
+ before, be sure to add #define ZFNQFP in the appropriate spot in
+ ckcdeb.h or in the build-procedure CFLAGS.
int
zcmpfn(s1,s2) char * s2, * s2;
int
zchdir(dirnam) char *dirnam;
- Changes current or default directory to the one given in
- dirnam. Returns:
+ Changes current or default directory to the one given in dirnam.
+ Returns:
0: On failure.
1: on success.
Check to see if file with name fn is a regular, readable,
existing file, suitable for Kermit to send -- not a directory,
not a symbolic link, etc. Returns:
- -3: if file exists but is not accessible (e.g.
- read-protected);
+ -3: if file exists but is not accessible (e.g. read-protected);
-2: if file exists but is not of a readable type (e.g. a
directory);
-1: on error (e.g. file does not exist, or fn is garbage);
zgetfs(fn) char *fn;
Gets the size of the given file, regardless of accessibility.
Used for directory listings. Unlike zchki(), should return the
- size of any kind of file, even a directory. zgetfs() also
- should serve as a mini "get file info" function that can be
- used until we design a better one, by also setting some global
- variables:
+ size of any kind of file, even a directory. zgetfs() also should
+ serve as a mini "get file info" function that can be used until
+ we design a better one, by also setting some global variables:
int zgfs_link = 1/0 = file is (not) a symbolic link.
int zgfs_dir = 1/0 = file is (not) a directory.
char linkname[] = if zgfs_link != 0, name of file link points
int
zchkspa(fn,len) char *f; long len;
Checks to see if there is sufficient space to store the file
- named fn, which is len bytes long. If you can't write a
- function to do this, then just make a dummy that always returns
- 1; higher level code will recover from disk-full errors. The
- receiving Kermit uses this function to refuse an incoming file
- based on its size, via the attribute mechanism. Returns:
+ named fn, which is len bytes long. If you can't write a function
+ to do this, then just make a dummy that always returns 1; higher
+ level code will recover from disk-full errors. The receiving
+ Kermit uses this function to refuse an incoming file based on
+ its size, via the attribute mechanism. Returns:
-1: on error.
0: if there is not enough space.
1: if there is enough space.
Returns a pointer to the system-dependent symbolic
permissions/protection string for file f, or NULL upon failure.
Used if CK_PERMS is defined. Example: In UNIX zgperm(f) might
- return "100770", but ziperm() might return "-rwxrwx---". In
- VMS, zgperm() would return a hexadecimal string, but ziperm()
- would return something like "(RWED,RWED,RE,)".
+ return "100770", but ziperm() might return "-rwxrwx---". In VMS,
+ zgperm() would return a hexadecimal string, but ziperm() would
+ return something like "(RWED,RWED,RE,)".
char *
zgtdir()
char *
zhome()
Returns a pointer to a string containing the user's home
- directory, or NULL upon error. Should be formatted like
- zgtdir() (q.v.).
+ directory, or NULL upon error. Should be formatted like zgtdir()
+ (q.v.).
int
zinfill()
Fill buffer from input file. This function is used by the macro
- zminchar(), which is defined in ckcker.h. zminchar() manages
- its own buffer, and calls zinfill() to fill it whenever it
- becomes empty. It is used only for sending files, and reads
- characters only from file number ZIFILE. zinfill() returns -1
- upon end of file, -2 upon fatal error, and -3 upon timeout
- (e.g. when reading from a pipe); otherwise it returns the first
- character from the buffer it just read.
+ zminchar(), which is defined in ckcker.h. zminchar() manages its
+ own buffer, and calls zinfill() to fill it whenever it becomes
+ empty. It is used only for sending files, and reads characters
+ only from file number ZIFILE. zinfill() returns -1 upon end of
+ file, -2 upon fatal error, and -3 upon timeout (e.g. when
+ reading from a pipe); otherwise it returns the first character
+ from the buffer it just read.
int
zkself()
Local-To-Remote filename translation. OBSOLETE: replaced by
nzltor() (q.v.). Translates the local filename fn into a format
suitable for transmission to an arbitrary type of computer, and
- copies the result into the buffer pointed to by fn2.
- Translation may involve (a) stripping the device and/or
- directory/path name, (b) converting lowercase to uppercase, (c)
- removing spaces and strange characters, or converting them to
- some innocuous alphabetic character like X, (d) discarding or
- converting extra periods (there should not be more than one).
- Does its best. Returns no value. name2 is a pointer to a
- buffer, furnished by the caller, into which zltor() writes the
- resulting name. No length checking is done.
+ copies the result into the buffer pointed to by fn2. Translation
+ may involve (a) stripping the device and/or directory/path name,
+ (b) converting lowercase to uppercase, (c) removing spaces and
+ strange characters, or converting them to some innocuous
+ alphabetic character like X, (d) discarding or converting extra
+ periods (there should not be more than one). Does its best.
+ Returns no value. name2 is a pointer to a buffer, furnished by
+ the caller, into which zltor() writes the resulting name. No
+ length checking is done.
#ifdef NZLTOR
VOID
PATH_REL: The relative pathname is to be included
PATH_ABS: The full pathname is to be included
- After handling pathnames, conversion is done to the result as
- in the zltor() description if convert != 0; if relative or
- absolute pathnames are included, they are converted to UNIX
- format, i.e. with slash (/) as the directory separator. The max
- parameter specifies the maximum size of fn2. If convert > 0,
- the regular conversions are done; if convert < 0, minimal
- conversions are done (we skip uppercasing the letters, we allow
- more than one period, etc; this can be used when we know our
- partner is UNIX or similar).
+ After handling pathnames, conversion is done to the result as in
+ the zltor() description if convert != 0; if relative or absolute
+ pathnames are included, they are converted to UNIX format, i.e.
+ with slash (/) as the directory separator. The max parameter
+ specifies the maximum size of fn2. If convert > 0, the regular
+ conversions are done; if convert < 0, minimal conversions are
+ done (we skip uppercasing the letters, we allow more than one
+ period, etc; this can be used when we know our partner is UNIX
+ or similar).
#endif /* NZLTOR */
znext(buf);
printf("%s\n", buf);
}
+
should print all the file names; no more, no less.
- 2. In UNIX, DOS, OS-9, etc, where directories contain entries
- for themselves (.) and the superior directory (..), these
- should NOT be included in the list under any circumstances,
- including when ZX_MATCHDOT is set.
+ 2. In UNIX, DOS, OS-9, etc, where directories contain entries for
+ themselves (.) and the superior directory (..), these should
+ NOT be included in the list under any circumstances, including
+ when ZX_MATCHDOT is set.
3. Additional option bits might be added in the future, e.g. for
sorting (sort by date/name/size, reverse/ascending, etc).
Currently this is done only in higher level code (through a
int
zrmdir(path) char *path;
- Attempts to remove the given directory. Returns 0 on success,
- -1 on failure. The detailed semantics are open -- should it
- fail if the directory contains any files or subdirectories,
- etc. It is probably best for this routine to behave in whatever
- manner is customary on the underlying platform; e.g. in UNIX,
- VMS, DOS, etc, where directories can not be removed unless they
- are empty.
+ Attempts to remove the given directory. Returns 0 on success, -1
+ on failure. The detailed semantics are open -- should it fail if
+ the directory contains any files or subdirectories, etc. It is
+ probably best for this routine to behave in whatever manner is
+ customary on the underlying platform; e.g. in UNIX, VMS, DOS,
+ etc, where directories can not be removed unless they are empty.
VOID
znewn(fn,s) char *fn, **s;
same as fn; Otherwise, it's different. this function does its
best, returns no value. New name is created in caller's space.
Call like this: znewn(old,&new);. The second parameter is a
- pointer to the new name. This pointer is set by znewn() to
- point to a static string in its own space, so be sure to the
- result to a safe place before calling this function again.
+ pointer to the new name. This pointer is set by znewn() to point
+ to a static string in its own space, so be sure to the result to
+ a safe place before calling this function again.
int
znext(fn) char *fn;
Copies the next file name from a file list created by zxpand()
- into the string pointed to by fn (see zxpand). If no more
- files, then the null string is placed there. Returns 0 if there
- are no more filenames, with 0th element the array pointed to by
- fn set to NUL. If there is a filename, it is stored in the
- array pointed to by fn and a positive number is returned. NOTE:
- This is a change from earlier definitions of this function
- (pre-1999), which returned the number of files remaining; thus
- 0 was the return value when returning the final file. However,
- no mainline code ever depended on the return value, so this
- change should be safe.
+ into the string pointed to by fn (see zxpand). If no more files,
+ then the null string is placed there. Returns 0 if there are no
+ more filenames, with 0th element the array pointed to by fn set
+ to NUL. If there is a filename, it is stored in the array
+ pointed to by fn and a positive number is returned. NOTE: This
+ is a change from earlier definitions of this function
+ (pre-1999), which returned the number of files remaining; thus 0
+ was the return value when returning the final file. However, no
+ mainline code ever depended on the return value, so this change
+ should be safe.
int
zopeni(n,fn) int n; char *fn;
containing various information about the file, including its
size, creation date, and so forth. This function should attempt
to honor as many of these as possible. fcb is a "file control
- block" in the traditional sense, defined in ckcdeb.h,
- containing information relevant to complicated file systems
- like VMS (RMS), IBM MVS, etc, like blocksize, record length,
- organization, record format, carriage control, etc. Returns:
+ block" in the traditional sense, defined in ckcdeb.h, containing
+ information relevant to complicated file systems like VMS (RMS),
+ IBM MVS, etc, like blocksize, record length, organization,
+ record format, carriage control, etc. Returns:
0: on failure.
1: on success.
int
zoutdump()
Dumps a file output buffer. Used with the macro zmchout()
- defined in ckcker.h. Used only with file number ZOFILE, i.e.
- the file that is being received by Kermit during file transfer.
+ defined in ckcker.h. Used only with file number ZOFILE, i.e. the
+ file that is being received by Kermit during file transfer.
Returns:
-1: on failure.
0: on success.
int
zprint(p,fn) char *p, *f;
- Prints the file with name fn on a local printer, with options
- p. Returns:
+ Prints the file with name fn on a local printer, with options p.
+ Returns:
0: on success
3: if file sent to printer but can't be deleted
-3: if file can't be printed
int
zrename(fn,fn2) char *fn, *fn2;
Changes the name of file fn to fn2. If fn2 is the name of an
- existing directory, or a file-structured device, then file fn
- is moved to that directory or device, keeping its original
- name. If fn2 lacks a directory separator when passed to this
- function, an appropriate one is supplied. Returns:
+ existing directory, or a file-structured device, then file fn is
+ moved to that directory or device, keeping its original name. If
+ fn2 lacks a directory separator when passed to this function, an
+ appropriate one is supplied. Returns:
-1: on failure.
0: on success.
int
zsattr(xx) struct zattr *xx;
- Fills in a Kermit file attribute structure for the file which
- is to be sent, namely the currently open ZIFILE. Note that this
- is not a very good design, but we're stuck with it. Callers
- must ensure that zsattr() is called only on real files, not on
- pipes, internally generated file-like objects such as server
- REMOTE command responses, etc. Returns:
+ Fills in a Kermit file attribute structure for the file which is
+ to be sent, namely the currently open ZIFILE. Note that this is
+ not a very good design, but we're stuck with it. Callers must
+ ensure that zsattr() is called only on real files, not on pipes,
+ internally generated file-like objects such as server REMOTE
+ command responses, etc. Returns:
-1: on failure.
0: on success with the structure filled in.
If any string member is null, it should be ignored by the
caller.
- If any numeric member is -1, it should be ignored by the
- caller.
+ If any numeric member is -1, it should be ignored by the caller.
int
zshcmd(s) char *s;
s contains to pointer to a command to be executed by the host
computer's shell, command parser, or operating system. If the
system allows the user to choose from a variety of command
- processors (shells), then this function should employ the
- user's preferred shell. If possible, the user's job
- (environment, process, etc) should be set up to catch keyboard
- interruption signals to allow the user to halt the system
- command and return to Kermit. The command must run in ordinary,
- unprivileged user mode. If possible, this function should
- return -1 on failure to start the command, or else it should
- return 1 if the command succeeded and 0 if it failed.
+ processors (shells), then this function should employ the user's
+ preferred shell. If possible, the user's job (environment,
+ process, etc) should be set up to catch keyboard interruption
+ signals to allow the user to halt the system command and return
+ to Kermit. The command must run in ordinary, unprivileged user
+ mode. If possible, this function should return -1 on failure to
+ start the command, or else it should return 1 if the command
+ succeeded and 0 if it failed.
int
pexitstatus
s contains to pointer to a command to be executed by the host
computer's shell, command parser, or operating system. If the
system allows the user to choose from a variety of command
- processors (shells), then this function should employ the
- system standard shell (e.g. /bin/sh for Unix), so that the
- results will always be the same for everybody. If possible, the
- user's job (environment, process, etc) should be set up to
- catch keyboard interruption signals to allow the user to halt
- the system command and return to Kermit. The command must run
- in ordinary, unprivileged user mode. If possible, this function
- should return -1 on failure to start the command, or else it
- should return 1 if the command succeeded and 0 if it failed.
+ processors (shells), then this function should employ the system
+ standard shell (e.g. /bin/sh for Unix), so that the results will
+ always be the same for everybody. If possible, the user's job
+ (environment, process, etc) should be set up to catch keyboard
+ interruption signals to allow the user to halt the system
+ command and return to Kermit. The command must run in ordinary,
+ unprivileged user mode. If possible, this function should return
+ -1 on failure to start the command, or else it should return 1
+ if the command succeeded and 0 if it failed.
VOID
z_exec(s,args) char * s; char * args[];
- This one executes the command s (which is searched for using
- the system's normal searching mechanism, such as PATH in UNIX),
- with the given argument vector, which follows the conventions
- of UNIX argv[]: the name of the command pointed to by element
- 0, the first arg by element 1, and so on. A null args[] pointer
- indicates the end of the arugment list. All open files must
+ This one executes the command s (which is searched for using the
+ system's normal searching mechanism, such as PATH in UNIX), with
+ the given argument vector, which follows the conventions of UNIX
+ argv[]: the name of the command pointed to by element 0, the
+ first arg by element 1, and so on. A null args[] pointer
+ indicates the end of the argument list. All open files must
remain open so the exec'd process can use them. Returns only if
unsuccessful.
int
zsoutx(n,s,x) int n, x; char *s;
- Writes exactly x characters from string s to file number n. If
- s has fewer than x characters, then the entire string s is
+ Writes exactly x characters from string s to file number n. If s
+ has fewer than x characters, then the entire string s is
written. Returns:
-1: on failure.
>= 0: on success, the number of characters actually written.
int
zstime(fn,yy,x) char *fn; struct zattr *yy; int x;
Sets the creation date (and other attributes) of an existing
- file, or compares a file's creation date with a given date.
- Call with:
+ file, or compares a file's creation date with a given date. Call
+ with:
fn: pointer to name of existing file.
yy: Pointer to a Kermit file attribute structure in which yy->date.val
is a date of the form yyyymmdd hh:mm:ss, e.g. 19900208 13:00:00, which
is to be used for setting or comparing the file date. Other attributes
in the struct can also be set, such as the protection/permission (See
- [110]Appendix I), when it makes sense (e.g. "yy->lprotect.val" can be
+ [132]Appendix I), when it makes sense (e.g. "yy->lprotect.val" can be
set if the remote system ID matches the local one).
x: A function code: 0 means to set the file's creation date as given.
1 means compare the date from the yy struct with the file's date.
Returns:
-1: on any kind of error.
0: if x is 0 and the file date was set successfully.
- 0: if x is 1 and date from attribute structure > file
- creation date.
+ 0: if x is 1 and date from attribute structure > file creation
+ date.
1: if x is 1 and date from attribute structure <= file
creation date.
VOID
zstrip(name,name2) char *name, **name2;
Strips pathname from filename "name". Constructs the resulting
- string in a static buffer in its own space and returns a
- pointer to it in name2. Also strips device name, file version
- numbers, and other "non-name" material.
+ string in a static buffer in its own space and returns a pointer
+ to it in name2. Also strips device name, file version numbers,
+ and other "non-name" material.
int
zxcmd(n,s) char *s;
int
zxrewind()
Returns the number of files returned by the most recent
- nzxpand() call, and resets the list to the beginning so the
- next znext() call returns the first file. Returns -1 if zxpand
- has not yet been called. If this function is available,
- ZXREWIND should be defined; otherwise it should not be
- referenced.
+ nzxpand() call, and resets the list to the beginning so the next
+ znext() call returns the first file. Returns -1 if zxpand has
+ not yet been called. If this function is available, ZXREWIND
+ should be defined; otherwise it should not be referenced.
#endif /* ZXREWIND */
in ordinary unprivileged user mode. If possible, xsystem()
returns the return code of the command that was executed.
- 4.E.2.2. IKSD Variables and Functions
+4.E.2.2. IKSD Variables and Functions
These must be implemented in any C-Kermit version that is to be
- installed as an Internet Kermit Service Daemon (IKSD). IKSD is
- expected to be started by the Internet Daemon (e.g. inetd) with its
- standard i/o redirected to the incoming connection.
+ installed as an Internet Kermit Service Daemon (IKSD). IKSD is expected
+ to be started by the Internet Daemon (e.g. inetd) with its standard i/o
+ redirected to the incoming connection.
int ckxanon;
Nonzero if anonymous logins allowed.
int
zvuser(name) char * name;
Verifies that user "name" exists and is allowed to log in. If
- the name is "ftp" or "anonymous" and ckxanon != 0, a guest
- login is set up. Returns 0 if user not allowed to log in,
- nonzero if user may log in.
+ the name is "ftp" or "anonymous" and ckxanon != 0, a guest login
+ is set up. Returns 0 if user not allowed to log in, nonzero if
+ user may log in.
int
zvpass(string) char * string;
Verifies password of the user from the most recent zvuser()
call. Returns nonzero if password is valid for user, 0 if it
isn't. Makes any appropriate system log entries (IKSD logins,
- failed login attempts, etc). If password is valid, logs the
- user in as herself (if real user), or sets up restricted
- anonymous access if user is guest (e.g. changes file-system
- root to anonroot and sets isguest = 1).
+ failed login attempts, etc). If password is valid, logs the user
+ in as herself (if real user), or sets up restricted anonymous
+ access if user is guest (e.g. changes file-system root to
+ anonroot and sets isguest = 1).
VOID
zsyslog()
Terminates an IKSD session. In most cases this is simply a
wrapper for exit() or doexit(), with some system logging added.
- 4.E.2.3. Privilege Functions
+4.E.2.3. Privilege Functions
These functions are used by C-Kermit to adapt itself to operating
systems where the program can be made to run in a "privileged" mode,
- e.g. setuid or setgid in Unix. C-Kermit should NOT read and write
- files or start subprocesses as a privileged program. This would
- present a serious threat to system security. The security package has
- been installed to prevent such security breaches by turning off the
+ e.g. setuid or setgid in Unix. C-Kermit should NOT read and write files
+ or start subprocesses as a privileged program. This would present a
+ serious threat to system security. The security package has been
+ installed to prevent such security breaches by turning off the
program's special privileges at all times except when they are needed.
In UNIX, the only need Kermit has for privileged status is access to
the UUCP lockfile directory, in order to read, create, and destroy
lockfiles, and to open communication devices that are normally
- protected against the user (see the [111]Unix C-Kermit Installation
+ protected against the user (see the [133]Unix C-Kermit Installation
Instructions for discussion). Therefore, privileges should only be
enabled for these operations and disabled at all other times. This
relieves the programmer of the responsibility of putting expensive and
int
priv_on()
- If the program is not privileged, this function does nothing.
- If the program is privileged, this function returns it to
+ If the program is not privileged, this function does nothing. If
+ the program is privileged, this function returns it to
privileged status. priv_ini() must have been called first.
Returns:
0 on success
priv_chk()
Attempts to turns privileges off in such a way that they can be
turned on again later. Then checks to make sure that they were
- really turned off. If they were not really turned off, then
- they are cancelled permanently. Returns:
+ really turned off. If they were not really turned off, then they
+ are canceled permanently. Returns:
0 on success
nonzero on failure
- 4.E.2.4. Console-Related Functions
+4.E.2.4. Console-Related Functions
These relate to the program's "console", or controlling terminal, i.e.
- the terminal that the user is logged in on and types commands at, or
- on a PC or workstation, the actual keyboard and screen.
+ the terminal that the user is logged in on and types commands at, or on
+ a PC or workstation, the actual keyboard and screen.
int
conbin(esc) char esc;
Puts the console into "binary" mode, so that Kermit's command
parser can control echoing and other treatment of characters
that the user types. esc is the character that will be used to
- get Kermit's attention during packet mode; puts this in a
- global place. Sets the ckxech variable. Returns:
+ get Kermit's attention during packet mode; puts this in a global
+ place. Sets the ckxech variable. Returns:
-1: on error.
0: on success.
int
concb(esc) char esc;
- Put console in "cbreak" (single-character wakeup) mode. That
- is, ensure that each console character is available to the
- program immediately when the user types it. Otherwise just like
+ Put console in "cbreak" (single-character wakeup) mode. That is,
+ ensure that each console character is available to the program
+ immediately when the user types it. Otherwise just like
conbin(). Returns:
-1: on error.
0: on success.
int
conchk()
- Returns a number, 0 or greater, the number of characters
- waiting to be read from the console, i.e. the number of
- characters that the user has typed that have not been read yet
- by Kermit.
+ Returns a number, 0 or greater, the number of characters waiting
+ to be read from the console, i.e. the number of characters that
+ the user has typed that have not been read yet by Kermit.
long
congspd();
int
congks(timo) int timo;
Get Keyboard Scancode. Reads a keyboard scan code from the
- physical console keyboard. If the timo parameter is greater
- than zero, then times out and returns -2 if no character
- appears within the given number of seconds. Upon any other kind
- of error, returns -1. Upon success returns a scan code, which
- may be any positive integer. For situations where scan codes
- cannot be read (for example, when an ASCII terminal is used as
- the job's controlling terminal), this function is identical to
+ physical console keyboard. If the timo parameter is greater than
+ zero, then times out and returns -2 if no character appears
+ within the given number of seconds. Upon any other kind of
+ error, returns -1. Upon success returns a scan code, which may
+ be any positive integer. For situations where scan codes cannot
+ be read (for example, when an ASCII terminal is used as the
+ job's controlling terminal), this function is identical to
coninc(), i.e. it returns an 8-bit character value. congks() is
for use with workstations whose keyboards have Alternate,
Command, Option, and similar modifier keys, and Function keys
int
congm()
Console get modes. Gets the current console terminal modes and
- saves them so that conres() can restore them later. Returns 1
- if it got the modes OK, 0 if it did nothing (e.g. because
- Kermit is not connected with any terminal), -1 on error.
+ saves them so that conres() can restore them later. Returns 1 if
+ it got the modes OK, 0 if it did nothing (e.g. because Kermit is
+ not connected with any terminal), -1 on error.
int
coninc(timo) int timo;
Console Input Character. Reads a character from the console. If
- the timo parameter is greater than zero, then coninc() times
- out and returns -2 if no character appears within the given
- number of seconds. Upon any other kind of error, returns -1.
- Upon success, returns the character itself, with a value in the
- range 0-255 decimal.
+ the timo parameter is greater than zero, then coninc() times out
+ and returns -2 if no character appears within the given number
+ of seconds. Upon any other kind of error, returns -1. Upon
+ success, returns the character itself, with a value in the range
+ 0-255 decimal.
VOID
conint(f,s) SIGTYP (*f)(), (*s)();
the address of the function that suspends the job. Sets the
global variable "backgrd" to zero if Kermit is running in the
foreground, and to nonzero if Kermit is running in the
- background. See ckcdeb.h for the definition of SIGTYP. No
- return value.
+ background. See ckcdeb.h for the definition of SIGTYP. No return
+ value.
VOID
connoi()
conoll(s) char *s;
Writes string s to the console, followed by the necessary line
termination characters to put the console cursor at the
- beginning of the next line. Returns -1 on error, 0 or greater
- on success.
+ beginning of the next line. Returns -1 on error, 0 or greater on
+ success.
int
conres()
conkbg();
Returns a pointer to the designator of the console keyboard
type. For example, on a PC, this function would return "88",
- "101", etc. Upon failure, returns a pointer to the empty
- string.
+ "101", etc. Upon failure, returns a pointer to the empty string.
- 4.E.2.5. Communications Functions
+4.E.2.5. Communications Functions
The communication device is the device used for terminal emulation and
- file transfer. It may or may not be the same device as the console,
- and it may or may not be a terminal (serial-port) device; it could
- also be a network connection. For brevity, the communication device is
- referred to here as the "tty". When the communication device is the
- same as the console device, Kermit is said to be in remote mode. When
- the two devices are different, Kermit is in local mode.
+ file transfer. It may or may not be the same device as the console, and
+ it may or may not be a terminal (serial-port) device; it could also be
+ a network connection. For brevity, the communication device is referred
+ to here as the "tty". When the communication device is the same as the
+ console device, Kermit is said to be in remote mode. When the two
+ devices are different, Kermit is in local mode.
int
ttchk()
Returns the number of characters that have arrived at the
communication device but have not yet been read by ttinc(),
- ttinl(), and friends. If communication input is buffered (and
- it should be), this is the sum of the number of unread
- characters in Kermit's buffer PLUS the number of unread
- characters in the operating system's internal buffer. The call
- must be nondestructive and nonblocking, and as inexpensive as
- possible. Returns:
+ ttinl(), and friends. If communication input is buffered (and it
+ should be), this is the sum of the number of unread characters
+ in Kermit's buffer PLUS the number of unread characters in the
+ operating system's internal buffer. The call must be
+ nondestructive and nonblocking, and as inexpensive as possible.
+ Returns:
0: or greater on success,
0: in case of internal error,
-1: or less when it determines the connection has been broken,
or there is no connection.
- That is, a negative return from ttchk() should reliably
- indicate that there is no usable connection. Furthermore,
- ttchk() should be callable at any time to see if the connection
- is open. When the connection is open, every effort must be made
- to ensure that ttchk returns an accurate number of characters
- waiting to be read, rather than just 0 (no characters) or 1 (1
- or more characters), as would be the case when we use select().
- This aspect of ttchk's operation is critical to successful
- operation of sliding windows and streaming, but "nondestructive
- buffer peeking" is an obscure operating system feature, and so
- when it is not available, we have to do it ourselves by
- managing our own internal buffer at a level below ttinc(),
- ttinl(), etc, as in the UNIX version (non-FIONREAD case).
+ That is, a negative return from ttchk() should reliably indicate
+ that there is no usable connection. Furthermore, ttchk() should
+ be callable at any time to see if the connection is open. When
+ the connection is open, every effort must be made to ensure that
+ ttchk returns an accurate number of characters waiting to be
+ read, rather than just 0 (no characters) or 1 (1 or more
+ characters), as would be the case when we use select(). This
+ aspect of ttchk's operation is critical to successful operation
+ of sliding windows and streaming, but "nondestructive buffer
+ peeking" is an obscure operating system feature, and so when it
+ is not available, we have to do it ourselves by managing our own
+ internal buffer at a level below ttinc(), ttinl(), etc, as in
+ the UNIX version (non-FIONREAD case).
An external global variable, clsondisc, if nonzero, means that
if a serial connection drops (carrier on-to-off transition
int
ttclos()
Closes the communication device (tty or network). If there were
- any kind of exclusive access locks connected with the tty,
- these are released. If the tty has a modem connection, it is
- hung up. For true tty devices, the original tty device modes
- are restored. Returns:
+ any kind of exclusive access locks connected with the tty, these
+ are released. If the tty has a modem connection, it is hung up.
+ For true tty devices, the original tty device modes are
+ restored. Returns:
-1: on failure.
0: on success.
int
ttflui()
Flush communications input buffer. If any characters have
- arrived but have not yet been read, discard these characters.
- If communications input is buffered by Kermit (and it should
- be), this function flushes Kermit's buffer as well as the
- operating system's internal input buffer. Returns:
+ arrived but have not yet been read, discard these characters. If
+ communications input is buffered by Kermit (and it should be),
+ this function flushes Kermit's buffer as well as the operating
+ system's internal input buffer. Returns:
-1: on failure.
0: on success.
int
ttfluo()
- Flush tty output buffer. If any characters have been written
- but not actually transmitted (e.g. because the system has been
+ Flush tty output buffer. If any characters have been written but
+ not actually transmitted (e.g. because the system has been
flow-controlled), remove them from the system's output buffer.
- (Note, this function is not actually used, but it is
- recommended that all C-Kermit programmers add it for future
- use, even if it is only a dummy function that returns 0
- always.)
+ (Note, this function is not actually used, but it is recommended
+ that all C-Kermit programmers add it for future use, even if it
+ is only a dummy function that returns 0 always.)
int
ttgmdm()
- Looks for the modem signals CTS, DSR, and CTS, and returns
- those that are on in as its return value, in a bit mask as
- described for ttwmdm, in which a bit is on (1) or off (0)
- according to whether the corresponding signal is on (asserted)
- or off (not asserted). Return values:
+ Looks for the modem signals CTS, DSR, and CTS, and returns those
+ that are on in as its return value, in a bit mask as described
+ for ttwmdm, in which a bit is on (1) or off (0) according to
+ whether the corresponding signal is on (asserted) or off (not
+ asserted). Return values:
-3: Not implemented
-2: if the line does not have modem control
-1: on error
successfully obtained. Upon success, the external global
variables tt_rows and tt_cols are set to the number of screen
rows and number of screen columns, respectively. As this
- function is not implemented in all ck*tio.c modules, calls to
- it must be wrapped in #ifdef CK_TTGWSIZ..#endif. NOTE: This
+ function is not implemented in all ck*tio.c modules, calls to it
+ must be wrapped in #ifdef CK_TTGWSIZ..#endif. NOTE: This
function must be available to use the TELNET NAWS feature
(Negotiate About Window Size) as well as Rlogin.
int
tthang()
Hang up the current tty device. For real tty devices, turn off
- DTR for about 1/3-1/2 second (or other length of time,
- depending on the system). If the tty is really a network
- connection, close it. Returns:
+ DTR for about 1/3-1/2 second (or other length of time, depending
+ on the system). If the tty is really a network connection, close
+ it. Returns:
-1: on failure.
0: if it does not even try to hang up.
1: if it believes it hung up successfully.
ttinl(dest,max,timo,eol,start,turn) int max,timo,turn; CHAR
*dest, eol, start;
ttinl() is Kermit's packet reader. Reads a packet from the
- communications device, or up to max characters, whichever
- occurs first. A line is a string of characters starting with
- the start character up to and including the character given in
- eol or until the length is exhausted, or, if turn != 0, until
- the line turnaround character (turn) is read. If turn is 0,
- ttinl() *should* use the packet length field to detect the end,
- to allow for the possibility that the eol character appears
- unprefixed in the packet data. (The turnaround character is for
- half-duplex linemode connections.)
+ communications device, or up to max characters, whichever occurs
+ first. A line is a string of characters starting with the start
+ character up to and including the character given in eol or
+ until the length is exhausted, or, if turn != 0, until the line
+ turnaround character (turn) is read. If turn is 0, ttinl()
+ *should* use the packet length field to detect the end, to allow
+ for the possibility that the eol character appears unprefixed in
+ the packet data. (The turnaround character is for half-duplex
+ linemode connections.)
If timo is greater than zero, ttinl() times out if the eol
character is not encountered within the given number of seconds
and returns -1.
- The characters that were input are copied into "dest" with
- their parity bits stripped if parity is not none. The first
- character copied into dest should be the start character, and
- the last should be the final character of the packet (the last
- block check character). ttinl() should also absorb and discard
- the eol and turn characters, and any other characters that are
- waiting to be read, up until the next start character, so that
+ The characters that were input are copied into "dest" with their
+ parity bits stripped if parity is not none. The first character
+ copied into dest should be the start character, and the last
+ should be the final character of the packet (the last block
+ check character). ttinl() should also absorb and discard the eol
+ and turn characters, and any other characters that are waiting
+ to be read, up until the next start character, so that
subsequent calls to ttchk() will not succeed simply because
there are some terminators still sitting in the buffer that
ttinl() didn't read. This operation, if performed, MUST NOT
way, don't do it).
On success, ttinl() returns the number of characters read.
- Optionally, ttinl() can sense the parity of incoming packets.
- If it does this, then it should set the global variable ttprty
+ Optionally, ttinl() can sense the parity of incoming packets. If
+ it does this, then it should set the global variable ttprty
accordingly. ttinl() should be coded to be as efficient as
possible, since it is at the "inner loop" of packet reception.
ttinl() returns:
actually written to the tty (0 or 1). This function should only
be used for interactive, character-mode operations, like
terminal connection, script execution, dialer i/o, where the
- overhead of the signals and alarms does not create a
- bottleneck. (THIS DESCRIPTION NEEDS IMPROVEMENT -- If the
- operation fails within a "certain amount of time"... which
- might be dependent on the communication method, speed, etc. In
- particular, flow-control deadlocks must be accounted for and
- broken out of to prevent the program from hanging indefinitely,
- etc.)
+ overhead of the signals and alarms does not create a bottleneck.
+ (THIS DESCRIPTION NEEDS IMPROVEMENT -- If the operation fails
+ within a "certain amount of time"... which might be dependent on
+ the communication method, speed, etc. In particular,
+ flow-control deadlocks must be accounted for and broken out of
+ to prevent the program from hanging indefinitely, etc.)
int
ttol(s,n) int n; char *s;
int
ttopen(ttname,lcl,modem,timo) char *ttname; int *lcl, modem,
timo;
- Opens a tty device, if it is not already open. ttopen must
- check to make sure the SAME device is not already open; if it
- is, ttopen returns successfully without doing anything. If a
+ Opens a tty device, if it is not already open. ttopen must check
+ to make sure the SAME device is not already open; if it is,
+ ttopen returns successfully without doing anything. If a
DIFFERENT device is currently open, ttopen() must call ttclos()
to close it before opening the new one.
Parameters:
ttname:
- character string - device name or network host
- name.
+ character string - device name or network host name.
lcl:
If called with lcl < 0, sets value of lcl as
modem:
Less than zero: this is the negative of the network
type, and ttname is a network host name. Network
- types (from [112]ckcnet.h:
+ types (from [134]ckcnet.h:
- NET_TCPB 1 TCP/IP Berkeley (socket) (implemented in [113]ckutio.c)
+ NET_TCPB 1 TCP/IP Berkeley (socket) (implemented in [135]ckutio.c)
NET_TCPA 2 TCP/IP AT&T (streams) (not yet implemented)
NET_DEC 3 DECnet (not yet implemented)
Zero or greater: ttname is a terminal device name.
Zero means a direct connection (don't use modem
- signals). Positive means use modem signals
- depending on the current setting of ttcarr (see
- ttscarr()).
+ signals). Positive means use modem signals depending
+ on the current setting of ttcarr (see ttscarr()).
timo:
> 0: number of seconds to wait for open() to return
requires no special action).
Side effects:
- Copies its arguments and the tty file descriptor to
- global variables that are available to the other
- tty-related functions, with the lcl value altered as
- described above. Gets all parameters and settings
- associated with the line and puts them in a global area,
- so that they can be restored by ttres(), e.g. when the
- device is closed.
+ Copies its arguments and the tty file descriptor to global
+ variables that are available to the other tty-related
+ functions, with the lcl value altered as described above.
+ Gets all parameters and settings associated with the line
+ and puts them in a global area, so that they can be
+ restored by ttres(), e.g. when the device is closed.
Returns:
0: on success
speed.
flow:
- if in the range 0-3, ttpkt selects the
- corresponding type of flow control. Currently 0 is
- defined as no flow control, 1 is Xon/Xoff, and no
- other types are defined. If (and this is a horrible
- hack, but it goes back many years and will be hard
- to eradicate) flow is 4, then the appropriate tty
- modes are set for modem dialing, a special case in
- which we talk to a modem-controlled line without
- requiring carrier. If flow is 5, then we require
- carrier.
+ if in the range 0-3, ttpkt selects the corresponding
+ type of flow control. Currently 0 is defined as no
+ flow control, 1 is Xon/Xoff, and no other types are
+ defined. If (and this is a horrible hack, but it
+ goes back many years and will be hard to eradicate)
+ flow is 4, then the appropriate tty modes are set
+ for modem dialing, a special case in which we talk
+ to a modem-controlled line without requiring
+ carrier. If flow is 5, then we require carrier.
parity:
- This is simply copied into a global variable so
- that other functions (like ttinl, ttinc, etc) can
- use it.
+ This is simply copied into a global variable so that
+ other functions (like ttinl, ttinc, etc) can use it.
Side effects:
Copies its arguments to global variables, flushes the
CAR_OFF: Ignore carrier at all times.
CAR_ON: Require carrier at all times, except when dialing. This means,
- for example, that ttopen() could hang forever waiting for carrier if
- it is not present.
+ for example, that ttopen() could hang forever waiting for carrier if it
+ is not present.
CAR_AUTO: If the modem type is zero (i.e. the connection is direct),
this is the same as CAR_OFF. If the modem type is positive, then heed
carrier during CONNECT (ttvt mode), but ignore it at other times
- (packet mode, during SET LINE, etc). Compatible with pre-5A versions
- of C-Kermit. This should be the default carrier mode.
+ (packet mode, during SET LINE, etc). Compatible with pre-5A versions of
+ C-Kermit. This should be the default carrier mode.
- Kermit's DIAL command ignores the carrier setting, but
- ttopen(), ttvt(), and ttpkt() all honor the carrier option in
- effect at the time they are called. None of this applies to
- remote mode (the tty device is the job's controlling terminal)
- or to network host connections (modem type is negative).
+ Kermit's DIAL command ignores the carrier setting, but ttopen(),
+ ttvt(), and ttpkt() all honor the carrier option in effect at
+ the time they are called. None of this applies to remote mode
+ (the tty device is the job's controlling terminal) or to network
+ host connections (modem type is negative).
int
ttsndb()
Sends a BREAK signal on the tty device. On a real tty device,
send a real BREAK lasting approximately 275 milliseconds. If
- this is not possible, simulate a BREAK by (for example)
- dropping down some very low baud rate, like 50, and sending a
- bunch of null characters. On a network connection, do the
- appropriate network protocol for BREAK. Returns:
+ this is not possible, simulate a BREAK by (for example) dropping
+ down some very low baud rate, like 50, and sending a bunch of
+ null characters. On a network connection, do the appropriate
+ network protocol for BREAK. Returns:
-1: on error.
0: on success.
int
ttsndlb()
Like ttsndb(), but sends a "Long BREAK" (approx 1.5 seconds).
- For network connections, it is identical to ttsndb().
- Currently, this function is used only if CK_LBRK is defined (as
- it is for UNIX and VMS).
+ For network connections, it is identical to ttsndb(). Currently,
+ this function is used only if CK_LBRK is defined (as it is for
+ UNIX and VMS).
int
ttsspd(cps) int cps;
characters per second, but transmission speeds are in bits per
second. cps are used rather than bps because high speeds like
38400 are not expressible in a 16-bit int but longs cannot be
- used because keyword-table values are ints and not longs. If
- the argument is 7, then the bps is 75, not 70. If the argument
- is 888, this is a special code for 75/1200 split-speed
- operation (75 bps out, 1200 bps in). Returns:
+ used because keyword-table values are ints and not longs. If the
+ argument is 7, then the bps is 75, not 70. If the argument is
+ 888, this is a special code for 75/1200 split-speed operation
+ (75 bps out, 1200 bps in). Returns:
-1: on error, meaning the requested speed is not valid or
available.
>=0: on success (don't try to use this value for anything).
for terminal emulation. The arguments are interpreted as in
ttpkt(). Side effects: ttvt() stores its arguments in global
variables, and sets a flag that it has been called so that
- subsequent calls can be ignored so long as the arguments are
- the same as in the last effective call. Other functions, such
- as ttopen(), ttclose(), ttres(), ttvt(), etc, that change the
- tty device in any way must unset this flag. In UNIX Kermit,
- this flag is called tvtflg.
+ subsequent calls can be ignored so long as the arguments are the
+ same as in the last effective call. Other functions, such as
+ ttopen(), ttclose(), ttres(), ttvt(), etc, that change the tty
+ device in any way must unset this flag. In UNIX Kermit, this
+ flag is called tvtflg.
int
ttwmdm(mdmsig,timo) int mdmsig, timo;
int
ttxin(n,buf) int n; CHAR *buf;
Reads x characters from the tty device into the specified buf,
- stripping parity if parity is not none. This call waits
- forever, there is no timeout. This function is designed to be
- called only when you know that at least x characters are
- waiting to be read (as determined, for example, by ttchk()).
- This function should use the same buffer as ttinc().
+ stripping parity if parity is not none. This call waits forever,
+ there is no timeout. This function is designed to be called only
+ when you know that at least x characters are waiting to be read
+ (as determined, for example, by ttchk()). This function should
+ use the same buffer as ttinc().
int
txbufr(timo) int timo;
Reads characters into the internal communications input buffer.
- timo is a timeout interval, in seconds. 0 means no timeout,
- wait forever. Called by ttinc() (and possibly ttxin() and
- ttinl()) when the communications input buffer is empty. The
- buffer should be called ttxbuf[], its length is defined by the
- symbol TXBUFL. The global variable txbufn is the number of
- characters available to be read from ttxbuf[], and txbufp is
- the index of the next character to be read. Should not be
- called if txbufn > 0, in which case the buffer does not need
- refilling. This routine returns:
+ timo is a timeout interval, in seconds. 0 means no timeout, wait
+ forever. Called by ttinc() (and possibly ttxin() and ttinl())
+ when the communications input buffer is empty. The buffer should
+ be called ttxbuf[], its length is defined by the symbol TXBUFL.
+ The global variable txbufn is the number of characters available
+ to be read from ttxbuf[], and txbufp is the index of the next
+ character to be read. Should not be called if txbufn > 0, in
+ which case the buffer does not need refilling. This routine
+ returns:
-2: Communications disconnect
-1: Timeout
>=0: A character (0 - 255) On success, the first character that
- was read, with the variables txbufn and txbufp set
- appropriately for any remaining characters.
- NOTE: Currently this routine is used internally only by the
- UNIX and VMS versions. The aim is to make it available to all
+ was read, with the variables txbufn and txbufp set appropriately
+ for any remaining characters.
+ NOTE: Currently this routine is used internally only by the UNIX
+ and VMS versions. The aim is to make it available to all
versions so there is one single coherent and efficient way of
reading from the communications device or network.
- 4.E.2.6. Miscellaneous system-dependent functions
+4.E.2.6. Miscellaneous system-dependent functions
VOID
ztime(s) char **s;
the C runtime asctime() function, like: "Sun Sep 16 13:23:45
1973\n" so that callers of this function can extract the
different fields. The pointer value is filled in by ztime, and
- the data it points to is not safe, so should be copied to a
- safe place before use. ztime() has no return value. As a side
- effect, this routine can also fill in the following two
- external variables (which must be defined in the
- system-dependendent modules for each platform):
+ the data it points to is not safe, so should be copied to a safe
+ place before use. ztime() has no return value. As a side effect,
+ this routine can also fill in the following two external
+ variables (which must be defined in the system-dependent modules
+ for each platform):
long ztusec: Fraction of seconds of clock time, microseconds.
long ztmsec: Fraction of seconds of clock time, milliseconds.
- If these variables are not set by zstime(), they remain at
- their initial value of -1L.
+ If these variables are not set by zstime(), they remain at their
+ initial value of -1L.
int
gtimer()
- Returns the current value of the elapsed time counter in
- seconds (see rtimer), or 0 on any kind of error.
+ Returns the current value of the elapsed time counter in seconds
+ (see rtimer), or 0 on any kind of error.
#ifdef GFTIMER
CKFLOAT
gftimer()
Returns the current value of the elapsed time counter in
- seconds, as a floating point number, capable of representing
- not only whole seconds, but also the fractional part, to the
+ seconds, as a floating point number, capable of representing not
+ only whole seconds, but also the fractional part, to the
millisecond or microsecond level, whatever precision is
available. Requires a function to get times at subsecond
precision, as well as floating-point support. That's why it's
VOID
rtimer()
Sets the elapsed time counter to zero. If you want to time how
- long an operation takes, call rtimer() when it starts and
- gtimer when it ends. rtimer() has no return value.
+ long an operation takes, call rtimer() when it starts and gtimer
+ when it ends. rtimer() has no return value.
#ifdef GFTIMER
VOID
int
sysinit()
Does whatever needs doing upon program start. In particular, if
- the program is running in any kind of privileged mode, turns
- off the privileges (see priv_ini()). Returns:
+ the program is running in any kind of privileged mode, turns off
+ the privileges (see priv_ini()). Returns:
-1: on error.
0: on success.
int
psuspend()
- Suspends the Kermit process, puts it in the background so it
- can be continued ("foregrounded") later. Returns:
+ Suspends the Kermit process, puts it in the background so it can
+ be continued ("foregrounded") later. Returns:
-1: if this function is not supported.
0: on success.
- [ [114]Contents ] [ [115]C-Kermit ] [ [116]Kermit Home ]
- ________________________________________________________________________
+ [ [136]Contents ] [ [137]C-Kermit ] [ [138]Kermit Home ]
- 4.F. Group F: Network Support
+4.F. Group F: Network Support
As of version 5A, C-Kermit includes support for several networks.
Originally, this was just worked into the ttopen(), ttclos(), ttinc(),
- ttinl(), and similar routines in [117]ckutio.c. But this made it
- impossible to share this code with non-UNIX versions, like VMS,
- AOS/VS, OS/2, etc. So as of edit 168, network code has been separated
- out into its own module and header file, ckcnet.c and ckcnet.h:
+ ttinl(), and similar routines in [139]ckutio.c. But this made it
+ impossible to share this code with non-UNIX versions, like VMS, AOS/VS,
+ OS/2, etc. So as of edit 168, network code has been separated out into
+ its own module and header file, ckcnet.c and ckcnet.h:
- [118]ckcnet.h: Network-related symbol definitions.
- [119]ckcnet.c: Network i/o (TCP/IP, X.25, etc), shared by most
+ [140]ckcnet.h: Network-related symbol definitions.
+ [141]ckcnet.c: Network i/o (TCP/IP, X.25, etc), shared by most
platforms.
- [120]cklnet.c: Network i/o (TCP/IP, X.25, etc) specific to Stratus
+ [142]cklnet.c: Network i/o (TCP/IP, X.25, etc) specific to Stratus
VOS.
The routines and variables in these modules fall into two categories:
functions are protocol specific and have names prefixed by a protocol
identifier, like tn for telnet x25 for X.25.
- ckcnet.h contains prototypes for all these functions, as well as
- symbol definitions for network types, protocols, and network- and
- protocol- specific symbols, as well as #includes for the header files
- necessary for each network and protocol.
+ ckcnet.h contains prototypes for all these functions, as well as symbol
+ definitions for network types, protocols, and network- and protocol-
+ specific symbols, as well as #includes for the header files necessary
+ for each network and protocol.
- The following functions are to be provided for networks that do not
- use normal system i/o (open, read, write, close):
+ The following functions are to be provided for networks that do not use
+ normal system i/o (open, read, write, close):
int
netopen()
int
netinc()
- To get a character from the network. Calling conventions same
- as Group E ttsndbrk().
+ To get a character from the network. Calling conventions same as
+ Group E ttsndbrk().
int
nettoc()
Send a "line" (sequence of bytes) to the network. Calling
conventions same as Group E ttol().
- Conceivably, some systems support network connections simply by
- letting you open a device of a certain name and letting you do i/o to
- it. Others (like the Berkeley sockets TCP/IP library on UNIX) require
- you to open the connection in a special way, but then do normal i/o
- (read, write). In such a case, you would use netopen(), but you would
- not use nettinc, nettoc, etc.
+ Conceivably, some systems support network connections simply by letting
+ you open a device of a certain name and letting you do i/o to it.
+ Others (like the Berkeley sockets TCP/IP library on UNIX) require you
+ to open the connection in a special way, but then do normal i/o (read,
+ write). In such a case, you would use netopen(), but you would not use
+ nettinc, nettoc, etc.
VMS TCP/IP products have their own set of functions for all network
operations, so in that case the full range of netxxx() functions is
The technique is to put a test in each corresponding ttxxx() function
to see if a network connection is active (or is being requested), test
- for which kind of network it is, and if necessary route the call to
- the corresponding netxxx() function. The netxxx() function must also
+ for which kind of network it is, and if necessary route the call to the
+ corresponding netxxx() function. The netxxx() function must also
contain code to test for the network type, which is available via the
global variable ttnet.
- [ [121]Contents ] [ [122]C-Kermit ] [ [123]Kermit Home ]
- ______________________________________________________________________
+ [ [143]Contents ] [ [144]C-Kermit ] [ [145]Kermit Home ]
- 4.F.1. Telnet Protocol
+4.F.1. Telnet Protocol
(This section needs a great deal of updating...)
it can be implemented in remote mode, which does not have a network
connection:
- [124]ckctel.h: Telnet protocol symbol definitions.
- [125]ckctel.c: Telnet protocol.
+ [146]ckctel.h: Telnet protocol symbol definitions.
+ [147]ckctel.c: Telnet protocol.
The Telnet protocol is supported by the following variables and
routines:
int
tn_sttyp()
Send terminal type using telnet protocol.
- ______________________________________________________________________
- 4.F.2. FTP Protocol
+4.F.2. FTP Protocol
- (To be filled in...)
- ______________________________________________________________________
+ (To be filled in...) See the [148]source file
- 4.F.3. HTTP Protocol
+4.F.3. HTTP Protocol
(To be filled in...)
- ______________________________________________________________________
- 4.F.4. X.25 Networks
+4.F.4. X.25 Networks
- These routines were written SunLink X.25 and have since been adapted
- to at least on one other: IBM AIXLink/X.25.
+ These routines were written SunLink X.25 and have since been adapted to
+ at least on one other: IBM AIXLink/X.25.
int
x25diag()
x25inl()
Read a Kermit packet from X.25 circuit.
- [ [126]Contents ] [ [127]C-Kermit ] [ [128]Kermit Home ]
- ______________________________________________________________________
+ [ [149]Contents ] [ [150]C-Kermit ] [ [151]Kermit Home ]
- 4.F.5. Adding New Network Types
+4.F.5. Adding New Network Types
Example: Adding support for IBM X.25 and Hewlett Packard X.25. First,
add new network type symbols for each one. There are already some
-DHPX25 (for HP)
So we can build C-Kermit versions for AIX and HP-UX both with and
- without X.25 support (since not all AIX and IBM systems have the
- needed libraries, and so an executable that was linked with them might
- no load).
+ without X.25 support (since not all AIX and IBM systems have the needed
+ libraries, and so an executable that was linked with them might no
+ load).
Then in ckcnet.h:
or HPX25 for code specific to IBM or HP.
It might also happen that some code can be shared between two or more
- of these, but not the others. Suppose, for example, that you write
- code that applies to both IBM and HP, but not Sun or VOS X.25. Then
- you add the following definition to ckcnet.h:
+ of these, but not the others. Suppose, for example, that you write code
+ that applies to both IBM and HP, but not Sun or VOS X.25. Then you add
+ the following definition to ckcnet.h:
#ifndef HPORIBMX25
#ifdef HPX25
You can NOT use constructions like "#if defined (HPX25 || IBMX25)";
they are not portable.
- [ [129]Contents ] [ [130]C-Kermit ] [ [131]Kermit Home ]
- ________________________________________________________________________
+ [ [152]Contents ] [ [153]C-Kermit ] [ [154]Kermit Home ]
- 4.G. Group G: Formatted Screen Support
+4.G. Group G: Formatted Screen Support
So far, this is used only for the fullscreen local-mode file transfer
display. In the future, it might be extended to other uses. The
fullscreen display code is in and around the routine screenc() in
- [132]ckuusx.c.
+ [155]ckuusx.c.
In the UNIX version, we use the curses library, plus one call from the
termcap library. In other versions (OS/2, VMS, etc) we insert dummy
- routines that have the same names as curses routines. So far, there
- are two methods for simulating curses routines:
+ routines that have the same names as curses routines. So far, there are
+ two methods for simulating curses routines:
1. In VMS, we use the Screen Management Library (SMG), and insert
stubs to convert curses calls into SMG calls.
int
tgetent(char *buf, char *term)
Arguments are ignored. Returns 1 if the user has a supported
- terminal type, 0 otherwise. Sets a global variable (for
- example, "isvt52" or "isdasher") to indicate the terminal type.
+ terminal type, 0 otherwise. Sets a global variable (for example,
+ "isvt52" or "isdasher") to indicate the terminal type.
VOID
move(int row, int col)
Sends the escape sequence to position the cursor at the
- indicated row and column. The numbers are 0-based, e.g. the
- home position is 0,0.
+ indicated row and column. The numbers are 0-based, e.g. the home
+ position is 0,0.
int
clear()
management service keeps a copy of the entire screen, as curses
and SMG do. C-Kermit does not do this itself.
- [ [133]Contents ] [ [134]C-Kermit ] [ [135]Kermit Home ]
- ________________________________________________________________________
+ [ [156]Contents ] [ [157]C-Kermit ] [ [158]Kermit Home ]
- 4.H. Group H: Pseudoterminal Support
+4.H. Group H: Pseudoterminal Support
- (To be filled in...)
- ________________________________________________________________________
+ (To be filled in...) But see: [159]these comments, and the source files
+ [160]ckupty.h and [161]ckupty.c.
- 4.I. Group I: Security
+4.I. Group I: Security
- (To be filled in...)
+ (To be filled in...) Meanwhile, see [162]security.html.
- [ [136]Contents ] [ [137]C-Kermit ] [ [138]Kermit Home ]
- ________________________________________________________________________
+ [ [163]Contents ] [ [164]C-Kermit ] [ [165]Kermit Home ]
- APPENDIX I. FILE PERMISSIONS
+APPENDIX I. FILE PERMISSIONS
- I.1. Format of System-Dependent File Permissions in A-Packets
+I.1. Format of System-Dependent File Permissions in A-Packets
The format of this field (the "," attribute) is interpreted according
to the System ID ("." Attribute).
s-02-01-^A%"Y.5!
A VMS directory listing shows the file's protection as (E,RWED,RED,RE)
- which really means (S=E,O=RWED,G=RED,W=RE), which is reverse order
- from the internal storage, so (RE,RED,RWED,E). Now translate each
- letter to its corresponding bit:
+ which really means (S=E,O=RWED,G=RED,W=RE), which is reverse order from
+ the internal storage, so (RE,RED,RWED,E). Now translate each letter to
+ its corresponding bit:
RE=0101, RED=1101, RWED=1111, E=0010
1010001000001101
- This is the internal representation of the VMS file permission; in
- hex:
+ This is the internal representation of the VMS file permission; in hex:
A20B
The VMS format probably would also apply to RSX or any other FILES-11
system.
- I.2. Handling of Generic Protection
+I.2. Handling of Generic Protection
To be used when the two systems are different (and/or do not recognize
or understand each other's local protection codes).
etc), except that no non-Owner field should give more permissions than
the Owner field.
- [ [139]Top ] [ [140]Contents ] [ [141]C-Kermit Home ] [ [142]Kermit
+ [ [166]Top ] [ [167]Contents ] [ [168]C-Kermit Home ] [ [169]Kermit
Home ]
- _________________________________________________________________
+ __________________________________________________________________
- C-Kermit Program Logic Manual / [143]The Kermit Project /
- [144]Columbia University / [145]kermit@columbia.edu / 10 April 2004
+ C-Kermit Program Logic Manual / [170]The Kermit Project /
+ [171]kermit@columbia.edu / 30 June 2011
References
- 1. http://www.columbia.edu/kermit/
- 2. http://www.columbia.edu/
- 3. http://www.columbia.edu/kermit/ckcplm.html
- 4. http://www.columbia.edu/kermit/ckermit.html
- 5. http://www.columbia.edu/kermit/index.html
- 6. http://www.columbia.edu/kermit/ckcplm.html#x1
- 7. http://www.columbia.edu/kermit/ckcplm.html#x2
- 8. http://www.columbia.edu/kermit/ckcplm.html#x3
- 9. http://www.columbia.edu/kermit/ckcplm.html#x4
- 10. http://www.columbia.edu/kermit/ckcplm.html#x4.A
- 11. http://www.columbia.edu/kermit/ckcplm.html#x4.B
- 12. http://www.columbia.edu/kermit/ckcplm.html#x4.C
- 13. http://www.columbia.edu/kermit/ckcplm.html#x4.D
- 14. http://www.columbia.edu/kermit/ckcplm.html#x4.E
- 15. http://www.columbia.edu/kermit/ckcplm.html#x4.F
- 16. http://www.columbia.edu/kermit/ckcplm.html#x4.G
- 17. http://www.columbia.edu/kermit/ckcplm.html#x4.H
- 18. http://www.columbia.edu/kermit/ckcplm.html#x4.I
- 19. http://www.columbia.edu/kermit/ckcplm.html#xa1
- 20. http://www.columbia.edu/kermit/ckcplm.html#contents
- 21. http://www.columbia.edu/kermit/ckcplm.html#contents
- 22. http://www.columbia.edu/kermit/ckermit.html
- 23. http://www.columbia.edu/kermit/index.html
- 24. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
- 25. http://www.columbia.edu/kermit/ckcplm.html#contents
- 26. http://www.columbia.edu/kermit/ckermit.html
- 27. http://www.columbia.edu/kermit/index.html
- 28. http://www.columbia.edu/kermit/ckcplm.html#x3.2
- 29. http://www.columbia.edu/kermit/ckcplm.html#contents
- 30. http://www.columbia.edu/kermit/ckermit.html
- 31. http://www.columbia.edu/kermit/index.html
- 32. http://www.columbia.edu/kermit/ckcplm.html#x4.A
- 33. http://www.columbia.edu/kermit/ckcplm.html#contents
- 34. http://www.columbia.edu/kermit/ckermit.html
- 35. http://www.columbia.edu/kermit/index.html
- 36. http://www.columbia.edu/kermit/ckcplm.html#contents
- 37. http://www.columbia.edu/kermit/ckermit.html
- 38. http://www.columbia.edu/kermit/index.html
- 39. http://www.columbia.edu/kermit/ckcplm.html#contents
- 40. http://www.columbia.edu/kermit/ckermit.html
- 41. http://www.columbia.edu/kermit/index.html
- 42. ftp://kermit.columbia.edu/kermit/c-kermit/ckclib.h
- 43. ftp://kermit.columbia.edu/kermit/c-kermit/ckclib.c
- 44. http://www.columbia.edu/kermit/ckcplm.html#x3.1
- 45. http://www.columbia.edu/kermit/ckcplm.html#contents
- 46. http://www.columbia.edu/kermit/ckermit.html
- 47. http://www.columbia.edu/kermit/index.html
- 48. ftp://kermit.columbia.edu/kermit/c-kermit/ckcsym.h
- 49. ftp://kermit.columbia.edu/kermit/c-kermit/ckcasc.h
- 50. ftp://kermit.columbia.edu/kermit/c-kermit/ckcsig.h
- 51. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 52. ftp://kermit.columbia.edu/kermit/c-kermit/ckcker.h
- 53. ftp://kermit.columbia.edu/kermit/c-kermit/ckcxla.h
- 54. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
- 55. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
- 56. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfns.c
- 57. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfn2.c
- 58. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfn3.c
- 59. http://www.columbia.edu/kermit/ckcplm.html#x4.B
- 60. http://www.columbia.edu/kermit/ckcplm.html#x4.E
- 61. http://www.columbia.edu/kermit/ckcplm.html#x4.D
- 62. http://www.columbia.edu/kermit/ckcplm.html#contents
- 63. http://www.columbia.edu/kermit/ckermit.html
- 64. http://www.columbia.edu/kermit/index.html
- 65. http://www.columbia.edu/kermit/ckcplm.html#x4.B
- 66. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.c
- 67. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.h
- 68. ftp://kermit.columbia.edu/kermit/c-kermit/ckcxla.h
- 69. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.h
- 70. ftp://kermit.columbia.edu/kermit/c-kermit/ckmxla.h
- 71. ftp://kermit.columbia.edu/kermit/c-kermit/ck?xla
- 72. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.h
- 73. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.c
- 74. http://www.columbia.edu/kermit/ckcplm.html#contents
- 75. http://www.columbia.edu/kermit/ckermit.html
- 76. http://www.columbia.edu/kermit/index.html
- 77. http://www.columbia.edu/kermit/ckcplm.html#x4.B
- 78. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.h
- 79. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.c
- 80. http://www.columbia.edu/kermit/ckcplm.html#x4.E
- 81. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
- 82. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.c
- 83. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus2.c
- 84. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
- 85. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus4.c
- 86. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusy.c
- 87. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
- 88. ftp://kermit.columbia.edu/kermit/c-kermit/ckuver.h
- 89. ftp://kermit.columbia.edu/kermit/c-kermit/ckuscr.c
- 90. ftp://kermit.columbia.edu/kermit/c-kermit/ckudia.c
- 91. ftp://kermit.columbia.edu/kermit/c-kermit/ckucon.c
- 92. ftp://kermit.columbia.edu/kermit/c-kermit/ckucns.c
- 93. http://www.columbia.edu/kermit/ckcplm.html#x4.E
- 94. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
- 95. http://www.columbia.edu/kermit/ckcplm.html#contents
- 96. http://www.columbia.edu/kermit/ckermit.html
- 97. http://www.columbia.edu/kermit/index.html
- 98. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 99. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 100. ftp://kermit.columbia.edu/kermit/c-kermit/ckusig.c
- 101. ftp://kermit.columbia.edu/kermit/c-kermit/ckvfio.c
- 102. ftp://kermit.columbia.edu/kermit/c-kermit/ckusig.c
- 103. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
- 104. http://www.columbia.edu/kermit/ckcplm.html#contents
- 105. http://www.columbia.edu/kermit/ckermit.html
- 106. http://www.columbia.edu/kermit/index.html
- 107. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 108. ftp://kermit.columbia.edu/kermit/c-kermit/ckvtio.c
- 109. http://www.columbia.edu/kermit/ckcplm.html#x2
- 110. http://www.columbia.edu/kermit/ckcplm.html#xa1
- 111. http://www.columbia.edu/kermit/ckuins.html
- 112. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
- 113. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 114. http://www.columbia.edu/kermit/ckcplm.html#contents
- 115. http://www.columbia.edu/kermit/ckermit.html
- 116. http://www.columbia.edu/kermit/index.html
- 117. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 118. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
- 119. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
- 120. ftp://kermit.columbia.edu/kermit/c-kermit/cklnet.c
- 121. http://www.columbia.edu/kermit/ckcplm.html#contents
- 122. http://www.columbia.edu/kermit/ckermit.html
- 123. http://www.columbia.edu/kermit/index.html
- 124. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.h
- 125. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/ckfaq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/
+ 12. http://www.columbia.edu/kermit/ckcplm.html
+ 13. http://www.columbia.edu/kermit/ckcplm.html#x1
+ 14. http://www.columbia.edu/kermit/ckcplm.html#x2
+ 15. http://www.columbia.edu/kermit/ckcplm.html#x3
+ 16. http://www.columbia.edu/kermit/ckcplm.html#x4
+ 17. http://www.columbia.edu/kermit/ckcplm.html#x4.A
+ 18. http://www.columbia.edu/kermit/ckcplm.html#x4.B
+ 19. http://www.columbia.edu/kermit/ckcplm.html#x4.C
+ 20. http://www.columbia.edu/kermit/ckcplm.html#x4.D
+ 21. http://www.columbia.edu/kermit/ckcplm.html#x4.E
+ 22. http://www.columbia.edu/kermit/ckcplm.html#x4.F
+ 23. http://www.columbia.edu/kermit/ckcplm.html#x4.G
+ 24. http://www.columbia.edu/kermit/ckcplm.html#x4.H
+ 25. http://www.columbia.edu/kermit/ckcplm.html#x4.I
+ 26. http://www.columbia.edu/kermit/ckcplm.html#xa1
+ 27. http://www.amazon.com/gp/product/0932376886?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=0932376886
+ 28. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 29. http://www.columbia.edu/kermit/vax_11-750.jpg
+ 30. http://www.columbia.edu/cu/computinghistory/hermit.html
+ 31. http://www.columbia.edu/kermit/cudocs/ilosetup.html
+ 32. ftp://kermit.columbia.edu/kermit/f/ckc04e.txt
+ 33. ftp://kermit.columbia.edu/kermit/f/ckc04f.txt
+ 34. ftp://kermit.columbia.edu/kermit/f/ckc168.txt
+ 35. ftp://kermit.columbia.edu/kermit/f/ckc178.txt
+ 36. ftp://kermit.columbia.edu/kermit/f/ckc188.txt
+ 37. ftp://kermit.columbia.edu/kermit/f/ckc189.txt
+ 38. ftp://kermit.columbia.edu/kermit/f/ckc192.txt
+ 39. ftp://kermit.columbia.edu/kermit/f/ckc197.txt
+ 40. ftp://kermit.columbia.edu/kermit/f/ckc200.txt
+ 41. ftp://kermit.columbia.edu/kermit/f/ckc211.txt
+ 42. ftp://kermit.columbia.edu/kermit/f/ckc300.txt
+ 43. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 44. http://www.columbia.edu/kermit/ckermit.html
+ 45. http://www.columbia.edu/kermit/index.html
+ 46. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
+ 47. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 48. http://www.columbia.edu/kermit/ckermit.html
+ 49. http://www.columbia.edu/kermit/index.html
+ 50. http://www.columbia.edu/kermit/ckcplm.html#x3.2
+ 51. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 52. http://www.columbia.edu/kermit/ckermit.html
+ 53. http://www.columbia.edu/kermit/index.html
+ 54. http://www.columbia.edu/kermit/ckcplm.html#x4.A
+ 55. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 56. http://www.columbia.edu/kermit/ckermit.html
+ 57. http://www.columbia.edu/kermit/index.html
+ 58. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 59. http://www.columbia.edu/kermit/ckermit.html
+ 60. http://www.columbia.edu/kermit/index.html
+ 61. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 62. http://www.columbia.edu/kermit/ckermit.html
+ 63. http://www.columbia.edu/kermit/index.html
+ 64. ftp://kermit.columbia.edu/kermit/c-kermit/ckclib.h
+ 65. ftp://kermit.columbia.edu/kermit/c-kermit/ckclib.c
+ 66. http://www.columbia.edu/kermit/ckcplm.html#x3.1
+ 67. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 68. http://www.columbia.edu/kermit/ckermit.html
+ 69. http://www.columbia.edu/kermit/index.html
+ 70. ftp://kermit.columbia.edu/kermit/c-kermit/ckcsym.h
+ 71. ftp://kermit.columbia.edu/kermit/c-kermit/ckcasc.h
+ 72. ftp://kermit.columbia.edu/kermit/c-kermit/ckcsig.h
+ 73. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 74. ftp://kermit.columbia.edu/kermit/c-kermit/ckcker.h
+ 75. ftp://kermit.columbia.edu/kermit/c-kermit/ckcxla.h
+ 76. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
+ 77. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
+ 78. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfns.c
+ 79. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfn2.c
+ 80. ftp://kermit.columbia.edu/kermit/c-kermit/ckcfn3.c
+ 81. http://www.columbia.edu/kermit/ckcplm.html#x4.B
+ 82. http://www.columbia.edu/kermit/ckcplm.html#x4.E
+ 83. http://www.columbia.edu/kermit/ckcplm.html#x4.D
+ 84. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 85. http://www.columbia.edu/kermit/ckermit.html
+ 86. http://www.columbia.edu/kermit/index.html
+ 87. http://www.columbia.edu/kermit/ckcplm.html#x4.B
+ 88. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.c
+ 89. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.h
+ 90. ftp://kermit.columbia.edu/kermit/c-kermit/ckcxla.h
+ 91. ftp://kermit.columbia.edu/kermit/c-kermit/ckuxla.h
+ 92. ftp://kermit.columbia.edu/kermit/c-kermit/ckmxla.h
+ 93. ftp://kermit.columbia.edu/kermit/c-kermit/ck?xla
+ 94. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.h
+ 95. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.c
+ 96. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 97. http://www.columbia.edu/kermit/ckermit.html
+ 98. http://www.columbia.edu/kermit/index.html
+ 99. http://www.columbia.edu/kermit/ckcplm.html#x4.B
+ 100. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.h
+ 101. ftp://kermit.columbia.edu/kermit/c-kermit/ckucmd.c
+ 102. http://www.columbia.edu/kermit/ckcplm.html#x4.E
+ 103. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.h
+ 104. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusr.c
+ 105. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus2.c
+ 106. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
+ 107. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus4.c
+ 108. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusy.c
+ 109. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
+ 110. ftp://kermit.columbia.edu/kermit/c-kermit/ckuver.h
+ 111. ftp://kermit.columbia.edu/kermit/c-kermit/ckuscr.c
+ 112. ftp://kermit.columbia.edu/kermit/c-kermit/ckudia.c
+ 113. ftp://kermit.columbia.edu/kermit/c-kermit/ckucon.c
+ 114. ftp://kermit.columbia.edu/kermit/c-kermit/ckucns.c
+ 115. http://www.columbia.edu/kermit/ckcplm.html#x4.E
+ 116. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
+ 117. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 118. http://www.columbia.edu/kermit/ckermit.html
+ 119. http://www.columbia.edu/kermit/index.html
+ 120. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 121. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 122. ftp://kermit.columbia.edu/kermit/c-kermit/ckusig.c
+ 123. ftp://kermit.columbia.edu/kermit/c-kermit/ckvfio.c
+ 124. ftp://kermit.columbia.edu/kermit/c-kermit/ckusig.c
+ 125. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
126. http://www.columbia.edu/kermit/ckcplm.html#contents
127. http://www.columbia.edu/kermit/ckermit.html
128. http://www.columbia.edu/kermit/index.html
- 129. http://www.columbia.edu/kermit/ckcplm.html#contents
- 130. http://www.columbia.edu/kermit/ckermit.html
- 131. http://www.columbia.edu/kermit/index.html
- 132. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
- 133. http://www.columbia.edu/kermit/ckcplm.html#contents
- 134. http://www.columbia.edu/kermit/ckermit.html
- 135. http://www.columbia.edu/kermit/index.html
+ 129. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 130. ftp://kermit.columbia.edu/kermit/c-kermit/ckvtio.c
+ 131. http://www.columbia.edu/kermit/ckcplm.html#x2
+ 132. http://www.columbia.edu/kermit/ckcplm.html#xa1
+ 133. http://www.columbia.edu/kermit/ckuins.html
+ 134. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
+ 135. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
136. http://www.columbia.edu/kermit/ckcplm.html#contents
137. http://www.columbia.edu/kermit/ckermit.html
138. http://www.columbia.edu/kermit/index.html
- 139. http://www.columbia.edu/kermit/ckcplm.html#top
- 140. http://www.columbia.edu/kermit/ckcplm.html#contents
- 141. http://www.columbia.edu/kermit/ckermit.html
- 142. http://www.columbia.edu/kermit/index.html
- 143. http://www.columbia.edu/kermit/index.html
- 144. http://www.columbia.edu/
- 145. mailto:kermit@columbia.edu
+ 139. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 140. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.h
+ 141. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
+ 142. ftp://kermit.columbia.edu/kermit/c-kermit/cklnet.c
+ 143. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 144. http://www.columbia.edu/kermit/ckermit.html
+ 145. http://www.columbia.edu/kermit/index.html
+ 146. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.h
+ 147. ftp://kermit.columbia.edu/kermit/c-kermit/ckctel.c
+ 148. ftp://kermit.columbia.edu/kermit/c-kermit/ckcftp.c
+ 149. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 150. http://www.columbia.edu/kermit/ckermit.html
+ 151. http://www.columbia.edu/kermit/index.html
+ 152. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 153. http://www.columbia.edu/kermit/ckermit.html
+ 154. http://www.columbia.edu/kermit/index.html
+ 155. ftp://kermit.columbia.edu/kermit/c-kermit/ckuusx.c
+ 156. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 157. http://www.columbia.edu/kermit/ckermit.html
+ 158. http://www.columbia.edu/kermit/index.html
+ 159. http://www.columbia.edu/kermit/ckermit90.html#LooseEnd
+ 160. ftp://kermit.columbia.edu/kermit/f/ckupty.h
+ 161. ftp://kermit.columbia.edu/kermit/f/ckupty.c
+ 162. http://www.columbia.edu/kermit/security.html
+ 163. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 164. http://www.columbia.edu/kermit/ckermit.html
+ 165. http://www.columbia.edu/kermit/index.html
+ 166. http://www.columbia.edu/kermit/ckcplm.html#top
+ 167. http://www.columbia.edu/kermit/ckcplm.html#contents
+ 168. http://www.columbia.edu/kermit/ckermit.html
+ 169. http://www.columbia.edu/kermit/index.html
+ 170. http://www.columbia.edu/kermit/index.html
+ 171. mailto:kermit@columbia.edu
--- /dev/null
+
+/* WARNING -- This C source program generated by Wart preprocessor. */
+/* Do not edit this file; edit the Wart-format source file instead, */
+/* and then run it through Wart to produce a new C source file. */
+
+/* Wart Version Info: */
+char *wartv = "Wart Version 2.14, 10 Nov 1999";
+
+char *protv = /* -*-C-*- */
+"C-Kermit Protocol Module 8.0.160, 12 Aug 2007";
+
+int kactive = 0; /* Kermit protocol is active */
+
+#define PKTZEROHACK
+
+/* C K C P R O -- C-Kermit Protocol Module, in Wart preprocessor notation. */
+/*
+ Author: Frank da Cruz <fdc@columbia.edu>,
+ Columbia University Academic Information Systems, New York City.
+
+ Copyright (C) 1985, 2007,
+ Trustees of Columbia University in the City of New York.
+ All rights reserved. See the C-Kermit COPYING.TXT file or the
+ copyright text in the ckcmai.c module for disclaimer and permissions.
+*/
+#ifndef NOXFER
+#include "ckcsym.h"
+#include "ckcdeb.h"
+#include "ckcasc.h"
+#include "ckcker.h"
+#ifdef OS2
+#ifndef NT
+#define INCL_NOPM
+#define INCL_VIO /* Needed for ckocon.h */
+#include <os2.h>
+#undef COMMENT
+#endif /* NT */
+#include "ckocon.h"
+#endif /* OS2 */
+
+/*
+ Note -- This file may also be preprocessed by the UNIX Lex program, but
+ you must indent the above #include statements before using Lex, and then
+ restore them to the left margin in the resulting C program before compilation.
+ Also, the invocation of the "wart()" function below must be replaced by an
+ invocation of the "yylex()" function. It might also be necessary to remove
+ comments in the (%)(%)...(%)(%) section.
+*/
+
+/* State definitions for Wart (or Lex) */
+#define ipkt 1
+#define rfile 2
+#define rattr 3
+#define rdpkt 4
+#define ssinit 5
+#define ssfile 6
+#define ssattr 7
+#define ssdata 8
+#define sseof 9
+#define sseot 10
+#define serve 11
+#define generic 12
+#define get 13
+#define rgen 14
+#define ssopkt 15
+#define ropkt 16
+
+_PROTOTYP(static VOID xxproto,(void));
+_PROTOTYP(static VOID wheremsg,(void));
+_PROTOTYP(int wart,(void));
+_PROTOTYP(static int sgetinit,(int,int));
+_PROTOTYP(int sndspace,(int));
+
+/* External C-Kermit variable declarations */
+ extern char *versio, *srvtxt, *cmarg, *cmarg2, **cmlist, *rf_err;
+ extern char * rfspec, * sfspec, * srfspec, * rrfspec;
+ extern char * prfspec, * psfspec, * psrfspec, * prrfspec;
+ extern char *cdmsgfile[];
+ extern char * snd_move, * snd_rename, * srimsg;
+ extern char filnam[], ofilnam[], fspec[], ttname[], ofn1[];
+ extern CHAR sstate, *srvptr, *data;
+ extern int timint, rtimo, nfils, hcflg, xflg, flow, mdmtyp, network;
+ extern int oopts, omode, oname, opath, nopush, isguest, xcmdsrc, rcdactive;
+ extern int rejection, moving, fncact, bye_active, urserver, fatalio;
+ extern int protocol, prefixing, filcnt, carrier, fnspath, interrupted;
+ extern int recursive, inserver, nzxopts, idletmo, srvidl, xfrint;
+ extern struct ck_p ptab[];
+ extern int remfile, rempipe, xferstat, filestatus, wearealike, fackpath;
+ extern int patterns, filepeek, gnferror;
+ extern char * remdest;
+
+#ifdef PKTZEROHACK
+#define PKTZEROLEN 32
+static char ipktack[PKTZEROLEN];
+static int ipktlen = 0;
+#endif /* PKTZEROHACK */
+
+static int s_timint = -1; /* For saving timeout value */
+static int myjob = 0;
+static int havefs = 0;
+#ifdef CK_LOGIN
+static int logtries = 0;
+#endif /* CK_LOGIN */
+
+static int cancel = 0;
+int fackbug = 0;
+
+#ifdef STREAMING
+extern int streaming, streamok;
+
+static VOID
+streamon() {
+ if (streamok) {
+ debug(F100,"streamon","",0);
+ streaming = 1;
+ timint = 0; /* No timeouts while streaming. */
+ }
+}
+
+#ifdef COMMENT /* (not used) */
+static VOID
+streamoff() {
+ if (streaming) {
+ debug(F100,"streamoff","",0);
+ streaming = 0;
+ timint = s_timint; /* Restore timeout */
+ }
+}
+#endif /* COMMENT */
+#else /* STREAMING */
+#define streamon()
+#define streamoff()
+#endif /* STREAMING */
+
+#ifndef NOSPL
+_PROTOTYP( int addmac, (char *, char *) );
+_PROTOTYP( int zzstring, (char *, char **, int *) );
+#endif /* NOSPL */
+#ifndef NOICP
+_PROTOTYP( int cmdsrc, (void) );
+#endif /* NOICP */
+
+#ifndef NOSERVER
+ extern char * x_user, * x_passwd, * x_acct;
+ extern int x_login, x_logged;
+#endif /* NOSERVER */
+
+#include "ckcnet.h"
+
+#ifdef TNCODE
+ extern int ttnproto; /* Network protocol */
+#endif /* TNCODE */
+
+#ifdef CK_SPEED
+ extern short ctlp[]; /* Control-character prefix table */
+#endif /* CK_SPEED */
+
+#ifdef TNCODE
+ extern int tn_b_nlm, tn_b_xfer, tn_nlm;
+#ifdef CK_ENCRYPTION
+ extern int tn_no_encrypt_xfer;
+#endif /* CK_ENCRYPTION */
+#endif /* TNCODE */
+
+#ifdef TCPSOCKET
+#ifndef NOLISTEN
+ extern int tcpsrfd;
+#endif /* NOLISTEN */
+#endif /* TCPSOCKET */
+
+ extern int cxseen, czseen, server, srvdis, local, displa, bctu, bctr, bctl;
+ extern int quiet, tsecs, parity, backgrd, nakstate, atcapu, wslotn, winlo;
+ extern int wslots, success, xitsta, rprintf, discard, cdtimo, keep, fdispla;
+ extern int timef, stdinf, rscapu, sendmode, epktflg, epktrcvd, epktsent;
+ extern int binary, fncnv;
+ extern long speed, ffc, crc16, calibrate, dest;
+#ifdef COMMENT
+ extern char *TYPCMD, *DIRCMD, *DIRCM2;
+#endif /* COMMENT */
+#ifndef OS2
+ extern char *SPACMD, *SPACM2, *WHOCMD;
+#endif /* OS2 */
+ extern CHAR *rdatap;
+ extern struct zattr iattr;
+
+#ifdef VMS
+ extern int batch;
+#endif /* VMS */
+
+#ifdef GFTIMER
+ extern CKFLOAT fptsecs;
+#endif /* GFTIMER */
+
+ extern CHAR *srvcmd;
+ extern CHAR *epktmsg;
+
+#ifdef CK_TMPDIR
+extern int f_tmpdir; /* Directory changed temporarily */
+extern char savdir[]; /* For saving current directory */
+extern char * dldir;
+#endif /* CK_TMPDIR */
+
+ extern int query; /* Query-active flag */
+#ifndef NOSPL
+ extern int cmdlvl;
+ char querybuf[QBUFL+1] = { NUL, NUL }; /* QUERY response buffer */
+ char *qbufp = querybuf; /* Pointer to it */
+ int qbufn = 0; /* Length of data in it */
+#else
+ extern int tlevel;
+#endif /* NOSPL */
+
+#ifndef NOICP
+ extern int escape;
+#endif /* NOICP */
+/*
+ If the following flag is nonzero when the protocol module is entered,
+ then server mode persists for exactly one transaction, rather than
+ looping until BYE or FINISH is received.
+*/
+extern int justone;
+
+static int r_save = -1;
+static int p_save = -1;
+
+/* Function to let remote-mode user know where their file(s) went */
+
+int whereflg = 1; /* Unset with SET XFER REPORT */
+
+static VOID
+wheremsg() {
+ extern int quiet, filrej;
+ int n;
+ n = filcnt - filrej;
+ debug(F101,"wheremsg n","",n);
+
+ debug(F110,"wheremsg prfspec",prfspec,0);
+ debug(F110,"wheremsg rfspec",rfspec,0);
+ debug(F110,"wheremsg psfspec",psfspec,0);
+ debug(F110,"wheremsg sfspec",sfspec,0);
+
+ debug(F110,"wheremsg prrfspec",prrfspec,0);
+ debug(F110,"wheremsg rrfspec",rrfspec,0);
+ debug(F110,"wheremsg psrfspec",psrfspec,0);
+ debug(F110,"wheremsg srfspec",srfspec,0);
+
+ if (!quiet && !local) {
+ if (n == 1) {
+ switch (myjob) {
+ case 's':
+ if (sfspec) {
+ printf(" SENT: [%s]",sfspec);
+ if (srfspec)
+ printf(" To: [%s]",srfspec);
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
+ }
+ break;
+ case 'r':
+ case 'v':
+ if (rrfspec) {
+ printf(" RCVD: [%s]",rrfspec);
+ if (rfspec)
+ printf(" To: [%s]",rfspec);
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
+ }
+ }
+ } else if (n > 1) {
+ switch (myjob) {
+ case 's':
+ if (sfspec) {
+ printf(" SENT: (%d files)",n);
+ if (srfspec)
+ printf(" Last: [%s]",srfspec);
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
+ }
+ break;
+ case 'r':
+ case 'v':
+ if (rrfspec) {
+ printf(" RCVD: (%d files)",n);
+ if (rfspec)
+ printf(" Last: [%s]",rfspec);
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
+ }
+ }
+ } else if (n == 0) {
+ if (myjob == 's')
+ printf(" SENT: (0 files) \r\n");
+ else if (myjob == 'r' || myjob == 'v')
+ printf(" RCVD: (0 files) \r\n");
+ }
+ }
+}
+
+static VOID
+rdebug() {
+ if (server)
+ debug(F111,"RESUME","server=1",justone);
+ else
+ debug(F111,"RESUME","server=0",justone);
+}
+
+/* Flags for the ENABLE and DISABLE commands */
+extern int
+ en_cpy, en_cwd, en_del, en_dir, en_fin, en_get, en_bye, en_mai, en_pri,
+ en_hos, en_ren, en_sen, en_spa, en_set, en_typ, en_who, en_ret, en_xit,
+ en_mkd, en_rmd;
+#ifndef NOSPL
+extern int en_asg, en_que;
+#endif /* NOSPL */
+extern int what, lastxfer;
+
+/* Global variables declared here */
+
+ int whatru = 0; /* What are you. */
+ int whatru2 = 0; /* What are you, cont'd. */
+
+/* Local variables */
+
+ static char vstate = 0; /* Saved State */
+ static char vcmd = 0; /* Saved Command */
+ static int reget = 0; /* Flag for executing REGET */
+ static int retrieve = 0; /* Flag for executing RETRIEVE */
+ static int opkt = 0; /* Send Extended GET packet */
+
+ static int x; /* General-purpose integer */
+ static char *s; /* General-purpose string pointer */
+
+/* Macros - Note, BEGIN is predefined by Wart (and Lex) as "state = ", */
+/* BEGIN is NOT a GOTO! */
+#define TINIT if (tinit(1) < 0) return(-9)
+#define SERVE { TINIT; resetc(); nakstate=1; what=W_NOTHING; cmarg2=""; \
+sendmode=SM_SEND; havefs=0; recursive=r_save; fnspath=p_save; BEGIN serve; }
+#define RESUME { rdebug(); if (!server) { wheremsg(); return(0); } else \
+if (justone) { justone=0; wheremsg(); return(0); } else { SERVE; } }
+
+#ifdef GFTIMER
+#define QUIT x=quiet; quiet=1; clsif(); clsof(1); tsecs=gtimer(); \
+ fptsecs=gftimer(); quiet=x; return(success)
+#else
+#define QUIT x=quiet; quiet=1; clsif(); clsof(1); tsecs=gtimer(); quiet=x; \
+ return(success)
+#endif /* GFTIMER */
+
+/*
+ By late 1999, the big switch() statement generated from the following state
+ table began choking even gcc, so here we extract the code from the larger
+ states into static routines to reduce the size of the cases and the
+ switch() overall. The routines follow the state table; the prototypes are
+ here. Each of these routines simply contains the text from the
+ corresponding case, but with return(-1) added in appropriate places; see
+ instructions after the state table switcher.
+*/
+static int rc; /* Return code for these routines */
+static int rcv_s_pkt(); /* Received an S packet */
+static int rcv_firstdata(); /* Received first Data packet */
+static int rcv_shortreply(); /* Short reply to a REMOTE command */
+static int srv_query(); /* Server answers an query */
+static int srv_copy(); /* Server executes REMOTE COPY */
+static int srv_rename(); /* Server executes REMOTE RENAME */
+static int srv_login(); /* Server executes REMOTE LOGIN */
+static int srv_timeout(); /* Server times out */
+
+
+#define BEGIN state =
+
+int state = 0;
+
+int
+wart()
+{
+ int c,actno;
+ extern char tbl[];
+ while (1) {
+ c = input() - 32;
+ debug(F000,"PROTO input",ckitoa(state),c+32);
+ if (c < 0 || c > 95) c = 0;
+ if ((actno = tbl[c + state*96]) != -1)
+ switch(actno) {
+case 1:
+ { TINIT; /* Send file(s) */
+ if (sinit() > 0) BEGIN ssinit;
+ else RESUME; }
+ break;
+case 2:
+ { TINIT; nakstate = 1; BEGIN get; }
+ break;
+case 3:
+ { /* Client sends a GET command */
+ TINIT;
+ vstate = get;
+ reget = 0;
+ retrieve = 0;
+ opkt = 0;
+ vcmd = 0;
+#ifdef PKTZEROHACK
+ ipktack[0] = NUL;
+#endif /* PKTZEROHACK */
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 4:
+ { /* Client sends a RETRIEVE command */
+ TINIT;
+ vstate = get;
+ reget = 0;
+ retrieve = 1;
+ opkt = 0;
+ vcmd = 0;
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 5:
+ { /* Client sends a REGET command */
+ TINIT;
+ vstate = get;
+ reget = 1;
+ retrieve = 0;
+ opkt = 0;
+ vcmd = 0;
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 6:
+ { /* Client sends Extended GET Packet */
+ TINIT;
+ vstate = get;
+ reget = oopts & GOPT_RES;
+ retrieve = oopts & GOPT_DEL;
+ opkt = 1;
+ vcmd = 0;
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 7:
+ { /* Client sends a Host command */
+ TINIT;
+ vstate = rgen;
+ vcmd = 'C';
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 8:
+ { TINIT; /* Client sends a Kermit command */
+ vstate = rgen;
+ vcmd = 'K';
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 9:
+ { /* Client sends a REMOTE command */
+ TINIT;
+ vstate = rgen;
+ vcmd = 'G';
+ if (sipkt('I') >= 0)
+ BEGIN ipkt;
+ else
+ RESUME;
+}
+ break;
+case 10:
+ { /* Enter server mode */
+ int x;
+ x = justone;
+ if (!ENABLED(en_del)) { /* If DELETE is disabled */
+ if (fncact == XYFX_B || /* undo any file collision action */
+ fncact == XYFX_U || /* that could result in deletion or */
+ fncact == XYFX_A || /* modification of existing files. */
+ fncact == XYFX_X) {
+#ifndef NOICP
+ extern int g_fncact;
+ g_fncact = fncact; /* Save current setting */
+#endif /* NOICP */
+ fncact = XYFX_R; /* Change to RENAME */
+ debug(F101,"server DELETE disabled so fncact RENAME","",fncact);
+ }
+ }
+ SERVE; /* tinit() clears justone... */
+ justone = x;
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what, "SERVER", "", "");
+#endif /* IKSDB */
+}
+ break;
+case 11:
+ {
+ int b1 = 0, b2 = 0;
+ if (!data) TINIT; /* "ABEND" -- Tell other side. */
+#ifndef pdp11
+ if (epktflg) { /* If because of E-PACKET command */
+ b1 = bctl; b2 = bctu; /* Save block check type */
+ bctl = bctu = 1; /* set it to 1 */
+ }
+#endif /* pdp11 */
+ errpkt((CHAR *)"User cancelled"); /* Send the packet */
+#ifndef pdp11
+ if (epktflg) { /* Restore the block check */
+ epktflg = 0;
+ bctl = b1; bctu = b2;
+ }
+#endif /* pdp11 */
+ success = 0;
+ return(0); /* Return from protocol. */
+}
+ break;
+case 12:
+ { /* Receive Send-Init packet. */
+ rc = rcv_s_pkt();
+ cancel = 0; /* Reset cancellation counter */
+ debug(F101,"rcv_s_pkt","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 13:
+ { /* Get ack for I-packet */
+ int x = 0;
+#ifdef PKTZEROHACK
+ ckstrncpy(ipktack,(char *)rdatap,PKTZEROLEN); /* Save a copy of the ACK */
+ ipktlen = strlen(ipktack);
+#endif /* PKTZEROHACK */
+ spar(rdatap); /* Set parameters */
+ cancel = 0;
+ winlo = 0; /* Set window-low back to zero */
+ debug(F101,"<ipkt>Y winlo","",winlo);
+ urserver = 1; /* So I know I'm talking to a server */
+ if (vcmd) { /* If sending a generic command */
+ if (tinit(0) < 0) return(-9); /* Initialize many things */
+ x = scmd(vcmd,(CHAR *)cmarg); /* Do that */
+ if (x >= 0) x = 0; /* (because of O-Packet) */
+ debug(F101,"proto G packet scmd","",x);
+ vcmd = 0; /* and then un-remember it. */
+ } else if (vstate == get) {
+ debug(F101,"REGET sstate","",sstate);
+ x = srinit(reget, retrieve, opkt); /* GET or REGET, etc */
+ }
+ if (x < 0) { /* If command was too long */
+ if (!srimsg)
+ srimsg = "Error sending string";
+ errpkt((CHAR *)srimsg); /* cancel both sides. */
+ success = 0;
+ RESUME;
+ } else if (x > 0) { /* Need to send more O-Packets */
+ BEGIN ssopkt;
+ } else {
+ rtimer(); /* Reset the elapsed seconds timer. */
+#ifdef GFTIMER
+ rftimer();
+#endif /* GFTIMER */
+ winlo = 0; /* Window back to 0, again. */
+ debug(F101,"<ipkt>Y vstate","",vstate);
+ nakstate = 1; /* Can send NAKs from here. */
+ BEGIN vstate; /* Switch to desired state */
+ }
+}
+ break;
+case 14:
+ { /* Got ACK to O-Packet */
+ debug(F100,"CPCPRO <ssopkt>Y","",0);
+ x = sopkt();
+ debug(F101,"CPCPRO <ssopkt>Y x","",x);
+ if (x < 0) { /* If error */
+ errpkt((CHAR *)srimsg); /* cancel both sides. */
+ success = 0;
+ RESUME;
+ } else if (x == 0) { /* This was the last O-Packet */
+ rtimer(); /* Reset the elapsed seconds timer. */
+#ifdef GFTIMER
+ rftimer();
+#endif /* GFTIMER */
+ winlo = 0; /* Window back to 0, again. */
+ debug(F101,"<ssopkt>Y winlo","",winlo);
+ nakstate = 1; /* Can send NAKs from here. */
+ BEGIN vstate; /* Switch to desired state */
+ }
+ debug(F101,"CPCPRO <ssopkt>Y not changing state","",x);
+}
+ break;
+case 15:
+ { /* Ignore Error reply to I packet */
+ int x = 0;
+ winlo = 0; /* Set window-low back to zero */
+ debug(F101,"<ipkt>E winlo","",winlo);
+ if (vcmd) { /* In case other Kermit doesn't */
+ if (tinit(0) < 0) return(-9);
+ x = scmd(vcmd,(CHAR *)cmarg); /* understand I-packets. */
+ if (x >= 0) x = 0; /* (because of O-Packet) */
+ vcmd = 0; /* Otherwise act as above... */
+ } else if (vstate == get) x = srinit(reget, retrieve, opkt);
+ if (x < 0) { /* If command was too long */
+ errpkt((CHAR *)srimsg); /* cancel both sides. */
+ success = 0;
+ RESUME;
+ } else if (x > 0) { /* Need to send more O-Packets */
+ BEGIN ssopkt;
+ } else {
+ freerpkt(winlo); /* Discard the Error packet. */
+ debug(F101,"<ipkt>E winlo","",winlo);
+ winlo = 0; /* Back to packet 0 again. */
+ nakstate = 1; /* Can send NAKs from here. */
+ BEGIN vstate;
+ }
+}
+ break;
+case 16:
+ { /* Resend of previous I-pkt ACK, same seq number */
+ freerpkt(0); /* Free the ACK's receive buffer */
+ resend(0); /* Send the GET packet again. */
+}
+ break;
+case 17:
+ { /* Get I-packet */
+#ifndef NOSERVER
+ spar(rdatap); /* Set parameters from it */
+ ack1(rpar()); /* Respond with our own parameters */
+#ifdef COMMENT
+ pktinit(); /* Reinitialize packet numbers */
+#else
+#ifdef COMMENT
+ /* This can't be right - it undoes the stuff we just negotiated */
+ x = justone;
+ tinit(1); /* Reinitialize EVERYTHING */
+ justone = x; /* But this... */
+#else
+ tinit(0); /* Initialize most things */
+#endif /* COMMENT */
+#endif /* COMMENT */
+#endif /* NOSERVER */
+ cancel = 0; /* Reset cancellation counter */
+}
+ break;
+case 18:
+ { /* GET */
+#ifndef NOSERVER
+ if (x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else if (sgetinit(0,0) < 0) {
+ RESUME;
+ } else {
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "GET", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 19:
+ { /* GET /DELETE (RETRIEVE) */
+#ifndef NOSERVER
+ if (x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ RESUME;
+ } else if (!ENABLED(en_del)) {
+ errpkt((CHAR *)"Deleting files is disabled");
+ RESUME;
+ } else if (sgetinit(0,0) < 0) {
+ RESUME;
+ } else {
+ moving = 1;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "GET /DELETE", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 20:
+ { /* GET /RECURSIVE */
+#ifndef NOSERVER
+ recursive = 1; /* Set these before sgetinit() */
+ if (fnspath == PATH_OFF)
+ fnspath = PATH_REL; /* Don't worry, they will be */
+ if (x_login && !x_logged) { /* reset next time through. */
+ errpkt((CHAR *)"Login required");
+ RESUME;
+ } else if (sgetinit(0,0) < 0) {
+ RESUME;
+ } else {
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "GET /RECURSIVE", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 21:
+ { /* GET /RECURSIVE /DELETE */
+#ifndef NOSERVER
+ recursive = 1; /* Set these before sgetinit() */
+ if (fnspath == PATH_OFF)
+ fnspath = PATH_REL; /* Don't worry, they will be */
+ moving = 1; /* reset next time through. */
+ if (x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ RESUME;
+ } else if (!ENABLED(en_del)) {
+ errpkt((CHAR *)"Deleting files is disabled");
+ RESUME;
+ } else if (sgetinit(0,0) < 0) {
+ RESUME;
+ } else {
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR,1,"server",
+ "GET /RECURSIVE /DELETE",(char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 22:
+ { /* GET /RECOVER (REGET) */
+#ifndef NOSERVER
+ if (x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else if (sgetinit(1,0) < 0) {
+ RESUME;
+ } else {
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "GET /RECOVER", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 23:
+ { /* Extended GET */
+#ifndef NOSERVER
+ if (x_login && !x_logged) { /* (any combination of options) */
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else if ((x = sgetinit(0,1)) < 0) {
+ debug(F101,"CKCPRO <serve>O sgetinit fail","",x);
+ RESUME;
+ } else if (x == 0) {
+ debug(F101,"CKCPRO <serve>O sgetinit done","",x);
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "EXTENDED GET", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ } else { /* Otherwise stay in this state */
+ debug(F101,"CKCPRO <serve>O sgetinit TBC","",x);
+ ack();
+ BEGIN ropkt;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 24:
+ {
+#ifndef NOSERVER
+ if (x_login && !x_logged) { /* (any combination of options) */
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else if ((x = sgetinit(0,1)) < 0) {
+ debug(F101,"CKCPRO <ropkt>O sgetinit fail","",x);
+ RESUME;
+ } else if (x == 0) {
+ debug(F101,"CKCPRO <ropkt>O sgetinit done","",x);
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "EXTENDED GET", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit;
+ } else { /* Otherwise stay in this state */
+ debug(F101,"CKCPRO <ropkt>O sgetinit TBC","",x);
+ ack();
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 25:
+ { /* Generic server command */
+#ifndef NOSERVER
+ srvptr = srvcmd; /* Point to command buffer */
+ decode(rdatap,putsrv,0); /* Decode packet data into it */
+ putsrv(NUL); /* Insert a couple nulls */
+ putsrv(NUL); /* for termination */
+ if (srvcmd[0]) {
+ sstate = srvcmd[0]; /* Set requested start state */
+ if (x_login && !x_logged && /* Login required? */
+ /* Login, Logout, and Help are allowed when not logged in */
+ sstate != 'I' && sstate != 'L' && sstate != 'H') {
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else {
+ nakstate = 0; /* Now I'm the sender. */
+ what = W_REMO; /* Doing a REMOTE command. */
+#ifdef STREAMING
+ if (!streaming)
+#endif /* STREAMING */
+ if (timint < 1)
+ timint = chktimo(rtimo,timef); /* Switch to per-packet timer */
+ binary = XYFT_T; /* Switch to text mode */
+ BEGIN generic; /* Switch to generic command state */
+ }
+ } else {
+ errpkt((CHAR *)"Badly formed server command"); /* report error */
+ RESUME; /* & go back to server command wait */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 26:
+ { /* Receive Host command */
+#ifndef NOSERVER
+ if (x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else if (!ENABLED(en_hos)) {
+ errpkt((CHAR *)"REMOTE HOST disabled");
+ RESUME;
+ } else if (nopush) {
+ errpkt((CHAR *)"HOST commands not available");
+ RESUME;
+ } else {
+ srvptr = srvcmd; /* Point to command buffer */
+ decode(rdatap,putsrv,0); /* Decode command packet into it */
+ putsrv(NUL); /* Null-terminate */
+ nakstate = 0; /* Now sending, not receiving */
+ binary = XYFT_T; /* Switch to text mode */
+ if (syscmd((char *)srvcmd,"")) { /* Try to execute the command */
+ what = W_REMO; /* Doing a REMOTE command. */
+#ifdef STREAMING
+ if (!streaming)
+#endif /* STREAMING */
+ if (timint < 1)
+ timint = chktimo(rtimo,timef); /* Switch to per-packet timer */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE HOST", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ BEGIN ssinit; /* If OK, send back its output */
+ } else { /* Otherwise */
+ errpkt((CHAR *)"Can't do system command"); /* report error */
+ RESUME; /* & go back to server command wait */
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 27:
+ { /* Interrupted or connection lost */
+ rc = srv_timeout();
+ debug(F101,"srv_timeout","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 28:
+ { /* Server got a NAK in command-wait */
+#ifndef NOSERVER
+ errpkt((CHAR *)"Did you say RECEIVE instead of GET?");
+ RESUME;
+#endif /* NOSERVER */
+}
+ break;
+case 29:
+ { /* Any other command in this state */
+#ifndef NOSERVER
+ if (c != ('E' - SP) && c != ('Y' - SP)) /* except E and Y packets. */
+ errpkt((CHAR *)"Unimplemented server function");
+ /* If we answer an E with an E, we get an infinite loop. */
+ /* A Y (ACK) can show up here if we sent back a short-form reply to */
+ /* a G packet and it was echoed. ACKs can be safely ignored here. */
+ RESUME; /* Go back to server command wait. */
+#endif /* NOSERVER */
+}
+ break;
+case 30:
+ { /* Login/Out */
+ rc = srv_login();
+ debug(F101,"<generic>I srv_login","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 31:
+ { /* Got REMOTE CD command */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE CD", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_cwd)) {
+ errpkt((CHAR *)"REMOTE CD disabled");
+ RESUME;
+ } else {
+ char * p = NULL;
+ x = cwd((char *)(srvcmd+1)); /* Try to change directory */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE CD", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!x) { /* Failed */
+ errpkt((CHAR *)"Can't change directory");
+ RESUME; /* Back to server command wait */
+ } else if (x == 2) { /* User wants message */
+ if (!ENABLED(en_typ)) { /* Messages (REMOTE TYPE) disabled? */
+ errpkt((CHAR *)"REMOTE TYPE disabled");
+ RESUME;
+ } else { /* TYPE is enabled */
+ int i;
+ for (i = 0; i < 8; i++) {
+ if (zchki(cdmsgfile[i]) > -1) {
+ break;
+ }
+ }
+ binary = XYFT_T; /* Use text mode for this. */
+ if (i < 8 && sndtype(cdmsgfile[i])) { /* Have readme file? */
+ BEGIN ssinit; /* OK */
+ } else { /* not OK */
+ p = zgtdir();
+ if (!p) p = "";
+ success = (*p) ? 1 : 0;
+ ack1((CHAR *)p); /* ACK with new directory name */
+ success = 1;
+ RESUME; /* wait for next server command */
+ }
+ }
+ } else { /* User doesn't want message */
+ p =zgtdir();
+ if (!p) p = "";
+ success = (*p) ? 1 : 0;
+ ack1((CHAR *)p);
+ success = 1;
+ RESUME; /* Wait for next server command */
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 32:
+ { /* Got REMOTE PWD command */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE PWD", NULL);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_cwd)) {
+ errpkt((CHAR *)"REMOTE CD disabled");
+ RESUME;
+ } else {
+ if (encstr((CHAR *)zgtdir()) > -1) { /* Encode current directory */
+ ack1(data); /* If it fits, send it back in ACK */
+ success = 1;
+ } else { /* Failed */
+ ack(); /* Send empty ACK */
+ success = 0; /* and indicate failure locally */
+ }
+ RESUME; /* Back to server command wait */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 33:
+ { /* REMOTE DIRECTORY command */
+#ifndef NOSERVER
+ char *n2;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE DIRECTORY", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_dir)) { /* If DIR is disabled, */
+ errpkt((CHAR *)"REMOTE DIRECTORY disabled"); /* refuse. */
+ RESUME;
+ } else { /* DIR is enabled. */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE DIR", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_cwd)) { /* But CWD is disabled */
+ zstrip((char *)(srvcmd+2),&n2); /* and they included a pathname, */
+ if (strcmp((char *)(srvcmd+2),n2)) { /* so refuse. */
+ errpkt((CHAR *)"Access denied");
+ RESUME; /* Remember, this is not a goto! */
+ }
+ }
+ if (state == generic) { /* It's OK to go ahead. */
+#ifdef COMMENT
+ n2 = (*(srvcmd+2)) ? DIRCMD : DIRCM2;
+ if (syscmd(n2,(char *)(srvcmd+2))) /* If it can be done */
+#else
+ int x;
+ if ((x = snddir((char*)(srvcmd+2))) > 0)
+#endif /* COMMENT */
+ {
+ BEGIN ssinit; /* send the results back; */
+ } else { /* otherwise */
+ if (x < 0)
+ errpkt((CHAR *)"No files match");
+ else
+ errpkt((CHAR *)"Can't list directory");
+ RESUME; /* return to server command wait */
+ }
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 34:
+ { /* REMOTE DELETE (Erase) */
+#ifndef NOSERVER
+ char *n2;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE DELETE", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_del)) {
+ errpkt((CHAR *)"REMOTE DELETE disabled");
+ RESUME;
+ } else { /* DELETE is enabled */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE DELETE", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_cwd)) { /* but CWD is disabled */
+ zstrip((char *)(srvcmd+2),&n2); /* and they included a pathname, */
+ if (strcmp((char *)(srvcmd+2),n2)) { /* so refuse. */
+ errpkt((CHAR *)"Access denied");
+ RESUME; /* Remember, this is not a goto! */
+ }
+ } else if (isdir((char *)(srvcmd+2))) { /* A directory name? */
+ errpkt((CHAR *)"It's a directory");
+ RESUME;
+ }
+ if (state == generic) { /* It's OK to go ahead. */
+ int x;
+ if ((x = snddel((char*)(srvcmd+2))) > 0) {
+ BEGIN ssinit; /* If OK send results back */
+ } else { /* otherwise */
+ if (x < 0)
+ errpkt((CHAR *)"File not found"); /* report failure */
+ else
+ errpkt((CHAR *)"DELETE failed");
+ RESUME; /* & return to server command wait */
+ }
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 35:
+ { /* FINISH */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "FINISH", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"SERVER FINISH", "", "");
+#endif /* IKSDB */
+ if (!ENABLED(en_fin)) {
+ errpkt((CHAR *)"FINISH disabled");
+ RESUME;
+ } else {
+ ack(); /* Acknowledge */
+ xxscreen(SCR_TC,0,0L,""); /* Display */
+ success = 1;
+ return(0); /* Done */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 36:
+ { /* EXIT */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE EXIT", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE EXIT", "", "");
+#endif /* IKSDB */
+ if (!ENABLED(en_xit)) {
+ errpkt((CHAR *)"EXIT disabled");
+ RESUME;
+ } else {
+ ack(); /* Acknowledge */
+ xxscreen(SCR_TC,0,0L,""); /* Display */
+ doexit(GOOD_EXIT,xitsta);
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 37:
+ { /* BYE (Logout) */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "BYE", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"SERVER BYE", "", "");
+#endif /* IKSDB */
+ if (!ENABLED(en_bye)) {
+ errpkt((CHAR *)"BYE disabled");
+ RESUME;
+ } else {
+ ack(); /* Acknowledge */
+ success = 1;
+ msleep(750); /* Give the ACK time to get out */
+ if (local)
+ ttres(); /* Reset the terminal */
+ xxscreen(SCR_TC,0,0L,""); /* Display */
+ doclean(1); /* Clean up files, etc */
+#ifdef DEBUG
+ debug(F100,"C-Kermit BYE - Loggin out...","",0);
+ zclose(ZDFILE);
+#endif /* DEBUG */
+#ifdef IKSD
+#ifdef CK_LOGIN
+ if (inserver)
+ ckxlogout();
+ else
+#endif /* CK_LOGIN */
+#endif /* IKSD */
+#ifdef TCPSOCKET
+#ifndef NOLISTEN
+ if (network && tcpsrfd > 0 && !inserver)
+ doexit(GOOD_EXIT,xitsta);
+ else
+#endif /* NOLISTEN */
+#endif /* TCPSOCKET */
+ return(zkself()); /* Try to log self out */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 38:
+ { /* REMOTE HELP */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE HELP", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE HELP", "", "");
+#endif /* IKSDB */
+#ifndef NOSERVER
+ if (sndhlp()) {
+ BEGIN ssinit; /* try to send it */
+ } else { /* If not ok, */
+ errpkt((CHAR *)"Can't send help"); /* send error message instead */
+ RESUME; /* and return to server command wait */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 39:
+ { /* REMOTE RENAME */
+ rc = srv_rename();
+ debug(F101,"srv_rename","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 40:
+ { /* REMOTE COPY */
+ rc = srv_copy();
+ debug(F101,"srv_copy","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 41:
+ { /* REMOTE SET */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE SET", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifndef NOSERVER
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE SET", (char *)(srvcmd+1), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_set)) {
+ errpkt((CHAR *)"REMOTE SET disabled");
+ RESUME;
+ } else {
+ if (remset((char *)(srvcmd+1))) { /* Try to do what they ask */
+ success = 1;
+ ack(); /* If OK, then acknowledge */
+ } else /* Otherwise */
+ errpkt((CHAR *)"Unknown REMOTE SET parameter"); /* give error msg */
+ RESUME; /* Return to server command wait */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 42:
+ { /* REMOTE TYPE */
+#ifndef NOSERVER
+ char *n2;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE TYPE", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_typ)) {
+ errpkt((CHAR *)"REMOTE TYPE disabled");
+ RESUME;
+ } else {
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE TYPE", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_cwd)) { /* If CWD disabled */
+ zstrip((char *)(srvcmd+2),&n2); /* and they included a pathname, */
+ if (strcmp((char *)(srvcmd+2),n2)) { /* refuse. */
+ errpkt((CHAR *)"Access denied");
+ RESUME; /* Remember, this is not a goto! */
+ }
+ }
+ if (state == generic) { /* It's OK to go ahead. */
+ binary = XYFT_T; /* Use text mode for this. */
+ if ( /* (RESUME didn't change state) */
+#ifdef COMMENT
+ syscmd(TYPCMD,(char *)(srvcmd+2)) /* Old way */
+#else
+ sndtype((char *)(srvcmd+2)) /* New way */
+#endif /* COMMENT */
+ )
+ BEGIN ssinit; /* OK */
+ else { /* not OK */
+ errpkt((CHAR *)"Can't type file"); /* give error message */
+ RESUME; /* wait for next server command */
+ }
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 43:
+ { /* REMOTE MKDIR */
+#ifndef NOSERVER
+#ifdef CK_MKDIR
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE MKDIR", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE MKDIR", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_mkd)) {
+ errpkt((CHAR *)"REMOTE MKDIR disabled");
+ RESUME;
+ } else if (!ENABLED(en_cwd)) { /* If CWD disabled */
+ errpkt((CHAR *)"Directory access restricted");
+ RESUME; /* Remember, this is not a goto! */
+ }
+ if (state == generic) { /* OK to go ahead. */
+ char *p = NULL;
+ x = ckmkdir(0,(char *)(srvcmd+2),&p,0,1); /* Make the directory */
+ if (!p) p = "";
+ if (x > -1) {
+ encstr((CHAR *)p); /* OK - encode the name */
+ ack1(data); /* Send short-form response */
+ success = 1;
+ RESUME;
+ } else { /* not OK */
+ if (!*p) p = "Directory creation failure";
+ errpkt((CHAR *)p); /* give error message */
+ RESUME; /* Wait for next server command */
+ }
+ }
+#else
+ errpkt((CHAR *)"REMOTE MKDIR not available");
+ RESUME;
+#endif /* CK_MKDIR */
+#endif /* NOSERVER */
+}
+ break;
+case 44:
+ { /* REMOTE RMDIR */
+#ifndef NOSERVER
+#ifdef CK_MKDIR
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE RMDIR", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE RMDIR", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_rmd)) {
+ errpkt((CHAR *)"REMOTE RMDIR disabled");
+ RESUME;
+ } else if (!ENABLED(en_cwd)) { /* If CWD disabled */
+ errpkt((CHAR *)"Directory access restricted");
+ RESUME; /* Remember, this is not a goto! */
+ }
+ if (state == generic) { /* OK to go ahead. */
+ char *p = NULL;
+ x = ckmkdir(1,(char *)(srvcmd+2),&p,0,1);
+ if (!p) p = "";
+ if (x > -1) {
+ encstr((CHAR *)p); /* OK - encode the name */
+ ack1(data); /* Send short-form response */
+ success = 1;
+ RESUME;
+ } else { /* not OK */
+ if (!*p) p = "Directory removal failure";
+ errpkt((CHAR *)p); /* give error message */
+ RESUME; /* Wait for next server command */
+ }
+ }
+#else
+ errpkt((CHAR *)"REMOTE RMDIR not available");
+ RESUME;
+#endif /* CK_MKDIR */
+#endif /* NOSERVER */
+}
+ break;
+case 45:
+ { /* REMOTE SPACE */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE SPACE", (char *)srvcmd);
+#endif /* CKSYSLOG */
+ if (!ENABLED(en_spa)) {
+ errpkt((CHAR *)"REMOTE SPACE disabled");
+ RESUME;
+ } else {
+ x = srvcmd[1]; /* Get area to check */
+ x = ((x == NUL) || (x == SP)
+#ifdef OS2
+ || (x == '!') || (srvcmd[3] == ':')
+#endif /* OS2 */
+ );
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,
+ "REMOTE SPACE",
+ (x ? "" : (char *)srvcmd),
+ ""
+ );
+#endif /* IKSDB */
+ if (!x && !ENABLED(en_cwd)) { /* CWD disabled */
+ errpkt((CHAR *)"Access denied"); /* and non-default area given, */
+ RESUME; /* refuse. */
+ } else {
+#ifdef OS2
+_PROTOTYP(int sndspace,(int));
+ if (sndspace(x ? toupper(srvcmd[2]) : 0)) {
+ BEGIN ssinit; /* send the report. */
+ } else { /* If not ok, */
+ errpkt((CHAR *)"Can't send space"); /* send error message */
+ RESUME; /* and return to server command wait */
+ }
+#else
+ if (nopush)
+ x = 0;
+ else
+ x = (x ? syscmd(SPACMD,"") : syscmd(SPACM2,(char *)(srvcmd+2)));
+ if (x) { /* If we got the info */
+ BEGIN ssinit; /* send it */
+ } else { /* otherwise */
+ errpkt((CHAR *)"Can't check space"); /* send error message */
+ RESUME; /* and await next server command */
+ }
+#endif /* OS2 */
+ }
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 46:
+ { /* REMOTE WHO */
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE WHO", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE WHO", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ if (!ENABLED(en_who)) {
+ errpkt((CHAR *)"REMOTE WHO disabled");
+ RESUME;
+ } else {
+#ifdef OS2
+_PROTOTYP(int sndwho,(char *));
+ if (sndwho((char *)(srvcmd+2))) {
+ BEGIN ssinit; /* try to send it */
+ } else { /* If not ok, */
+ errpkt((CHAR *)"Can't do who command"); /* send error msg */
+ RESUME; /* and return to server command wait */
+ }
+#else
+ if (syscmd(WHOCMD,(char *)(srvcmd+2))) {
+ BEGIN ssinit;
+ } else {
+ errpkt((CHAR *)"Can't do who command");
+ RESUME;
+ }
+#endif /* OS2 */
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 47:
+ { /* Variable query or set */
+ rc = srv_query();
+ debug(F101,"srv_query","",rc);
+ if (rc > -1) return(rc);
+}
+ break;
+case 48:
+ { /* REMOTE MESSAGE command */
+#ifndef NOSERVER
+ debug(F110,"RMSG",(char *)srvcmd+2,0);
+ xxscreen(SCR_MS,0,0L,(char *)(srvcmd+2));
+ ack();
+ RESUME;
+#endif /* NOSERVER */
+}
+ break;
+case 49:
+ { /* Interrupted or connection lost */
+#ifndef NOSERVER
+ if (fatalio) { /* Connection lost */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "Interrupted", NULL);
+#endif /* CKSYSLOG */
+ success = 0;
+ xitsta |= (what & W_KERMIT);
+ QUIT;
+ } else if (interrupted) {
+ if (!ENABLED(en_fin)) { /* Ctrl-C typed */
+ errpkt((CHAR *)"QUIT disabled");
+ RESUME;
+ } else {
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "Interrupted", NULL);
+#endif /* CKSYSLOG */
+ success = 0;
+ xitsta |= (what & W_KERMIT);
+ QUIT;
+ }
+ } else { /* Shouldn't happen */
+ debug(F100,"SERVER (generic) GOT UNEXPECTED 'q'","",0);
+ QUIT;
+ }
+#endif /* NOSERVER */
+}
+ break;
+case 50:
+ { /* Anything else in this state... */
+#ifndef NOSERVER
+ errpkt((CHAR *)"Unimplemented REMOTE command"); /* Complain */
+ RESUME; /* and return to server command wait */
+#endif /* NOSERVER */
+}
+ break;
+case 51:
+ { /* Sent BYE and connection broken */
+ if (bye_active && ttchk() < 0) {
+ msleep(500);
+ bye_active = 0;
+ ttclos(0); /* Close our end of the connection */
+ clsof(0);
+ return(success = 1);
+ } else { /* Other generic command */
+ return(success = 0); /* or connection not broken */
+ }
+}
+ break;
+case 52:
+ { /* Short-Form reply */
+ rc = rcv_shortreply();
+ debug(F101,"<rgen>Y rcv_shortreply","",rc);
+ if (rc > -1) return(rc);
+}
+ break;
+case 53:
+ { /* File header */
+ /* char *n2; */
+ extern int rsn;
+ debug(F101,"<rfile>F winlo 1","",winlo);
+ xflg = 0; /* Not screen data */
+ if (!czseen)
+ cancel = 0; /* Reset cancellation counter */
+#ifdef CALIBRATE
+ if (dest == DEST_N)
+ calibrate = 1;
+#endif /* CALIBRATE */
+ if (!rcvfil(filnam)) { /* Figure out local filename */
+ errpkt((CHAR *)rf_err); /* Trouble */
+ RESUME;
+ } else { /* Real file, OK to receive */
+ char * fnp;
+ debug(F111,"<rfile>F winlo 2",fspec,winlo);
+ if (filcnt == 1) /* rcvfil set this to 1 for 1st file */
+ crc16 = 0L; /* Clear file CRC */
+ fnp = fspec; /* This is the full path */
+ if (server && !ENABLED(en_cwd) || /* if DISABLE CD */
+ !fackpath /* or F-ACK-PATH OFF */
+ ) {
+ zstrip(fspec,&fnp); /* don't send back full path */
+ }
+ encstr((CHAR *)fnp);
+ if (fackbug)
+ ack();
+ else
+ ack1(data); /* Send it back in ACK */
+ initattr(&iattr); /* Clear file attribute structure */
+ streamon();
+ if (window(wslotn) < 0) { /* Allocate negotiated window slots */
+ errpkt((CHAR *)"Can't open window");
+ RESUME;
+ }
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,
+ server ? "SERVER" : "",
+ "RECEIVE",
+ fspec
+ );
+#endif /* IKSDB */
+ BEGIN rattr; /* Now expect Attribute packets */
+ }
+}
+ break;
+case 54:
+ { /* X-packet instead of file header */
+ xflg = 1; /* Screen data */
+ if (!czseen)
+ cancel = 0; /* Reset cancellation counter */
+ ack(); /* Acknowledge the X-packet */
+ initattr(&iattr); /* Initialize attribute structure */
+ streamon();
+ if (window(wslotn) < 0) { /* allocate negotiated window slots */
+ errpkt((CHAR *)"Can't open window");
+ RESUME;
+ }
+#ifndef NOSPL
+ if (query) { /* If this is the response to */
+ qbufp = querybuf; /* a query that we sent, initialize */
+ qbufn = 0; /* the response buffer */
+ querybuf[0] = NUL;
+ }
+#endif /* NOSPL */
+ what = W_REMO; /* we're doing a REMOTE command */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,
+ server ? "SERVER" : "",
+ "RECEIVE",
+ fspec
+ );
+#endif /* IKSDB */
+ BEGIN rattr; /* Expect Attribute packets */
+}
+ break;
+case 55:
+ { /* Attribute packet */
+ if (gattr(rdatap,&iattr) == 0) { /* Read into attribute structure */
+#ifdef CK_RESEND
+ ack1((CHAR *)iattr.reply.val); /* Reply with data */
+#else
+ ack(); /* If OK, acknowledge */
+#endif /* CK_RESEND */
+ } else { /* Otherwise */
+ extern long fsize;
+ char *r;
+ r = getreason(iattr.reply.val);
+ ack1((CHAR *)iattr.reply.val); /* refuse to accept the file */
+ xxscreen(SCR_ST,ST_REFU,0L,r); /* reason */
+#ifdef TLOG
+ if (tralog && !tlogfmt)
+ doxlog(what,filnam,fsize,binary,1,r);
+#endif /* TLOG */
+ }
+}
+ break;
+case 56:
+ { /* First data packet */
+ debug(F100,"<rattr> D firstdata","",0);
+ rc = rcv_firstdata();
+ debug(F101,"rcv_firstdata rc","",rc);
+ if (rc > -1) return(rc); /* (see below) */
+}
+ break;
+case 57:
+ { /* EOT, no more files */
+ ack(); /* Acknowledge the B packet */
+ reot(); /* Do EOT things */
+#ifdef CK_TMPDIR
+/* If we were cd'd temporarily to another device or directory ... */
+ if (f_tmpdir) {
+ int x;
+ x = zchdir((char *) savdir); /* ... restore previous directory */
+ f_tmpdir = 0; /* and remember we did it. */
+ debug(F111,"ckcpro.w B tmpdir restoring",savdir,x);
+ }
+#endif /* CK_TMPDIR */
+ RESUME; /* and quit */
+}
+ break;
+case 58:
+ { /* Got Data packet */
+ debug(F101,"<rdpkt>D cxseen","",cxseen);
+ debug(F101,"<rdpkt>D czseen","",czseen);
+ if (cxseen || czseen || discard) { /* If file or group interruption */
+ CHAR * msg;
+ msg = czseen ? (CHAR *)"Z" : (CHAR *)"X";
+#ifdef STREAMING
+ if (streaming) { /* Need to cancel */
+ debug(F111,"<rdpkt>D streaming cancel",msg,cancel);
+ if (cancel++ == 0) { /* Only do this once */
+ ack1(msg); /* Put "X" or "Z" in ACK */
+ } else if (czseen) {
+ errpkt((CHAR *)"User canceled");
+ RESUME;
+ } else {
+ fastack();
+ }
+ } else
+#endif /* STREAMING */
+ ack1(msg);
+ } else { /* No interruption */
+ int rc, qf;
+#ifndef NOSPL
+ qf = query;
+#else
+ qf = 0;
+#endif /* NOSPL */
+#ifdef CKTUNING
+ rc = (binary && !parity) ?
+ bdecode(rdatap,putfil):
+ decode(rdatap, qf ? puttrm : putfil, 1);
+#else
+ rc = decode(rdatap, qf ? puttrm : putfil, 1);
+#endif /* CKTUNING */
+ if (rc < 0) {
+ discard = (keep == 0 || (keep == SET_AUTO && binary != XYFT_T));
+ errpkt((CHAR *)"Error writing data"); /* If failure, */
+ RESUME;
+ } else /* Data written OK, send ACK */
+#ifdef STREAMING
+ if (streaming)
+ fastack();
+ else
+#endif /* STREAMING */
+ ack();
+ }
+}
+ break;
+case 59:
+ { /* EOF immediately after A-Packet. */
+ rf_err = "Can't create file";
+ timint = s_timint;
+ if (discard) { /* Discarding a real file... */
+ x = 1;
+ } else if (xflg) { /* If screen data */
+ if (remfile) { /* redirected to file */
+ if (rempipe) /* or pipe */
+ x = openc(ZOFILE,remdest); /* Pipe: start command */
+ else
+ x = opena(remdest,&iattr); /* File: open with attributes */
+ } else { /* otherwise */
+ x = opent(&iattr); /* "open" the screen */
+ }
+#ifdef CALIBRATE
+ } else if (calibrate) { /* If calibration run */
+ x = ckopenx(&iattr); /* do this */
+#endif /* CALIBRATE */
+ } else { /* otherwise */
+ x = opena(filnam,&iattr); /* open the file, with attributes */
+ if (x == -17) { /* REGET skipped because same size */
+ discard = 1;
+ rejection = 1;
+ }
+ }
+ if (!x || reof(filnam, &iattr) < 0) { /* Close output file */
+ errpkt((CHAR *) rf_err); /* If problem, send error msg */
+ RESUME; /* and quit */
+ } else { /* otherwise */
+ if (x == -17)
+ xxscreen(SCR_ST,ST_SKIP,SKP_RES,"");
+ ack(); /* acknowledge the EOF packet */
+ BEGIN rfile; /* and await another file */
+ }
+}
+ break;
+case 60:
+ { /* Ctrl-C or connection loss. */
+ timint = s_timint;
+ window(1); /* Set window size back to 1... */
+ cxseen = 1;
+ x = clsof(1); /* Close file */
+ return(success = 0); /* Failed */
+}
+ break;
+case 61:
+ { /* End Of File (EOF) Packet */
+/* wslots = 1; */ /* (don't set) Window size back to 1 */
+#ifndef COHERENT /* Coherent compiler blows up on this switch() statement. */
+ x = reof(filnam, &iattr); /* Handle the EOF packet */
+ switch (x) { /* reof() sets the success flag */
+ case -5: /* Handle problems */
+ errpkt((CHAR *)"RENAME failed"); /* Fatal */
+ RESUME;
+ break;
+ case -4:
+ errpkt((CHAR *)"MOVE failed"); /* Fatal */
+ RESUME;
+ break;
+ case -3: /* If problem, send error msg */
+ errpkt((CHAR *)"Can't print file"); /* Fatal */
+ RESUME;
+ break;
+ case -2:
+ errpkt((CHAR *)"Can't mail file"); /* Fatal */
+ RESUME;
+ break;
+ case 2: /* Not fatal */
+ case 3:
+ xxscreen(SCR_EM,0,0L,"Receiver can't delete temp file");
+ RESUME;
+ break;
+ default:
+ if (x < 0) { /* Fatal */
+ errpkt((CHAR *)"Can't close file");
+ RESUME;
+ } else { /* Success */
+#ifndef NOSPL
+ if (query) /* Query reponses generally */
+ conoll(""); /* don't have line terminators */
+#endif /* NOSPL */
+ if (czseen) { /* Batch canceled? */
+ if (cancel++ == 0) { /* If we haven't tried this yet */
+ ack1((CHAR *)"Z"); /* Try it once */
+ } else { /* Otherwise */
+ errpkt((CHAR *)"User canceled"); /* quite with Error */
+ RESUME;
+ }
+ } else
+ ack(); /* Acknowledge the EOF packet */
+ BEGIN rfile; /* and await another file */
+ }
+ }
+#else
+ if (reof(filnam, &iattr) < 0) { /* Close the file */
+ errpkt((CHAR *)"Error at end of file");
+ RESUME;
+ } else { /* reof() sets success flag */
+ ack();
+ BEGIN rfile;
+ }
+#endif /* COHERENT */
+}
+ break;
+case 62:
+ { /* ACK for Send-Init */
+ spar(rdatap); /* set parameters from it */
+ cancel = 0;
+ bctu = bctr; /* switch to agreed-upon block check */
+ bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+#ifdef CK_RESEND
+ if ((sendmode == SM_RESEND) && (!atcapu || !rscapu)) { /* RESEND */
+ errpkt((CHAR *) "RESEND capabilities not negotiated");
+ RESUME;
+ } else {
+#endif /* CK_RESEND */
+ what = W_SEND; /* Remember we're sending */
+ lastxfer = W_SEND;
+ x = sfile(xflg); /* Send X or F header packet */
+ cancel = 0; /* Reset cancellation counter */
+ if (x) { /* If the packet was sent OK */
+ if (!xflg && filcnt == 1) /* and it's a real file */
+ crc16 = 0L; /* Clear the file CRC */
+ resetc(); /* reset per-transaction counters */
+ rtimer(); /* reset timers */
+#ifdef GFTIMER
+ rftimer();
+#endif /* GFTIMER */
+ streamon(); /* turn on streaming */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,
+ (server ? "SERVER" : ""),
+ "SEND",
+ filnam
+ );
+#endif /* IKSDB */
+ BEGIN ssfile; /* and switch to receive-file state */
+ } else { /* otherwise send error msg & quit */
+ s = xflg ? "Can't execute command" : (char *)epktmsg;
+ if (!*s) s = "Can't open file";
+ errpkt((CHAR *)s);
+ RESUME;
+ }
+#ifdef CK_RESEND
+ }
+#endif /* CK_RESEND */
+}
+ break;
+case 63:
+ { /* R packet was retransmitted. */
+ xsinit(); /* Resend packet 0 */
+}
+ break;
+case 64:
+ { /* Same deal if G packet comes again */
+ xsinit();
+}
+ break;
+case 65:
+ { /* Same deal if C packet comes again */
+ xsinit();
+}
+ break;
+case 66:
+ { /* ACK for F or X packet */
+ srvptr = srvcmd; /* Point to string buffer */
+ decode(rdatap,putsrv,0); /* Decode data field, if any */
+ putsrv(NUL); /* Terminate with null */
+ ffc = 0L; /* Reset file byte counter */
+ debug(F101,"<ssfile>Y cxseen","",cxseen);
+ if (*srvcmd) { /* If remote name was recorded */
+ if (sendmode != SM_RESEND) {
+ if (fdispla == XYFD_C || fdispla == XYFD_S)
+ xxscreen(SCR_AN,0,0L,(char *)srvcmd);
+ tlog(F110," remote name:",(char *) srvcmd,0L);
+ makestr(&psrfspec,(char *)srvcmd);
+ }
+ }
+ if (cxseen||czseen) { /* Interrupted? */
+ debug(F101,"<ssfile>Y canceling","",0);
+ x = clsif(); /* Close input file */
+ sxeof(1); /* Send EOF(D) */
+ BEGIN sseof; /* and switch to EOF state. */
+ } else if (atcapu) { /* If attributes are to be used */
+ if (sattr(xflg | stdinf, 1) < 0) { /* send them */
+ errpkt((CHAR *)"Can't send attributes"); /* if problem, say so */
+ RESUME; /* and quit */
+ } else BEGIN ssattr; /* if ok, switch to attribute state */
+ } else { /* Attributes not negotiated */
+ if (window(wslotn) < 0) { /* Open window */
+ errpkt((CHAR *)"Can't open window");
+ RESUME;
+ } else if ((x = sdata()) == -2) { /* Send first data packet data */
+ window(1); /* Connection lost, reset window */
+ x = clsif(); /* Close input file */
+ return(success = 0); /* Return failure */
+ } else if (x == -9) { /* User interrupted */
+ errpkt((CHAR *)"User cancelled"); /* Send Error packet */
+ window(1); /* Set window size back to 1... */
+ timint = s_timint; /* Restore timeout */
+ return(success = 0); /* Failed */
+ } else if (x < 0) { /* EOF (empty file) or interrupted */
+ window(1); /* put window size back to 1, */
+ debug(F101,"<ssfile>Y cxseen","",cxseen);
+ x = clsif(); /* If not ok, close input file, */
+ if (x < 0) /* treating failure as interruption */
+ cxseen = 1; /* Send EOF packet */
+ seof(cxseen||czseen);
+ BEGIN sseof; /* and switch to EOF state. */
+ } else { /* First data sent OK */
+ BEGIN ssdata; /* All ok, switch to send-data state */
+ }
+ }
+}
+ break;
+case 67:
+ { /* Got ACK to A packet */
+ ffc = 0L; /* Reset file byte counter */
+ debug(F101,"<ssattr>Y cxseen","",cxseen);
+ if (cxseen||czseen) { /* Interrupted? */
+ debug(F101,"<sattr>Y canceling","",0);
+ x = clsif(); /* Close input file */
+ sxeof(1); /* Send EOF(D) */
+ BEGIN sseof; /* and switch to EOF state. */
+ } else if (rsattr(rdatap) < 0) { /* Was the file refused? */
+ discard = 1; /* Set the discard flag */
+ clsif(); /* Close the file */
+ sxeof(1); /* send EOF with "discard" code */
+ BEGIN sseof; /* switch to send-EOF state */
+ } else if ((x = sattr(xflg | stdinf, 0)) < 0) { /* Send more? */
+ errpkt((CHAR *)"Can't send attributes"); /* Trouble... */
+ RESUME;
+ } else if (x == 0) { /* No more to send so now the data */
+ if (window(wslotn) < 0) { /* Allocate negotiated window slots */
+ errpkt((CHAR *)"Can't open window");
+ RESUME;
+ }
+ if ((x = sdata()) == -2) { /* File accepted, send first data */
+ window(1); /* Connection broken */
+ x = clsif(); /* Close file */
+ return(success = 0); /* Return failure */
+ } else if (x == -9) { /* User interrupted */
+ errpkt((CHAR *)"User cancelled"); /* Send Error packet */
+ window(1); /* Set window size back to 1... */
+ timint = s_timint; /* Restore timeout */
+ return(success = 0); /* Failed */
+ } else if (x < 0) { /* If data was not sent */
+ window(1); /* put window size back to 1, */
+ debug(F101,"<ssattr>Y cxseen","",cxseen);
+ if (clsif() < 0) /* Close input file */
+ cxseen = 1; /* Send EOF packet */
+ seof(cxseen||czseen);
+ BEGIN sseof; /* and switch to EOF state. */
+ } else {
+ BEGIN ssdata; /* All ok, switch to send-data state */
+ }
+ }
+}
+ break;
+case 68:
+ { /* Ctrl-C or connection loss. */
+ window(1); /* Set window size back to 1... */
+ cxseen = 1; /* To indicate interruption */
+ x = clsif(); /* Close file */
+ return(success = 0); /* Failed */
+}
+ break;
+case 69:
+ { /* Got ACK to Data packet */
+ canned(rdatap); /* Check if file transfer cancelled */
+ debug(F111,"<ssdata>Y cxseen",rdatap,cxseen);
+ debug(F111,"<ssdata>Y czseen",rdatap,czseen);
+ if ((x = sdata()) == -2) { /* Try to send next data */
+ window(1); /* Connection lost, reset window */
+ x = clsif(); /* Close file */
+ return(success = 0); /* Failed */
+ } else if (x == -9) { /* User interrupted */
+ errpkt((CHAR *)"User cancelled"); /* Send Error packet */
+ window(1); /* Set window size back to 1... */
+ timint = s_timint; /* Restore original timeout */
+ return(success = 0); /* Failed */
+ } else if (x < 0) { /* EOF - finished sending data */
+ debug(F101,"<ssdata>Y cxseen","",cxseen);
+ window(1); /* Set window size back to 1... */
+ if (clsif() < 0) /* Close input file */
+ cxseen = 1; /* Send EOF packet */
+ debug(F101,"<ssdata>Y CALLING SEOF()","",cxseen);
+ seof(cxseen||czseen);
+ BEGIN sseof; /* and enter send-eof state */
+ }
+ /* NOTE: If x == 0 it means we're draining: see sdata()! */
+}
+ break;
+case 70:
+ { /* Got ACK to EOF */
+ int g, xdiscard;
+ canned(rdatap); /* Check if file transfer cancelled */
+ debug(F111,"<sseof>Y cxseen",rdatap,cxseen);
+ debug(F111,"<sseof>Y czseen",rdatap,czseen);
+ debug(F111,"<sseof>Y discard",rdatap,discard);
+ xdiscard = discard;
+ discard = 0;
+ success = (cxseen == 0 && czseen == 0); /* Transfer status... */
+ debug(F101,"<sseof>Y success","",success);
+ if (success && rejection > 0) /* If rejected, succeed if */
+ if (rejection != '#' && /* reason was date */
+ rejection != 1 && rejection != '?') /* or name; */
+ success = 0; /* fail otherwise. */
+ cxseen = 0; /* This goes back to zero. */
+ if (success) { /* Only if transfer succeeded... */
+ xxscreen(SCR_ST,ST_OK,0L,"");
+ if (!xdiscard) {
+ makestr(&sfspec,psfspec); /* Record filenames for WHERE */
+ makestr(&srfspec,psrfspec);
+ }
+ if (moving) { /* If MOVE'ing */
+ x = zdelet(filnam); /* Try to delete the source file */
+#ifdef TLOG
+ if (tralog) {
+ if (x > -1) {
+ tlog(F110," deleted",filnam,0);
+ } else {
+ tlog(F110," delete failed:",ck_errstr(),0);
+ }
+ }
+#endif /* TLOG */
+ } else if (snd_move) { /* Or move it */
+ int x;
+ x = zrename(filnam,snd_move);
+#ifdef TLOG
+ if (tralog) {
+ if (x > -1) {
+ tlog(F110," moved to ",snd_move,0);
+ } else {
+ tlog(F110," move failed:",ck_errstr(),0);
+ }
+ }
+#endif /* TLOG */
+ } else if (snd_rename) { /* Or rename it */
+ char *s = snd_rename; /* Renaming string */
+#ifndef NOSPL
+ int y; /* Pass it thru the evaluator */
+ extern int cmd_quoting; /* for \v(filename) */
+ if (cmd_quoting) { /* But only if cmd_quoting is on */
+ y = MAXRP;
+ s = (char *)srvcmd;
+ zzstring(snd_rename,&s,&y);
+ s = (char *)srvcmd;
+ }
+#endif /* NOSPL */
+ if (s) if (*s) {
+ int x;
+ x = zrename(filnam,s);
+#ifdef TLOG
+ if (tralog) {
+ if (x > -1) {
+ tlog(F110," renamed to",s,0);
+ } else {
+ tlog(F110," rename failed:",ck_errstr(),0);
+ }
+ }
+#endif /* TLOG */
+#ifdef COMMENT
+ *s = NUL;
+#endif /* COMMENT */
+ }
+ }
+ }
+ if (czseen) { /* Check group interruption flag */
+ g = 0; /* No more files if interrupted */
+ } else { /* Otherwise... */
+#ifdef COMMENT
+ /* This code makes any open error fatal to a file-group transfer. */
+ g = gnfile();
+ debug(F111,"<sseof>Y gnfile",filnam,g);
+ if (g > 0) { /* Any more files to send? */
+ if (sfile(xflg)) /* Yes, try to send next file header */
+ BEGIN ssfile; /* if ok, enter send-file state */
+ else { /* otherwise */
+ s = xflg ? "Can't execute command" : (char *)epktmsg;
+ if (!*s) s = "Can't open file";
+ errpkt((CHAR *)s); /* send error message */
+ RESUME; /* and quit */
+ }
+ } else { /* No next file */
+ tsecs = gtimer(); /* get statistics timers */
+#ifdef GFTIMER
+ fptsecs = gftimer();
+#endif /* GFTIMER */
+ seot(); /* send EOT packet */
+ BEGIN sseot; /* enter send-eot state */
+ }
+#else /* COMMENT */
+ while (1) { /* Keep trying... */
+ g = gnfile(); /* Get next file */
+ debug(F111,"<sseof>Y gnfile",filnam,g);
+ if (g == 0 && gnferror == 0) /* No more, stop trying */
+ break;
+ if (g > 0) { /* Have one */
+ if (sfile(xflg)) { /* Try to open and send F packet */
+ BEGIN ssfile; /* If OK, enter send-file state */
+ break; /* and break out of loop. */
+ }
+ } /* Otherwise keep trying to get one we can send... */
+ }
+ }
+ if (g == 0) {
+ debug(F101,"<sseof>Y no more files","",czseen);
+ tsecs = gtimer(); /* Get statistics timers */
+#ifdef GFTIMER
+ fptsecs = gftimer();
+#endif /* GFTIMER */
+ seot(); /* Send EOT packet */
+ BEGIN sseot; /* Enter send-eot state */
+ }
+#endif /* COMMENT */
+}
+ break;
+case 71:
+ { /* Got ACK to EOT */
+ debug(F101,"sseot justone","",justone);
+ RESUME; /* All done, just quit */
+}
+ break;
+case 72:
+ { /* Got Error packet, in any state */
+ char *s = "";
+ window(1); /* Close window */
+ timint = s_timint; /* Restore original timeout */
+ if (*epktmsg) /* Message from Error packet */
+ s = (char *)epktmsg;
+ if (!*s) { /* If not there then maybe here */
+ s = (char *)rdatap;
+ ckstrncpy((char *)epktmsg,(char *)rdatap,PKTMSGLEN);
+ }
+ if (!*s) /* Hopefully we'll never see this. */
+ s = "Unknown error";
+ success = 0; /* For IF SUCCESS/FAIL. */
+ debug(F101,"ckcpro.w justone at E pkt","",justone);
+
+ success = 0; /* Transfer failed */
+ xferstat = success; /* Remember transfer status */
+ if (!epktsent) {
+ x = quiet; quiet = 1; /* Close files silently, */
+ epktrcvd = 1; /* Prevent messages from clsof() */
+ clsif();
+ clsof(1); /* discarding any output file. */
+ ermsg(s); /* Issue the message (calls screen). */
+ quiet = x; /* Restore quiet state */
+ }
+ tstats(); /* Get stats */
+/*
+ If we are executing commands from a command file or macro, let the command
+ file or macro decide whether to exit, based on SET { TAKE, MACRO } ERROR.
+*/
+ if (
+#ifndef NOICP
+ !xcmdsrc &&
+#endif /* NOICP */
+ backgrd && !server)
+ fatal("Protocol error");
+ xitsta |= (what & W_KERMIT); /* Save this for doexit(). */
+#ifdef CK_TMPDIR
+/* If we were cd'd temporarily to another device or directory ... */
+ if (f_tmpdir) {
+ int x;
+ x = zchdir((char *) savdir); /* ... restore previous directory */
+ f_tmpdir = 0; /* and remember we did it. */
+ debug(F111,"ckcpro.w E tmpdir restored",savdir,x);
+ }
+#endif /* CK_TMPDIR */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"ERROR", (char *)epktmsg, "");
+#endif /* IKSDB */
+ RESUME;
+}
+ break;
+case 73:
+ { success = 0; QUIT; }
+ break;
+case 74:
+ { /* Anything not accounted for above */
+ errpkt((CHAR *)"Unexpected packet type"); /* Give error message */
+ window(1);
+ xitsta |= (what & W_KERMIT); /* Save this for doexit(). */
+ RESUME; /* and quit */
+}
+ break;
+
+ }
+ }
+}
+
+char tbl[] = {
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 15, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 13, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 57, 74, 74, 72, 53, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 54, 74, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 55, 74, 74, 56, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 59, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 58, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 61, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 60, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 65, 74, 72, 74, 64, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 63, 74, 74, 74, 74, 74, 74, 62, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 66, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 67, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 69, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 68, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 70, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 71, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
+ 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
+ 29, 29, 29, 26, 29, 29, 29, 25, 19, 17, 22, 29, 29, 29, 28, 23,
+ 29, 29, 18, 12, 29, 29, 20, 21, 29, 29, 29, 29, 29, 29, 29, 29,
+ 29, 11, 29, 7, 29, 29, 29, 9, 4, 29, 5, 8, 29, 29, 29, 6,
+ 29, 27, 3, 1, 29, 29, 2, 29, 10, 29, 29, 29, 29, 29, 29, 29,
+ -1, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
+ 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,
+ 50, 32, 50, 31, 33, 34, 35, 50, 38, 30, 50, 40, 37, 48, 50, 50,
+ 50, 50, 39, 41, 42, 45, 47, 46, 36, 50, 50, 50, 50, 50, 50, 50,
+ 50, 11, 50, 7, 44, 50, 50, 9, 4, 50, 5, 8, 50, 43, 50, 6,
+ 50, 49, 3, 1, 50, 50, 2, 50, 10, 50, 50, 50, 50, 50, 50, 50,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 17, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 12, 74, 74, 74, 74, 74, 16, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 53, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 12, 74, 74, 74, 74, 54, 52, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 51, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ -1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 14, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74, 74,
+ 0, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 74, 74, 74, 74, 72, 74, 74, 74, 74, 74, 74, 74, 74, 74, 24,
+ 74, 74, 74, 12, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
+ 74, 11, 74, 7, 74, 74, 74, 9, 4, 74, 5, 8, 74, 74, 74, 6,
+ 74, 73, 3, 1, 74, 74, 2, 74, 10, 74, 74, 74, 74, 74, 74,74
+};
+
+
+/*
+ From here down to proto() are routines that were moved out of the state
+ table switcher because the resulting switch() had become too large.
+ To move the contents of a state-table case to a routine:
+ 1. Add a prototype to the list above the state table switcher.
+ 2. Make a routine with an appropriate name, returning int.
+ 3. Move the code into it.
+ 4. Put a call to the new routine in the former spot:
+ rc = name_of_routine();
+ if (rc > -1) return(rc);
+ 5. Add "return(-1);" after every RESUME, SERVE, or BEGIN macro and
+ at the end if the code is open-ended.
+*/
+static int
+rcv_firstdata() {
+ extern int dispos;
+ debug(F101,"rcv_firstdata","",dispos);
+
+ if (discard) { /* if we're discarding the file */
+ ack1((CHAR *)"X"); /* just ack the data like this. */
+ cancel++; /* and count it */
+ BEGIN rdpkt; /* and wait for more data packets. */
+ return(-1);
+ } else { /* Not discarding. */
+ rf_err = "Can't open file";
+ if (xflg) { /* If screen data */
+ if (remfile) { /* redirected to file */
+ if (rempipe) /* or pipe */
+ x = openc(ZOFILE,remdest); /* Pipe: start command */
+ else
+ x = opena(remdest,&iattr); /* File: open with attributes */
+ } else { /* otherwise */
+ x = opent(&iattr); /* "open" the screen */
+ }
+ } else { /* otherwise */
+#ifdef CALIBRATE
+ if (calibrate) { /* If calibration run */
+ x = ckopenx(&iattr); /* open nothing */
+#ifdef STREAMING
+ if (streaming) /* Streaming */
+ fastack(); /* ACK without ACKing. */
+ else
+#endif /* STREAMING */
+ ack(); /* Send real ACK */
+ BEGIN rdpkt; /* Proceed to next state */
+ return(-1);
+ } else
+#endif /* CALIBRATE */
+#ifdef UNIX
+/*
+ In UNIX we can pipe the file data into the mail program, which is to be
+ preferred to writing it out to a temp file and then mailing it afterwards.
+ This depends rather heavily on all UNIXes having a mail command that
+ accepts '-s "subject"' on the command line. MAILCMD (e.g. mail, Mail, mailx)
+ is defined in ckufio.c.
+*/
+ if (dispos == 'M') { /* Mail... */
+ char *s;
+ char * tmp = NULL;
+ int n = 0;
+ extern char *MAILCMD;
+ s = iattr.disp.val + 1;
+ n = (int)strlen(MAILCMD) + /* Mail command */
+ (int)strlen(s) + /* address */
+ (int)strlen(ofilnam) + 32; /* subject */
+ if (tmp = (char *)malloc(n)) {
+ ckmakxmsg(tmp,n,
+ MAILCMD," -s \"",ofilnam,"\" ",s,
+ NULL,NULL,NULL,NULL,NULL,NULL,NULL);
+ debug(F111,"rcv_firsdata mail",tmp,(int)strlen(tmp));
+ x = openc(ZOFILE,(char *)tmp);
+ free(tmp);
+ } else
+ x = 0;
+ } else if (dispos == 'P') { /* Ditto for print */
+ char * tmp = NULL;
+ int n;
+ extern char *PRINTCMD;
+ n = (int)strlen(PRINTCMD) + (int)strlen(iattr.disp.val+1) + 4;
+ if (tmp = (char *)malloc(n)) {
+ sprintf(tmp, /* safe (prechecked) */
+ "%s %s", PRINTCMD, iattr.disp.val + 1);
+ x = openc(ZOFILE,(char *)tmp);
+ free(tmp);
+ } else
+ x = 0;
+ } else
+#endif /* UNIX */
+ x = opena(filnam,&iattr); /* open the file, with attributes */
+ }
+ if (x) { /* If file was opened ok */
+ int rc, qf;
+#ifndef NOSPL
+ qf = query;
+#else
+ qf = 0;
+#endif /* NOSPL */
+
+#ifdef CKTUNING
+ rc = (binary && !parity) ?
+ bdecode(rdatap,putfil):
+ decode(rdatap, qf ? puttrm : putfil, 1);
+#else
+ rc = decode(rdatap, qf ? puttrm : putfil, 1);
+#endif /* CKTUNING */
+ if (rc < 0) {
+ errpkt((CHAR *)"Error writing data");
+ RESUME;
+ return(-1);
+ }
+#ifdef STREAMING
+ if (streaming) /* Streaming was negotiated */
+ fastack(); /* ACK without ACKing. */
+ else
+#endif /* STREAMING */
+ ack(); /* acknowledge it */
+ BEGIN rdpkt; /* and switch to receive-data state */
+ return(-1);
+ } else { /* otherwise */
+ errpkt((CHAR *) rf_err); /* send error packet */
+ RESUME; /* and quit. */
+ return(-1);
+ }
+ }
+}
+
+static int
+rcv_shortreply() {
+#ifdef PKTZEROHACK
+ success = 0;
+ debug(F111,"rcv_shortreply",rdatap,ipktlen);
+ if (ipktack[0] && !strncmp(ipktack,(char *)rdatap,ipktlen)) {
+ /* No it's the ACK to the I packet again */
+ x = scmd(vcmd,(CHAR *)cmarg); /* So send the REMOTE command again */
+ /* Maybe this should be resend() */
+ debug(F110,"IPKTZEROHACK",ipktack,x);
+ if (x < 0) {
+ errpkt((CHAR *)srimsg);
+ RESUME;
+ return(-1);
+ }
+ } else {
+ ipktack[0] = NUL;
+#endif /* PKTZEROHACK */
+ urserver = 1;
+#ifndef NOSERVER
+#ifndef NOSPL
+ if (query) { /* If to query, */
+ qbufp = querybuf; /* initialize query response buffer */
+ qbufn = 0;
+ querybuf[0] = NUL;
+ }
+#endif /* NOSPL */
+ x = 1;
+ if (remfile) { /* Response redirected to file */
+ rf_err = "Can't open file";
+ if (rempipe) /* or pipe */
+ x =
+#ifndef NOPUSH
+ zxcmd(ZOFILE,remdest) /* Pipe: Start command */
+#else
+ 0
+#endif /* NOPUSH */
+ ;
+ else
+ x = opena(remdest,&iattr); /* File: Open with attributes */
+ debug(F111,"rcv_shortreply remfile",remdest,x);
+ } else {
+ x = opent(&iattr); /* "open" the screen */
+ }
+ if (x) { /* If file was opened ok */
+ if (decode(rdatap,
+#ifndef NOSPL
+ (query || !remfile) ? puttrm :
+#else
+ !remfile ? puttrm :
+#endif /* NOSPL */
+ zputfil, 1) < 0) { /* Note: zputfil, not putfil. */
+ errpkt((CHAR *)"Error writing data");
+ RESUME;
+ return(-1);
+ } else {
+ if (rdatap) /* If we had data */
+ if (*rdatap) /* add a line terminator */
+ if (remfile) { /* to file */
+ zsoutl(ZOFILE,"");
+ } else { /* or to screen. */
+#ifndef NOICP
+ if (!query || !xcmdsrc)
+#endif /* NOICP */
+ if (!(quiet && rcdactive))
+ conoll("");
+ }
+ if (bye_active && network) { /* I sent BYE or REMOTE LOGOUT */
+ msleep(500); /* command and got the ACK... */
+ bye_active = 0;
+ ttclos(0);
+ }
+ clsof(0);
+ if (!epktsent && !epktrcvd) /* If no error packet... */
+ success = 1; /* success. */
+ RESUME;
+ return(-1);
+ }
+ } else { /* File not opened OK */
+ errpkt((CHAR *) rf_err); /* send error message */
+ RESUME; /* and quit. */
+ return(-1);
+ }
+#endif /* NOSERVER */
+#ifdef PKTZEROHACK
+ }
+#endif /* PKTZEROHACK */
+ debug(F101,"rcv_shortreply fallthru","",success);
+ return(-1);
+}
+
+
+static int
+srv_query() {
+#ifndef NOSERVER
+#ifndef NOSPL
+ char c;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE QUERY", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE QUERY", (char *)(srvcmd+2), "");
+#endif /* IKSDB */
+ c = *(srvcmd+2); /* Q = Query, S = Set */
+ if (c == 'Q') { /* Query */
+ if (!ENABLED(en_que)) { /* Security */
+ errpkt((CHAR *)"REMOTE QUERY disabled");
+ RESUME;
+ return(-1);
+ } else { /* Query allowed */
+ int n; char *p, *q;
+ qbufp = querybuf; /* Wipe out old stuff */
+ qbufn = 0;
+ querybuf[0] = NUL;
+ p = (char *) srvcmd + 3; /* Pointer for making wrapper */
+ n = strlen((char *)srvcmd); /* Position of end */
+ c = *(srvcmd+4); /* Which type of variable */
+
+ if (*(srvcmd+6) == CMDQ) { /* Starts with command quote? */
+ p = (char *) srvcmd + 6; /* Take it literally */
+ if (*p == CMDQ) p++;
+ } else { /* They played by the rules */
+ if (c == 'K') { /* Kermit variable */
+ int k;
+ k = (int) strlen(p);
+ if (k > 0 && p[k-1] == ')') {
+ p = (char *)(srvcmd + 4);
+ *(srvcmd+4) = CMDQ;
+ *(srvcmd+5) = 'f'; /* Function, so make it \f...() */
+ } else {
+ *(srvcmd+3) = CMDQ; /* Stuff wrapping into buffer */
+ *(srvcmd+4) = 'v'; /* Variable, so make it \v(...) */
+ *(srvcmd+5) = '('; /* around variable name */
+ *(srvcmd+n) = ')';
+ *(srvcmd+n+1) = NUL;
+ }
+ } else {
+ *(srvcmd+3) = CMDQ; /* Stuff wrapping into buffer */
+ *(srvcmd+4) = 'v'; /* Variable, so make it \v(...) */
+ *(srvcmd+5) = '('; /* around variable name */
+ *(srvcmd+n) = ')';
+ *(srvcmd+n+1) = NUL;
+ if (c == 'S') { /* System variable */
+ *(srvcmd+4) = '$'; /* so it's \$(...) */
+ } else if (c == 'G') { /* Non-\ Global variable */
+ *(srvcmd+4) = 'm'; /* so wrap it in \m(...) */
+ }
+ }
+ } /* Now evaluate it */
+ n = QBUFL; /* Max length */
+ q = querybuf; /* Where to put it */
+ if (zzstring(p,&q,&n) < 0) {
+ errpkt((n > 0) ? (CHAR *)"Can't get value"
+ : (CHAR *)"Value too long"
+ );
+ RESUME;
+ return(-1);
+ } else {
+ if (encstr((CHAR *)querybuf) > -1) { /* Encode it */
+ ack1(data); /* If it fits, send it back in ACK */
+ success = 1;
+ RESUME;
+ return(-1);
+ } else if (sndstring(querybuf)) { /* Long form response */
+ BEGIN ssinit;
+ return(-1);
+ } else { /* sndhlp() fails */
+ errpkt((CHAR *)"Can't send value");
+ RESUME;
+ return(-1);
+ }
+ }
+ }
+ } else if (c == 'S') { /* Set (assign) */
+ if (!ENABLED(en_asg)) { /* Security */
+ errpkt((CHAR *)"REMOTE ASSIGN disabled");
+ RESUME;
+ return(-1);
+ } else { /* OK */
+ int n;
+ n = xunchar(*(srvcmd+3)); /* Length of name */
+ n = 3 + n + 1; /* Position of length of value */
+ *(srvcmd+n) = NUL; /* Don't need it */
+ if (addmac((char *)(srvcmd+4),(char *)(srvcmd+n+1)) < 0)
+ errpkt((CHAR *)"REMOTE ASSIGN failed");
+ else {
+ ack();
+ success = 1;
+ }
+ RESUME;
+ return(-1);
+ }
+ } else {
+ errpkt((CHAR *)"Badly formed server command");
+ RESUME;
+ return(-1);
+ }
+#else
+ errpkt((CHAR *)"Variable query/set not available");
+ RESUME;
+ return(-1);
+#endif /* NOSPL */
+#endif /* NOSERVER */
+}
+
+static int
+srv_copy() {
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE COPY", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef ZCOPY
+ if (!ENABLED(en_cpy)) {
+ errpkt((CHAR *)"REMOTE COPY disabled");
+ RESUME;
+ return(-1);
+ } else {
+ char *str1, *str2, f1[256], f2[256];
+ int len1, len2;
+ len1 = xunchar(srvcmd[1]); /* Separate the parameters */
+ len2 = xunchar(srvcmd[2+len1]);
+ strncpy(f1,(char *)(srvcmd+2),len1);
+ f1[len1] = NUL;
+ strncpy(f2,(char *)(srvcmd+3+len1),len2);
+ f2[len2] = NUL;
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE COPY", f1, f2);
+#endif /* IKSDB */
+ if (!ENABLED(en_cwd)) { /* If CWD is disabled */
+ zstrip(f1,&str1); /* and they included a pathname, */
+ zstrip(f2,&str2);
+ if (strcmp(f1,str1) || strcmp(f2,str2)) { /* Refuse. */
+ errpkt((CHAR *)"Access denied");
+ RESUME; /* Remember, this is not a goto! */
+ return(-1);
+ }
+ }
+ if (state == generic) { /* It's OK to go ahead. */
+ if (zcopy(f1,f2)) { /* Try */
+ errpkt((CHAR *)"Can't copy file"); /* give error message */
+ } else {
+ success = 1;
+ ack();
+ }
+ RESUME; /* wait for next server command */
+ return(-1);
+ }
+ }
+ return(-1);
+#else /* no ZCOPY */
+ errpkt((CHAR *)"REMOTE COPY not available"); /* give error message */
+ RESUME; /* wait for next server command */
+ return(-1);
+#endif /* ZCOPY */
+#endif /* NOSERVER */
+}
+
+static int
+srv_rename() {
+#ifndef NOSERVER
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE RENAME", (char *)srvcmd);
+#endif /* CKSYSLOG */
+#ifdef ZRENAME
+ if (!ENABLED(en_ren)) {
+ errpkt((CHAR *)"REMOTE RENAME disabled");
+ RESUME;
+ return(-1);
+ } else { /* RENAME is enabled */
+ char *str1, *str2, f1[256], f2[256];
+ int len1, len2;
+ len1 = xunchar(srvcmd[1]); /* Separate the parameters */
+ len2 = xunchar(srvcmd[2+len1]);
+ strncpy(f1,(char *)(srvcmd+2),len1);
+ f1[len1] = NUL;
+ strncpy(f2,(char *)(srvcmd+3+len1),len2);
+ f2[len2] = NUL;
+ len2 = xunchar(srvcmd[2+len1]);
+ strncpy(f1,(char *)(srvcmd+2),len1);
+ f1[len1] = NUL;
+ strncpy(f2,(char *)(srvcmd+3+len1),len2);
+ f2[len2] = NUL;
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE RENAME", f1, f2);
+#endif /* IKSDB */
+ if (!ENABLED(en_cwd)) { /* If CWD is disabled */
+ zstrip(f1,&str1); /* and they included a pathname, */
+ zstrip(f2,&str2);
+ if ( strcmp(f1,str1) || strcmp(f2,str2) ) { /* refuse. */
+ errpkt((CHAR *)"Access denied");
+ RESUME; /* Remember, this is not a goto! */
+ return(-1);
+ }
+ }
+ if (state == generic) { /* It's OK to go ahead. */
+ if (zrename(f1,f2)) { /* Try */
+ errpkt((CHAR *)"Can't rename file"); /* Give error msg */
+ } else {
+ success = 1;
+ ack();
+ }
+ RESUME; /* Wait for next server command */
+ return(-1);
+ }
+ }
+ return(-1);
+#else /* no ZRENAME */
+ /* Give error message */
+ errpkt((CHAR *)"REMOTE RENAME not available");
+ RESUME; /* Wait for next server command */
+ return(-1);
+#endif /* ZRENAME */
+#endif /* NOSERVER */
+}
+
+static int
+srv_login() {
+#ifndef NOSERVER
+ char f1[LOGINLEN+1], f2[LOGINLEN+1], f3[LOGINLEN+1];
+ CHAR *p;
+ int len, i;
+
+ debug(F101,"REMOTE LOGIN x_login","",x_login);
+ debug(F101,"REMOTE LOGIN x_logged","",x_logged);
+
+ f1[0] = NUL; f2[0] = NUL; f3[0] = NUL;
+ len = 0;
+ if (srvcmd[1]) /* First length field */
+ len = xunchar(srvcmd[1]); /* Separate the parameters */
+
+ if (x_login) { /* Login required */
+ if (x_logged) { /* And already logged in */
+ if (len > 0) { /* Logging in again */
+ errpkt((CHAR *)"Already logged in.");
+ } else { /* Logging out */
+ debug(F101,"REMOTE LOGOUT","",x_logged);
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE LOGOUT", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"REMOTE LOGOUT", "", "");
+#endif /* IKSDB */
+ tlog(F110,"Logged out",x_user,0);
+ ack1((CHAR *)"Logged out");
+ success = 1;
+ msleep(500);
+#ifdef CK_LOGIN
+ x_logged = 0;
+#ifdef IKSD
+ if (inserver)
+ ckxlogout();
+#endif /* IKSD */
+#endif /* CK_LOGIN */
+ }
+ } else { /* Not logged in yet */
+ debug(F101,"REMOTE LOGIN len","",len);
+ if (len > 0) { /* Have username */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "REMOTE LOGIN", NULL);
+#endif /* CKSYSLOG */
+ if (len > LOGINLEN) {
+ errpkt((CHAR *)"Username too long");
+ }
+ p = srvcmd + 2; /* Point to it */
+ for (i = 0; i < len; i++) /* Copy it */
+ f1[i] = p[i];
+ f1[len] = NUL; /* Terminate it */
+ p += len; /* Point to next length field */
+ if (*p) { /* If we have one */
+ len = xunchar(*p++); /* decode it */
+ if (len > 0 && len <= LOGINLEN) {
+ for (i = 0; i < len; i++) /* Same deal for password */
+ f2[i] = p[i];
+ f2[len] = NUL;
+ p += len; /* And account */
+ if (*p) {
+ len = xunchar(*p++);
+ if (len > 0 && len <= LOGINLEN) {
+ for (i = 0; i < len; i++)
+ f3[i] = p[i]; /* Set but never used */
+ f3[len] = NUL; /* (because account not used) */
+ }
+ }
+ }
+ }
+ debug(F101,"REMOTE LOGIN 1","",x_logged);
+#ifdef IKSD
+#ifdef CK_LOGIN
+ if (inserver) { /* Log in to system for real */
+ x_logged = ckxlogin((CHAR *)f1,(CHAR *)f2,NULL,0);
+ debug(F101,"REMOTE LOGIN 2","",x_logged);
+ if (x_logged) { /* Count attempts */
+ logtries = 0;
+ justone = 1;
+ } else {
+ logtries++;
+ sleep(logtries);
+ }
+ } else
+#endif /* CK_LOGIN */
+#endif /* IKSD */
+ if (x_user && x_passwd) { /* User and password must match */
+ if (!strcmp(x_user,f1)) /* SET SERVER LOGIN */
+ if (!strcmp(x_passwd,f2))
+ x_logged = 1;
+ debug(F101,"REMOTE LOGIN 3","",x_logged);
+ } else if (x_user) { /* Only username given, no password */
+ if (!strcmp(x_user,f1)) /* so only username must match */
+ x_logged = 1;
+ debug(F101,"REMOTE LOGIN 4","",x_logged);
+ }
+#ifdef CK_LOGIN
+ else {
+ x_logged = ckxlogin((CHAR *)f1,(CHAR *)f2,NULL,0);
+ debug(F101,"REMOTE LOGIN 5","",x_logged);
+ }
+#endif /* CK_LOGIN */
+ if (x_logged) { /* Logged in? */
+ tlog(F110,"Logged in", x_user, 0);
+ if (isguest)
+ ack1((CHAR *)"Logged in as guest - restrictions apply");
+ else
+ ack1((CHAR *)"Logged in");
+ success = 1;
+ } else {
+ tlog(F110,"Login failed", f1, 0);
+ errpkt((CHAR *)"Access denied.");
+#ifdef IKSD
+#ifdef CK_LOGIN
+ if (inserver && logtries > 2)
+ ckxlogout();
+#endif /* CK_LOGIN */
+#endif /* IKSD */
+ }
+ } else { /* LOGOUT */
+ errpkt((CHAR *)"Logout ignored");
+ }
+ }
+ } else { /* Login not required */
+ if (len > 0)
+ errpkt((CHAR *)"Login ignored.");
+ else
+ errpkt((CHAR *)"Logout ignored.");
+ }
+#endif /* NOSERVER */
+ RESUME;
+ return(-1);
+}
+
+static int
+srv_timeout() {
+ /* K95 does this its own way */
+ if (idletmo) {
+#ifdef IKSD
+ if (inserver) {
+ printf("\r\nIKSD IDLE TIMEOUT: %d sec\r\n", srvidl);
+ doexit(GOOD_EXIT,xitsta);
+ }
+#endif /* IKSD */
+ idletmo = 0;
+ printf("\r\nSERVER IDLE TIMEOUT: %d sec\r\n", srvidl);
+ xitsta |= (what & W_KERMIT);
+ QUIT;
+ }
+#ifndef NOSERVER
+ else if (fatalio) { /* Connection lost */
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "Connection lost", NULL);
+#endif /* CKSYSLOG */
+#ifdef IKSDB
+ if (ikdbopen) slotstate(what,"SERVER DISCONNECT",(char *)srvcmd, "");
+#endif /* IKSDB */
+ xitsta |= what;
+ QUIT;
+ } else if (interrupted) { /* Interrupted by hand */
+ if (!ENABLED(en_fin)) {
+ errpkt((CHAR *)"QUIT disabled");
+ RESUME;
+ return(-1);
+ } else {
+ if (what == W_SEND || what == W_RECV || what == W_REMO) {
+ success = 0;
+#ifdef CKSYSLOG
+ if (ckxsyslog >= SYSLG_PR && ckxlogging)
+ cksyslog(SYSLG_PR, 1, "server", "Interrupted", NULL);
+#endif /* CKSYSLOG */
+ } else if (what == W_NOTHING && filcnt == 0) {
+ success = 1;
+ } /* Otherwise leave success alone */
+ xitsta |= (what & W_KERMIT);
+ QUIT;
+ }
+ } else { /* Shouldn't happen */
+ debug(F100,"SERVER (top) GOT UNEXPECTED 'q'","",0);
+ QUIT;
+ }
+#endif /* NOSERVER */
+}
+
+static int
+rcv_s_pkt() {
+#ifndef NOSERVER
+ if (state == rgen)
+ urserver = 1;
+ if (/* state == serve && */ x_login && !x_logged) {
+ errpkt((CHAR *)"Login required");
+ SERVE;
+ } else
+#endif /* NOSERVER */
+ if (state == serve && !ENABLED(en_sen)) { /* Not in server mode */
+ errpkt((CHAR *)"SEND disabled"); /* when SEND is disabled. */
+ RESUME;
+ return(-1);
+ } else { /* OK to go ahead. */
+#ifdef CK_TMPDIR
+ if (dldir && !f_tmpdir) { /* If they have a download directory */
+ debug(F110,"receive download dir",dldir,0);
+ if (s = zgtdir()) { /* Get current directory */
+ debug(F110,"receive current dir",s,0);
+ if (zchdir(dldir)) { /* Change to download directory */
+ debug(F100,"receive zchdir ok","",0);
+ ckstrncpy(savdir,s,TMPDIRLEN);
+ f_tmpdir = 1; /* Remember that we did this */
+ } else
+ debug(F100,"receive zchdir failed","",0);
+ }
+ }
+#endif /* CK_TMPDIR */
+ nakstate = 1; /* Can send NAKs from here. */
+ rinit(rdatap); /* Set parameters */
+ bctu = bctr; /* Switch to agreed-upon block check */
+ bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+ what = W_RECV; /* Remember we're receiving */
+ lastxfer = W_RECV;
+ resetc(); /* Reset counters */
+ rtimer(); /* Reset timer */
+#ifdef GFTIMER
+ rftimer();
+#endif /* GFTIMER */
+ streamon();
+ BEGIN rfile; /* Go into receive-file state */
+ }
+ return(-1);
+}
+
+
+/* END OF ROUTINES MOVED OUT OF STATE MACHINE */
+
+
+/* P R O T O -- Protocol entry function */
+
+static int is_tn = 0; /* It's a Telnet connection */
+
+#ifdef CK_SPEED
+int f_ctlp = 0; /* Control-character prefix table */
+#ifdef COMMENT
+short s_ctlp[256];
+#endif /* COMMENT */
+#endif /* CK_SPEED */
+
+/*
+ This is simply a wrapper for the real protocol function just below,
+ that saves any items that might be changed automatically by protocol
+ negotiations and then restores them upon exit from protocol mode.
+*/
+VOID
+proto() {
+ extern int b_save, f_save, c_save, ss_save, slostart, reliable, urclear;
+#ifndef NOCSETS
+ extern int fcharset, fcs_save, tcharset, tcs_save;
+#endif /* NOCSETS */
+
+#ifdef PIPESEND
+ extern int pipesend;
+#endif /* PIPESEND */
+#ifndef NOLOCAL
+#ifdef OS2
+ extern int cursorena[], cursor_save, term_io;
+ extern BYTE vmode;
+ extern int display_demo;
+ int term_io_save;
+#endif /* OS2 */
+#endif /* NOLOCAL */
+#ifdef TNCODE
+ int _u_bin=0, _me_bin = 0;
+#ifdef IKS_OPTION
+ int /* _u_start=0, */ _me_start = 0;
+#endif /* IKS_OPTION */
+#endif /* TNCODE */
+#ifdef PATTERNS
+ int pa_save;
+ int i;
+#endif /* PATTERNS */
+ int scan_save;
+
+#ifdef PATTERNS
+ pa_save = patterns;
+#endif /* PATTERNS */
+ scan_save = filepeek;
+
+ myjob = sstate;
+
+#ifdef CK_LOGIN
+ if (isguest) { /* If user is anonymous */
+ en_pri = 0; /* disable printing */
+ en_mai = 0; /* and disable email */
+ en_del = 0; /* and file deletion */
+ }
+#endif /* CK_LOGIN */
+
+#ifndef NOLOCAL
+#ifdef OS2
+ cursor_save = cursorena[vmode];
+ cursorena[vmode] = 0;
+ term_io_save = term_io;
+ term_io = 0;
+#endif /* OS2 */
+#endif /* NOLOCAL */
+ b_save = binary; /* SET FILE TYPE */
+ f_save = fncnv; /* SET FILE NAMES */
+ c_save = bctr;
+ p_save = fnspath;
+ r_save = recursive;
+ s_timint = timint;
+ ss_save = slostart;
+#ifndef NOCSETS
+ fcs_save = fcharset;
+ tcs_save = tcharset;
+#endif /* NOCSETS */
+
+#ifdef COMMENT
+/* Don't do this because then user can never find out what happened. */
+#ifdef CK_SPEED
+ for (i = 0; i < 256; i++)
+ s_ctlp[i] = ctlp[i];
+ f_ctlp = 1;
+#endif /* CK_SPEED */
+#endif /* COMMENT */
+ if (reliable == SET_ON)
+ slostart = 0;
+ is_tn = (!local && sstelnet)
+#ifdef TNCODE
+ || (local && network && ttnproto == NP_TELNET)
+#endif /* TNCODE */
+ ;
+#ifdef TNCODE
+ if (is_tn) {
+ if (tn_b_xfer && !(sstelnet || inserver)) {
+ /* Save the current state of Telnet Binary */
+ _u_bin = TELOPT_U(TELOPT_BINARY);
+ _me_bin = TELOPT_ME(TELOPT_BINARY);
+
+ /* If either direction is not Binary attempt to negotiate it */
+ if (!_u_bin && TELOPT_U_MODE(TELOPT_BINARY) != TN_NG_RF) {
+ tn_sopt(DO,TELOPT_BINARY);
+ TELOPT_UNANSWERED_DO(TELOPT_BINARY) = 1;
+ }
+ if (!_me_bin && TELOPT_ME_MODE(TELOPT_BINARY) != TN_NG_RF) {
+ tn_sopt(WILL,TELOPT_BINARY);
+ TELOPT_UNANSWERED_WILL(TELOPT_BINARY) = 1;
+ }
+ if (!(_me_bin && _u_bin))
+ tn_wait("proto set binary mode");
+ }
+#ifdef IKS_OPTION
+#ifdef CK_XYZ
+ if (protocol != PROTO_K) { /* Non-Kermit protocol selected */
+ if (TELOPT_U(TELOPT_KERMIT) &&
+ TELOPT_SB(TELOPT_KERMIT).kermit.u_start) {
+ iks_wait(KERMIT_REQ_STOP,0); /* Stop the other Server */
+ /* _u_start = 1; */
+ }
+ if (TELOPT_ME(TELOPT_KERMIT) &&
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start) {
+ tn_siks(KERMIT_STOP); /* I'm not servering */
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start = 0;
+ _me_start = 1;
+ }
+ } else
+#endif /* CK_XYZ */
+ if (sstate == 'x' || sstate == 'v') { /* Responding to a request */
+ if (!inserver && TELOPT_U(TELOPT_KERMIT) &&
+ TELOPT_SB(TELOPT_KERMIT).kermit.u_start) {
+ iks_wait(KERMIT_REQ_STOP,0); /* Stop the other Server */
+ /* _u_start = 1; */
+ }
+ if (TELOPT_ME(TELOPT_KERMIT) &&
+ !TELOPT_SB(TELOPT_KERMIT).kermit.me_start) {
+ tn_siks(KERMIT_START); /* Send Kermit-Server Start */
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start = 1;
+ }
+ } else { /* Initiating a request */
+ if (TELOPT_ME(TELOPT_KERMIT) &&
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start) {
+ tn_siks(KERMIT_STOP); /* I'm not servering */
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start = 0;
+ _me_start = 1;
+ }
+ if (TELOPT_U(TELOPT_KERMIT) &&
+ !TELOPT_SB(TELOPT_KERMIT).kermit.u_start) {
+ /* Send Req-Server-Start */
+ if (!iks_wait(KERMIT_REQ_START,0)) {
+ if (sstate != 's') {
+ success = 0; /* Other Kermit refused to serve */
+ if (local)
+ printf("A Kermit Server is not available\r\n");
+ debug(F110,"proto()",
+ "A Kermit Server is not available",0);
+ tlog(F110,"IKS client/server failure",
+ "A Kermit Server is not available",0);
+ goto xxprotox;
+ }
+ }
+ }
+ }
+#endif /* IKS_OPTION */
+#ifdef CK_ENCRYPTION
+ if (tn_no_encrypt_xfer && !(sstelnet || inserver)) {
+ ck_tn_enc_stop();
+ }
+#endif /* CK_ENCRYPTION */
+ }
+#endif /* TNCODE */
+
+ if (!xfrint) connoi();
+ xxproto(); /* Call the real protocol function */
+
+#ifdef IKS_OPTION
+ xxprotox:
+#endif /* IKS_OPTION */
+ xferstat = success; /* Remember transfer status */
+ kactive = 0;
+
+#ifdef TNCODE
+#ifdef CK_ENCRYPTION
+ if (tn_no_encrypt_xfer && !(sstelnet || inserver)) {
+ ck_tn_enc_start();
+ }
+#endif /* CK_ENCRYPTION */
+#ifdef IKS_OPTION
+ if (TELOPT_ME(TELOPT_KERMIT) &&
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start && !_me_start) {
+ tn_siks(KERMIT_STOP); /* Server is stopped */
+ TELOPT_SB(TELOPT_KERMIT).kermit.me_start = 0;
+ }
+#endif /* IKS_OPTION */
+ if (is_tn && tn_b_xfer && !(sstelnet || inserver)) {
+ /* if we negotiated Binary mode try to reset it */
+ if (!_u_bin) {
+ /* Check to see if the state changed during the transfer */
+ if (TELOPT_U(TELOPT_BINARY)) {
+ tn_sopt(DONT,TELOPT_BINARY);
+ TELOPT_UNANSWERED_DONT(TELOPT_BINARY) = 1;
+ } else
+ _u_bin = 1; /* So we don't call tn_wait() */
+ }
+ if (!_me_bin) {
+ /* Check to see if the state changed during the transfer */
+ if (TELOPT_ME(TELOPT_BINARY)) {
+ tn_sopt(WONT,TELOPT_BINARY);
+ TELOPT_UNANSWERED_WONT(TELOPT_BINARY) = 1;
+ } else
+ _me_bin = 1; /* So we don't call tn_wait() */
+ }
+ if (!(_me_bin && _u_bin))
+ tn_wait("proto reset binary mode");
+ }
+#endif /* TNCODE */
+
+#ifdef PATTERNS
+ patterns = pa_save;
+#endif /* PATTERNS */
+ filepeek = scan_save;
+
+#ifdef STREAMING
+ streaming = 0;
+ /* streamok = 0; */
+#endif /* STREAMING */
+#ifdef COMMENT
+#ifdef CK_SPEED
+ for (i = 0; i < 256; i++)
+ ctlp[i] = s_ctlp[i];
+ f_ctlp = 0;
+#endif /* CK_SPEED */
+#endif /* COMMENT */
+ urclear = 0;
+ if (!success) {
+ xitsta |= (what & W_KERMIT);
+ tlog(F110," failed:",(char *)epktmsg,0);
+ }
+ debug(F111,"proto xferstat",epktmsg,xferstat);
+ slostart = ss_save;
+ if (s_timint > -1) { /* Because of REMOTE SET */
+ timint = s_timint;
+ s_timint = -1;
+ }
+ recursive = r_save;
+ fnspath = p_save;
+ if (c_save > -1) { /* Because of REMOTE SET */
+ bctr = c_save;
+ c_save = -1;
+ }
+ fncnv = f_save;
+ binary = b_save;
+#ifdef PIPESEND
+ pipesend = 0; /* Next time might not be pipesend */
+#endif /* PIPESEND */
+#ifndef NOLOCAL
+#ifdef OS2
+ cursorena[vmode] = cursor_save;
+ term_io = term_io_save;
+ display_demo = 1;
+#endif /* OS2 */
+#endif /* NOLOCAL */
+}
+
+static VOID
+xxproto() {
+ int x;
+ long lx;
+#ifdef CK_XYZ
+#ifdef XYZ_INTERNAL
+_PROTOTYP( int pxyz, (int) );
+#endif /* XYZ_INTERNAL */
+#endif /* CK_XYZ */
+
+ char xss[2]; /* String representation of sstate */
+ xss[0] = sstate;
+ xss[1] = NUL;
+ s_timint = timint;
+
+ debug(F101,"xxproto entry justone","",justone);
+ success = 0;
+
+ retrieve = 0; /* Reset these ... */
+ reget = 0;
+ opkt = 0;
+
+ if (local && ttchk() < 0) { /* Giving BYE or FIN */
+ if (bye_active) { /* but there is no connection */
+ ttclos(0);
+ success = 1;
+ return;
+ }
+ /* Ditto for any REMOTE command */
+ if (sstate == 'g' && cmarg ) {
+ if (*cmarg == 'L' || *cmarg == 'F' || *cmarg == 'X')
+ success = 1;
+ else
+ printf("?No connection\r\n");
+ return;
+ }
+ }
+
+/* Set up the communication line for file transfer. */
+/* NOTE: All of the xxscreen() calls prior to the wart() invocation */
+/* could just as easily be printf's or, for that matter, hints. */
+
+ if (local && (speed < 0L) && (network == 0)) {
+ xxscreen(SCR_EM,0,0L,"Sorry, you must 'set speed' first");
+ return;
+ }
+ x = -1;
+ if (ttopen(ttname,&x,mdmtyp,cdtimo) < 0) {
+ debug(F111,"failed: proto ttopen local",ttname,local);
+ xxscreen(SCR_EM,0,0L,"Can't open line");
+ return;
+ }
+ if (x > -1) local = x;
+ debug(F111,"proto ttopen local",ttname,local);
+
+ lx = (local && !network) ? speed : -1;
+#ifdef NETCONN
+#ifdef CK_SPEED
+ if (is_tn) {
+ ctlp[(unsigned)255] = ctlp[CR] = 1;
+ if (parity == 'e' || parity == 'm') ctlp[127] = 1;
+ if (flow == FLO_XONX) { /* Also watch out for Xon/Xoff */
+ ctlp[17] = ctlp[19] = 1;
+ ctlp[17+128] = ctlp[19+128] = 1;
+ }
+ }
+#endif /* CK_SPEED */
+#endif /* NETCONN */
+ if (ttpkt(lx,flow,parity) < 0) { /* Put line in packet mode, */
+ xxscreen(SCR_EM,0,0L,"Can't condition line");
+ return;
+ }
+ if (local && !network && carrier != CAR_OFF) {
+ int x; /* Serial connection */
+ x = ttgmdm(); /* with carrier checking */
+ if (x > -1) {
+ if (!(x & BM_DCD)) {
+ debug(F101,"proto ttgmdm","",0);
+ xxscreen(SCR_EM,0,0L,"Carrier required but not detected");
+ return;
+ }
+ }
+ }
+ /* Send remote side's "receive" or "server" startup string, if any */
+ if (local && ckindex((char *)xss,"srgcjhk",0,0,1)) {
+ char *s = NULL;
+ if (
+#ifdef IKS_OPTION
+ /* Don't send auto-blah string if we know other side is serving */
+ !TELOPT_U(TELOPT_KERMIT) ||
+ !TELOPT_SB(TELOPT_KERMIT).kermit.u_start
+#else
+ 1
+#endif /* IKS_OPTION */
+ ) {
+ if (sstate == 's') { /* Sending file(s) */
+ s = binary ? ptab[protocol].h_b_init : ptab[protocol].h_t_init;
+ } else if (protocol == PROTO_K) { /* Command for server */
+ s = ptab[protocol].h_x_init;
+ }
+ }
+#ifdef CK_SPEED
+#ifndef UNPREFIXZERO
+ if (protocol == PROTO_K) /* Because of C-strings... */
+ ctlp[0] = 1;
+#endif /* UNPREFIXZERO */
+#endif /* CK_SPEED */
+ if (s) if (*s) { /* If we have a command to send... */
+ char tmpbuf[356];
+ int tmpbufsiz = 356;
+ int stuff = -1, stuff2 = -1, len = 0;
+ extern int tnlm;
+ if (sstate == 's') { /* Sending file(s) */
+#ifdef CK_XYZ
+ if (protocol == PROTO_X) {
+ char * s2;
+ s2 = cmarg2[0] ? cmarg2 : cmarg;
+ if ((int)strlen(s) + (int)strlen(s2) + 4 < 356)
+ sprintf(tmpbuf, s, s2);
+ else
+ tmpbuf[0] = NUL;
+ } else {
+#endif /* CK_XYZ */
+ ckmakmsg(tmpbuf, 356, s, NULL, NULL, NULL);
+#ifdef CK_XYZ
+ }
+#endif /* CK_XYZ */
+ } else { /* Command for server */
+ ckstrncpy(tmpbuf,s,356);
+ }
+ ckstrncat(tmpbuf, "\015",sizeof(tmpbuf));
+ if (tnlm) /* TERMINAL NEWLINE ON */
+ stuff = LF; /* Stuff LF */
+#ifdef TNCODE
+ /* TELNET NEWLINE MODE */
+ if (is_tn) {
+ switch (TELOPT_ME(TELOPT_BINARY) ? tn_b_nlm : tn_nlm) {
+ case TNL_CR:
+ break;
+ case TNL_CRNUL:
+ break;
+ case TNL_CRLF:
+ stuff2 = stuff;
+ stuff = LF;
+ break;
+ }
+ }
+#endif /* TNCODE */
+
+#ifdef NETCONN
+#ifdef TCPSOCKET
+#ifdef RLOGCODE
+ if (network && ttnproto == NP_RLOGIN) {
+ switch (tn_b_nlm) { /* Always BINARY */
+ case TNL_CR:
+ break;
+ case TNL_CRNUL:
+ stuff2 = stuff;
+ stuff = NUL;
+ break;
+ case TNL_CRLF:
+ stuff2 = stuff;
+ stuff = LF;
+ break;
+ }
+ }
+#endif /* RLOGCODE */
+#endif /* TCPSOCKET */
+#endif /* NETCONN */
+
+ len = strlen(tmpbuf);
+ if (stuff >= 0 && len < tmpbufsiz - 1) {
+ tmpbuf[len++] = stuff;
+ if (stuff2 >= 0 && len < tmpbufsiz - 1)
+ tmpbuf[len++] = stuff2;
+ tmpbuf[len] = NUL;
+ }
+ ttol((CHAR *)tmpbuf,len);
+ if (protocol == PROTO_K) /* Give remote Kermit time to start */
+ msleep(400);
+ }
+ }
+
+#ifdef CK_XYZ
+ if (protocol != PROTO_K) { /* Non-Kermit protocol selected */
+ char tmpbuf[356];
+ int tmpbufsiz = 356;
+ char * s = "";
+
+#ifdef CK_TMPDIR
+ if (sstate == 'v') { /* If receiving and... */
+ if (dldir && !f_tmpdir) { /* if they have a download directory */
+ if (s = zgtdir()) { /* Get current directory */
+ if (zchdir(dldir)) { /* Change to download directory */
+ ckstrncpy(savdir,s,TMPDIRLEN);
+ f_tmpdir = 1; /* Remember that we did this */
+ }
+ }
+ }
+ }
+#endif /* CK_TMPDIR */
+
+#ifdef XYZ_INTERNAL /* Internal */
+ success = !pxyz(sstate);
+#else
+#ifdef CK_REDIR /* External */
+ switch (sstate) {
+ case 's': /* 'Tis better to SEND... */
+ s = binary ? ptab[protocol].p_b_scmd : ptab[protocol].p_t_scmd;
+ break;
+ case 'v': /* ... than RECEIVE */
+ s = binary ? ptab[protocol].p_b_rcmd : ptab[protocol].p_t_rcmd;
+ break;
+ }
+ if (!s) s = "";
+ if (*s) {
+ if (sstate == 's') { /* Sending */
+ extern int xfermode;
+ int k = 0, x = 0, b = binary;
+ /*
+ If just one file we can scan it to set the xfer mode.
+ Otherwise it's up to the external protocol program.
+ */
+ if (patterns && xfermode == XMODE_A && !iswild(fspec)) {
+ extern int nscanfile;
+ k = scanfile(fspec,&x,nscanfile);
+ if (k > -1) {
+ b = (k == FT_BIN) ? XYFT_B : XYFT_T;
+ s = b ?
+ ptab[protocol].p_b_scmd :
+ ptab[protocol].p_t_scmd;
+ }
+ }
+ if ((int)strlen(s) + (int)strlen(fspec) < tmpbufsiz) {
+ sprintf(tmpbuf,s,fspec); /* safe (prechecked) */
+ tlog(F110,"Sending",fspec,0L);
+ }
+ } else { /* Receiving */
+ if ((int)strlen(s) + (int)strlen(cmarg2) < tmpbufsiz) {
+ sprintf(tmpbuf,s,cmarg2); /* safe (prechecked) */
+ tlog(F110,"Receiving",cmarg2,0L);
+ }
+ }
+ tlog(F110," via external protocol:",tmpbuf,0);
+ debug(F110,"ckcpro ttruncmd",tmpbuf,0);
+ success = ttruncmd(tmpbuf);
+ tlog(F110," status:",success ? "OK" : "FAILED", 0);
+ } else {
+ printf("?Sorry, no external protocol defined for %s\r\n",
+ ptab[protocol].p_name
+ );
+ }
+#else
+ printf(
+"Sorry, only Kermit protocol is supported in this version of Kermit\n"
+ );
+#endif /* CK_REDIR */
+#endif /* XYZ_INTERNAL */
+ return;
+ }
+#endif /* CK_XYZ */
+
+#ifdef NTSIGX
+ conraw();
+ connoi();
+#else
+ if (!local)
+ connoi(); /* No console interrupts if remote */
+#endif /* NTSIG */
+
+ kactive = 1;
+ if (sstate == 'x') { /* If entering server mode, */
+ extern int howcalled;
+ server = 1; /* set flag, */
+ debug(F101,"server backgrd","",backgrd);
+ debug(F101,"server quiet","",quiet);
+ debug(F100,"SHOULD NOT SEE THIS IF IN BACKGROUND!","",0);
+ if (howcalled == I_AM_SSHSUB) { /* and issue appropriate message. */
+ ttol((CHAR *)"KERMIT READY TO SERVE...\015\012",26);
+ } else if (!local) {
+ if (!quiet && !backgrd
+#ifdef IKS_OPTION
+ && !TELOPT_ME(TELOPT_KERMIT) /* User was told by negotiation */
+#endif /* IKS_OPTION */
+ ) {
+ conoll(srvtxt);
+ conoll("KERMIT READY TO SERVE...");
+ }
+ } else {
+ conol("Entering server mode on ");
+ conoll(ttname);
+ conoll("Type Ctrl-C to quit.");
+ if (srvdis) intmsg(-1L);
+#ifdef TCPSOCKET
+#ifndef NOLISTEN
+ if (network && tcpsrfd > 0)
+ ttol((CHAR *)"KERMIT READY TO SERVE...\015\012",26);
+#endif /* NOLISTEN */
+#endif /* TCPSOCKET */
+ }
+ } else
+ server = 0;
+#ifdef VMS
+ if (!quiet && !backgrd) /* So message doesn't overwrite prompt */
+ conoll("");
+ if (local) conres(); /* So Ctrl-C will work */
+#endif /* VMS */
+/*
+ If in remote mode, not shushed, not in background, and at top command level,
+ issue a helpful message telling what to do...
+*/
+ if (!local && !quiet && !backgrd) {
+ if (sstate == 'v') {
+ conoll("Return to your local Kermit and give a SEND command.");
+ conoll("");
+ conoll("KERMIT READY TO RECEIVE...");
+ } else if (sstate == 's') {
+ conoll("Return to your local Kermit and give a RECEIVE command.");
+ conoll("");
+ conoll("KERMIT READY TO SEND...");
+ } else if ( sstate == 'g' || sstate == 'r' || sstate == 'h' ||
+ sstate == 'j' || sstate == 'c' ) {
+ conoll("Return to your local Kermit and give a SERVER command.");
+ conoll("");
+ conoll((sstate == 'r' || sstate == 'j' || sstate == 'h') ?
+ "KERMIT READY TO GET..." :
+ "KERMIT READY TO SEND SERVER COMMAND...");
+ }
+ }
+#ifdef COMMENT
+ if (!local) sleep(1);
+#endif /* COMMENT */
+/*
+ The 'wart()' function is generated by the wart program. It gets a
+ character from the input() routine and then based on that character and
+ the current state, selects the appropriate action, according to the state
+ table above, which is transformed by the wart program into a big case
+ statement. The function is active for one transaction.
+*/
+ rtimer(); /* Reset elapsed-time timer */
+#ifdef GFTIMER
+ rftimer();
+#endif /* GFTIMER */
+ resetc(); /* & other per-transaction counters. */
+
+ debug(F101,"proto calling wart, justone","",justone);
+
+ wart(); /* Enter the state table switcher. */
+/*
+ Note: the following is necessary in case we have just done a remote-mode
+ file transfer, in which case the controlling terminal modes have been
+ changed by ttpkt(). In particular, special characters like Ctrl-C and
+ Ctrl-\ might have been turned off (see ttpkt). So this call to ttres() is
+ essential. IMPORTANT: restore interrupt handlers first, otherwise any
+ terminal interrupts that occur before this is done in the normal place
+ later will cause a crash.
+*/
+#ifdef OS2
+ ttres(); /* Reset the communication device */
+#else
+ if (!local) {
+ setint(); /* Arm interrupt handlers FIRST */
+ msleep(500);
+ ttres(); /* Then restore terminal. */
+ }
+#endif /* OS2 */
+ xxscreen(SCR_TC,0,0L,""); /* Transaction complete */
+ x = quiet;
+ quiet=1;
+ clsif(); /* Failsafe in case we missed */
+ clsof(1); /* a case in the state machine. */
+ quiet = x;
+
+ if (server) { /* Back from packet protocol. */
+ if (!quiet && !backgrd
+#ifdef IKSD
+ && !inserver
+#endif /* IKSD */
+ ) { /* Give appropriate message */
+ conoll("");
+ conoll("C-Kermit server done");
+ }
+ server = 0; /* Not a server any more */
+ }
+}
+
+/* S G E T I N I T -- Handle incoming GET-Class packets */
+
+/*
+ Returns:
+ -1: On error
+ 0: GET packet processed OK - ready to Send.
+ 1: Extended GET processed OK - wait for another.
+*/
+static int
+sgetinit(reget,xget) int reget, xget; { /* Server end of GET command */
+ char * fs = NULL; /* Pointer to filespec */
+ int i, n, done = 0;
+#ifdef PIPESEND
+ extern int usepipes, pipesend;
+#endif /* PIPESEND */
+ extern int nolinks;
+
+ if (!ENABLED(en_get)) { /* Only if not disabled! */
+ errpkt((CHAR *)"GET disabled");
+ return(-1);
+ }
+
+ /* OK to proceed */
+
+ nolinks = recursive;
+ filcnt = 0;
+
+#ifdef WHATAMI
+ /* If they are alike this was already done in whoarewe() */
+ debug(F101,"sgetinit whatru","",whatru);
+ if (whatru & WMI_FLAG) { /* Did we get WHATAMI info? */
+ debug(F101,"sgetinit binary (1)","",binary);
+#ifdef VMS
+ if (binary != XYFT_I && binary != XYFT_L)
+#else
+#ifdef OS2
+ if (binary != XYFT_L)
+#endif /* OS2 */
+#endif /* VMS */
+ binary = (whatru & WMI_FMODE) ? /* Yes, set file type */
+ XYFT_B : XYFT_T; /* automatically */
+ debug(F101,"sgetinit binary (2)","",binary);
+ if (!wearealike)
+ fncnv = (whatru & WMI_FNAME) ? 1 : 0; /* And name conversion */
+ }
+#endif /* WHATAMI */
+
+ fs = (char *)srvcmd;
+ srvptr = srvcmd; /* Point to server command buffer */
+ decode(rdatap,putsrv,0); /* Decode the GET command into it */
+ /* Accept multiple filespecs */
+ cmarg2 = ""; /* Don't use cmarg2 */
+ cmarg = ""; /* Don't use cmarg */
+
+ done = 1; /* Only 1 packet needed... */
+ if (xget) { /* Special decoding for Extended GET */
+ char L, next, c; /* PLV items */
+ int len, val; /* More PLV items */
+ char * p = (char *)srvcmd; /* String to decode */
+
+ done = 0; /* Maybe more packets needed */
+ fs = NULL; /* We don't know the filespec yet */
+ c = *p++; /* Get first parameter */
+
+ while (c) { /* For all parameters... */
+ debug(F000,"sgetinit c","",c);
+ L = *p++; /* Get length */
+ if (L >= SP) /* Decode length */
+ len = xunchar(L);
+ else if (c == '@') { /* Allow missing EOP length field */
+ len = 0;
+ } else {
+ len = (xunchar(*p++) * 95);
+ len += xunchar(*p++);
+ }
+ debug(F101,"sgetinit len","",len);
+ next = *(p+len); /* Get next parameter */
+ *(p+len) = NUL; /* Zero it out to terminal value */
+ debug(F110,"sgetinit p",p,0);
+ switch (c) { /* Do the parameter */
+ case 'O': /* GET Options */
+ val = atoi(p); /* Convert to int */
+ debug(F101,"sgetinit O val","",val);
+ if (val & GOPT_DEL) moving = 1;
+ if (val & GOPT_RES) reget = 1;
+ if (val & GOPT_REC) {
+ recursive = 1;
+ nolinks = 2;
+ if (fnspath == PATH_OFF)
+ fnspath = PATH_REL;
+ }
+ break;
+ case 'M': /* Transfer Mode */
+ val = atoi(p);
+ debug(F101,"sgetinit M val","",val);
+ if (val < 1)
+ break;
+ patterns = 0; /* Takes precedence over patterns */
+ filepeek = 0; /* and FILE SCAN */
+ if (val == GMOD_TXT) binary = XYFT_T; /* Text */
+ if (val == GMOD_BIN) binary = XYFT_B; /* Binary */
+ if (val == GMOD_LBL) binary = XYFT_L; /* Labeled */
+ break;
+ case 'F': /* Filename */
+ fs = p;
+ debug(F110,"sgetinit filename",fs,0);
+ break;
+ case '@': /* End Of Parameters */
+ done = 1;
+ debug(F100,"sgetinit EOP","",0);
+ break;
+ default:
+ errpkt((CHAR *)"Unknown GET Parameter");
+ debug(F100,"sgetinit unknown parameter","",0);
+ return(-1);
+ }
+ p += (len + 1);
+ c = next;
+ }
+ }
+ if (!fs) fs = ""; /* A filename is required */
+ if (*fs) {
+ havefs = 1;
+ n = 0; /* Check for quoted name */
+ if ((n = strlen(fs)) > 1) {
+ /* Note: this does not allow for multiple quoted names */
+ if ((fs[0] == '{' && fs[n-1] == '}') ||
+ (fs[0] == '"' && fs[n-1] == '"')) {
+ fs[n-1] = '\0';
+ fs++;
+ debug(F111,"sgetinit unquoted filename",fs,n);
+ } else
+ n = 0; /* This means no quoting */
+ }
+
+#ifdef PIPESEND
+ debug(F111,"sgetinit",fs,usepipes);
+ if (usepipes && ENABLED(en_hos) && *fs == '!') {
+ cmarg = fs + 1; /* Point past the bang */
+ *fs = NUL;
+ nfils = -1;
+ pipesend = 1;
+ debug(F111,"sgetinit pipesend",cmarg,pipesend);
+ }
+ if (!pipesend) { /* If it's not a pipe */
+#endif /* PIPESEND */
+ if (n == 0) { /* If the name was not quoted */
+#ifndef NOMSEND
+ nfils = fnparse(fs); /* Allow it to be a list of names */
+ debug(F111,"sgetinit A",fs,nfils);
+#ifdef COMMENT
+/* This doesn't work if a GET-PATH is set. */
+ if (nfils == 1 && !iswild(fs)) { /* Single file */
+ char * m;
+ if ((x = zchki(fs)) < 0) { /* Check if it's sendable */
+ switch (x) {
+ case -1: m = "File not found"; break;
+ case -2: m = "Not a regular file"; break;
+ case -3: m = "Read access denied"; break;
+ }
+ errpkt((CHAR *)m);
+ return(-1);
+ }
+ }
+#endif /* COMMENT */
+ } else { /* If it was quoted */
+#endif /* NOMSEND */
+ nzxopts = 0;
+#ifdef UNIXOROSK
+ if (matchdot) nzxopts |= ZX_MATCHDOT;
+#endif /* UNIXOROSK */
+ if (recursive) nzxopts |= ZX_RECURSE;
+ /* Treat as a single filespec */
+ nfils = 0 - nzxpand(fs,nzxopts);
+ debug(F111,"sgetinit B",fs,nfils);
+ cmarg = fs;
+ }
+#ifdef PIPESEND
+ }
+#endif /* PIPESEND */
+ }
+ if (!done) { /* Need more O packets... */
+ debug(F100,"sgetinit O-Packet TBC","",0); /* To Be Continued */
+ return(1);
+ }
+ debug(F100,"sgetinit O-Packet done - havefs","",havefs);
+ if (!havefs) { /* Done - make sure we have filename */
+ errpkt((CHAR *)"GET without filename");
+ return(-1);
+ }
+ freerpkt(winlo);
+ winlo = 0; /* Back to packet 0 again. */
+ debug(F101,"sgetinit winlo","",winlo);
+ nakstate = 0; /* Now I'm the sender! */
+ if (reget) sendmode = SM_RESEND;
+ if (sinit() > 0) { /* Send Send-Init */
+#ifdef STREAMING
+ if (!streaming)
+#endif /* STREAMING */
+ timint = chktimo(rtimo,timef); /* Switch to per-packet timer */
+ return(0); /* If successful, switch state */
+ } else return(-1); /* Else back to server command wait */
+}
+
+#else /* NOXFER */
+
+#include "ckcdeb.h"
+
+VOID
+proto() {
+ extern int success;
+ success = 0;
+}
+#endif /* NOXFER */
char *protv = /* -*-C-*- */
-"C-Kermit Protocol Module 8.0.158, 11 Sep 2002";
+"C-Kermit Protocol Module 9.0.160, 16 Oct 2009";
int kactive = 0; /* Kermit protocol is active */
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#endif /* TCPSOCKET */
extern int cxseen, czseen, server, srvdis, local, displa, bctu, bctr, bctl;
+ extern int bctf;
extern int quiet, tsecs, parity, backgrd, nakstate, atcapu, wslotn, winlo;
extern int wslots, success, xitsta, rprintf, discard, cdtimo, keep, fdispla;
extern int timef, stdinf, rscapu, sendmode, epktflg, epktrcvd, epktsent;
printf(" SENT: [%s]",sfspec);
if (srfspec)
printf(" To: [%s]",srfspec);
- printf(" (%s)\n", success ? "OK" : "FAILED");
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
}
break;
case 'r':
printf(" RCVD: [%s]",rrfspec);
if (rfspec)
printf(" To: [%s]",rfspec);
- printf(" (%s)\n", success ? "OK" : "FAILED");
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
}
}
} else if (n > 1) {
printf(" SENT: (%d files)",n);
if (srfspec)
printf(" Last: [%s]",srfspec);
- printf(" (%s)\n", success ? "OK" : "FAILED");
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
}
break;
case 'r':
printf(" RCVD: (%d files)",n);
if (rfspec)
printf(" Last: [%s]",rfspec);
- printf(" (%s)\n", success ? "OK" : "FAILED");
+ printf(" (%s)\r\n", success ? "OK" : "FAILED");
}
}
} else if (n == 0) {
if (myjob == 's')
- printf(" SENT: (0 files) \n");
+ printf(" SENT: (0 files) \r\n");
else if (myjob == 'r' || myjob == 'v')
- printf(" RCVD: (0 files) \n");
+ printf(" RCVD: (0 files) \r\n");
}
}
}
a {
int b1 = 0, b2 = 0;
if (!data) TINIT; /* "ABEND" -- Tell other side. */
+
+ if (!bctf) { /* Block check 3 forced on all packets */
#ifndef pdp11
- if (epktflg) { /* If because of E-PACKET command */
- b1 = bctl; b2 = bctu; /* Save block check type */
- bctl = bctu = 1; /* set it to 1 */
- }
+ if (epktflg) { /* If because of E-PACKET command */
+ b1 = bctl; b2 = bctu; /* Save block check type */
+ bctl = bctu = 1; /* set it to 1 */
+ }
#endif /* pdp11 */
+ }
errpkt((CHAR *)"User cancelled"); /* Send the packet */
+ if (!bctf) { /* Block check 3 forced on all packets */
#ifndef pdp11
- if (epktflg) { /* Restore the block check */
- epktflg = 0;
- bctl = b1; bctu = b2;
+ if (epktflg) { /* Restore the block check */
+ epktflg = 0;
+ bctl = b1; bctu = b2;
+ }
}
#endif /* pdp11 */
success = 0;
}
}
} else { /* User doesn't want message */
- p =zgtdir();
+ p = zgtdir();
if (!p) p = "";
success = (*p) ? 1 : 0;
ack1((CHAR *)p);
xxscreen(SCR_TC,0,0L,""); /* Display */
doclean(1); /* Clean up files, etc */
#ifdef DEBUG
- debug(F100,"C-Kermit BYE - Loggin out...","",0);
+ debug(F100,"C-Kermit BYE - Logging out...","",0);
zclose(ZDFILE);
#endif /* DEBUG */
#ifdef IKSD
if (ikdbopen) slotstate(what,"REMOTE HELP", "", "");
#endif /* IKSDB */
#ifndef NOSERVER
- if (sndhlp(NULL)) {
+ if (sndhlp()) {
BEGIN ssinit; /* try to send it */
} else { /* If not ok, */
errpkt((CHAR *)"Can't send help"); /* send error message instead */
if (rc > -1) return(rc);
}
+<generic>M { /* REMOTE MESSAGE command */
+#ifndef NOSERVER
+ debug(F110,"RMSG",(char *)srvcmd+2,0);
+ xxscreen(SCR_MS,0,0L,(char *)(srvcmd+2));
+ ack();
+ RESUME;
+#endif /* NOSERVER */
+}
+
<generic>q { /* Interrupted or connection lost */
#ifndef NOSERVER
if (fatalio) { /* Connection lost */
<ssinit>Y { /* ACK for Send-Init */
spar(rdatap); /* set parameters from it */
cancel = 0;
- bctu = bctr; /* switch to agreed-upon block check */
- bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+ if (bctf) {
+ bctu = 3;
+ bctl = 3;
+ } else {
+ bctu = bctr; /* switch to agreed-upon block check */
+ bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+ }
+
#ifdef CK_RESEND
if ((sendmode == SM_RESEND) && (!atcapu || !rscapu)) { /* RESEND */
errpkt((CHAR *) "RESEND capabilities not negotiated");
#endif /* CK_TMPDIR */
nakstate = 1; /* Can send NAKs from here. */
rinit(rdatap); /* Set parameters */
- bctu = bctr; /* Switch to agreed-upon block check */
- bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+ if (bctf) {
+ bctu = 3;
+ bctl = 3;
+ } else {
+ bctu = bctr; /* switch to agreed-upon block check */
+ bctl = (bctu == 4) ? 2 : bctu; /* Set block-check length */
+ }
what = W_RECV; /* Remember we're receiving */
lastxfer = W_RECV;
resetc(); /* Reset counters */
}
if (!s) s = "";
if (*s) {
- if (sstate == 's') {
+ if (sstate == 's') { /* Sending */
+ extern int xfermode;
+ int k = 0, x = 0, b = binary;
+ /*
+ If just one file we can scan it to set the xfer mode.
+ Otherwise it's up to the external protocol program.
+ */
+ if (patterns && xfermode == XMODE_A && !iswild(fspec)) {
+ extern int nscanfile;
+ k = scanfile(fspec,&x,nscanfile);
+ if (k > -1) {
+ b = (k == FT_BIN) ? XYFT_B : XYFT_T;
+ s = b ?
+ ptab[protocol].p_b_scmd :
+ ptab[protocol].p_t_scmd;
+ }
+ }
if ((int)strlen(s) + (int)strlen(fspec) < tmpbufsiz) {
sprintf(tmpbuf,s,fspec); /* safe (prechecked) */
tlog(F110,"Sending",fspec,0L);
}
- } else {
+ } else { /* Receiving */
if ((int)strlen(s) + (int)strlen(cmarg2) < tmpbufsiz) {
sprintf(tmpbuf,s,cmarg2); /* safe (prechecked) */
tlog(F110,"Receiving",cmarg2,0L);
Author: Jeffrey E Altman (jaltman@secure-endpoints.com),
Secure Endpoints Inc., New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
-char *cktelv = "Telnet support, 8.0.269, 4 Mar 2004";
+char *cktelv = "Telnet support, 9.0.274, 16 Mar 2010";
#define CKCTEL_C
int sstelnet = 0; /* Do server-side Telnet negotiation */
Telnet KERMIT support by Jeffrey Altman
Other contributions as indicated in the code.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
int tn_begun = 0; /* Telnet protocol started flag */
static int tn_first = 1; /* First time init flag */
extern int tn_exit; /* Exit on disconnect */
+extern int nettype;
extern int inserver; /* Running as IKSD */
char *tn_term = NULL; /* Terminal type override */
extern int ttcarr;
#endif /* TN_COMPORT */
+ /* if (!IS_TELNET()) return(1); */
+
rtimer();
debug(F110,"tn_wait waiting for",where,0);
#ifdef NETLEBUF
extern int tt_push_inited;
#endif /* NETLEBUF */
+ /* if (!IS_TELNET()) return(1); */
+
if (tn_wait_idx) {
- hexdump((CHAR *)"tn_push",tn_wait_buf,tn_wait_idx);
+ ckhexdump((CHAR *)"tn_push",tn_wait_buf,tn_wait_idx);
#ifdef NETLEBUF
if (!tt_push_inited) /* Local handling */
le_init();
CHAR buf[5];
char msg[128];
int rc;
-
if (ttnet != NET_TCPB) return(-1); /* Must be TCP/IP */
if (ttnproto != NP_TELNET) return(-1); /* Must be telnet protocol */
if (!TELCMD_OK(cmd)) return(-1);
extern int ckxech;
int x = 0;
+ /* if (!IS_TELNET()) return(0); */
+
/* Wait up to 5 sec for responses to outstanding telnet negotiations */
while (x >= 0 && ttchk() > 0 && tn_wait_idx < TN_WAIT_BUF_SZ) {
x = ttinc(1);
/* explicitedly requested we try to send one via X-Display Location */
/* But do not send a string at all if FORWARD_X is in use. */
+ /* if (!IS_TELNET()) return(0); */
+
debug(F110,"tn_get_display() myipaddr",myipaddr,0);
#ifdef CK_ENVIRONMENT
debug(F110,"tn_get_display() tn_env_disp",tn_env_disp,0);
p[0] = sb[i++];
p[1] = sb[i++];
hchannel = ntohs(nchannel);
- rc = fwdx_send_xauth_to_xserver(hchannel,(char *)&sb[3],n-5);
+ rc = fwdx_send_xauth_to_xserver(hchannel,(CHAR *)&sb[3],n-5);
if ( rc >= 0 && n-5-rc > 0) {
rc = fwdx_write_data_to_channel(hchannel,(char *)&sb[3+rc],n-5-rc);
if ( rc < 0 ) {
sb_out[i++] = (CHAR) SE; /* marked by IAC SE */
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakxmsg(fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
+ ckmakxmsg((char *)fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
TELOPT(TELOPT_FORWARD_X),
" CLOSE CHANNEL=",ckitoa(channel)," IAC SE",
NULL,NULL,NULL,NULL,NULL,NULL,NULL
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol((CHAR *)sb_out,i) < 0); /* Send it. */
#ifdef OS2
sb_out[i++] = (CHAR) SE; /* marked by IAC SE */
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakxmsg(fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
+ ckmakxmsg((char *)fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
TELOPT(TELOPT_FORWARD_X),
" OPEN CHANNEL=",ckitoa(channel)," IAC SE",
NULL,NULL,NULL,NULL,NULL,NULL,NULL);
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol((CHAR *)sb_out,i) < 0); /* Send it. */
#ifdef OS2
sb_out[i++] = (CHAR) SE; /* marked by IAC SE */
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakxmsg(fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
+ ckmakxmsg((char *)fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
TELOPT(TELOPT_FORWARD_X),
" OPTIONS ",ckctox(sb_out[4],1)," IAC SE",
NULL,NULL,NULL,NULL,NULL,NULL,NULL);
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol((CHAR *)sb_out,i) < 0); /* Send it. */
#ifdef OS2
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakmsg(fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
+ ckmakmsg((char *)fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
TELOPT(TELOPT_FORWARD_X),
" OPTIONS 00 IAC SE",NULL);
}
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol((CHAR *)sb_out,i) < 0); /* Send it. */
#ifdef OS2
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakxmsg( fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
+ ckmakxmsg( (char *)fwdx_msg_out,TN_MSG_LEN,"TELNET SENT SB ",
TELOPT(TELOPT_FORWARD_X),
" DATA CHANNEL=",ckitoa(channel)," ",
NULL,NULL,NULL,NULL,NULL,NULL,NULL );
- tn_hex(fwdx_msg_out,TN_MSG_LEN,&sb_priv[j_sav],j-(j_sav+2));
- ckstrncat(fwdx_msg_out," IAC SE",TN_MSG_LEN);
+ tn_hex((CHAR *)fwdx_msg_out,
+ TN_MSG_LEN,&sb_priv[j_sav],j-(j_sav+2));
+ ckstrncat((char *)fwdx_msg_out," IAC SE",TN_MSG_LEN);
}
#endif /* DEBUG */
#ifdef OS2
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol(sb_priv,j) < 0); /* Send it. */
#ifdef OS2
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- ckmakxmsg( fwdx_msg_out,TN_MSG_LEN,
+ ckmakxmsg( (char *)fwdx_msg_out,TN_MSG_LEN,
"TELNET SENT SB ",TELOPT(TELOPT_FORWARD_X),
" DATA ",ckctox(p[0],1)," ",ckctox(p[1],1)," ",
NULL,NULL,NULL,NULL,NULL);
- tn_hex(fwdx_msg_out,TN_MSG_LEN,&sb_priv[6],j-8);
- ckstrncat(fwdx_msg_out," IAC SE",TN_MSG_LEN);
+ tn_hex((CHAR *)fwdx_msg_out,TN_MSG_LEN,&sb_priv[6],j-8);
+ ckstrncat((char *)fwdx_msg_out," IAC SE",TN_MSG_LEN);
}
#endif /* DEBUG */
#ifdef OS2
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = (ttol(sb_priv,j) < 0); /* Send it. */
#ifdef OS2
#ifdef DEBUG
if (deblog || tn_deb || debses) {
- sprintf(fwdx_msg_out,"TELNET SENT SB %s OPTION_DATA XAUTH ",
+ sprintf((char *)fwdx_msg_out,"TELNET SENT SB %s OPTION_DATA XAUTH ",
TELOPT(TELOPT_FORWARD_X));
- tn_hex(fwdx_msg_out,TN_MSG_LEN,&sb_priv[5],(p-sb_priv)-7);
- ckstrncat(fwdx_msg_out," IAC SE",TN_MSG_LEN);
+ tn_hex((char *)fwdx_msg_out,TN_MSG_LEN,&sb_priv[5],(p-sb_priv)-7);
+ ckstrncat((char *)fwdx_msg_out," IAC SE",TN_MSG_LEN);
}
#endif /* DEBUG */
RequestTelnetMutex( SEM_INDEFINITE_WAIT );
#endif
#ifdef DEBUG
- debug(F100,fwdx_msg_out,"",0);
- if (tn_deb || debses) tn_debug(fwdx_msg_out);
+ debug(F100,(char *)fwdx_msg_out,"",0);
+ if (tn_deb || debses) tn_debug((char *)fwdx_msg_out);
#endif /* DEBUG */
rc = ( ttol(sb_priv,p-sb_priv) < 0 ); /* Send it. */
#ifdef OS2
VOID
tn_sdsb() {
+ /* if (!IS_TELNET()) return; */
+
if (TELOPT_SB(TELOPT_TTYPE).term.need_to_send) {
tn_sttyp();
TELOPT_SB(TELOPT_TTYPE).term.need_to_send = 0;
tn_reset() {
int x,opt,cmd;
+ /* if (!IS_TELNET()) return(1); */
+
tn_wait_idx = 0; /* Clear the tn_push() buffer */
tn_wait_tmo = TN_TIMEOUT; /* Reset wait timer stats */
tn_start() {
int wait, x, opt;
+ /* if (!IS_TELNET()) return(0); */
+
if (tn_init && tn_begun)
return(0);
tn_begun = 1;
if (ttnet != NET_TCPB) /* Make sure connection is TCP/IP */
return(0);
+/*
+ if (!IS_TELNET())
+ return(0);
+*/
if (tn_init) /* Have we done this already? */
return(0); /* Don't do it again. */
tn_init = 1;
debug(F100,"tn_ini telnet negotiations ignored","tn_init",tn_init);
return(0);
+#ifdef COMMENT
+ /* Jeff's code from 30 Dec 2005 - doesn't work with SSL POP server */
+ case NP_NONE:
+ case NP_SSL:
+ case NP_TLS:
+ ttnproto = NP_TELNET; /* pretend it's telnet anyway, */
+ oldplex = duplex; /* save old duplex value */
+ duplex = 1; /* and set to half duplex for telnet */
+ if (inserver)
+ debug(F100,"tn_ini skipping telnet negotiations","",0);
+ else
+ tn_wait("tn_ini - waiting to see if telnet negotiations were sent");
+ tn_push();
+ return(0);
+ case NP_SSL_RAW:
+ case NP_TLS_RAW:
+ case NP_TCPRAW: /* Raw socket requested. */
+ debug(F100,"tn_ini telnet negotiations ignored","tn_init",tn_init);
+ return(0);
+#else
+ /* My code from 4 Dec 2005 - works with SSL POP server */
case NP_NONE:
case NP_SSL:
case NP_TLS: /* If not talking to a telnet port, */
+ case NP_SSL_RAW: /* SSL and TLS with Telnet */
+ case NP_TLS_RAW: /* negotiations disabled. */
ttnproto = NP_TELNET; /* pretend it's telnet anyway, */
oldplex = duplex; /* save old duplex value */
duplex = 1; /* and set to half duplex for telnet */
if (inserver)
debug(F100,"tn_ini skipping telnet negotiations","",0);
- else
- tn_wait("tn_ini - waiting to see if telnet negotiations were sent");
+ else
+ tn_wait("tn_ini - waiting to see if telnet negotiations were sent");
tn_push();
return(0);
case NP_TCPRAW: /* Raw socket requested. */
debug(F100,"tn_ini telnet negotiations ignored","tn_init",tn_init);
return(0);
+#endif /* COMMENT */
case NP_KERMIT: /* switching to Telnet protocol */
case NP_SSL_TELNET:
case NP_TLS_TELNET:
if (ttnet != NET_TCPB) return(0); /* Must be TCP/IP */
if (ttnproto != NP_TELNET) return(0); /* Must be telnet protocol */
+
if (cmd < KERMIT_START || cmd > KERMIT_RESP_STOP) /* Illegal subcommand */
return(-1);
#endif /* CK_ANSIC */
/* tn_sb */ {
int c, x, y, n, m, flag;
+ /* if (!IS_TELNET()) return(1); */
+
debug(F100,"Entering tn_sb()","",0);
*len = 0; /* Initialize Len to 0 */
n = flag = 0; /* Flag for when done reading SB */
ckmakmsg( tn_msg,TN_MSG_LEN,
"TELNET RCVD SB ",TELOPT(opt),
" DATA(buffer-full) ",NULL);
- tn_hex(tn_msg,TN_MSG_LEN,&sb[1],n-3);
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&sb[1],n-3);
if (flag == 2)
ckstrncat(tn_msg," SE",TN_MSG_LEN);
else if (flag == 3)
#endif /* NOICP */
#endif /* IKS_OPTION */
+ /* if (!IS_TELNET()) return(7); */
/* Have IAC, read command character. */
#endif /* CK_SSL */
if (!TELOPT_OK(x)) {
- hexdump("unknown telnet subnegotiation",sb,n);
+ ckhexdump("unknown telnet subnegotiation",sb,n);
break;
} else if ( !(TELOPT_ME(x) || TELOPT_U(x)) ) {
- hexdump("telnet option not negotiated",sb,n);
+ ckhexdump("telnet option not negotiated",sb,n);
if (!tn_sb_bug)
break;
if (TELOPT_UNANSWERED_WILL(x)) {
rc = -3;
} else {
#ifndef NOLOCAL
- extern tls_norestore;
+ extern int tls_norestore;
#endif /* NOLOCAL */
printf("TLS failed: Disconnecting...\n");
#ifdef CK_ENCRYPTION
#endif /* CK_AUTHENTICATION */
#ifdef CK_ENCRYPTION
case TELOPT_ENCRYPTION:
- if (ck_tn_sb_encrypt(sb, n) < 0) {
+ if (ck_tn_sb_encrypt((char *)sb, n) < 0) {
if (TELOPT_U_MODE(x) == TN_NG_MU ||
TELOPT_ME_MODE(x) == TN_NG_MU)
{
/* tn_doop */ {
int x=0, y=0;
+ debug(F101,"tn_doop char","",z);
+ debug(F101,"tn_doop ttnproto","",ttnproto);
+
+ if (!IS_TELNET()) return(3);
+
+#ifdef CK_SSL
+ debug(F101,"tn_doop ssl_raw_flag","",ssl_raw_flag);
+ if (ssl_raw_flag || tls_raw_flag) return(7);
+#endif /* CK_SSL */
+ debug(F100,"tn_doop ttnproto proceeding...","",0);
+
if (z != (CHAR) IAC) {
debug(F101,"tn_doop bad call","",z);
return(-1);
uu = localuidbuf;
}
- hexdump((CHAR *)"tn_snenv sb[]",sb,len);
+ ckhexdump((CHAR *)"tn_snenv sb[]",sb,len);
debug(F110,"tn_snenv uidbuf",uidbuf,0);
debug(F110,"tn_snenv localuidbuf",localuidbuf,0);
debug(F110,"tn_snenv tn_env_sys",tn_env_sys,0);
char * disp;
int i,rc;
+ /* if (!IS_TELNET()) return(0); */
+
if (!TELOPT_U(TELOPT_FORWARD_X)) return(0);
#ifdef CK_SSL
if (TELOPT_SB(TELOPT_START_TLS).start_tls.me_follows) {
* the localhost; the screen defaults to 0
*/
- disp = tn_get_display();
+ disp = (char *)tn_get_display();
if (disp) {
int colon,dot;
colon = ckindex(":",disp,0,0,1);
int i,rc; /* Worker. */
char *ttloc;
+ /* if (!IS_TELNET()) return(0); */
+
if (!TELOPT_ME(TELOPT_SNDLOC)) return(0);
#ifdef CK_SSL
/* tnc_init */ {
debug(F100,"tnc_init","",0);
+ /* if (!IS_TELNET()) return(0); */
+
if (tnc_signature) {
free(tnc_signature);
tnc_signature = NULL;
int baud, datasize, parity, stopsize, oflow, iflow;
CONST char * signature;
+ /* if (!IS_TELNET()) return(0); */
+
debug(F100,"tnc_sndcomport","",0);
signature = tnc_get_signature();
baud = tnc_get_baud();
#endif /* CK_ANSIC */
/* tnc_wait */ {
int rc, tn_wait_save = tn_wait_flg;
+
+ /* if (!IS_TELNET()) return(0); */
+
debug(F111,"tnc_wait","begin",ms);
if ( ms )
TELOPT_SB(TELOPT_COMPORT).comport.wait_for_ms = 1;
Frank da Cruz <fdc@columbia.edu>
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
Notes:
+ . This file should be used in place of "arpa/telnet.h"
. Only one source file should include #defines for
TELCMDS, TELOPTS, TELOPT_STATES, SLC_NAMES, and AUTH_NAMES.
- . This file should be used inplace of "arpa/telnet.h"
*/
#ifndef CKCTEL_H
Definitions for the TELNET protocol.
can't rely on library header files for any of them.
*/
+#ifdef COMMENT
+/* In some compilers these are prone to sign extension */
+
#ifndef IAC /* First the telnet commands */
#define IAC 255
#endif /* IAC */
#define TN_SAK 200 /* IBM Secure Attention Key */
#endif /* LAST_TN_CMD */
-
#define SYNCH 242 /* for telfunc calls */
+#else
+/* Hex notation seems to suppress the sugn extension effect */
+
+
+#ifndef IAC /* First the telnet commands */
+#define IAC 0xff
+#endif /* IAC */
+#ifndef DONT
+#define DONT 0xfe /* 254 */
+#endif /* DONT */
+#ifndef DO
+#define DO 0xfd /* 253 */
+#endif /* DO */
+#ifndef WONT
+#define WONT 0xfc /* 252 */
+#endif /* WONT */
+#ifndef WILL
+#define WILL 0xfb /* 251 */
+#endif /* WILL */
+#ifndef SB
+#define SB 0xfa /* 250 */
+#endif /* SB */
+#ifndef TN_GA
+#define TN_GA 0xf9 /* 249 */
+#endif /* TN_GA */
+#ifndef TN_EL
+#define TN_EL 0xf8 /* 248 */
+#endif /* TN_EL */
+#ifndef TN_EC
+#define TN_EC 0xf7 /* 247 */
+#endif /* TN_EC */
+#ifndef TN_AYT
+#define TN_AYT 0xf6 /* 246 */
+#endif /* TN_AYT */
+#ifndef TN_AO
+#define TN_AO 0xf5 /* 245 */
+#endif /* TN_AO */
+#ifndef TN_IP
+#define TN_IP 0xf4 /* 244 */
+#endif /* TN_IP */
+#ifndef BREAK
+#define BREAK 0xf3 /* 243 */
+#endif /* BREAK */
+#ifndef TN_DM
+#define TN_DM 0xf2 /* 242 */
+#endif /* TN_DM */
+#ifndef TN_NOP
+#define TN_NOP 0xf1 /* 241 */
+#endif /* TN_NOP */
+#ifndef SE
+#define SE 0xf0 /* 240 */
+#endif /* SE */
+#ifndef TN_EOR
+#define TN_EOR 0xef /* 239 */
+#endif /* TN_EOR */
+#ifndef TN_ABORT
+#define TN_ABORT 0xee /* 238 */
+#endif /* TN_ABORT */
+#ifndef TN_SUSP
+#define TN_SUSP 0xed /* 237 */
+#endif /* TN_SUSP */
+#ifndef TN_EOF
+#define TN_EOF 0xec /* 236 */
+#endif /* TN_EOF */
+#ifndef LAST_TN_CMD
+#define LAST_TN_CMD 0xec /* 236 */
+
+#define TN_SAK 0xc8 /* 200 - IBM Secure Attention Key */
+#endif /* LAST_TN_CMD */
+#define SYNCH 0xf2 /* 242 - for telfunc calls */
+
+#endif /* COMMENT */
+
#ifdef TELCMDS
char *telcmds[] = {
"EOF", "SUSP", "ABORT", "EOR",
_PROTOTYP( int fwdx_init_fd_set,(fd_set *));
_PROTOTYP( int fwdx_authorize_channel, (int, unsigned char *, int));
_PROTOTYP( int fwdx_create_fake_xauth, (char *, int, int));
-_PROTOTYP( int fwdx_send_xauth, (VOID));
+_PROTOTYP( int fwdx_send_xauth_to_xserver, (int, unsigned char *, int len));
_PROTOTYP( int fwdx_server_avail, (VOID));
+_PROTOTYP( int fwdx_parse_displayname, (char *, int *, char **, int *, int *, char **));
+
#ifdef NT
_PROTOTYP( VOID fwdx_thread,(VOID *));
#endif /* NT */
-char * ckcuni = "Unicode support 8.0.115, 9 Oct 2002";
+char * ckcuni = "Unicode support 9.0.115, 16 Oct 2009";
#ifdef OS2
#define KERMITFONT
/* C K C U N I . C -- Unicode/Terminal character-set translations */
/*
- Copyright (C) 1999, 2004,
+ Copyright (C) 1999, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
/* C K C U N I . H -- Unicode/Terminal character-set translations */
/*
- Copyright (C) 1999, 2004,
+ Copyright (C) 1999, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
Author: Frank da Cruz <fdc@columbia.edu>,
The Kermit Project - Columbia University, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifdef UNICODE
#undef UNICODE
#endif /* UNICODE */
+#ifndef NOUNICODE
+#define NOUNICODE
+#endif /* NOUNICODE */
#else /* Not NOCSETS - Rest of this file... */
COMMENT - Standard C-Kermit initialization file
;
-; For C-Kermit Version: 8.0
-;
-; Filename:
-; .kermrc (UNIX, OS-9, Aegis)
-; CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
-; ckermit.ini (Stratus VOS)
-; K95.INI (Kermit 95 -- but this big version is not used there)
-; K2.INI (Kermit/2 -- but ditto)
-;
-; Authors:
-; Frank da Cruz, Christine M. Gianone, Jeffrey Altman
-; Columbia University, New York, NY 10025-7799, USA
-;
-; This is the standard and recommended C-Kermit 8.0 initialization file. To
-; override settings or definitions made in this file, to add new settings or
-; definitions, or to make any other desired customizations, create a separate,
-; personal customization file called:
-;
-; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9)
-; CKERMOD.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
-; ckermod.ini (VOS)
-;
-; You can also define the customization filename in an environment
-; variable (logical name in VMS), CKERMOD, which takes precedence over
-; the names shown above.
-;
-; WHAT THIS FILE DOES:
-;
-; . Defines your default dialing directory name:
-; .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
-; You can override this with the environment variable K_DIAL_DIRECTORY
-; . Defines your default network directory name:
-; .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
-; You can override this with the environment variable K_NET_DIRECTORY
-; . Defines your default services directory name:
-; .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
-; You can override this with environment variable K_SERVICE_DIRECTORY.
-; . Defines your customization file name (name given above)
-; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
-; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc.
-; . If you have a services directory, all the macros needed to use it are
-; defined. If you don't have a services directory, the macros are not
-; defined and Kermit starts faster.
-; . Executes your personal customization file, if you have one.
-; NOTE: Your customization file is NOT executed by Kermit itself; it is
-; executed by this file.
-;
-; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name
-; other than .kermrc, and it will not be executed automatically, but, if you
-; give this file execute permission, you can execute directly because of the
-; "kerbang line" at the top, whenever you want all of the above actions to
-; occur. The kerbang line must reflect the actual full path of the Kermit
-; 7.0-or-later executable.
-;
-; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
-; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
-; Butterworth-Heinemann, ISBN 1-55558-164-1. New features of subsequent
-; versions are documented at the Kermit website:
-; http://www.columbia.edu/kermit/
-;
-; Everything after this point depends on the script programming language.
-; The CHECK command terminates this command file immediately if the script
-; programming language (IF command) is not configured.
-;
-set take error on ; This makes CHECK quit if no script language.
-check if ; Do we have an IF command? If not, quit now.
-set take error off ; Back to normal.
-
-local _sd _servicedir _xp ; Declare local variables.
-
-COMMENT - C-Kermit version 6.0 or later required.
-;
-
-asg _xp \v(xprogram)
-if not def _xp asg _xp \v(program)
-if not equal "\m(_xp)" "C-Kermit" -
- stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
-echo Executing \v(cmdfile) for \v(system)...
-if < \v(version) 60000 -
- stop 1 \v(cmdfile): C-Kermit 6.0 or later required.
-
-forward \v(system) ; First do system-dependent items...
-
-:unknown ; Should not happen
-Stop 1 Error: System type unknown!
-
-:Aegis ; Apollo Aegis and
-:UNIX ; UNIX, all versions
-asg _myinit -
- \v(home).mykermrc ; Customization filename
-if remote forward COMMON ; Skip local-mode items if "-R"
-asg _dialdir -
- \v(home).kdd ; C-Kermit dialing directory
-asg _netdir -
- \v(home).knd ; C-Kermit network directory
-asg _servicedir -
- \v(home).ksd ; C-Kermit services directory
-forward COMMON ; End of UNIX section
-
-:OS9/68K ; OS-9
-asg _myinit -
- \v(home).mykermrc ; Customization filename
-if remote forward COMMON
-asg _dialdir -
- \v(home).kdd ; C-Kermit dialing directory
-asg _netdir -
- \v(home).knd ; C-Kermit network directory
-asg _servicedir -
- \v(home).ksd ; C-Kermit services directory
-else set file display crt
-forward COMMON ; End of OS-9 section
-
-:VMS ; VMS and OpenVMS
-forward COMMON
-
-:OS/2 ; Kermit 95
-:WIN32
-echo This initialization file is not for use with K95.
-forward COMMON ; End of OS/2 section
-
-:AOS/VS ; Data General AOS/VS
-set window 1 ; Sliding windows don't work
-set file char dg-international ; File character-set
-set xfer char latin1 ; Transfer character-set
-set file display crt ; File transfer fisplay
-def cli push ; Escape to CLI
-def reset - ; Macro to reset DG DASHER terminal
- run write [!ascii 236 306 301]
-forward COMMON ; End of AOS/VS section
-
-:Amiga ; Commodore Amiga
-def cls echo \27[H\27[2J ; CLS command to clear the screen
-set file char latin1 ; Use Latin Alphabet 1 for file transfer
-set xfer char latin1 ; ...
-forward COMMON ; End of Amiga section
-
-:Atari_ST ; Atari ST
-def cls echo \27H\27J ; Clear screen a`la VT52
-set server display on ; Show file xfer display in server mode too
-set server timeout 15 ; Nonzero required for ^C interruption!
-forward COMMON ; End of Atari ST section
-
-:Macintosh ; Apple Macintosh
-set server display on ; Show file xfer display in server mode too.
-forward COMMON
-
-:Stratus_VOS ; Stratus VOS
-asg _myinit \v(home)ckermod.ini
-if remote forward COMMON
-asg _dialdir \v(home)ckermit.kdd
-asg _netdir \v(home)ckermit.knd
-asg _servicedir \v(home)ckermit.ksd
-forward COMMON ; End of Stratus VOS section
-
-:COMMON ; For all systems
-
-; Define macros that are useful when running C-Kermit in remote mode.
-; These macros serve no purpose on local-mode-only versions such as
-; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
-; for those systems.
-;
-if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
- forward files
-
-; VTPRINT macro. Print a file on your PC's local printer.
-
-def VTPRINT echo \27[5i, type \%1, echo \27[4i
-; or if your printer needs a formfeed to force the page out:
-; def VTPRINT def echo \27[5i, type \%1, echo \12\27[4i
-
-; Macros for host-initiated file transfer using APC:
-; NOT NEEDED ANY MORE because of autodownload/autoupload.
-; Remove the following FORWARD command to reinstate these definitions:
-
-:FILES
-
-; Get customization and directory file names. Environment variables take
-; precedence, so you do not have to edit this file to change these filenames.
-;
-if def \$(CKERMOD) assign _myinit \$(CKERMOD)
-if not def _myinit assign _myinit \v(home)CKERMOD.INI
-
-if remote forward CUSTOM ; Skip all this if -R given on command line
-
-if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
-if not def _netdir assign _netdir \v(home)CKERMIT.KND
-
-if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
-if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD
-
-CHECK DIAL ; Is there a DIAL command?
-xif fail { ; No.
- echo DIAL disabled
- forward CUSTOM
-}
-
-CHECK NETWORK
-xif success {
- xif exist \m(_netdir) {
- set net directory \m(_netdir)
- echo { Network directory is \m(_netdir) }
- }
-}
-
-if eq "\v(name)" "telnet" forward CUSTOM
-
-xif exist \m(_dialdir) {
- set dial directory \m(_dialdir)
- echo { Dial directory is \m(_dialdir) }
-}
-
-COMMENT - Services directory
-
-if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
-if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD
-
-; If no services directory is found skip all the big macro definitions and
-; go straight to the bottom, where we execute the customization file.
-
-if not exist \m(_servicedir) forward custom
-
-echo { Services directory is \m(_servicedir)}
-
-def MAX_SVCS 200 ; Adjust this if you have more entries
-define _sd 0 ; Assume no services directory
-open read \m(_servicedir) ; Try to open services directory file
-xif success {
- declare \&d[\m(MAX_SVCS)] ; It's open, declare directory array
- for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
- read \&d[\%i]
- if fail break
- }
- close read
- xif > \%i \m(MAX_SVCS) {
- echo Too many entries in services directory
- echo { Maximum is \m(MAX_SVCS).}
- echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
- echo { Services directory disabled.}
- } else {
- asg \&d[0] \feval(\%i - 1)
- define _sd 1
- }
-}
-
-xif not \m(_sd) {
- def access echo { Services directory not available.}
- asg list \m(access)
-} else {
- def FIND {
- set case off
- for \%i 1 \&d[0] 1 {
- if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
- }
- if not > \%i \&d[0] return \&d[\%i]
- }
- def LIST {
- xif > \v(argc) 1 {
- do find \%1
- if def \v(return) echo \v(return)
- else echo \%1: Not found
- } else {
- echo \&d[0] items in services directory:
- for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
- }
- }
- def SPLIT { asg _word1 \%1, asg _word2 \%2 }
- def DOACCESS { ; (Used internally by ACCESS macro)
- do \%5 \%6 \%7 \%8 \%9 ; Do the connection macro
- if fail end 1
- split \%3 ; Get words from \%3
- asg \%3 \m(_word1)
- asg \%2 \m(_word2)
- do \%3 \%4 {\%1} \%2 ; Login macro, userid, password, prompt
- }
- def ACCESS {
- if not defined \%1 end 1 access what? ; Check service
- do find \%1 ; Look it up
- if success doaccess {\%2} \v(return) ; OK, try it
- else end 1 "\%1" not in services directory ; Not found
- if fail end 1 ; DOACCESS failed?
- xif eq \v(cmdlevel) 1 {
- echo
- echo ACCESS: Login succeeded - CONNECTing...
- show escape
- output \13
- connect /quietly
- }
- }
-}
-
-:CONNECTION ; Macros for making connections
-
-COMMENT - SERIAL macro. Arguments:
-; \%1 = device name
-; \%2 = speed
-;
-def SERIAL {
- if < \v(argc) 3 ; All arguments given?
- end 1 Usage: SERIAL device speed ; No.
- set line \%1 ; OK, try to SET LINE.
- if failure - ; If this failed,
- end 1 Can't open device: \%1 ; print message and quit.
- set speed \%2 ; Try to set the speed.
- if fail end 1 Unsupported speed: \%2 ; Failed.
- echo Connection successful. ; Succeeded.
-}
-
-COMMENT - NET macro. Arguments:
-; \%1 = network type
-; \%2 = host name or address
-;
-def NET {
- if < \v(argc) 3 end 1 Usage: NET network host
- set network type \%1
- if fail end 1 unsupported network: \%1
- set login user ; Don't send user ID.
- set host \%2
- if fail end 1 Can't reach host: \%2
- echo Connection successful.
-}
-
-COMMENT - CALL macro. Arguments:
-;
-; \%1 = modem type
-; \%2 = device name
-; \%3 = speed
-; \%4 = phone number
-;
-def CALL {
- if < \v(argc) 5 - ; All arguments present?
- end 1 Usage: CALL modem device speed number
- xif not equal {\v(modem)} {\%1} { ; Set modem type
- set modem \%1
- if fail end 1 unknown modem type: \%1
- }
- xif not equal {\v(line)} {\%2} { ; Communication device
- set line \%2
- if fail end 1 can't open device: \%2
- }
- xif not equal {\v(speed)} {\%3} { ; Communication speed
- set speed \%3
- if fail end 1 unsupported speed: \%3
- }
- dial \%4 ; Dial the number
- if fail end 1 Can't place call: \%4
- end 0 Connection successful.
-}
-
-COMMENT - TCPCALL macro. Arguments:
-;
-; \%1 = server name:port
-; \%2 = modem type
-; \%3 = phone number
-;
-def TCPCALL {
- if < \v(argc) 4 - ; All arguments present?
- end 1 Usage: TCPCALL server[:port] modem number
- set net type tcp/ip ; Which network to use
- if fail end 1 unsupported network: tcp/ip
- set host \%1 ; Access server and port
- if fail end 1 can't access server \%1
- set modem \%2 ; Set modem type
- if fail end 1 unknown modem type: \%2
- dial \%3 ; Dial the number
- if fail end 1 Can't place call: \%3
- end 0 Connection successful.
-}
-
-COMMENT - SPRINT macro. Arguments:
-; \%1 = Service name or address
-;
-def SPRINT {
- if < \v(argc) 2 end 1 Usage: \%0 service
- set input timeout proceed
- output @D\13
- input 10 TERMINAL=
- if fail end 1 No terminal prompt
- out D1\13
- inp 10 @
- if fail end 1 No atsign prompt
- output c \%1\13
- input 10 CONNECTED
- if fail end 1 Can't access \%1 from SprintNet
-}
-
-COMMENT - ULOGIN macro. For logging into systems where user ID is required
-; but there is no password. Arguments:
-; \%1 = UNIX user ID
-;
-define ULOGIN {
- if < \v(argc) 2 end 1 Usage: \%0 userid
- set input timeout proceed ; Handle timeouts ourselves
- set case on ; Case is important in UNIX
- minput 5 login: Username: {User ID:} {User Name:}
- out \%1\13 ; Send username, carriage return
- end 0
-}
-
-COMMENT - VMSLOGIN macro. Arguments:
-; \%1 = VMS user ID
-; \%2 = Password. If password not supplied, it is prompted for.
-; \%3 = System prompt. If omitted a default is supplied.
-;
-define VMSLOGIN {
- if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
- while not defined \%2 {
- askq \%2 { \%1's password: }
- }
- set parity none ; Set communication parameters
- set duplex full
- set handshake none
- set input timeout proceed ; Handle timeouts ourselves
- in 5 Username: ; Is prompt already there?
- xif fail { ; No.
- for \%i 1 3 1 { ; Try 3 times to get it.
- out \13 ; Send carriage return
- in 5 Username: ; Look for prompt
- if success break ; Success, go log in
- }
- if > \%i 3 end 1 No Username prompt
- }
- out \%1\13 ; Send username, carriage return
- inp 5 Password: ; Wait 5 sec for this prompt
- if fail end 1 No password prompt
- pause ; Wait a sec
- out \%2\13 ; Send password
- xif not emulation { ; No emulator built in?
- set input echo off ; Protect terminal from this
- minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
- xif success { ; Got one
- output \27[\?1c ; Send VT100 terminal ID
- in 2 \27[6n ; Screen dimension query?
- if succ out \27[\v(rows);\v(cols)R ; Send dimensions
- }
- set input echo on ; Echo input again
- }
- if not def \%3 - ; If we were not given a prompt
- asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
- if not def \%3 - ; If we still don't have a prompt
- asg \%3 {\13$\32} ; use this one as the default
- reinp 0 \%3 ; Did we INPUT the prompt already?
- if fail inp 60 \%3 ; No, look now.
- if fail end 1
-}
-
-COMMENT - UNIXLOGIN macro. Arguments:
-; \%1 = UNIX user ID
-; \%2 = Password. If password not supplied, it is prompted for.
-; \%3 = System prompt. If omitted a default is supplied.
-;
-define UNIXLOGIN {
- local \%m \%i
- if < \v(argc) 2 -
- end 1 Usage: \%0 userid [ password [ prompt ] ]
- while not defined \%2 {
- askq \%2 { \%1's password: }
- }
- set input echo on
- set parity none ; Set communication parameters.
- set duplex full
- set handshake none
- set input timeout proceed ; Handle timeouts ourselves
- set case on ; Case is important in UNIX
- def \%m 10 ; Waiting time for INPUT
- for \%i 1 5 1 {
- minput \%m login: {ssword:} {Password for \%1:}
- if success break
- output \B\13
- \%m ::= 6-\%1
- }
- if > \%i 5 end 1 {No response from host}
- xif = \v(minput) 1 { ; Have username prompt
- output \%1\13 ; Send username
- minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
- if fail end 1 {No password prompt}
- }
- pause ; Wait a sec
- out \%2\13 ; Send password
- if not def \%3 - ; If we were not given a prompt
- asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
- if not def \%3 - ; If we still don't have a prompt
- asg \%3 {\10$ } ; use this one as the default
- reinp 0 \%3 ; Did we INPUT the prompt already?
- if fail inp 60 \%3 ; No, look now.
- if fail end 1
-}
-
-COMMENT - VMLINELOGIN macro. Arguments:
-; \%1 = User ID
-; \%2 = Password
-;
-define VMLINELOGIN {
- if < \v(argc) 2 -
- end 1 Usage: \%0 userid [ password ]
- while not defined \%2 {
- askq \%2 { \%1's password: }
- }
- set parity mark ; Set communication parameters
- set flow none
- set handshake xon
- set duplex half
- set input timeout quit ; Don't bother with IF FAILURE
- input 10 BREAK KEY ; Look for BREAK KEY prompt
- pause 1 ; Wait a second
- output \B ; Send BREAK
- input 10 .\17, output logon \%1\13 ; Now log in
- input 10 .\17, output \%2\13 ; Send password
- input 10 .\17, output \13 ; Send carriage return
- input 10 .\17, output \13 ; Send another one
- end 0
-}
-
-COMMENT - VMFULLOGIN macro. Arguments:
-; \%1 = User ID
-; \%2 = Password
-;
-define VMFULLOGIN {
- if < \v(argc) 2 -
- end 1 Usage: \%0 userid [ password ]
- while not defined \%2 {
- askq \%2 { \%1's password: }
- }
- set input timeout quit ; Quit if INPUT fails
- set parity even ; Set communication parameters
- set duplex full
- set handshake none
- set flow xon/xoff
- out \13 ; Send carriage return
- inp 5 TERMINAL TYPE: ; Get terminal-type prompt
- out vt-100\13 ; Just send "vt-100"
- inp 20 RUNNING ; Get RUNNING message
- pau 1 ; Wait one second
- out \%1\9\%2\13 ; Send user ID, tab, password
- out \13\13 ; Two more carriage returns
- end 0
-}
-
-COMMENT - CISLOGIN macro. Arguments:
-; \%1 = CompuServe User ID
-; \%2 = Password
-; \%3 = Prompt
-;
-define CISLOGIN {
- if < \v(argc) 2 -
- end 1 Usage: \%0 userid [ password [ prompt ] ]
- while not defined \%2 {
- askq \%2 { \%1's password: }
- }
- set terminal bytesize 7 ; No 8-bit characters
- set input timeout quit ; Skip the IF FAILURE's
- output \13 ; Send initial carriage return
- input 5 Host Name: ; Look for Host Name prompt
- output cis\13 ; Send "cis" and carriage return
- input 5 User ID: ; Look for User ID prompt
- output \%1\13 ; Send ID and carriage return
- input Password: ; Look for Password prompt
- output \%2\13 ; Send password and CR
- if not def \%3 asg \%3 \v(prompt)
- if not def \%3 asg \%3 {CompuServe Information Service}
- input 30 \%3
- end 0
-}
-
-COMMENT - DOWLOGIN macro. Arguments:
-; \%1 = Dow Jones Password
-;
-define DOWLOGIN {
- while not defined \%1 { ; Get password
- askq \%1 { Dow Jones password: }
- }
- set input timeout proceed
- input 20 SERVICE PLEASE\?\?\?\? ; Look for Dow prompt
- if fail end 1 No service prompt
- out djnr\13 ; Select DJNR
- input 10 @@@@@@@@ ; Get password prompt
- if fail end 1 No password prompt
- pause 1 ; Wait a second, then...
- output \%1\13 ; send password and CR
- input 30 ENTER QUERY ; Get DJNR query prompt
- if fail end 1 No main query prompt
- pause 1
-}
-
-COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
-;
-def djnrsprint sprint dow, if success dowlogin
-
-COMMENT - NOLOGIN macro. Does nothing. Use when login not required.
-;
-def nologin comment
-
-:CUSTOM ; Customization file
-
-; In VMS and OpenVMS, allow for system-wide site customizations
-
-xif equal "\v(system)" "VMS" {
- xif exist CKERMIT_INI:CKERMIT.SYS {
- echo Executing CKERMIT_INI:CKERMIT.SYS
- take CKERMIT_INI:CKERMIT.SYS
- }
-}
-
-; Execute user's personal customization file
-
-xif exist \m(_myinit) { ; If it exists,
- echo Executing \m(_myinit)... ; print message,
- take \m(_myinit) ; and TAKE the file.
-}
-
-; Finish up with traditional greeting.
-
-if < \v(ntime) 43200 echo Good Morning!
- else if < \v(ntime) 61200 echo Good Afternoon!
- else echo Good Evening.
-
-End ; of C-Kermit 8.0 initialization file.
+echo
+echo The very long standard initialization file that was distributed
+echo with C-Kermit 6, 7, and 8 is no longer recommended as "standard",
+echo since its features were little used. It is still available in
+echo the C-Kermit distribution as ockermit.ini.
+echo
- [ [1]Contents ] [ [2]C-Kermit ] [ [3]Kermit Home ]
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
- Supplement to Using C-Kermit, Second Edition
+Supplement to [11]Using C-Kermit , 2nd Edition
For C-Kermit 7.0
As of C-Kermit version: 7.0.196
-This file last updated: 8 February 2000
+This file created: 8 February 2000
+This file last updated:
+Mon Aug 8 10:39:18 2011
+
Authors: Frank da Cruz and Christine M. Gianone
Address: The Kermit Project
New York NY 10025-7799
USA
Fax: +1 (212) 662-6442
-E-Mail: [4]kermit-support@columbia.edu
-Web: [5]http://www.columbia.edu/kermit/
-Or: [6]http://www.kermit-project.org/
-Or: [7]http://www.columbia.nyc.ny.us/kermit/
- _________________________________________________________________
+E-Mail: [12]kermit-support@columbia.edu
+Web: [13]http://www.columbia.edu/kermit/
+Or: [14]http://www.kermit-project.org/
+Or: [15]http://www.columbia.nyc.ny.us/kermit/
- NOTICES
+NOTICES
This document:
Copyright © 1997, 2000, Frank da Cruz and Christine M. Gianone.
C-Kermit:
Copyright © 1985, 2000,
Trustees of Columbia University in the City of New York. All
- rights reserved. See the C-Kermit [8]COPYING.TXT file or the
- copyright text in the [9]ckcmai.c module for disclaimer and
+ rights reserved. See the C-Kermit [16]COPYING.TXT file or the
+ copyright text in the [17]ckcmai.c module for disclaimer and
permissions.
When Kerberos(TM) and/or SRP(TM) (Secure Remote Password) and/or SSL
California.
Portions Copyright © 1991, 1992, 1993, 1994, 1995 by AT&T.
Portions Copyright © 1997, Stanford University.
- Portions Copyright © 1995-1997, Eric Young
- <eay@cryptosoft.com>.
+ Portions Copyright © 1995-1997, Eric Young <eay@cryptosoft.com>.
For the full text of the third-party copyright notices, see
- [10]Appendix V.
- _________________________________________________________________
+ [18]Appendix V.
- WHAT IS IN THIS FILE
+WHAT IS IN THIS FILE
This file lists changes made to C-Kermit since the second edition of
- the book [11]Using C-Kermit was published and C-Kermit 6.0 was
- released in November 1996. Use this file as a supplement to the second
- edition of Using C-Kermit until the third edition is published some
- time in 2000. If the "most recent update" shown above is long ago,
- contact Columbia University to see if there is a newer release.
+ the book [19]Using C-Kermit was published and C-Kermit 6.0 was released
+ in November 1996. Use this file as a supplement to the second edition
+ of Using C-Kermit until the third edition is published some time in
+ 2000. If the "most recent update" shown above is long ago, contact
+ Columbia University to see if there is a newer release.
- For further information, also see the [12]CKCBWR.TXT ("C-Kermit
+ For further information, also see the [20]CKCBWR.TXT ("C-Kermit
beware") file for hints, tips, tricks, restrictions, frequently asked
questions, etc, plus the system-specific "beware file", e.g.
- [13]CKUBWR.TXT for UNIX, [14]CKVBWR.TXT for VMS, etc, and also any
- system-specific update files such as KERMIT95.HTM for Kermit 95 (in
- the DOCS\MANUAL\ subdirectory of your K95 directory).
+ [21]CKUBWR.TXT for UNIX, [22]CKVBWR.TXT for VMS, etc, and also any
+ system-specific update files such as KERMIT95.HTM for Kermit 95 (in the
+ DOCS\MANUAL\ subdirectory of your K95 directory).
This Web-based copy of the C-Kermit 7.0 update notes supersedes the
plain-text CKERMIT2.TXT file. All changes after 19 January 2000
appear only here in the Web version. If you need an up-to-date
plain-text copy, use your Web browser to save this page as plain
- text.
- _________________________________________________________________
+ text.
- ABOUT FILENAMES
+ABOUT FILENAMES
In this document, filenames are generally shown in uppercase, but on
file systems with case-sensitive names such as UNIX, OS-9, and AOS/VS,
- lowercase names are used: [15]ckubwr.txt, [16]ckermit70.txt, etc.
- _________________________________________________________________
+ lowercase names are used: [23]ckubwr.txt, [24]ckermit70.txt, etc.
- ADDITIONAL FILES
+ADDITIONAL FILES
Several other files accompany this new Kermit release:
Discussion of Kermit's new authentication and encryption
features:
- + [17]Plain-text version
- + [18]HTML (hypertext) version
+ + [25]Plain-text version
+ + [26]HTML (hypertext) version
IKSD.TXT
How to install and manage an Internet Kermit Service Daemon.
- + [19]Plain-text version
- + [20]HTML (hypertext) version
+ + [27]Plain-text version
+ + [28]HTML (hypertext) version
- Also see [21]cuiksd.htm for instructions for use.
+ Also see [29]cuiksd.htm for instructions for use.
TELNET.TXT
- A thorough presentation of Kermit's new advanced Telnet
- features and controls.
+ A thorough presentation of Kermit's new advanced Telnet features
+ and controls.
- + [22]Plain-text version
- + [23]HTML (hypertext) version
- _________________________________________________________________
+ + [30]Plain-text version
+ + [31]HTML (hypertext) version
- THE NEW C-KERMIT LICENSE
+THE NEW C-KERMIT LICENSE
The C-Kermit license was rewritten for version 7.0 to grant automatic
permission to packagers of free operating-system distributions to
include C-Kermit 7.0. Examples include Linux (GNU/Linux), FreeBSD,
- NetBSD, etc. The new license is in the [24]COPYING.TXT file, and is
+ NetBSD, etc. The new license is in the [32]COPYING.TXT file, and is
also displayed by C-Kermit itself when you give the VERSION or
COPYRIGHT command. The new C-Kermit license does not apply to
- [25]Kermit 95.
- _________________________________________________________________
+ [33]Kermit 95.
- ACKNOWLEDGMENTS
+ACKNOWLEDGMENTS
Thanks to Jeff Altman, who joined the Kermit Project in 1995, for much
of what you see in C-Kermit 7.0, especially in the networking and
Internet Kermit Service Daemon. And special thanks to Lucas Hart for
lots of help with the VMS version; to Peter Eichhorn for continuous
testing on the full range of HP-UX versions and for a consolidated set
- of HP-UX makefile targets; and to Colin Allen, Mark Allen, Roger
- Allen, Ric Anderson, William Bader, Mitch Baker, Mitchell Bass, Nelson
- Beebe, Gerry Belanger, Jeff Bernsten, Mark Berryman, John Bigg, Volker
+ of HP-UX makefile targets; and to Colin Allen, Mark Allen, Roger Allen,
+ Ric Anderson, William Bader, Mitch Baker, Mitchell Bass, Nelson Beebe,
+ Gerry Belanger, Jeff Bernsten, Mark Berryman, John Bigg, Volker
Borchert, Jonathan Boswell, Tim Boyer, Frederick Bruckman, Kenneth
Cochran, Jared Crapo, Bill Delaney, Igor Sobrado Delgado, Clarence
Dold, Joe Doupnik, John Dunlap, Max Evarts, Patrick French, Carl
Kevin Handy, Andy Harper, Randolph Herber, Sven Holström, Michal
Jaegermann, Graham Jenkins, Dick Jones, Terry Kennedy, Robert D Keys,
Nick Kisseberth, Igor Kovalenko, David Lane, Adam Laurie, Jeff
- Liebermann, Eric Lonvick, Hoi Wan Louis, Arthur Marsh, Gregorie
- Martin, Peter Mauzey, Dragan Milicic, Todd Miller, Christian Mondrup,
- Daniel Morato, Dat Nguyen, Herb Peyerl, Jean-Pierre Radley, Steve
- Rance, Stephen Riehm, Nigel Roles, Larry Rosenman, Jay S Rouman, David
+ Liebermann, Eric Lonvick, Hoi Wan Louis, Arthur Marsh, Gregorie Martin,
+ Peter Mauzey, Dragan Milicic, Todd Miller, Christian Mondrup, Daniel
+ Morato, Dat Nguyen, Herb Peyerl, Jean-Pierre Radley, Steve Rance,
+ Stephen Riehm, Nigel Roles, Larry Rosenman, Jay S Rouman, David
Sanderson, John Santos, Michael Schmitz, Steven Schultz, Bob Shair,
Richard Shuford, Fred Smith, Michael Sokolov, Jim Spath, Peter Szell,
Ted T'so, Brian Tillman, Linus Torvalds, Patrick Volkerding, Martin
- Vorländer, Steve Walton, Ken Weaverling, John Weekley, Martin
- Whitaker, Jim Whitby, Matt Willman, Joellen Windsor, Farrell Woods,
- and many others for binaries, hosting, reviews, suggestions, advice,
- bug reports, and all the rest over the 3+ year C-Kermit 7.0
- development cycle. Thanks to Russ Nelson and the board of the Open
- Software Initiative ([26]http://www.opensource.org) for their
- cooperation in developing the new C-Kermit license and to the
- proprietors of those free UNIX distributions that have incorporated
- C-Kermit 7.0 for their cooperation and support, especially FreeBSD's
- Jörg Wunsch.
- _________________________________________________________________
-
- NOTE TO KERMIT 95 USERS
+ Vorländer, Steve Walton, Ken Weaverling, John Weekley, Martin Whitaker,
+ Jim Whitby, Matt Willman, Joellen Windsor, Farrell Woods, and many
+ others for binaries, hosting, reviews, suggestions, advice, bug
+ reports, and all the rest over the 3+ year C-Kermit 7.0 development
+ cycle. Thanks to Russ Nelson and the board of the Open Software
+ Initiative ([34]http://www.opensource.org) for their cooperation in
+ developing the new C-Kermit license and to the proprietors of those
+ free UNIX distributions that have incorporated C-Kermit 7.0 for their
+ cooperation and support, especially FreeBSD's Jörg Wunsch.
+
+NOTE TO KERMIT 95 USERS
Kermit 95 and C-Kermit share the same command and scripting language,
the same Kermit file-transfer protocol implementation, and much else
besides.
- Like the book [27]Using C-Kermit, this file concentrates on the
- aspects of C-Kermit that are common to all versions: UNIX, VMS,
- Windows, OS/2, VOS, AOS/VS, etc. Please refer to your Kermit 95
- documentation for information that is specific to Kermit 95.
+ Like the book [35]Using C-Kermit, this file concentrates on the aspects
+ of C-Kermit that are common to all versions: UNIX, VMS, Windows, OS/2,
+ VOS, AOS/VS, etc. Please refer to your Kermit 95 documentation for
+ information that is specific to Kermit 95.
C-Kermit 7.0 corresponds to Kermit 95 1.1.19.
- _________________________________________________________________
- C-KERMIT VERSIONS AND VERSION NUMBERS
+C-KERMIT VERSIONS AND VERSION NUMBERS
"C-Kermit" refers to all the many programs that are compiled in whole
or in part from common C-language source code, comprising:
* A character-set translation module.
and several others. These "system-independent" modules are combined
- with system-dependent modules for each platform to provide the
- required input/output functions, and also in some cases overlaid with
- an alternative user interface, such as Macintosh Kermit's
- point-and-click interface, and in some cases also a terminal emulator,
- as Kermit 95.
+ with system-dependent modules for each platform to provide the required
+ input/output functions, and also in some cases overlaid with an
+ alternative user interface, such as Macintosh Kermit's point-and-click
+ interface, and in some cases also a terminal emulator, as Kermit 95.
The C-Kermit version number started as 1.0, ... 3.0, 4.0, 4.1 and then
(because of confusion at the time with Berkeley UNIX 4.2), 4B, 4C, and
so on, with the specific edit number in parentheses, for example
4E(072) or 5A(188). This scheme was used through 5A(191), but now we
- have gone back to the traditional numbering scheme with decimal
- points: major.minor.edit; for example 7.0.196. Internal version
- numbers (the \v(version) variable), however, are compatible in
- C-Kermit 5A upwards.
+ have gone back to the traditional numbering scheme with decimal points:
+ major.minor.edit; for example 7.0.196. Internal version numbers (the
+ \v(version) variable), however, are compatible in C-Kermit 5A upwards.
- Meanwhile, C-Kermit derivatives for some platforms (Windows,
- Macintosh) might go through several releases while C-Kermit itself
- remains the same. These versions have their own platform-specific
- version numbers, such as Kermit 95 1.1.1, 1.1.2, and so on.
+ Meanwhile, C-Kermit derivatives for some platforms (Windows, Macintosh)
+ might go through several releases while C-Kermit itself remains the
+ same. These versions have their own platform-specific version numbers,
+ such as Kermit 95 1.1.1, 1.1.2, and so on.
C-Kermit Version History:
(*) Never formally released (4.0 was a total rewrite)
(1) Using C-Kermit, 1st Edition
(2) Using C-Kermit, 2nd Edition
- _________________________________________________________________
CONTENTS
- I. [28]C-KERMIT DOCUMENTATION
-
- II. [29]NEW FEATURES
-
- (0) [30]INCOMPATIBILITIES WITH PREVIOUS RELEASES
- (1) [31]PROGRAM AND FILE MANAGEMENT AND COMMANDS
- 1.0. [32]Bug fixes
- 1.1. [33]Command Continuation
- 1.2. [34]Editor Interface
- 1.3. [35]Web Browser and FTP Interface
- 1.4. [36]Command Editing
- 1.5. [37]Command Switches
- 1.5.1. [38]General Switch Syntax
- 1.5.2. [39]Order and Effect of Switches
- 1.5.3. [40]Distinguishing Switches from Other Fields
- 1.5.4. [41]Standard File Selection Switches
- 1.5.5. [42]Setting Preferences for Different Commands
- 1.6. [43]Dates and Times
- 1.7. [44]Partial Completion of Keywords
- 1.8. [45]Command Recall
- 1.9. [46]EXIT Messages
- 1.10. [47]Managing Keyboard Interruptions
- 1.11. [48]Taming the Wild Backslash -- Part Deux
- 1.11.1. [49]Background
- 1.11.2. [50]Kermit's Quoting Rules
- 1.11.3. [51]Passing DOS Filenames from Kermit to Shell Commands
- 1.11.4. [52]Using Variables to Hold DOS Filenames
- 1.11.5. [53]Passing DOS Filenames as Parameters to Macros
- 1.11.6. [54]Passing DOS File Names from Macro Parameters to the
-DOS Shell
- 1.11.7. [55]Passing DOS Filenames to Kermit from the Shell
- 1.12. [56]Debugging
- 1.13. [57]Logs
- 1.14. [58]Automatic File-Transfer Packet Recognition at the Command Pr
-ompt
- 1.15. [59]The TYPE Command
- 1.16. [60]The RESET Command
- 1.17. [61]The COPY and RENAME Commands
- 1.18. [62]The MANUAL Command
- 1.19. [63]String and Filename Matching Patterns
- 1.20. [64]Multiple Commands on One Line
- 1.21. [65]What Do I Have?
- 1.22. [66]Generalized File Input and Output
- 1.22.1. [67]Why Another I/O System?
- 1.22.2. [68]The FILE Command
- 1.22.3. [69]FILE Command Examples
- 1.22.4. [70]Channel Numbers
- 1.22.5. [71]FILE Command Error Codes
- 1.22.6. [72]File I/O Variables
- 1.22.7. [73]File I/O Functions
- 1.22.8. [74]File I/O Function Examples
- 1.23. [75]The EXEC Command
- 1.24. [76]Getting Keyword Lists with '?'
- (2) [77]MAKING AND USING CONNECTIONS
- 2.0. [78]SET LINE and SET HOST Command Switches
- 2.1. [79]Dialing
- 2.1.1. [80]The Dial Result Message
- 2.1.2. [81]Long-Distance Dialing Changes
- 2.1.3. [82]Forcing Long-Distance Dialing
- 2.1.4. [83]Exchange-Specific Dialing Decisions
- 2.1.5. [84]Cautions about Cheapest-First Dialing
- 2.1.6. [85]Blind Dialing (Dialing with No Dialtone)
- 2.1.7. [86]Trimming the Dialing Dialog
- 2.1.8. [87]Controlling the Dialing Speed
- 2.1.9. [88]Pretesting Phone Number Conversions
- 2.1.10. [89]Greater Control over Partial Dialing
- 2.1.11. [90]New DIAL-related Variables and Functions
- 2.1.12. [91]Increased Flexibility of PBX Dialing
- 2.1.13. [92]The DIAL macro - Last-Minute Phone Number Conversions
- 2.1.14. [93]Automatic Tone/Pulse Dialing Selection
- 2.1.15. [94]Dial-Modifier Variables
- 2.1.16. [95]Giving Multiple Numbers to the DIAL Command
- 2.2. [96]Modems
- 2.2.1. [97]New Modem Types
- 2.2.2. [98]New Modem Controls
- 2.3. [99]TELNET and RLOGIN
- 2.3.0. [100]Bug Fixes
- 2.3.1. [101]Telnet Binary Mode Bug Adjustments
- 2.3.2. [102]VMS UCX Telnet Port Bug Adjustment
- 2.3.3. [103]Telnet New Environment Option
- 2.3.4. [104]Telnet Location Option
- 2.3.5. [105]Connecting to Raw TCP Sockets
- 2.3.6. [106]Incoming TCP Connections
- 2.4. [107]The EIGHTBIT Command
- 2.5. [108]The Services Directory
- 2.6. [109]Closing Connections
- 2.7. [110]Using C-Kermit with External Communication Programs
- 2.7.0. [111]C-Kermit over tn3270 and tn5250
- 2.7.1. [112]C-Kermit over Telnet
- 2.7.2. [113]C-Kermit over Rlogin
- 2.7.3. [114]C-Kermit over Serial Communication Programs
- 2.7.4. [115]C-Kermit over Secure Network Clients
- 2.7.4.1. [116]SSH
- 2.7.4.2. [117]SSL
- 2.7.4.3. [118]SRP
- 2.7.4.4. [119]SOCKS
- 2.7.4.5. [120]Kerberos and SRP
- 2.8. [121]Scripting Local Programs
- 2.9. [122]X.25 Networking
- 2.9.1. [123]IBM AIXLink/X.25 Network Provider Interface for AIX
- 2.9.2. [124]HP-UX X.25
- 2.10. [125]Additional Serial Port Controls
- 2.11. [126]Getting Access to the Dialout Device
- 2.12. [127]The Connection Log
- 2.13. [128]Automatic Connection-Specific Flow Control Selection
- 2.14. [129]Trapping Connection Establishment and Loss
- 2.15. [130]Contacting Web Servers with the HTTP Command
- (3) [131]TERMINAL CONNECTION
- 3.1. [132]CONNECT Command Switches
- 3.2. [133]Triggers
- 3.3. [134]Transparent Printing
- 3.4. [135]Binary and Text Session Logs
- (4) [136]FILE TRANSFER AND MANAGEMENT
- 4.0. [137]Bug Fixes, Minor Changes, and Clarifications
- 4.1. [138]File-Transfer Filename Templates
- 4.1.1. [139]Templates in the As-Name
- 4.1.2. [140]Templates on the Command Line
- 4.1.3. [141]Post-Transfer Renaming
- 4.2. [142]File-Transfer Pipes and Filters
- 4.2.1. [143]Introduction
- 4.2.1.1. [144]Terminology
- 4.2.1.2. [145]Notation
- 4.2.1.3. [146]Security
- 4.2.2. [147]Commands for Transferring from and to Pipes
- 4.2.2.1. [148]Sending from a Command
- 4.2.2.2. [149]Receiving to a Command
- 4.2.3. [150]Using File-Transfer Filters
- 4.2.3.1. [151]The SEND Filter
- 4.2.3.2. [152]The RECEIVE Filter
- 4.2.4. [153]Implicit Use of Pipes
- 4.2.5. [154]Success and Failure of Piped Commands
- 4.2.6. [155]Cautions about Using Pipes to Transfer Directory Trees
- 4.2.7. [156]Pipes and Encryption
- 4.2.8. [157]Commands and Functions Related to Pipes
- 4.2.8.1. [158]The OPEN !READ and OPEN !WRITE Commands
- 4.2.8.2. [159]The REDIRECT Command
- 4.2.8.3. [160]Receiving Mail and Print Jobs
- 4.2.8.4. [161]Pipe-Related Functions
- 4.3. [162]Automatic Per-File Text/Binary Mode Switching
- 4.3.1. [163]Exceptions
- 4.3.2. [164]Overview
- 4.3.3. [165]Commands
- 4.3.4. [166]Examples
- 4.4. [167]File Permissions
- 4.4.1. [168]When ATTRIBUTES PROTECTION is OFF
- 4.4.1.1. [169]Unix
- 4.4.1.2. [170]VMS
- 4.4.2. [171]When ATTRIBUTES PROTECTION is ON
- 4.4.2.1. [172]System-Specific Permissions
- 4.4.2.1.1. [173]UNIX
- 4.4.2.1.2. [174]VMS
- 4.4.2.2. [175]System-Independent Permissions
- 4.5. [176]File Management Commands
- 4.5.1. [177]The DIRECTORY Command
- 4.5.2. [178]The CD and BACK Commands
- 4.5.2.1. [179]Parsing Improvements
- 4.5.2.2. [180]The CDPATH
- 4.5.3. [181]Creating and Removing Directories
- 4.5.4. [182]The DELETE and PURGE Commands
- 4.6. [183]Starting the Remote Kermit Server Automatically
- 4.7. [184]File-Transfer Command Switches
- 4.7.1. [185]SEND Command Switches
- 4.7.2. [186]GET Command Switches
- 4.7.3. [187]RECEIVE Command Switches
- 4.8. [188]Minor Kermit Protocol Improvements
- 4.8.1. [189]Multiple Attribute Packets
- 4.8.2. [190]Very Short Packets
- 4.9. [191]Wildcard / File Group Expansion
- 4.9.1. [192]In UNIX C-Kermit
- 4.9.2. [193]In Kermit 95
- 4.9.3. [194]In VMS, AOS/VS, OS-9, VOS, etc.
- 4.10. [195]Additional Pathname Controls
- 4.11. [196]Recursive SEND and GET: Transferring Directory Trees
- 4.11.1. [197]Command-Line Options
- 4.11.2. [198]The SEND /RECURSIVE Command
- 4.11.3. [199]The GET /RECURSIVE Command
- 4.11.4. [200]New and Changed File Functions
- 4.11.5. [201]Moving Directory Trees Between Like Systems
- 4.11.6. [202]Moving Directory Trees Between Unlike Systems
- 4.12. [203]Where Did My File Go?
- 4.13. [204]File Output Buffer Control
- 4.14. [205]Improved Responsiveness
- 4.15. [206]Doubling and Ignoring Characters for Transparency
- 4.16. [207]New File-Transfer Display Formats
- 4.17. [208]New Transaction Log Formats
- 4.17.1. [209]The BRIEF Format
- 4.17.2. [210]The FTP Format
- 4.18. [211]Unprefixing NUL
- 4.19. [212]Clear-Channel Protocol
- 4.20. [213]Streaming Protocol
- 4.20.1. [214]Commands for Streaming
- 4.20.2. [215]Examples of Streaming
- 4.20.2.1. [216]Streaming on Socket-to-Socket Connections
- 4.20.2.2. [217]Streaming on Telnet Connections
- 4.20.2.3. [218]Streaming with Limited Packet Length
- 4.20.2.4. [219]Streaming on Dialup Connections
- 4.20.2.5. [220]Streaming on X.25 Connections
- 4.20.3. [221]Streaming - Preliminary Conclusions
- 4.21. [222]The TRANSMIT Command
- 4.22. [223]Coping with Faulty Kermit Implementations
- 4.22.1. [224]Failure to Accept Modern Negotiation Strings
- 4.22.2. [225]Failure to Negotiate 8th-bit Prefixing
- 4.22.3. [226]Corrupt Files
- 4.22.4. [227]Spurious Cancellations
- 4.22.5. [228]Spurious Refusals
- 4.22.6. [229]Failures during the Data Transfer Phase
- 4.22.7. [230]Fractured Filenames
- 4.22.8. [231]Bad File Dates
- 4.23. [232]File Transfer Recovery
- 4.24. [233]FILE COLLISION UPDATE Clarification
- 4.25. [234]Autodownload Improvements
- (5) [235]CLIENT/SERVER
- 5.0. [236]Hints
- 5.1. [237]New Command-Line Options
- 5.2. [238]New Client Commands
- 5.3. [239]New Server Capabilities
- 5.3.1. [240]Creating and Removing Directories
- 5.3.2. [241]Directory Listings
- 5.4. [242]Syntax for Remote Filenames with Embedded Spaces
- 5.5. [243]Automatic Orientation Messages upon Directory Change
- 5.6. [244]New Server Controls
- 5.7. [245]Timeouts during REMOTE HOST Command Execution
- (6) [246]INTERNATIONAL CHARACTER SETS
- 6.0. [247]ISO 8859-15 Latin Alphabet 9
- 6.1. [248]The HP-Roman8 Character Set
- 6.2. [249]Greek Character Sets
- 6.3. [250]Additional Latin-2 Character Sets
- 6.4. [251]Additional Cyrillic Character Sets
- 6.5. [252]Automatic Character-Set Switching
- 6.6. [253]Unicode
- 6.6.1. [254]Overview of Unicode
- 6.6.2. [255]UCS Byte Order
- 6.6.2. [256]UCS Transformation Formats
- 6.6.3. [257]Conformance Levels
- 6.6.4. [258]Relationship of Unicode with Kermit's Other Character Sets
- 6.6.5. [259]Kermit's Unicode Features
- 6.6.5.1. [260]File Transfer
- 6.6.5.2. [261]The TRANSLATE Command
- 6.6.5.3. [262]Terminal Connection
- 6.6.5.4. [263]The TRANSMIT Command
- 6.6.5.5. [264]Summary of Kermit Unicode Commands
- 6.7. [265]Client/Server Character-Set Switching
- (7) [266]SCRIPT PROGRAMMING
- 7.0. [267]Bug Fixes
- 7.1. [268]The INPUT Command
- 7.1.1. [269]INPUT Timeouts
- 7.1.2. [270]New INPUT Controls
- 7.1.3. [271]INPUT with Pattern Matching
- 7.1.4. [272]The INPUT Match Result
- 7.2. [273]New or Improved Built-In Variables
- 7.3. [274]New or Improved Built-In Functions
- 7.4. [275]New IF Conditions
- 7.5. [276]Using More than Ten Macro Arguments
- 7.6. [277]Clarification of Function Call Syntax
- 7.7. [278]Autodownload during INPUT Command Execution
- 7.8. [279]Built-in Help for Functions.
- 7.9. [280]Variable Assignments
- 7.9.1. [281]Assignment Operators
- 7.9.2. [282]New Assignment Commands
- 7.10. [283]Arrays
- 7.10.1. [284]Array Initializers
- 7.10.2. [285]Turning a String into an Array of Words
- 7.10.3. [286]Arrays of Filenames
- 7.10.4. [287]Automatic Arrays
- 7.10.5. [288]Sorting Arrays
- 7.10.6. [289]Displaying Arrays
- 7.10.7. [290]Other Array Operations
- 7.10.8. [291]Hints for Using Arrays
- 7.10.9. [292]Do-It-Yourself Arrays
- 7.10.10. [293]Associative Arrays
- 7.11. [294]OUTPUT Command Improvements
- 7.12. [295]Function and Variable Diagnostics
- 7.13. [296]Return Value of Macros
- 7.14. [297]The ASSERT, FAIL, and SUCCEED Commands.
- 7.15. [298]Using Alarms
- 7.16. [299]Passing Arguments to Command Files
- 7.17. [300]Dialogs with Timed Responses
- 7.18. [301]Increased Flexibility of SWITCH Case Labels
- 7.19. "[302]Kerbang" Scripts
- 7.20. [303]IF and XIF Statement Syntax
- 7.20.1. [304]The IF/XIF Distinction
- 7.20.2. [305]Boolean Expressions (The IF/WHILE Condition)
- 7.21. [306]Screen Formatting and Cursor Control
- 7.22. [307]Evaluating Arithmetic Expressions
- 7.23. [308]Floating-Point Arithmetic
- 7.24. [309]Tracing Script Execution
- 7.25. [310]Compact Substring Notation
- 7.26. [311]New WAIT Command Options
- 7.26.1. [312]Waiting for Modem Signals
- 7.26.2. [313]Waiting for File Events
- 7.27. [314]Relaxed FOR and SWITCH Syntax
- (8) [315]USING OTHER FILE TRANSFER PROTOCOLS
- (9) [316]COMMAND-LINE OPTIONS
- 9.0. [317]Extended-Format Command-Line Options
- 9.1. [318]Command Line Personalities
- 9.2. [319]Built-in Help for Command Line Options
- 9.3. [320]New Command-Line Options
- (10) [321]C-KERMIT AND G-KERMIT
-
-III. [322]APPENDICES
-
-III.1. [323]Character Set Tables
-III.1.1. [324]The Hewlett Packard Roman8 Character Set
-III.1.2. [325]Greek Character Sets
-III.1.2.1. [326]The ISO 8859-7 Latin / Greek Alphabet
-III.1.2.2. [327]The ELOT 927 Character Set
-III.1.2.3. [328]PC Code Page 869
-III.2. [329]Updated Country Codes
-
-IV. [330]ERRATA & CORRIGENDA: Corrections to "Using C-Kermit" 2nd Edition.
-V. [331]ADDITIONAL COPYRIGHT NOTICES
- _________________________________________________________________
+ I. [36]C-KERMIT DOCUMENTATION
+
+ II. [37]NEW FEATURES
+
+ (0) [38]INCOMPATIBILITIES WITH PREVIOUS RELEASES
+ (1) [39]PROGRAM AND FILE MANAGEMENT AND COMMANDS
+ 1.0. [40]Bug fixes
+ 1.1. [41]Command Continuation
+ 1.2. [42]Editor Interface
+ 1.3. [43]Web Browser and FTP Interface
+ 1.4. [44]Command Editing
+ 1.5. [45]Command Switches
+ 1.5.1. [46]General Switch Syntax
+ 1.5.2. [47]Order and Effect of Switches
+ 1.5.3. [48]Distinguishing Switches from Other Fields
+ 1.5.4. [49]Standard File Selection Switches
+ 1.5.5. [50]Setting Preferences for Different Commands
+ 1.6. [51]Dates and Times
+ 1.7. [52]Partial Completion of Keywords
+ 1.8. [53]Command Recall
+ 1.9. [54]EXIT Messages
+ 1.10. [55]Managing Keyboard Interruptions
+ 1.11. [56]Taming the Wild Backslash -- Part Deux
+ 1.11.1. [57]Background
+ 1.11.2. [58]Kermit's Quoting Rules
+ 1.11.3. [59]Passing DOS Filenames from Kermit to Shell Commands
+ 1.11.4. [60]Using Variables to Hold DOS Filenames
+ 1.11.5. [61]Passing DOS Filenames as Parameters to Macros
+ 1.11.6. [62]Passing DOS File Names from Macro Parameters to the D
+OS Shell
+ 1.11.7. [63]Passing DOS Filenames to Kermit from the Shell
+ 1.12. [64]Debugging
+ 1.13. [65]Logs
+ 1.14. [66]Automatic File-Transfer Packet Recognition at the Command Pro
+mpt
+ 1.15. [67]The TYPE Command
+ 1.16. [68]The RESET Command
+ 1.17. [69]The COPY and RENAME Commands
+ 1.18. [70]The MANUAL Command
+ 1.19. [71]String and Filename Matching Patterns
+ 1.20. [72]Multiple Commands on One Line
+ 1.21. [73]What Do I Have?
+ 1.22. [74]Generalized File Input and Output
+ 1.22.1. [75]Why Another I/O System?
+ 1.22.2. [76]The FILE Command
+ 1.22.3. [77]FILE Command Examples
+ 1.22.4. [78]Channel Numbers
+ 1.22.5. [79]FILE Command Error Codes
+ 1.22.6. [80]File I/O Variables
+ 1.22.7. [81]File I/O Functions
+ 1.22.8. [82]File I/O Function Examples
+ 1.23. [83]The EXEC Command
+ 1.24. [84]Getting Keyword Lists with '?'
+ (2) [85]MAKING AND USING CONNECTIONS
+ 2.0. [86]SET LINE and SET HOST Command Switches
+ 2.1. [87]Dialing
+ 2.1.1. [88]The Dial Result Message
+ 2.1.2. [89]Long-Distance Dialing Changes
+ 2.1.3. [90]Forcing Long-Distance Dialing
+ 2.1.4. [91]Exchange-Specific Dialing Decisions
+ 2.1.5. [92]Cautions about Cheapest-First Dialing
+ 2.1.6. [93]Blind Dialing (Dialing with No Dialtone)
+ 2.1.7. [94]Trimming the Dialing Dialog
+ 2.1.8. [95]Controlling the Dialing Speed
+ 2.1.9. [96]Pretesting Phone Number Conversions
+ 2.1.10. [97]Greater Control over Partial Dialing
+ 2.1.11. [98]New DIAL-related Variables and Functions
+ 2.1.12. [99]Increased Flexibility of PBX Dialing
+ 2.1.13. [100]The DIAL macro - Last-Minute Phone Number Conversions
+ 2.1.14. [101]Automatic Tone/Pulse Dialing Selection
+ 2.1.15. [102]Dial-Modifier Variables
+ 2.1.16. [103]Giving Multiple Numbers to the DIAL Command
+ 2.2. [104]Modems
+ 2.2.1. [105]New Modem Types
+ 2.2.2. [106]New Modem Controls
+ 2.3. [107]TELNET and RLOGIN
+ 2.3.0. [108]Bug Fixes
+ 2.3.1. [109]Telnet Binary Mode Bug Adjustments
+ 2.3.2. [110]VMS UCX Telnet Port Bug Adjustment
+ 2.3.3. [111]Telnet New Environment Option
+ 2.3.4. [112]Telnet Location Option
+ 2.3.5. [113]Connecting to Raw TCP Sockets
+ 2.3.6. [114]Incoming TCP Connections
+ 2.4. [115]The EIGHTBIT Command
+ 2.5. [116]The Services Directory
+ 2.6. [117]Closing Connections
+ 2.7. [118]Using C-Kermit with External Communication Programs
+ 2.7.0. [119]C-Kermit over tn3270 and tn5250
+ 2.7.1. [120]C-Kermit over Telnet
+ 2.7.2. [121]C-Kermit over Rlogin
+ 2.7.3. [122]C-Kermit over Serial Communication Programs
+ 2.7.4. [123]C-Kermit over Secure Network Clients
+ 2.7.4.1. [124]SSH
+ 2.7.4.2. [125]SSL
+ 2.7.4.3. [126]SRP
+ 2.7.4.4. [127]SOCKS
+ 2.7.4.5. [128]Kerberos and SRP
+ 2.8. [129]Scripting Local Programs
+ 2.9. [130]X.25 Networking
+ 2.9.1. [131]IBM AIXLink/X.25 Network Provider Interface for AIX
+ 2.9.2. [132]HP-UX X.25
+ 2.10. [133]Additional Serial Port Controls
+ 2.11. [134]Getting Access to the Dialout Device
+ 2.12. [135]The Connection Log
+ 2.13. [136]Automatic Connection-Specific Flow Control Selection
+ 2.14. [137]Trapping Connection Establishment and Loss
+ 2.15. [138]Contacting Web Servers with the HTTP Command
+ (3) [139]TERMINAL CONNECTION
+ 3.1. [140]CONNECT Command Switches
+ 3.2. [141]Triggers
+ 3.3. [142]Transparent Printing
+ 3.4. [143]Binary and Text Session Logs
+ (4) [144]FILE TRANSFER AND MANAGEMENT
+ 4.0. [145]Bug Fixes, Minor Changes, and Clarifications
+ 4.1. [146]File-Transfer Filename Templates
+ 4.1.1. [147]Templates in the As-Name
+ 4.1.2. [148]Templates on the Command Line
+ 4.1.3. [149]Post-Transfer Renaming
+ 4.2. [150]File-Transfer Pipes and Filters
+ 4.2.1. [151]Introduction
+ 4.2.1.1. [152]Terminology
+ 4.2.1.2. [153]Notation
+ 4.2.1.3. [154]Security
+ 4.2.2. [155]Commands for Transferring from and to Pipes
+ 4.2.2.1. [156]Sending from a Command
+ 4.2.2.2. [157]Receiving to a Command
+ 4.2.3. [158]Using File-Transfer Filters
+ 4.2.3.1. [159]The SEND Filter
+ 4.2.3.2. [160]The RECEIVE Filter
+ 4.2.4. [161]Implicit Use of Pipes
+ 4.2.5. [162]Success and Failure of Piped Commands
+ 4.2.6. [163]Cautions about Using Pipes to Transfer Directory Trees
+ 4.2.7. [164]Pipes and Encryption
+ 4.2.8. [165]Commands and Functions Related to Pipes
+ 4.2.8.1. [166]The OPEN !READ and OPEN !WRITE Commands
+ 4.2.8.2. [167]The REDIRECT Command
+ 4.2.8.3. [168]Receiving Mail and Print Jobs
+ 4.2.8.4. [169]Pipe-Related Functions
+ 4.3. [170]Automatic Per-File Text/Binary Mode Switching
+ 4.3.1. [171]Exceptions
+ 4.3.2. [172]Overview
+ 4.3.3. [173]Commands
+ 4.3.4. [174]Examples
+ 4.4. [175]File Permissions
+ 4.4.1. [176]When ATTRIBUTES PROTECTION is OFF
+ 4.4.1.1. [177]Unix
+ 4.4.1.2. [178]VMS
+ 4.4.2. [179]When ATTRIBUTES PROTECTION is ON
+ 4.4.2.1. [180]System-Specific Permissions
+ 4.4.2.1.1. [181]UNIX
+ 4.4.2.1.2. [182]VMS
+ 4.4.2.2. [183]System-Independent Permissions
+ 4.5. [184]File Management Commands
+ 4.5.1. [185]The DIRECTORY Command
+ 4.5.2. [186]The CD and BACK Commands
+ 4.5.2.1. [187]Parsing Improvements
+ 4.5.2.2. [188]The CDPATH
+ 4.5.3. [189]Creating and Removing Directories
+ 4.5.4. [190]The DELETE and PURGE Commands
+ 4.6. [191]Starting the Remote Kermit Server Automatically
+ 4.7. [192]File-Transfer Command Switches
+ 4.7.1. [193]SEND Command Switches
+ 4.7.2. [194]GET Command Switches
+ 4.7.3. [195]RECEIVE Command Switches
+ 4.8. [196]Minor Kermit Protocol Improvements
+ 4.8.1. [197]Multiple Attribute Packets
+ 4.8.2. [198]Very Short Packets
+ 4.9. [199]Wildcard / File Group Expansion
+ 4.9.1. [200]In UNIX C-Kermit
+ 4.9.2. [201]In Kermit 95
+ 4.9.3. [202]In VMS, AOS/VS, OS-9, VOS, etc.
+ 4.10. [203]Additional Pathname Controls
+ 4.11. [204]Recursive SEND and GET: Transferring Directory Trees
+ 4.11.1. [205]Command-Line Options
+ 4.11.2. [206]The SEND /RECURSIVE Command
+ 4.11.3. [207]The GET /RECURSIVE Command
+ 4.11.4. [208]New and Changed File Functions
+ 4.11.5. [209]Moving Directory Trees Between Like Systems
+ 4.11.6. [210]Moving Directory Trees Between Unlike Systems
+ 4.12. [211]Where Did My File Go?
+ 4.13. [212]File Output Buffer Control
+ 4.14. [213]Improved Responsiveness
+ 4.15. [214]Doubling and Ignoring Characters for Transparency
+ 4.16. [215]New File-Transfer Display Formats
+ 4.17. [216]New Transaction Log Formats
+ 4.17.1. [217]The BRIEF Format
+ 4.17.2. [218]The FTP Format
+ 4.18. [219]Unprefixing NUL
+ 4.19. [220]Clear-Channel Protocol
+ 4.20. [221]Streaming Protocol
+ 4.20.1. [222]Commands for Streaming
+ 4.20.2. [223]Examples of Streaming
+ 4.20.2.1. [224]Streaming on Socket-to-Socket Connections
+ 4.20.2.2. [225]Streaming on Telnet Connections
+ 4.20.2.3. [226]Streaming with Limited Packet Length
+ 4.20.2.4. [227]Streaming on Dialup Connections
+ 4.20.2.5. [228]Streaming on X.25 Connections
+ 4.20.3. [229]Streaming - Preliminary Conclusions
+ 4.21. [230]The TRANSMIT Command
+ 4.22. [231]Coping with Faulty Kermit Implementations
+ 4.22.1. [232]Failure to Accept Modern Negotiation Strings
+ 4.22.2. [233]Failure to Negotiate 8th-bit Prefixing
+ 4.22.3. [234]Corrupt Files
+ 4.22.4. [235]Spurious Cancellations
+ 4.22.5. [236]Spurious Refusals
+ 4.22.6. [237]Failures during the Data Transfer Phase
+ 4.22.7. [238]Fractured Filenames
+ 4.22.8. [239]Bad File Dates
+ 4.23. [240]File Transfer Recovery
+ 4.24. [241]FILE COLLISION UPDATE Clarification
+ 4.25. [242]Autodownload Improvements
+ (5) [243]CLIENT/SERVER
+ 5.0. [244]Hints
+ 5.1. [245]New Command-Line Options
+ 5.2. [246]New Client Commands
+ 5.3. [247]New Server Capabilities
+ 5.3.1. [248]Creating and Removing Directories
+ 5.3.2. [249]Directory Listings
+ 5.4. [250]Syntax for Remote Filenames with Embedded Spaces
+ 5.5. [251]Automatic Orientation Messages upon Directory Change
+ 5.6. [252]New Server Controls
+ 5.7. [253]Timeouts during REMOTE HOST Command Execution
+ (6) [254]INTERNATIONAL CHARACTER SETS
+ 6.0. [255]ISO 8859-15 Latin Alphabet 9
+ 6.1. [256]The HP-Roman8 Character Set
+ 6.2. [257]Greek Character Sets
+ 6.3. [258]Additional Latin-2 Character Sets
+ 6.4. [259]Additional Cyrillic Character Sets
+ 6.5. [260]Automatic Character-Set Switching
+ 6.6. [261]Unicode
+ 6.6.1. [262]Overview of Unicode
+ 6.6.2. [263]UCS Byte Order
+ 6.6.2. [264]UCS Transformation Formats
+ 6.6.3. [265]Conformance Levels
+ 6.6.4. [266]Relationship of Unicode with Kermit's Other Character Sets
+ 6.6.5. [267]Kermit's Unicode Features
+ 6.6.5.1. [268]File Transfer
+ 6.6.5.2. [269]The TRANSLATE Command
+ 6.6.5.3. [270]Terminal Connection
+ 6.6.5.4. [271]The TRANSMIT Command
+ 6.6.5.5. [272]Summary of Kermit Unicode Commands
+ 6.7. [273]Client/Server Character-Set Switching
+ (7) [274]SCRIPT PROGRAMMING
+ 7.0. [275]Bug Fixes
+ 7.1. [276]The INPUT Command
+ 7.1.1. [277]INPUT Timeouts
+ 7.1.2. [278]New INPUT Controls
+ 7.1.3. [279]INPUT with Pattern Matching
+ 7.1.4. [280]The INPUT Match Result
+ 7.2. [281]New or Improved Built-In Variables
+ 7.3. [282]New or Improved Built-In Functions
+ 7.4. [283]New IF Conditions
+ 7.5. [284]Using More than Ten Macro Arguments
+ 7.6. [285]Clarification of Function Call Syntax
+ 7.7. [286]Autodownload during INPUT Command Execution
+ 7.8. [287]Built-in Help for Functions.
+ 7.9. [288]Variable Assignments
+ 7.9.1. [289]Assignment Operators
+ 7.9.2. [290]New Assignment Commands
+ 7.10. [291]Arrays
+ 7.10.1. [292]Array Initializers
+ 7.10.2. [293]Turning a String into an Array of Words
+ 7.10.3. [294]Arrays of Filenames
+ 7.10.4. [295]Automatic Arrays
+ 7.10.5. [296]Sorting Arrays
+ 7.10.6. [297]Displaying Arrays
+ 7.10.7. [298]Other Array Operations
+ 7.10.8. [299]Hints for Using Arrays
+ 7.10.9. [300]Do-It-Yourself Arrays
+ 7.10.10. [301]Associative Arrays
+ 7.11. [302]OUTPUT Command Improvements
+ 7.12. [303]Function and Variable Diagnostics
+ 7.13. [304]Return Value of Macros
+ 7.14. [305]The ASSERT, FAIL, and SUCCEED Commands.
+ 7.15. [306]Using Alarms
+ 7.16. [307]Passing Arguments to Command Files
+ 7.17. [308]Dialogs with Timed Responses
+ 7.18. [309]Increased Flexibility of SWITCH Case Labels
+ 7.19. "[310]Kerbang" Scripts
+ 7.20. [311]IF and XIF Statement Syntax
+ 7.20.1. [312]The IF/XIF Distinction
+ 7.20.2. [313]Boolean Expressions (The IF/WHILE Condition)
+ 7.21. [314]Screen Formatting and Cursor Control
+ 7.22. [315]Evaluating Arithmetic Expressions
+ 7.23. [316]Floating-Point Arithmetic
+ 7.24. [317]Tracing Script Execution
+ 7.25. [318]Compact Substring Notation
+ 7.26. [319]New WAIT Command Options
+ 7.26.1. [320]Waiting for Modem Signals
+ 7.26.2. [321]Waiting for File Events
+ 7.27. [322]Relaxed FOR and SWITCH Syntax
+ (8) [323]USING OTHER FILE TRANSFER PROTOCOLS
+ (9) [324]COMMAND-LINE OPTIONS
+ 9.0. [325]Extended-Format Command-Line Options
+ 9.1. [326]Command Line Personalities
+ 9.2. [327]Built-in Help for Command Line Options
+ 9.3. [328]New Command-Line Options
+ (10) [329]C-KERMIT AND G-KERMIT
+
+III. [330]APPENDICES
+
+III.1. [331]Character Set Tables
+III.1.1. [332]The Hewlett Packard Roman8 Character Set
+III.1.2. [333]Greek Character Sets
+III.1.2.1. [334]The ISO 8859-7 Latin / Greek Alphabet
+III.1.2.2. [335]The ELOT 927 Character Set
+III.1.2.3. [336]PC Code Page 869
+III.2. [337]Updated Country Codes
+
+IV. [338]ERRATA & CORRIGENDA: Corrections to "Using C-Kermit" 2nd Edition.
+V. [339]ADDITIONAL COPYRIGHT NOTICES
I. C-KERMIT DOCUMENTATION
The user manual for C-Kermit is:
- Frank da Cruz and Christine M. Gianone, [332]Using C-Kermit, Second
+ Frank da Cruz and Christine M. Gianone, [340]Using C-Kermit, Second
Edition, Digital Press / Butterworth-Heinemann, Woburn, MA, 1997,
622 pages, ISBN 1-55558-164-1.
- [333]CLICK HERE for reviews.
+ [341]CLICK HERE for reviews.
The present document is a supplement to Using C-Kermit 2nd Ed, not a
replacement for it.
bank. Do not include sales tax. Inquire about quantity discounts.
You can also order by phone from the publisher, Digital Press /
- [334]Butterworth-Heinemann, with MasterCard, Visa, or American
- Express:
+ [342]Butterworth-Heinemann, with MasterCard, Visa, or American Express:
+1 800 366-2665 (Woburn, Massachusetts office for USA & Canada)
+44 1865 314627 (Oxford, England distribution centre for UK & Europe)
+65 356-1968 (Singapore office for Asia)
+27 (31) 2683111 (Durban office for South Africa)
- A [335]German-language edition of the First Edition is also available:
+ A [343]German-language edition of the First Edition is also available:
Frank da Cruz and Christine M. Gianone, C-Kermit - Einführung und
Referenz, Verlag Heinz Heise, Hannover, Germany (1994). ISBN
- 3-88229-023-4. Deutsch von Gisbert W. Selke. Price: DM 88,00.
- Verlag Heinz Heise GmbH & Co. KG, Helstorfer Strasse 7, D-30625
- Hannover. Tel. +49 (05 11) 53 52-0, Fax. +49 (05 11) 53 52-1 29.
+ 3-88229-023-4. Deutsch von Gisbert W. Selke. Price: DM 88,00. Verlag
+ Heinz Heise GmbH & Co. KG, Helstorfer Strasse 7, D-30625 Hannover.
+ Tel. +49 (05 11) 53 52-0, Fax. +49 (05 11) 53 52-1 29.
- The [336]Kermit file transfer protocol is specified in:
+ The [344]Kermit file transfer protocol is specified in:
Frank da Cruz, Kermit, A File Transfer Protocol, Digital Press,
Bedford, MA, 1987, 379 pages, ISBN 0-932376-88-6. US single-copy
price: $39.95. Availability as above.
News and articles about Kermit software and protocol are published
- periodically in the journal, [337]Kermit News. Subscriptions are free;
+ periodically in the journal, [345]Kermit News. Subscriptions are free;
contact Columbia University at the address above.
Online news about Kermit is published in the
- [338]comp.protocols.kermit.announce and
- [339]comp.protocols.kermit.misc newsgroups.
- _________________________________________________________________
+ [346]comp.protocols.kermit.announce and [347]comp.protocols.kermit.misc
+ newsgroups.
II. NEW FEATURES
the cover).
Specific changes and additions are grouped together by major topic,
- roughly corresponding to the chapters of [340]Using C-Kermit.
- _________________________________________________________________
+ roughly corresponding to the chapters of [348]Using C-Kermit.
- 0. INCOMPATIBILITIES WITH PREVIOUS RELEASES
+0. INCOMPATIBILITIES WITH PREVIOUS RELEASES
1. C-Kermit 7.0 uses FAST Kermit protocol settings by default. This
includes "unprefixing" of certain control characters. Because of
this, file transfers that worked with previous releases might not
- work in the new release (but it is more likely that they will
- work, and much faster). If a transfer fails, you'll get a
+ work in the new release (but it is more likely that they will work,
+ and much faster). If a transfer fails, you'll get a
context-sensitive hint suggesting possible causes and cures.
Usually SET PREFIXING ALL does the trick.
2. C-Kermit 7.0 transfers files in BINARY mode by default. To restore
7.0 now switches between text and binary mode automatically on a
per-file basis according to various criteria, including (a) which
kind of platform is on the other end of the connection (if known),
- (b) the version of Kermit on the other end, and (c) the file's
- name (see [341]Section 4, especially [342]4.3). To disable this
+ (b) the version of Kermit on the other end, and (c) the file's name
+ (see [349]Section 4, especially [350]4.3). To disable this
automatic switching and restore the earlier behavior, put SET
TRANSFER MODE MANUAL in your C-Kermit initialization file. To
disable automatic switching for a particular transfer, include a
/TEXT or /BINARY switch with your SEND or GET command.
4. The RESEND and REGET commands automatically switch to binary mode;
previously if RESEND or REGET were attempted when FILE TYPE was
- TEXT, these commands would fail immediately, with a message
- telling you they work only when the FILE TYPE is BINARY. Now they
- simply do this for you. See [343]Section 4.23 for additional
- (important) information.
- 5. SET PREFIXING CAUTIOUS and MINIMAL now both prefix linefeed (10
- and 138) in case rlogin, ssh, or cu are "in the middle", since
+ TEXT, these commands would fail immediately, with a message telling
+ you they work only when the FILE TYPE is BINARY. Now they simply do
+ this for you. See [351]Section 4.23 for additional (important)
+ information.
+ 5. SET PREFIXING CAUTIOUS and MINIMAL now both prefix linefeed (10 and
+ 138) in case rlogin, ssh, or cu are "in the middle", since
otherwise <LF>~ might appear in Kermit packets, and this would
- cause rlogin, ssh, or cu to disconnect, suspend,escape back, or
+ cause rlogin, ssh, or cu to disconnect, suspend, escape back, or
otherwise wreck the file transfer. Xon and Xoff are now always
prefixed too, even when Xon/Xoff flow control is not in effect,
since unprefixing them has proven dangerous on TCP/IP connections.
6. In UNIX, VMS, Windows, and OS/2, the DIRECTORY command is built
- into C-Kermit itself rather than implemented by running an
- external command or program. The built-in command might not behave
- the way the platform-specific external one did, but many options
- are available for customization. Of course the underlying
+ into C-Kermit itself rather than implemented by running an external
+ command or program. The built-in command might not behave the way
+ the platform-specific external one did, but many options are
+ available for customization. Of course the underlying
platform-specific command can still be accessed with "!", "@", or
"RUN" wherever the installation does not forbid. In UNIX, the "ls"
command can be accessed directly as "ls" in C-Kermit. See
- [344]Section 4.5.1 for details.
+ [352]Section 4.5.1 for details.
7. SEND ? prints a list of switches rather than a list of filenames.
If you want to see a list of filenames, use a (system-dependent)
construction such as SEND ./? (for UNIX, Windows, or OS/2), SEND
- []? (VMS), etc. See [345]Sections 1.5 and [346]4.7.1.
+ []? (VMS), etc. See [353]Sections 1.5 and [354]4.7.1.
8. In UNIX, OS-9, and Kermit 95, the wildcard characters in previous
versions were * and ?. In C-Kermit 7.0 they are *, ?, [, ], {, and
}, with dash used inside []'s to denote ranges and comma used
inside {} to separate list elements. If you need to include any of
these characters literally in a filename, precede each one with
- backslash (\). See [347]Section 4.9.
+ backslash (\). See [355]Section 4.9.
9. SET QUIET { ON, OFF } is now on the command stack, just like SET
INPUT CASE, SET COUNT, SET MACRO ERROR, etc, as described on p.458
- of [348]Using C-Kermit, 2nd Edition. This allows any macro or
+ of [356]Using C-Kermit, 2nd Edition. This allows any macro or
command file to SET QUIET ON or OFF without worrying about saving
and restoring the global QUIET value. For example, this lets you
write a script that tries SET LINE on lots of devices until it
10. Because of the new "." operator (which introduces assignments),
macros whose names begin with "." can not be invoked "by name".
However, they still can be invoked with DO.
- 11. The syntax of the EVALUATE command has changed. See [349]Section
+ 11. The syntax of the EVALUATE command has changed. See [357]Section
7.9.2. To restore the previous syntax, use SET EVALUATE OLD.
12. The \v(directory) variable now includes the trailing directory
separator; in previous releases it did not. This is to allow
constructions such as:
cd \v(dir)data.tmp
+
to work across platforms that might have different directory
notation, such as UNIX, Windows, and VMS.
13. Prior to C-Kermit 7.0, the FLOW-CONTROL setting was global and
SET LINE/PORT/HOST is likely to be undone. Therefore SET FLOW can
be guaranteed to have the desired effect only if given after the
SET LINE/PORT/HOST command.
- 14. Character-set translation works differently in the TRANSMIT
- command when (a) the file character-set is not the same as the
- local end of the terminal character-set, or (b) when the terminal
- character-set is TRANSPARENT.
- _________________________________________________________________
+ 14. Character-set translation works differently in the TRANSMIT command
+ when (a) the file character-set is not the same as the local end of
+ the terminal character-set, or (b) when the terminal character-set
+ is TRANSPARENT.
- 1. PROGRAM AND FILE MANAGEMENT AND COMMANDS
+1. PROGRAM AND FILE MANAGEMENT AND COMMANDS
- 1.0. Bug Fixes
+1.0. Bug Fixes
The following patches were issued to correct bugs in C-Kermit 6.0.
These are described in detail in the 6.0 PATCHES file. All of these
REDIRECT was missing in many UNIX C-Kermit implementations; in version
7.0, it should be available in all of them.
- _________________________________________________________________
- 1.1. Command Continuation
+1.1. Command Continuation
Comments that start with ";" or "#" can no longer be continued. In:
echo blah
As of version 6.0, backslash is no longer a valid continuation
- character. Only hyphen should be used for command continuation. This
- is to make it possible to issue commands like "cd a:\" on DOS-like
+ character. Only hyphen should be used for command continuation. This is
+ to make it possible to issue commands like "cd a:\" on DOS-like
systems.
As of version 7.0:
* You can quote a final dash to prevent it from being a continuation
character:
echo foo\-
+
This prints "foo-". The command is not continued.
* You can enter commands such as:
echo foo - ; this is a comment
+
interactively and they are properly treated as continued commands.
Previously this worked only in command files.
- _________________________________________________________________
- 1.2. Editor Interface
+1.2. Editor Interface
SET EDITOR name [ options ]
- Lets you specify a text-editing program. The name can be a
- fully specified pathname like /usr/local/bin/emacs19/emacs, or
- it can be the name of any program in your PATH, e.g. "set
- editor emacs". In VMS, it must be a DCL command like "edit",
+ Lets you specify a text-editing program. The name can be a fully
+ specified pathname like /usr/local/bin/emacs19/emacs, or it can
+ be the name of any program in your PATH, e.g. "set editor
+ emacs". In VMS, it must be a DCL command like "edit",
"edit/tpu", "emacs", etc. If an environment variable EDITOR is
- defined when Kermit starts, its value is the default editor.
- You can also specify options to be included on the editor
- command line. Returns to Kermit when the editor exits.
+ defined when Kermit starts, its value is the default editor. You
+ can also specify options to be included on the editor command
+ line. Returns to Kermit when the editor exits.
EDIT [ filename ]
If the EDIT command is given without a filename, then if a
- previous filename had been given to an EDIT command, it is
- used; if not, the editor is started without a file. If a
- filename is given, the editor is started on that file, and the
- filename is remembered for subsequent EDIT commands.
+ previous filename had been given to an EDIT command, it is used;
+ if not, the editor is started without a file. If a filename is
+ given, the editor is started on that file, and the filename is
+ remembered for subsequent EDIT commands.
SHOW EDITOR
Displays the full pathname of your text editor, if any, along
- with any command line options, and the file most recently
- edited (and therefore the default filename for your next EDIT
- command).
+ with any command line options, and the file most recently edited
+ (and therefore the default filename for your next EDIT command).
Related variables: \v(editor), \v(editopts), \v(editfile).
- _________________________________________________________________
- 1.3. Web Browser and FTP Interface
+1.3. Web Browser and FTP Interface
C-Kermit includes an FTP command, which simply runs the FTP program;
C-Kermit does not include any built-in support for Internet File
client:
SET FTP-CLIENT [ name [ options ] ]
- The name is the name of the FTP executable. In UNIX, Windows,
- or OS/2, it can be the filename of any executable program in
- your PATH (e.g. "ftp.exe" in Windows, "ftp" in UNIX); elsewhere
- (or if you do not have a PATH definition), it must be the fully
+ The name is the name of the FTP executable. In UNIX, Windows, or
+ OS/2, it can be the filename of any executable program in your
+ PATH (e.g. "ftp.exe" in Windows, "ftp" in UNIX); elsewhere (or
+ if you do not have a PATH definition), it must be the fully
specified pathname of the FTP program. If the name contains any
spaces, enclose it braces. Include any options after the
filename; these depend the particular ftp client.
The Web browser interface is covered in the following subsections.
- _________________________________________________________________
- 1.3.1. Invoking your Browser from C-Kermit
+1.3.1. Invoking your Browser from C-Kermit
BROWSE [ url ]
Starts your preferred Web browser on the URL, if one is given,
SET BROWSER [ name [ options ] ]
Use this command to specify the name of your Web browser
program, for example: "set browser lynx". The name must be in
- your PATH, or else it must be a fully specified filename; in
- VMS it must be a DCL command.
+ your PATH, or else it must be a fully specified filename; in VMS
+ it must be a DCL command.
SHOW BROWSER
Displays the current browser, options, and most recent URL.
Related variables: \v(browser), \v(browsopts), \v(browsurl).
- Also see [350]Section 2.15: Contacting Web Servers with the HTTP
+ Also see [358]Section 2.15: Contacting Web Servers with the HTTP
Command.
- _________________________________________________________________
- 1.3.2. Invoking C-Kermit from your Browser
+1.3.2. Invoking C-Kermit from your Browser
- The method for doing this depends, of course, on your browser. Here
- are some examples:
+ The method for doing this depends, of course, on your browser. Here are
+ some examples:
Netscape on UNIX (X-based)
In the Options->Applications section, set your Telnet
But none of the above is necessary if you make C-Kermit your default
Telnet client, which you can do by making a symlink called 'telnet' to
- the C-Kermit 7.0 binary. See [351]Section 9.1 for details.
- _________________________________________________________________
+ the C-Kermit 7.0 binary. See [359]Section 9.1 for details.
- 1.4. Command Editing
+1.4. Command Editing
Ctrl-W ("Word delete") was changed in 7.0 to delete back to the
- previous non-alphanumeric, rather than all the way back to the
- previous space.
- _________________________________________________________________
+ previous non-alphanumeric, rather than all the way back to the previous
+ space.
- 1.5. Command Switches
+1.5. Command Switches
As of version 7.0, C-Kermit's command parser supports a new type of
field, called a "switch". This is an optional command modifier.
- 1.5.1. General Switch Syntax
+1.5.1. General Switch Syntax
A switch is a keyword beginning with a slash (/). If it takes a value,
then the value is appended to it (with no intervening spaces),
send /delete/as-name:foo/text oofa.txt
- Does "foo/text" mean the filename is "foo" and the transfer is to be
- in text mode, or does it mean the filename is "foo/text"? Therefore we
+ Does "foo/text" mean the filename is "foo" and the transfer is to be in
+ text mode, or does it mean the filename is "foo/text"? Therefore we
require whitespace between switches to resolve the ambiguity. (That's
- only one of several possible ambiguities -- it is also conceivable
- that a file called "text" exists in the path "/delete/as-name:foo/").
+ only one of several possible ambiguities -- it is also conceivable that
+ a file called "text" exists in the path "/delete/as-name:foo/").
In general, if a switch can take a value, but you omit it, then either
- a reasonable default value is supplied, or an error message is
- printed:
+ a reasonable default value is supplied, or an error message is printed:
send /print:-Plaserwriter oofa.txt ; Value included = print options
send /print oofa.txt ; Value omitted, OK
send /mail oofa.txt ; Not OK - address required
?Address required
- Context-sensitive help (?) and completion (Esc or Tab) are available
- in the normal manner:
+ Context-sensitive help (?) and completion (Esc or Tab) are available in
+ the normal manner:
C-Kermit> send /pr? Switch, one of the following:
/print /protocol
Also, if you type ? in a switch field, switches that take values are
shown with a trailing colon; those that don't take values are shown
without one.
- _________________________________________________________________
- 1.5.2. Order and Effect of Switches
+1.5.2. Order and Effect of Switches
- The order of switches should not matter, except that they are
- evaluated from left to right, so if you give two switches with
- opposite effects, the rightmost one is used:
+ The order of switches should not matter, except that they are evaluated
+ from left to right, so if you give two switches with opposite effects,
+ the rightmost one is used:
send /text /binary oofa.zip ; Sends oofa.zip in binary mode.
- Like other command fields, switches have no effect whatsoever until
- the command is entered (by pressing the Return or Enter key). Even
- then, switches affect only the command with which they are included;
- they do not have global effect or side effects.
- _________________________________________________________________
+ Like other command fields, switches have no effect whatsoever until the
+ command is entered (by pressing the Return or Enter key). Even then,
+ switches affect only the command with which they are included; they do
+ not have global effect or side effects.
- 1.5.3. Distinguishing Switches from Other Fields
+1.5.3. Distinguishing Switches from Other Fields
All switches are optional. A command that uses switches lets you give
any number of them, including none at all. Example:
"/f", so "/f" is ambiguous). Now suppose there is an "f" directory in
the root directory; then this command would be interpreted as:
- Send all the files in the "/f" directory, giving each one an
- as-name of "oofa.txt".
+ Send all the files in the "/f" directory, giving each one an as-name
+ of "oofa.txt".
This could be a mistake, or it could be exactly what you intended;
- C-Kermit has no way of telling the difference. To avoid situations
- like this, spell switches out in full until you are comfortable enough
- with them to know the minimum abbreviation for each one. Hint: use ?
- and completion while typing switches to obtain the necessary feedback.
- _________________________________________________________________
+ C-Kermit has no way of telling the difference. To avoid situations like
+ this, spell switches out in full until you are comfortable enough with
+ them to know the minimum abbreviation for each one. Hint: use ? and
+ completion while typing switches to obtain the necessary feedback.
- 1.5.4. Standard File Selection Switches
+1.5.4. Standard File Selection Switches
The following switches are used on different file-oriented commands
(such as SEND, DIRECTORY, DELETE, PURGE) to refine the selection of
/AFTER:date-time
Select only those files having a date-time later than the one
- given. See [352]Section 1.6 for date-time formats. Synonym:
+ given. See [360]Section 1.6 for date-time formats. Synonym:
/SINCE.
/NOT-AFTER:date-time
(i.e. later or equal to) the one given.
/DOTFILES
- UNIX and OS-9 only: The filespec is allowed to match files
- whose names start with (dot) period. Normally these files are
- not shown.
+ UNIX and OS-9 only: The filespec is allowed to match files whose
+ names start with (dot) period. Normally these files are not
+ shown.
/NODOTFILES
- (UNIX and OS-9 only) Don't show files whose names start with
- dot (period). This is the opposite of /DOTFILES, and is the
- default. Note that when a directory name starts with a period,
- the directory and (in recursive operations) all its
- subdirectories are skipped.
+ (UNIX and OS-9 only) Don't show files whose names start with dot
+ (period). This is the opposite of /DOTFILES, and is the default.
+ Note that when a directory name starts with a period, the
+ directory and (in recursive operations) all its subdirectories
+ are skipped.
/LARGER-THAN:number
Only select files larger than the given number of bytes.
use the /NOBACKUP switch for this).
The pattern matcher is the same one used by IF MATCH string
- pattern ([353]Section 7.4), so you can test your patterns using
+ pattern ([361]Section 7.4), so you can test your patterns using
IF MATCH. If you need to match a literal * or ? (etc), precede
it by a backslash (\). If the pattern contains any spaces, it
must be enclosed in braces:
The pattern can also be a list of up to 8 patterns. In this
case, the entire pattern must be enclosed in braces, and each
- sub-pattern must also be enclosed in braces; this eliminates
- the need for designating a separator character, which is likely
- to also be a legal filename character on some platform or
- other, and therefore a source of confusion. You may include
- spaces between the subpatterns but they are not necessary. The
+ sub-pattern must also be enclosed in braces; this eliminates the
+ need for designating a separator character, which is likely to
+ also be a legal filename character on some platform or other,
+ and therefore a source of confusion. You may include spaces
+ between the subpatterns but they are not necessary. The
following two commands are equivalent:
send /except:{{ck*.o} {ck*.c}} ck*.?
send /except:{{ck*.o}{ck*.c}} ck*.?
- If a pattern is to include a literal brace character, precede
- it with "\". Also note the apparent conflict of this list
- format and the string-list format described in [354]Section
- 4.9.1. In case you want to include a wildcard string-list with
- braces on its outer ends as an /EXCEPT: argument, do it like
- this:
+ If a pattern is to include a literal brace character, precede it
+ with "\". Also note the apparent conflict of this list format
+ and the string-list format described in [362]Section 4.9.1. In
+ case you want to include a wildcard string-list with braces on
+ its outer ends as an /EXCEPT: argument, do it like this:
send /except:{{{ckuusr.c,ckuus2.c,ckuus6.c}}} ckuus*.c
- _________________________________________________________________
- 1.5.5. Setting Preferences for Different Commands
+1.5.5. Setting Preferences for Different Commands
Certain oft-used commands offer lots of switches because different
people have different requirements or preferences. For example, some
people want to be able to delete files without having to watch a list
of the deleted files scroll past, while others want to be prompted for
permission to delete each file. Different people prefer different
- directory-listing styles. And so on. Such commands can be tailored
- with the SET OPTIONS command:
+ directory-listing styles. And so on. Such commands can be tailored with
+ the SET OPTIONS command:
SET OPTIONS command [ switch [ switch [ ... ] ] ]
- Sets each switch as the default for the given command,
- replacing the "factory default". Of course you can also
- override any defaults established by the SET OPTIONS command by
- including the relevant switches in the affected command any
- time you issue it.
+ Sets each switch as the default for the given command, replacing
+ the "factory default". Of course you can also override any
+ defaults established by the SET OPTIONS command by including the
+ relevant switches in the affected command any time you issue it.
SHOW OPTIONS
Lists the commands that allows option-setting, and the options
synonyms are shown under their primary name; for example. /LOG
and /VERBOSE are shown as /LIST.
- Commands for which options may be set include DIRECTORY, DELETE,
- PURGE, and TYPE. Examples:
+ Commands for which options may be set include DIRECTORY, DELETE, PURGE,
+ and TYPE. Examples:
SET OPTIONS DIRECTORY /PAGE /NOBACKUP /HEADING /SORT:DATE /REVERSE
SET OPTIONS DELETE /LIST /NOHEADING /NOPAGE /NOASK /NODOTFILES
Put the desired SET OPTIONS commands in your C-Kermit customization
file for each command whose default switches you want to change every
time you run C-Kermit.
- _________________________________________________________________
- 1.6. Dates and Times
+1.6. Dates and Times
Some commands and switches take date-time values, such as:
12/25/2000 25 December 2000
25/12/2000 25 December 2000
- The last two examples show that when the year comes last, and the
- month is given numerically, the order of the day and month doesn't
- matter as long as the day is 13 or greater (mm/dd/yyyy is commonly
- used in the USA, whereas dd/mm/yyyy is the norm in Europe). However:
+ The last two examples show that when the year comes last, and the month
+ is given numerically, the order of the day and month doesn't matter as
+ long as the day is 13 or greater (mm/dd/yyyy is commonly used in the
+ USA, whereas dd/mm/yyyy is the norm in Europe). However:
08/02/2000 Is ambiguous and therefore not accepted.
20000208 10:28:01
This is Kermit's standard date-time format (based on ISO 8601), and is
- accepted (among other formats) by any command or switch that requires
- a date-time, and is output by any function whose result is a calendar
+ accepted (among other formats) by any command or switch that requires a
+ date-time, and is output by any function whose result is a calendar
date-time.
There are no optional parts to this format and it must be exactly 17
characters long, punctuated as shown (except you can substitute
underscore for space in contexts where a single "word" is required).
- The time is in 24-hour format (23:00:00 is 11:00pm). This is the
- format returned by \fdate(filename), so you can also use constructions
- like this:
+ The time is in 24-hour format (23:00:00 is 11:00pm). This is the format
+ returned by \fdate(filename), so you can also use constructions like
+ this:
send /after:\fdate(oofa.txt)
abbreviation "wks" is accepted for WEEKS, and "yrs" for "YEARS".
(To see how to specify dates relative to a specific date, rather than
- the current one, see the [355]\fmjd() function description below.)
+ the current one, see the [363]\fmjd() function description below.)
- You can check date formats with the DATE command. DATE by itself
- prints the current date and time in standard format: yyyymmdd
- hh:mm:ss. DATE followed by a date and/or time (including shortcuts)
- converts it to standard format if it can understand it, otherwise it
- prints an error message.
+ You can check date formats with the DATE command. DATE by itself prints
+ the current date and time in standard format: yyyymmdd hh:mm:ss. DATE
+ followed by a date and/or time (including shortcuts) converts it to
+ standard format if it can understand it, otherwise it prints an error
+ message.
The following variables and functions deal with dates and times; any
function argument designated as "date-time" can be in any of the
The given free-format date and/or time is converted to seconds
since midnight (the date, if given, is ignored). This function
replaces \ftod2secs(), which is now a synonym for \fntime().
- Unlike \ftod2secs(), \fntime() allows a date to be included,
- and it allows the time to be in free format (like 3pm), and it
+ Unlike \ftod2secs(), \fntime() allows a date to be included, and
+ it allows the time to be in free format (like 3pm), and it
allows the amount of time to be more than 24 hours. E.g.
\fntime(48:00:00) = 172800. Example of use:
The given number of seconds is converted to hh:mm:ss format.
\fdate(filename)
- Returns the modification date-time of the given file in
- standard format: yyyymmdd hh:mm:ss.
+ Returns the modification date-time of the given file in standard
+ format: yyyymmdd hh:mm:ss.
\fcvtdate(date-time)
Converts a free-format date and/or time to Kermit standard
\fdayofyear(date-time)
\fdoy(date-time)
- Converts a free-format date and/or time to yyyyddd, where ddd
- is the 3-digit day of the year, and 1 January is Day 1. If a
- time is included with the date, it is returned in standard
- format. If a date is included but no time, the date is returned
- without a time. If a time is given with no date, the time is
- converted and the current date is supplied. If no argument is
- given, the current date-time is returned. Synonym: \fdoy().
- Examples:
+ Converts a free-format date and/or time to yyyyddd, where ddd is
+ the 3-digit day of the year, and 1 January is Day 1. If a time
+ is included with the date, it is returned in standard format. If
+ a date is included but no time, the date is returned without a
+ time. If a time is given with no date, the time is converted and
+ the current date is supplied. If no argument is given, the
+ current date-time is returned. Synonym: \fdoy(). Examples:
\fddayofyear(4 Jul 2000 2:21:17pm) = 2000185 14:21:17
\fdoy() = 2000185 14:21:17 (on 4 Jul 2000 at 2:21:17pm).
Note: The yyyyddd day-of-year format is often erroneously referred to
as a Julian date. However, a true Julian date is a simple counting
number, the number of days since a certain fixed day in the past.
- [356]See \fmjd() below.
+ [364]See \fmjd() below.
\fdoy2date(date-time)
- Converts a date or date-time in day-of-year format to a
- standard format date. A yyyyddd-format date must be supplied;
- time is optional. The given date is converted to yyyymmdd
- format. If a time is given, it is converted to 24-hour format.
- Examples:
+ Converts a date or date-time in day-of-year format to a standard
+ format date. A yyyyddd-format date must be supplied; time is
+ optional. The given date is converted to yyyymmdd format. If a
+ time is given, it is converted to 24-hour format. Examples:
\fdoy2date(2000185) = 20000704
\fdoy2(2000185 3pm) = 20000704 15:00:00
echo \fmjd2date(\fmjd()-212)
- Constructions such as this can be used in any command where a
- date-time is required, e.g.:
+ Constructions such as this can be used in any command where a date-time
+ is required, e.g.:
send /after:\fmjd2date(\fmjd()-212)
to "send /after:-212days").
MJDs also have other regularities not exhibited by other date formats.
- For example, \fmodulus(\fmjd(any-date),7) gives the day of the week
- for any date (where 4=Sun, 5=Mon, ..., 3=Sat). (However, it is easier
- to use \fnday() for this purpose, and it gives the more conventional
+ For example, \fmodulus(\fmjd(any-date),7) gives the day of the week for
+ any date (where 4=Sun, 5=Mon, ..., 3=Sat). (However, it is easier to
+ use \fnday() for this purpose, and it gives the more conventional
result of 0=Sun, 1=Mon, ..., 6=Sat).
- Note that if MJDs are to be compared, they must be compared
- numerically (IF <, =, >) and not lexically (IF LLT, EQUAL, LGT),
- whereas DOYs must be compared lexically if they include a time (which
- contains ":" characters); however, if DOYs do not include a time, they
- may also be compared numerically.
+ Note that if MJDs are to be compared, they must be compared numerically
+ (IF <, =, >) and not lexically (IF LLT, EQUAL, LGT), whereas DOYs must
+ be compared lexically if they include a time (which contains ":"
+ characters); however, if DOYs do not include a time, they may also be
+ compared numerically.
- In any case, lexical comparison of DOYs always produces the
- appropriate result, as does numeric comparison of MJDs.
+ In any case, lexical comparison of DOYs always produces the appropriate
+ result, as does numeric comparison of MJDs.
The same comments apply to sorting. Also note that DOYs are fixed
length, but MJDs can vary in length. However, all MJDs between 3 April
1886 and 30 Aug 2132 are 5 decimal digits long. (MJDs become 6 digits
long on 31 Aug 2132, and 7 digits long on 13 Oct 4596).
- _________________________________________________________________
- 1.7. Partial Completion of Keywords
+1.7. Partial Completion of Keywords
Partial completion of keywords was added in C-Kermit 7.0. In prior
versions, if completion was attempted (by pressing the Esc or Tab key)
- on a string that matched different keywords, you'd just get a beep.
- Now Kermit completes up to the first character where the possibly
- matching keywords differ and then beeps. For example:
+ on a string that matched different keywords, you'd just get a beep. Now
+ Kermit completes up to the first character where the possibly matching
+ keywords differ and then beeps. For example:
C-Kermit> send /n<Tab>
- which matches /NOT-BEFORE and /NOT-AFTER, now completes up to the
- dash:
+ which matches /NOT-BEFORE and /NOT-AFTER, now completes up to the dash:
C-Kermit> send /n<Tab>ot-<Beep>
Partial completion works for filenames too (as it has for some years).
- _________________________________________________________________
- 1.8. Command Recall
+1.8. Command Recall
- C-Kermit has had a command history buffer for some time, which could
- be scrolled interactively using control characters or (in Kermit 95
- only) arrow keys. Version 7.0 adds a REDO command that allows the most
- recent command matching a given pattern to be re-executed:
+ C-Kermit has had a command history buffer for some time, which could be
+ scrolled interactively using control characters or (in Kermit 95 only)
+ arrow keys. Version 7.0 adds a REDO command that allows the most recent
+ command matching a given pattern to be re-executed:
{ REDO, RR, ^ } [ pattern ]
- Search the command history list for the most recent command
- that matches the given pattern, and if one is found, execute it
+ Search the command history list for the most recent command that
+ matches the given pattern, and if one is found, execute it
again.
The pattern can be a simple string (like "send"), in which case the
- last SEND command is re-executed. Or it can contain wildcard
- characters "*" and/or "?", which match any string and any single
- character, respectively (note that "?" must be preceded by backslash
- to override its normal function of giving help), and in most C-Kermit
- versions may also include [] character lists and {} string lists (see
- [357]Section 4.9).
+ last SEND command is re-executed. Or it can contain wildcard characters
+ "*" and/or "?", which match any string and any single character,
+ respectively (note that "?" must be preceded by backslash to override
+ its normal function of giving help), and in most C-Kermit versions may
+ also include [] character lists and {} string lists (see [365]Section
+ 4.9).
The match works by appending "*" to the end of the given pattern (if
you didn't put one there yourself). Thus "redo *oofa" becomes "redo
*oofa*" and therefore matches the most recent command that contains
"oofa" anywhere within the command. If you want to inhibit the
- application of the trailing "*", e.g. to force matching a string at
- the end of a command, enclose the pattern in braces:
+ application of the trailing "*", e.g. to force matching a string at the
+ end of a command, enclose the pattern in braces:
redo {*oofa}
matches the most recent command that ends with "oofa".
- REDO commands themselves are not entered into the command history
- list. If no pattern is given, the previous (non-REDO) command is
- re-executed. The REDOne command is reinserted at the end of the
- command history buffer, so the command scrollback character (Ctrl-P,
- Ctrl-B, or Uparrow) can retrieve it.
+ REDO commands themselves are not entered into the command history list.
+ If no pattern is given, the previous (non-REDO) command is re-executed.
+ The REDOne command is reinserted at the end of the command history
+ buffer, so the command scrollback character (Ctrl-P, Ctrl-B, or
+ Uparrow) can retrieve it.
Examples:
foo
C-Kermit>
- Since REDO, REDIAL, and REDIRECT all start the same way, and RED is
- the designated non-unique abbreviation for REDIAL, REDO must be
- spelled out in full. For convenience, RR is included as an invisible
- easy-to-type synonym for REDO. You can also use the "^" character for
- this:
+ Since REDO, REDIAL, and REDIRECT all start the same way, and RED is the
+ designated non-unique abbreviation for REDIAL, REDO must be spelled out
+ in full. For convenience, RR is included as an invisible easy-to-type
+ synonym for REDO. You can also use the "^" character for this:
C-Kermit> ^ ; Most recent command
C-Kermit> ^ s ; Most recent command starting with "s"
Unlike the manual command-history-scrolling keys, the REDO command can
be used in a script, but it's not recommended (since the command to be
- REDOne might not be found, so if the REDO command fails, you can't
- tell whether it was because REDO failed to find the requested command,
- or because the command was found but it failed).
- _________________________________________________________________
+ REDOne might not be found, so if the REDO command fails, you can't tell
+ whether it was because REDO failed to find the requested command, or
+ because the command was found but it failed).
- 1.9. EXIT Messages
+1.9. EXIT Messages
The EXIT and QUIT commands now accept an optional message to be
- printed. This makes the syntax of EXIT and QUIT just like END and
- STOP:
+ printed. This makes the syntax of EXIT and QUIT just like END and STOP:
{ EXIT, QUIT, END, STOP } [ status-code [ message ] ]
- where status-code is a number (0 indicating success, nonzero
- indicating failure). This is handy in scripts that are never supposed
- to enter interactive mode:
+ where status-code is a number (0 indicating success, nonzero indicating
+ failure). This is handy in scripts that are never supposed to enter
+ interactive mode:
dial 7654321
if fail exit 1 Can't make connection - try again later.
with a message, but without changing the exit status from what it
normally would have been, use the \v(exitstatus) variable, e.g.:
- exit \v(existatus) Goodbye from \v(cmdfile).
+ exit \v(exitstatus) Goodbye from \v(cmdfile).
The EXIT status is returned to the system shell or whatever other
process invoked C-Kermit, e.g. in UNIX:
$ echo $?
97
$
- _________________________________________________________________
- 1.10. Managing Keyboard Interruptions
+1.10. Managing Keyboard Interruptions
When C-Kermit is in command or file-transfer mode (as opposed to
CONNECT mode), it can be interrupted with Ctrl-C. Version 7.0 adds the
transfer when C-Kermit is in local mode, or to re-enable it
after it has been disabled. This applies to the X, Z, E, and
similar keys as well as to the system interrupt character,
- usually Ctrl-C. This is distinct from SET TRANSFER
- CANCELLATION, which tells whether packet mode can be exited by
- sending a special sequence of characters.
+ usually Ctrl-C. This is distinct from SET TRANSFER CANCELLATION,
+ which tells whether packet mode can be exited by sending a
+ special sequence of characters.
Several other commands can be interrupted by pressing any key while
they are active. Version 7.0 adds the ability to disable this form of
When a PAUSE, SLEEP, WAIT, or INPUT command is interrupted from the
keyboard, the new variable \v(kbchar) contains a copy of the (first)
character that was typed and caused the interruption, provided it was
- not the command interrupt character (usually Ctrl-C). If these
- commands complete successfully or time out without a keyboard
- interruption, the \v(kbchar) variable is empty.
+ not the command interrupt character (usually Ctrl-C). If these commands
+ complete successfully or time out without a keyboard interruption, the
+ \v(kbchar) variable is empty.
The \v(kbchar) variable (like any other variable) can be tested with:
The \v(kbchar) variable can be reset with WAIT 0 (PAUSE 0, SLEEP 0,
etc).
- _________________________________________________________________
- 1.11. Taming The Wild Backslash -- Part Deux
+1.11. Taming The Wild Backslash -- Part Deux
- [358]Using C-Kermit, 2nd Edition, contains a brief section, "Taming
- the Wild Backslash", on page 48, which subsequent experience has shown
- to be inadequate for Kermit users intent on writing scripts that deal
- with Windows, DOS, and OS/2 filenames, in which backslash (\) is used
- as the directory separator. This section fills in the blanks.
+ [366]Using C-Kermit, 2nd Edition, contains a brief section, "Taming the
+ Wild Backslash", on page 48, which subsequent experience has shown to
+ be inadequate for Kermit users intent on writing scripts that deal with
+ Windows, DOS, and OS/2 filenames, in which backslash (\) is used as the
+ directory separator. This section fills in the blanks.
- 1.11.1. Background
+1.11.1. Background
The Kermit command language shares a certain unavoidable but annoying
characteristic with most other command languages that are capable of
taken literally. And to add to the confusion, the UNIX shell offers
many forms of quoting, and many alternative UNIX shells are available,
each using slightly different syntax.
- _________________________________________________________________
- 1.11.2. Kermit's Quoting Rules
+1.11.2. Kermit's Quoting Rules
Kermit's basic quoting rules are simple by comparison (there are, of
course, additional syntax requirements for macro definitions, command
this indicates a special substitution item; otherwise the
following character is to be taken literally (exceptions: \ at
- end of line is taken literally; \n, \b, and \n are special
- items in the OUTPUT command only).
+ end of line is taken literally; \n, \b, and \n are special items
+ in the OUTPUT command only).
Semicolon (;)
(Only when at the beginning of a line or preceded by at least
precede it by a backslash (\).
Sounds easy! And it is, except when backslash also has a special
- meaning to the underlying operating system, as it does in DOS,
- Windows, and OS/2, where it serves as the directory separator in
- filenames such as:
+ meaning to the underlying operating system, as it does in DOS, Windows,
+ and OS/2, where it serves as the directory separator in filenames such
+ as:
D:\K95\KEYMAPS\READ.ME
send d:\%a
Does it send the file named "oofa" in the current directory of the D:
- disk, or does it send a file named "%a" in the root directory of the
- D: disk? This is the kind of trouble we get into when we attempt to
- bend the rules in the interest of user friendliness. (The answer is:
- if the variable \%a has definition that is the name of an existing
- file, that file is sent; if a file d:\%a exists, it is sent; otherwise
- if both conditions are true, the variable takes precedence, and the
- literal filename can be forced by quoting: \\%a.)
+ disk, or does it send a file named "%a" in the root directory of the D:
+ disk? This is the kind of trouble we get into when we attempt to bend
+ the rules in the interest of user friendliness. (The answer is: if the
+ variable \%a has definition that is the name of an existing file, that
+ file is sent; if a file d:\%a exists, it is sent; otherwise if both
+ conditions are true, the variable takes precedence, and the literal
+ filename can be forced by quoting: \\%a.)
In Kermit 95 (but not MS-DOS Kermit), we also bend the rules another
way by allowing you to use forward slash (/) rather than backslash (\)
This looks more natural to UNIX users, and in fact is perfectly
acceptable to the Windows 95/98/NT and OS/2 operating systems on the
API level. BUT (there is always a "but") the Microsoft shell,
- COMMAND.COM, for Windows 95/98 and NT does not allow this notation,
- and therefore it can not be used in any Kermit command -- such as RUN
- -- that invokes the Windows command shell AND your command shell is
+ COMMAND.COM, for Windows 95/98 and NT does not allow this notation, and
+ therefore it can not be used in any Kermit command -- such as RUN --
+ that invokes the Windows command shell AND your command shell is
COMMAND.COM or any other shell that does not allow forward slash as
directory separator (some alternative shells do allow this).
that accepts forward slash as a directory separator, you can stop
reading right now -- UNLESS (there is always an "unless") you want
your scripts to be portable to systems that have other shells. Also
- note that some Windows shells might actually REQUIRE forward
- slashes (instead of backslashes) as directory separators; we do not
- treat this situation below, but the treatment is obvious -- use
- slash rather backslash as the directory separator.
- _________________________________________________________________
+ note that some Windows shells might actually REQUIRE forward slashes
+ (instead of backslashes) as directory separators; we do not treat
+ this situation below, but the treatment is obvious -- use slash
+ rather backslash as the directory separator.
- 1.11.3. Passing DOS Filenames from Kermit to Shell Commands
+1.11.3. Passing DOS Filenames from Kermit to Shell Commands
The following Kermit commands invoke the system command shell:
REDIRECT
PIPE
- Each of these commands takes a shell command as an operand. These
- shell commands are not, and can not be, parsed by Kermit since Kermit
- does not know the syntax of shell commands, and so can't tell the
- difference between a keyword, a filename, a variable, a switch, or
- other item. Therefore the rules can not be bent since Kermit doesn't
- know where or how to bend them. To illustrate (using the regular
- Windows shell):
+ Each of these commands takes a shell command as an operand. These shell
+ commands are not, and can not be, parsed by Kermit since Kermit does
+ not know the syntax of shell commands, and so can't tell the difference
+ between a keyword, a filename, a variable, a switch, or other item.
+ Therefore the rules can not be bent since Kermit doesn't know where or
+ how to bend them. To illustrate (using the regular Windows shell):
run c:\\windows\\command\\chkdsk.exe
run c:\windows\command\chkdsk.exe
- results in Kermit applying its quoting rules before sending the text
- to the shell. Since "w" and "c" are not in the list of backslash-item
+ results in Kermit applying its quoting rules before sending the text to
+ the shell. Since "w" and "c" are not in the list of backslash-item
codes, the backslash means "take the following character literally".
Thus, by the time this filename gets to the Windows shell, it has
become:
internally to invoke the associated helper program; the form of this
command might conflict with the form demanded by certain alternative
shells.
- _________________________________________________________________
- 1.11.4. Using Variables to Hold DOS Filenames
+1.11.4. Using Variables to Hold DOS Filenames
Now to the next level. Suppose you want to write a script in which
filenames are parameters, and therefore are stored in variables.
This will work; no surprises here. However, if you had used ASSIGN
rather than DEFINE, you might have been surprised after all; review
- pages 348-349 of [359]Using C-Kermit (2nd Ed) for the difference
+ pages 348-349 of [367]Using C-Kermit (2nd Ed) for the difference
between DEFINE and ASSIGN.
We have said that any Kermit 95 or MS-DOS Kermit command that parses
ask filename { Please type a filename: }
Please type a filename: c:\windows\command\chkdsk.exe
send \m(filename)
- _________________________________________________________________
- 1.11.5. Passing DOS Filenames as Parameters to Macros
+1.11.5. Passing DOS Filenames as Parameters to Macros
Suppose you want to pass a DOS filename containing backslashes as a
parameter to a Kermit macro. This raises two issues:
learned in earlier sections:
1. If it is a literal filename, either double the backslashes, or (if
- the filename is to be used only within Kermit itself and not
- passed to a DOS shell, or it is to be passed to an alternative
- shell that accepts forward slash as a directory separator), use
- forward slash instead of backslash as the directory separator.
+ the filename is to be used only within Kermit itself and not passed
+ to a DOS shell, or it is to be passed to an alternative shell that
+ accepts forward slash as a directory separator), use forward slash
+ instead of backslash as the directory separator.
2. If it is a variable that contains a filename, make sure you use a
macro-style variable name, rather than a
backslash-percent-character name.
But what if you don't like these rules and you still want to pass a
literal filename containing single backslashes to a macro? This is
possible too, but a bit tricky: turn command quoting off before
- invoking the macro, and then turn it back on inside the macro.
- Example:
+ invoking the macro, and then turn it back on inside the macro. Example:
define test set command quoting on, echo \fcontents(\%1)
test c:\mydir\blah.txt
c:\mydir\blah.txt
- Upon return from the macro, command quoting is back on (since the
- macro turned it on).
+ Upon return from the macro, command quoting is back on (since the macro
+ turned it on).
Obviously this trick can not be used if the filename is stored in a
variable, since it prevents the variable from being evaluated.
- _________________________________________________________________
- 1.11.6. Passing DOS File Names from Macro Parameters to the DOS Shell
+1.11.6. Passing DOS File Names from Macro Parameters to the DOS Shell
Now suppose you need to pass a DOS filename to a macro, and the macro
needs to pass it, in turn, to the Windows shell via (say) Kermit's RUN
Here we replace all occurrences (if any) of "/" in the argument with
"\" prior to issuing the RUN command. Of course, in order to specify
- "\" as a literal character in the \freplace() argument list, we have
- to double it.
- _________________________________________________________________
+ "\" as a literal character in the \freplace() argument list, we have to
+ double it.
- 1.11.7. Passing DOS Filenames to Kermit from the Shell
+1.11.7. Passing DOS Filenames to Kermit from the Shell
As noted in the manual, the \&@[] array contains Kermit's command-line
arguments. Suppose one of these arguments, say \&@[3], is a DOS
filename such as C:\FOO\BAR\BAZ\OOFA.TXT. (Note: In C-Kermit 7.0 and
- K95 1.1.18 and later, command-line arguments after "=" or "--" are
- also available in the top-level \%1..9 variables; see [360]Section
- 7.5.)
+ K95 1.1.18 and later, command-line arguments after "=" or "--" are also
+ available in the top-level \%1..9 variables; see [368]Section 7.5.)
Of course you can eliminate any problems by using forward slashes
rather than backslashes in the filename, but sometimes this is not
- possible, as when the Kermit command line is being generated by
- another program than can only generate "native" format DOS filenames.
+ possible, as when the Kermit command line is being generated by another
+ program than can only generate "native" format DOS filenames.
As noted in the manual, "\%x" variables and \&x[] arrays are always
evaluated "all the way" (recursively). If the contents of one of these
evaluation.
There is another kind of variable, which is evaluated only "one level
- deep". You can use this to prevent interpretation of the backslashes
- in the filenames. Example:
+ deep". You can use this to prevent interpretation of the backslashes in
+ the filenames. Example:
assign filename \fcontents(\&@[3]) ; Transfer contents
...
Or, more simply:
send \fcontents(\&@[3])
- _________________________________________________________________
- 1.12. Debugging
+1.12. Debugging
The debug log is produced when you give a "log debug" command. This is
- normally done at the request of the Kermit help desk, for forwarding
- to the Kermit developers for analysis as a last resort in
- troubleshooting problems. (Last resort because it can grow quite huge
- in a very short time.) In cases where timing information is critical
- to understanding a problem, you can tell C-Kermit to put a timestamp
- on each debug log line by giving the command:
+ normally done at the request of the Kermit help desk, for forwarding to
+ the Kermit developers for analysis as a last resort in troubleshooting
+ problems. (Last resort because it can grow quite huge in a very short
+ time.) In cases where timing information is critical to understanding a
+ problem, you can tell C-Kermit to put a timestamp on each debug log
+ line by giving the command:
SET DEBUG TIMESTAMP ON
At any time before or after activating the debug log (SET DEBUG
- TIMESTAMP OFF turns off timestamping). Timestamps can be turned off
- and on as desired while logging. Obviously, they increase the size and
+ TIMESTAMP OFF turns off timestamping). Timestamps can be turned off and
+ on as desired while logging. Obviously, they increase the size and
growth rate of the log significantly, and so should be used sparingly.
Timestamps are of the form hh:mm:ss.xxx, where .xxx is thousands of a
second (but is included only on platforms that include this feature).
- _________________________________________________________________
- 1.13. Logs
+1.13. Logs
In UNIX C-Kermit and in K-95, you can now direct any log to a pipe.
This not only lets you send your logs to places other than disk files,
but also lets you customize them to any desired degree.
- LOG { DEBUG, PACKETS, SESSION, TRANSACTION, CONNECTION } { file, pipe
- } ...
+ LOG { DEBUG, PACKETS, SESSION, TRANSACTION, CONNECTION } { file, pipe }
+ ...
A "pipe" is the name of a command, preceded by a vertical bar.
If the pipe contains any spaces, it must be enclosed in braces.
LOG TRANSACTIONS |lpr
This sends the transaction log to the default UNIX printer,
- rather than to a file (use "lp" rather than "lpr" if
- necessary).
+ rather than to a file (use "lp" rather than "lpr" if necessary).
LOG TRANSACTIONS {| myfilter > t.log}
For those who don't like the format of the transaction log, or
LOG PACKETS {| tr "\\01" "X" | cut -c9- > packet.log}
This one writes the regular packet log, but translates the
- Ctrl-A that starts each packet to the letter "X" and removes
- the s-nn-nn- notation from the beginning of each line. Note the
+ Ctrl-A that starts each packet to the letter "X" and removes the
+ s-nn-nn- notation from the beginning of each line. Note the
double backslash (normal Kermit quoting rules). "man tr" and
"man cut" for further info.
- See [361]Section 2.12 for information about the new connection log.
- _________________________________________________________________
+ See [369]Section 2.12 for information about the new connection log.
- 1.14. Automatic File-Transfer Packet Recognition at the Command Prompt
+1.14. Automatic File-Transfer Packet Recognition at the Command Prompt
Beginning in version 7.0, C-Kermit can recognize Kermit (and in some
cases also Zmodem) file-transfer packets while at its command prompt.
COMMAND AUTODOWNLOAD is the command-mode equivalent of TERMINAL
AUTODOWNLOAD, which is effective during CONNECT mode.
- _________________________________________________________________
- 1.15. The TYPE Command
+1.15. The TYPE Command
The TYPE command now accepts a selection of optional switches
- ([362]Section 1.5), and also sets several variables.
+ ([370]Section 1.5), and also sets several variables.
Syntax: TYPE [ switches... ] filename
Switches:
/PAGE
- If /PAGE is included, Kermit pauses at the end of each
- screenful and issues a "more?" prompt. You may press the space
- bar to view the next page (screenful), or press "q" or "n" to
- return to the C-Kermit prompt. If this switch is given, it
- overrides the COMMAND MORE-PROMPTING setting for this command
- only. If it is not given, paging is according to COMMAND
- MORE-PROMPTING.
+ If /PAGE is included, Kermit pauses at the end of each screenful
+ and issues a "more?" prompt. You may press the space bar to view
+ the next page (screenful), or press "q" or "n" to return to the
+ C-Kermit prompt. If this switch is given, it overrides the
+ COMMAND MORE-PROMPTING setting for this command only. If it is
+ not given, paging is according to COMMAND MORE-PROMPTING.
/NOPAGE
Do not pause at the end of each screenful; show the whole file
If n is omitted, 10 is used.
/TAIL[:n]
- Only show the last n lines of the file (where n is a number).
- If nis omitted, 10 is used. Note: /HEAD and /TAIL can't be
- combined; if you give both switches, only the most recent one
- is used.
+ Only show the last n lines of the file (where n is a number). If
+ nis omitted, 10 is used. Note: /HEAD and /TAIL can't be
+ combined; if you give both switches, only the most recent one is
+ used.
/MATCH:pattern
Only type lines from the file that match the given pattern (see
- [363]Section 4.9.1 for pattern notation). UNIX users familiar
+ [371]Section 4.9.1 for pattern notation). UNIX users familiar
with grep should note a significant difference: there is no
implied "*" at the beginning and end of the pattern. Thus:
TYPE /MATCH:*foo Lists lines that end with "foo".
TYPE /MATCH:*foo* Lists lines that have "foo" anywhere in them.
- /HEAD and /TAIL apply after /MATCH, so "type /tail:20
- /match:x*" shows the last 20 lines in the file that start with
- "x".
+ /HEAD and /TAIL apply after /MATCH, so "type /tail:20 /match:x*"
+ shows the last 20 lines in the file that start with "x".
/PREFIX:string
- Print the given string at the beginning of each line. The
- string may be a constant, a variable, or a quoted variable. If
- it's an unquoted variable, its value at the time the TYPE
- command was given is used as a constant. If it is a quoted
- variable, it is re-evaluated for each line; a useful variable
- for this context is \v(ty_ln) (the line number of the current
- line being typed). If the prefix is to include spaces, it must
- be enclosed in braces. Examples:
+ Print the given string at the beginning of each line. The string
+ may be a constant, a variable, or a quoted variable. If it's an
+ unquoted variable, its value at the time the TYPE command was
+ given is used as a constant. If it is a quoted variable, it is
+ re-evaluated for each line; a useful variable for this context
+ is \v(ty_ln) (the line number of the current line being typed).
+ If the prefix is to include spaces, it must be enclosed in
+ braces. Examples:
type /prefix:{oofa.txt: } /match:*thing* oofa.txt
- Prints all lines in oofa.txt that contain "thing" with
- the filename itself as the prefix (similar to UNIX grep).
+ Prints all lines in oofa.txt that contain "thing" with the
+ filename itself as the prefix (similar to UNIX grep).
type /prefix:{\v(time). } oofa.txt
Prefixes each line of oofa.txt with the time at which the
TYPE command was given (one backslash)
type /prefix:{\\v(time). } oofa.txt
- Prefixes each line of oofa.txt with the time at which
- that line is being typed (two backslashes).
+ Prefixes each line of oofa.txt with the time at which that
+ line is being typed (two backslashes).
type /prefix:{\\v(ty_ln). } oofa.txt
Prefixes each line of oofa.txt with its line number.
If a TYPE command is given with no switch, and no SET OPTIONS TYPE
selection is in effect, paging is according to your COMMAND
MORE-PROMPTING setting (SHOW COMMAND).
- _________________________________________________________________
- 1.16. The RESET Command
+1.16. The RESET Command
The RESET command, added in 7.0, closes all open files and logs, but
does not affect the open connection (if any).
- _________________________________________________________________
- 1.17. The COPY and RENAME Commands
+1.17. The COPY and RENAME Commands
As of C-Kermit 7.0, in the UNIX version only, the COPY and RENAME
- commands are built in and do not call the underlying platform's COPY
- or RENAME command. This allows them to work in "NOPUSH" versions and
- other circumstances where it can't access system commands, and it
- allows file copying and renaming to be done portably in scripts. The
+ commands are built in and do not call the underlying platform's COPY or
+ RENAME command. This allows them to work in "NOPUSH" versions and other
+ circumstances where it can't access system commands, and it allows file
+ copying and renaming to be done portably in scripts. The
characteristics of the built-in COPY or RENAME include:
- * It fails if the source file is a directory or is wild or lacks
- read access.
+ * It fails if the source file is a directory or is wild or lacks read
+ access.
* It fails if the source file is the destination file.
- * It allows the destination file to be a directory, in which case
- the source file is copied (or renamed) into it with the same name.
+ * It allows the destination file to be a directory, in which case the
+ source file is copied (or renamed) into it with the same name.
* It overwrites an existing destination file if its permission
allows.
* It sets the new file's permission according to umask but also
when the source and target files are the same file:
/APPEND = Append source file to destination file.
- /SWAP-BYTES = Swap bytes (see [364]Section 6.6.5).
+ /SWAP-BYTES = Swap bytes (see [372]Section 6.6.5).
/FROMB64 = Decode the source file from Base64 encoding.
/TOB64 = Encode the target file in Base64.
Base64 is the encoding commonly used for enclosures in Internet email.
- _________________________________________________________________
- 1.18. The MANUAL Command
+1.18. The MANUAL Command
The MANUAL command can be used to access the appropriate Kermit manual
or other manual. The general syntax is:
MANUAL [ string ]
- If the string is omitted, C-Kermit asks the underlying system
- to access the C-Kermit manual using whatever method is
- appropriate for the system.
+ If the string is omitted, C-Kermit asks the underlying system to
+ access the C-Kermit manual using whatever method is appropriate
+ for the system.
The specific action depends on the system. In UNIX, a "man" command is
- issued; "kermit" is the default argument but other manual topics may
- be specified. If the "man" command allows index or string searching,
- the appropriate syntax may be included.
+ issued; "kermit" is the default argument but other manual topics may be
+ specified. If the "man" command allows index or string searching, the
+ appropriate syntax may be included.
In Kermit 95, the MANUAL command brings up the HTML online K95 manual.
Correct operation of the "man" command in C-Kermit depends on the
appropriate man page or help topic having been installed in the right
place with the right permissions and format.
- _________________________________________________________________
- 1.19. String and Filename Matching Patterns
+1.19. String and Filename Matching Patterns
A pattern is a string that includes special notation for matching
classes or sequences of characters. C-Kermit 7.0 / K95 1.1.19 supports
patterns in several places:
- * Filenames ([365]Section 4.9)
- * SWITCH case labels ([366]Section 7.18)
- * The new IF MATCH statement ([367]Section 7.4)
- * TYPE /MATCH ([368]Section 1.15)
- * SET FILE TEXT-PATTERNS and BINARY-PATTERNS ([369]Section 4.3)
- * The \fsearch() and \farraylook() functions ([370]Sections 7.3 and
- [371]7.10.7)
- * The \fpattern() function used with [M,RE]INPUT ([372]Section 7.1)
+ * Filenames ([373]Section 4.9)
+ * SWITCH case labels ([374]Section 7.18)
+ * The new IF MATCH statement ([375]Section 7.4)
+ * TYPE /MATCH ([376]Section 1.15)
+ * SET FILE TEXT-PATTERNS and BINARY-PATTERNS ([377]Section 4.3)
+ * The \fsearch() and \farraylook() functions ([378]Sections 7.3 and
+ [379]7.10.7)
+ * The \fpattern() function used with [M,RE]INPUT ([380]Section 7.1)
Patterns are also called wildcards, especially when used for filename
- matching. C-Kermit's pattern syntax is explained in [373]Section
- 4.9.1, and also by the HELP WILDCARDS command.
- _________________________________________________________________
+ matching. C-Kermit's pattern syntax is explained in [381]Section 4.9.1,
+ and also by the HELP WILDCARDS command.
- 1.20. Multiple Commands on One Line
+1.20. Multiple Commands on One Line
As of C-Kermit 7.0, commands can be grouped together on one line by
separating the commands with commas and enclosing the list in braces.
}
(the "do" is optional).
- _________________________________________________________________
- 1.21. What Do I Have?
+1.21. What Do I Have?
C-Kermit can be built for hundreds of different platforms with
- practically countless configuration options. Certain commands might
- not be available in certain configurations, etc. Even on the same
- platform, different builds are possible: "maximum functionality",
- "minimum size", "maximum performance", and so on. You can find out a
- lot about the configuration of your C-Kermit program with the SHOW
- FEATURES command. Of course, a lot of what it says, especially in the
- bottom part, might seem like gibberish, but can be deciphered with a
- Rosetta Stone (such as the C-Kermit source or the [374]ckccfg.txt
- file). In any case, the output from SHOW FEATURES might easily explain
- why some expected feature is missing, or some buffer is smaller than
- expected. Here's a sample of the bottom section for the SunOS version:
+ practically countless configuration options. Certain commands might not
+ be available in certain configurations, etc. Even on the same platform,
+ different builds are possible: "maximum functionality", "minimum size",
+ "maximum performance", and so on. You can find out a lot about the
+ configuration of your C-Kermit program with the SHOW FEATURES command.
+ Of course, a lot of what it says, especially in the bottom part, might
+ seem like gibberish, but can be deciphered with a Rosetta Stone (such
+ as the C-Kermit source or the [382]ckccfg.txt file). In any case, the
+ output from SHOW FEATURES might easily explain why some expected
+ feature is missing, or some buffer is smaller than expected. Here's a
+ sample of the bottom section for the SunOS version:
C-Kermit 7.0.196, 1 Jan 2000
particular option easier to find.
* MAXWLD is the maximum number of files that a wildcard can expand
to.
- * Anything starting with "NO" is a feature (or something other than
- a feature) that has been deliberately "compiled out", or omitted.
+ * Anything starting with "NO" is a feature (or something other than a
+ feature) that has been deliberately "compiled out", or omitted.
* Important items for script writers include: CMDBL=32763 (the size
of the command buffer and therefore the maximum length for a macro
or variable definition; CMDDEP=64 (the limit on recursion depth);
size of the INPUT command circular buffer); MAC_MAX=16384 (the
maximum number of macros), etc.
- See the [375]ckccfg.txt file for details.
- _________________________________________________________________
+ See the [383]ckccfg.txt file for details.
- 1.22. Generalized File Input and Output
+1.22. Generalized File Input and Output
C-Kermit 7.0 adds a new generalized I/O system for stream files,
- augmenting (and to some extent, overlapping with) the older OPEN,
- READ, WRITE, and CLOSE commands. In the new file i/o system, which can
- be used simultaneously with the old one, all commands are grouped
- together under the new FILE keyword, and some related functions and
- variables are added.
+ augmenting (and to some extent, overlapping with) the older OPEN, READ,
+ WRITE, and CLOSE commands. In the new file i/o system, which can be
+ used simultaneously with the old one, all commands are grouped together
+ under the new FILE keyword, and some related functions and variables
+ are added.
- 1.22.1. Why Another I/O System?
+1.22.1. Why Another I/O System?
The well-known LOG, OPEN, READ, WRITE, and CLOSE commands have the
following restrictions:
commands (except, of course SEEK, REWIND, and COUNT) might work with
them. (In C programming terms, the FILE commands are, at present,
nothing more than a front end to fopen() / fread() / fwrite() /
- fclose() and friends, which are a portable API to sequential files,
- but this might change in the future for platforms like VMS and VOS
- that have more complicated file systems.)
+ fclose() and friends, which are a portable API to sequential files, but
+ this might change in the future for platforms like VMS and VOS that
+ have more complicated file systems.)
Definitions:
Read/Write Pointer
The current position in an open file, expressed as the 0-based
byte count from the beginning.
- _________________________________________________________________
- 1.22.2. The FILE Command
+1.22.2. The FILE Command
FILE keyword [ switches ] channel [ data ]
The keyword specifies the function: FILE OPEN, FILE READ, FILE
\v(f_max)
or by giving the FILE LIST (FLIST) command. Channels are discussed in
- greater detail in [376]Section 1.22.4.
+ greater detail in [384]Section 1.22.4.
FILE command errors can be caught with IF FAIL after the FILE command.
In addition, the \v(f_error) variable is set to the completion code of
- the command: 0 if no error, or a negative number if there was an
- error. The error codes are listed in [377]Section 1.22.5.
+ the command: 0 if no error, or a negative number if there was an error.
+ The error codes are listed in [385]Section 1.22.5.
The command to open a file is:
/APPEND
Equivalent to /WRITE, except that if the file exists, it is not
- destroyed. The read/write pointer is set to the end of the
- file, so unless you change it with FILE SEEK or REWIND (see
- below), the first FILE WRITE command adds to the end of the
- file, preserving what was there already. If /WRITE is also
- given, it is ignored.
+ destroyed. The read/write pointer is set to the end of the file,
+ so unless you change it with FILE SEEK or REWIND (see below),
+ the first FILE WRITE command adds to the end of the file,
+ preserving what was there already. If /WRITE is also given, it
+ is ignored.
/BINARY
Open the file in "binary" mode, rather than text mode. This
line by line.
The variable for the channel number can be any kind of variable: the
- \%x kind, a macro name, or an array element. But it must be a
- variable, not a number -- C-Kermit assigns the channel number; you
- can't tell it what number to use.
+ \%x kind, a macro name, or an array element. But it must be a variable,
+ not a number -- C-Kermit assigns the channel number; you can't tell it
+ what number to use.
Example:
ECHO oofa.txt: channel = \%c
If the file oofa.txt is opened successfully, a channel number is
- assigned to the variable \%c. Here's another example using a macro
- name for the channel number:
+ assigned to the variable \%c. Here's another example using a macro name
+ for the channel number:
FILE OPEN channel oofa.txt ; Open oofa.txt for reading.
IF SUCCESS ECHO oofa.txt: channel = \m(channel)
If this loop completes successfully, the \&c[] array will contain \%n
channel numbers of open files in elements 1 through \%n.
- Any file that you open with FILE OPEN stays open until Kermit exits,
- or you close it explicitly. The command to close a file is:
+ Any file that you open with FILE OPEN stays open until Kermit exits, or
+ you close it explicitly. The command to close a file is:
FILE CLOSE { ALL, channel }
If a channel number is given and the channel refers to an open
file, the file is closed and the channel is freed for reuse; if
the channel does not refer to an open file, an error message is
printed and the command fails. If ALL is specified instead of a
- specific channel, all files opened with FILE OPEN are closed
- and if all open files were closed successfully (even if no
- files were open), the command succeeds; if any open file could
- not be closed, the command fails; however, all open files that
- could be closed are still closed. Synonym: FCLOSE.
+ specific channel, all files opened with FILE OPEN are closed and
+ if all open files were closed successfully (even if no files
+ were open), the command succeeds; if any open file could not be
+ closed, the command fails; however, all open files that could be
+ closed are still closed. Synonym: FCLOSE.
FILE CLOSE might fail because, for example, the disk filled up or a
quota was exceeded. Example:
This creates a 0-length file called new.txt.
Note that FILE OPEN /WRITE (without /READ or /APPEND) always creates a
- new file, and therefore destroys any file with the same name that
- might already exist (assuming you have permission to delete it). To
- avoid overwriting existing files, simply check first:
+ new file, and therefore destroys any file with the same name that might
+ already exist (assuming you have permission to delete it). To avoid
+ overwriting existing files, simply check first:
if exist new.txt exit 1 {Fatal - new.txt already exists}
fopen /write \%c new.txt
Tells the name of the file, if any, open on the given channel
and the switches it was opened with. The read/write pointer is
also shown; this is where the next read or write will occur;
- "[EOF]" is shown if the current position in the open file is
- the end -- i.e. the next read will fail if the file was opened
- in /READ mode; the next write will add material to the end. The
+ "[EOF]" is shown if the current position in the open file is the
+ end -- i.e. the next read will fail if the file was opened in
+ /READ mode; the next write will add material to the end. The
current line number (0-based) is also shown if known. The FILE
STATUS command succeeds if the channel is open, and fails if
there is no open file on the given channel, or if the channel
FILE LIST
Lists the channel number and name of each open file, along with
its OPEN modes (R, W, A, B, RW, etc) and its current read/write
- pointer or "[EOF]" if it is at the end. Also tells the number
- of files currently opened with FILE OPEN, plus the maximum
- number of open files allowed by the system and the maximum
- number allowed for FILE OPEN. Synonym: FLIST.
+ pointer or "[EOF]" if it is at the end. Also tells the number of
+ files currently opened with FILE OPEN, plus the maximum number
+ of open files allowed by the system and the maximum number
+ allowed for FILE OPEN. Synonym: FLIST.
Next come the commands for reading and writing files:
FILE READ [ switches ] channel [ variable ]
Reads data from the file on the given channel number into the
- variable, if one was given; if no variable was given, the
- result is printed on the screen. IMPORTANT: The variable should
+ variable, if one was given; if no variable was given, the result
+ is printed on the screen. IMPORTANT: The variable should
normally be a macro name rather than a \%x or \&x[] variable if
you want backslash characters in the file to be taken literally
- (see pp.408-412 of [378]Using C-Kermit for an explanation; you
+ (see pp.408-412 of [386]Using C-Kermit for an explanation; you
can also read into a \%x or \&x[] variable, but then you must
remember to protect future references to by \fcontents() if you
don't want C-Kermit to process any backslashes it might
- contain). The desired amount of data (according to the
- switches) is read from the file at the current read/write
- pointer, and upon completion the read/write position is updated
- to first byte after the data that was read, no matter what
- switches were given. Synonym: FREAD.
+ contain). The desired amount of data (according to the switches)
+ is read from the file at the current read/write pointer, and
+ upon completion the read/write position is updated to first byte
+ after the data that was read, no matter what switches were
+ given. Synonym: FREAD.
FILE WRITE [ switches ] channel text
Writes the given text to the file on the given channel number.
/LINE
Specifies that a line of text is to be read. A line is defined
- according to the underlying operating system's text-file
- format. For example, in UNIX a line is a sequence of characters
- up to and including a linefeed, or the end of the file, which
- ever comes first. The line terminator (if any) is removed
- before assigning the text to the variable. If no switches are
- included with the FILE READ command, /LINE is assumed. Normally
- this switch should not be used with files opened in /BINARY
- mode (but nothing prevents it either).
+ according to the underlying operating system's text-file format.
+ For example, in UNIX a line is a sequence of characters up to
+ and including a linefeed, or the end of the file, which ever
+ comes first. The line terminator (if any) is removed before
+ assigning the text to the variable. If no switches are included
+ with the FILE READ command, /LINE is assumed. Normally this
+ switch should not be used with files opened in /BINARY mode (but
+ nothing prevents it either).
/SIZE:number
Specifies that the given number of bytes (characters) is to be
/SIZE:number
Specifies that the given number of bytes (characters) is to be
- written. If the given text is longer than the requested size,
- it is truncated; if is shorter, it is padded according /LPAD
- and /RPAD switches. Synonym: /BLOCK.
+ written. If the given text is longer than the requested size, it
+ is truncated; if is shorter, it is padded according /LPAD and
+ /RPAD switches. Synonym: /BLOCK.
/LPAD[:value]
If /SIZE was given, but the text is shorter than the requested
file close \%c ; Close the two files
file close \%d
- Note that since /LINE is the default for both FILE READ and FILE
- WRITE, it can be omitted as in the following example, where we also
- use the short names for the FILE commands.
+ Note that since /LINE is the default for both FILE READ and FILE WRITE,
+ it can be omitted as in the following example, where we also use the
+ short names for the FILE commands.
fopen /read \%c oofa.txt ; Open input file
if fail exit 1 Can't open input file ; Check that it's open
fclose \%d
Here's the same example using "record i/o" (the open and close
- sequences are are omitted since they are the same as above). The
- result is the same, but execution is much faster:
+ sequences are are omitted since they are the same as above). The result
+ is the same, but execution is much faster:
while true { ; Loop to copy blocks
fread /size:512 \%c block ; Read a block into \%a
}
Although character i/o is slow, it is the only way to process files
- that contain NUL characters (i.e. bytes composed of only zero bits).
- In the example above, when "fread /char \%c c" returns a NUL, the c
+ that contain NUL characters (i.e. bytes composed of only zero bits). In
+ the example above, when "fread /char \%c c" returns a NUL, the c
variable is empty. But since the FREAD /CHAR command did not fail, we
know the result was really a NUL. FWRITE /CHAR, when given an empty
- variable (or no variable at all) writes a NUL. Thus the loop above
- will copy any file at all (very slowly). In non-copying applications,
- NULs are detected like this:
+ variable (or no variable at all) writes a NUL. Thus the loop above will
+ copy any file at all (very slowly). In non-copying applications, NULs
+ are detected like this:
fread /char \%c c
if fail (do something)
By default, or if the /BYTES switch is given, counts the bytes
in the file, if any, open on the given channel. If the /LINES
switch is given, counts lines in the file. If the /LIST switch
- is given, the result is printed. If the /NOLIST switch is
- given, the result is not printed. /QUIET is a synonym for
- /NOLIST. If neither /LIST nor /NOLIST is given, the result is
- printed if the command is given at top level, i.e. not from a
- command file or macro. In all cases, the result of the most
- recent FILE COUNT command is stored in the variable
- \v(f_count). Note that FILE COUNT /LINE works (and can only
- work) by reading the entire file; expect it to take some time
- if the file is large. Synonym: FCOUNT.
+ is given, the result is printed. If the /NOLIST switch is given,
+ the result is not printed. /QUIET is a synonym for /NOLIST. If
+ neither /LIST nor /NOLIST is given, the result is printed if the
+ command is given at top level, i.e. not from a command file or
+ macro. In all cases, the result of the most recent FILE COUNT
+ command is stored in the variable \v(f_count). Note that FILE
+ COUNT /LINE works (and can only work) by reading the entire
+ file; expect it to take some time if the file is large. Synonym:
+ FCOUNT.
FILE REWIND channel
Moves the read/write pointer to the beginning of the file.
Equivalent to FILE SEEK channel 0. Synonym: FREWIND.
FILE SEEK [ switches ] channel { [{+,-}]number, LAST, EOF }
- Moves the read/write pointer for the file on this channel to
- the given position, which may be a byte (character) number or a
- line number, expressed in either absolute or relative terms.
+ Moves the read/write pointer for the file on this channel to the
+ given position, which may be a byte (character) number or a line
+ number, expressed in either absolute or relative terms.
Switches:
/BYTE
The number given is relative to the current position.
By default, or if the /BYTE switch is given, the number is a
- byte number (0 = first byte). If /LINE is given, the number is
- a line number (0 = first line). EOF means to move to the end of
+ byte number (0 = first byte). If /LINE is given, the number is a
+ line number (0 = first line). EOF means to move to the end of
the file. LAST means to move to the last line or character of
the file, depending on whether it's a line or character seek.
- If neither the /RELATIVE nor the /ABSOLUTE switch is given,
- then if a signed number is given, the motion is relative to the
+ If neither the /RELATIVE nor the /ABSOLUTE switch is given, then
+ if a signed number is given, the motion is relative to the
current position. An expression that evaluates to a negative
number is not considered signed for this purpose; that is, a
sign (+ or -) must be included as the first character of the
beginning of the file). Subsequent FILE READs or WRITEs will
take place at the new position.
- If the read/write pointer is placed after the end of the file,
- a subsequent FILE READ will fail, but a FILE WRITE will succeed
+ If the read/write pointer is placed after the end of the file, a
+ subsequent FILE READ will fail, but a FILE WRITE will succeed
(possibly creating a file with "holes"). If a FILE SEEK /BYTE
command is given, the current line becomes unknown (unless the
- position is 0) and subsequent FILE SEEK /RELATIVE /LINE
- commands will fail until the next non-relative FILE SEEK /LINE
- command is given. Synonym: FSEEK.
+ position is 0) and subsequent FILE SEEK /RELATIVE /LINE commands
+ will fail until the next non-relative FILE SEEK /LINE command is
+ given. Synonym: FSEEK.
An absolute FILE SEEK to a negative position fails silently, as does a
relative seek to a position before the beginning of the file.
- A caution about relative SEEKs: remember that the number is relative
- to the current position. Whenever you read or write, this changes the
+ A caution about relative SEEKs: remember that the number is relative to
+ the current position. Whenever you read or write, this changes the
position. In each of the following examples, assume the file open on
channel \%c is positioned at line n (the FREAD target variable is
omitted for lack of space):
FOPEN \%c samefilename
FSEEK \%c samespot
FREAD /SIZE:howmanybytes \%c variable
- _________________________________________________________________
- 1.22.3. FILE Command Examples
+1.22.3. FILE Command Examples
To read the last 10 lines of a text file into an array:
The loop works because a relative SEEK outside the file fails.
- It is also possible to use block i/o to manage random-access files
- with fixed-length records (as long as they don't contain NUL
- characters). Suppose, for example, you have a file of "card image"
- records with fixed-field information about customers, such as:
+ It is also possible to use block i/o to manage random-access files with
+ fixed-length records (as long as they don't contain NUL characters).
+ Suppose, for example, you have a file of "card image" records with
+ fixed-field information about customers, such as:
Name: Columns 1-32 (column numbers are 1-based)
Address: Columns 33-72
fclose \%c ; Close the file
REMEMBER: Using FILE SEEK to move beyond the end of file can result in
- a file with holes when writing; when reading, an end-of-file error
- will occur -- be sure to check for it.
- _________________________________________________________________
+ a file with holes when writing; when reading, an end-of-file error will
+ occur -- be sure to check for it.
- 1.22.4. Channel Numbers
+1.22.4. Channel Numbers
C-Kermit's channel numbers are integers from 0 to some
platform-dependent limit, such as 46 or 1985 (the value of \v(f_max)).
- This is the limit placed by the operating system on the number of
- files that may be opened by one process or user or job, minus the
- standard input, output, and error files, and minus the number of files
- reserved by C-Kermit for logs, OPEN READ and WRITE, and file transfer
- (and maybe some command files -- the \v(f_max) number can't be exact).
-
- Although you must include a variable in the FILE OPEN command, to
- which the channel number is assigned, you don't have to use a variable
- in the other FILE commands if you know what the number is -- you can
- just put the number. This saves you a few keystrokes when typing
- commands at the prompt:
+ This is the limit placed by the operating system on the number of files
+ that may be opened by one process or user or job, minus the standard
+ input, output, and error files, and minus the number of files reserved
+ by C-Kermit for logs, OPEN READ and WRITE, and file transfer (and maybe
+ some command files -- the \v(f_max) number can't be exact).
+
+ Although you must include a variable in the FILE OPEN command, to which
+ the channel number is assigned, you don't have to use a variable in the
+ other FILE commands if you know what the number is -- you can just put
+ the number. This saves you a few keystrokes when typing commands at the
+ prompt:
fopen \%c oofa.txt
flist
fread \%c \%a
you have trouble remembering which variable is which, note that the
- channel number is, indeed, a number. Anywhere C-Kermit accepts a
- number it can also accept an expression, so you can put parentheses
- around the channel number to remind you it's the channel number and
- not the variable into which data is to be read:
+ channel number is, indeed, a number. Anywhere C-Kermit accepts a number
+ it can also accept an expression, so you can put parentheses around the
+ channel number to remind you it's the channel number and not the
+ variable into which data is to be read:
fread (\%c) \%a
Normally channel numbers are assigned sequentially as 0, 1, 2, ... up
- to the limit. However, once you start closing files, there can be
- holes in the sequence. New channels are assigned to fill in the holes.
- Thus you can't depend on channel numbers being in any particular
- sequence.
- _________________________________________________________________
+ to the limit. However, once you start closing files, there can be holes
+ in the sequence. New channels are assigned to fill in the holes. Thus
+ you can't depend on channel numbers being in any particular sequence.
- 1.22.5. FILE Command Errors
+1.22.5. FILE Command Errors
- Each FILE command sets the variable \v(f_error) to one of the
- following values:
+ Each FILE command sets the variable \v(f_error) to one of the following
+ values:
0 = No error
-1 = System error
\v(errno) = System error number.
\v(errstring) = Error message corresponding to \v(errno).
- A special function is available for translating the \v(f_error) code
- to an error message string:
+ A special function is available for translating the \v(f_error) code to
+ an error message string:
\f_errmsg([code])
If the code is -1, returns error message of the most recent system
corresponding to the current \v(f_error) value is returned.
A FILE command that fails prints the appropriate error message
- automatically, except when the command is READ or SEEK and the error
- is -2 (end of file); in that case, the command still fails, but does
- not print a message. This allows constructions such as:
+ automatically, except when the command is READ or SEEK and the error is
+ -2 (end of file); in that case, the command still fails, but does not
+ print a message. This allows constructions such as:
fopen \%c oofa.txt
while success { fread \%c }
to work as expected, i.e. without an annoying message when the end of
file is reached.
- _________________________________________________________________
- 1.22.6. File I/O Variables
+1.22.6. File I/O Variables
The variables associated with the file i/o package are:
\v(f_max)
Maximum number of files open simultaneously.
- _________________________________________________________________
- 1.22.7. File I/O Functions
+1.22.7. File I/O Functions
Some of the FILE commands can also be issued as function calls, which
makes script writing a bit more convenient, especially for C
programmers. Also, several functions are provided that do not have
command equivalents. Each of these functions takes a channel number as
- the first argument. These functions do not work for OPEN { READ,
- !READ, WRITE, !WRITE, and APPEND } files.
+ the first argument. These functions do not work for OPEN { READ, !READ,
+ WRITE, !WRITE, and APPEND } files.
\f_status(channel)
- Returns 0 if the channel is not open, otherwise a number
- between 1 and 15 which is the sum of the OPEN modes:
+ Returns 0 if the channel is not open, otherwise a number between
+ 1 and 15 which is the sum of the OPEN modes:
1 = /READ
2 = /WRITE
8 = /BINARY
The remaining functions work only for open channels. Each of these
- functions can fail for the applicable reasons listed in [379]Section
- 1.22.5. For instructions on handling function errors, see [380]Section
+ functions can fail for the applicable reasons listed in [387]Section
+ 1.22.5. For instructions on handling function errors, see [388]Section
7.12.
\f_pos(channel)
\f_handle(channel)
Returns the "file handle" of the file. That is, it translates
- the portable C-Kermit channel number into a system-specific
- file handle or number that can be passed to other programs on
- the same platform. In UNIX this is a file descriptor. There is
- no FILE command equivalent.
+ the portable C-Kermit channel number into a system-specific file
+ handle or number that can be passed to other programs on the
+ same platform. In UNIX this is a file descriptor. There is no
+ FILE command equivalent.
\f_eof(channel)
Returns 1 if the read/write pointer of the file on the given
\f_getline(channel)
Equivalent to FREAD /LINE. Returns the line actually read, but
- with the line terminator stripped. If \f_getline() does not
- fail but the return value is empty, this normally means an
- empty line was read.
+ with the line terminator stripped. If \f_getline() does not fail
+ but the return value is empty, this normally means an empty line
+ was read.
\f_getblock(channel,n)
Equivalent to FREAD /SIZE:n. Returns the block of characters
Equivalent to FWRITE /LINE. Writes the string and adds the
appropriate line termination character or sequence. If the
string is empty or omitted, an empty line is written. Returns
- the number of characters written on success, or a negative
- error code upon failure.
+ the number of characters written on success, or a negative error
+ code upon failure.
\f_putblock(channel,string)
- Equivalent to FWRITE /STRING. Writes the string as given. If
- the string is empty or omitted, nothing is written. Returns the
+ Equivalent to FWRITE /STRING. Writes the string as given. If the
+ string is empty or omitted, nothing is written. Returns the
number of characters written on success, or a negative error
code upon failure.
- _________________________________________________________________
- 1.22.8. File I/O Function Examples
+1.22.8. File I/O Function Examples
fopen /read \%c oofa.txt ; Open our favorite file for reading
if failure exit 1 ; Check that it's open
for \%i 0 \v(f_max)-1 1 {
if \f_status(\%i) fclose \%i
}
- _________________________________________________________________
- 1.23. The EXEC Command
+1.23. The EXEC Command
The EXEC command is available only in UNIX.
EXEC [ /REDIRECT ] command [ arg1 [ arg2 [ ... ] ]
- Runs the given command with the arguments in such a way that
- the command replaces C-Kermit in memory, and C-Kermit ceases to
+ Runs the given command with the arguments in such a way that the
+ command replaces C-Kermit in memory, and C-Kermit ceases to
execute. EXEC is like RUN, except instead of returning to
C-Kermit when finished, the command returns to whatever process
invoked Kermit.
- In the normal case, no files are closed, so the EXEC'd command
- inherits the open files, read/write pointers, working directory,
- process ID, user ID (unless command is SUID), group ID (unless command
- is SGID), groups, etc. (In UNIX, the EXEC command is simply a front
- end for execvp().)
+ In the normal case, no files are closed, so the EXEC'd command inherits
+ the open files, read/write pointers, working directory, process ID,
+ user ID (unless command is SUID), group ID (unless command is SGID),
+ groups, etc. (In UNIX, the EXEC command is simply a front end for
+ execvp().)
If the /REDIRECT switch is included, then if a connection is open (SET
LINE or SET HOST), it becomes the standard input and output of the
* You can have Kermit fetch the number or numbers from a dialing
directory.
* You can have Kermit cycle through a list of phone numbers (this is
- new in C-Kermit 7.0; see [381]Section 2.1.16) without having to
+ new in C-Kermit 7.0; see [389]Section 2.1.16) without having to
enter the numbers in a dialing directory.
* Dialing is location-independent; you can use the same script to
dial from different areas or countries.
* Once the connection is made, the full power of Kermit's script
- language is available to manage the dialog with the terminal
- server or other device that answers the phone call.
+ language is available to manage the dialog with the terminal server
+ or other device that answers the phone call.
NOTE: PPP and SLIP dialing are not available in Windows 95/98/NT/2000,
whose APIs do not provide a method for an application to hand over a
connection to the PPP or SLIP driver.
- _________________________________________________________________
- 1.24. Getting Keyword Lists with '?'
+1.24. Getting Keyword Lists with '?'
Suppose you type "te" at the C-Kermit> 6.0 prompt and then Esc or Tab
to request keyword completion. Kermit beeps, indicating that more than
- one command starts with "te". But if you type '?' to see what they
- are, Kermit shows only "telnet". So why the beep? Because of invisible
+ one command starts with "te". But if you type '?' to see what they are,
+ Kermit shows only "telnet". So why the beep? Because of invisible
keywords like "telopt", "terminal", and "text". Lots of keywords are
invisible because they are either synonyms for other keywords or else
esoteric options to be used only in special circumstances, so we don't
are shown, as before (so, in this example, if '?' is typed at the
C-Kermit> prompt, "telnet" is the only command shown that starts with
"te").
- _________________________________________________________________
- 2. MAKING AND USING CONNECTIONS The SET LINE, SET HOST, and SET PORT (a
- synonym for SET LINE) commands have new synonyms, in which the word SET is
- replaced by the word OPEN: OPEN LINE, etc. There is no new functionality
- here, but OPEN is a better verb, since SET generally takes no action, whereas
- these commands actually try to open a connection. Furthermore, there is the
- symmetry with CLOSE.
- ________________________________________________________________________
+2. MAKING AND USING CONNECTIONS The SET LINE, SET HOST, and SET PORT (a
+synonym for SET LINE) commands have new synonyms, in which the word SET is
+replaced by the word OPEN: OPEN LINE, etc. There is no new functionality
+here, but OPEN is a better verb, since SET generally takes no action, whereas
+these commands actually try to open a connection. Furthermore, there is the
+symmetry with CLOSE. 2.0. SET LINE and SET HOST Command SwitchesThe SET LINE
+(SET PORT) and SET HOST commands now allow switches before the device or host
+name, in most cases, and under certain circumstances, also at the end. The
+new syntax is backwards compatible with the previous syntax; thus SET LINE,
+SET PORT, and SET HOST commands in command files written for C-Kermit 6.0 or
+earlier still work. The expanded syntax is:
- 2.0. SET LINE and SET HOST Command SwitchesThe SET LINE (SET PORT) and SET
- HOST commands now allow switches before the device or host name, in most
- cases, and under certain circumstances, also at the end. The new syntax is
- backwards compatible with the previous syntax; thus SET LINE, SET PORT, and
- SET HOST commands in command files written for C-Kermit 6.0 or earlier still
- work. The expanded syntax is:
+{ OPEN, SET } { LINE, PORT, HOST } [ switches ] device-or-address [ switches
+]
- { OPEN, SET } { LINE, PORT, HOST } [ switches ] device-or-address [ switches
- ]
-
- The first group of switches is:
+The first group of switches is:
/NETWORK-TYPE:{TCP/IP,X.25,PIPE,PTY...}
When more than one network type is available, this lets you
specify the type of network to use for this connection without
- affecting your global SET NETWORK TYPE. See [382]Section 2.7
+ affecting your global SET NETWORK TYPE. See [390]Section 2.7
about pipes and ptys.
/USERID:[string]
This switch is equivalent to SET LOGIN USERID. If a string is
given, it sent to host during Telnet negotiations; if this
- switch is given but the string is omitted, no user ID is sent
- to the host. If this switch is not given, your current LOGIN
- USERID (\v(userid) value), if any, is sent. Unlike most other
- switches, this one is "sticky", since the value must persist
- throughout the session in case the server requests the ID
- string at a later time.
+ switch is given but the string is omitted, no user ID is sent to
+ the host. If this switch is not given, your current LOGIN USERID
+ (\v(userid) value), if any, is sent. Unlike most other switches,
+ this one is "sticky", since the value must persist throughout
+ the session in case the server requests the ID string at a later
+ time.
/CONNECT
Enter CONNECT mode immediately and automatically after the
opening the device.
/SERVER
- Enter server mode immediately and automatically after the
- device or connection is open. Treatment of carrier is the same
- as for /CONNECT.
+ Enter server mode immediately and automatically after the device
+ or connection is open. Treatment of carrier is the same as for
+ /CONNECT.
/WAIT
/NOWAIT
For Telnet connections only: Like SET TELNET WAIT { ON, OFF },
but applies only to this connection, and in fact applies only
- when OPENing this connection (which is usually the only place
- it matters). Typically you would use TELNET /NOWAIT to make a
- connection to a misbehaving Telnet server that does not reply
- to negotiations as required by the Telnet protocol definition.
+ when OPENing this connection (which is usually the only place it
+ matters). Typically you would use TELNET /NOWAIT to make a
+ connection to a misbehaving Telnet server that does not reply to
+ negotiations as required by the Telnet protocol definition.
- Note: /CONNECT and /SERVER switches are not available in the RLOGIN
- and TELNET commands, since these commands already include an implicit
+ Note: /CONNECT and /SERVER switches are not available in the RLOGIN and
+ TELNET commands, since these commands already include an implicit
/CONNECT and preclude automatic entry into server mode.
The /CONNECT and /SERVER switches are especially useful with "set host
set host * 3000
- and then wait for a connection to come in, and only then could you
- give the SERVER command (or else define a macro to do this, and then
- execute the macro). Now you can do it in one step:
+ and then wait for a connection to come in, and only then could you give
+ the SERVER command (or else define a macro to do this, and then execute
+ the macro). Now you can do it in one step:
set host /server * 3000
mode once it comes in, no matter how long it takes. Similarly, "set
host /conn *" can be used to wait for a "chat" connection to come in.
- Another set of switches is available in VMS only, for use only with
- SET LINE:
+ Another set of switches is available in VMS only, for use only with SET
+ LINE:
/SHARE
- Allows the SET LINE device to be opened in shared mode.
- Normally it makes no sense to open a serial device in shared
- mode, but it's necessary when C-Kermit is running in an
- environment such as DECIntact, that opens your job's
- controlling terminal in such a way that C-Kermit can't open it
- too, unless it enables SHARE privilege. Note: SHARE privilege
- is required.
+ Allows the SET LINE device to be opened in shared mode. Normally
+ it makes no sense to open a serial device in shared mode, but
+ it's necessary when C-Kermit is running in an environment such
+ as DECIntact, that opens your job's controlling terminal in such
+ a way that C-Kermit can't open it too, unless it enables SHARE
+ privilege. Note: SHARE privilege is required.
/NOSHARE
Requires that the SET LINE device not be in use by any other
The second group of switches is:
/NO-TELNET-INIT
- Do not send initial Telnet negotiations even if this is a
- Telnet port.
+ Do not send initial Telnet negotiations even if this is a Telnet
+ port.
/RAW-SOCKET
- This is a connection to a raw TCP socket ([383]Section 2.3.5).
+ This is a connection to a raw TCP socket ([391]Section 2.3.5).
/RLOGIN
Use Rlogin protocol even if this is not an Rlogin port.
Additional switches might be added in the future; type "set host ?" or
"set line ?" to see a current list.
- _________________________________________________________________
- 2.1. Dialing
+2.1. Dialing
Automatic redialing is illegal or restricted in many countries, so
until C-Kermit 7.0, it was disabled by default, i.e. until a SET DIAL
RETRIES command was given. In C-Kermit 7.0, if no SET DIAL RETRIES
command has been given, a default is picked dynamically at DIAL time
based on the calling country code, if known. At this writing, the only
- country code known to have no restrictions on automatic redialing is
- 1. So in this case a limit of 10 is chosen; otherwise 1. If you have
- not given an explicit SET DIAL RETRIES command, SHOW DIAL shows the
- value as "(auto)", and then the value actually used is shown when you
- give the DIAL command.
+ country code known to have no restrictions on automatic redialing is 1.
+ So in this case a limit of 10 is chosen; otherwise 1. If you have not
+ given an explicit SET DIAL RETRIES command, SHOW DIAL shows the value
+ as "(auto)", and then the value actually used is shown when you give
+ the DIAL command.
As of C-Kermit 7.0, automatic redialing is automatically canceled if
the call could not be placed because no dialtone was detected.
- _________________________________________________________________
- 2.1.1. The Dial Result Message
+2.1.1. The Dial Result Message
If DIAL DISPLAY is not ON, the "Call complete" message now shows the
modem's call result message, for example:
}
}
- (See [384]Section 7.5 about the \%* variable.)
- _________________________________________________________________
+ (See [392]Section 7.5 about the \%* variable.)
- 2.1.2. Long-Distance Dialing Changes
+2.1.2. Long-Distance Dialing Changes
Due to the glut of cell phones, pagers, fax machines, ISPs, etc, area
codes and dialing rules are changing all the time. In the North
- American Numbering Plan (NANP) countries (USA, Canada, etc), area
- codes are split or overlayed with increasing frequency, and 10- and
- 11-digit dialing is gradually becoming the norm for local calls.
- Changes are occurring In Europe, too, partly for these reasons and
- partly because of some new EC rules.
+ American Numbering Plan (NANP) countries (USA, Canada, etc), area codes
+ are split or overlayed with increasing frequency, and 10- and 11-digit
+ dialing is gradually becoming the norm for local calls. Changes are
+ occurring In Europe, too, partly for these reasons and partly because
+ of some new EC rules.
In France, effective 18 October 1996, all calls, even local ones, must
be dialed with an area code. French area codes are presently 1-digit
In Italy beginning 19 June 1998, all calls to fixed (as opposed to
mobile) numbers must be prefixed by 0. When calling into Italy from
- outside, the 0 must follow the country code (39). Calls to cell
- phones, however, must be placed without the 0. Then on 29 December
- 2000, the 0 will become a 4 (for calling fixed numbers) and a prefix
- of 3 must used for calling mobile phones. More info at:
+ outside, the 0 must follow the country code (39). Calls to cell phones,
+ however, must be placed without the 0. Then on 29 December 2000, the 0
+ will become a 4 (for calling fixed numbers) and a prefix of 3 must used
+ for calling mobile phones. More info at:
http://www.telecomitalia.it/npnn/.
In Spain, effective 4 April 1998, with hard cutover on 18 July 1998,
all calls within the country must be dialed with 9 digits, and all
calls from outside Spain must also be dialed with 9 digits (after the
country code, 34). The new 9-digit numbers all begin with "9". More
- info at: [385]http://www.telefonica.es/cambiodenumeracion/
+ info at: [393]http://www.telefonica.es/cambiodenumeracion/
Several new dialing features and commands have been added in version
6.1 and 7.0 to address these changes.
C-Kermit 6.0 and Kermit 95 1.1.11 and earlier handle the French
- situation via a reasonable subterfuge (setting the local area code to
- a nonexistent one), but did not handle "ten-digit dialing" well at
- all; the recommended technique was to change the long-distance dialing
+ situation via a reasonable subterfuge (setting the local area code to a
+ nonexistent one), but did not handle "ten-digit dialing" well at all;
+ the recommended technique was to change the long-distance dialing
prefix to nothing, but this defeated Kermit's "list numbers for one
name" feature when the numbers were in different locations. For
example:
whose area code is in this list, it is dialed WITHOUT the
long-distance prefix, but WITH the area code.
- So in Maryland, which (last time we looked) has two area codes, 410
- and 301, the setup would be:
+ So in Maryland, which (last time we looked) has two area codes, 410 and
+ 301, the setup would be:
SET DIAL LC-AREA-CODES 410 301
The SET DIAL LC-AREA-CODES command does not replace the SET DIAL
AREA-CODE command. The latter specifies the area code you are dialing
- from. If the called number is in the same area code, then the area
- code is dialed if it is also in the LC-AREA-CODES list, and it is not
- dialed otherwise. So if "301" had not appeared in the LC-AREA-CODES
- list in the previous example:
+ from. If the called number is in the same area code, then the area code
+ is dialed if it is also in the LC-AREA-CODES list, and it is not dialed
+ otherwise. So if "301" had not appeared in the LC-AREA-CODES list in
+ the previous example:
SET DIAL LD-PREFIX 1
SET DIAL AREA-CODE 301
DIAL +1 (301) 765-4321 <-- Dials 97654321* (local)
DIAL +1 (410) 765-4321 <-- Dials 94107654321* (local with area code)
DIAL +1 (212) 765-4321 <-- Dials 12127654321 (long distance)
- _________________________________________________________________
- 2.1.3. Forcing Long-Distance Dialing
+2.1.3. Forcing Long-Distance Dialing
Suppose a number is in your country and area, but for some reason you
- need to dial it long-distance anyway (as is always the case in
- France). There have always been various ways to handle this:
+ need to dial it long-distance anyway (as is always the case in France).
+ There have always been various ways to handle this:
1. Temporarily set your area code to a different (or nonexistent or
impossible) one (but this required knowledge of which area codes
were nonexistent or impossible in each country).
- 2. Dial the number literally instead of using the portable format,
- but this defeats the purpose of the portable dialing directory.
+ 2. Dial the number literally instead of using the portable format, but
+ this defeats the purpose of the portable dialing directory.
Now there is also a new command that, very simply, can force
long-distance dialing:
SET DIAL FORCE-LONG-DISTANCE { ON, OFF }
If a call is placed to a portable phone number within the same
country code as the calling number, it is dialed with the
- long-distance prefix and the area code if FORCE-LONG-DISTANCE
- is ON. If OFF, the regular rules and procedures apply.
+ long-distance prefix and the area code if FORCE-LONG-DISTANCE is
+ ON. If OFF, the regular rules and procedures apply.
Example (France):
(In fact, SET DIAL COUNTRY-CODE 33 automatically sets DIAL
FORCE-LONG-DISTANCE ON...)
- Example (USA, for a certain type of reverse-charge calling in which
- the called number must always be fully specified):
+ Example (USA, for a certain type of reverse-charge calling in which the
+ called number must always be fully specified):
SET DIAL PREFIX 18002666328$ ; 1-800-COLLECT
SET DIAL COUNTRY-CODE 1
SET DIAL AREA-CODE 212
SET DIAL FORCE-LONG-DISTANCE ON
- Example (Toronto, where calls to exchange 976 within area code 416
- must be dialed as long distance, even when you are dialing from area
- code 416):
+ Example (Toronto, where calls to exchange 976 within area code 416 must
+ be dialed as long distance, even when you are dialing from area code
+ 416):
SET DIAL COUNTRY-CODE 1
SET DIAL AREA-CODE 416
end \%x
}
- (See [386]Section 7.5 about the \%* variable.)
- _________________________________________________________________
+ (See [394]Section 7.5 about the \%* variable.)
- 2.1.4. Exchange-Specific Dialing Decisions
+2.1.4. Exchange-Specific Dialing Decisions
This applies mainly to the North American Numbering Plan (NANP). Refer
- to the section "Alternative notations" in [387]Using C-Kermit 2nd
+ to the section "Alternative notations" in [395]Using C-Kermit 2nd
Edition, pages 106-107, and the story about Toronto on page 110. Using
the new LC-AREA-CODES list, we can address the problem by treating the
exchange as part of the area code:
111) and in any other place where dialing to some exchanges within a
particular area code is local, but to others in the same area code is
long distance.
- _________________________________________________________________
- 2.1.5. Cautions about Cheapest-First Dialing
+2.1.5. Cautions about Cheapest-First Dialing
Kermit does not maintain a knowledge base of telephony information; it
only provides the tools to let you enter a phone number in a standard
illustration would be certain online services that have toll-free
dialup numbers which they charge you a premium (in your online service
bill) for using.
- _________________________________________________________________
- 2.1.6. Blind Dialing (Dialing with No Dialtone)
+2.1.6. Blind Dialing (Dialing with No Dialtone)
C-Kermit's init string for Hayes-like modems generally includes an X4
command to enable as many result codes as possible, so that Kermit can
before it will dial.
It is becoming increasingly necessary to force a modem to dial even
- though it does not hear a dialtone on the phone line; for example,
- with PBXs that have strange dialtones, or with phone systems in
- different countries, or with ISDN phones, etc. This is called "blind
- dialing".
+ though it does not hear a dialtone on the phone line; for example, with
+ PBXs that have strange dialtones, or with phone systems in different
+ countries, or with ISDN phones, etc. This is called "blind dialing".
C-Kermit 7.0 has two new commands to cope with this situation:
2. The ATX3 command generally disables not only NO DIALTONE, but also
BUSY. So this will prevent Kermit from detecting when the line is
busy. This is a property of the modem, not of Kermit.
- _________________________________________________________________
- 2.1.7. Trimming the Dialing Dialog
+2.1.7. Trimming the Dialing Dialog
The command:
That is, specify a pair of empty braces as the command, for example:
SET MODEM COMMAND ERROR-CORRECTION ON {}
- _________________________________________________________________
- 2.1.8. Controlling the Dialing Speed
+2.1.8. Controlling the Dialing Speed
The rate at which characters are sent to the modem during dialing is
normally controlled by the built-in modem database. You might want to
new command was added for this in C-Kermit 7.0:
SET DIAL PACING number
- Specifies the number of milliseconds (thousandths of seconds)
- to pause between each character when sending commands to the
- modem during DIAL or ANSWER command execution. 0 means no pause
- at all, -1 (the default) or any other negative number means to
- use the value from the database. Any number greater than 0 is
- the number of milliseconds to pause.
+ Specifies the number of milliseconds (thousandths of seconds) to
+ pause between each character when sending commands to the modem
+ during DIAL or ANSWER command execution. 0 means no pause at
+ all, -1 (the default) or any other negative number means to use
+ the value from the database. Any number greater than 0 is the
+ number of milliseconds to pause.
HINT: You might also need to control the rate at which the modem
generates Touch Tones during dialing, for example when sending a
- numeric page. There are two ways to do this. One way is to insert
- pause characters into the dialing string. For modems that use the AT
- command set, the pause character is comma (,) and causes a 2-second
- pause. On most modems, you can use the S8 register to change the pause
- interval caused by comma in the dialing string. The other way is to
- set your modem's tone generation interval, if it has a command for
- that. Most AT-command-set modems use S11 for this; the value is in
- milliseconds. For example on USR modems:
+ numeric page. There are two ways to do this. One way is to insert pause
+ characters into the dialing string. For modems that use the AT command
+ set, the pause character is comma (,) and causes a 2-second pause. On
+ most modems, you can use the S8 register to change the pause interval
+ caused by comma in the dialing string. The other way is to set your
+ modem's tone generation interval, if it has a command for that. Most
+ AT-command-set modems use S11 for this; the value is in milliseconds.
+ For example on USR modems:
ATS11=200
Hint: To add S-Register settings or other commands to your dialing
procedure, use the new SET MODEM COMMAND PREDIAL-INIT command
- ([388]Section 2.2.2).
- _________________________________________________________________
+ ([396]Section 2.2.2).
- 2.1.9. Pretesting Phone Number Conversions
+2.1.9. Pretesting Phone Number Conversions
The LOOKUP command now accepts telephone numbers as well as
directory-entry names, for example:
+1 (212) 7654321 => 93,7654321
C-Kermit>
- You can also use the \fdialconvert(phone-number) function
- ([389]Section 2.1.11) to do this programmatically:
+ You can also use the \fdialconvert(phone-number) function ([397]Section
+ 2.1.11) to do this programmatically:
C-Kermit> echo "\fdialconvert(+1 (212) 7654321)"
"93,7654321"
So the new LOOKUP behaves as follows:
LOOKUP portable-format-phone-number
- Displays how the number would actually be dialed Sets FAILURE
- if there was a conversion error, otherwise SUCCESS.
+ Displays how the number would actually be dialed Sets FAILURE if
+ there was a conversion error, otherwise SUCCESS.
LOOKUP literal-format-phone-number
Displays the same literal-format-phone-number Always sets
LOOKUP dialing-directory-name
Displays all matching entries and converts portable phone
- numbers. Sets SUCCESS if at least one entry was found,
- otherwise FAILURE.
+ numbers. Sets SUCCESS if at least one entry was found, otherwise
+ FAILURE.
LOOKUP =anything
Displays "=anything" and sets SUCCESS.
There is, at present, no programmatic way to fetch numbers from the
dialing directory. This will be considered for a future release.
- _________________________________________________________________
- 2.1.10. Greater Control over Partial Dialing
+2.1.10. Greater Control over Partial Dialing
The following rules now apply to partial dialing:
* Phone number transformations based on country and area code,
application of prefixes, etc, are performed only on the first
PDIAL.
- * Each PDIAL argument is looked up in the dialing directory, so it
- is possible have directory entries for pieces of phone numbers or
+ * Each PDIAL argument is looked up in the dialing directory, so it is
+ possible have directory entries for pieces of phone numbers or
other information.
* Suffixes are not applied automatically, since there is no way for
C-Kermit to know in which PDIAL segment you want them to be
pdial {\v(dialsuffix)}
pdial {\m(my_long_distance_pager_number_part_3)}
pdial {@\m(numeric_pager_code)#}
- _________________________________________________________________
- 2.1.11. New DIAL-related Variables and Functions
+2.1.11. New DIAL-related Variables and Functions
\fdialconvert(s)
s is a phone number in either literal or portable format (not a
same as the result of LOOKUP when given a telephone number.
\v(dialsuffix)
- Contains the suffix, if any, that was applied in the most
- recent DIAL command, or the suffix that would have been applied
- in the most recent PDIAL command. Use this variable to send the
- dial suffix at any desired point in a PDIAL sequence.
+ Contains the suffix, if any, that was applied in the most recent
+ DIAL command, or the suffix that would have been applied in the
+ most recent PDIAL command. Use this variable to send the dial
+ suffix at any desired point in a PDIAL sequence.
\v(dialtype)
A number indicating the type of call that was most recently
first PDIAL command in a PDIAL sequence. Values are:
-2: Unknown because TAPI handled the phone number translation.
- -1: Unknown because some kind of error occured.
+ -1: Unknown because some kind of error occurred.
0: Internal within PBX.
1: Toll-free.
2: Local within calling area.
\v(dialcount)
The current value of the DIAL retry counter, for use in a DIAL
- macro ([390]Section 2.1.13).
+ macro ([398]Section 2.1.13).
\v(d$px)
- PBX Exchange (see [391]Section 2.1.12).
+ PBX Exchange (see [399]Section 2.1.12).
- Other dial-related variables, already documented in [392]Using
- C-Kermit (or other sections of this document, e.g. [393]Section
- 2.1.1), include \v(dialnumber), \v(dialstatus), etc. A convenient way
- to display all of them is:
+ Other dial-related variables, already documented in [400]Using C-Kermit
+ (or other sections of this document, e.g. [401]Section 2.1.1), include
+ \v(dialnumber), \v(dialstatus), etc. A convenient way to display all of
+ them is:
show variable dial ; hint: abbreviate "sho var dial"
This shows the values of all the variables whose names start with
"dial". Also "show variable d$" (to show the \v(d$...) variables).
- _________________________________________________________________
- 2.1.12. Increased Flexibility of PBX Dialing
+2.1.12. Increased Flexibility of PBX Dialing
- Refer to [394]Using C-Kermit, 2nd Edition, pages 107-108. Recall that
- three commands are needed to configure C-Kermit for dialing from a
- PBX:
+ Refer to [402]Using C-Kermit, 2nd Edition, pages 107-108. Recall that
+ three commands are needed to configure C-Kermit for dialing from a PBX:
SET DIAL PBX-EXCHANGE number
SET DIAL PBX-INSIDE-PREFIX number
SET DIAL PBX-OUTSIDE-PREFIX number
- Unfortunately, this model does not accommodate PBXs that have more
- than one exchange. For example our PBX at Columbia University (which
- must handle more than 10,000 phones) has 853-xxxx and 854-xxxx
- exchanges.
+ Unfortunately, this model does not accommodate PBXs that have more than
+ one exchange. For example our PBX at Columbia University (which must
+ handle more than 10,000 phones) has 853-xxxx and 854-xxxx exchanges.
Beginning in C-Kermit 7.0, the SET DIAL PBX-EXCHANGE command accepts a
list of exchanges, e.g.:
(multiple exchanges are separated by spaces, not commas).
So now when dialing a portable-format number that has the same country
- and area codes as those of your dialing location, C-Kermit compares
- the exchange of the dialed number with each number in the PBX Exchange
- list (rather than with a single PBX Exchange number, as it did
- formerly) to determine whether this is an internal PBX number or an
- external call. If it is an external call, then the PBX Outside Prefix
- is applied, and then the normal dialing rules for local or
- long-distance calls.
+ and area codes as those of your dialing location, C-Kermit compares the
+ exchange of the dialed number with each number in the PBX Exchange list
+ (rather than with a single PBX Exchange number, as it did formerly) to
+ determine whether this is an internal PBX number or an external call.
+ If it is an external call, then the PBX Outside Prefix is applied, and
+ then the normal dialing rules for local or long-distance calls.
If it is an inside call, the exchange is replaced by the PBX Inside
Prefix. But if the PBX has more than one exchange, a single fixed PBX
University, we must dial 3-xxxx for an internal call to 853-xxxx, but
4-xxxx for a call to 854-xxxx. That is, the inside prefix is the final
digit of the exchange we are dialing. For this reason, C-Kermit 7.0
- provides a method to determine the inside prefix dynamically at
- dialing time, consisting of a new variable and new syntax for the SET
- DIAL PBX-INSIDE-PREFIX command:
+ provides a method to determine the inside prefix dynamically at dialing
+ time, consisting of a new variable and new syntax for the SET DIAL
+ PBX-INSIDE-PREFIX command:
\v(d$px)
This variable contains the exchange that was matched when a PBX
also be set to a single exchange, as before:
export K_PBX_XCH=853
- _________________________________________________________________
- 2.1.13. The DIAL macro - Last-Minute Phone Number Conversions
+2.1.13. The DIAL macro - Last-Minute Phone Number Conversions
After a DIAL or LOOKUP command is given, a list of phone numbers is
assembled from the dialing directory (if any), with all
location-dependent conversion rules applied as described in Chapter 5
- of [395]Using C-Kermit.
+ of [403]Using C-Kermit.
However, additional conversions might still be required at the last
- minute based on local or ephemeral conditions. So that you can have
- the final word on the exact format of the dial string, C-Kermit 7.0
- lets you pass the converted string through a macro of your own design
- for final processing before dialing. The relevant command is:
+ minute based on local or ephemeral conditions. So that you can have the
+ final word on the exact format of the dial string, C-Kermit 7.0 lets
+ you pass the converted string through a macro of your own design for
+ final processing before dialing. The relevant command is:
SET DIAL MACRO [ name ]
Specifies the name of a macro to be run on each phone number
after all built-in conversions have been applied, just before
the number is dialed. If no name is given, no macro is run. The
- phone number, as it would have been dialed if there were no
- dial macro, is passed to the macro.
+ phone number, as it would have been dialed if there were no dial
+ macro, is passed to the macro.
The dial macro can do anything at all (except start a file transfer).
However, the normal use for the macro would be to modify the phone
number. For this reason the phone number is passed to the macro as
argument number 1 (\%1). To cause a modified number to be dialed, the
macro should terminate with a RETURN statement specifying a return
- value. To leave the number alone, the macro should simply end.
- Example:
+ value. To leave the number alone, the macro should simply end. Example:
define xxx return 10108889999$\%1
set dial macro xxx
referencing a dialing directory entry, "xyzcorp". The macro is
automatically applied to each matching number.
- Numerous dial-, modem-, communications-, and time-related variables
- are available for decision making your dial macro. Type SHOW VARIABLES
- for a list. Of particular interest is the \v(dialcount) variable,
- which tells how many times the DIAL command gone through its retry
- loop: 1 on the first try, 2 on the second, 3 on the third, and so on,
- and the \v(dialresult) and \v(dialstatus) variables.
+ Numerous dial-, modem-, communications-, and time-related variables are
+ available for decision making your dial macro. Type SHOW VARIABLES for
+ a list. Of particular interest is the \v(dialcount) variable, which
+ tells how many times the DIAL command gone through its retry loop: 1 on
+ the first try, 2 on the second, 3 on the third, and so on, and the
+ \v(dialresult) and \v(dialstatus) variables.
Here are some other applications for the DIAL MACRO (from users):
* Phone numbers in the dialing directory are formatted with '-' for
readability, but some modems don't like the hyphens, so the DIAL
- macro is used to remove them before dialing; e.g
- 0090-123-456-78-99 becomes 00901234567899: "def xxx return
- \freplace(\%1,-)".
+ macro is used to remove them before dialing; e.g 0090-123-456-78-99
+ becomes 00901234567899: "def xxx return \freplace(\%1,-)".
* To set some specific modem (or other) options depending on the
called customer or telephone number.
- * Choosing the most appropriate provider based on (e.g.) time of
- day, or cycling through a list of providers in case some providers
- might be busy.
+ * Choosing the most appropriate provider based on (e.g.) time of day,
+ or cycling through a list of providers in case some providers might
+ be busy.
To illustrate the final item, suppose you have a choice among many
phone service providers; the provider is chosen by dialing an access
code before the number. Different providers might be better (e.g.
cheaper) for certain times of day or days of the week, or for dialing
- certain locations; you can use the DIAL macro to add the access for
- the most desirable provider.
+ certain locations; you can use the DIAL macro to add the access for the
+ most desirable provider.
Similarly, when the same number might be reached through multiple
providers, it's possible that one provider might not be able to
SET DIAL TEST { ON, OFF }
Normally OFF, so the DIAL command actually dials. When ON, the
DIAL command performs all lookups and number conversions, and
- then goes through the number list and retry loop, but instead
- of actually dialing, lists the numbers it would have called if
- none of the DIAL attempts succeeded (or more precisely, every
- number was always busy).
- _________________________________________________________________
+ then goes through the number list and retry loop, but instead of
+ actually dialing, lists the numbers it would have called if none
+ of the DIAL attempts succeeded (or more precisely, every number
+ was always busy).
- 2.1.14. Automatic Tone/Pulse Dialing Selection
+2.1.14. Automatic Tone/Pulse Dialing Selection
SET DIAL METHOD { AUTO, DEFAULT, PULSE, TONE }
Chooses the dialing method for subsequent calls.
Prior to version 7.0, C-Kermit's DIAL METHOD was DEFAULT by default,
meaning it does not specify a dialing method to the modem, but relies
- on the modem to have an appropriate default dialing method set. So,
- for example, when using Hayes compatible modems, the dial string would
- be something like ATD7654321, rather than ATDT7654321 or ATDP7654321.
+ on the modem to have an appropriate default dialing method set. So, for
+ example, when using Hayes compatible modems, the dial string would be
+ something like ATD7654321, rather than ATDT7654321 or ATDP7654321.
In C-Kermit 7.0 and K95 1.1.19, the dial method can be set from the
environment variable:
from a location where pulse dialing is mandatory, pulse dialing is
used.
- The "tone country" and "pulse country" lists are preloaded according
- to our knowledge at the time of release. You can see their contents in
- the SHOW DIAL listing. You can change the lists with:
+ The "tone country" and "pulse country" lists are preloaded according to
+ our knowledge at the time of release. You can see their contents in the
+ SHOW DIAL listing. You can change the lists with:
SET DIAL TONE-COUNTRIES [ cc [ cc [ ... ] ] ]
Replaces the current TONE-COUNTRIES list with the one given.
set dial tone-countries 1 358 44 46 49
If no country codes are given, the current list, if any, is
- removed, in which case SET DIAL METHOD AUTO is equivalent to
- SET DIAL METHOD DEFAULT.
+ removed, in which case SET DIAL METHOD AUTO is equivalent to SET
+ DIAL METHOD DEFAULT.
SET DIAL PULSE-COUNTRIES [ cc [ cc [ ... ] ] ]
Replaces the current PULSE-COUNTRIES list with the one give.
Syntax and operation is like SET DIAL TONE-COUNTRIES.
- If the same country code appears in both lists, Pulse takes
- precedence.
+ If the same country code appears in both lists, Pulse takes precedence.
- The SET DIAL TONE- and PULSE-COUNTRIES commands perform no
- verification whatsoever on the cc's, since almost any syntax might be
- legal in some settings. Furthermore, there is no facility to edit the
- lists; you can only replace the whole list. However, since the only
- purpose of these lists is to establish a basis for picking tone or
- pulse dialing automatically, all you need to override the effect of
- the list is to set a specific dialing method with SET DIAL METHOD TONE
- or SET DIAL METHOD PULSE.
- _________________________________________________________________
+ The SET DIAL TONE- and PULSE-COUNTRIES commands perform no verification
+ whatsoever on the cc's, since almost any syntax might be legal in some
+ settings. Furthermore, there is no facility to edit the lists; you can
+ only replace the whole list. However, since the only purpose of these
+ lists is to establish a basis for picking tone or pulse dialing
+ automatically, all you need to override the effect of the list is to
+ set a specific dialing method with SET DIAL METHOD TONE or SET DIAL
+ METHOD PULSE.
- 2.1.15. Dial-Modifier Variables
+2.1.15. Dial-Modifier Variables
As of C-Kermit 7.0, dial modifiers are available in the following
variables:
\v(dm_wd) = W
\v(dm_rc) = ;
C-Kermit>exit
- _________________________________________________________________
- 2.1.16. Giving Multiple Numbers to the DIAL Command
+2.1.16. Giving Multiple Numbers to the DIAL Command
Prior to C-Kermit 7.0, the only way to give a DIAL command a list of
phone numbers to try until one answers was to create a dialing
directory that had multiple entries under the same name, and then use
- that entry name in the DIAL command. Now a list of numbers can be
- given to the DIAL command directly in the following format:
+ that entry name in the DIAL command. Now a list of numbers can be given
+ to the DIAL command directly in the following format:
dial {{number1}{number2}{number3}...}
and then:
work
- _________________________________________________________________
- 2.2. Modems
+2.2. Modems
- 2.2.1. New Modem Types
+2.2.1. New Modem Types
Since C-Kermit 6.0:
One of the new types, "generic-high-speed" needs a bit of explanation.
This type was added to easily handle other types that are not
explicitly covered, without going through the bother of adding a
- complete user-defined modem type. This one works for modern modems
- that use the AT command set, on the assumption that all the default
+ complete user-defined modem type. This one works for modern modems that
+ use the AT command set, on the assumption that all the default
("factory") settings of the modem (a) are appropriate for Kermit, (b)
include error correction, data compression, and speed buffering; and
(c) are recallable with the command AT&F.
If the command to recall your modem's profile is not AT&F, use the SET
MODEM COMMAND INIT-STRING command to specify the appropriate modem
- command. The default init-string is AT&F\13 (that is, AT, ampersand,
- F, and then carriage return); a survey of about 20 modern modem types
+ command. The default init-string is AT&F\13 (that is, AT, ampersand, F,
+ and then carriage return); a survey of about 20 modern modem types
shows they all support this, but they might mean different things by
it. For example, the USR Sportster or Courier needs AT&F1 (not AT&F,
which is equivalent to AT&F0, which recalls an inappropriate profile),
Of course, USR modems already have their own built-in modem type. But
if you use this one instead, it will dial faster because it has fewer
- commands to give to the modem; in that sense "&F1" is like a macro
- that bundles numerous commands into a single one. See your modem
- manual for details about factory profiles and commands to recall them.
+ commands to give to the modem; in that sense "&F1" is like a macro that
+ bundles numerous commands into a single one. See your modem manual for
+ details about factory profiles and commands to recall them.
WARNING: Do not use the generic-high-speed modem type in operating
- systems like VMS where hardware flow control is not available, at
- least not unless you change the init string from AT&F\13 to something
- else that enables local Xon/Xoff or other appropriate type of flow
- control.
+ systems like VMS where hardware flow control is not available, at least
+ not unless you change the init string from AT&F\13 to something else
+ that enables local Xon/Xoff or other appropriate type of flow control.
- Also see [396]Section 2.1.7 for additional hints about making dialing
+ Also see [404]Section 2.1.7 for additional hints about making dialing
go faster.
- _________________________________________________________________
- 2.2.2. New Modem Controls
+2.2.2. New Modem Controls
SET MODEM CAPABILITIES list
In C-Kermit 7.0, this command automatically turns MODEM
turns it ON if SB is absent.
SET MODEM COMMAND PREDIAL-INIT [ text ]
- Commands to be sent to the modem just prior to dialing.
- Normally none.
+ Commands to be sent to the modem just prior to dialing. Normally
+ none.
SET MODEM SPEAKER { ON, OFF }
Determines whether modem speaker is on or off while call is
- being placed. ON by default. Note: This command does not
- provide fine-grained control over when the speaker is on or
- off. Normally, ON means while the call is being placed, until
- the point at which carrier is successfully established. If your
+ being placed. ON by default. Note: This command does not provide
+ fine-grained control over when the speaker is on or off.
+ Normally, ON means while the call is being placed, until the
+ point at which carrier is successfully established. If your
modem has a different speaker option that you want to choose,
then use the SET MODEM COMMAND SPEAKER ON text command to
specify this option.
SET MODEM COMMAND SPEAKER { ON, OFF } [ text ]
- Specify or override the commands to turn your modem's speaker
- on and off.
+ Specify or override the commands to turn your modem's speaker on
+ and off.
SET MODEM VOLUME { LOW, MEDIUM, HIGH }
When MODEM SPEAKER is on, select volume. Note: In some modems,
- especially internal ones, these commands have no effect; this
- is a limitation of the particular modem, not of Kermit.
+ especially internal ones, these commands have no effect; this is
+ a limitation of the particular modem, not of Kermit.
SET MODEM COMMAND VOLUME { LOW, MEDIUM, HIGH } [ text ]
Specify or override the commands to set your modem's speaker
volume.
SET MODEM COMMAND IGNORE-DIALTONE [ text ]
- The command to enable blind dialing ([397]Section 2.1.6).
+ The command to enable blind dialing ([405]Section 2.1.6).
SET MODEM ESCAPE-CHARACTER code
Has been augmented to allow codes of 0 or less: < 0 means the
escape mechanism is disabled. = 0 means to use (restore) the
default value from the modem database. > 0 and < 128 is a
- literal value to be used instead of the default one. > 127
- means the escape mechanism is disabled. This affects "modem
- hangup". When the escape mechanism is disabled, but SET MODEM
+ literal value to be used instead of the default one. > 127 means
+ the escape mechanism is disabled. This affects "modem hangup".
+ When the escape mechanism is disabled, but SET MODEM
HANGUP-METHOD is MODEM-COMMAND, it sends the hangup command
immediately, without the <pause>+++<pause> business first. This
is useful (for example) when sending lots of numeric pages, a
- process in which never we go online, and so never need to
- escape back. Eliminating the unnecessary pauses and escape
- sequence allows a lot more pages to be sent per unit time.
+ process in which never we go online, and so never need to escape
+ back. Eliminating the unnecessary pauses and escape sequence
+ allows a lot more pages to be sent per unit time.
Recall that C-Kermit can dial modems to which it is connected via
- TCP/IP (Telnet or Rlogin) as described on page 126 of [398]Using
+ TCP/IP (Telnet or Rlogin) as described on page 126 of [406]Using
C-Kermit, 2nd Ed. In this case the MODEM HANGUP-METHOD should be
- MODEM-COMMAND, since RS-232 signals don't work over TCP/IP
- connections. As noted in the manual, such connections are set up by
- the following sequence:
+ MODEM-COMMAND, since RS-232 signals don't work over TCP/IP connections.
+ As noted in the manual, such connections are set up by the following
+ sequence:
set host host [ port ]
set modem type name
close
set modem type name
set port name
- _________________________________________________________________
- 2.3. TELNET and RLOGIN
+2.3. TELNET and RLOGIN
- For additional background, please also read the [399]TELNET.TXT file,
- also available on the Web in [400]HTML format.
+ For additional background, please also read the [407]TELNET.TXT file,
+ also available on the Web in [408]HTML format.
Cautions:
- * If making a Telnet connection with C-Kermit takes a very long
- time, like over a minute, whereas the system Telnet program makes
- the same connection immediately, try including the /NOWAIT switch:
+ * If making a Telnet connection with C-Kermit takes a very long time,
+ like over a minute, whereas the system Telnet program makes the
+ same connection immediately, try including the /NOWAIT switch:
C-Kermit> telnet /nowait hostname
- See [401]TELNET.TXT or [402]TELNET.HTM for details. If it also
+
+ See [409]TELNET.TXT or [410]TELNET.HTM for details. If it also
takes a very long time to make a Telnet connection with system
- Telnet, then the delay is most likely caused by reverse DNS
- lookups when your host is not properly registered in DNS.
+ Telnet, then the delay is most likely caused by reverse DNS lookups
+ when your host is not properly registered in DNS.
* When supplying numeric IP addresses to C-Kermit or to any other
application (regular Telnet, Rlogin, etc), do not include leading
0's in any fields unless you intend for those fields to be
All numbers supplied as "parts" in a "." notation may be decimal,
octal, or hexadecimal, as specified in the C language (that is, a
- leading 0x or 0X implies hexadecimal; otherwise, a leading 0
- implies octal; otherwise, the number is interpreted as decimal).
+ leading 0x or 0X implies hexadecimal; otherwise, a leading 0 implies
+ octal; otherwise, the number is interpreted as decimal).
To illustrate, 128.59.39.2 and 128.059.039.002 are not the same
host! Even though most of the fields contain non-octal digits.
Using system Telnet (not Kermit):
$ telnet 128.059.039.002
Trying 128.49.33.2 ...
- Of course the same thing happens with Kermit because it uses (as
- it must) the same system service for resolving network addresses
- that Telnet, FTP, and all other TCP/IP applications use.
+
+ Of course the same thing happens with Kermit because it uses (as it
+ must) the same system service for resolving network addresses that
+ Telnet, FTP, and all other TCP/IP applications use.
* The RLOGIN section on page 123 does not make it clear that you can
use the SET TELNET TERMINAL-TYPE command to govern the terminal
type that is reported by C-Kermit to the RLOGIN server.
SET TCP REVERSE-DNS-LOOKUP { ON, OFF, AUTO }
Tells Kermit whether to perform a reverse DNS lookup on TCP/IP
- connections. This allows Kermit to determine the actual
- hostname of the host it is connected to, which is useful for
- connections to host pools, and is required for Kerberos
- connections to host pools and for incoming connections. If the
- other host does not have a DNS entry, the reverse lookup could
- take a long time (minutes) to fail, but the connection will
- still be made. Turn this option OFF for speedier connections if
- you do not need to know exactly which host you are connected to
- and you are not using Kerberos. AUTO, the default, means the
- lookup is done on hostnames, but not on numeric IP addresses.
+ connections. This allows Kermit to determine the actual hostname
+ of the host it is connected to, which is useful for connections
+ to host pools, and is required for Kerberos connections to host
+ pools and for incoming connections. If the other host does not
+ have a DNS entry, the reverse lookup could take a long time
+ (minutes) to fail, but the connection will still be made. Turn
+ this option OFF for speedier connections if you do not need to
+ know exactly which host you are connected to and you are not
+ using Kerberos. AUTO, the default, means the lookup is done on
+ hostnames, but not on numeric IP addresses.
SET TELNET WAIT-FOR-NEGOTIATIONS { ON, OFF }
Each Telnet option must be fully negotiated either On or Off
Kermit must wait for the negotiations to complete. Of course,
Kermit has no way of knowing whether a reply is delayed or not
coming at all, and so will wait a minute or more for required
- replies before continuing the session. If you know that
- Kermit's Telnet partner will not be sending the required
- replies, you can set this option of OFF to avoid the long
- timeouts. Or you can instruct Kermit to REFUSE specific options
- with the SET TELOPT command.
+ replies before continuing the session. If you know that Kermit's
+ Telnet partner will not be sending the required replies, you can
+ set this option of OFF to avoid the long timeouts. Or you can
+ instruct Kermit to REFUSE specific options with the SET TELOPT
+ command.
SET TELOPT [ { /CLIENT, /SERVER } ] option
{ ACCEPTED, REFUSED, REQUESTED, REQUIRED }
disconnect if the option is refused. REQUESTED causes Kermit to
offer an option to the peer. ACCEPTED results in no offer but
Kermit will attempt to negotiate the option if it is requested.
- REFUSED instructs Kermit to refuse the option if it is
- requested by the peer.
+ REFUSED instructs Kermit to refuse the option if it is requested
+ by the peer.
Some options are negotiated in two directions and accept
separate policies for each direction; the first keyword applies
- to Kermit itself, the second applies to Kermit's Telnet
- partner; if the second keyword is omitted, an appropriate
+ to Kermit itself, the second applies to Kermit's Telnet partner;
+ if the second keyword is omitted, an appropriate
(option-specific) default is applied. You can also include a
- /CLIENT or /SERVER switch to indicate whether the given
- policies apply when Kermit is the Telnet client or the Telnet
- server; if no switch is given, the command applies to the
- client.
+ /CLIENT or /SERVER switch to indicate whether the given policies
+ apply when Kermit is the Telnet client or the Telnet server; if
+ no switch is given, the command applies to the client.
Note that some of Kermit's Telnet partners fail to refuse
- options that they do not recognize and instead do not respond
- at all. In this case it is possible to use SET TELOPT to
- instruct Kermit to REFUSE the option before connecting to the
- problem host, thus skipping the problematic negotiation.
+ options that they do not recognize and instead do not respond at
+ all. In this case it is possible to use SET TELOPT to instruct
+ Kermit to REFUSE the option before connecting to the problem
+ host, thus skipping the problematic negotiation.
Use SHOW TELOPT to view current Telnet Option negotiation
settings. SHOW TELNET displays current Telnet settings.
- _________________________________________________________________
- 2.3.0. Bug Fixes
+2.3.0. Bug Fixes
If "set host nonexistent-host" was given (and it properly failed),
followed by certain commands like SEND, the original line and modem
- type were not restored and C-Kermit thought that it still had a
- network hostname; fixed in 7.0.
+ type were not restored and C-Kermit thought that it still had a network
+ hostname; fixed in 7.0.
- 2.3.1. Telnet Binary Mode Bug Adjustments
+2.3.1. Telnet Binary Mode Bug Adjustments
SET TELNET BUG BINARY-ME-MEANS-U-TOO { ON, OFF } was added to edit 192
after the book was printed. Also SET TELNET BUG BINARY-U-MEANS-ME-TOO.
is in binary mode, contrary to the Telnet specification, which says
that binary mode must be negotiated in each direction separately.
- 2.3.2. VMS UCX Telnet Port Bug Adjustment
+2.3.2. VMS UCX Telnet Port Bug Adjustment
A new command, SET TCP UCX-PORT-BUG, was added for VMS versions with
UCX (DEC TCP/IP), applying only to early versions of UCX, like 2.2 or
earlier. If you try to use VMS C-Kermit to make a Telnet connection
using a port name (like "telnet", which is used by default), the
- underlying UCX getservbyname() function might return the service
- number with its bytes swapped and the connection will fail. If "telnet
+ underlying UCX getservbyname() function might return the service number
+ with its bytes swapped and the connection will fail. If "telnet
hostname 23" works, then your version of UCX has this bug and you can
put "set tcp ucx-port-bug on" in your CKERMIT.INI file to get around
it.
- 2.3.3. Telnet New Environment Option
+2.3.3. Telnet New Environment Option
- The TELNET NEW-ENVIRONMENT option ([403]RFC 1572) is supported as 7.0.
+ The TELNET NEW-ENVIRONMENT option ([411]RFC 1572) is supported as 7.0.
This option allows the C-Kermit Telnet client to send certain
well-known variables to the Telnet server, including USER, PRINTER,
DISPLAY, and several others. This feature is enabled by default in
When ON, and you Telnet to another computer, you might (or might not)
notice that the "login:" or "Username:" prompt does not appear --
that's because your username was sent ahead, in which case the remote
- system might prompt you only for your password (similar to Rlogin).
- Use "set telnet environment off" to defeat this feature, particularly
- in scripts where the dialog must be predictable. You can also use this
- command to specify or override specific well-known environment
- variable values:
+ system might prompt you only for your password (similar to Rlogin). Use
+ "set telnet environment off" to defeat this feature, particularly in
+ scripts where the dialog must be predictable. You can also use this
+ command to specify or override specific well-known environment variable
+ values:
SET TELNET ENVIRONMENT { ACCT,DISPLAY,JOB,PRINTER,SYSTEMTYPE,USER } [ text ]
- 2.3.4. Telnet Location Option
+2.3.4. Telnet Location Option
- The TELNET LOCATION option ([404]RFC 779) is supported in 7.0. This
+ The TELNET LOCATION option ([412]RFC 779) is supported in 7.0. This
option allows the C-Kermit Telnet client to send a location string to
- the server if the server indicates its willingness to accept one. If
- an environment variable named LOCATION exists at the time C-Kermit
- starts, its value is used as the location string. If you want to
- change it, use:
+ the server if the server indicates its willingness to accept one. If an
+ environment variable named LOCATION exists at the time C-Kermit starts,
+ its value is used as the location string. If you want to change it,
+ use:
SET TELNET LOCATION text
If you omit the text from this command, the Telnet location feature is
disabled.
- SET TELNET ENVIRONMENT DISPLAY is used to set the DISPLAY variable
- that is sent to the host, as well as the the XDISPLAY location.
+ SET TELNET ENVIRONMENT DISPLAY is used to set the DISPLAY variable that
+ is sent to the host, as well as the XDISPLAY location.
- 2.3.5. Connecting to Raw TCP Sockets
+2.3.5. Connecting to Raw TCP Sockets
The SET HOST and TELNET commands now accept an optional switch,
/RAW-SOCKET, at the end, only if you first give a host and a port.
telnet xyzcorp.com 3000 /raw
Without this switch, C-Kermit behaves as a Telnet client when (a) the
- port is 23 or 1649, or (b) the port is not 513 and the server sent
- what appeared to be Telnet negotiations -- that is, messages starting
- with 0xFF (IAC). With this switch, Kermit should treat all incoming
- bytes as raw data, and will not engage in any Telnet negotiations or
- NVT CRLF manipulations. This allows transparent operation through
- (e.g.) raw TCP ports on Cisco terminal servers, through the 'modemd'
- modem server, etc.
+ port is 23 or 1649, or (b) the port is not 513 and the server sent what
+ appeared to be Telnet negotiations -- that is, messages starting with
+ 0xFF (IAC). With this switch, Kermit should treat all incoming bytes as
+ raw data, and will not engage in any Telnet negotiations or NVT CRLF
+ manipulations. This allows transparent operation through (e.g.) raw TCP
+ ports on Cisco terminal servers, through the 'modemd' modem server,
+ etc.
- 2.3.6. Incoming TCP Connections
+2.3.6. Incoming TCP Connections
Accomplished via SET HOST * port, were introduced in C-Kermit 6.0, but
for UNIX only. In Version 7.0, they are also available for VMS.
- _________________________________________________________________
- 2.4. The EIGHTBIT Command
+2.4. The EIGHTBIT Command
EIGHTBIT is simply a shorthand for: SET PARITY NONE, SET TERMINAL
BYTESIZE 8, SET COMMAND BYTESIZE 8; that is, a way to set up an 8-bit
clean connection in a single command.
- _________________________________________________________________
- 2.5. The Services Directory
+2.5. The Services Directory
- Chapter 7 of [405]Using C-Kermit does not mention the ULOGIN macro,
+ Chapter 7 of [413]Using C-Kermit does not mention the ULOGIN macro,
which is used by our sample services directory, CKERMIT.KND. Unlike
- UNIXLOGIN, VMSLOGIN, etc, this one is for use with systems that
- require a user ID but no password. Therefore it doesn't prompt for a
- password or wait for a password prompt from the remote service.
+ UNIXLOGIN, VMSLOGIN, etc, this one is for use with systems that require
+ a user ID but no password. Therefore it doesn't prompt for a password
+ or wait for a password prompt from the remote service.
In version 7.0, the CALL macro was changed to not execute a SET MODEM
TYPE command if the given modem type was the same as the current one;
otherwise the new SET MODEM TYPE command would overwrite any
customizations that the user had made to the modem settings. Ditto for
SET LINE / SET PORT and SET SPEED.
- _________________________________________________________________
- 2.6. Closing Connections
+2.6. Closing Connections
Until version 7.0, there was never an obvious and general way to close
a connection. If a serial connection was open, it could be closed by
expect, especially if you are a Telnet or Ftp user.
Also see the description of the new SET CLOSE-ON-DISCONNECT command in
- [406]Section 2.10.
- _________________________________________________________________
+ [414]Section 2.10.
- 2.7. Using C-Kermit with External Communication Programs
+2.7. Using C-Kermit with External Communication Programs
C-Kermit 7.0 includes a new ability to create and conduct sessions
through other communications programs. Two methods are available:
not on any non-UNIX platforms.
2. Pipe: The external program's standard input and output are
redirected through a "pipe" controlled by Kermit. This method is
- relatively portable -- it should work across all UNIX versions,
- and it also works in Windows and OS/2 -- but it is effective only
- when the external program actually uses standard i/o (and many
- don't).
+ relatively portable -- it should work across all UNIX versions, and
+ it also works in Windows and OS/2 -- but it is effective only when
+ the external program actually uses standard i/o (and many don't).
The two methods are started differently but are used the same way
thereafter.
The purpose of this feature is to let you use C-Kermit services like
- file transfer, character-set translation, scripting, automatic
- dialing, etc, on connections that Kermit can't otherwise make itself.
+ file transfer, character-set translation, scripting, automatic dialing,
+ etc, on connections that Kermit can't otherwise make itself.
- This feature is the opposite of the REDIRECT feature, in which
- C-Kermit makes the connection, and redirects an external (local)
- command or program over this connection. In a pty or pipe connection,
- C-Kermit runs and controls a local command or program, which makes the
+ This feature is the opposite of the REDIRECT feature, in which C-Kermit
+ makes the connection, and redirects an external (local) command or
+ program over this connection. In a pty or pipe connection, C-Kermit
+ runs and controls a local command or program, which makes the
connection. (The same method can be used to simply to control a local
- program without making a connection; see [407]Section 2.8.)
+ program without making a connection; see [415]Section 2.8.)
To find out if your version of Kermit includes PTY support, type "show
features" and look for NETPTY in the alphabetical list of options. For
* COMMAND is an invisible synonym for PIPE.
* The command and its arguments are case-sensitive in UNIX.
- The SET NETWORK TYPE, SET HOST sequence sets the given network type
- for all subsequent SET HOST commands until another SET NETWORK TYPE
- command is given to change it.
+ The SET NETWORK TYPE, SET HOST sequence sets the given network type for
+ all subsequent SET HOST commands until another SET NETWORK TYPE command
+ is given to change it.
You can also use the new /NETWORK-TYPE:PTY or /NETWORK-TYPE:PIPE (or
simply /PIPE or /PTY) switches on the SET HOST command itself:
SET HOST /NETWORK-TYPE:PTY command ; Ditto
SET HOST /PTY command
- These are like SET NETWORK TYPE followed by SET HOST, except they
- apply only to the connection being made and do not change the global
- network type setting (see [408]Section 1.5 about the difference
- between switches and SET commands).
+ These are like SET NETWORK TYPE followed by SET HOST, except they apply
+ only to the connection being made and do not change the global network
+ type setting (see [416]Section 1.5 about the difference between
+ switches and SET commands).
- Include any command-line options with the command that might be
- needed, as in this example where C-Kermit uses another copy of itself
- as the communications program:
+ Include any command-line options with the command that might be needed,
+ as in this example where C-Kermit uses another copy of itself as the
+ communications program:
SET HOST /PIPE /CONNECT kermit -YQJ xyzcorp.com
+ IMPORTANT: In Unix, wildcards and redirectors are interpreted by the
+ shell. If you want to run a program with (say) SET HOST /PTY with
+ its i/o redirected or with wildcard file arguments, you will need to
+ invoke the shell too. Example:
+
+SET HOST /PTY {sh -c "crypt < foo.x"}
+SET HOST /PTY {sh -c "grep somestring *.txt"}
+
As usual, if you include the /CONNECT switch, SET HOST enters CONNECT
mode immediately upon successful execution of the given command.
Therefore new commands are available as a shorthand for SET HOST
PIPE [ command ]
The PTY and PIPE commands work like the TELNET and RLOGIN
commands: they set up the connection (in this case, using the
- given command) and then enter CONNECT mode automatically (if
- the PIPE or PTY command is given without a command, it
- continues the current session if one is active; otherwise it
- gives an error message).
+ given command) and then enter CONNECT mode automatically (if the
+ PIPE or PTY command is given without a command, it continues the
+ current session if one is active; otherwise it gives an error
+ message).
The PIPE command is named after the mechanism by which C-Kermit
communicates with the command: UNIX pipes. C-Kermit's i/o is "piped"
IMPORTANT:
If you are writing a script, do not use the PIPE, PTY, TELNET,
or RLOGIN command unless you really want C-Kermit to enter
- CONNECT mode at that point. Normally SET HOST is used in
- scripts to allow the login and other dialogs to be controlled
- by the script itself, rather than by an actively participating
- human at the keyboard.
+ CONNECT mode at that point. Normally SET HOST is used in scripts
+ to allow the login and other dialogs to be controlled by the
+ script itself, rather than by an actively participating human at
+ the keyboard.
- Throughput of pty and pipe connections is limited by the performance
- of the chosen command or program and by the interprocess communication
+ Throughput of pty and pipe connections is limited by the performance of
+ the chosen command or program and by the interprocess communication
(IPC) method used and/or buffering capacity of the pipe or pty, which
in turn depends on the underlying operating system.
In one trial (on SunOS 4.1.3), we observed file transfer rates over an
rlogin connection proceeding at 200Kcps for downloads, but only 10Kcps
for uploads on the same connection with the same settings (similar
- disparities were noted in HP-UX). Examination of the logs revealed
- that a write to the pipe could take as long as 5 seconds, whereas
- reads were practically instantaneous. On the other hand, using Telnet
- as the external program rather than rlogin, downloads and uploads were
- better matched at about 177K each.
-
- Most external communication programs, like C-Kermit itself, have
- escape characters or sequences. Normally these begin with (or consist
- entirely of) a control character. You must be sure that this control
- character is not "unprefixed" when uploading files, otherwise the
- external program will "escape back" to its prompt, or close the
- connection, or take some other unwanted action. When in CONNECT mode,
- observe the program's normal interaction rules. Of course C-Kermit's
- own escape character (normally Ctrl-\) is active too, unless you have
- taken some action to disable it.
+ disparities were noted in HP-UX). Examination of the logs revealed that
+ a write to the pipe could take as long as 5 seconds, whereas reads were
+ practically instantaneous. On the other hand, using Telnet as the
+ external program rather than rlogin, downloads and uploads were better
+ matched at about 177K each.
+
+ Most external communication programs, like C-Kermit itself, have escape
+ characters or sequences. Normally these begin with (or consist entirely
+ of) a control character. You must be sure that this control character
+ is not "unprefixed" when uploading files, otherwise the external
+ program will "escape back" to its prompt, or close the connection, or
+ take some other unwanted action. When in CONNECT mode, observe the
+ program's normal interaction rules. Of course C-Kermit's own escape
+ character (normally Ctrl-\) is active too, unless you have taken some
+ action to disable it.
On PTY connections, the underlying PTY driver is not guaranteed to be
- transparent to control characters -- for example, it might expand
- tabs, translate carriage returns, generate signals if it sees an
- interrupt character, and so on. Similar things might happen on a PIPE
- connection. For this reason, if you plan to transfer files over a PTY
- or PIPE connection, tell the file sender to:
+ transparent to control characters -- for example, it might expand tabs,
+ translate carriage returns, generate signals if it sees an interrupt
+ character, and so on. Similar things might happen on a PIPE connection.
+ For this reason, if you plan to transfer files over a PTY or PIPE
+ connection, tell the file sender to:
SET PREFIXING ALL
This causes all control characters to be prefixed and
transmitted as printable ASCII characters.
- If the external connection program is not 8-bit clean, you should
- also:
+ If the external connection program is not 8-bit clean, you should also:
SET PARITY SPACE
This causes 8-bit data to be encoded in 7 bits using single
SET STREAMING OFF
This forces C-Kermit to treat the connection as unreliable and
- to engage in its normal ACK/NAK protocol for error detection
- and correction, rather than "streaming" its packets, as it
- normally does on a network connection ([409]Section 4.20).
-
- In some cases, buffer sizes might be restricted, so you might also
- need to reduce the Kermit packet length to fit; this is a
- trial-and-error affair. For example, if transfers always fail with
- 4000-byte packets, try 2000. If that fails too, try 1000, and so on.
- The commands are:
+ to engage in its normal ACK/NAK protocol for error detection and
+ correction, rather than "streaming" its packets, as it normally
+ does on a network connection ([417]Section 4.20).
+
+ In some cases, buffer sizes might be restricted, so you might also need
+ to reduce the Kermit packet length to fit; this is a trial-and-error
+ affair. For example, if transfers always fail with 4000-byte packets,
+ try 2000. If that fails too, try 1000, and so on. The commands are:
SET RECEIVE PACKET-LENGTH number
- This tells the file receiver to tell the file sender the
- longest packet length it can accept.
+ This tells the file receiver to tell the file sender the longest
+ packet length it can accept.
SET SEND PACKET-LENGTH number
This tells the file sender not to send packets longer than the
throughput.
Note that when starting a PIPE connection, and the connection program
- (such as telnet or rlogin) prints some greeting or information
- messages before starting the connection, these are quite likely to be
- printed with a stairstep effect (linefeed without carriage return).
- This is because the program is not connected with the UNIX terminal
- driver; there's not much Kermit can do about it. Once the connection
- is made, everything should go back to normal. This shouldn't happen on
- a PTY connection because a PTY is, indeed, a terminal.
+ (such as telnet or rlogin) prints some greeting or information messages
+ before starting the connection, these are quite likely to be printed
+ with a stairstep effect (linefeed without carriage return). This is
+ because the program is not connected with the UNIX terminal driver;
+ there's not much Kermit can do about it. Once the connection is made,
+ everything should go back to normal. This shouldn't happen on a PTY
+ connection because a PTY is, indeed, a terminal.
On a similar note, some connection programs (like Solaris 2.5 rlogin)
might print lots of error messages like "ioctl TIOCGETP: invalid
argument" when used through a pipe. They are annoying but usually
harmless. If you want to avoid these messages, and your shell allows
- redirection of stderr, you can redirect stderr in your pipe command,
- as in this example where the user's shell is bash:
+ redirection of stderr, you can redirect stderr in your pipe command, as
+ in this example where the user's shell is bash:
PIPE rlogin xyzcorp.com 2> /dev/null
Or use PTY rather than PIPE, since PTY is available on Solaris.
- _________________________________________________________________
- 2.7.0. C-Kermit over tn3270 and tn5250
+2.7.0. C-Kermit over tn3270 and tn5250
Now you can make a connection from C-Kermit "directly" to an IBM
mainframe and transfer files with it, assuming it has Kermit-370
SET HOST /PIPE does not work in this case, at least not for file
transfer. File transfer does work, however, with SET HOST /PTY,
- provided you use the default packet length of 90 bytes; anything
- longer seems to kill the session.
+ provided you use the default packet length of 90 bytes; anything longer
+ seems to kill the session.
You can also make connections to IBM AS/400 computers if you have a
tn5250 program installed:
pty tn5250 hostname
- In this case, however, file transfer is probably not in the cards
- since nobody has ever succeeded in writing a Kermit program for the
- AS/400. Hint:
+ In this case, however, file transfer is probably not in the cards since
+ nobody has ever succeeded in writing a Kermit program for the AS/400.
+ Hint:
define tn3270 {
check pty
pty tn3270 \%*
}
- Similarly for tn5250. Note that CHECK PTY and CHECK PIPE can be used
- in macros and scripts to test whether PTY or PIPE support is
- available.
- _________________________________________________________________
+ Similarly for tn5250. Note that CHECK PTY and CHECK PIPE can be used in
+ macros and scripts to test whether PTY or PIPE support is available.
- 2.7.1. C-Kermit over Telnet
+2.7.1. C-Kermit over Telnet
Although C-Kermit includes its own Telnet implementation, you might
need to use an external Telnet program to make certain connections;
or, equivalently:
PTY (or PIPE) telnet abccorp.com
- _________________________________________________________________
- 2.7.2. C-Kermit over Rlogin
+2.7.2. C-Kermit over Rlogin
C-Kermit includes its own Rlogin client, but this can normally be used
- only if you are root, since the rlogin TCP port is privileged. But
- ptys and pipes let you make rlogin connections with C-Kermit through
- your computer's external rlogin program, which is normally installed
- as a privileged program:
+ only if you are root, since the rlogin TCP port is privileged. But ptys
+ and pipes let you make rlogin connections with C-Kermit through your
+ computer's external rlogin program, which is normally installed as a
+ privileged program:
SET PREFIXING ALL
followed by Tilde (~), but only when the tilde is followed by certain
other characters; the exact behavior depends on your rlogin client, so
read its documentation.
- _________________________________________________________________
- 2.7.3. C-Kermit over Serial Communication Programs
+2.7.3. C-Kermit over Serial Communication Programs
Ptys and pipes also let you use programs that make serial connections,
- such as cu or tip. For example, C-Kermit can be used through cu to
- make connections that otherwise might not be allowed, e.g. because
- C-Kermit is not installed with the required write permissions to the
- dialout device and the UUCP lockfile directory.
+ such as cu or tip. For example, C-Kermit can be used through cu to make
+ connections that otherwise might not be allowed, e.g. because C-Kermit
+ is not installed with the required write permissions to the dialout
+ device and the UUCP lockfile directory.
Suppose your UUCP Devices file contains an entry for a serial device
tty04 to be used for direct connections, but this device is protected
sequence, which is the same as the rlogin program's: Carriage Return
followed by Tilde (followed by another character to specify an action,
like "." for closing the connection and exiting from cu).
- _________________________________________________________________
- 2.7.4. C-Kermit over Secure Network Clients
+2.7.4. C-Kermit over Secure Network Clients
DISCLAIMER: There are laws in the USA and other countries regarding
use, import, and/or export of encryption and/or decryption or other
- forms of security software, algorithms, technology, and
- intellectual property. The Kermit Project attempts to follow all
- known statutes, and neither intends nor suggests that Kermit
- software can or should be used in any way, in any location, that
- circumvents any regulations, laws, treaties, covenants, or other
- legitimate canons or instruments of law, international relations,
- trade, ethics, or propriety.
+ forms of security software, algorithms, technology, and intellectual
+ property. The Kermit Project attempts to follow all known statutes,
+ and neither intends nor suggests that Kermit software can or should
+ be used in any way, in any location, that circumvents any
+ regulations, laws, treaties, covenants, or other legitimate canons
+ or instruments of law, international relations, trade, ethics, or
+ propriety.
For secure connections or connections through firewalls, C-Kermit 7.0
can be a Kerberos, SRP, and/or SOCKS client when built with the
- appropriate options and libraries. But other application-level
- security acronyms and methods -- SSH, SSL, SRP, TLS -- pop up at an
- alarming rate and are (a) impossible to keep up with, (b) usually
- mutually incompatible, and (c) have restrictions on export or
- redistribution and so cannot be included in C-Kermit itself.
+ appropriate options and libraries. But other application-level security
+ acronyms and methods -- SSH, SSL, SRP, TLS -- pop up at an alarming
+ rate and are (a) impossible to keep up with, (b) usually mutually
+ incompatible, and (c) have restrictions on export or redistribution and
+ so cannot be included in C-Kermit itself.
However, if you have a secure text-based Telnet (or other) client that
employs one of these security methods, you can use C-Kermit "through"
it via a pty or pipe.
- _________________________________________________________________
- 2.7.4.1. SSH
+2.7.4.1. SSH
- C-Kermit does not and can not incorporate SSH due to licensing,
- patent, and USA export law restrictions.
+ C-Kermit does not and can not incorporate SSH due to licensing, patent,
+ and USA export law restrictions.
The UNIX SSH client does not use standard input/output, and therefore
can be used only by Kermit's PTY interface, if one is present. The
- cautions about file transfer, etc, are the same as for Rlogin.
- Example:
+ cautions about file transfer, etc, are the same as for Rlogin. Example:
SET PREFIXING ALL
PTY ssh XYZCORP.COM
if fail end 1 Sorry - no PTY support...
pty ssh \%*
}
- _________________________________________________________________
- 2.7.4.2. SSL
+2.7.4.2. SSL
- Secure Sockets Layer (SSL) is another TCP/IP security overlay, this
- one designed by and for Netscape. An SSL Telnet client is available
- for UNIX from the University of Queensland. More info at:
+ Secure Sockets Layer (SSL) is another TCP/IP security overlay, this one
+ designed by and for Netscape. An SSL Telnet client is available for
+ UNIX from the University of Queensland. More info at:
- [410]http://www.psy.uq.oz.au/~ftp/Crypto/
+ [418]http://www.psy.uq.oz.au/~ftp/Crypto/
Interoperability with C-Kermit is unknown. C-Kermit also includes its
- own built-in SSL/TLS support, but it is not exportable; [411]CLICK
- HERE file for details.
- _________________________________________________________________
+ own built-in SSL/TLS support, but it is not exportable; [419]CLICK HERE
+ file for details.
- 2.7.4.3. SRP
+2.7.4.3. SRP
SRP(TM) is Stanford University's Secure Remote Password protocol. An
SRP Telnet client is available from Stanford:
- [412]http://srp.stanford.edu/srp/
+ [420]http://srp.stanford.edu/srp/
Stanford's SRP Telnet client for UNIX has been tested on SunOS and
- works fine with C-Kermit, as described in [413]Section 2.7.1, e.g.
+ works fine with C-Kermit, as described in [421]Section 2.7.1, e.g.
SET PREFIX ALL
PTY (or PIPE) srp-telnet xenon.stanford.edu
C-Kermit itself can be built as an SRP Telnet client on systems that
- have libsrp.a installed; the C-Kermit support code, however, may not
- be exported outside the USA or Canada.
- _________________________________________________________________
+ have libsrp.a installed; the C-Kermit support code, however, may not be
+ exported outside the USA or Canada.
- 2.7.4.4. SOCKS
+2.7.4.4. SOCKS
C-Kermit can be built as a SOCKS-aware client on systems that have a
- SOCKS library. See section 8.1.1 of the [414]ckccfg.txt file.
+ SOCKS library. See section 8.1.1 of the [422]ckccfg.txt file.
C-Kermit 7.0 can also be run over SOCKSified Telnet or rlogin clients
with SET NETWORK TYPE COMMAND. Suppose the Telnet program on your
SET PREFIX ALL
PTY (or PIPE) telnet zzz.com
- _________________________________________________________________
- 2.7.4.5. Kerberos
+2.7.4.5. Kerberos
- UNIX C-Kermit can be built with MIT Kerberos IV or V authentication
- and encryption. Instructions are available in a [415]separate
- document. Additional modules are required that can not be exported
- from the USA to any country except Canada, by US law.
+ UNIX C-Kermit can be built with MIT Kerberos IV or V authentication and
+ encryption. Instructions are available in a [423]separate document.
+ Additional modules are required that can not be exported from the USA
+ to any country except Canada, by US law.
If you have Kerberos installed but you don't have a Kerberized version
of C-Kermit, you can use ktelnet as C-Kermit's external communications
SET PREFIX ALL
PTY (or PIPE) ktelnet cia.gov
- _________________________________________________________________
- 2.8. Scripting Local Programs
+2.8. Scripting Local Programs
- If your version of Kermit has PTY support built in, then any
- text-based program can be invoked with SET HOST /PTY or equivalent
- command and controlled using the normal sequence of OUTPUT, INPUT, IF
- SUCCESS commands (this is the same service that is provided by the
- 'expect' program, but controlled by the Kermit script language rather
- than Tcl).
+ If your version of Kermit has PTY support built in, then any text-based
+ program can be invoked with SET HOST /PTY or equivalent command and
+ controlled using the normal sequence of OUTPUT, INPUT, IF SUCCESS
+ commands (this is the same service that is provided by the 'expect'
+ program, but controlled by the Kermit script language rather than Tcl).
When PTY service is not available, then any program that uses standard
input and output can be invoked with SET HOST /PIPE.
Here's an example in which we start an external Kermit program, wait
- for its prompt, give it a VERSION command, and then extract the
- numeric version number from its response:
+ for its prompt, give it a VERSION command, and then extract the numeric
+ version number from its response:
set host /pty kermit -Y
if fail stop 1 {Can't start external command}
even those that do screen formatting (like Emacs or Vi), if you can
figure out the sequence of events. If your Kermit program doesn't have
PTY support, then the commands are restricted to those using standard
- i/o, including certain shells, interactive text-mode "hardcopy"
- editors like ex, and so on.
+ i/o, including certain shells, interactive text-mode "hardcopy" editors
+ like ex, and so on.
If you are using the PTY interface, you should be aware that it runs
the given program or command directly on the pty, without any
- intervening shell to interpret metacharacters, redirectors, etc. If
- you need this sort of thing, include the appropriate shell invocation
- as part of your command; for example:
+ intervening shell to interpret metacharacters, redirectors, etc. If you
+ need this sort of thing, include the appropriate shell invocation as
+ part of your command; for example:
pty echo *
set host /pty ksh -c "for i in *; do echo $i; done"
- The PIPE interface, on the other hand, invokes the shell
- automatically, so:
+ The PIPE interface, on the other hand, invokes the shell automatically,
+ so:
pipe echo *
prints filenames, not "*".
- _________________________________________________________________
- 2.9. X.25 Networking
+2.9. X.25 Networking
- X.25 networking is documented in [416]Using C-Kermit, 2nd Edition.
- When the book was published, X.25 was available only in SunOS,
- Solaris, and Stratus VOS. Unlike TCP/IP, X.25 APIs are not
- standardized; each vendor's X.25 libraries and services (if they have
- them at all) are unique.
+ X.25 networking is documented in [424]Using C-Kermit, 2nd Edition. When
+ the book was published, X.25 was available only in SunOS, Solaris, and
+ Stratus VOS. Unlike TCP/IP, X.25 APIs are not standardized; each
+ vendor's X.25 libraries and services (if they have them at all) are
+ unique.
This section describes new additions.
- _________________________________________________________________
- 2.9.1. IBM AIXLink/X.25 Network Provider Interface for AIX
+2.9.1. IBM AIXLink/X.25 Network Provider Interface for AIX
Support for X.25 was added via IBM's Network Provider Interface (NPI),
AIXLink/X.25 1.1, to the AIX 4.x version of C-Kermit 7.0.
- Unfortunately, AIXLink/X.25 is a rather bare-bones facility, lacking
- in particular any form of PAD support (X.3, X.28, X.29). Thus, the AIX
- version of C-Kermit, when built to include X.25 networking, has
- neither a PAD command, nor a SET PAD command. The same is true for the
+ Unfortunately, AIXLink/X.25 is a rather bare-bones facility, lacking in
+ particular any form of PAD support (X.3, X.28, X.29). Thus, the AIX
+ version of C-Kermit, when built to include X.25 networking, has neither
+ a PAD command, nor a SET PAD command. The same is true for the
underlying AIX system: no PAD support. Thus it is not possible to have
- an interactive shell session over an X.25 connection into an AIX
- system (as far as we know), even from X.25-capable Kermit versions
- (such as Solaris or VOS) that do include PAD support.
+ an interactive shell session over an X.25 connection into an AIX system
+ (as far as we know), even from X.25-capable Kermit versions (such as
+ Solaris or VOS) that do include PAD support.
Thus the X.25 capabilities in AIX C-Kermit are limited to peer-to-peer
connections, e.g. from a C-Kermit client to a C-Kermit server. Unlike
set host xxxxxxx ; Specify the X.25/X.121 address
if fail stop 1 Can't open connection
- And at this point the client can use the full range of client
- commands: SEND, GET, REMOTE xxx, FINISH, BYE.
+ And at this point the client can use the full range of client commands:
+ SEND, GET, REMOTE xxx, FINISH, BYE.
The AIX version also adds two new variables:
The local X.25 address.
\v(x25remote_nua)
- The X.25 address of the host on the other end of the
- connection.
+ The X.25 address of the host on the other end of the connection.
C-Kermit's AIX X.25 client has not been tested against anything other
than a C-Kermit X.25 server on AIX. It is not known if it will
where xxxx can be any even-length string of hexadecimal digits, e.g.
123ABC.
- _________________________________________________________________
- 2.9.2. HP-UX X.25
+2.9.2. HP-UX X.25
- Although C-Kermit presently does not include built-in support for
- HP-UX X.25, it can still be used to make X.25 connections as follows:
- start Kermit and tell it to:
+ Although C-Kermit presently does not include built-in support for HP-UX
+ X.25, it can still be used to make X.25 connections as follows: start
+ Kermit and tell it to:
set prefixing all
set parity space
pty padem address
- This should work in HP-UX 9.00 and later (see [417]Section 2.7). If
- you have an earlier HP-UX version, or the PTY interface doesn't work
- or isn't available, try:
+ This should work in HP-UX 9.00 and later (see [425]Section 2.7). If you
+ have an earlier HP-UX version, or the PTY interface doesn't work or
+ isn't available, try:
set prefixing all
set parity space
Failing that, use Kermit to telnet to localhost and then after logging
back in, start padem as you would normally do to connect over X.25.
- _________________________________________________________________
- 2.10. Additional Serial Port Controls
+2.10. Additional Serial Port Controls
C-Kermit 7.0 adds the following commands for greater control over
serial ports. These commands are available only in C-Kermit versions
given, the device is reopened if it is still available. When it
has been automatically closed in this manner, SHOW
COMMUNICATIONS puts "(closed)" after its name, and in UNIX, the
- lockfile disappears -- both from SHOW COMM and from the
- lockfile directory itself. Synonym: SET CLOSE-ON-DISCONNECT.
+ lockfile disappears -- both from SHOW COMM and from the lockfile
+ directory itself. Synonym: SET CLOSE-ON-DISCONNECT.
SET EXIT ON-DISCONNECT { ON, OFF }
Like DISCONNECT, but makes the program exit if a connection
drops.
- Note that SET CLOSE-ON-DISCONNECT and SET EXIT ON-DISCONNECT apply
- only to connections that drop; they do not apply to connections that
- can't be made in the first place. For example, they have no effect
- when a SET LINE, SET HOST, TELNET, or DIAL command fails.
+ Note that SET CLOSE-ON-DISCONNECT and SET EXIT ON-DISCONNECT apply only
+ to connections that drop; they do not apply to connections that can't
+ be made in the first place. For example, they have no effect when a SET
+ LINE, SET HOST, TELNET, or DIAL command fails.
HANGUP
If [CLOSE-ON-]DISCONNECT is ON, and the HANGUP command is given
but will slow down serial transmission by approximately 10
percent. Historically, 2 stop bits were used with Teletypes (at
110 bps or below) for print-head recovery time. There is
- presently no method for choosing any number of stop bits
- besides 1 and 2.
+ presently no method for choosing any number of stop bits besides
+ 1 and 2.
SET SERIAL [ dps ]
dps stands for Data-bits, Parity, Stop-bits. This is the
notation familiar to many people for serial port configuration:
7E1, 8N1, 7O2, etc. The data bits number also becomes the
- TERMINAL BYTESIZE setting. The second character is E for Even,
- O for Odd, M for Mark, S for Space, or N for None. The list of
+ TERMINAL BYTESIZE setting. The second character is E for Even, O
+ for Odd, M for Mark, S for Space, or N for None. The list of
available options depends on the capabilities of the specific
platform. If dps is omitted, 8N1 is used. Type "set serial ?"
for a list of available choices. Examples:
TERM BYTE 8.
SET SERIAL
- Same as SET PARITY NONE and SET STOP-BITS 1, SET TERM
- BYTE 8.
+ Same as SET PARITY NONE and SET STOP-BITS 1, SET TERM BYTE
+ 8.
Notes:
explicit SET STOP-BITS or SET SERIAL command.
The \v(serial) variable shows the SET SERIAL setting (8N1, 7E1, etc).
- _________________________________________________________________
- 2.11. Getting Access to the Dialout Device
+2.11. Getting Access to the Dialout Device
This section is for UNIX only; note the special words about QNX at
- the end. Also see [418]Section 2.0 for SET LINE switches,
+ the end. Also see [426]Section 2.0 for SET LINE switches,
particularly the /SHARE switch for VMS only.
C-Kermit does its best to obey the UUCP lockfile conventions of each
- platform (machine, operating system, OS version) where it runs, if
- that platform uses UUCP.
+ platform (machine, operating system, OS version) where it runs, if that
+ platform uses UUCP.
- But simply obeying the conventions is often not good enough, due to
- the increasing likelihood that a particular serial device might have
- more than one name (e.g. /dev/tty00 and /dev/term/00 are the same
- device in Unixware 7; /dev/cua and /dev/cufa are the same device in
- NeXTSTEP), plus the increasingly widespread use of symlinks for device
- names, such as /dev/modem.
+ But simply obeying the conventions is often not good enough, due to the
+ increasing likelihood that a particular serial device might have more
+ than one name (e.g. /dev/tty00 and /dev/term/00 are the same device in
+ Unixware 7; /dev/cua and /dev/cufa are the same device in NeXTSTEP),
+ plus the increasingly widespread use of symlinks for device names, such
+ as /dev/modem.
C-Kermit 7.0 goes to greater lengths than previous versions to
successfully interlock with other communications program (and other
* The use, wherever possible, of lockfile names based on
inode/major/minor device number rather than device name.
- See the [419]ckuins.txt and [420]ckubwr.txt files for details.
+ See the [427]ckuins.txt and [428]ckubwr.txt files for details.
QNX is almost unique among UNIX varieties in having no UUCP programs
nor UUCP-oriented dialout-device locking conventions. QNX does,
however, allow a program to get the device open count. This can not be
a reliable form of locking unless all applications do it (and they
- don't), so by default, Kermit uses this information only for printing
- a warning message such as:
+ don't), so by default, Kermit uses this information only for printing a
+ warning message such as:
C-Kermit>set line /dev/ser1
WARNING - "/dev/ser1" looks busy...
process has it open. SHOW COMM (in QNX only) displays the setting, and
if you have a port open, it also shows the current open count (with
C-Kermit's own access always counting as 1).
- _________________________________________________________________
- 2.12. The Connection Log
+2.12. The Connection Log
C-Kermit 7.0 adds the ability to log connections, so you can see where
you've been and have a record of calls you've made. A connection is
for appending; i.e. new records are written to the end. If NEW
is specified, a new file is created; if a file of the same name
already existed, it is overwritten. If the filename is omitted,
- CX.LOG in your home (login) directory is used (note:
- uppercase). To accept all defaults, just use "log connections"
- (or "l c" for short). Synonym: LOG CONNECTIONS.
+ CX.LOG in your home (login) directory is used (note: uppercase).
+ To accept all defaults, just use "log connections" (or "l c" for
+ short). Synonym: LOG CONNECTIONS.
CLOSE CX-LOG
This closes the connection log if it was open. (Note, the CLOSE
elapsed time (since you opened it). Synonym: SHOW CONNECTION.
\v(cx_time)
- This variable shows the elapsed time of your current
- connection, or if there is no current connection, of your most
- recent connection, of if there have been no connections, 0.
+ This variable shows the elapsed time of your current connection,
+ or if there is no current connection, of your most recent
+ connection, of if there have been no connections, 0.
The connection contains one line per connection, of the form:
where the timestamp (in columns 1-18) shows when the connection was
made; username is the login identity of the person who made the
- connection; pid is Kermit's process ID when it made the connection.
- The p's are parameters that depend on the type of connection, and the
- v's are their values:
+ connection; pid is Kermit's process ID when it made the connection. The
+ p's are parameters that depend on the type of connection, and the v's
+ are their values:
T = Connection Type (TCP, SERIAL, DIAL, DECNET, etc).
H = The name of the Host from which the connection was made.
log connections
to your C-Kermit customization file. Note, however, that if you make a
- lot of connections, your CX.LOG will grow and grow. You can handle
- this by adding a "logrotate" procedure like the following to your
+ lot of connections, your CX.LOG will grow and grow. You can handle this
+ by adding a "logrotate" procedure like the following to your
customization file, before the "log connections" command:
define LOGROTATE { ; Define LOGROTATE macro
On multiuser systems, it is possible to keep a single, shared,
system-wide connection log, but this is not recommended since (a) it
- requires you keep a publicly write-accessible logfile (a glaring
- target for mischief), and (b) it would require each user to log to
- that file and not disable logging. A better method for logging
- connections, in UNIX at least, is syslogging (see [421]ckuins.txt
- Section 15 and [422]Section 4.2 of the [423]IKSD Administration Guide
- for details).
- _________________________________________________________________
+ requires you keep a publicly write-accessible logfile (a glaring target
+ for mischief), and (b) it would require each user to log to that file
+ and not disable logging. A better method for logging connections, in
+ UNIX at least, is syslogging (see [429]ckuins.txt Section 15 and
+ [430]Section 4.2 of the [431]IKSD Administration Guide for details).
- 2.13. Automatic Connection-Specific Flow Control Selection
+2.13. Automatic Connection-Specific Flow Control Selection
- Beginning in C-Kermit 7.0, the appropriate flow-control method for
- each connection type is kept in a table, for example:
+ Beginning in C-Kermit 7.0, the appropriate flow-control method for each
+ connection type is kept in a table, for example:
Remote: NONE
Modem: RTS/CTS
Direct-Serial: NONE
TCPIP: NONE
- The size of the table and values for each connection type can vary
- from platform to platform. Type "set flow ?" for a list of available
+ The size of the table and values for each connection type can vary from
+ platform to platform. Type "set flow ?" for a list of available
flow-control types.
The table is used to automatically select the appropriate kind of flow
- control whenever you make a connection. You can display the table
- with:
+ control whenever you make a connection. You can display the table with:
SHOW FLOW-CONTROL
NONE or XON/XOFF. This is because C-Kermit is not allowed to
find out what type of connection the incoming user has (*). No
kind of flow control will work on every kind of connection,
- including (unexpectedly) KEEP, which we would have liked to
- use, but not turning off flow control at the remote end during
- file transfer on TCP/IP connections is fatal to the transfer
- (except in VMS and HP-UX, where it must be set to Xon/Xoff!)
- Therefore if you are dialing in to a serial port on a server
- (UNIX or VMS) where C-Kermit is running, you will need to tell
- C-Kermit to "set flow keep" before transferring files (assuming
- the modem and port are configured correctly by the system
- administrator; otherwise you'll need to give a specific kind of
- flow control, e.g. "set flow xon/xoff"), so in this case
- C-Kermit will not disable flow control, as it must do when you
- are coming via Telnet (directly or through a terminal server,
- except on VMS and HP-UX).
+ including (unexpectedly) KEEP, which we would have liked to use,
+ but not turning off flow control at the remote end during file
+ transfer on TCP/IP connections is fatal to the transfer (except
+ in VMS and HP-UX, where it must be set to Xon/Xoff!) Therefore
+ if you are dialing in to a serial port on a server (UNIX or VMS)
+ where C-Kermit is running, you will need to tell C-Kermit to
+ "set flow keep" before transferring files (assuming the modem
+ and port are configured correctly by the system administrator;
+ otherwise you'll need to give a specific kind of flow control,
+ e.g. "set flow xon/xoff"), so in this case C-Kermit will not
+ disable flow control, as it must do when you are coming via
+ Telnet (directly or through a terminal server, except on VMS and
+ HP-UX).
Modem:
This applies when you dial out with a modem. In this case, the
SET FLOW XON/XOFF
- Thus, whenever you make a connection with SET PORT, SET LINE, DIAL,
- SET HOST, TELNET, RLOGIN, etc, an appropriate form of flow control is
- selected automatically. You can override the automatic selection with
- a subsequent SET FLOW command, such as SET FLOW NONE (no switch
+ Thus, whenever you make a connection with SET PORT, SET LINE, DIAL, SET
+ HOST, TELNET, RLOGIN, etc, an appropriate form of flow control is
+ selected automatically. You can override the automatic selection with a
+ subsequent SET FLOW command, such as SET FLOW NONE (no switch
included).
- The flow control is changed automatically too when you give a SET
- MODEM TYPE command. For example, suppose your operating system (say
- Linux) supports hardware flow control (RTS/CTS). Now suppose you give
- the following commands:
+ The flow control is changed automatically too when you give a SET MODEM
+ TYPE command. For example, suppose your operating system (say Linux)
+ supports hardware flow control (RTS/CTS). Now suppose you give the
+ following commands:
set line /dev/ttyS2 ; Automatically sets flow to NONE
set modem type usr ; Automatically sets flow to RTS/CTS
SET LINE TTA0:
SET FLOW KEEP
- _________________________________________________________________
- 2.14. Trapping Connection Establishment and Loss
+2.14. Trapping Connection Establishment and Loss
If you define a macro called ON_OPEN, it is executed any time that a
SET LINE, SET PORT, SET HOST, TELNET, RLOGIN or similar command
If you define a macro called ON_CLOSE, it will be executed any time
that a SET LINE, SET PORT, SET HOST, TELNET, RLOGIN or any other kind
- of connection that C-Kermit has made is closed, either by the remote
- or by a local CLOSE, HANGUP, or EXIT command or other local action,
- such as when a new connection is opened before an old one was
- explicitly closed.
+ of connection that C-Kermit has made is closed, either by the remote or
+ by a local CLOSE, HANGUP, or EXIT command or other local action, such
+ as when a new connection is opened before an old one was explicitly
+ closed.
As soon as C-Kermit notices the connection has been closed, the
ON_CLOSE macro is invoked at (a) the top of the command parsing loop,
read \%p ; Get port number
if fail stop 1 Tunnel failure: \%1
close read
- if fail stop 1 Tunnel failure: \%1 ; See [424]Section 4.2.8.1
+ if fail stop 1 Tunnel failure: \%1 ; See [432]Section 4.2.8.1
assign on_close { ; Set up close handler
echo Closing tunnel: \m(tunnelhost)
!tunnel stop \m(tunnelhost)
In this case, when the connection stops, we also need to shut down the
tunnel, even if it is at a later time after TUNNEL has finished
executing. This way we can escape back, reconnect, transfer files, and
- so on until the connection is broken by logging out from the remote,
- or by explicitly closing it, or by EXITing from C-Kermit, at which
- time the tunnel is shut down.
+ so on until the connection is broken by logging out from the remote, or
+ by explicitly closing it, or by EXITing from C-Kermit, at which time
+ the tunnel is shut down.
When the connection is closed, no matter how, the ON_CLOSE macro
executes and then undefines (destroys) itself, since we don't want to
1 - Closed by C-Kermit command.
0 - All others (normally closed by remote).
- which may be used for any purpose; for example, to add a comment to
- the connection log:
+ which may be used for any purpose; for example, to add a comment to the
+ connection log:
def on_close {
local \%m
}
if def \%m writeln cx {# \%m}
}
- _________________________________________________________________
- 2.15. Contacting Web Servers with the HTTP Command
+2.15. Contacting Web Servers with the HTTP Command
C-Kermit 7.0 (at this writing, the UNIX version only) supports direct
- contact and interaction with Web servers via HTTP 1.0 protocol. To
- make a connection, use Kermit's normal method for making a TCP/IP
+ contact and interaction with Web servers via HTTP 1.0 protocol. To make
+ a connection, use Kermit's normal method for making a TCP/IP
connection, but specify the HTTP port:
SET HOST host http [ switches ]
Make an secure private connection with SSL (only if SSL support
is included in your version of Kermit). In this case the port
name might need to be https rather than http, e.g. "set host
- secureserver.xyxcorp.com https /ssl".
+ secureserver.xyzcorp.com https /ssl".
/TLS
Make an secure private connection with TLS (only if TLS support
HTTP GET kermit/index.html
At this point the connection is closed, since that's how HTTP 1.0
- works. If you want to perform additional operations, you must
- establish a new connection with another SET HOST command.
+ works. If you want to perform additional operations, you must establish
+ a new connection with another SET HOST command.
The HTTP command acts as a client to the Web server, except instead of
displaying the results like a Web browser would, it stores them. Any
/HEADER:{{tag:value}{tag:value}...}
- For a listing of valid tag value and value formats see [425]RFC
+ For a listing of valid tag value and value formats see [433]RFC
1945: Hypertext Transfer Protocol -- HTTP/1.0. A maximum of
eight headers may be specified.
/ARRAY:arrayname
Tells Kermit to store the response headers in the given array,
- one line per element. The array need not be declared in
- advance. Example:
+ one line per element. The array need not be declared in advance.
+ Example:
C-Kermit? http /array:c get kermit/index.html
C-Kermit? show array c
As you can see, the header lines are like MIME e-mail header lines:
identifier, colon, value. The /ARRAY switch is the only method
- available to a script to process the server responses for a POST or
- PUT command.
+ available to a script to process the server responses for a POST or PUT
+ command.
The HTTP commands are:
HTTP [ switches ] GET remote-filename [ local-filename ]
- Retrieves the named file. If a local-filename is given, the
- file is stored locally under that name; otherwise it is stored
- with its own name.
+ Retrieves the named file. If a local-filename is given, the file
+ is stored locally under that name; otherwise it is stored with
+ its own name.
HTTP [ switches ] HEAD remote-filename local-filename
Like GET except without actually getting the file; instead it
the /ARRAY: switch description.
HTTP [ switches ] INDEX remote-directory [ local-filename ]
- Retrieves the file listing for the given server directory.
- NOTE: This command is not supported by most Web servers.
+ Retrieves the file listing for the given server directory. NOTE:
+ This command is not supported by most Web servers.
HTTP [ switches ] POST [ /MIME-TYPE:type ] local-file remote-file
- Used to send a response as if it were sent from a form. The
- data to be posted must be read from a file.
+ Used to send a response as if it were sent from a form. The data
+ to be posted must be read from a file.
HTTP [ switches ] PUT [ /MIME-TYPE:type ] local-file remote-file
Uploads a local file to a server file.
HTTP [ switches ] DELETE remote-filename
Instructs the server to delete the specified filename.
- _________________________________________________________________
- 3. TERMINAL CONNECTION
+3. TERMINAL CONNECTION
- 3.1. CONNECT Command Switches
+3.1. CONNECT Command Switches
- The following switches (see [426]Section 1.5) were added to the
- CONNECT command in 7.0:
+ The following switches (see [434]Section 1.5) were added to the CONNECT
+ command in 7.0:
/QUIETLY
Don't print the "Connecting to..." or "Back at..." messages. CQ
is an invisible command synonym for CONNECT /QUIETLY.
/TRIGGER:string
- Specify a trigger or triggers ([427]Section 3.2) effective for
+ Specify a trigger or triggers ([435]Section 3.2) effective for
this CONNECT command only, temporarily overriding any current
- SET TERMINAL TRIGGER values ([428]Section 3.2).
+ SET TERMINAL TRIGGER values ([436]Section 3.2).
Note: Other switches might also be available; type "connect ?" for a
list, "help connect" for a description of each.
- _________________________________________________________________
- 3.2. Triggers
+3.2. Triggers
Triggers were added for UNIX, VMS, AOS/VS, and K95 in C-Kermit 7.0.
; My modem always makes this noise when the connection is lost:
set terminal trigger |||ppp\{\{\{\{UUUUUUU
- If you want Kermit to look for more than one string simultaneously,
- use the following syntax:
+ If you want Kermit to look for more than one string simultaneously, use
+ the following syntax:
set terminal trigger {{string1}{string2}...{stringn}}
- In this case, C-Kermit will return to command mode automatically if
- any of the given strings is encountered. Up to 8 strings may be
- specified.
+ In this case, C-Kermit will return to command mode automatically if any
+ of the given strings is encountered. Up to 8 strings may be specified.
If the most recent return to command mode was caused by a trigger, the
new variable, \v(trigger), shows the trigger value; otherwise
The SHOW TRIGGER command displays the SET TERMINAL TRIGGER values as
well as the \v(trigger) value.
- _________________________________________________________________
- 3.3. Transparent Printing
+3.3. Transparent Printing
As noted in the manual, C-Kermit's CONNECT command on UNIX is not a
terminal emulator, but rather a "semitransparent pipe" between the
terminal or emulator you are using to access C-Kermit, and the remote
- host to which C-Kermit is connected. The "semitransparent" qualifier
- is because of character-set translation as well as several actions
- taken by the emulator in response to the characters or strings that
- pass through it, such as APCs, Kermit packets (autodownload),
- triggers, etc.
+ host to which C-Kermit is connected. The "semitransparent" qualifier is
+ because of character-set translation as well as several actions taken
+ by the emulator in response to the characters or strings that pass
+ through it, such as APCs, Kermit packets (autodownload), triggers, etc.
The UNIX version of C-Kermit 7.0 adds another such action: Transparent
printing, also called Controller printing (as distinct from Autoprint
subsequent arriving characters -- including NUL, control characters,
and escape sequences -- are sent to the SET PRINTER device instead of
to your screen until the printer-off sequence is received, or you
- escape back, whichever happens first. These bytes are not translated
- or modified or filtered in any way by Kermit (except for possibly
+ escape back, whichever happens first. These bytes are not translated or
+ modified or filtered in any way by Kermit (except for possibly
stripping of the 8th bit, as noted below), but if filtering or
translation is desired, this can be accomplished by your SET PRINTER
selection (e.g. by choosing a pipeline of filters).
By default, your SET PRINTER device is your default UNIX printer, but
it can also be a file, a command, or the null device (which causes all
- printer material to be discarded). See [429]Using C-Kermit, 2nd Ed.,
+ printer material to be discarded). See [437]Using C-Kermit, 2nd Ed.,
p.41 for details.
Transparent printing is controlled by the command:
your actual terminal or emulator, along with the data they
enclose. OFF is the default, for compatibility with earlier
C-Kermit releases. As noted in the manual, when the current SET
- PRINTER device is a file, transparent-print material is
- appended to it; the file is not overwritten.
+ PRINTER device is a file, transparent-print material is appended
+ to it; the file is not overwritten.
SET TERMINAL BYTESIZE { 7, 8 }
SET PARITY { EVEN, ODD, MARK, SPACE, NONE }
<ESC>[5i
Printer On. Send all subsequent incoming bytes to the printer
- without any kind of filtering, translation, or alteration.
- Note: <ESC> stands for ASCII character number 27 (decimal),
- Escape.
+ without any kind of filtering, translation, or alteration. Note:
+ <ESC> stands for ASCII character number 27 (decimal), Escape.
<ESC>[4i
Printer Off. Resume displaying incoming bytes on the screen.
- These are the same sequences used by DEC VT100 and higher terminals
- and other ANSI X3.64 and ISO 6429 compatible terminals. There is no
+ These are the same sequences used by DEC VT100 and higher terminals and
+ other ANSI X3.64 and ISO 6429 compatible terminals. There is no
provision for selecting other printer-control sequences.
Restrictions:
8-bit CSI C1 control is not recognized.
3. Autoprint is not supported, since this requires a full-fledged
terminal emulator with direct access to the screen.
- 4. The start-print and stop-print sequences pass through to the
- screen (there is no way to avoid this without causing unacceptable
- delays or deadlocks in CONNECT mode). Thus if your terminal or
- emulator also supports transparent printing via these same
- sequences, an empty file will be sent to its printer. Normally
- this has no effect.
+ 4. The start-print and stop-print sequences pass through to the screen
+ (there is no way to avoid this without causing unacceptable delays
+ or deadlocks in CONNECT mode). Thus if your terminal or emulator
+ also supports transparent printing via these same sequences, an
+ empty file will be sent to its printer. Normally this has no
+ effect.
- Point (4) is similar to the situation with autodownload and APC --
- when you have several Kermit clients in a chain, you should take care
- that these features are enabled in only one of them.
+ Point (4) is similar to the situation with autodownload and APC -- when
+ you have several Kermit clients in a chain, you should take care that
+ these features are enabled in only one of them.
Example 1:
set printer {| grep -v ^Received | lpr} ; Filter out some lines
Then use "pcprint" or "vtprint" commands on the host to initiate
- transparent print operations. See [430]Using C-Kermit, 2nd Ed., p.406
+ transparent print operations. See [438]Using C-Kermit, 2nd Ed., p.406
for details.
Here is a sample "pcprint" shell script for UNIX:
echo -n '<FF><ESC>[4i'
# (end)
- (Replace "<ESC>" by the actual ASCII Escape character and "<FF>" by
- the ASCII Formfeed character).
+ (Replace "<ESC>" by the actual ASCII Escape character and "<FF>" by the
+ ASCII Formfeed character).
If you always want transparent printing enabled, put "set term print
- on" in your C-Kermit customization file (~/.mykermrc in UNIX). The
- "set term bytesize" selection, however, is a property of each separate
+ on" in your C-Kermit customization file (~/.mykermrc in UNIX). The "set
+ term bytesize" selection, however, is a property of each separate
connection.
- _________________________________________________________________
- 3.4. Binary and Text Session Logs
+3.4. Binary and Text Session Logs
- C-Kermit 7.0 corrects an oversight in earlier releases, in which
- binary session logs (SET SESSION-LOG BINARY) translated character sets
- and performed various formatting transformations (e.g. "newline mode")
+ C-Kermit 7.0 corrects an oversight in earlier releases, in which binary
+ session logs (SET SESSION-LOG BINARY) translated character sets and
+ performed various formatting transformations (e.g. "newline mode")
before writing characters to the session log. In C-Kermit 7.0,
binary-mode session logging writes characters as they come in, before
anything (other that parity-bit stripping) is done to them. Text-mode
session logging records the characters after processing.
- _________________________________________________________________
- 4. FILE TRANSFER
+4. FILE TRANSFER
Every file is transferred either in text mode (which implies
record-format and character-set translation) or binary mode (in which
each byte is sent literally without any kind of conversion). The mode
in which a file is transferred is controlled by (a) the default mode,
- in the absence of any other indications; (b) the SET FILE TYPE
- command; (c) various automatic mechanisms based on client/server
- negotiations, directory information or filename patterns, etc.
+ in the absence of any other indications; (b) the SET FILE TYPE command;
+ (c) various automatic mechanisms based on client/server negotiations,
+ directory information or filename patterns, etc.
The default FILE TYPE was changed from TEXT to BINARY in C-Kermit 7.0
because:
the automatic mechanisms are affected.
* All file transfers on the Web are done in binary mode, so people
are accustomed to it and expect it.
- _________________________________________________________________
- 4.0. BUG FIXES, MINOR CHANGES, AND CLARIFICATIONS
+4.0. BUG FIXES, MINOR CHANGES, AND CLARIFICATIONS
- 4.0.0. Filenames with Spaces
+4.0.0. Filenames with Spaces
Filenames that contain spaces are a major nuisance to a program like
Kermit, whose command language is line- and word-oriented, in which
- words are separated by spaces and a filename is assumed to be a
- "word". In general (unless noted otherwise in the description of a
- particular command), there is only one way to refer to such files in
- Kermit commands, and that is to enclose the name in braces:
+ words are separated by spaces and a filename is assumed to be a "word".
+ In general (unless noted otherwise in the description of a particular
+ command), there is only one way to refer to such files in Kermit
+ commands, and that is to enclose the name in braces:
send {this file}
Tells Kermit to send the file whose name is "this file" (two words, no
- quotes). Of course, various circumlocutions are also possible, such
- as:
+ quotes). Of course, various circumlocutions are also possible, such as:
define \%a this file
send \%a
sends all files whose name contains a space.
- All things considered, it is best to avoid spaces in file and
- directory names if you can. Also see [431]Section 5.4 on this topic.
- _________________________________________________________________
+ All things considered, it is best to avoid spaces in file and directory
+ names if you can. Also see [439]Section 5.4 on this topic.
- 4.0.1. Packet out of Window
+4.0.1. Packet out of Window
C-Kermit 6.0 could send packets "out of window" if the window size was
greater than 1 and ACKs had arrived out of order. Fixed in 6.1.
- _________________________________________________________________
- 4.0.2. MOVE after ADD SEND-LIST
+4.0.2. MOVE after ADD SEND-LIST
ADD SEND-LIST followed by MOVE did not delete original files; fixed in
6.1. Carrier loss was not detected during transfer; in 7.0 C-Kermit
checks for this (but results can not be guaranteed). In any case, the
protocol will eventually time out if the connection is lost.
- _________________________________________________________________
- 4.0.3. GET and RECEIVE As-Names
+4.0.3. GET and RECEIVE As-Names
In 5A(190) through 6.0.192, the GET and RECEIVE as-name did not
properly override the RECEIVE PATHNAMES setting. In 7.0 it does.
- _________________________________________________________________
- 4.0.4. New Brief Statistics Listing
+4.0.4. New Brief Statistics Listing
Version 7.0 adds a /BRIEF switch to the STATISTICS command, to display
- a short file-transfer statistics report. /BRIEF is now the default.
- Use /VERBOSE to see the full display, which is about 25 lines long.
- _________________________________________________________________
+ a short file-transfer statistics report. /BRIEF is now the default. Use
+ /VERBOSE to see the full display, which is about 25 lines long.
- 4.0.5. Improved FAST Command
+4.0.5. Improved FAST Command
The preinstalled definition of the FAST macro did not take enough
factors into account. Now it sets packet lengths and window sizes
appropriate to the configuration. Furthermore, in IRIX only, it might
restrict the SEND packet length to 4000, to work around a bug in the
- IRIX Telnet server, depending on the IRIX version (see
- [432]ckubwr.txt, IRIX section). To see the built-in definition of the
- FAST macro, type "show macro fast". To change it, simply define it to
- be whatever you want -- it's just a macro, like any other.
- _________________________________________________________________
-
- 4.0.6. The SET SEND BACKUP Command
-
- Version 7.0 adds SET SEND BACKUP { ON, OFF }. This tells whether
- backup files should be sent. Backup files are the ones created by
- Kermit (and EMACS, and possibly other applications) to preserve old
- copies of files when creating new ones with the same name. Kermit does
- this when receiving a file and its FILE COLLISION setting is BACKUP
- (or RENAME, in which case it the new file gets the backup name). On
- most platforms, the backup name is formed by adding:
+ IRIX Telnet server, depending on the IRIX version (see [440]ckubwr.txt,
+ IRIX section). To see the built-in definition of the FAST macro, type
+ "show macro fast". To change it, simply define it to be whatever you
+ want -- it's just a macro, like any other.
+
+4.0.6. The SET SEND BACKUP Command
+
+ Version 7.0 adds SET SEND BACKUP { ON, OFF }. This tells whether backup
+ files should be sent. Backup files are the ones created by Kermit (and
+ EMACS, and possibly other applications) to preserve old copies of files
+ when creating new ones with the same name. Kermit does this when
+ receiving a file and its FILE COLLISION setting is BACKUP (or RENAME,
+ in which case it the new file gets the backup name). On most platforms,
+ the backup name is formed by adding:
.~n~
Also see PURGE, SET FILE COLLISION, SEND /NOBACKUP, DIRECTORY
/[NO]BACKUP.
- _________________________________________________________________
- 4.0.7. The SET { SEND, RECEIVE } VERSION-NUMBERS Command
+4.0.7. The SET { SEND, RECEIVE } VERSION-NUMBERS Command
VMS Only. Normally when sending files, VMS C-Kermit strips the version
number. For example, if the file is FOO.BAR;34, the name is sent as
FOO.BAR (without the ";34"). If you want to keep version numbers on
- when sending files, use SET SEND VERSION-NUMBERS ON. The effect
- depends on the receiver.
+ when sending files, use SET SEND VERSION-NUMBERS ON. The effect depends
+ on the receiver.
Normally when receiving files, and an incoming filename includes a
VMS-style version number (such as FOO.BAR;34) VMS C-Kermit strips it
before trying to create the new file; this way the new file receives
- the next highest version number in the customary manner for VMS. If
- you want version numbers on incoming filenames to be used in creating
- the new files, use SET RECEIVE VERSION-NUMBERS ON.
+ the next highest version number in the customary manner for VMS. If you
+ want version numbers on incoming filenames to be used in creating the
+ new files, use SET RECEIVE VERSION-NUMBERS ON.
Normally these commands would be effective only when VMS C-Kermit is
exchanging files with a non-VMS Kermit program, since VMS-to-VMS
set send version-numbers on
send *.*;*
- The resulting Unix files will have VMS-style version numbers as part
- of their name, for example "foo.bar;1", "foo.bar;2", etc.
+ The resulting Unix files will have VMS-style version numbers as part of
+ their name, for example "foo.bar;1", "foo.bar;2", etc.
Now suppose you want to send these files from Unix to another VMS
system and preserve the version numbers. Again we have a Unix C-Kermit
set receive version-numbers on
get *
- _________________________________________________________________
- 4.0.8. The SET { SEND, RECEIVE } { MOVE-TO, RENAME-TO } Commands
+4.0.8. The SET { SEND, RECEIVE } { MOVE-TO, RENAME-TO } Commands
These commands are persistent global versions of the /MOVE-TO: and
/RENAME-TO: switches of the SEND, GET, and RECEIVE commands. They
successfully, so that (for example) an independent, concurrent process
can notice when new files appear and process them immediately without
having to guess whether they are complete.
- _________________________________________________________________
- 4.0.9. SET FILE INCOMPLETE AUTO
+4.0.9. SET FILE INCOMPLETE AUTO
SET FILE INCOMPLETE { KEEP, DISCARD }, which tells whether to keep or
discard incompletely received files, has a new option, AUTO, which is
in binary mode, otherwise DISCARD it. This reduces the chances that a
subsequent recovery operation (RESEND, REGET, etc) could produce a
corrupt file, since recovery works only for binary-mode transfers.
- _________________________________________________________________
- 4.1. FILE-TRANSFER FILENAME TEMPLATES
+4.1. FILE-TRANSFER FILENAME TEMPLATES
File-transfer filename templates allow files to be renamed
automatically by the file sender, the receiver, or both, during
transfer of groups of files.
- 4.1.1. Templates in the As-Name
+4.1.1. Templates in the As-Name
Prior to C-Kermit 6.1 and Kermit 95 1.1.12 the only options that could
be used to affect the names of files being transferred were SET
specify as-names in SEND, RECEIVE, and related commands even for file
groups. This is accomplished by using replacement variables in the
as-name, along with optional material such character-string functions
- and/or constant strings. An as-name containing replacement variables
- is called a filename template.
+ and/or constant strings. An as-name containing replacement variables is
+ called a filename template.
The key to filename templates is the new variable:
send *.txt \freplace(\v(filename),.,_).new
- which replaces all periods in the original filename by underscores,
- and then appends ".new" to the result. So, for example, oofa.txt would
- be sent as oofa_txt.new.
+ which replaces all periods in the original filename by underscores, and
+ then appends ".new" to the result. So, for example, oofa.txt would be
+ sent as oofa_txt.new.
Another new variable that is useful in this regard is \v(filenumber),
which is the ordinal number of the current file in the file group, so
send *.txt \%a
is accepted, but all files are sent with the same name (the value of
- \%a, if it has one and it is constant). If the variable has no value
- at all, the files are sent under their own names.
+ \%a, if it has one and it is constant). If the variable has no value at
+ all, the files are sent under their own names.
Of course, the value of \%a in the previous example need not be
constant:
send *.txt \%a
The RECEIVE command, when given without an as-name, behaves as always,
- storing all incoming files under the names they arrive with, subject
- to SET FILE NAME and SET RECEIVE PATHNAMES modifications ([433]Section
+ storing all incoming files under the names they arrive with, subject to
+ SET FILE NAME and SET RECEIVE PATHNAMES modifications ([441]Section
4.10).
- However, when an as-name is given in the RECEIVE command, it is
- applied to all incoming files rather than to just the first. If it
- does not contain replacement variables, then the current FILE
- COLLISION setting governs the result. For example:
+ However, when an as-name is given in the RECEIVE command, it is applied
+ to all incoming files rather than to just the first. If it does not
+ contain replacement variables, then the current FILE COLLISION setting
+ governs the result. For example:
receive foo
with the default FILE COLLISION setting of BACKUP. If it does contain
replacement variables, of course they are used.
- When receiving files, the \v(filename) variable refers to the name
- that was received in the incoming file-header packet, BEFORE any
- processing by SET FILE NAMES or SET RECEIVE PATHNAMES. Since the
- filenames in file-header packets are usually in uppercase, you would
- need to convert them explicitly if you want them in lowercase, e.g.:
+ When receiving files, the \v(filename) variable refers to the name that
+ was received in the incoming file-header packet, BEFORE any processing
+ by SET FILE NAMES or SET RECEIVE PATHNAMES. Since the filenames in
+ file-header packets are usually in uppercase, you would need to convert
+ them explicitly if you want them in lowercase, e.g.:
receive \flower(\v(filename)).new
- _________________________________________________________________
- 4.1.2. Templates on the Command Line
+4.1.2. Templates on the Command Line
On the command-line, use templates as shown above as the -a option
argument, bearing in mind the propensity of UNIX and perhaps other
kermit -s oofa.txt -a \fliteral(c:\tmp\oofa.txt) ; Kermit only
kermit -s oofa.txt -a \\fliteral(c:\\tmp\\oofa.txt) ; Shell and Kermit
- _________________________________________________________________
- 4.1.3. Post-Transfer Renaming
+4.1.3. Post-Transfer Renaming
Filename templates are now also useful in SET { SEND, RECEIVE }
- RENAME-TO and in the /RENAME-TO: switch, that can be given to the
- SEND, GET, or RECEIVE commands; this is similar to an as-name, but is
+ RENAME-TO and in the /RENAME-TO: switch, that can be given to the SEND,
+ GET, or RECEIVE commands; this is similar to an as-name, but is
effective on a per-file basis if and only if the file was transferred
successfully.
file has been completely and successfully transferred before it starts
to process it. This can be accomplished easily using C-Kermit's SET {
SEND, RECEIVE } { MOVE-TO, RENAME-TO } command or /MOVE-TO: or
- /RENAME-TO: switches, described in [434]Sections 4.7.1 through
- [435]4.7.3.
+ /RENAME-TO: switches, described in [442]Sections 4.7.1 through
+ [443]4.7.3.
Here's an example for the client side, in which files to be sent are
placed in a certain directory (/usr/olga/tosend in this example) by
another process when they are ready to go. This might be in a hospital
- or big doctor's office, where medical insurance claims are entered at
- a number of workstations, and then deposited in the "tosend"
- directory, from which they are sent to a claims clearinghouse. We
- assume the connection is already made and a Kermit server is on the
- other end.
+ or big doctor's office, where medical insurance claims are entered at a
+ number of workstations, and then deposited in the "tosend" directory,
+ from which they are sent to a claims clearinghouse. We assume the
+ connection is already made and a Kermit server is on the other end.
local srcdir findir ; Declare local (automatic) variables
assign srcdir /usr/olga/tosend ; Local source directory (files to send)
example:
SET RECEIVE RENAME-TO \v(filename)_\v(ndate)_\v(ntime)_\v(userid)_\v(pid)
- _________________________________________________________________
- 4.2. FILE-TRANSFER PIPES AND FILTERS
+4.2. FILE-TRANSFER PIPES AND FILTERS
- 4.2.1. INTRODUCTION
+4.2.1. INTRODUCTION
Beginning in C-Kermit 6.1 and Kermit 95 1.1.12, it is possible to send
from a command, or "pipe", as well as from a file, and to receive to a
pipe or command. In a typical example, we might want to transfer an
entire directory tree from one UNIX system to another (but without
- using the methods described in [436]Sections 4.3 , [437]4.10,
- [438]4.11, and [439]4.15). We could do this in multiple steps as
+ using the methods described in [444]Sections 4.3 , [445]4.10,
+ [446]4.11, and [447]4.15). We could do this in multiple steps as
follows:
1. Create a tar archive of the desired directory tree
But this is inconvenient and it requires a temporary file, which might
be larger than we have room for.
- The new pipe-transfer feature lets you do such things in a single
- step, and without intermediate files.
+ The new pipe-transfer feature lets you do such things in a single step,
+ and without intermediate files.
Additional new features, also discussed here, let you specify pre- and
post- processing filters for outbound and incoming files, and give you
XYZMODEM protocols (because XYZMODEM recovers from transmission errors
by rewinding the source file, and you can't rewind a pipe).
- This section begins by discussing the simple and straightforward use
- of these features in UNIX, in which pipes and input/output redirection
- are a fundamental component and therefore "just work", and then goes
- on to discuss their operation in Windows and OS/2, where matters are
- much more complicated.
- _________________________________________________________________
+ This section begins by discussing the simple and straightforward use of
+ these features in UNIX, in which pipes and input/output redirection are
+ a fundamental component and therefore "just work", and then goes on to
+ discuss their operation in Windows and OS/2, where matters are much
+ more complicated.
- 4.2.1.1. TERMINOLOGY
+4.2.1.1. TERMINOLOGY
Standard Input
This is a precise technical term denoting the normal source of
Abbreviation for Input / Output.
Shell
- Text-based system command processor, such as the UNIX shell,
- DOS COMMAND.COM, etc.
+ Text-based system command processor, such as the UNIX shell, DOS
+ COMMAND.COM, etc.
Pipe
A mechanism by which the standard output of one program is sent
Pipeline
A series of programs connected by pipes.
- _________________________________________________________________
- 4.2.1.2. NOTATION
+4.2.1.2. NOTATION
In command descriptions, "command" is replaced by a shell or system
command or pipeline. The command names specified in these commands are
- interpreted by your shell, just as if you were typing them at the
- shell prompt, and so if they are in your PATH, they will be found in
- the expected manner. Therefore you don't have to specify complete
- pathnames for commands that are programs (but it shouldn't hurt if you
- do).
+ interpreted by your shell, just as if you were typing them at the shell
+ prompt, and so if they are in your PATH, they will be found in the
+ expected manner. Therefore you don't have to specify complete pathnames
+ for commands that are programs (but it shouldn't hurt if you do).
The normal notation for I/O redirection is as follows:
grep -c "some text" *.txt
Looks in all files whose names end with ".txt" for the string
- "some text" and writes to Stdout the names of each file
- followed by a colon and the number of occurrences in each.
+ "some text" and writes to Stdout the names of each file followed
+ by a colon and the number of occurrences in each.
grep -v ":0"
Prints to Stdout the lines from Stdin that do NOT contain the
- string ":0", in this case, it removes the names of files that
- do not contain "some text".
+ string ":0", in this case, it removes the names of files that do
+ not contain "some text".
sort
Sorts the lines from Stdin alphabetically to Stdout.
otherwise the shell is likely to replace them by all filenames that
match, which is probably not what you want. This is also true when
using your shell directly, and has nothing to do with Kermit.
- _________________________________________________________________
- 4.2.1.3. SECURITY
+4.2.1.3. SECURITY
Some sites might not wish to allow access to system commands or
external programs from within Kermit. Such access, including all the
1. When building from source code, include -DNOPUSH among the CFLAGS.
2. At runtime, give the NOPUSH command.
3. For server mode, give the DISABLE HOST command.
- 4. Implicit use of pipes can be disabled as described in [440]Section
+ 4. Implicit use of pipes can be disabled as described in [448]Section
4.2.4.
Note: 3 and 4 are not necessary if you have done 1 or 2.
- _________________________________________________________________
- 4.2.2. Commands for Transferring from and to Pipes
+4.2.2. Commands for Transferring from and to Pipes
SEND /COMMAND sends data from a command or command pipeline, and
- RECEIVE /COMMENT writes data to a command or pipeline. The GET
- /COMMAND command asks a server to send material, and then writes the
- incoming material to a command or pipeline. These features, along with
- switches (like "/COMMAND", described in [441]Section 4.7) are new to
- C-Kermit 6.1. The following synonyms are also provided:
+ RECEIVE /COMMENT writes data to a command or pipeline. The GET /COMMAND
+ command asks a server to send material, and then writes the incoming
+ material to a command or pipeline. These features, along with switches
+ (like "/COMMAND", described in [449]Section 4.7) are new to C-Kermit
+ 6.1. The following synonyms are also provided:
CSEND = SEND /COMMAND
CRECEIVE = RECEIVE /COMMAND
CGET = GET /COMMAND
None of these commands can be used if a SEND or RECEIVE FILTER
- (respectively, [442]Section 4.2.3) is in effect, or if a NOPUSH
- command ([443]Section 4.2.1.3) has been given, or if the current
- protocol is not Kermit.
- _________________________________________________________________
+ (respectively, [450]Section 4.2.3) is in effect, or if a NOPUSH command
+ ([451]Section 4.2.1.3) has been given, or if the current protocol is
+ not Kermit.
- 4.2.2.1. Sending from a Command
+4.2.2.1. Sending from a Command
SEND /COMMAND command [ as-name ]
SEND /AS-NAME:as-name /COMMAND command
CSEND command [ as-name ]
- These three forms are the same. They work like the SEND
- command, but instead of sending a file, it sends the standard
- output of the given command, either under the command's own
- name, or else with the given as-name. If the command contains
- spaces, it must be enclosed in braces. Braces should also be
- used for the as-name if it contains spaces. If braces are
- included around either the command or the as-name, they are
- removed after parsing but before use. As with SEND, the
- transfer is in text or binary mode according the current FILE
- TYPE setting, unless you override the global transfer mode by
- including a /TEXT or /BINARY switch. The command must require
- no input.
-
- When sending from a command or pipeline, C-Kermit has no way of
- knowing in advance how much data will be sent, and so it can not send
- the size to the other Kermit in the Attribute packet, and so the
- receiving Kermit has no way of displaying "percent done" or a progress
- bar (thermometer).
+ These three forms are the same. They work like the SEND command,
+ but instead of sending a file, it sends the standard output of
+ the given command, either under the command's own name, or else
+ with the given as-name. If the command contains spaces, it must
+ be enclosed in braces. Braces should also be used for the
+ as-name if it contains spaces. If braces are included around
+ either the command or the as-name, they are removed after
+ parsing but before use. As with SEND, the transfer is in text or
+ binary mode according the current FILE TYPE setting, unless you
+ override the global transfer mode by including a /TEXT or
+ /BINARY switch. The command must require no input.
+
+ When sending from a command or pipeline, C-Kermit has no way of knowing
+ in advance how much data will be sent, and so it can not send the size
+ to the other Kermit in the Attribute packet, and so the receiving
+ Kermit has no way of displaying "percent done" or a progress bar
+ (thermometer).
Examples that make sense in text mode (illustrated by common UNIX
commands):
CSEND finger
sends the current "finger" listing (who's logged in) under the
name "finger". The two forms "send /command" and "csend" are
- equivalent; we won't bother showing them both in the rest of
- the examples.
+ equivalent; we won't bother showing them both in the rest of the
+ examples.
SEND /COMMAND:{finger}
CSEND {finger}
SEND /COMMAND:{finger | sort -r} /AS-NAME:userlist
CSEND {finger | sort -r} userlist
- sends the current finger listing, sorted in reverse order,
- under the name "userlist". The braces are needed to distinguish
- the command from the as-name.
+ sends the current finger listing, sorted in reverse order, under
+ the name "userlist". The braces are needed to distinguish the
+ command from the as-name.
SEND /COMMAND:{finger | sort -r} /AS-NAME:{userlist}
CSEND {finger | sort -r} {userlist}
- Same as previous example (braces are removed from
- "{userlist}").
+ Same as previous example (braces are removed from "{userlist}").
SEND /COMMAND:{finger | sort -r}
/AS-NAME:{\freplace(\v(filename),\32,_)}
SEND /COMMAND /BINARY {tar cf - . | gzip -c} mydir.tar.gz
SEND /COMMAND /BINARY /AS-NAME:mydir.tar.gz {tar cf - . | gzip -c}
CSEND /BINARY {tar cf - . | gzip -c} mydir.tar.gz
- Makes a tar archive of the current directory, compresses it
- with the GNU gzip program, and sends it as "mydir.tar.gz". The
- other Kermit can, of course, just store it as a file, or it can
- use CRECEIVE to uncompress and dearchive it as part of the
- transfer process.
+ Makes a tar archive of the current directory, compresses it with
+ the GNU gzip program, and sends it as "mydir.tar.gz". The other
+ Kermit can, of course, just store it as a file, or it can use
+ CRECEIVE to uncompress and dearchive it as part of the transfer
+ process.
When using a "pipeline" of commands in the command field, obviously,
the first command must not require any input, and the last command
should produce some output, and all intermediate commands should get
some input and produce some output.
- _________________________________________________________________
- 4.2.2.2. Receiving to a Command
+4.2.2.2. Receiving to a Command
RECEIVE /COMMAND command
CRECEIVE command
- This is like RECEIVE, except incoming material is written to
- the standard input of the given command, in text or binary mode
+ This is like RECEIVE, except incoming material is written to the
+ standard input of the given command, in text or binary mode
according to the normal rules for file reception. Be sure to
include a redirector to a file (if the command normally writes
to standard output), or the output of the command won't go
- anywhere. The command may contain spaces; braces are not
- needed, but they are removed if used.
+ anywhere. The command may contain spaces; braces are not needed,
+ but they are removed if used.
WARNING: C-Kermit has no way of knowing anything about the command, or
even whether it is a command. Thus this command will always cause
RECEIVE /COMMAND sort
CRECEIVE sort
- Does nothing useful, since the output of sort has nowhere to
- go.
+ Does nothing useful, since the output of sort has nowhere to go.
RECEIVE /COMMAND sort -r | pr -3 | lpr -Plaserjet
CRECEIVE sort -r | pr -3 | lpr -Plaserjet
RECEIVE /COMMAND:{gunzip -c | tar xf -}
CRECEIVE {gunzip -c | tar xf -}
Assuming the data that is received is a compressed tar archive,
- uncompresses the archive and passes it to tar for extraction.
- In this case the braces are needed because otherwise the final
- "-" would be taken as a command continuation character (see
- [444]Using C-Kermit, 2nd Edition, p.33).
+ uncompresses the archive and passes it to tar for extraction. In
+ this case the braces are needed because otherwise the final "-"
+ would be taken as a command continuation character (see
+ [452]Using C-Kermit, 2nd Edition, p.33).
GET /COMMAND remote-file command
GET /COMMAND /AS-NAME:command remote-file
GET /COMMAND *.txt {echo \v(filename)>>new.txt;cat>>new.txt}
CGET *.txt {echo \v(filename)>>new.txt;cat>>new.txt}
As above, but inserts each file's name before its contents.
- _________________________________________________________________
- 4.2.3. Using File-Transfer Filters
+4.2.3. Using File-Transfer Filters
- The commands described in [445]Section 4.2.2 let you send the output
- of a command, or receive data into a command. But what if you want to
+ The commands described in [453]Section 4.2.2 let you send the output of
+ a command, or receive data into a command. But what if you want to
specify preprocessing for files that you send, or postprocessing of
- files that you receive, even when multiple files are involved? For
- this you need a way to specify send and receive filters. The commands
- are SET SEND FILTER and SET RECEIVE FILTER; SHOW PROTOCOL displays the
+ files that you receive, even when multiple files are involved? For this
+ you need a way to specify send and receive filters. The commands are
+ SET SEND FILTER and SET RECEIVE FILTER; SHOW PROTOCOL displays the
current settings.
- 4.2.3.1. The SEND Filter
+4.2.3.1. The SEND Filter
SET SEND FILTER [ command ]
This command specifies a command to be run on any file that you
results of REMOTE commands like REMOTE DIRECTORY, REMOTE TYPE,
REMOTE HOST, etc. The command may be, but need not be, enclosed
in braces; if it is, the braces are stripped before use. The
- output of this command is sent, rather than the file itself.
- The current FILE TYPE setting (TEXT or BINARY) applies to the
- output of the command. The command must contain at least one
- instance of \v(filename), for which the name of the actual file
- is substituted. If the command is omitted, the send filter is
+ output of this command is sent, rather than the file itself. The
+ current FILE TYPE setting (TEXT or BINARY) applies to the output
+ of the command. The command must contain at least one instance
+ of \v(filename), for which the name of the actual file is
+ substituted. If the command is omitted, the send filter is
removed and files are sent in the normal manner.
The SET SEND FILTER sets up a "global" filter -- that is, one that
applies to all subsequent file-sending commands until you change or
remove it. You can also specify a "local" filter to be used in a
specific file-sending command by using the /FILTER switch (see
- [446]Section 1.5); for example:
+ [454]Section 1.5); for example:
SEND /FILTER:command [ other-switches ] filename
Besides \v(filename), you can include any other script programming
- notation in the send filter: variable names, array references, calls
- to built-in string or other functions, and so on. These are evaluated
+ notation in the send filter: variable names, array references, calls to
+ built-in string or other functions, and so on. These are evaluated
during file transfer, NOT during parsing, and they are evaluated
separately for each file.
etc). So (for example) if the filter changes the file's size, the
progress thermometer might be wrong. (We can't send the size of the
output from the filter, because it is not known until the transfer is
- finished.) If you prefer that the size not be sent, use "set
- attributes size off".
+ finished.) If you prefer that the size not be sent, use "set attributes
+ size off".
- You can not use send filters with RESEND (SEND /RECOVER) or PSEND
- (SEND /START).
+ You can not use send filters with RESEND (SEND /RECOVER) or PSEND (SEND
+ /START).
Examples for text mode:
reverse order.
SEND /FILTER:{sort -r \v(filename)} *.txt
- Same as above, but the filter applies only to this SEND
- command. Braces are required in this case.
+ Same as above, but the filter applies only to this SEND command.
+ Braces are required in this case.
SET SEND FILTER {sort -r \v(filename)}
SEND oofa.txt reverse.txt
SEND /BINARY oofa.* \fupper(\replace(\v(filename),.,_)).GZ
Sends all the oofa.* files, compressed by gzip, each under its
own name, but with the name uppercased, all periods within the
- name converted to underscores, and ".GZ" appended to it. So,
- for example, "oofa.txt" is sent as "OOFA_TXT.GZ".
+ name converted to underscores, and ".GZ" appended to it. So, for
+ example, "oofa.txt" is sent as "OOFA_TXT.GZ".
In the gzip examples, note that the amount of data that is sent is
normally less than the original file size because gzip compresses the
tell Kermit to "set attribute length off". On the other hand, you can
use the final position of the thermometer as a measure of the
effectiveness of compression.
- _________________________________________________________________
- 4.2.3.2. The RECEIVE Filter
+4.2.3.2. The RECEIVE Filter
SET RECEIVE FILTER [ command ]
- This command specifies that the given command will be run on
- any file that is received before it is written to disk. The
- command may be, but need not be, enclosed in braces; if it is
- the braces are stripped before use. The following two commands
- are equivalent:
+ This command specifies that the given command will be run on any
+ file that is received before it is written to disk. The command
+ may be, but need not be, enclosed in braces; if it is the braces
+ are stripped before use. The following two commands are
+ equivalent:
SET RECEIVE FILTER sort -r > \v(filename)
SET RECEIVE FILTER {sort -r > \v(filename)}
Stores each incoming file with its lines sorted in reverse
order, under the name "reverse.txt". The actual result depends
on the FILE COLLISION setting. If it is OVERWRITE and multiple
- files arrive, then each incoming file destroys the previous
- one. If it is BACKUP (the default), filename conflicts are
- resolve by adding "version numbers" to the filenames:
- reverse.txt, reverse.txt.~1~, reverse.txt.~2~, etc.
+ files arrive, then each incoming file destroys the previous one.
+ If it is BACKUP (the default), filename conflicts are resolve by
+ adding "version numbers" to the filenames: reverse.txt,
+ reverse.txt.~1~, reverse.txt.~2~, etc.
SET RECEIVE FILTER sort -r > \v(filename)
RECEIVE \v(filename).reverse
lowercased. So if the incoming filename is OOFA.TXT.GZ, it is
stored as oofa.txt after decompression.
- Of course you don't want to type such long hideous commands, so we
- have also introduced several new functions:
+ Of course you don't want to type such long hideous commands, so we have
+ also introduced several new functions:
\fstripx(string[,character])
This function removes the rightmost segment of the string that
\fstripb(string[,c1[,c2]])
Strips enclosing matching braces, brackets, parentheses, or
- quotes from the string. The second argument, c1, specifies
- which kind of enclosure to look for; if not specified, any
- enclosing (), [], <>, {}, "", '', or `' are removed. If c1 is
- specified and c2 is not, then if c1 is an opening brace,
- bracket, or parenthesis, the matching closing one is supplied
- automatically as c2. If both c1 and c2 are specified, then to
- be stripped the string must begin with c1 and end with c2. If
- the string is not enclosed in the indicated manner, the result
- is the original string. Examples:
+ quotes from the string. The second argument, c1, specifies which
+ kind of enclosure to look for; if not specified, any enclosing
+ (), [], <>, {}, "", '', or `' are removed. If c1 is specified
+ and c2 is not, then if c1 is an opening brace, bracket, or
+ parenthesis, the matching closing one is supplied automatically
+ as c2. If both c1 and c2 are specified, then to be stripped the
+ string must begin with c1 and end with c2. If the string is not
+ enclosed in the indicated manner, the result is the original
+ string. Examples:
\fstripb("abc") => abc
\fstripb([abc]) => abc
Note that when a receive filter is in effect, this overrides your FILE
COLLISION setting, since Kermit has no way of knowing what the final
destination filename will be (because it does not know, and can not be
- expected to know, the syntax of every version of every command shell
- on every platform on the planet).
- _________________________________________________________________
+ expected to know, the syntax of every version of every command shell on
+ every platform on the planet).
- 4.2.4. Implicit Use of Pipes
+4.2.4. Implicit Use of Pipes
If you wish, C-Kermit can also examine incoming filenames to see if
they start with "!", and if so, the subsequent text is treated as a
the result in oofa.new.
This use of the exclamation mark should be familiar to UNIX users as
- the "bang" feature that lets you run an external application or
- command from within another application.
+ the "bang" feature that lets you run an external application or command
+ from within another application.
- Kermit's "bang" feature is disabled by default, since it is not
- unheard for filenames to actually begin with "!". So if you want to
- use this feature, you must enable it with the following command:
+ Kermit's "bang" feature is disabled by default, since it is not unheard
+ for filenames to actually begin with "!". So if you want to use this
+ feature, you must enable it with the following command:
SET TRANSFER PIPES { ON, OFF }
- ON enables the recognition of "!" notation in incoming
- filenames during file transfer as an indicator that the
- remaining text is the name of a command. OFF, the default,
- disables this feature and uses the text as a filename in the
- normal fashion. This command does NOT affect SEND /COMMAND, GET
- /COMMAND, CSEND, etc.
-
- So using a combination of CSEND (SEND /COMMAND) and the "bang"
- feature, you can transfer a directory tree all in one command
- (assuming the remote Kermit supports pipe transfers and has them
- enabled):
+ ON enables the recognition of "!" notation in incoming filenames
+ during file transfer as an indicator that the remaining text is
+ the name of a command. OFF, the default, disables this feature
+ and uses the text as a filename in the normal fashion. This
+ command does NOT affect SEND /COMMAND, GET /COMMAND, CSEND, etc.
+
+ So using a combination of CSEND (SEND /COMMAND) and the "bang" feature,
+ you can transfer a directory tree all in one command (assuming the
+ remote Kermit supports pipe transfers and has them enabled):
CSEND {tar cf - . | gzip -c} {!gunzip -c | tar xf -}
SEND /COMMAND:{tar cf - . | gzip -c} /as:{!gunzip -c | tar xf -}
- Pay close attention to the syntax. Braces are needed around the
- command because it contains spaces; braces are needed around the
- as-name because it ends with "-". The as-name must begin with "!" or
- receiving Kermit will not recognize it as a command. The CSEND command
- must NOT begin with "!" unless you are running a command whose name
- really does start that character.
+ Pay close attention to the syntax. Braces are needed around the command
+ because it contains spaces; braces are needed around the as-name
+ because it ends with "-". The as-name must begin with "!" or receiving
+ Kermit will not recognize it as a command. The CSEND command must NOT
+ begin with "!" unless you are running a command whose name really does
+ start that character.
Similarly, you have a Kermit server send a directory tree to be
unpacked on the client end:
then the incoming data will be sorted rather than gunzipped.
Finally, if SET TRANSFER PIPES is ON (and in this case, this must be
- done in your C-Kermit initialization file), you can send from a pipe
- on the C-Kermit command line:
+ done in your C-Kermit initialization file), you can send from a pipe on
+ the C-Kermit command line:
kermit -s "!finger | sort -r" -a userlist
In this case the "filename" contains spaces and so must be quoting
using your shell's quoting rules.
- _________________________________________________________________
- 4.2.5. Success and Failure of Piped Commands
+4.2.5. Success and Failure of Piped Commands
- Commands or programs started by Kermit as a result of CSEND or
- CRECEIVE commands, CGET, SEND /COMMAND, REDIRECT commands (see
- [447]Section 4.2.8.2), implicit use of pipes, RUN commands, and so
- forth, should return their exit status codes to the Kermit command
- that caused them to be run, and therefore IF SUCCESS and IF FAILURE
- tests after these commands should work as expected. For example:
+ Commands or programs started by Kermit as a result of CSEND or CRECEIVE
+ commands, CGET, SEND /COMMAND, REDIRECT commands (see [455]Section
+ 4.2.8.2), implicit use of pipes, RUN commands, and so forth, should
+ return their exit status codes to the Kermit command that caused them
+ to be run, and therefore IF SUCCESS and IF FAILURE tests after these
+ commands should work as expected. For example:
CSEND blah < filename
- should fail if there is no command called "blah" or if there is no
- file called "filename". However, this is not foolproof and sometimes
- C-Kermit might think a command succeeded when it failed, or vice
- versa. This is most likely to happen when the highly system-dependent
- methods that Kermit must use to determine a command's exit status code
- do not supply the right information.
+ should fail if there is no command called "blah" or if there is no file
+ called "filename". However, this is not foolproof and sometimes
+ C-Kermit might think a command succeeded when it failed, or vice versa.
+ This is most likely to happen when the highly system-dependent methods
+ that Kermit must use to determine a command's exit status code do not
+ supply the right information.
It can also happen because some commands might define success and
failure differently from what you expect, or because you are using a
pipeline composed of many commands, and one of them fails to pass
failing exit status codes up the chain. The most likely culprit is the
- shell itself, which in most cases must be interposed between Kermit
- and any external program to be run.
+ shell itself, which in most cases must be interposed between Kermit and
+ any external program to be run.
In any case, you can examine the following variable to find out the
- exit status code returned to Kermit by the process most recently run
- by any command that runs external commands or programs, including
- CSEND, CRECEIVE, REDIRECT, RUN, etc:
+ exit status code returned to Kermit by the process most recently run by
+ any command that runs external commands or programs, including CSEND,
+ CRECEIVE, REDIRECT, RUN, etc:
\v(pexitstat)
been run yet, 0 if the most recent command succeeded, -1, -3, or -4 if
there was an internal error, and a positive number returned by the
command itself if the command failed. If the number is in the range
- 1-127, this is the program's exit status code. If it is 128 or
- greater, this is supposed to indicate that the command or program was
+ 1-127, this is the program's exit status code. If it is 128 or greater,
+ this is supposed to indicate that the command or program was
interrupted or terminated from outside itself.
In Windows 95 and 98, the return values of the default shell are
which converts a system error code (number) to the corresponding
message.
- _________________________________________________________________
- 4.2.6. Cautions about Using Pipes to Transfer Directory Trees
+4.2.6. Cautions about Using Pipes to Transfer Directory Trees
Although utilities such as tar and zip/unzip might be available on
different platforms (such as UNIX and Windows), this does not
CSEND {tar cf - . | gzip -c} {!gunzip -c | tar xf -}
when used from UNIX to Windows will have satisfactory results for
- binary files, but not for text files. UNIX text files have lines
- ending with Linefeed (LF) only, whereas Windows text files have lines
- ending in Carriage Return and Linefeed (CRLF). Thus any text files
- that were in the archive formed by the first tar command will be
- unpacked by the second tar command in their original form, and will
- display and print incorrectly in Windows (except in applications that
- have been explicitly coded to handle UNIX-format text files). On the
- other hand if you told gzip to use "text mode" to do record format
- conversion (assuming there was a way to tell it, as there is with most
- "zip" programs), this would destroy any binary files in the archive.
+ binary files, but not for text files. UNIX text files have lines ending
+ with Linefeed (LF) only, whereas Windows text files have lines ending
+ in Carriage Return and Linefeed (CRLF). Thus any text files that were
+ in the archive formed by the first tar command will be unpacked by the
+ second tar command in their original form, and will display and print
+ incorrectly in Windows (except in applications that have been
+ explicitly coded to handle UNIX-format text files). On the other hand
+ if you told gzip to use "text mode" to do record format conversion
+ (assuming there was a way to tell it, as there is with most "zip"
+ programs), this would destroy any binary files in the archive.
Furthermore, if the archive contains text files that are written in
- languages other than English, the "special" (accented and/or
- non-Roman) characters are NOT translated, and are therefore likely
- show up as gibberish on the target system. For example, West European
- languages are usually encoded in ISO Latin Alphabet 1 in UNIX, but in
- PC code page 850 on the PC. Capital A with acute accent is code point
- 193 (decimal) Latin-1, but 181 in CP850. So A-acute in the UNIX file
+ languages other than English, the "special" (accented and/or non-Roman)
+ characters are NOT translated, and are therefore likely show up as
+ gibberish on the target system. For example, West European languages
+ are usually encoded in ISO Latin Alphabet 1 in UNIX, but in PC code
+ page 850 on the PC. Capital A with acute accent is code point 193
+ (decimal) Latin-1, but 181 in CP850. So A-acute in the UNIX file
becomes Middle Box Bottom on the PC, and similarly for all the other
special characters, and for all other languages -- Greek, Russian,
Hebrew, Japanese, etc.
or the two systems use the same record format and character set for
text files.
- Also see [448]Sections 4.3, [449]4.10, [450]4.11, and [451]4.15 for
- how to transfer directory trees between both like and unlike systems
+ Also see [456]Sections 4.3, [457]4.10, [458]4.11, and [459]4.15 for how
+ to transfer directory trees between both like and unlike systems
directly with Kermit.
- _________________________________________________________________
- 4.2.7. Pipes and Encryption
+4.2.7. Pipes and Encryption
Of course pipelines could be used for encrypted file transfers,
assuming proper precautions could be taken concerning the transmission
csend {tar cf - . | gzip -c | crypt key} {!crypt key | gunzip -c | tar xf -}
- transmits the key in the file header packet as part of the
- (clear-text) remote command, defeating the entire purpose of
- encrypting the file data.
+ transmits the key in the file header packet as part of the (clear-text)
+ remote command, defeating the entire purpose of encrypting the file
+ data.
But if you are connected in terminal mode to the remote computer and
type:
creceive {crypt key > filename}
- at the remote Kermit prompt, you have also transmitted the key in
- clear text over the communications link.
+ at the remote Kermit prompt, you have also transmitted the key in clear
+ text over the communications link.
At present, the only secure way to use CSEND and CRECEIVE with an
encryption filter is to have a human operator at both ends, so the key
has yet to be worked out.
HINT: See the PGP User's Guide, e.g. at:
- [452]http://www.telstra.com.au/docs/PGP/
+ [460]http://www.telstra.com.au/docs/PGP/
Especially the topic "Using PGP as a UNIX-Style Filter":
- [453]http://www.telstra.com.au/docs/PGP/pgpdoc2/pgpdoc2_17.html
+ [461]http://www.telstra.com.au/docs/PGP/pgpdoc2/pgpdoc2_17.html
In any case, better and more convenient security options are now
- available: Kerberos authentication and encryption ([454]CLICK HERE for
+ available: Kerberos authentication and encryption ([462]CLICK HERE for
details) and the new ability to run C-Kermit "though" other
- communication programs, described in [455]Section 2.7.
- _________________________________________________________________
+ communication programs, described in [463]Section 2.7.
- 4.2.8. Commands and Functions Related to Pipes
+4.2.8. Commands and Functions Related to Pipes
- 4.2.8.1. The OPEN !READ and OPEN !WRITE Commands
+4.2.8.1. The OPEN !READ and OPEN !WRITE Commands
- These are described in [456]Using C-Kermit, and are generally useful
+ These are described in [464]Using C-Kermit, and are generally useful
with reading output from commands that produce more than one line on
their standard output, or writing multiple lines into commands that
accept them on their standard input.
way, because your command can be a either an internal shell command
(which only your shell can execute) or an external command, which only
your shell knows how to find (it knows your PATH and interprets, etc).
- Therefore unless OPEN !READ can't start your shell, it always
- succeeds.
+ Therefore unless OPEN !READ can't start your shell, it always succeeds.
Continuing with the nonexistent-command example:
FAILURE
C-Kermit>
- In other words, the failure can not be detected on OPEN, since the
- OPEN command succeeds if it can start your shell. It can't be detected
- on READ, since all this does is read output from the shell, which in
- this case happens to be an error message. However, failure IS detected
- upon close, since this is the occasion upon which the shell gives
- Kermit its exit status code.
+ In other words, the failure can not be detected on OPEN, since the OPEN
+ command succeeds if it can start your shell. It can't be detected on
+ READ, since all this does is read output from the shell, which in this
+ case happens to be an error message. However, failure IS detected upon
+ close, since this is the occasion upon which the shell gives Kermit its
+ exit status code.
- For an illustration of this situation, see [457]Section 2.14.
- _________________________________________________________________
+ For an illustration of this situation, see [465]Section 2.14.
- 4.2.8.2. The REDIRECT Command
+4.2.8.2. The REDIRECT Command
A second method of I/O redirection is offered by the REDIRECT command.
This is a rather advanced and tricky feature that is presently
redirect finger
runs the local "finger" command and sends its output over the
- connection as plain text, where presumably there is a process set up
- to read it. Another example:
+ connection as plain text, where presumably there is a process set up to
+ read it. Another example:
redirect finger | sort -r
It is possible to use C-Kermit on UNIX as your PPP dialer and then to
REDIRECT the connection to the PPP software, but C-Kermit 7.0 offers a
- better approach to PPP dialing in its new EXEC command ([458]Section
+ better approach to PPP dialing in its new EXEC command ([466]Section
1.23).
In theory, you can also redirect an interactive process. For example,
practice, the K-shell's terminal modes are messed up because (a) it is
not going through the Unix terminal driver, and (b) it is "smart" and
knows it is being redirected, and so acts in a decidedly inhospitable
- manner (other applications like EMACS, vi, etc, simply refuse to run
- if their standard i/o has been redirected).
+ manner (other applications like EMACS, vi, etc, simply refuse to run if
+ their standard i/o has been redirected).
(*) The publicly-distributed sz/rz programs do not work as clients.
However, Omen Technology does offer an up-to-date redirectable
client XYZMODEM program called crzsz.
- _________________________________________________________________
- 4.2.8.3. Receiving Mail and Print Jobs
+4.2.8.3. Receiving Mail and Print Jobs
As of 7.0, and in UNIX only, files that are sent to C-Kermit as mail
(when the other Kermit uses a MAIL or SEND /MAIL command) or to be
- printed (via REMOTE PRINT or SEND /PRINT) are now piped directly to
- the mail or print program, rather than written to temporary files and
- then mailed or printed and then deleted. This has the advantages of
- (a) not requiring a temporary file, and (b) allowing mail to have a
- proper subject in place of the filename. Temporary files were bad not
- only because they required (a) space, and (b) writeability of the
- current directory, but also because using them could result in wiping
- out an existing file. See [459]Section 4.7 for more about SEND /MAIL
- and SEND /PRINT.
- _________________________________________________________________
-
- 4.2.8.4. Pipe-Related Functions
+ printed (via REMOTE PRINT or SEND /PRINT) are now piped directly to the
+ mail or print program, rather than written to temporary files and then
+ mailed or printed and then deleted. This has the advantages of (a) not
+ requiring a temporary file, and (b) allowing mail to have a proper
+ subject in place of the filename. Temporary files were bad not only
+ because they required (a) space, and (b) writability of the current
+ directory, but also because using them could result in wiping out an
+ existing file. See [467]Section 4.7 for more about SEND /MAIL and SEND
+ /PRINT.
+
+4.2.8.4. Pipe-Related Functions
The \fcommand(command) function runs the given shell or system command
and returns the command's standard output as its value (with any
newline characters stripped from the end), unless the result is too
- long, in which case it returns the empty string. The maximum length
- for the result is at least 1022 bytes, and it might be longer on some
+ long, in which case it returns the empty string. The maximum length for
+ the result is at least 1022 bytes, and it might be longer on some
platforms. Examples (UNIX):
C-Kermit> echo "\fcommand(date)"
"
C-Kermit>
- Use \frawcommand() if you want to retain the final line terminators,
- or if the command's output is "binary". But remember that if the
- result of this (or any other) function contains any NUL (ASCII code 0)
- characters, the first NUL will terminate the result string because
- this is how C strings work (it's "C-Kermit", remember?).
+ Use \frawcommand() if you want to retain the final line terminators, or
+ if the command's output is "binary". But remember that if the result of
+ this (or any other) function contains any NUL (ASCII code 0)
+ characters, the first NUL will terminate the result string because this
+ is how C strings work (it's "C-Kermit", remember?).
These functions are useful not only locally, but also in the
client/server arena. If you need to get the results from a system
[ remote ] query kermit command(date)
- The result is in the local \v(query) variable; see [460]Using
- C-Kermit, 2nd Ed., pp.359-360 for details.
- _________________________________________________________________
+ The result is in the local \v(query) variable; see [468]Using C-Kermit,
+ 2nd Ed., pp.359-360 for details.
- 4.3. Automatic Per-File Text/Binary Mode Switching
+4.3. Automatic Per-File Text/Binary Mode Switching
When transferring files between like systems (e.g. UNIX-to-UNIX),
binary mode can be used for all files unless character-set translation
- is needed, and in fact Kermit programs of recent vintage recognize
- each others' platforms and switch to binary mode automatically when it
- is appropriate (e.g. DOS to OS/2, or UNIX to UNIX). (Exception:
- LABELED mode is chosen for VMS-to-VMS and OS/2-to-OS/2 transfers so
- complex file formats can be preserved.)
+ is needed, and in fact Kermit programs of recent vintage recognize each
+ others' platforms and switch to binary mode automatically when it is
+ appropriate (e.g. DOS to OS/2, or UNIX to UNIX). (Exception: LABELED
+ mode is chosen for VMS-to-VMS and OS/2-to-OS/2 transfers so complex
+ file formats can be preserved.)
On a client/server connection between like systems, the transfer mode
is currently determined by the file sender, rather than always by the
client. If the client is sending, it controls the transfer mode. If a
- GET command is sent to the server, the server sends all files in
- binary mode if its TRANSFER CHARACTER-SET is TRANSPARENT; otherwise it
- uses text mode for text files (according to its text-pattern list) and
+ GET command is sent to the server, the server sends all files in binary
+ mode if its TRANSFER CHARACTER-SET is TRANSPARENT; otherwise it uses
+ text mode for text files (according to its text-pattern list) and
binary mode for binary files. Of course, the client can control the
server's transfer character-set with the REMOTE SET TRANSFER
CHARACTER-SET command.
UNIX-to-DOS), some files (such as executable program images) must be
transferred in binary mode but others (such as plain-text files) must
be transferred in text mode so their record format and character sets
- can be appropriately converted. If a binary file is transferred in
- text mode, it is ruined. If a text file is transferred in binary mode,
- then at the very least, its format can be incorrect; at worst it is
- also corrupted because its character set was not converted (in extreme
- cases the corruption is total, e.g. because one system is ASCII-based
- and the other EBCDIC).
- _________________________________________________________________
+ can be appropriately converted. If a binary file is transferred in text
+ mode, it is ruined. If a text file is transferred in binary mode, then
+ at the very least, its format can be incorrect; at worst it is also
+ corrupted because its character set was not converted (in extreme cases
+ the corruption is total, e.g. because one system is ASCII-based and the
+ other EBCDIC).
- 4.3.1. Exceptions
+4.3.1. Exceptions
VMS C-Kermit, when sending files to a non-VMS system, switches to text
or binary mode automatically for each file, based on the record format
in the file's directory entry; thus the mechanisms described in this
section do not apply to VMS C-Kermit, yet the effect is the same:
automatic text/binary mode switching when VMS C-Kermit is sending
- files. See the VMS Appendix of [461]Using C-Kermit for details.
+ files. See the VMS Appendix of [469]Using C-Kermit for details.
Kermit versions that support LABELED or IMAGE transfer mode are
likewise not affected by this feature when one of those modes is
Kermit versions that support file-transfer pipes and filters are not
affected by this feature when pipes or filters are used, since the
- output of a pipe or filter (such as gzip) is likely to require
- transfer in a different mode than the original file.
+ output of a pipe or filter (such as gzip) is likely to require transfer
+ in a different mode than the original file.
Finally, SEND /TEXT or SEND /BINARY will force files to be sent in the
indicated mode, overriding all automatic transfer-mode-choosing
mechanisms.
- _________________________________________________________________
- 4.3.2. Overview
+4.3.2. Overview
Suppose you give C-Kermit a command like:
However, we can use some fairly-well established file naming
conventions for this purpose. C-Kermit 7.0 lets you provide lists of
filename patterns that are used to separately determine the file type
- for each individual file being transfered. A pattern is a string,
- possibly containing the special characters "*" (asterisk, which
- matches any string of zero of more characters) and/or "?" (question
- mark, which matches any single character). For example "a*b" matches
- all files whose names start with "a" and end with "b", such as "ab",
- "arb", "ababababab", etc, but not "abba". And "a?b" matches any file
- whose name starts with "a", ends with "b", and is exactly 3 characters
- long.
+ for each individual file being transferred. A pattern is a string,
+ possibly containing the special characters "*" (asterisk, which matches
+ any string of zero of more characters) and/or "?" (question mark, which
+ matches any single character). For example "a*b" matches all files
+ whose names start with "a" and end with "b", such as "ab", "arb",
+ "ababababab", etc, but not "abba". And "a?b" matches any file whose
+ name starts with "a", ends with "b", and is exactly 3 characters long.
NOTE: When typing commands at the C-Kermit prompt, you must prefix
"?" with \ to override its normal function of giving help.
- (Also see [462]Section 4.9 for additional pattern-matching notations
+ (Also see [470]Section 4.9 for additional pattern-matching notations
that might be available in your version of C-Kermit.)
When you have specified filename recognition patterns, C-Kermit can
patterns in text mode, and those whose names match neither in the
prevailing mode you have chosen, or that was chosen automatically via
peer recognition.
- _________________________________________________________________
- 4.3.3. Commands
+4.3.3. Commands
SET FILE PATTERNS { ON, OFF, AUTO }
This tells Kermit whether to do per-file filename
pattern-matching to determine text or binary mode. The normal
- and default setting is AUTO, which means to use pattern lists
- to switch transfer mode only when it is certain that the other
+ and default setting is AUTO, which means to use pattern lists to
+ switch transfer mode only when it is certain that the other
Kermit program supports automatic notification of transfer mode
- (via Attribute packets) on a per-file basis (this information
- is obtained automatically during protocol startup negotiation).
- ON means to always determine the transfer mode from the
- filename and pattern list when sending files. Use OFF to
- disable this feature (without resetting your pattern lists).
- Also note that if you have selected LABELED file transfer (SET
- FILE TYPE LABELED), this takes precedence over
- filename-matching patterns and all files are sent in labeled
- mode.
+ (via Attribute packets) on a per-file basis (this information is
+ obtained automatically during protocol startup negotiation). ON
+ means to always determine the transfer mode from the filename
+ and pattern list when sending files. Use OFF to disable this
+ feature (without resetting your pattern lists). Also note that
+ if you have selected LABELED file transfer (SET FILE TYPE
+ LABELED), this takes precedence over filename-matching patterns
+ and all files are sent in labeled mode.
SET TRANSFER MODE MANUAL
Disables the use of filename patterns, no matter what the FILE
PATTERNS setting.
REMOTE SET TRANSFER MODE MANUAL
- Client command to disable automatic transfer mode, and
- therefore also filename patterns, in the server. Synonym:
- REMOTE SET XFER MODE MANUAL.
+ Client command to disable automatic transfer mode, and therefore
+ also filename patterns, in the server. Synonym: REMOTE SET XFER
+ MODE MANUAL.
{ GET, SEND, etc } { /BINARY, /TEXT }
Including a /BINARY or /TEXT (or, where supported, /IMAGE or
any) are applied first (but only if not RESENDing and not sending in
LABELED mode), then binary patterns, so if the same pattern appears in
both lists, binary mode is chosen.
- _________________________________________________________________
- 4.3.4. Examples
+4.3.4. Examples
Here's an example that might be used when sending files from UNIX:
Note that "wermit" and "wart" do not match any patterns so they are
sent in the prevailing mode, which is binary. Also note the use of
"makefile" as a pattern that does not contain any wildcard characters
- (there is no other convention to distinguish among "wermit" and
- "wart", which are binary executables, and "makefile", which is a text
- file, purely by their names).
+ (there is no other convention to distinguish among "wermit" and "wart",
+ which are binary executables, and "makefile", which is a text file,
+ purely by their names).
Most C-Kermit implementations have a default pattern list built in,
which includes patterns that are almost certain to succeed in picking
text types everywhere else.
NOTE: ".doc", used for decades to denote plain-text documentation
- files, now more often than not denotes a Microsoft Word Document,
- so ".doc" is now considered a binary type since it does less harm
- to transfer a plain-text document in binary mode than it does to
+ files, now more often than not denotes a Microsoft Word Document, so
+ ".doc" is now considered a binary type since it does less harm to
+ transfer a plain-text document in binary mode than it does to
transfer an MS Word file in text mode (except when IBM mainframes
are involved!)
- ANOTHER NOTE: ".com" files are binary in DOS-like operating
- systems, but they are text (DCL command procedures) in VMS. VMS
- C-Kermit sends .COM files in text mode; K95 sends them in binary
- mode. If you download a .COM file from VMS to DOS or Windows, and
- then upload it to another VMS system, be sure to use SEND /TEXT to
- preserve its textness.
+ ANOTHER NOTE: ".com" files are binary in DOS-like operating systems,
+ but they are text (DCL command procedures) in VMS. VMS C-Kermit
+ sends .COM files in text mode; K95 sends them in binary mode. If you
+ download a .COM file from VMS to DOS or Windows, and then upload it
+ to another VMS system, be sure to use SEND /TEXT to preserve its
+ textness.
You can see the default pattern list by starting C-Kermit without its
initialization file (e.g. "kermit -Y") and using the SHOW PATTERNS
Put your most commonly-used safe pattern declarations in your C-Kermit
customization file (ckermod.ini, .mykermrc, k95custom.ini, etc).
- As noted, SET FILE PATTERNS is ON by default. Sometimes, however, it
- is desirable, or necessary, to force files to be sent in a particular
+ As noted, SET FILE PATTERNS is ON by default. Sometimes, however, it is
+ desirable, or necessary, to force files to be sent in a particular
mode, and often this must be done from the command line (e.g. when
using Kermit as a download helper in a Web browser like Lynx). The -V
command-line options is equivalent to SET FILE PATTERNS OFF and SET
forces oofa.txt to be sent in binary mode, even though ".txt" might
match a text pattern.
- _________________________________________________________________
- 4.4. File Permissions
+4.4. File Permissions
"Permissions" refers to a code associated with a file that specifies
who is allowed to access it, and in what manner. For example, the
- owner, the members of one or more groups, the system administrator,
- and everybody else, might be allowed various combinations of Read,
- Write, Append, Execute, or Listing access.
+ owner, the members of one or more groups, the system administrator, and
+ everybody else, might be allowed various combinations of Read, Write,
+ Append, Execute, or Listing access.
The permission code goes by different names on different platforms. In
UNIX, it might be called the filemode. In VMS, it is called the file
For VMS-to-VMS transfers, the default LABELED mode simply copies the
protection code from source to destination.
- _________________________________________________________________
- 4.4.1. When ATTRIBUTES PROTECTION is OFF
+4.4.1. When ATTRIBUTES PROTECTION is OFF
If no file of the same name exists, system defaults determine the
- permissions of the new file. Otherwise, the actions taken depend on
- the current FILE COLLISION setting: BACKUP, OVERWRITE, RENAME, etc, as
- documented in [463]Using C-Kermit. But now the new file (if it is
+ permissions of the new file. Otherwise, the actions taken depend on the
+ current FILE COLLISION setting: BACKUP, OVERWRITE, RENAME, etc, as
+ documented in [471]Using C-Kermit. But now the new file (if it is
created at all) automatically inherits the permissions (mode bits) of
the existing file in a way that is appropriate for the platform.
- 4.4.1.1. Unix
+4.4.1.1. Unix
All mode bits are inherited except the directory bit, since the
incoming file can not possibly be a directory. (In any case, it is not
possible to receive a file that has the same name as an existing
directory unless FILE COLLISION is set to RENAME).
- 4.4.1.2. VMS
+4.4.1.2. VMS
Files with the same name as an existing file, transferred in modes
other than LABELED between VMS systems, inherit the protection of the
prior version.
- _________________________________________________________________
- 4.4.2 When ATTRIBUTES PROTECTION is ON
+4.4.2 When ATTRIBUTES PROTECTION is ON
File permissions can be conveyed as part of the file transfer process,
in accordance with the Kermit protocol definition. If the file sender
The main benefit of this feature is to not have to "chmod +x" an
executable file after transfer from UNIX to UNIX. Its cross-platform
- benefits are less evident, perhaps to retain the status of the Unix
- 'x' bit on a VMS system, for subsequent transfer back to a Unix
- system.
- _________________________________________________________________
+ benefits are less evident, perhaps to retain the status of the Unix 'x'
+ bit on a VMS system, for subsequent transfer back to a Unix system.
- 4.4.2.1. System-Specific Permissions
+4.4.2.1. System-Specific Permissions
System-specific file permissions are used when the two Kermit programs
recognize each other as running on the same type of system. For
one is on an Alpha and the other on a VAX, and/or one is old and the
other is new).
- 4.4.2.1.1. UNIX
+4.4.2.1.1. UNIX
UNIX supports three categories of users, File Owner, Group, and World,
and three types of file access permission: Read, Write, and Execute.
permissions, nor do we convey the setuid/setgid bits, lock bit, sticky
bit, etc.
- 4.4.2.1.2. VMS
+4.4.2.1.2. VMS
VMS supports four categories of users, System, File Owner, Group, and
World, and four types of file access permission: Read, Write, Execute,
and Delete. Thus, a VMS file's permissions are expressed in 16 bits.
- The system-dependent protection string for VMS is a 4-digit
- hexadecimal string, corresponding to the internal-format protection
- word of the file (RWED for each of World,Group,Owner,System). A new
- file normally gets all 16 protection bits from the original file of
- the same name.
+ The system-dependent protection string for VMS is a 4-digit hexadecimal
+ string, corresponding to the internal-format protection word of the
+ file (RWED for each of World,Group,Owner,System). A new file normally
+ gets all 16 protection bits from the original file of the same name.
Note: VMS-to-VMS transfers take place in LABELED mode when the two
C-Kermits recognize each other's platform as VMS (unless you have
this takes precedence over any information in the Attribute packets.
You can defeat the automatic switching into LABELED mode (if you want
to) with SET TRANSFER MODE MANUAL.
- _________________________________________________________________
- 4.4.2.2. System-Independent Permissions
+4.4.2.2. System-Independent Permissions
The system-independent ("generic") protection is used when the system
IDs of the two Kermit programs do not agree (e.g. one is UNIX, the
other is VMS). The generic protection attribute includes the following
- permissions (not all are applicable to every file system): Read,
- Write, Append, Execute, Delete, Search. The generic permissions are
- derived from the owner permissions of the source file, thus, a Unix
- 'w' permission becomes VMS Write,Delete.
+ permissions (not all are applicable to every file system): Read, Write,
+ Append, Execute, Delete, Search. The generic permissions are derived
+ from the owner permissions of the source file, thus, a Unix 'w'
+ permission becomes VMS Write,Delete.
The Owner field of the new file's permissions is set from the incoming
generic protection attribute.
In UNIX, the Group and World permissions are set according to your
umask, except that execute permission is NOT set in these fields if it
- was not also set in the generic protection (and consequently, is set
- in the Owner field).
+ was not also set in the generic protection (and consequently, is set in
+ the Owner field).
In VMS, the System, Group, and World permissions are set according to
the process default file permission (as shown in VMS by SHOW
files that are not intended for execution do not have Execute
permission. In VMS, Read permission implicitly supplies Execute
capability. Generally files that have Read permission also have
- explicit Execute permission, but files (binary executables, DCL
- command procedures) that have Read permission and not Execute
- permission can still be executed.
- _________________________________________________________________
+ explicit Execute permission, but files (binary executables, DCL command
+ procedures) that have Read permission and not Execute permission can
+ still be executed.
- 4.5. File Management Commands
+4.5. File Management Commands
- 4.5.1. The DIRECTORY Command
+4.5.1. The DIRECTORY Command
Prior to C-Kermit 7.0, the DIRECTORY command always ran an external
system command (such as "ls" on UNIX) or program to product the
directory listing. This had certain advantages, mostly that you could
- include system-dependent options for customized listings, e.g. on
- UNIX:
+ include system-dependent options for customized listings, e.g. on UNIX:
dir -lt c* | more
UNIX it prints all dates and times in a consistent way (unlike ls). In
VMS it prints precise file sizes, rather than "blocks". It offers
several formatting and other options, but it is not necessarily more
- flexible than the corresponding external commands or programs (the
- UNIX "ls" program, the VMS "directory" command). The syntax is:
+ flexible than the corresponding external commands or programs (the UNIX
+ "ls" program, the VMS "directory" command). The syntax is:
DIRECTORY [ switch [ switch [ ... ] ] ] [ filespec ]
- If no filespec is given, all files in the current directory are
- listed.
+ If no filespec is given, all files in the current directory are listed.
Optional switches include all the standard file-selection switches
- presented in [464]Section 1.5.4, plus:
+ presented in [472]Section 1.5.4, plus:
/ALL
Show both regular files and directories; this is the default.
/ARRAY:x
Instead of displaying a directory listing, put the files that
- would have been shown (based on the filespec and other
- selection switches) in the given array. The array need not (and
- should not) be predeclared; if the array already exists, it is
+ would have been shown (based on the filespec and other selection
+ switches) in the given array. The array need not (and should
+ not) be predeclared; if the array already exists, it is
destroyed and reused. The array name can be a single letter,
- like "a", or any fuller form, such as "&a", "\&a", "\&a[]",
- etc. If the /ARRAY switch is included, the following other
- switches are ignored: /BRIEF, /VERBOSE, /HEADING, /PAGE,
- /ENGLISHDATE, /ISODATE, /XFERMODE, /MESSAGE, /SORT, /REVERSE,
- /ASCENDING. In other words, only file selection switches are
- meaningful with /ARRAY: /FILES, /DIRECTORIES, /ALL, /DOTFILES,
- /NOBACKUP, /RECURSIVE, /SMALLER, /LARGER, /AFTER, /BEFORE,
- /EXCEPT, etc. The resulting array has the number of files (n)
- as its 0th element, and the filenames in elements 1 through n
- Example:
+ like "a", or any fuller form, such as "&a", "\&a", "\&a[]", etc.
+ If the /ARRAY switch is included, the following other switches
+ are ignored: /BRIEF, /VERBOSE, /HEADING, /PAGE, /ENGLISHDATE,
+ /ISODATE, /XFERMODE, /MESSAGE, /SORT, /REVERSE, /ASCENDING. In
+ other words, only file selection switches are meaningful with
+ /ARRAY: /FILES, /DIRECTORIES, /ALL, /DOTFILES, /NOBACKUP,
+ /RECURSIVE, /SMALLER, /LARGER, /AFTER, /BEFORE, /EXCEPT, etc.
+ The resulting array has the number of files (n) as its 0th
+ element, and the filenames in elements 1 through n Example:
dir /array:&a /files /nobackup /after:19990101 /larger:10000 [ab]*
show array &a
/NOPAGE
Don't pause at the end of each screenful and give a "more?"
prompt, even if SET COMMAND MORE-PROMPTING is ON. If neither
- /PAGE or /NOPAGE is given, paging is according to the
- prevailing COMMAND MORE-PROMPTING setting (which can be
- displayed with SHOW COMMAND).
+ /PAGE or /NOPAGE is given, paging is according to the prevailing
+ COMMAND MORE-PROMPTING setting (which can be displayed with SHOW
+ COMMAND).
/ENGLISHDATE
- Show dates in dd-mmm-yyyy format; mmm is the first three
- letters of the English month name.
+ Show dates in dd-mmm-yyyy format; mmm is the first three letters
+ of the English month name.
/ISODATE
Show dates in yyyy-mm-dd format; mm is the month number, 1-12.
/XFERMODE
Only in Kermit programs that support SET FILE PATTERNS. If this
switch is included, and the filename matches any FILE
- BINARY-PATTERN ([465]Section 4.3), "(B)" is printed after the
- filename; otherwise, if it matches a FILE TEXT-PATTERN, "(T)"
- is printed.
+ BINARY-PATTERN ([473]Section 4.3), "(B)" is printed after the
+ filename; otherwise, if it matches a FILE TEXT-PATTERN, "(T)" is
+ printed.
/NOXFERMODE
Don't display transfer-mode indicators. This is the opposite of
other (e.g. /HEADINGS).
If you always want to use certain options, you can set them with the
- SET OPTIONS DIRECTORY command ([466]Section 1.5.5). Use SHOW OPTIONS
- to list the options currently in effect. To make the desired options
- apply every time you run C-Kermit, put a SET OPTIONS DIRECTORY command
- in your C-Kermit customization file, specifying the desired options.
- Options set in this manner apply to every subsequent DIRECTORY
- command. Of course, if you include switches in a DIRECTORY command,
- these override any defaults, built-in or custom. Example:
+ SET OPTIONS DIRECTORY command ([474]Section 1.5.5). Use SHOW OPTIONS to
+ list the options currently in effect. To make the desired options apply
+ every time you run C-Kermit, put a SET OPTIONS DIRECTORY command in
+ your C-Kermit customization file, specifying the desired options.
+ Options set in this manner apply to every subsequent DIRECTORY command.
+ Of course, if you include switches in a DIRECTORY command, these
+ override any defaults, built-in or custom. Example:
DIRECTORY ; Use "factory defaults"
SET OPTIONS DIRECTORY /SORT:SIZE /REVERSE /HEADINGS ; Customize defaults
length field causes the date and name fields to be misaligned.
* /SORT:NAME is redundant in VMS since VMS returns filenames in
alphabetic order anyway.
- * /SORT:NAME ignores alphabetic case on platforms where case does
- not matter in filenames, but this works only for unaccented Roman
+ * /SORT:NAME ignores alphabetic case on platforms where case does not
+ matter in filenames, but this works only for unaccented Roman
letters A-Z.
- * /SORT:NAME is currently based on code values, and so works fine
- for ASCII, but will probably produce unexpected results for files
- with non-ASCII or 8-bit characters in their names. (Locale-based
- sorting raises rather significant issues of portability, size,
- performance, etc.)
- * /SORT:DATE works right only for ISO-format dates, not English
- ones.
+ * /SORT:NAME is currently based on code values, and so works fine for
+ ASCII, but will probably produce unexpected results for files with
+ non-ASCII or 8-bit characters in their names. (Locale-based sorting
+ raises rather significant issues of portability, size, performance,
+ etc.)
+ * /SORT:DATE works right only for ISO-format dates, not English ones.
* /SORT:SIZE sorts the size field lexically. On some platforms (e.g.
Windows), the size of a directory file is listed as "<DIR>" rather
than as a number; in this case, the "<DIR>" files are gathered at
- the end (or beginning, depending on the sort order) of the
- listing.
+ the end (or beginning, depending on the sort order) of the listing.
* /RECURSIVE is accepted but ignored in AOS/VS. Use the normal
system-specific filespec notation, e.g. "dir #.txt".
* /RECURSIVE has no affect when a full, absolute pathname is given;
- e.g. "dir /recursive /tmp/foo" (where "foo" is a regular file)
- only shows the "/tmp/foo" file. If you want to see all "foo" files
- in the /tmp tree, do "cd /tmp" and then "dir /recursive foo".
- * If a file size of -1 is shown, or date-time of 0000-00-00
- 00:00:00, this means the file was located, but access to
- information about the file was denied to C-Kermit.
+ e.g. "dir /recursive /tmp/foo" (where "foo" is a regular file) only
+ shows the "/tmp/foo" file. If you want to see all "foo" files in
+ the /tmp tree, do "cd /tmp" and then "dir /recursive foo".
+ * If a file size of -1 is shown, or date-time of 0000-00-00 00:00:00,
+ this means the file was located, but access to information about
+ the file was denied to C-Kermit.
* In VMS, if FOO.DIR;1 is a directory within your current directory,
- "directory foo" and "directory [.foo]" list the files in the
- [.FOO] subdirectory, but "directory foo.dir" lists the directory
- file itself; similarly for "*.dir" versus "[.*]", etc.
+ "directory foo" and "directory [.foo]" list the files in the [.FOO]
+ subdirectory, but "directory foo.dir" lists the directory file
+ itself; similarly for "*.dir" versus "[.*]", etc.
* In UNIX, if "foo" is a directory within your current directory,
"directory foo" lists the files in the foo directory. If you want
to list the foo directory file itself, put an asterisk at the end:
DEFINE DL DIR /DIR /SORT:NAME /ASCEND \%* ; Alphabetical directory list
Put these definitions in your C-Kermit customization file. Note that
- "\%*" ([467]Section 7.5) in these definitions lets you include other
+ "\%*" ([475]Section 7.5) in these definitions lets you include other
switches in your macro invocations, e.g.:
wd /headings *.txt
!dir /size/date/prot/exc=*.obj oofa.*;0
- In UNIX, use "!ls" or just "ls" (which is a special synonym for
- "!ls").
- _________________________________________________________________
+ In UNIX, use "!ls" or just "ls" (which is a special synonym for "!ls").
- 4.5.2. The CD and BACK Commands
+4.5.2. The CD and BACK Commands
In C-Kermit 7.0, the CD command has a new friend, the BACK command.
BACK means "CD to my previous current directory". A second BACK brings
you back to where you were before the first one; thus successive BACK
commands switch back and forth between two directories.
- 4.5.2.1. Parsing Improvements
+4.5.2.1. Parsing Improvements
The CD command, as well as other commands that parse a directory name,
were changed in 7.0 to provide all the expected functions: completion
In VMS, the situation is a bit complicated since a directory name can
look like "DEV:", "[FOO.BAR]", "DEV:[FOO.BAR]", "[FOO]BAR.DIR;1", etc.
- Completion and ?-help might not always work, but they do in many
- cases. Examples:
+ Completion and ?-help might not always work, but they do in many cases.
+ Examples:
cd ? Lists all subdirectories of the current directory
cd []? Ditto
cd bar.dir;
cd bar.dir;1
cd [foo.bar]
+ cd <foo.bar>
cd bar.baz This can go more than 1 level deep...
cd dir: (where logical name DIR is defined as [FOO.BAR])
"
cd {-}" have the desired effect (and so does "cd ..", which is easier
to type).
- _________________________________________________________________
- 4.5.2.2. The CDPATH
+4.5.2.2. The CDPATH
The CD command in the UNIX, Windows, OS/2, and VMS versions of
- C-Kermit, as of version 6.1 / 1.1.12, searches the CDPATH for the
- given directory, if it is not absolute and if a CDPATH environment
- variable is defined. Example (in UNIX ksh or bash):
+ C-Kermit, as of version 6.1 / 1.1.12, searches the CDPATH for the given
+ directory, if it is not absolute and if a CDPATH environment variable
+ is defined. Example (in UNIX ksh or bash):
$ export CDPATH=$HOME:$HOME/kermit:/tmp
Now if you give a "cd xxx" command, no matter what your current
directory is, if the "xxx" directory is not a subdirectory of your
current directory, then the xxx subdirectory of your home directory is
- used or if that does not exist, then the xxx subdirectory of the
- kermit subdirectory of your home directory is used or if that does not
- exist, then /tmp/xxx is used. This is how the ksh "cd" command works,
- and now the C-Kermit CD command works the same way.
+ used or if that does not exist, then the xxx subdirectory of the kermit
+ subdirectory of your home directory is used or if that does not exist,
+ then /tmp/xxx is used. This is how the ksh "cd" command works, and now
+ the C-Kermit CD command works the same way.
In VMS, you can define CDPATH to be a list of directories that contain
actual directory delimiters, and/or logical names representing
SHOW CD shows the CD path and all other information relevant to the CD
command.
- _________________________________________________________________
- 4.5.2.3. CD Messages
+4.5.2.3. CD Messages
Whenever you change directory, you can have C-Kermit display a "Read
Me" file from the new directory automatically. The commands are:
SET CD MESSAGE { ON, OFF, FILE list }
ON enables this feature; OFF (the default) disables it. File
- lets you specify the name of the "Read Me" file. A list of
- names to look for can be given in the following format:
+ lets you specify the name of the "Read Me" file. A list of names
+ to look for can be given in the following format:
{{name1}{name2}{name3}{...}}
SHOW CD shows your current directory, previous directory, CD path, and
CD message info.
- _________________________________________________________________
- 4.5.3. Creating and Removing Directories
+4.5.3. Creating and Removing Directories
The MKDIR command now allows you to create multiple directories at
once:
nor will it remove a directory that contains any files. (There is, as
yet, no RMDIR /RECURSIVE command, although one might be added later.)
- In VMS, these commands (like CD) are more forgiving of your syntax
- than is the DCL command shell; "mkdir oofa" is equivalent to "mkdir
- [.oofa]" and so on. Also in VMS, you'll find that C-Kermit's RMDIR
- command is easier than deleting a directory in DCL, since it
- automatically first gives it owner delete permission if you are the
- owner.
- _________________________________________________________________
+ In VMS, these commands (like CD) are more forgiving of your syntax than
+ is the DCL command shell; "mkdir oofa" is equivalent to "mkdir [.oofa]"
+ and so on. Also in VMS, you'll find that C-Kermit's RMDIR command is
+ easier than deleting a directory in DCL, since it automatically first
+ gives it owner delete permission if you are the owner.
- 4.5.4. The DELETE and PURGE Commands
+4.5.4. The DELETE and PURGE Commands
The DELETE command now offers a selection of switches, and has a new
companion, the PURGE command. First, DELETE:
DELETE [ switches... ] filespec
Deletes the file or files that match the filespec, which may
- contain wildcards ([468]Section 4.9).
+ contain wildcards ([476]Section 4.9).
Optional switches include the standard file-selection switches
- presented in [469]Section 1.5.4, plus:
+ presented in [477]Section 1.5.4, plus:
/ASK
- Before deleting each file, ask permission interactively.
- Answers are Yes or OK (delete the file), No (don't delete it),
- or Quit (stop executing the DELETE command).
+ Before deleting each file, ask permission interactively. Answers
+ are Yes or OK (delete the file), No (don't delete it), or Quit
+ (stop executing the DELETE command).
/NOASK
Don't ask permission to delete each file.
terminates.
/SIMULATE
- Do everything implied by the given switches and filespec,
- except do not actually delete any files. This lets you preview
- which files would be deleted; implies /LIST.
+ Do everything implied by the given switches and filespec, except
+ do not actually delete any files. This lets you preview which
+ files would be deleted; implies /LIST.
Now the PURGE command:
PURGE [ switches... ] [ filespec ]
- (VMS only) Runs the DCL PURGE command. Switches and filespec,
- if any, are passed directly to DCL without parsing or
- verification. Deletes excess versions of the given (or all)
- files. The rest of this section does not apply to VMS.
+ (VMS only) Runs the DCL PURGE command. Switches and filespec, if
+ any, are passed directly to DCL without parsing or verification.
+ Deletes excess versions of the given (or all) files. The rest of
+ this section does not apply to VMS.
PURGE [ switches... ] [ filespec ]
(UNIX only) Deletes "backup files" that match the filespec,
- which may contain wildcards ([470]Section 4.9). If no filespec
- is given, all backup files in the current directory are
- selected (subject to modification by any switches). Do not
- include backup notation in the filespec.
+ which may contain wildcards ([478]Section 4.9). If no filespec
+ is given, all backup files in the current directory are selected
+ (subject to modification by any switches). Do not include backup
+ notation in the filespec.
Explanation:
To avoid destroying preexisting files when a new file arrives that has
the same name, C-Kermit backs up the old file by appending a "backup
- number" to its name. In UNIX, the backup suffix consists of a period,
- a tilde, a number, and another tilde. For example, if a file called
+ number" to its name. In UNIX, the backup suffix consists of a period, a
+ tilde, a number, and another tilde. For example, if a file called
oofa.txt exists and a new oofa.txt file arrives, the original is
- renamed to oofa.txt.~1~. If another oofa.txt file arrives, the
- existing one is renamed to oofa.txt.~2~. And so on. This system is
- compatible with the one used by EMACS. Thus over time, if you receive
- a lot of files with C-Kermit or edit them with EMACS, backup files can
- build up. The new PURGE command lets you clean out accumulated backup
- files:
+ renamed to oofa.txt.~1~. If another oofa.txt file arrives, the existing
+ one is renamed to oofa.txt.~2~. And so on. This system is compatible
+ with the one used by EMACS. Thus over time, if you receive a lot of
+ files with C-Kermit or edit them with EMACS, backup files can build up.
+ The new PURGE command lets you clean out accumulated backup files:
Optional switches include the standard file-selection switches
- presented in [471]Section 1.5.4, plus all the switches listed above
- for the DELETE command, plus:
+ presented in [479]Section 1.5.4, plus all the switches listed above for
+ the DELETE command, plus:
/KEEP:n
Retains the n most recent (highest-numbered) backup files for
- each file. For example, if oofa.txt, oofa.txt.~1~,
- oofa.txt.~2~, oofa.txt.~10~, oofa.txt.~12~, and oofa.txt.~100~
- exist, "purge /keep:2 oofa.txt" deletes oofa.txt.~1~,
- oofa.txt.~2~, and oofa.txt.~10~, and keeps oofa.txt,
- oofa.txt.~12~, and oofa.txt.~100~. If /KEEP is given without a
- number, one (the highest numbered) backup file is kept.
+ each file. For example, if oofa.txt, oofa.txt.~1~, oofa.txt.~2~,
+ oofa.txt.~10~, oofa.txt.~12~, and oofa.txt.~100~ exist, "purge
+ /keep:2 oofa.txt" deletes oofa.txt.~1~, oofa.txt.~2~, and
+ oofa.txt.~10~, and keeps oofa.txt, oofa.txt.~12~, and
+ oofa.txt.~100~. If /KEEP is given without a number, one (the
+ highest numbered) backup file is kept.
CAUTION: The PURGE command should be used only when *.~*~ files truly
- are backup files. This is the case for EMACS, and it is the DEFAULT
- for C-Kermit. However, if C-Kermit's FILE COLLISION has been set to
- RENAME, newly received files will look like backup files. In that
- case, don't use the PURGE command or you'll be removing new files
- rather than old ones. (Use SHOW FILE to find the FILE COLLISION
- setting.)
+ are backup files. This is the case for EMACS, and it is the DEFAULT for
+ C-Kermit. However, if C-Kermit's FILE COLLISION has been set to RENAME,
+ newly received files will look like backup files. In that case, don't
+ use the PURGE command or you'll be removing new files rather than old
+ ones. (Use SHOW FILE to find the FILE COLLISION setting.)
The PURGE command is presently available only in UNIX. The command
succeeds if it deleted any files, or if it deleted no files but there
were no errors. It fails if it deleted no files and there were errors
(i.e. deletion was attempted but failed). In VMS, backup file versions
- are handled automatically by the OS, and a PURGE command can be used
- at the VMS prompt to clean them up.
+ are handled automatically by the OS, and a PURGE command can be used at
+ the VMS prompt to clean them up.
If you want certain switches to be supplied automatically with each
DELETE or PURGE command, you can set them with SET OPTIONS
- ([472]Section 1.5.5) and you can display any such settings with SHOW
+ ([480]Section 1.5.5) and you can display any such settings with SHOW
OPTIONS. Of course you can override them on a per-command basis by
including switches in your PURGE or DELETE command.
Also see SET FILE COLLISION, SHOW FILE, SEND /NOBACKUP, SET SEND
BACKUP, and DIRECTORY /[NO]BACKUP.
- _________________________________________________________________
- 4.6. Starting the Remote Kermit Server Automatically
+4.6. Starting the Remote Kermit Server Automatically
- As noted on pages 275-276 of [473]Using C-Kermit 2nd edition, you can
+ As noted on pages 275-276 of [481]Using C-Kermit 2nd edition, you can
have Kermit send "kermit receive" commands automatically when it is in
local mode and you give a SEND or similar command, to start the remote
- Kermit receiver in case it is not already started. The "kermit
- receive" commands are specified by:
+ Kermit receiver in case it is not already started. The "kermit receive"
+ commands are specified by:
SET PROTOCOL KERMIT binary-receive-command text-receive-command
string to the host in advance of any Kermit packets when you give a
GET-class or REMOTE command. This will switch the remote C-Kermit into
the appropriate mode or, if the remote system is at a system command
- (shell) prompt, execute the string on the remote system. The new
- syntax of the SET PROTOCOL KERMIT command is:
+ (shell) prompt, execute the string on the remote system. The new syntax
+ of the SET PROTOCOL KERMIT command is:
SET PROTOCOL KERMIT [ s1 [ s2 [ s3 ] ] ]
NOTE: If the remote Kermit is 6.0, the following are recommended for
fast startup and high-performance file transfer (see Appendix I in
- [474]Using C-Kermit, second Edition, for command-line options):
+ [482]Using C-Kermit, second Edition, for command-line options):
s1 kermit -YQir (Kermit receive binary, skip init file, fast.)
s2 kermit -YQTr (Kermit receive text, skip init file, fast.)
s3 kermit -YQx (Kermit server, skip init file, fast.)
If the remote is C-Kermit 7.0 or later, change the -x option (enter
- server mode) to -O (uppercase letter O), which means "enter server
- mode for One transaction only); this way, it is not stuck in server
- after the transfer. Also note that the Q is redundant in version 7.0,
- since fast Kermit protocol settings are now the default.
+ server mode) to -O (uppercase letter O), which means "enter server mode
+ for One transaction only); this way, it is not stuck in server after
+ the transfer. Also note that the Q is redundant in version 7.0, since
+ fast Kermit protocol settings are now the default.
Note that in case the C-Kermit executable is called "wermit" or
"ckermit" you can change "kermit" in the strings above to "wermit" or
"ckermit" and C-Kermit 7.0 or later will recognize these as synonyms
for "kermit", in case it is at its command prompt when one of these
strings is sent to it.
- _________________________________________________________________
- 4.7. File-Transfer Command Switches
+4.7. File-Transfer Command Switches
Over the years, various new methods of transferring a file have
accumulated, until we had, in addition to the SEND command, also MOVE
(send and then delete), MAIL (send as email), REMOTE PRINT (send to be
- printed), CSEND (send the output of a command), PSEND (send a part of
- a file), BSEND (send in binary mode), RESEND (resume an interrupted
+ printed), CSEND (send the output of a command), PSEND (send a part of a
+ file), BSEND (send in binary mode), RESEND (resume an interrupted
SEND), etc etc. Similarly: GET, REGET, CGET, RETRIEVE, and so on.
Not only is it confusing to have different names for these commands,
combinations, like "send a file as mail, then delete it".
In C-Kermit 7.0, the SEND, GET, and RECEIVE commands were restructured
- to accept modifier switches (switches are explained in [475]Section
+ to accept modifier switches (switches are explained in [483]Section
1.5).
- _________________________________________________________________
- 4.7.1. SEND Command Switches
+4.7.1. SEND Command Switches
Without switches, the SEND command still works exactly as before:
But now the following modifier switches may be included between "send"
and the filename. Zero, one, two, or more switches may be included in
- any combination that makes sense. Switch names (such as /BINARY) can
- be abbreviated, just like any other keywords. Most of these switches
- work only when using Kermit protocol (/TEXT and /BINARY are the
- exceptions).
+ any combination that makes sense. Switch names (such as /BINARY) can be
+ abbreviated, just like any other keywords. Most of these switches work
+ only when using Kermit protocol (/TEXT and /BINARY are the exceptions).
/AFTER:date-time
Specifies that only those files modified (or, in VMS, created)
- after the given date-time (see [476]Section 1.6) are to be
- sent. Examples:
+ after the given date-time (see [484]Section 1.6) are to be sent.
+ Examples:
send /text /after:{2-Feb-1997 10:28:30} *.txt
send /text /after:\fdate(oofa.txt) *.txt
filename, you should include an /AS-NAME switch to specify the
name under which the array is to be sent (if you do not, the
name "_array_x_" is used, where 'x' is replaced by the array
- designator). See [477]section 7.10 for array-name syntax. As
+ designator). See [485]section 7.10 for array-name syntax. As
noted in that section, you can also include a range to have a
segment of the array sent, rather than the whole thing; for
example: "send /array:&a[100:199]". It is strongly recommended
switch to force the desired transfer mode, since otherwise the
various automatic mechanisms might switch to binary mode when
you really wanted text, or vice versa. In text mode a line
- terminator is added to the end of each array element, but not
- in binary mode. For details and examples see [478]Section
- 7.10.11.
+ terminator is added to the end of each array element, but not in
+ binary mode. For details and examples see [486]Section 7.10.11.
/AS-NAME:text
Specifies "text" as the name to send the file under. You can
/BEFORE:date-time
Specifies that only those files modified (or, in VMS, created)
- before the given date-time ([479]Section 1.6) are to be sent.
+ before the given date-time ([487]Section 1.6) are to be sent.
/BINARY
Performs this transfer in binary mode without affecting the
send oofa.txt ; This one is sent in text mode
/COMMAND
- SEND /COMMAND is equivalent to CSEND ([480]Section 4.2.2) -- it
- says to send the output from a command, rather than the
- contents of a file. The first "filename" on the SEND command
- line is interpreted as the name of a command; the second (if
- any) is the as-name. Examples:
+ SEND /COMMAND is equivalent to CSEND ([488]Section 4.2.2) -- it
+ says to send the output from a command, rather than the contents
+ of a file. The first "filename" on the SEND command line is
+ interpreted as the name of a command; the second (if any) is the
+ as-name. Examples:
send /command {grep Sunday oofa.txt} sunday.txt
send /as-name:sunday.txt /command {grep Sunday oofa.txt}
/DELETE
Deletes the file (or each file in the group) after it has been
sent successfully (but does not delete it if it was not sent
- successfully). SEND /DELETE is equivalent to MOVE. Has no
- effect when used with /COMMAND. Example:
+ successfully). SEND /DELETE is equivalent to MOVE. Has no effect
+ when used with /COMMAND. Example:
send /delete *.log
/DOTFILES
(UNIX and OS-9 only) Normally files whose names begin with "."
- are skipped when matching wildcards that do not also beging
- with ".". Include /DOTFILES to force these files to be included
- too.
+ are skipped when matching wildcards that do not also begin with
+ ".". Include /DOTFILES to force these files to be included too.
/RECURSIVE
Descend the through the directory tree when locating files to
send. Automatically sets /PATHNAMES:RELATIVE. Explained in
- [481]Section 4.11 .
+ [489]Section 4.11 .
/EXCEPT:pattern
- See [482]Section 1.5.4.
+ See [490]Section 1.5.4.
/NOBACKUP
- This means to skip backup files when sending, even if they
- match the SEND file specification. This is equivalent to using
- SEND /EXCEPT and including *.~[0-9]*~ in the exception list (or
- *.~*~ if Kermit was built without pattern-matching support; see
- [483]Section 4.9.1). Including this switch is equivalent to
- giving SET SEND BACKUP OFF ([484]Section 4.0.6) prior to SEND,
- except its effect is local to the SEND command with which it
- was given.
+ This means to skip backup files when sending, even if they match
+ the SEND file specification. This is equivalent to using SEND
+ /EXCEPT and including *.~[0-9]*~ in the exception list (or *.~*~
+ if Kermit was built without pattern-matching support; see
+ [491]Section 4.9.1). Including this switch is equivalent to
+ giving SET SEND BACKUP OFF ([492]Section 4.0.6) prior to SEND,
+ except its effect is local to the SEND command with which it was
+ given.
/NODOTFILES
The opposite of /DOTFILES (q.v.)
/FILTER:command
This specifies a filter to pass the file through before sending
- it. See the [485]section on file-transfer pipes and filters.
- The /FILTER switch applies only to the file-transfer command it
- is given with; it does not affect the global SEND FILTER
- setting, if any.
+ it. See the [493]section on file-transfer pipes and filters. The
+ /FILTER switch applies only to the file-transfer command it is
+ given with; it does not affect the global SEND FILTER setting,
+ if any.
/IMAGE
VMS: Sends in image mode. Non-VMS: same as /BINARY.
x.x
(but without leading or trailing spaces), then the C-Kermit
- command "send /listfile:files.txt" will send the files
- blah.txt, x.x, and all files whose names start with "oofa",
- assuming the files exist and are readable. The /LISTFILE
- switch, can, of course, be used with other switches when it
- makes sense, for example, /EXCEPT, /BINARY, /AFTER, /SMALLER,
- /MOVE-TO, /DELETE, /AS-NAME with a template, etc.
+ command "send /listfile:files.txt" will send the files blah.txt,
+ x.x, and all files whose names start with "oofa", assuming the
+ files exist and are readable. The /LISTFILE switch, can, of
+ course, be used with other switches when it makes sense, for
+ example, /EXCEPT, /BINARY, /AFTER, /SMALLER, /MOVE-TO, /DELETE,
+ /AS-NAME with a template, etc.
/MAIL:address
Sends the file as e-mail to the given address or addresses.
/PATHNAMES:{OFF,ABSOLUTE,RELATIVE}
Use this switch to override the current global SET SEND
- PATHNAMES setting for this transfer only. /PATHNAMES:ABSOLUTE
- or RELATIVE also sets /FILENAMES:LITERAL (also for this
- transfer only) since pathnames are not sent otherwise.
+ PATHNAMES setting for this transfer only. /PATHNAMES:ABSOLUTE or
+ RELATIVE also sets /FILENAMES:LITERAL (also for this transfer
+ only) since pathnames are not sent otherwise.
/RENAME-TO:text
Specifies that after the (or each) source file is sent
renamed to the name given. If the name contains spaces, enclose
it in braces. If a file group is being sent, then the "text"
must contain a variable reference such as \v(filename) (see
- [486]Section 4.1). Example:
+ [494]Section 4.1). Example:
send /rename-to:ok_\v(filename) *.*
- This sends each file in the current directory and if it was
- sent successfully, changes its name to begin with "ok_".
+ This sends each file in the current directory and if it was sent
+ successfully, changes its name to begin with "ok_".
/SMALLER-THAN:number
Specifies that only those files that are smaller than the given
/SUBJECT:text
Subject for email. Actually, this is just a synonym for
/AS-NAME. If the text includes spaces, you must enclose it in
- braces. If you don't specify a subject (or as-name), the name
- of the file is used as the subject. Example:
+ braces. If you don't specify a subject (or as-name), the name of
+ the file is used as the subject. Example:
send /mail:kermit-support@columbia.edu /subj:{As requested} packet.log
mode; SEND /RECOVER and RESEND include an implied /BINARY
switch. Even then, recovery will successful only if (a) the
original (interrupted) transfer was also in binary mode, or (b)
- if it was in text mode, the two Kermit programs run on
- platforms where text-mode transfers are not length-changing.
+ if it was in text mode, the two Kermit programs run on platforms
+ where text-mode transfers are not length-changing.
/STARTING:number
Starts sending the file from the given byte position. SEND
/STARTING:n filename is equivalent to PSEND filename n.
/TEXT
- Performs this transfer in text mode without affecting the
- global transfer mode, overriding not only the FILE TYPE and
- TRANSFER MODE settings, but also the FILE PATTERN setting, for
- this SEND command only. In other words, SEND /TEXT really send
- the file in text mode, regardless of any other settings or
- negotiations.
+ Performs this transfer in text mode without affecting the global
+ transfer mode, overriding not only the FILE TYPE and TRANSFER
+ MODE settings, but also the FILE PATTERN setting, for this SEND
+ command only. In other words, SEND /TEXT really send the file in
+ text mode, regardless of any other settings or negotiations.
- About mail... Refer to [487]Section 4.7.1. The same rules apply as for
+ About mail... Refer to [495]Section 4.7.1. The same rules apply as for
file transfer. If you are mailing multiple files, you can't use an
as-name (in this case, a subject) unless it contains replacement
variables like \v(filenum). For example, if you:
send /mail:somebody@xyz.com *.txt
- Then each file will arrive as a separate email message with its name
- as the subject. But if you:
+ Then each file will arrive as a separate email message with its name as
+ the subject. But if you:
send /mail:somebody@xyz.com /subject:{Here is a file} *.txt
The MOVE, CSEND, MAIL, and RESEND commands now also accept the same
switches. And the switches are also operative when sending from a
- SEND-LIST (see [488]Using C-Kermit, 2nd Ed, pp.191-192), so, for
+ SEND-LIST (see [496]Using C-Kermit, 2nd Ed, pp.191-192), so, for
example, it is now possible to SEND /PRINT or SEND /MAIL from a
SEND-LIST.
The MSEND and MMOVE commands also take switches, but not all of them.
- With these commands, which take an arbitrary list of filespecs, you
- can use /BINARY, /DELETE, /MAIL, /PRINT, /PROTOCOL, /QUIET, /RECOVER,
- and /TEXT (and /IMAGE or /LABELED, depending on the platform). MMOVE
- is equivalent to MSEND /DELETE. (If you want to send a group of files,
- but in mixed transfer modes with per-file as-names, use ADD SEND-LIST
- and then SEND.)
+ With these commands, which take an arbitrary list of filespecs, you can
+ use /BINARY, /DELETE, /MAIL, /PRINT, /PROTOCOL, /QUIET, /RECOVER, and
+ /TEXT (and /IMAGE or /LABELED, depending on the platform). MMOVE is
+ equivalent to MSEND /DELETE. (If you want to send a group of files, but
+ in mixed transfer modes with per-file as-names, use ADD SEND-LIST and
+ then SEND.)
- The MSEND/MMOVE switches come before the filenames, and apply to all
- of them:
+ The MSEND/MMOVE switches come before the filenames, and apply to all of
+ them:
msend /print /text *.log oofa.txt /etc/motd
- If you type any of these commands (SEND, CSEND, MSEND, etc) followed
- by a question mark (?), you will see a list of the switches you can
- use. If you want to see a list of filenames, you'll need to type
- something like "send ./?" (UNIX, OS/2, Windows, etc), or "send []?"
- (VMS), etc. Of course, you can also type pieces of a filename
- (anything that does not start with "/") and then "?" to get a list of
- filenames that start that way; e.g. "send x.?" still works as before.
+ If you type any of these commands (SEND, CSEND, MSEND, etc) followed by
+ a question mark (?), you will see a list of the switches you can use.
+ If you want to see a list of filenames, you'll need to type something
+ like "send ./?" (UNIX, OS/2, Windows, etc), or "send []?" (VMS), etc.
+ Of course, you can also type pieces of a filename (anything that does
+ not start with "/") and then "?" to get a list of filenames that start
+ that way; e.g. "send x.?" still works as before.
- In UNIX, where "/" is also the directory separator, there is usually
- no ambiguity between a fully-specified pathname and a switch, except
- when a file in the root directory has the same name as a switch (as
- noted in [489]Section 1.5):
+ In UNIX, where "/" is also the directory separator, there is usually no
+ ambiguity between a fully-specified pathname and a switch, except when
+ a file in the root directory has the same name as a switch (as noted in
+ [497]Section 1.5):
send /etc/motd ; Works as expected
send /command ; ???
or other system-dependent forms such as //command, /./command,
c:/command, etc, or cd to / and then "send command".
- _________________________________________________________________
- 4.7.2. GET Command Switches
+4.7.2. GET Command Switches
- Without switches, the GET command still works about the same as
- before:
+ Without switches, the GET command still works about the same as before:
get oofa.txt ; GET a single file
get oofa.* ; GET multiple files
remote-filespec
local-name
- This was because the remote filespec might contain spaces, and so
- there would be no good way of telling where it ended and where the
- local name began, e.g:
+ This was because the remote filespec might contain spaces, and so there
+ would be no good way of telling where it ended and where the local name
+ began, e.g:
get profile exec a foo
But now since we can use {braces} for grouping, we don't need the
multiline GET form any more, and in fact, support for it has been
- removed. If you give a GET command by itself on a line, it fails and
- an error message is printed. The new form is:
+ removed. If you give a GET command by itself on a line, it fails and an
+ error message is printed. The new form is:
GET [ switches... ] remote-name [ local-name ]
Ask the server to send the file whose name is remote-name. If
or later or K95 1.1.19 or later.
/COMMAND
- GET /COMMAND is equivalent to CGET ([490]Section 4.2.2) -- it
+ GET /COMMAND is equivalent to CGET ([498]Section 4.2.2) -- it
says to receive the file into the standard input of a command,
rather than saving it on disk. The /AS-NAME or the second
- "filename" on the GET command line is interpreted as the name
- of a command. Examples:
+ "filename" on the GET command line is interpreted as the name of
+ a command. Examples:
get /command sunday.txt {grep Sunday oofa.txt}
get /command /as-name:{grep Sunday oofa.txt} sunday.txt
/EXCEPT:{{pattern1}{pattern2}...}
- See the description of SEND /EXCEPT in [491]Section 4.7.1 for
+ See the description of SEND /EXCEPT in [499]Section 4.7.1 for
examples, etc. Refusal is accomplished using the Attribute
Rejection mechanism (reason "name"), which works only when
Attribute packets have been successfully negotiated.
setting for this transfer only.
/FILTER:command
- This specifies a filter to pass the incoming file through
- before writing to disk. See the [492]section on file-transfer
- pipes and filters. The /FILTER switch applies only to the
- file-transfer command it is given with; it does not affect the
- global RECEIVE FILTER setting, if any.
+ This specifies a filter to pass the incoming file through before
+ writing to disk. See the [500]section on file-transfer pipes and
+ filters. The /FILTER switch applies only to the file-transfer
+ command it is given with; it does not affect the global RECEIVE
+ FILTER setting, if any.
/IMAGE
VMS: Transfer in image mode. Non-VMS: same as /BINARY.
/MOVE-TO:directory
This tells C-Kermit to move each file that is successfully
- received to the given directory. Files that are not
- successfully received are not moved. By default, files are not
- moved.
+ received to the given directory. Files that are not successfully
+ received are not moved. By default, files are not moved.
/PATHNAMES:{OFF,ABSOLUTE,RELATIVE,AUTO}
Use this switch to override the current global SET RECEIVE
- PATHNAMES setting for this transfer only. /PATHNAMES:ABSOLUTE
- or RELATIVE also sets /FILENAMES:LITERAL (also for this
- transfer only) since incoming pathnames would not be treated as
- pathnames otherwise. See [493]Section 4.10.
+ PATHNAMES setting for this transfer only. /PATHNAMES:ABSOLUTE or
+ RELATIVE also sets /FILENAMES:LITERAL (also for this transfer
+ only) since incoming pathnames would not be treated as pathnames
+ otherwise. See [501]Section 4.10.
/QUIET
When sending in local mode, this suppresses the file-transfer
mode; SEND /RECOVER and RESEND include an implied /BINARY
switch. Even then, recovery will successful only if (a) the
original (interrupted) transfer was also in binary mode, or (b)
- if it was in text mode, the two Kermit programs run on
- platforms where text-mode transfers are not length-changing.
+ if it was in text mode, the two Kermit programs run on platforms
+ where text-mode transfers are not length-changing.
/RECURSIVE
Tells the server that the GET file specification applies
recursively. This switch also automatically sets
- /PATHNAMES:RELATIVE in both the server AND the client. When
- used in conjunction with /DELETE, this "moves" a directory tree
- from the server's computer to the client's computer (except
- that only regular files are deleted from the server's computer,
- not directories; thus the original directories will be left,
- but will contain no files). Note that all servers that support
+ /PATHNAMES:RELATIVE in both the server AND the client. When used
+ in conjunction with /DELETE, this "moves" a directory tree from
+ the server's computer to the client's computer (except that only
+ regular files are deleted from the server's computer, not
+ directories; thus the original directories will be left, but
+ will contain no files). Note that all servers that support
/RECURSIVE do not necessarily do so in combination with other
switches, such as /RECOVER. (Servers that do include C-Kermit
7.0 and later, K95 1.1.19 and later.)
/RENAME-TO:string
This tells C-Kermit to rename each file that is successfully
received to the given string. Files that are not successfully
- received are not renamed. By default, files are not renamed.
- The string can be a literal string, which is appropriate when
- only one file is being received, or it can contain one or more
+ received are not renamed. By default, files are not renamed. The
+ string can be a literal string, which is appropriate when only
+ one file is being received, or it can contain one or more
variables that are to be evaluated at the time each file is
received, such as \v(filename), \v(filenumber), \v(ntime),
\v(pid), \v(user), etc. WARNING: if you give a literal string
- and more than one file arrives, each incoming file will be
- given the same name (but SET FILE COLLISION BACKUP or RENAME
- can be used to keep the incoming files from overwriting each
- other).
+ and more than one file arrives, each incoming file will be given
+ the same name (but SET FILE COLLISION BACKUP or RENAME can be
+ used to keep the incoming files from overwriting each other).
/TEXT
Tells the server to perform this transfer in text mode without
The CGET, REGET, RETRIEVE commands also accept the same switches as
GET. CGET automatically sets /COMMAND; REGET automatically sets
/RECOVER and /BINARY, and RETRIEVE automatically sets /DELETE.
- _________________________________________________________________
- 4.7.3. RECEIVE Command Switches
+4.7.3. RECEIVE Command Switches
Without switches, the RECEIVE command still works as before:
/BINARY
Performs this transfer in binary mode without affecting the
global transfer mode. NOTE: This does not override the incoming
- filetype (as it does with GET), so this switch is useful only
- if ATTRIBUTE TYPE is OFF, or if the other Kermit does not send
- a TYPE (text or binary) attribute. In any case, it has no
- affect whatsoever on the file sender.
+ filetype (as it does with GET), so this switch is useful only if
+ ATTRIBUTE TYPE is OFF, or if the other Kermit does not send a
+ TYPE (text or binary) attribute. In any case, it has no affect
+ whatsoever on the file sender.
/COMMAND
- RECEIVE /COMMAND is equivalent to CRECEIVE ([494]Section 4.2.2)
+ RECEIVE /COMMAND is equivalent to CRECEIVE ([502]Section 4.2.2)
-- it says to receive the file into the standard input of a
command, rather than saving it on disk. The /AS-NAME or the
"filename" on the RECEIVE command line is interpreted as the
/EXCEPT:{{pattern1}{pattern2}...}
- See the description of SEND /EXCEPT in [495]Section 4.7.1 for
+ See the description of SEND /EXCEPT in [503]Section 4.7.1 for
examples, etc. Refusal is accomplished using the Attribute
Rejection mechanism (reason "name"), which works only when
Attribute packets have been successfully negotiated.
setting for this transfer only.
/FILTER:command
- This specifies a filter to pass the incoming file through
- before writing to disk. See the [496]section on file-transfer
- pipes and filters. The /FILTER switch applies only to the
- file-transfer command it is given with; it does not affect the
- global RECEIVE FILTER setting, if any.
+ This specifies a filter to pass the incoming file through before
+ writing to disk. See the [504]section on file-transfer pipes and
+ filters. The /FILTER switch applies only to the file-transfer
+ command it is given with; it does not affect the global RECEIVE
+ FILTER setting, if any.
/IMAGE
VMS: Transfer in image mode. Non-VMS: same as /BINARY. See
comments under RECEIVE /BINARY.
/LABELED
- VMS and OS/2 only: Specifies labeled transfer mode. See
- comments under RECEIVE /BINARY.
+ VMS and OS/2 only: Specifies labeled transfer mode. See comments
+ under RECEIVE /BINARY.
/MOVE-TO:directory
This tells C-Kermit to move each file that is successfully
- received to the given directory. Files that are not
- successfully received are not moved. By default, files are not
- moved.
+ received to the given directory. Files that are not successfully
+ received are not moved. By default, files are not moved.
/PATHNAMES:{ABSOLUTE,RELATIVE,OFF,AUTO}
Use this switch to override the current global SET RECEIVE
- PATHNAMES setting for this transfer only. See [497]Section
- 4.10.
+ PATHNAMES setting for this transfer only. See [505]Section 4.10.
/RECURSIVE
When used with the RECEIVE command, /RECURSIVE is simply a
/RENAME-TO:string
This tells C-Kermit to rename each file that is successfully
received to the given string. Files that are not successfully
- received are not renamed. By default, files are not renamed.
- The string can be a literal string, which is appropriate when
- only one file is being received, or it can contain one or more
+ received are not renamed. By default, files are not renamed. The
+ string can be a literal string, which is appropriate when only
+ one file is being received, or it can contain one or more
variables that are to be evaluated at the time each file is
received, such as \v(filename), \v(filenumber), \v(ntime),
\v(pid), \v(user), etc. WARNING: if you give a literal string
- and more than one file arrives, each incoming file will be
- given the same name (but SET FILE COLLISION BACKUP or RENAME
- can be used to keep the incoming files from overwriting each
- other).
+ and more than one file arrives, each incoming file will be given
+ the same name (but SET FILE COLLISION BACKUP or RENAME can be
+ used to keep the incoming files from overwriting each other).
/QUIET
When receiving in local mode, this suppresses the file-transfer
receive prn
The CRECEIVE command now also accepts the same switches.
- _________________________________________________________________
- 4.8. Minor Kermit Protocol Improvements
+4.8. Minor Kermit Protocol Improvements
- 4.8.1. Multiple Attribute Packets
+4.8.1. Multiple Attribute Packets
C-Kermit 7.0 now sends more than one Attribute packet if a file's
- attributes do not fit into a single packet of the negotiated length.
- If a particular attribute (such as file creation date-time) does not
- fit within the negotiated length (which will only happen when the
+ attributes do not fit into a single packet of the negotiated length. If
+ a particular attribute (such as file creation date-time) does not fit
+ within the negotiated length (which will only happen when the
negotiated length is around 20 or less), that attribute is not sent at
all.
- 4.8.2. Very Short Packets
+4.8.2. Very Short Packets
There are certain situations where extremely short packets must be
used; 20 or 30 bytes at most. This can happen when one or more devices
along the communication path have very small buffers and lack an
- effective means of flow control. Examples are sometimes cited
- involving radio modems.
+ effective means of flow control. Examples are sometimes cited involving
+ radio modems.
When the maximum packet length is shorter than certain packets that
would be sent, those packets are either truncated or else broken up
to the negotiated length. Any parameters that do not fit are reset
to their default values. There is no provision in the Kermit
protocol for fragmentation and reassembly of parameter strings.
- 2. File header packets (containing the filename) are simply
- truncated. There is no provision in the Kermit protocol for
- fragmentation and reassembly of filenames.
+ 2. File header packets (containing the filename) are simply truncated.
+ There is no provision in the Kermit protocol for fragmentation and
+ reassembly of filenames.
3. Attribute packets are fragmented and reassembled as described in
4.8.1 without loss of data, except in case a field will not fit at
all in the negotiated length (the longest attribute is usually the
that attributes may not be broken across packets.
4. Data packets and other packets are unaffected -- they can be as
short as they need to be, within reason.
- _________________________________________________________________
- 4.9. Wildcard / File Group Expansion
+4.9. Wildcard / File Group Expansion
"Wildcard" refers to the notation used in filenames to specify a group
of files by pattern matching.
- 4.9.1. In UNIX C-Kermit
+4.9.1. In UNIX C-Kermit
Prior to C-Kermit 7.0, C-Kermit was capable of expanding wildcard
strings containing only the "metacharacters" '*' and '?':
filenames) they may not contain directory separators.
Thus, the metacharacters in filenames (and in any other field
- that can be a pattern, such as the IF MATCH pattern, SEND or
- GET exception lists, etc) are:
+ that can be a pattern, such as the IF MATCH pattern, SEND or GET
+ exception lists, etc) are:
* ? [ {
All of these features can be used anywhere you would type a filename
that is allowed to contain wildcards.
- When you are typing at the command prompt, an extra level of quoting
- is required for the '?' character to defeat its regular function of
+ When you are typing at the command prompt, an extra level of quoting is
+ required for the '?' character to defeat its regular function of
producing a list of files that match what you have typed so far, for
example:
platforms: ckufio.c, ckutio.c, ckvfio.c, ckvtio.c, etc.
If, however, a filename actually contains a question mark and you need
- to refer to it on the command line, you must use three (3)
- backslashes. For example, if the file is actually called ck?fio.c, you
- would use:
+ to refer to it on the command line, you must use three (3) backslashes.
+ For example, if the file is actually called ck?fio.c, you would use:
send ck\\\?fio.c
Further notes on quoting:
- * A single backslash is sufficient for quoting a special character
- at the command prompt or in a command file. However, when passing
+ * A single backslash is sufficient for quoting a special character at
+ the command prompt or in a command file. However, when passing
patterns to macros you'll need double backslashes, and when
referring to these patterns within the macro, you'll need to use
- \fcontents(\%1) (see [498]Section 1.11.5). You should enclose
- macro argument references in braces in case grouped arguments were
+ \fcontents(\%1) (see [506]Section 1.11.5). You should enclose macro
+ argument references in braces in case grouped arguments were
passed. Example:
define ismatch {
if match {\fcont(\%1)} {\fcont(\%2)} {
}
ismatch ab*yz a*\\**z ; Backslash must be doubled
ismatch {abc def xyz} *b*e*y* ; Braces must be used for grouping
+
* Watch out for possible conflicts between {} in filename patterns
and {} used for grouping multiple words into a single field, when
the pattern has outer braces. For example, in:
if match {abc xyz} {a* *z} echo THEY MATCH
- braces must be used to group "abc xyz" into a single string.
- Kermit strips off the braces before comparing the string with the
- pattern. Therefore:
+
+ braces must be used to group "abc xyz" into a single string. Kermit
+ strips off the braces before comparing the string with the pattern.
+ Therefore:
if match makefile {makefile,Makefile} echo THEY MATCH
+
does not work, but:
if match makefile {{makefile,Makefile}} echo THEY MATCH
+
does.
* If you use a pattern that has outer braces, like {*.txt,*.doc}, in
- a field that accepts a pattern list (like SEND /EXCEPT:xxx),
- you'll need to add two extra sets of outer braces:
+ a field that accepts a pattern list (like SEND /EXCEPT:xxx), you'll
+ need to add two extra sets of outer braces:
send /except:{{{*.txt,*.doc}}} *.*
C-Kermit's new pattern matching capabilities are also used when
get ck[cuw]*.[cwh]
- to a C-Kermit server without having to tell it to SET WILD SHELL
- first. Previously this would have required:
+ to a C-Kermit server without having to tell it to SET WILD SHELL first.
+ Previously this would have required:
mget ckc*.c ckc*.w ckc*.h cku*.c cku*.w cku*.h ckw*.c ckw*.w ckw*.h
The new pattern matching features make SET WILD SHELL redundant, and
- barring any objections, it will eventually be phased out. (One
- possible reason for retaining it would be as an escape mechanism when
- Kermit does not understand the underlying file system.)
+ barring any objections, it will eventually be phased out. (One possible
+ reason for retaining it would be as an escape mechanism when Kermit
+ does not understand the underlying file system.)
By the way, patterns such as these are sometimes referred to as
"regular expressions", but they are not quite the same. In a true
regular expression (for example), "*" means "zero or more repetitions
- of the previous item", so (for example), "([0-9]*)" would match zero
- or more digits in parentheses. In Kermit (and in most shells), this
+ of the previous item", so (for example), "([0-9]*)" would match zero or
+ more digits in parentheses. In Kermit (and in most shells), this
matches one digit followed by zero or more characters, within
parentheses. Here are some hints:
following pattern matches Kermit backup files (with backup numbers
from 1 to 999):
*.~{[1-9],[1-9][0-9],[1-9][0-9][0-9]}~
+
* There is presently no NOT operator, so no way to match any
character or string EXCEPT the one(s) shown.
In other wildcarding news...
* You may now "send xxx" where "xxx" is a directory name, and this
- will send all the files from the directory xxx, as if you had
- typed "send xxx/*". You can also use the special shorthand "send
- ." to send all the files from the current directory.
+ will send all the files from the directory xxx, as if you had typed
+ "send xxx/*". You can also use the special shorthand "send ." to
+ send all the files from the current directory.
* To easily skip over backup files (the ones whose names end like
- .~22~) when sending, you can use SEND /NOBACKUP (see [499]Section
+ .~22~) when sending, you can use SEND /NOBACKUP (see [507]Section
4.0.6 for details).
* When choosing Kermit to expand wildcards, rather than the shell,
you can choose whether "dot files" -- files whose names begin with
".", which are normally "invisible" -- should be matched:
SET WILD KERMIT /NO-MATCH-DOT-FILES (this is the default)
SET WILD KERMIT /MATCH-DOT-FILES (this allows matching of "." files)
+
or include the /DOTFILES or /NODOTFILES switch on the command you
are using, such as SEND or DIRECTORY.
* Commands such as DIRECTORY and SEND allow recursive directory
- traversal. There are also new functions for this to use in
- scripts. See [500]Section 4.11 for details.
+ traversal. There are also new functions for this to use in scripts.
+ See [508]Section 4.11 for details.
When building file lists in UNIX, C-Kermit follows symbolic links.
Because of this, you might encounter any or all of the following
link might not be responding, or the directory you are looking at
contains a link to a huge directory tree (example: "directory
/recursive /etc" when /etc/spool is a symlink to /var/spool, which
- is a large organization's incoming email directory, containing
- tens of thousands of subdirectories).
+ is a large organization's incoming email directory, containing tens
+ of thousands of subdirectories).
The size of the file list that Kermit can build is limited in most
C-Kermit implementations. The limit, if any, depends on the
implementation. Use the SHOW FEATURES command and look in the
alphabetized options list for MAXWLD to see the value.
- 4.9.2. In Kermit 95
+4.9.2. In Kermit 95
Kermit 95 1.1.19 and later uses the same pattern matching syntax as in
UNIX, but (as always) you will encounter numerous difficulties if you
use backslash (\) as the directory separator. In any command where K95
- parses filenames itself (that is, practically any file-oriented
- command except RUN), you can use forward slash (/) as the directory
- separator to avoid all the nasty conflicts.
+ parses filenames itself (that is, practically any file-oriented command
+ except RUN), you can use forward slash (/) as the directory separator
+ to avoid all the nasty conflicts.
- 4.9.3. In VMS, AOS/VS, OS-9, VOS, etc.
+4.9.3. In VMS, AOS/VS, OS-9, VOS, etc.
Platforms other than UNIX, Windows 95/98/NT, and OS/2 have their own
filename matching capabilities that are, in general, different from
example, [] encloses directory names in VMS.
Nevertheless you can still use all the pattern-matching capabilities
- described in [501]Section 4.9.1 by loading a file list into an array
- (e.g. with \ffiles(*,&a), see [502]Section 4.11.3) and then using IF
+ described in [509]Section 4.9.1 by loading a file list into an array
+ (e.g. with \ffiles(*,&a), see [510]Section 4.11.3) and then using IF
MATCH on the members.
- _________________________________________________________________
- 4.10. Additional Pathname Controls
+4.10. Additional Pathname Controls
In version 6.0 and earlier, C-Kermit's SET { SEND, RECEIVE } PATHNAMES
command had only ON and OFF as options. In version 7.0, there are more
SET SEND PATHNAMES OFF
When sending a file, strip all disk/directory information from
the name. Example: "send /usr/olga/letters/oofa.txt" sends the
- file as "oofa.txt". This applies to actual filenames, not to
- any as-name you might specify.
+ file as "oofa.txt". This applies to actual filenames, not to any
+ as-name you might specify.
SET SEND PATHNAMES RELATIVE
When sending a file, leave the pathname on as given. For
disk letter is stripped.
SET RECEIVE PATHNAMES OFF
- When receiving a file, strip all disk/directory information
- from the name before attempting to store it. This applies to
- incoming filename, not to any as-name you might specify.
- Example: If a file arrives under the name
- "/usr/olga/letters/oofa.txt" it is stored simply as "oofa.txt"
- in your download directory or, if no download directory has
- been specified, in your current directory.
+ When receiving a file, strip all disk/directory information from
+ the name before attempting to store it. This applies to incoming
+ filename, not to any as-name you might specify. Example: If a
+ file arrives under the name "/usr/olga/letters/oofa.txt" it is
+ stored simply as "oofa.txt" in your download directory or, if no
+ download directory has been specified, in your current
+ directory.
SET RECEIVE PATHNAMES RELATIVE
When receiving a file, leave the pathname on as it appears in
created if they do not exist.
SET RECEIVE PATHNAMES ABSOLUTE
- The incoming filename is used as given. Thus it cannot be
- stored unless the given path (if any) already exists or can be
- created. In this case, node, device, or disk designations are
- NOT stripped, since they most likely were given explicitly by
- the user as an as-name, meant to be used as given.
+ The incoming filename is used as given. Thus it cannot be stored
+ unless the given path (if any) already exists or can be created.
+ In this case, node, device, or disk designations are NOT
+ stripped, since they most likely were given explicitly by the
+ user as an as-name, meant to be used as given.
SET RECEIVE PATHNAMES AUTO
This is the default, and means RELATIVE if the sender tells me
it is a recursive transfer, OFF otherwise.
- Set FILE NAMES CONVERTED now also affects pathnames too. When
- PATHNAMES are RELATIVE or ABSOLUTE and FILE NAMES are CONVERTED, the
- file sender converts its native directory-name format to UNIX format,
- and the file receiver converts from UNIX format to its native one;
- thus UNIX format is the common intermediate representation for
- directory hierarchies, as it is in the ZIP/UNZIP programs (which is
- why ZIP archives are transportable among, UNIX, DOS, and VMS).
+ Set FILE NAMES CONVERTED now also affects pathnames too. When PATHNAMES
+ are RELATIVE or ABSOLUTE and FILE NAMES are CONVERTED, the file sender
+ converts its native directory-name format to UNIX format, and the file
+ receiver converts from UNIX format to its native one; thus UNIX format
+ is the common intermediate representation for directory hierarchies, as
+ it is in the ZIP/UNZIP programs (which is why ZIP archives are
+ transportable among, UNIX, DOS, and VMS).
Here's an example in which a file is sent from Windows to UNIX with
relative pathnames and FILE NAMES CONVERTED:
this approach keeps matters simple: on each platform, Kermit must know
only its own local format and the common intermediate one. In most
cases, the receiver can detect which format is used automatically.
- _________________________________________________________________
- 4.11. Recursive SEND and GET: Transferring Directory Trees
+4.11. Recursive SEND and GET: Transferring Directory Trees
- C-Kermit 7.0 in selected versions (UNIX, VMS, VOS, AOS/VS, Windows,
- and OS/2 at this writing) now permits the SEND command to traverse
- directories "recursively" if you ask it to; that is, to send files
- from the current or specified directory and all of its subdirectories
- too, and their subdirectories, etc. (Some other commands can do this
- too, including DIRECTORY.)
+ C-Kermit 7.0 in selected versions (UNIX, VMS, VOS, AOS/VS, Windows, and
+ OS/2 at this writing) now permits the SEND command to traverse
+ directories "recursively" if you ask it to; that is, to send files from
+ the current or specified directory and all of its subdirectories too,
+ and their subdirectories, etc. (Some other commands can do this too,
+ including DIRECTORY.)
This feature is new to UNIX, Windows, VOS, and OS/2. VMS and AOS/VS
have always included "wildcard" or "template" characters that allow
this, and in this case, recursive directory traversal could happen
behind Kermit's back, i.e. Kermit does not have to do it itself (in
- VMS, the notation is "[...]" or "[directory...]"; in AOS/VS is "#").
- In C-Kermit 7.0, however, SEND /RECURSIVE is supported by C-Kermit
- itself for VMS.
- _________________________________________________________________
+ VMS, the notation is "[...]" or "[directory...]"; in AOS/VS is "#"). In
+ C-Kermit 7.0, however, SEND /RECURSIVE is supported by C-Kermit itself
+ for VMS.
- 4.11.1. Command-Line Options
+4.11.1. Command-Line Options
- To descend a directory tree when sending files, use the -L
- command-line option to indicate that the send operation is to be
- recursive, and include a name or pattern to be sent. When giving a
- pattern, you should enclose it in quotes to prevent the shell from
- expanding it. Examples:
+ To descend a directory tree when sending files, use the -L command-line
+ option to indicate that the send operation is to be recursive, and
+ include a name or pattern to be sent. When giving a pattern, you should
+ enclose it in quotes to prevent the shell from expanding it. Examples:
$ kermit -Ls "/usr/olga/*" # send all of Olga's files in all her directories
$ kermit -Ls foo.txt # send all foo.txt files in this directory tree
replaces an unquoted wildcard expression with the list of matching
files -- and the shell does not build recursive lists. Note that the
"." notation for the tree rooted at the current directory is allowed
- only in UNIX, since in Windows and OS/2, it means "*.*"
- (nonrecursive).
- _________________________________________________________________
+ only in UNIX, since in Windows and OS/2, it means "*.*" (nonrecursive).
- 4.11.2. The SEND /RECURSIVE Command
+4.11.2. The SEND /RECURSIVE Command
If you include the /RECURSIVE switch in a SEND (or MOVE, or similar)
command, it means to descend the current or specified directory tree
searching for files whose names match the given name or pattern. Since
this is not terribly useful unless you also include pathnames with the
outbound files, the /RECURSIVE switch also includes an implicit
- /PATHNAMES:RELATIVE switch (which you can undo by including an
- explicit /PATHNAMES switch after the /RECURSIVE switch).
+ /PATHNAMES:RELATIVE switch (which you can undo by including an explicit
+ /PATHNAMES switch after the /RECURSIVE switch).
Examples:
SEND /RECURSIVE /usr/olga (or /usr/olga/)
Same as above. If the name is a directory name (with or without
a trailing slash), its files are sent, and those of its
- subdirectories, and their subdirectories, etc (see [503]Section
+ subdirectories, and their subdirectories, etc (see [511]Section
4.9).
SEND /RECURSIVE /TEXT /usr/olga/*.txt
SEND /RECURSIVE .
UNIX only: Sends all of the files in the current directory and
- all of its subdirectories, etc ([504]Section 4.9).
+ all of its subdirectories, etc ([512]Section 4.9).
- The /RECURSIVE switch is different from most other switches in that
- its effect is immediate (but still local to the command in which it is
+ The /RECURSIVE switch is different from most other switches in that its
+ effect is immediate (but still local to the command in which it is
given), because it determines how filenames are to be parsed. For
example, "send *.txt" fails with a parse error ("No files match") if
- there are no *.txt files in the current directory, but "send
- /recursive *.txt" succeeds if there are ".txt" files anywhere in the
- tree rooted at the current directory.
+ there are no *.txt files in the current directory, but "send /recursive
+ *.txt" succeeds if there are ".txt" files anywhere in the tree rooted
+ at the current directory.
- The /RECURSIVE switch also affects the file lists displayed if you
- type "?" in a filename field. "send ./?" lists the regular files in
- the current directory, but "send /recursive ./?" lists the entire
- directory tree rooted at the current directory.
- _________________________________________________________________
+ The /RECURSIVE switch also affects the file lists displayed if you type
+ "?" in a filename field. "send ./?" lists the regular files in the
+ current directory, but "send /recursive ./?" lists the entire directory
+ tree rooted at the current directory.
- 4.11.3. The GET /RECURSIVE Command
+4.11.3. The GET /RECURSIVE Command
In a client/server setting, the client can also request a recursive
transfer with:
GET /RECURSIVE [ other switches ] remote-filespec [ local-spec ]
- In which remote file specification can be a directory name, a
- filename, a wildcard, or any combination. If the local-spec is not
- given (and PATHNAMES are RELATIVE), incoming files and directories go
- into the current local directory. If local-spec is given and is a
- directory, it becomes the root of the tree into which the incoming
- files and directories are placed. If local-spec has the syntax of a
- directory name (e.g. in UNIX it ends with /), C-Kermit creates the
- directory and then places the incoming files into it. If local-spec is
- a filename (not recommended), then all incoming files are stored with
- that name with collisions handled according to the FILE COLLISION
- setting.
-
- Again, the normal method for transferring directory trees uses
- relative pathnames, and this is the default when the sender has been
- given the /RECURSIVE switch. The action at the receiver depends on its
- RECEIVE PATHNAMES setting. The default is AUTO, meaning that if the
- sender tells it to expect a recursive transfer, then it should
- automatically switch to relative pathnames for this transfer only;
- otherwise it obeys the RECEIVE PATHNAMES setting of OFF, ABSOLUTE, or
- RELATIVE.
+ In which remote file specification can be a directory name, a filename,
+ a wildcard, or any combination. If the local-spec is not given (and
+ PATHNAMES are RELATIVE), incoming files and directories go into the
+ current local directory. If local-spec is given and is a directory, it
+ becomes the root of the tree into which the incoming files and
+ directories are placed. If local-spec has the syntax of a directory
+ name (e.g. in UNIX it ends with /), C-Kermit creates the directory and
+ then places the incoming files into it. If local-spec is a filename
+ (not recommended), then all incoming files are stored with that name
+ with collisions handled according to the FILE COLLISION setting.
+
+ Again, the normal method for transferring directory trees uses relative
+ pathnames, and this is the default when the sender has been given the
+ /RECURSIVE switch. The action at the receiver depends on its RECEIVE
+ PATHNAMES setting. The default is AUTO, meaning that if the sender
+ tells it to expect a recursive transfer, then it should automatically
+ switch to relative pathnames for this transfer only; otherwise it obeys
+ the RECEIVE PATHNAMES setting of OFF, ABSOLUTE, or RELATIVE.
What happens if a file arrives that has an absolute pathname, when the
receiver has been told to use only relative pathnames? As a security
/usr/olga/oofa.txt
- The receiver creates a "usr" subdirectory in its current directory,
- and then an "olga" subdirectory under the "usr" subdirectory in which
- to store the incoming file.
+ The receiver creates a "usr" subdirectory in its current directory, and
+ then an "olga" subdirectory under the "usr" subdirectory in which to
+ store the incoming file.
Suppose, however there is a sequence of directories:
/usr/olga/a/b/c/d/
in which "a" contains nothing but a subdirectory "b", which in turn
- contains nothing but a subdirectory "c", which in turn contains
- nothing but a subdirectory "d", which contains nothing at all. Thus
- there are no files in the "/usr/olga/a/" tree, and so it is not sent,
- and therefore it is not reproduced on the target computer.
- _________________________________________________________________
+ contains nothing but a subdirectory "c", which in turn contains nothing
+ but a subdirectory "d", which contains nothing at all. Thus there are
+ no files in the "/usr/olga/a/" tree, and so it is not sent, and
+ therefore it is not reproduced on the target computer.
- 4.11.4. New and Changed File Functions
+4.11.4. New and Changed File Functions
C-Kermit 7.0 adds the following functions:
\frfiles(pattern[,&a])
Returns the number of files in the current or given directory
and all of its subdirectories, and their subdirectories, etc,
- that match the given pattern. Warning -- this one can take
- quite some time if performed at the root of a large directory
- tree.
+ that match the given pattern. Warning -- this one can take quite
+ some time if performed at the root of a large directory tree.
\frdirectories(pattern[,&a])
Returns the number of directories in the current or given
directory and all of its subdirectories, and their
subdirectories, etc, that match the given pattern.
- Each of these functions builds up a list of files to be returned by
- the \fnextfile() function, just as \ffiles() always has done. (This
- can also be done with the /ARRAY switch of the DIRECTORY command; see
- [505]Sections 4.5.1 and [506]7.10).
+ Each of these functions builds up a list of files to be returned by the
+ \fnextfile() function, just as \ffiles() always has done. (This can
+ also be done with the /ARRAY switch of the DIRECTORY command; see
+ [513]Sections 4.5.1 and [514]7.10).
Each of these functions can be given an array name as an optional
second argument. If an array name is supplied, the array will contain
- the number of files as its 0th element, and the filenames in elements
- 1 through last. If the array already existed, its previous contents
- are lost. For example, if the current directory contains two files,
+ the number of files as its 0th element, and the filenames in elements 1
+ through last. If the array already existed, its previous contents are
+ lost. For example, if the current directory contains two files,
oofa.txt and foo.bar, then "\ffiles(*,&a)" creates an array \&a[] with
a dimension of 2, containing the following elements:
array.
Note that the order in which the array is filled (and in which
- \fnextfile() returns filenames) is indeterminate (but see [507]Section
+ \fnextfile() returns filenames) is indeterminate (but see [515]Section
7.10.5).
Here's an example that builds and prints a list of all the file whose
}
Alternatively, using the array method, and then printing the filenames
- in alphabetic order (see [508]Section 7.10.3 and [509]7.10.5):
+ in alphabetic order (see [516]Section 7.10.3 and [517]7.10.5):
asg \%n \frfiles(*.txt,&a)
sort &a
sort &a
show array &a
- As noted elsewhere, the file lists built by \ffiles(), \frfiles(),
- etc, are now "safe" in the sense that SEND and other file-related
- commands can reference \fnextfile() without resetting the list:
+ As noted elsewhere, the file lists built by \ffiles(), \frfiles(), etc,
+ are now "safe" in the sense that SEND and other file-related commands
+ can reference \fnextfile() without resetting the list:
set send pathnames relative
for \%i 1 \frfiles(*.txt) 1 {
if fail break
}
- Copying to an array (as shown on p.398 of [510]Using C-Kermit 2nd Ed)
+ Copying to an array (as shown on p.398 of [518]Using C-Kermit 2nd Ed)
is no longer necessary.
- _________________________________________________________________
- 4.11.5. Moving Directory Trees Between Like Systems
+4.11.5. Moving Directory Trees Between Like Systems
- 4.11.5.1. UNIX to UNIX
+4.11.5.1. UNIX to UNIX
Transferring a directory tree from one computer to another replicates
the file sender's arrangement of files and directories on the file
C-Kermit> cd olgas-files ; CD to it.
C-Kermit> receive /recursive ; = /PATHNAMES:RELATIVE
- Each Kermit program recognizes that the other is running under UNIX
- and switches to binary mode and literal filenames automatically.
+ Each Kermit program recognizes that the other is running under UNIX and
+ switches to binary mode and literal filenames automatically.
Directories are automatically created on the receiving system as
needed. File dates and permissions are automatically reproduced from
source to destination.
- 4.11.5.2. VMS to VMS
+4.11.5.2. VMS to VMS
- To send recursively from VMS, simply include the /RECURSIVE switch,
- for example at the sender:
+ To send recursively from VMS, simply include the /RECURSIVE switch, for
+ example at the sender:
$ kermit
C-Kermit> cd [olga]
The notation "..." within directory brackets in VMS means "this
directory and all directories below it"; the /RECURSIVE switch, when
- given to the sender, implies the use of "..." in the file
- specification so you don't have to include "..."; but it makes no
- difference if you do:
+ given to the sender, implies the use of "..." in the file specification
+ so you don't have to include "..."; but it makes no difference if you
+ do:
$ kermit
C-Kermit> send /recursive [olga...]*.*;0
In either case, since both systems recognize each other as VMS, they
switch into LABELED transfer mode automatically.
- _________________________________________________________________
- 4.11.6. Moving Directory Trees Between Unlike Systems
+4.11.6. Moving Directory Trees Between Unlike Systems
There are several difficulties with recursive transfers between unlike
systems:
- * File formats can be different, especially text files character
- sets and record formats. This can now be handled by using SET FILE
+ * File formats can be different, especially text files character sets
+ and record formats. This can now be handled by using SET FILE
PATTERN, SET FILE TEXT-PATTERNS, and SET FILE BINARY-PATTERNS
- ([511]Section 4.3).
+ ([519]Section 4.3).
* File naming conventions are different. For example, one system
- might allow (and use) longer filenames than the other. You can
- tell Kermit how to handle file names with the normal "set file
- names" and "set file collision" mechanisms. Most modern Kermits
- are fairly tolerant of illegal filenames and should not fail
- simply because of an incoming filename; rather, it will do its
- best to convert it to a recognizable and unique legal filename.
+ might allow (and use) longer filenames than the other. You can tell
+ Kermit how to handle file names with the normal "set file names"
+ and "set file collision" mechanisms. Most modern Kermits are fairly
+ tolerant of illegal filenames and should not fail simply because of
+ an incoming filename; rather, it will do its best to convert it to
+ a recognizable and unique legal filename.
* Directory notations can be different, e.g. backslashes instead of
slashes, brackets, parentheses, spaces, etc. But this is now
handled by converting pathnames to a standard format during
- transfer ([512]Section 4.10).
+ transfer ([520]Section 4.10).
So now, for the first time, it is possible to send directory trees
among any combination of UNIX, DOS, Windows, OS/2, VMS, AOS/VS, etc.
* SEND /RECURSIVE also implies /PATHNAMES:RELATIVE.
* The file sender tells the file receiver the transfer mode of each
file.
- * The file sender tells the file receiver the transfer character
- set.
+ * The file sender tells the file receiver the transfer character set.
* By default, destination file dates will be the same as on the
source.
* Many of the settings shown might already be set by default.
- * See [513]Sections 4.3, [514]4.10, and [515]4.15 for additional
+ * See [521]Sections 4.3, [522]4.10, and [523]4.15 for additional
explanation.
If you are refreshing an existing directory on the destination
computer, use "set file collision update" or other appropriate file
collision option to handle filename collisions.
- _________________________________________________________________
- 4.12. Where Did My File Go?
+4.12. Where Did My File Go?
Now that Kermit can be started by clicking on desktop icons (thus
obscuring the concept of "current directory"), and can have a download
the location of the last files transferred, including the pathname
reported by the receiving Kermit, if any, when C-Kermit is the sender.
This information was also added to SHOW FILE in somewhat less detail.
- _________________________________________________________________
- 4.13. File Output Buffer Control
+4.13. File Output Buffer Control
(UNIX only). The new command SET FILE OUTPUT lets you control how
incoming files are written to disk:
SET FILE OUTPUT BUFFERED [ size ]
- Chooses buffered file output; this is the default. UNIX does
- its normal sort of disk buffering. The optional size specifies
+ Chooses buffered file output; this is the default. UNIX does its
+ normal sort of disk buffering. The optional size specifies
Kermit's own file output buffer size, and therefore the
frequency of disk accesses (write() system calls) -- the bigger
the size, the fewer the disk accesses.
SET FILE OUTPUT UNBUFFERED [ size ]
- This forces each file output write() call to actually commit
- the data to disk immediately. Choosing this option will usually
- slow file reception down.
+ This forces each file output write() call to actually commit the
+ data to disk immediately. Choosing this option will usually slow
+ file reception down.
SET FILE OUTPUT BLOCKING
- Write() calls should not return until they are complete. This
- is the normal setting, and it lets Kermit detect disk-write
- errors immediately.
+ Write() calls should not return until they are complete. This is
+ the normal setting, and it lets Kermit detect disk-write errors
+ immediately.
SET FILE OUTPUT NONBLOCKING
Write() calls should return immediately. This can speed up file
reception, but also delay the detection of disk-write errors.
- Experimentation with these parameters should be harmless, and might
- (or might not) have a perceptible, even dramatic, effect on
- performance.
- _________________________________________________________________
+ Experimentation with these parameters should be harmless, and might (or
+ might not) have a perceptible, even dramatic, effect on performance.
- 4.14. Improved Responsiveness
+4.14. Improved Responsiveness
- In version 7.0, C-Kermit's file-transfer protocol engine has been
- tuned for additional speed and responsiveness.
+ In version 7.0, C-Kermit's file-transfer protocol engine has been tuned
+ for additional speed and responsiveness.
* Binary-mode transfers over 8-bit connections, a very common case,
are now handled in a special way that minimizes overhead.
- * SET TRANSFER CRC-CALCULATION is now OFF by default, rather than
- ON. (This affects only the overall per-transfer CRC, \v(crc16),
- not the per-packet CRCs)
- * Connection loss during file transfer is now detected immediately
- in most cases on Internet connections and on serial connections
- when CARRIER-WATCH is not set to OFF.
- _________________________________________________________________
+ * SET TRANSFER CRC-CALCULATION is now OFF by default, rather than ON.
+ (This affects only the overall per-transfer CRC, \v(crc16), not the
+ per-packet CRCs)
+ * Connection loss during file transfer is now detected immediately in
+ most cases on Internet connections and on serial connections when
+ CARRIER-WATCH is not set to OFF.
- 4.15. Doubling and Ignoring Characters for Transparency
+4.15. Doubling and Ignoring Characters for Transparency
- The following commands were added in 7.0, primarily to allow
- successful file transfer through ARPAnet TACs and with Honeywell DPS6
- systems, but can be used in any setting where they might be needed:
+ The following commands were added in 7.0, primarily to allow successful
+ file transfer through ARPAnet TACs and with Honeywell DPS6 systems, but
+ can be used in any setting where they might be needed:
SET SEND DOUBLE-CHAR { [ char [ char [ ... ] ] ], NONE }
Tells C-Kermit to double the specified characters (use decimal
packets. Use this, for example, when something between the
sender and receiver is inserting linefeeds for wrapping, NULs
for padding, etc.
- _________________________________________________________________
- 4.16. New File-Transfer Display Formats
+4.16. New File-Transfer Display Formats
SET TRANSFER DISPLAY { BRIEF, CRT, FULLSCREEN, NONE, SERIAL }
Selects the file-transfer display format.
SEND makefile (text) (186636 bytes): OK (0.444 sec, 420471 cps)
SEND wermit (binary) (1064960 bytes): OK (2.207 sec, 482477 cps)
- Note that transfer times are now obtained in fractional seconds,
- rather than whole seconds, so the CPS figures are more accurate (the
- display shows 3 decimal places, but internally the figure is generally
- precise to the microsecond).
- _________________________________________________________________
+ Note that transfer times are now obtained in fractional seconds, rather
+ than whole seconds, so the CPS figures are more accurate (the display
+ shows 3 decimal places, but internally the figure is generally precise
+ to the microsecond).
- 4.17. New Transaction Log Formats
+4.17. New Transaction Log Formats
The new command:
and FTP are new. This command must be given prior to the LOG
TRANSACTION command if a non-VERBOSE type is desired.
- 4.17.1. The BRIEF Format
+4.17.1. The BRIEF Format
BRIEF chooses a one-line per file format suitable for direct
importation into databases like Informix, Oracle, or Sybase, in which:
20000208,12:09:31,SEND,/u/olga/oofa.exe,32768,binary,OK,"1.243sec 26362cps"
20000208,12:10:02,SEND,"/u/olga/a,b",10130,text,FAILED,"Refused: date"
- Note how the filename is enclosed in doublequotes in the final
- example, because it contains a comma.
+ Note how the filename is enclosed in doublequotes in the final example,
+ because it contains a comma.
To obtain BRIEF format, you must give the SET TRANSACTION-LOG BRIEF
command before the LOG TRANSACTIONS command. (If you give them in the
opposite order, a heading is written to the log by the LOG command.)
- _________________________________________________________________
- 4.17.2. The FTP Format
+4.17.2. The FTP Format
SET TRANSACTION-LOG FTP (available only in UNIX) chooses a format that
is compatible with the WU-FTPD (Washington University FTP daemon) log,
- and so can be processed by any software that processes the WU-FTPD
- log. It logs only transfers in and out, both successful and failed
- (but success or failure is not indicated, due to lack of a field in
- the WU-FTPD log format for this purpose). Non-transfer events are not
+ and so can be processed by any software that processes the WU-FTPD log.
+ It logs only transfers in and out, both successful and failed (but
+ success or failure is not indicated, due to lack of a field in the
+ WU-FTPD log format for this purpose). Non-transfer events are not
recorded.
Unlike other logs, the FTP-format transaction log is opened in append
mode.
Bytes transferred
- The number of bytes transferred, decimal digits, e.g.
- "1537904".
+ The number of bytes transferred, decimal digits, e.g. "1537904".
Filename
The name of the file that was transferred, e.g.
"/pub/ftp/kermit/a/README.TXT". If the filename contains any
- spaces or control characters, each such character is replaced
- by an underscore ('_') character.
+ spaces or control characters, each such character is replaced by
+ an underscore ('_') character.
Mode
The letter 'b' if the file was transferred in binary mode, or
otherwise '0'. Currently, always '0'.
Authenticated user
- If the authentication class is '1', this is the user's ID on
- the client system. Otherwise it is an asterisk ('*'). Currently
- it is always an asterisk.
+ If the authentication class is '1', this is the user's ID on the
+ client system. Otherwise it is an asterisk ('*'). Currently it
+ is always an asterisk.
Examples:
LOG TRANSACTIONS filespec APPEND
Conceivably it could be possible to have a system-wide shared Kermit
- log, except that UNIX lacks any notion of an append-only file; thus
- any user who could append to the log could also delete it (or alter
- it). This problem could be worked around using setuid/setgid tricks,
- but these would most likely interfere with the other setuid/setgid
- tricks C-Kermit must use for getting at dialout devices and UUCP
- logfiles.
- _________________________________________________________________
+ log, except that UNIX lacks any notion of an append-only file; thus any
+ user who could append to the log could also delete it (or alter it).
+ This problem could be worked around using setuid/setgid tricks, but
+ these would most likely interfere with the other setuid/setgid tricks
+ C-Kermit must use for getting at dialout devices and UUCP logfiles.
- 4.18. Unprefixing NUL
+4.18. Unprefixing NUL
As of 6.1.193 Alpha.10, C-Kermit can finally send and receive
file-transfer packets in which NUL (ASCII 0) is unprefixed (no more
Transfer rates go up accordingly, not only because of the reduced
amount of i/o, but also because less computation is required on each
end.
- _________________________________________________________________
- 4.19. Clear-Channel Protocol
+4.19. Clear-Channel Protocol
Now that C-Kermit itself is capable of sending and receiving any byte
- at all on a clear channel ([516]Section 4.18), it is, for the first
- time, in a position to negotiate a clear channel with the other
- Kermit, giving it permission (but not requiring it) to unprefix any
- and all characters that it knows are safe. In general this means all
- but the Kermit start-of-packet character (normally Ctrl-A), Carriage
- Return (not only Kermit's end-of-packet character, but also treated
- specially on Telnet NVT links), and IAC (255, also special to Telnet).
+ at all on a clear channel ([524]Section 4.18), it is, for the first
+ time, in a position to negotiate a clear channel with the other Kermit,
+ giving it permission (but not requiring it) to unprefix any and all
+ characters that it knows are safe. In general this means all but the
+ Kermit start-of-packet character (normally Ctrl-A), Carriage Return
+ (not only Kermit's end-of-packet character, but also treated specially
+ on Telnet NVT links), and IAC (255, also special to Telnet).
By default, C-Kermit will say it has a clear channel only if it has
opened a TCP socket. Since the Kermit program on the far end of a
AUTO is the default, meaning that the clear-channel status is
determined automatically from the type of connection. ON means to
announce a clear channel, OFF means not to announce it. Use SHOW
- STREAMING ([517]Section 4.20) to see the current CLEAR-CHANNEL status.
+ STREAMING ([525]Section 4.20) to see the current CLEAR-CHANNEL status.
Synonym: SET CLEARCHANNEL.
- CLEAR-CHANNEL is also set if you start C-Kermit with the -I switch
- (see [518]Section 4.20).
+ CLEAR-CHANNEL is also set if you start C-Kermit with the -I switch (see
+ [526]Section 4.20).
- Whenever a clear channel is negotiated, the resulting
- control-character unprefixing is "sticky"; that is, it remains in
- effect after the transfer so you can use SHOW CONTROL to see what was
- negotiated.
+ Whenever a clear channel is negotiated, the resulting control-character
+ unprefixing is "sticky"; that is, it remains in effect after the
+ transfer so you can use SHOW CONTROL to see what was negotiated.
You can also see whether a clear channel was negotiated in the
STATISTICS /VERBOSE Display.
transfers go faster automatically. The disadvantage would be
file-transfer failures if the channel is not truly clear, for example
if C-Kermit made a Telnet connection to a terminal server, and then
- dialed out from there; or if C-Kermit made an Rlogin connection to
- host and then made a Telnet connection from there to another host. If
- a file transfer fails on a TCP/IP connection, use SHOW CONTROL to
- check whether control characters became unprefixed as a result of
- protocol negotiations, and/or SHOW STREAMING ([519]Section 4.20) to
- see if "clear-channel" was negotiated. If this happened, use SET
- CLEAR-CHANNEL OFF and SET PREFIXING CAUTIOUS (or whatever) to prevent
- it from happening again.
- _________________________________________________________________
-
- 4.20. Streaming Protocol
+ dialed out from there; or if C-Kermit made an Rlogin connection to host
+ and then made a Telnet connection from there to another host. If a file
+ transfer fails on a TCP/IP connection, use SHOW CONTROL to check
+ whether control characters became unprefixed as a result of protocol
+ negotiations, and/or SHOW STREAMING ([527]Section 4.20) to see if
+ "clear-channel" was negotiated. If this happened, use SET CLEAR-CHANNEL
+ OFF and SET PREFIXING CAUTIOUS (or whatever) to prevent it from
+ happening again.
+
+4.20. Streaming Protocol
A new Kermit protocol option called "streaming" was added in C-Kermit
7.0. The idea is that if the two Kermit partners have a reliable
more efficiently (e.g. by defeating the Nagle algorithm and/or Delayed
ACK stratagem of the TCP layer). Furthermore, it allows transfers to
work smoothly on extremely slow network congestions that would
- otherwise cause timeouts and retransmissions, and even failure when
- the retry limit was exceeded.
+ otherwise cause timeouts and retransmissions, and even failure when the
+ retry limit was exceeded.
The trick is knowing when we can stream:
2. If C-Kermit has been started with the -I (uppercase) option, or if
it has been told to SET RELIABLE ON, it offers to stream.
3. If C-Kermit is in remote mode, and has been told to SET RELIABLE
- AUTO (or ON), it always offers to stream, and also always agrees
- to stream, if the other Kermit offers. Unless you take explicit
- actions to override the defaults, this allows the local Kermit
- (the one that made the connection, and so knows whether it's
- reliable) to control streaming.
+ AUTO (or ON), it always offers to stream, and also always agrees to
+ stream, if the other Kermit offers. Unless you take explicit
+ actions to override the defaults, this allows the local Kermit (the
+ one that made the connection, and so knows whether it's reliable)
+ to control streaming.
(Note that an offer to stream also results in a Clear-Channel
- announcement if CLEAR-CHANNEL is set to AUTO; see [520]Section 4.19.)
+ announcement if CLEAR-CHANNEL is set to AUTO; see [528]Section 4.19.)
When BOTH Kermits offer to stream, then they stream; otherwise they
don't. Thus streaming-capable Kermit programs interoperate
also find out afterwards with the STATISTICS or SHOW STREAMING
commands.
- WARNING: Automatic choice of streaming is based on the assumption
- of a "direct" end-to-end network connection; for example, a Telnet
- or Rlogin connection from host A to host B, and transferring files
+ WARNING: Automatic choice of streaming is based on the assumption of
+ a "direct" end-to-end network connection; for example, a Telnet or
+ Rlogin connection from host A to host B, and transferring files
between A and B. However, if your connection has additional
components -- something "in the middle" (B) that you have made a
network connection to, which makes a separate connection to the
destination host (C), then you don't really have a reliable
connection, but C-Kermit has no way of knowing this; transferring
- files between A and C will probably fail. In such cases, you'll
- need to tell the *local* C-Kermit to "set reliable off" before
+ files between A and C will probably fail. In such cases, you'll need
+ to tell the *local* C-Kermit to "set reliable off" before
transferring files (it does no good to give this command to the
remote Kermit since the local one controls the RELIABLE setting).
Streaming is like using an infinite window size, with no timeouts and
- no tolerance for transmission errors (since there shouldn't be any).
- It relies on the underlying transport for flow control, error
- correction, timeouts, and retransmission. Thus it is very suitable for
- use on TCP/IP connections, especially slow or bursty ones, since
- Kermit's packet timeouts won't interfere with the transfer -- each
- packet takes as long to reach its destination as it takes TCP to
- deliver it. If TCP can't deliver the packet within its own timeout
- period (over which Kermit has no control), it signals a fatal error.
- Just like FTP.
+ no tolerance for transmission errors (since there shouldn't be any). It
+ relies on the underlying transport for flow control, error correction,
+ timeouts, and retransmission. Thus it is very suitable for use on
+ TCP/IP connections, especially slow or bursty ones, since Kermit's
+ packet timeouts won't interfere with the transfer -- each packet takes
+ as long to reach its destination as it takes TCP to deliver it. If TCP
+ can't deliver the packet within its own timeout period (over which
+ Kermit has no control), it signals a fatal error. Just like FTP.
Streaming goes much faster than non-streaming when a relatively small
packet length is used, and it tends to go faster than non-streaming
with even the longest packet lengths. The Kermit window size is
- irrelevant to streaming protocol, but still might affect performance
- in small ways since it can result in different paths through the code.
+ irrelevant to streaming protocol, but still might affect performance in
+ small ways since it can result in different paths through the code.
The definition of "reliable transport" does not necessarily demand
8-bit and control-character transparency. Streaming can work with
Maximum performance -- comparable to and often exceeding FTP -- is
achieved on socket-to-socket connections (in which the considerable
overhead of the terminal driver and Telnet or Rlogin server is
- eliminated) with long packets and the new "brief" file-transfer
- display ([521]Section 4.16).
- _________________________________________________________________
+ eliminated) with long packets and the new "brief" file-transfer display
+ ([529]Section 4.16).
- 4.20.1. Commands for Streaming
+4.20.1. Commands for Streaming
SET RELIABLE { ON, OFF, AUTO }
SET RELIABLE ON tells Kermit that it has a reliable transport.
SET RELIABLE OFF tells Kermit the transport is not reliable.
SET RELIABLE AUTO tells Kermit that it should SET RELIABLE ON
- whenever it makes a reliable connection (e.g. TELNET or SET
- HOST on a TCP/IP or X.25 network), and when in remote mode it
- should believe the transport is reliable if the other Kermit
- says it is during Kermit protocol negotiation.
+ whenever it makes a reliable connection (e.g. TELNET or SET HOST
+ on a TCP/IP or X.25 network), and when in remote mode it should
+ believe the transport is reliable if the other Kermit says it is
+ during Kermit protocol negotiation.
- AUTO is the default; the Kermit program that makes the connection
- knows whether it is reliable, and tells the remote Kermit.
+ AUTO is the default; the Kermit program that makes the connection knows
+ whether it is reliable, and tells the remote Kermit.
The RELIABLE setting has several effects, including:
TCP/IP connection or if RELIABLE is ON (or it was started with the -I
command line option). OFF means don't stream; ON means offer to stream
no matter what.
- _________________________________________________________________
- 4.20.2. Examples of Streaming
+4.20.2. Examples of Streaming
Here we look at the use and behavior of streaming on several different
kinds of connections, and compare its performance with non-streaming
transfers.
- 4.20.2.1. Streaming on Socket-to-Socket Connections
+4.20.2.1. Streaming on Socket-to-Socket Connections
Here we get streaming automatically when both Kermit programs are
- capable of it, since they both make socket connections. For example,
- on the far end:
+ capable of it, since they both make socket connections. For example, on
+ the far end:
C-Kermit> set host * 3000
C-Kermit> server
CPS and window size: 0.164
CPS and packet length: 0.123
CPS and streaming: 0.346
- _________________________________________________________________
- 4.20.2.2. Streaming on Telnet Connections
+4.20.2.2. Streaming on Telnet Connections
In this case the local copy of Kermit is told to TELNET or SET HOST,
and so it knows it has a reliable connection and -- unless it has been
Since we have a reliable connection, we'll also get control-character
unprefixing automatically because of the new clear-channel protocol
- ([522]Section 4.19).
+ ([530]Section 4.19).
Any errors that occur during streaming are fatal to the transfer. The
message is "Transmission error on reliable link". Should this happen:
1. Check the remote Kermit's flow control setting (SHOW
COMMUNICATIONS). If it is NONE, change it to XON/XOFF, or vice
versa. If it is XON/XOFF (or you just changed it to XOFF/XOFF),
- make sure the file sender is prefixing the XON and XOFF
- characters. In the most drastic case, use "set prefix all" to
- force prefixing of all control characters.
+ make sure the file sender is prefixing the XON and XOFF characters.
+ In the most drastic case, use "set prefix all" to force prefixing
+ of all control characters.
2. The remote Telnet server might chop off the 8th bit. In that case,
- tell C-Kermit to "set parity space". Or, you might be able to
- force the Telnet to allow eight-bit data by telling C-Kermit to
- "set telopt binary request accept" -- that is, request the Telnet
- server to enter binary mode, and accept binary-mode bids from the
- server.
+ tell C-Kermit to "set parity space". Or, you might be able to force
+ the Telnet to allow eight-bit data by telling C-Kermit to "set
+ telopt binary request accept" -- that is, request the Telnet server
+ to enter binary mode, and accept binary-mode bids from the server.
3. The remote Telnet server might have a buffering limitation. If a
and b don't cure the problem, tell the file receiver to "set
- receive packet-length 1000" (or other number -- use the largest
- one that works). This too, is no different from the non-streaming
- case (more about this in [523]Section 4.20.2.3).
+ receive packet-length 1000" (or other number -- use the largest one
+ that works). This too, is no different from the non-streaming case
+ (more about this in [531]Section 4.20.2.3).
And remember you can continue interrupted binary-mode transfers where
they left off with the RESEND (= SEND /RECOVER) command.
CPS and packet length: 0.152
CPS and streaming: 0.128
- Here the effect is not as emphatic as in the socket-to-socket case,
- yet on the whole streaming tends to be beneficial.
+ Here the effect is not as emphatic as in the socket-to-socket case, yet
+ on the whole streaming tends to be beneficial.
Additional measurements on HP-UX using C-Kermit 7.0 Beta.06:
HP-UX 8->10 36Kcps 66Kcps
HP-UX 9->9 not tested 190Kcps
HP-UX 9->10 160Kcps 378Kcps
- _________________________________________________________________
- 4.20.2.3. Streaming with Limited Packet Length
+4.20.2.3. Streaming with Limited Packet Length
- The IRIX telnet server (at least the ones observed in IRIX 5.3 and
- 6.2) does not allow Kermit to send packets longer than 4096 bytes.
- Thus when sending from IRIX C-Kermit when it is on the remote end of a
- Telnet connection, the packet length must be 4K or less. Trials in
- this case (in which packet lengths range from 1450 to 4000) show a
- strong advantage for streaming, which would be evident in any other
- case where the packet length is restricted, and stronger the shorter
- the maximum packet length.
+ The IRIX telnet server (at least the ones observed in IRIX 5.3 and 6.2)
+ does not allow Kermit to send packets longer than 4096 bytes. Thus when
+ sending from IRIX C-Kermit when it is on the remote end of a Telnet
+ connection, the packet length must be 4K or less. Trials in this case
+ (in which packet lengths range from 1450 to 4000) show a strong
+ advantage for streaming, which would be evident in any other case where
+ the packet length is restricted, and stronger the shorter the maximum
+ packet length.
Streaming Nonstreaming
Max CPS 426187 366870
CPS and window size: 0.116
CPS and packet length: 0.241
CPS and streaming: 0.901
- _________________________________________________________________
- 4.20.2.4. Streaming on Dialup Connections
+4.20.2.4. Streaming on Dialup Connections
- Here "dialup" refers to a "direct" dialup connection, not a SLIP or
- PPP connection, which is only a particular kind of TCP/IP connection.
+ Here "dialup" refers to a "direct" dialup connection, not a SLIP or PPP
+ connection, which is only a particular kind of TCP/IP connection.
Attempt this at your own risk, and then only if (a) you have
- error-correcting modems, and (b) the connections between the modems
- and computers are also error-free, perfectly flow-controlled, and free
- of interrupt conflicts. Streaming can be used effectively and to
- fairly good advantage on such connections, but remember that the
- transfer is fatal if even one error is detected (also remember that
- should a binary-mode transfer fail, it can be recovered from the point
- of failure with RESEND).
+ error-correcting modems, and (b) the connections between the modems and
+ computers are also error-free, perfectly flow-controlled, and free of
+ interrupt conflicts. Streaming can be used effectively and to fairly
+ good advantage on such connections, but remember that the transfer is
+ fatal if even one error is detected (also remember that should a
+ binary-mode transfer fail, it can be recovered from the point of
+ failure with RESEND).
To use streaming on an unreliable connection, you must tell both
Kermits that the connection is reliable:
C-Kermit> set reliable on
In this case, it will probably be necessary to prefix some control
- characters, for example if your connection is through a terminal
- server that has an escape character. Most Cisco terminal servers, for
- example, require Ctrl-^ (30, as well as its high-bit equivalent, 158)
- to be prefixed. To unprefix these, you'll need to defeat the "clear
- channel" feature:
+ characters, for example if your connection is through a terminal server
+ that has an escape character. Most Cisco terminal servers, for example,
+ require Ctrl-^ (30, as well as its high-bit equivalent, 158) to be
+ prefixed. To unprefix these, you'll need to defeat the "clear channel"
+ feature:
C-Kermit> set reliable on
C-Kermit> set clear-channel off
C-Kermit> set prefixing none
C-Kermit> set control prefix 1 13 30 158 ; and whatever else is necessary
- Dialup trials were done using fixed large window and packet sizes.
- They compare uploading and downloading of two common types of files,
- with and without streaming. Configuration:
+ Dialup trials were done using fixed large window and packet sizes. They
+ compare uploading and downloading of two common types of files, with
+ and without streaming. Configuration:
HP-9000/715/33 -- 57600bps, RTS/CTS -- USR Courier V.34 --
V.34+V.42, 31200bps -- USR V.34+ Rackmount -- 57600bps, RTS/CTS --
Size = 30, Control Character Unprefixing Minimal (but including the
Cisco escape character).
- Since this is not a truly reliable connection, a few trials failed
- when a bad packet was received (most likely due to UART overruns); the
+ Since this is not a truly reliable connection, a few trials failed when
+ a bad packet was received (most likely due to UART overruns); the
failure was graceful and immediate, and the message was informative.
The results of ten successful trials uploading and downloading the two
files with and without streaming are:
the VAX at 1100cps without streaming and 1900cps with streaming, using
8000-byte packets, 30 window slots, and minimal prefixing in both
cases.
- _________________________________________________________________
- 4.20.2.5. Streaming on X.25 Connections
+4.20.2.5. Streaming on X.25 Connections
We have only limited access to X.25 networks. One trial was performed
in which the 1MB Solaris 2.4 Sparc executable was transferred over a
file transferred at 6400 cps (using a maximum of 6 window slots). With
the same packet length, but with streaming, it transferred without
mishap at 6710 cps, about 5% faster.
- _________________________________________________________________
- 4.20.3. Streaming - Preliminary Conclusions
+4.20.3. Streaming - Preliminary Conclusions
The results vary with the particular connection, but are good overall.
- Although numerous lower-level tricks can be used to improve
- performance on specific platforms or connection methods, streaming
- occurs at a high, system-independent level of the Kermit protocol and
- therefore can apply to all types of platforms and (reliable)
- connections transparently.
- _________________________________________________________________
+ Although numerous lower-level tricks can be used to improve performance
+ on specific platforms or connection methods, streaming occurs at a
+ high, system-independent level of the Kermit protocol and therefore can
+ apply to all types of platforms and (reliable) connections
+ transparently.
- 4.21. The TRANSMIT Command
+4.21. The TRANSMIT Command
Prior to C-Kermit 7.0, the TRANSMIT command transmitted in text or
binary mode according to SET FILE TYPE { TEXT, BINARY }. But now that
Therefore, TRANSMIT defaults to text mode always, regardless of the
FILE TYPE setting.
- C-Kermit 7.0 expands the capabilities of the TRANSMIT command by
- adding the following switches (see [524]Section 1.5). The new syntax
- is:
+ C-Kermit 7.0 expands the capabilities of the TRANSMIT command by adding
+ the following switches (see [532]Section 1.5). The new syntax is:
TRANSMIT [ switches... ] filename
/TEXT
Transmits the file (or pipe output) in line-oriented text mode.
- Current FILE CHARACTER-SET and TERMINAL CHARACTER-SET
- selections govern translation. Default.
+ Current FILE CHARACTER-SET and TERMINAL CHARACTER-SET selections
+ govern translation. Default.
/TRANSPARENT
- Specifies text mode without character-set translation, no
- matter what the FILE and TERMINAL CHARACTER-SET selections are.
+ Specifies text mode without character-set translation, no matter
+ what the FILE and TERMINAL CHARACTER-SET selections are.
/NOWAIT
This is equivalent to SET TRANSMIT PROMPT 0, but for this
waits for a linefeed.)
When TRANSMIT ECHO is ON, C-Kermit tries to read back the echo of each
- character that is sent. Prior to C-Kermit 7.0, 1 second was allowed
- for each echo to appear; if it didn't show up in a second, the
- TRANSMIT command would fail. Similarly for the TRANSMIT PROMPT
- character. However, with today's congested Internet connections, etc,
- more time is often needed:
+ character that is sent. Prior to C-Kermit 7.0, 1 second was allowed for
+ each echo to appear; if it didn't show up in a second, the TRANSMIT
+ command would fail. Similarly for the TRANSMIT PROMPT character.
+ However, with today's congested Internet connections, etc, more time is
+ often needed:
SET TRANSMIT TIMEOUT number
+
Specifies the number of seconds to wait for an echo or the prompt
character when TRANSMIT PROMPT is nonzero; the default wait is 1
second. If you specify 0, the wait is indefinite. When a timeout
more than usual for the TRANSMIT command!) on a clean connection with
effective flow control.
- For details on TRANSMIT and character sets, see [525]Section 6.6.5.4.
- _________________________________________________________________
+ For details on TRANSMIT and character sets, see [533]Section 6.6.5.4.
4.22. Coping with Faulty Kermit Implementations
Kermit protocol has been implemented in quite a few third-party
commercial, shareware, and freeware software packages, with varying
- degrees of success. In most cases operation is satisfactory but slow
- -- only the bare minimum subset of the protocol is available -- short
+ degrees of success. In most cases operation is satisfactory but slow --
+ only the bare minimum subset of the protocol is available -- short
packets, no sliding windows, no attributes, etc. In other cases, the
implementation is incorrect, resulting in failures at the initial
negotiation stage or corrupted files.
C-Kermit 7.0 and Kermit 95 1.1.19 include some new defense mechanisms
to help cope with the most common situations. However, bear in mind
- there is only so much we can do in such cases -- the responsibility
- for fixing the problem lies with the maker of the faulty software.
- _________________________________________________________________
+ there is only so much we can do in such cases -- the responsibility for
+ fixing the problem lies with the maker of the faulty software.
4.22.1. Failure to Accept Modern Negotiation Strings
be added to the parameter negotiation string. These are to be ignored
by any Kermit implementation that does not understand them; this is
what makes the Kermit protocol extensible. Unfortunately, some Kermit
- implementations become confused (or worse) when receiving a
- negotiation string longer than the one they expect. You can try
- working around such problems by telling Kermit to shorten its
- negotiation string (and thus disable the corresponding new features):
+ implementations become confused (or worse) when receiving a negotiation
+ string longer than the one they expect. You can try working around such
+ problems by telling Kermit to shorten its negotiation string (and thus
+ disable the corresponding new features):
SET SEND NEGOTIATION-STRING-MAX-LENGTH number
Try a number like 10. If that doesn't work, try 9, 8, 7, 6, and so on.
- _________________________________________________________________
4.22.2. Failure to Negotiate 8th-bit Prefixing
The published Kermit protocol specification states that 8th-bit
- prefixing (which allows transfer of 8-bit data over a 7-bit
- connection) occurs if the file sender puts a valid prefix character
- (normally "&") in the 8th-bit-prefix field of the negotiation string,
- and the receiver puts either a letter "Y" or the same prefix
- character. At least one faulty Kermit implementation exists that does
- not accept the letter "Y". To force C-Kermit / K-95 to reply with the
- other Kermit's prefix character rather than a "Y", give the following
- (invisible) command:
+ prefixing (which allows transfer of 8-bit data over a 7-bit connection)
+ occurs if the file sender puts a valid prefix character (normally "&")
+ in the 8th-bit-prefix field of the negotiation string, and the receiver
+ puts either a letter "Y" or the same prefix character. At least one
+ faulty Kermit implementation exists that does not accept the letter
+ "Y". To force C-Kermit / K-95 to reply with the other Kermit's prefix
+ character rather than a "Y", give the following (invisible) command:
SET Q8FLAG ON
Use SET Q8FLAG OFF to restore the normal behavior.
- _________________________________________________________________
4.22.3. Corrupt Files
- Refer to [526]Section 4.22.2. Some Kermit implementations mistakenly
+ Refer to [534]Section 4.22.2. Some Kermit implementations mistakenly
interpret the "Y" as a prefix character. Then, whenever a letter Y
appears in the data, the Y and the character that follows it are
replaced by a garbage character. At this writing, we are not sure if
C-Kermit 7.0 and K-95. Some Kermit implementations do not handle
incoming "bare" control characters. To work around, "set prefixing
all".
- _________________________________________________________________
4.22.4. Spurious Cancellations
packet contains X in its data field, the transfer of the current file
is canceled, and if it contains a Z, the entire transfer is canceled.
At least one overzealous Kermit implementation applies this rule to
- non-Data packets as well, the typical symptom being that any attempt
- to transfer a file whose name begins with X or Z results in
- cancellation. This is because the file receiver typically sends back
- the name under which it stored the file (which might not be the same
- as the name it was sent with) in the ACK to the File Header packet.
- This is information only and should not cause cancellation. To work
- around the problem, use:
+ non-Data packets as well, the typical symptom being that any attempt to
+ transfer a file whose name begins with X or Z results in cancellation.
+ This is because the file receiver typically sends back the name under
+ which it stored the file (which might not be the same as the name it
+ was sent with) in the ACK to the File Header packet. This is
+ information only and should not cause cancellation. To work around the
+ problem, use:
SET F-ACK-BUG { ON, OFF }
Normally it is ON (regardless of the SET SEND PATHNAMES setting). Use
SET F-ACK-PATH OFF to instruct Kermit to send back only the filename
without the path in the ACK to the F packet.
- _________________________________________________________________
4.22.5. Spurious Refusals
Some Kermit implementations, notably PDP-11 Kermit 3.60 and earlier,
have bugs in their handling of Attribute packets that can cause
- unwarranted refusal of incoming files, e.g. based on date or size.
- This can be worked around by telling one or both of the Kermit
- partners to:
+ unwarranted refusal of incoming files, e.g. based on date or size. This
+ can be worked around by telling one or both of the Kermit partners to:
SET ATTRIBUTES OFF
- _________________________________________________________________
4.22.6. Failures during the Data Transfer Phase
- This can be caused by control-character unprefixing ([527]Section
+ This can be caused by control-character unprefixing ([535]Section
4.22.3 ), and fixed by:
SET PREFIXING ALL
It can also have numerous other causes, explained in Chapter 10 of
- [528]Using C-Kermit: the connection is not 8-bit transparent (so use
+ [536]Using C-Kermit: the connection is not 8-bit transparent (so use
"set parity space" or somesuch), inadequate flow control, etc. Consult
the manual.
- _________________________________________________________________
4.22.7. Fractured Filenames
- At least one well-known PC-based communications package negotiates
- data compression, which (according to the protocol specification)
- applies to both the filename and the file data, but then fails to
- decompress the filename. Example: C-Kermit sends a file called
- R000101.DAT (where 000101 might be non-Y2K-wise YYMMDD notation), and
- the package in question stores the files as R~#0101.DAT. Workaround:
- Tell C-Kermit to SET REPEAT COUNTS OFF.
- _________________________________________________________________
+ At least one well-known PC-based communications package negotiates data
+ compression, which (according to the protocol specification) applies to
+ both the filename and the file data, but then fails to decompress the
+ filename. Example: C-Kermit sends a file called R000101.DAT (where
+ 000101 might be non-Y2K-wise YYMMDD notation), and the package in
+ question stores the files as R~#0101.DAT. Workaround: Tell C-Kermit to
+ SET REPEAT COUNTS OFF.
4.22.8. Bad File Dates
Workaround: tell C-Kermit to SET ATTRIBUTE DATE OFF. You don't get the
file's real date, but you also don't get 1 Feb 1970; instead the file
gets the current date and time.
- _________________________________________________________________
4.23. File Transfer Recovery
greater) so the recovery operation proceeds, just as you asked and
expected.
- BUT... Just as before, the results are correct only under the
- following conditions:
+ BUT... Just as before, the results are correct only under the following
+ conditions:
* If the prior interrupted transfer was also in binary mode; or:
- * If the prior transfer was in text mode and the other computer was
- a "like platform" (e.g. UNIX-to-UNIX, Windows-to-Windows,
+ * If the prior transfer was in text mode and the other computer was a
+ "like platform" (e.g. UNIX-to-UNIX, Windows-to-Windows,
DOS-to-Windows) AND there was no character-set translation (i.e.
TRANSFER CHARACTER-SET was TRANSPARENT).
* Transfer the whole file again in text mode, or:
* Use SEND /STARTING-AT: to recover the transfer at the correct
- point; but you have to find out what that point is, as described
- in the manual.
+ point; but you have to find out what that point is, as described in
+ the manual.
Kermit has no way of knowing whether the previous transfer was in text
or binary mode so it is your responsibility to choose the appropriate
connection slow enough) to require SEND /RECOVER to resume interrupted
transfers, you should remember that SEND /RECOVER (RESEND) overrides
all FILE COLLISION settings. Therefore you should use SEND /RECOVER
- (RESEND) only on the file that was interrupted, not the file group.
- For example, if the original transfer was initiated with:
+ (RESEND) only on the file that was interrupted, not the file group. For
+ example, if the original transfer was initiated with:
SEND *
(In C-Kermit 7.0 and later, \v(filename) contains the name of the file
most recently transferred, as long you have not EXITed from Kermit or
changed directory, etc.
- _________________________________________________________________
4.24. FILE COLLISION UPDATE Clarification
creation date is used. These two policies reflect the preferences of
the two user communities.
- Also, remember that the file date/time given in the attribute packet
- is the local time at the file sender. At present, no timezone
- conversions are defined in or performed by the Kermit protocol. This
- is primarily because this feature was designed at a time when many of
- the systems where Kermit runs had no concept of timezone, and
- therefore would be unable to convert (say, to/from GMT or UTC or Zulu
- time).
+ Also, remember that the file date/time given in the attribute packet is
+ the local time at the file sender. At present, no timezone conversions
+ are defined in or performed by the Kermit protocol. This is primarily
+ because this feature was designed at a time when many of the systems
+ where Kermit runs had no concept of timezone, and therefore would be
+ unable to convert (say, to/from GMT or UTC or Zulu time).
- As a consequence, some unexpected results might occur when
- transferring files across timezones; e.g. commands on the target
- system that are sensitive to file dates might work (UNIX "make",
- backups, etc).
+ As a consequence, some unexpected results might occur when transferring
+ files across timezones; e.g. commands on the target system that are
+ sensitive to file dates might not work (UNIX "make", backups, etc).
Timezone handling is deferred for a future release.
- _________________________________________________________________
4.25. Autodownload Improvements
- Refer to pages 164-165 of [529]Using C-Kermit about the hazards of
+ Refer to pages 164-165 of [537]Using C-Kermit about the hazards of
autodownload when C-Kermit is "in the middle". As of C-Kermit 7.0, no
- more hazards. If C-Kermit has TERMINAL AUTODOWNLOAD ON and it detects
- a packet of the current protocol type (Kermit or Zmodem), it "erases"
- the visual aspect of the packet that would be seen by the terminal
- (or, more to the point, the emulator, such as K95). This way, only
- C-Kermit goes into RECEIVE mode, and not also the terminal emulator
- through which C-Kermit is accessed. And therefore, it is no longer
- necessary to SET TERMINAL AUTODOWNLOAD OFF to prevent multiple Kermits
- from going into receive mode at once, but of course it is still
- necessary to ensure that, when you have multiple Kermits in a chain,
- that the desired one receives the autodownload.
-
- The defaults have not been changed; Kermit 95 still has autodownload
- ON by default, and C-Kermit has it OFF by default.
- _________________________________________________________________
+ more hazards. If C-Kermit has TERMINAL AUTODOWNLOAD ON and it detects a
+ packet of the current protocol type (Kermit or Zmodem), it "erases" the
+ visual aspect of the packet that would be seen by the terminal (or,
+ more to the point, the emulator, such as K95). This way, only C-Kermit
+ goes into RECEIVE mode, and not also the terminal emulator through
+ which C-Kermit is accessed. And therefore, it is no longer necessary to
+ SET TERMINAL AUTODOWNLOAD OFF to prevent multiple Kermits from going
+ into receive mode at once, but of course it is still necessary to
+ ensure that, when you have multiple Kermits in a chain, that the
+ desired one receives the autodownload.
+
+ The defaults have not been changed; Kermit 95 still has autodownload ON
+ by default, and C-Kermit has it OFF by default.
5. CLIENT/SERVER
does not include the server's current directory, clients can become
quite confused. For example, "remote dir oofa.txt" shows a file named
oofa.txt, but "get oofa.txt" fails. In this situation, you should
- either DISABLE DIR or make your GET-PATH include the current
- directory.
- _________________________________________________________________
+ either DISABLE DIR or make your GET-PATH include the current directory.
5.1. New Command-Line Options
is sent to standard output rather than written to disk.
The -I option ("Internet") is used to tell a remote C-Kermit program
- that you are coming in via Internet Telnet or Rlogin and therefore
- have a reliable connection. The -I option is equivalent to SET
- RELIABLE ON and SET FLOW NONE.
+ that you are coming in via Internet Telnet or Rlogin and therefore have
+ a reliable connection. The -I option is equivalent to SET RELIABLE ON
+ and SET FLOW NONE.
- The -O option ("Only One") tells C-Kermit to enter server mode but
- then exit after the first client operation.
+ The -O option ("Only One") tells C-Kermit to enter server mode but then
+ exit after the first client operation.
- See [530]Section 9.3 for details.
- _________________________________________________________________
+ See [538]Section 9.3 for details.
5.2. New Client Commands
REMOTE MKDIR directory-name
Tells the client to ask the server to create a directory with
- the given name, which can be absolute or relative. The syntax
- of the directory name depends on the Kermit server (see
- [531]next section); in all cases, it can be in the syntax of
- the system where the server is running (UNIX, VMS, DOS, etc)
- but newer servers also accept UNIX syntax, no matter what the
- underlying platform. The server will not execute this command
- if (a) it does not understand it, (b) a DISABLE MKDIR command
- has been given, or (c) a DISABLE CWD command has been given;
- otherwise, the command is executed, but will fail if the
- directory can not be created, in which cases most servers will
- attempt to return a message giving the reason for failure. The
- REMOTE MKDIR command succeeds if the remote directory is
- created, or if it already exists and therefore does not need to
- be created, and fails otherwise.
+ the given name, which can be absolute or relative. The syntax of
+ the directory name depends on the Kermit server (see [539]next
+ section); in all cases, it can be in the syntax of the system
+ where the server is running (UNIX, VMS, DOS, etc) but newer
+ servers also accept UNIX syntax, no matter what the underlying
+ platform. The server will not execute this command if (a) it
+ does not understand it, (b) a DISABLE MKDIR command has been
+ given, or (c) a DISABLE CWD command has been given; otherwise,
+ the command is executed, but will fail if the directory can not
+ be created, in which cases most servers will attempt to return a
+ message giving the reason for failure. The REMOTE MKDIR command
+ succeeds if the remote directory is created, or if it already
+ exists and therefore does not need to be created, and fails
+ otherwise.
REMOTE RMDIR directory-name
Tells the client to ask the server to remove (delete) a
REMOTE SET TRANSFER MODE { AUTOMATIC, MANUAL }
Tells the client to ask the server to set the given
- file-transfer mode. Automatic means (roughly): if the client
- and the server are running on the same kind of computer (e.g.
- both are on UNIX), then use binary mode automatically; if the
- system types are different, use some other method to
- automatically determine text or binary mode, such as filename
- pattern matching. MANUAL means, in this context, obey the
- client's FILE TYPE setting (TEXT or BINARY). Synonym: REMOTE
- SET XFER MODE.
+ file-transfer mode. Automatic means (roughly): if the client and
+ the server are running on the same kind of computer (e.g. both
+ are on UNIX), then use binary mode automatically; if the system
+ types are different, use some other method to automatically
+ determine text or binary mode, such as filename pattern
+ matching. MANUAL means, in this context, obey the client's FILE
+ TYPE setting (TEXT or BINARY). Synonym: REMOTE SET XFER MODE.
[ REMOTE ] QUERY KERMIT function(args...)
- Prior to C-Kermit 7.0, the arguments were not evaluated
- locally. Thus it was not possible to have the server run the
- function with client-side variables as arguments. Now:
+ Prior to C-Kermit 7.0, the arguments were not evaluated locally.
+ Thus it was not possible to have the server run the function
+ with client-side variables as arguments. Now:
define \%a oofa.*
remote query kermit files(\%a) ; Client's \%a
When given at the C-Kermit prompt when it has no connection, it
does nothing.
- Note that in C-Kermit 7.0, the REMOTE (or R) prefix is not required
- for QUERY, since there is no local QUERY command. The new top-level
- QUERY command does exactly what REMOTE QUERY (RQUERY) does.
+ Note that in C-Kermit 7.0, the REMOTE (or R) prefix is not required for
+ QUERY, since there is no local QUERY command. The new top-level QUERY
+ command does exactly what REMOTE QUERY (RQUERY) does.
All REMOTE commands now have single-word shortcuts:
RSET REMOTE SET
etc.
- The R prefix is not applied to LOGIN because there is already an
- RLOGIN command with a different meaning. It is not applied to LOGOUT
- either, since LOGOUT knows what to do in each case, and for symmetry
- with LOGIN.
- _________________________________________________________________
+ The R prefix is not applied to LOGIN because there is already an RLOGIN
+ command with a different meaning. It is not applied to LOGOUT either,
+ since LOGOUT knows what to do in each case, and for symmetry with
+ LOGIN.
5.2.1. Remote Procedure Definitions and Calls
returns the size of the remote file, foo.bar.
- Now note that C-Kermit includes an \fexecute() function, allowing it
- to execute any macro as if it were a built-in function. So suppose
- MYMACRO is the name of a macro defined in the server. You can execute
- it from the client as follows (the redundant "remote" prefix is
- omitted in the remaining examples):
+ Now note that C-Kermit includes an \fexecute() function, allowing it to
+ execute any macro as if it were a built-in function. So suppose MYMACRO
+ is the name of a macro defined in the server. You can execute it from
+ the client as follows (the redundant "remote" prefix is omitted in the
+ remaining examples):
query kermit execute(mymacro arg1 arg2...)
query kermit execute(macroname arg1 arg2...)
Quoting is required if the definition contains formal parameters.
- _________________________________________________________________
5.3. New Server Capabilities
5.3.1.2. Removing Directories
- When attempting to execute a REMOTE RMDIR, the server can remove only
- a single directory, not an entire sequence or tree. The system service
- that is called to remove the directory generally requires not only
- that the server process has write delete access, but also that the
- directory contain no files.
+ When attempting to execute a REMOTE RMDIR, the server can remove only a
+ single directory, not an entire sequence or tree. The system service
+ that is called to remove the directory generally requires not only that
+ the server process has write delete access, but also that the directory
+ contain no files.
In the future, a REMOTE RMDIR /RECURSIVE command (and the accompanying
protocol) might be added. For now, use the equivalent REMOTE HOST
command(s), if any.
- _________________________________________________________________
5.3.2. Directory Listings
Directory listings are generated by C-Kermit itself, rather than by
running the underlying system's directory command. Some control over
the listing format can be obtained with the SET OPTIONS DIRECTORY
- command ([532]Section 4.5.1). The following options affect listings
+ command ([540]Section 4.5.1). The following options affect listings
sent by the server: /[NO]HEADING, /[NO]DOTFILES, and /[NO]BACKUP. In
UNIX and VMS, the listing is always sorted by filename. There is, at
present, no protocol defined for the client to request listing options
In UNIX and OS-9, this is a 10-character field, left adjusted.
In VMS it is a 22-character field, left-adjusted. In each case,
the protection / permission codes are shown in the server
- platform's native format. In other operating systems, this
- field is not shown.
+ platform's native format. In other operating systems, this field
+ is not shown.
Size in bytes:
- This is always a 10-character field. The file's size is shown
- as a decimal number, right adjusted in the field. If the file
- is a directory and its size can not be obtained, the size is
- shown as "<DIR>". Two blanks follow this field.
+ This is always a 10-character field. The file's size is shown as
+ a decimal number, right adjusted in the field. If the file is a
+ directory and its size can not be obtained, the size is shown as
+ "<DIR>". Two blanks follow this field.
Date:
Always in yyyy-mm-dd hh:mm:ss numeric format, and therefore 19
-0.40r".
Since the UNIX client can pipe responses to REMOTE commands through
- filters, any desired sorting can be accomplished this way, for
- example:
+ filters, any desired sorting can be accomplished this way, for example:
C-Kermit> remote directory | sort +0.22 -0.40
C-Kermit> remote directory | sort +0.11 -0.19
You can use sort options to select reverse or ascending order. "man
- sort" (in UNIX) for more information. And of course, you can pipe
- these listings through any other filter of your choice, such as grep
- to skip unwanted lines.
- _________________________________________________________________
+ sort" (in UNIX) for more information. And of course, you can pipe these
+ listings through any other filter of your choice, such as grep to skip
+ unwanted lines.
5.4. Syntax for Remote Filenames with Embedded Spaces
mget oofa.txt oofa.bin
- the server tries to send the two files, oofa.txt and oofa.bin. But
- what if you want the server to send you a file named, say:
+ the server tries to send the two files, oofa.txt and oofa.bin. But what
+ if you want the server to send you a file named, say:
D:\HP OfficeJet 500\Images\My Pretty Picture Dot PCL
- How does the server know this is supposed to be one file and not
- seven? In this case, you need to the send file name to the server
- enclosed in either curly braces:
+ How does the server know this is supposed to be one file and not seven?
+ In this case, you need to the send file name to the server enclosed in
+ either curly braces:
{D:\HP OfficeJet 500\Images\My Pretty Picture Dot PCL}
The method for doing this depends on your client. If your client is
C-Kermit 7.0, any recent version of Kermit 95, or MS-DOS Kermit 3.16,
then you have to enclose the name in braces just so the client can
- parse it, so to send braces or doublequotes to the server, you must
- put them inside the first, outside pair of braces. And you also need
- to double the backslashes to prevent them from being interpreted:
+ parse it, so to send braces or doublequotes to the server, you must put
+ them inside the first, outside pair of braces. And you also need to
+ double the backslashes to prevent them from being interpreted:
get {{D:\\HP OfficeJet 500\\Images\\My Pretty Picture Dot PCL}}
get {"D:\\HP OfficeJet 500\\Images\\My Pretty Picture Dot PCL"}
Here, the quotes go on the outside so UNIX will pass the entire
filename, spaces, braces, and all, as a single argument to Kermit, and
- the backslashes are not doubled because (a) the UNIX shell ignores
- them since they are in a quoted string, and (b) Kermit ignores them
- since the interactive command parser is not activated in this case.
- _________________________________________________________________
+ the backslashes are not doubled because (a) the UNIX shell ignores them
+ since they are in a quoted string, and (b) Kermit ignores them since
+ the interactive command parser is not activated in this case.
5.5. Automatic Orientation Messages upon Directory Change
following commands govern this feature:
SET SERVER CD-MESSAGE FILE name
- Given to the servr, allows the message-file name to be
- specified at runtime. A list of names to look for can be given
- in the following format:
+ Given to the servr, allows the message-file name to be specified
+ at runtime. A list of names to look for can be given in the
+ following format:
{{name1}{name2}{name3}{...}}
Given to server, includes CD-Message status.
The default CD message file name is system dependent. SHOW CD or SHOW
- SERVER displays the list. Also see [533]Section 4.5.2.
- _________________________________________________________________
+ SERVER displays the list. Also see [541]Section 4.5.2.
5.6. New Server Controls
SET SERVER IDLE-TIMEOUT seconds
This was available previously in Kermit 95 only. Now it can be
- used in C-Kermit also to specify a maximum number of seconds
- the server is allowed to be idle before exiting server mode. 0
+ used in C-Kermit also to specify a maximum number of seconds the
+ server is allowed to be idle before exiting server mode. 0
seconds means no idle timeout. In C-Kermit (but not K-95), SET
SERVER TIMEOUT and SET SERVER IDLE-TIMEOUT are mutually
- exclusive -- you can have one or the other (or neither), but
- not both. (Server timeouts are for the benefit of primitive
- Kermit clients that are not capable of timing out on their own;
- to our knowledge, no such clients are still in circulation.)
+ exclusive -- you can have one or the other (or neither), but not
+ both. (Server timeouts are for the benefit of primitive Kermit
+ clients that are not capable of timing out on their own; to our
+ knowledge, no such clients are still in circulation.)
SET SERVER KEEPALIVE { ON, OFF }
(See next section).
- _________________________________________________________________
5.7. Timeouts during REMOTE HOST Command Execution
Prior to C-Kermit 7.0, the C-Kermit server would block waiting for
output from a system command invoked via REMOTE HOST from the client.
If the system command took a long time to execute, the client would
- time out and send NAK packets. If the command took too long, the
- client would reach its retry limit and give up. Even if it didn't, the
- NAKs would cause unnecessary retransmissions.
+ time out and send NAK packets. If the command took too long, the client
+ would reach its retry limit and give up. Even if it didn't, the NAKs
+ would cause unnecessary retransmissions.
In version 7.0, the C-Kermit server (VMS and select()-capable UNIX
- versions only), sends "keepalive packets" (empty data packets) once
- per second while waiting for the system command to complete. This
- procedure should be entirely transparent to the Kermit client, and
- should prevent the unwanted timeouts and NAKs. When C-Kermit 7.0
- itself (or K95 1.1.19) is the client, it prints dots to show the
- keepalive packets.
+ versions only), sends "keepalive packets" (empty data packets) once per
+ second while waiting for the system command to complete. This procedure
+ should be entirely transparent to the Kermit client, and should prevent
+ the unwanted timeouts and NAKs. When C-Kermit 7.0 itself (or K95
+ 1.1.19) is the client, it prints dots to show the keepalive packets.
The keepalive feature can be turned off and on with:
Normally it should be on. Turn it off it if causes trouble with the
client, or if it seems to slow down the server (as it might on some
platforms under certain circumstances).
- _________________________________________________________________
6. INTERNATIONAL CHARACTER SETS
To accommodate the Euro currency symbol, and to correct several other
longstanding problems with ISO Latin Alphabet 1, ISO 8859-15 Latin
- Alphabet 9 was issued in May 1998. It is supported by C-Kermit 7.0 as
- a transfer character set, a file character set, and a terminal
- character set. Translations that preserve the new characters are
- available between Latin-9 and several other sets including:
+ Alphabet 9 was issued in May 1998. It is supported by C-Kermit 7.0 as a
+ transfer character set, a file character set, and a terminal character
+ set. Translations that preserve the new characters are available
+ between Latin-9 and several other sets including:
PC Code Page 858 (Western European languages, similar to CP850)
Windows Code Page 1252 (Western European languages, similar to Latin-1)
involving the DEC MCS or NeXT character sets.
The Euro character is also present in the Universal Character Set,
- described in [534]Section 6.6.
+ described in [542]Section 6.6.
6.1. The HP-Roman8 Character Set
The HP-Roman8 character set is supported in C-Kermit 6.0 and later but
was omitted from Table VII-4 in the 2nd Edition of Using C-Kermit due
- to lack of space. It is listed in [535]Appendix III.
+ to lack of space. It is listed in [543]Appendix III.
6.2. Greek Character Sets
GREEK-ISO is ISO 8859-7, which the same as ELOT 928.
- The new Greek character sets are listed in [536]Appendix III.
+ The new Greek character sets are listed in [544]Appendix III.
6.3. Additional Latin-2 Character Sets
CP855
This PC Code Page contains all the Cyrillic letters that are
also in ISO 8859-5, and is therefore useful for non-Russian
- Cyrillic text (Ukrainian, Belorussian, etc), unlike CP866,
- which has a smaller repertoire of Cyrillic letters.
+ Cyrillic text (Ukrainian, Belarusian, etc), unlike CP866, which
+ has a smaller repertoire of Cyrillic letters.
CP1251
The Windows Cyrillic Code Page. Equivalent to CP855, but with
Cyrillic letter Io (looks like Roman E with diaeresis) plus a
selection of box-drawing characters to columns 8 through 11,
which are vacant in original Old KOI-8. KOI8-R is used for the
- Russian language. It is specified in [537]RFC 1489.
+ Russian language. It is specified in [545]RFC 1489.
KOI8U
A similar extension of Old KOI-8, but for Ukrainian. It is
- specified in [538]RFC 2319.
- _________________________________________________________________
+ specified in [546]RFC 2319.
6.5. Automatic Character-Set Switching
SET RECEIVE CHARACTER-SET-SELECTION { AUTOMATIC, MANUAL }
AUTOMATIC is the default, causing the behavior described above
when an incoming file arrives. Choose MANUAL to defeat this
- behavior and force your current FILE CHARACTER-SET setting to
- be used, no matter what it is. Note that SET RECEIVE
- CHARACTER-SET MANUAL does not disable recognition of the
- incoming transfer character-set announcer, and translation from
- the corresponding character-set to your current file
- character-set. To disable that, use SET ATTRIBUTE CHARACTER-SET
- OFF.
+ behavior and force your current FILE CHARACTER-SET setting to be
+ used, no matter what it is. Note that SET RECEIVE CHARACTER-SET
+ MANUAL does not disable recognition of the incoming transfer
+ character-set announcer, and translation from the corresponding
+ character-set to your current file character-set. To disable
+ that, use SET ATTRIBUTE CHARACTER-SET OFF.
SET SEND CHARACTER-SET-SELECTION { AUTOMATIC, MANUAL }
Again AUTOMATIC is the default, causing the behavior described
ASSOCIATE FILE-CHARACTER-SET name1 [ name2 ]
Changes the association for the file character-set name1 to be
- the transfer character-set name2. If name2 is omitted,
- automatic switching is disabled for this file character-set
- only.
- _________________________________________________________________
+ the transfer character-set name2. If name2 is omitted, automatic
+ switching is disabled for this file character-set only.
6.6. UNICODE
* Unguarded file transmission (TRANSMIT)
* Local file character-set conversion (TRANSLATE)
- C-Kermit is not, however, a "Unicode application" in the sense that
- its commands, messages, or user interface are Unicode. Rather, it is
+ C-Kermit is not, however, a "Unicode application" in the sense that its
+ commands, messages, or user interface are Unicode. Rather, it is
"Unicode aware" in its ability to handle and convert Unicode text in
the course of file transfer and terminal connection, and you can also
use Kermit to convert local files between Unicode and other character
The UCS already covers these scripts and many more, but it's an
evolving standard with efforts underway to accommodate even more
- languages and writing systems. Support is growing for native UCS use
- on many platforms and in many applications. The goal of the framers of
- the UCS is for it to replace ASCII, the ISO Latin Alphabets, ISCII,
- VISCII, the Chinese, Japanese, and Korean (CJK) multibyte sets, etc,
- as well as the many private character sets in use today, in other
- words to become *the* Universal Character Set.
-
- Until that time, however, conversions between existing sets and the
- UCS will be necessary when moving text between platforms and
- applications. Now Kermit can help.
- _________________________________________________________________
+ languages and writing systems. Support is growing for native UCS use on
+ many platforms and in many applications. The goal of the framers of the
+ UCS is for it to replace ASCII, the ISO Latin Alphabets, ISCII, VISCII,
+ the Chinese, Japanese, and Korean (CJK) multibyte sets, etc, as well as
+ the many private character sets in use today, in other words to become
+ *the* Universal Character Set.
+
+ Until that time, however, conversions between existing sets and the UCS
+ will be necessary when moving text between platforms and applications.
+ Now Kermit can help.
6.6.1. Overview of Unicode
For a more complete picture, please visit:
- [539]http://www.unicode.org/
+ [547]http://www.unicode.org/
and access the various online introductions, FAQs, technical reports,
and other information. For greater depth, order the latest version of
- the published Unicode Standard. The following overview contains a
- great many oversimplifications and perhaps an opinion or two.
+ the published Unicode Standard. The following overview contains a great
+ many oversimplifications and perhaps an opinion or two.
At present, the UCS is a 16-bit (2-byte) character set, but with
provisions to grow to a 4-byte set. UCS-2 refers to the two-byte set,
also called the Base Multilingual Plane (BMP), in which each character
has 16 bits, and therefore there are 2^16 = 65536 possible characters.
The first 128 characters are the same as US ASCII (C0 control
- characters and DEL included), the next 32 are the C1 control
- characters of ISO 6429, and the next 96 are the Right Half of ISO
- 8859-1 Latin Alphabet 1. The remaining tens of thousands of characters
- are arranged newly for the UCS, usually (but not always) in sections
- corresponding to existing standards, such as ISO Latin/Cyrillic, often
- plus additional characters not appearing in the existing standards due
- to lack of space (or other reasons).
-
- ISO 10646 allows for additional planes, e.g. for Egyptian
- hieroglyphics or ancient (or other esoteric) CJK characters, but these
- planes are not yet defined and so we will say nothing more about them
- here, except that their use will require the 4-byte form of UCS,
- called UCS-4, in some form (more about "forms" in [540]Section 6.6.2).
+ characters and DEL included), the next 32 are the C1 control characters
+ of ISO 6429, and the next 96 are the Right Half of ISO 8859-1 Latin
+ Alphabet 1. The remaining tens of thousands of characters are arranged
+ newly for the UCS, usually (but not always) in sections corresponding
+ to existing standards, such as ISO Latin/Cyrillic, often plus
+ additional characters not appearing in the existing standards due to
+ lack of space (or other reasons).
+
+ ISO 10646 allows for additional planes, e.g. for Egyptian hieroglyphics
+ or ancient (or other esoteric) CJK characters, but these planes are not
+ yet defined and so we will say nothing more about them here, except
+ that their use will require the 4-byte form of UCS, called UCS-4, in
+ some form (more about "forms" in [548]Section 6.6.2).
Unicode and ISO 10646 are constantly under revision, mainly to add new
characters. The Unicode revision is denoted by a version number, such
- as 1.0, 1.1, 2.0, 3.0. The ISO 10646 standard revision is identified
- by Edition (such as ISO 10646-1 1993), plus reference to any
- amendments. The first versions of these standards included encodings
- for Korean Hangul syllables (Jamos); these encodings were changed in
- version 1.1 of Unicode and by Amendment 5 to ISO 10646-1. The Unicode
- Technical Committee and the ISO acknowledge that this was a bad thing
- to do, and promise never change encodings or character names again,
- since this poses serious problems for conformance and data
- interchange.
+ as 1.0, 1.1, 2.0, 3.0. The ISO 10646 standard revision is identified by
+ Edition (such as ISO 10646-1 1993), plus reference to any amendments.
+ The first versions of these standards included encodings for Korean
+ Hangul syllables (Jamos); these encodings were changed in version 1.1
+ of Unicode and by Amendment 5 to ISO 10646-1. The Unicode Technical
+ Committee and the ISO acknowledge that this was a bad thing to do, and
+ promise never change encodings or character names again, since this
+ poses serious problems for conformance and data interchange.
A UCS-2 value is customarily written like this:
U+xxxx
where "xxxx" represents four hexadecimal digits, 0-9 and A-F. For
- example, U+0041 is "A", U+00C1 is A-acute, U+042F is uppercase
- Cyrillic "Ya", U+FB4F is Hebrew Ligature Alef Lamed, and U+FFFD is the
- special character that means "not a character".
+ example, U+0041 is "A", U+00C1 is A-acute, U+042F is uppercase Cyrillic
+ "Ya", U+FB4F is Hebrew Ligature Alef Lamed, and U+FFFD is the special
+ character that means "not a character".
- Most characters from widely-used alphabetic writing systems such as
- the West European ones, Cyrillic, Greek, Hebrew, Vietnamese, etc, are
+ Most characters from widely-used alphabetic writing systems such as the
+ West European ones, Cyrillic, Greek, Hebrew, Vietnamese, etc, are
available in "precomposed" form; for example Uppercase Latin Letter A
- with Acute Accent is a single character (as it is in Latin-1).
- However, the UCS also permits composition of a base character with one
- or more nonspacing diacritics. This means the same character can be
- represented in more than one way, which can present problems in many
- application areas, including transfer and character-set conversion of
- text.
+ with Acute Accent is a single character (as it is in Latin-1). However,
+ the UCS also permits composition of a base character with one or more
+ nonspacing diacritics. This means the same character can be represented
+ in more than one way, which can present problems in many application
+ areas, including transfer and character-set conversion of text.
Conversion from ASCII or Latin-1 to UCS-2 text is "trivial": simply
insert a NUL (0) byte before each ASCII or Latin-1 byte. Converting in
transmission methods. And to make matters worse, different hardware
platforms store UCS-2 characters in different byte order. Thus a UCS-2
file transferred by FTP (or accessed via NFS, etc) between two
- computers with different architecture might have its bytes in the
- wrong order (or worse; see [541]Section 6.6.5.1 ).
- _________________________________________________________________
+ computers with different architecture might have its bytes in the wrong
+ order (or worse; see [549]Section 6.6.5.1 ).
6.6.2. UCS Byte Order
| 0 0 0 0 0 0 0 1 | 0 0 0 0 0 0 0 0 |
+-----------------+-----------------+
- When a computer works this way, it is said to be Big Endian, meaning
- it puts the most significant (biggest) byte first (on the "left") in a
+ When a computer works this way, it is said to be Big Endian, meaning it
+ puts the most significant (biggest) byte first (on the "left") in a
16-bit word, and the least significant byte second (on the right).
However, some other computers have the opposite arrangement, called
include a BOM, and any application that reads one should test for a
BOM, and if one is found, infer the byte order from it. This is a
convention, however -- not a standard or a requirement -- and
- applications vary in their ability to handle BOMs and "backwards"
- UCS-2 files.
+ applications vary in their ability to handle BOMs and "backwards" UCS-2
+ files.
Note that a BOM is useful only at the beginning of a file. If you
append one UCS-2 file to another, and both have BOMs, the internal BOM
is no longer a BOM. And if the byte orders of the two files differ,
then either the first part or the second will be backwards. (Various
other undesirable effects might also occur, not discussed here.)
- _________________________________________________________________
6.6.2. UCS Transformation Formats
UCS textual data can be modified in various ways for transmission or
- storage. Any officially sanctioned method of doing this is called a
- UCS Transformation Format, or UTF. One such method, called UTF-16, is
- essentially identical with UCS-2 except that it designates certain
- code values as "escape sequences" (called surrogate pairs) to access
+ storage. Any officially sanctioned method of doing this is called a UCS
+ Transformation Format, or UTF. One such method, called UTF-16, is
+ essentially identical with UCS-2 except that it designates certain code
+ values as "escape sequences" (called surrogate pairs) to access
characters in other planes without having to use full UCS-4. We won't
discuss UTF-16 further here, since at the moment there are no other
planes. Several other UTF's (such as UTF-1, UTF-2, and UTF-7) have
set. Every non-ASCII UCS-2 character is represented by a sequence of 2
or 3 UTF-8 bytes. Thus UTF-8 is more compact than UCS-2 for text
containing a preponderance of ABC's (or other ASCII characters), about
- the same as UCS-2 for other alphabetic scripts (Cyrillic, Roman,
- Greek, etc), and larger than UCS-2 for Chinese, Japanese, and Korean.
+ the same as UCS-2 for other alphabetic scripts (Cyrillic, Roman, Greek,
+ etc), and larger than UCS-2 for Chinese, Japanese, and Korean.
The UTF-8 uncoding of the UCS has been adopted by the Internet as the
preferred character set for new applications, and is gradually being
- retrofitted into traditional applications like FTP ([542]RFC 2640).
- _________________________________________________________________
+ retrofitted into traditional applications like FTP ([550]RFC 2640).
6.6.3. Conformance Levels
Normalization Form C (described in Unicode Technical Report 15,
incorporated into Unicode 3.0).
- As noted in [543]Section 6.6.2, Kermit does not claim to support
- UTF-16 at the present time, hence the UCS-2 nomenclature. Kermit
- treats surrogates just as if they were any other UCS-2 characters,
- rather than as escapes to other planes, which means that (except when
- converting between UCS-2 and UTF-8) they are translated to "error"
- characters, since (a) no other planes are defined yet (and if they
- were, no other character sets supported by Kermit would encode their
- characters), and (b) no valid surrogate character corresponds to any
- other UCS-2 character.
+ As noted in [551]Section 6.6.2, Kermit does not claim to support UTF-16
+ at the present time, hence the UCS-2 nomenclature. Kermit treats
+ surrogates just as if they were any other UCS-2 characters, rather than
+ as escapes to other planes, which means that (except when converting
+ between UCS-2 and UTF-8) they are translated to "error" characters,
+ since (a) no other planes are defined yet (and if they were, no other
+ character sets supported by Kermit would encode their characters), and
+ (b) no valid surrogate character corresponds to any other UCS-2
+ character.
A minor yet significant aspect of Unicode 3.0 and some recent
perturbation of ISO 10646-1 (probably Amendment 18, "Symbols and Other
Characters") is the addition of the Euro Sign at U+20AC. As noted in
- [544]Section 6.0, Kermit's "Euro compliance" includes conversion
+ [552]Section 6.0, Kermit's "Euro compliance" includes conversion
between Latin Alphabet 9 and various PC code pages. Text can also be
- converted between UCS-2 or UTF-8 and any other Euro-compliant
- character set (Latin-9, CP858, CP1250, CP1252) without loss of the
- Euro Sign.
- _________________________________________________________________
+ converted between UCS-2 or UTF-8 and any other Euro-compliant character
+ set (Latin-9, CP858, CP1250, CP1252) without loss of the Euro Sign.
6.6.4. Relationship of Unicode with Kermit's Other Character Sets
character-sets both including the characters in the file. For example,
you can translate a Hungarian text file between Latin-2 and Unicode,
but not between (say) Unicode and Latin/Greek. By the same token you
- can convert Japanese text from Shift-JIS or EUC or JIS-7 to Unicode
- and back, but you can't convert the same file to (say) Latin-1 if it
+ can convert Japanese text from Shift-JIS or EUC or JIS-7 to Unicode and
+ back, but you can't convert the same file to (say) Latin-1 if it
contains Japanese characters.
JIS-7 is equivalent to DEC Kanji and ISO-2022-JP except that the
latter two do not support halfwidth Katakana. Kermit treats all
three of these sets the same way, i.e. as JIS-7.
- As noted, Kermit presently does not handle combining diacritics, and
- so will not correctly convert UCS files that use them into a
- single-byte character set. For example, if a UCS file contains Latin
- Capital Letter A (U+0041) followed by Combining Acute Accent (U+0301),
- the result will be a two-character sequence, A followed by another
- character. This is what is meant by Conformance Level 1. (The
- situation grows worse with multiple diacritics, since they can occur
- in any order.)
+ As noted, Kermit presently does not handle combining diacritics, and so
+ will not correctly convert UCS files that use them into a single-byte
+ character set. For example, if a UCS file contains Latin Capital Letter
+ A (U+0041) followed by Combining Acute Accent (U+0301), the result will
+ be a two-character sequence, A followed by another character. This is
+ what is meant by Conformance Level 1. (The situation grows worse with
+ multiple diacritics, since they can occur in any order.)
A higher level of conformance is possible, in which "canonical
equivalences" are handled via algorithms and databases, at some
(perhaps considerable) cost in performance, since a fair amount of
additional code must be executed for every character during data
transfer (database lookup, sorting of combining sequences into
- canonical order, etc). This can be added in future releases if there
- is a need (but in many cases, pre- and postpostprocessing might be a
+ canonical order, etc). This can be added in future releases if there is
+ a need (but in many cases, pre- and postpostprocessing might be a
better option).
- Within these constraints, Kermit converts between the UCS and its
- other character sets. For example, a mixture of Russian and English
- (and/or Dutch, or Latin) text can bet converted between the UCS and
- ISO Latin/Cyrillic or KOI-8. But since Kermit does not presently
- support Arabic character-set conversion, the new availability of UCS
- conversion does not mean that Kermit can convert from Arabic UCS text
- to some other character set, because Kermit does not support any other
- character set that includes Arabic. Ditto for Thai, Armenian,
- Georgian, Tibetan, Chinese, Korean, etc. However, Kermit CAN convert
- Arabic (or any other script) between UCS-2 and UTF-8.
+ Within these constraints, Kermit converts between the UCS and its other
+ character sets. For example, a mixture of Russian and English (and/or
+ Dutch, or Latin) text can bet converted between the UCS and ISO
+ Latin/Cyrillic or KOI-8. But since Kermit does not presently support
+ Arabic character-set conversion, the new availability of UCS conversion
+ does not mean that Kermit can convert from Arabic UCS text to some
+ other character set, because Kermit does not support any other
+ character set that includes Arabic. Ditto for Thai, Armenian, Georgian,
+ Tibetan, Chinese, Korean, etc. However, Kermit CAN convert Arabic (or
+ any other script) between UCS-2 and UTF-8.
Considering Cyrillic more carefully, note that the UCS also contains
- numerous Cyrillic characters not found in any of the Cyrillic sets
- (ISO Latin/Cyrillic, KOI8, CP866, etc) that Kermit supports;
- characters needed for Abkhasian, Yakut, Tatar, Bashkir, Altaic, Old
- Church Slavonic, etc; UCS text containing any of these historic or
- "extended" Cyrillic characters can not be converted to any of Kermit's
- current single-byte Cyrillic sets without loss. The situation is
- similar for Greek, Hebrew, etc, and even worse for Japanese since
- Unicode contains thousands of Kanjis that are lacking from the
- Japanese character sets based on JIS X 0208, such as EUC-JP, JIS-7,
- and Shift-JIS.
+ numerous Cyrillic characters not found in any of the Cyrillic sets (ISO
+ Latin/Cyrillic, KOI8, CP866, etc) that Kermit supports; characters
+ needed for Abkhasian, Yakut, Tatar, Bashkir, Altaic, Old Church
+ Slavonic, etc; UCS text containing any of these historic or "extended"
+ Cyrillic characters can not be converted to any of Kermit's current
+ single-byte Cyrillic sets without loss. The situation is similar for
+ Greek, Hebrew, etc, and even worse for Japanese since Unicode contains
+ thousands of Kanjis that are lacking from the Japanese character sets
+ based on JIS X 0208, such as EUC-JP, JIS-7, and Shift-JIS.
In general, when converting from UCS to a single-byte set, there is
always the possibility of data loss, just as there is when converting
converting to (say) Latin-1, just as Roman vowels with acute accents
are lost when converting from Latin-1 (an 8-bit set) to German ISO 646
(a 7-bit set).
- _________________________________________________________________
6.6.5. Kermit's Unicode Features
between UCS-2 or UTF-8 and a non-Unicode character set (such as
Latin-1), the UCS Line Separator (LS, U+2028) and Paragraph Separator
(PS, U+2029) characters are converted to the appropriate line
- terminator (CR, LF, or CRLF). When converting from a non-Unicode set
- to UCS-2 or UTF-8, however, line terminators are not converted to LS
- or PS. This is in accordance with the recommendations of Unicode
- Technical Report #13.
+ terminator (CR, LF, or CRLF). When converting from a non-Unicode set to
+ UCS-2 or UTF-8, however, line terminators are not converted to LS or
+ PS. This is in accordance with the recommendations of Unicode Technical
+ Report #13.
When C-Kermit starts, it tests the native byte order of the computer.
You can see the result in the SHOW FEATURES or SHOW FILE display. It's
illustrate that neither Unicode nor any other character-set beyond
ASCII is supported at the user-interface, command, or scripting level
in this version of C-Kermit.
- _________________________________________________________________
6.6.5.1. File Transfer
SET FILE CHARACTER-SET UCS2
- and if you want to send a UTF-8 text file (or store an incoming file
- in UTF-8 format), tell Kermit to:
+ and if you want to send a UTF-8 text file (or store an incoming file in
+ UTF-8 format), tell Kermit to:
SET FILE CHARACTER-SET UTF8
BOM, if there is one (and if there is a BOM, it is stripped, i.e. not
sent). If there is no BOM, the byte order is the one specified in the
most recent SET FILE UCS BYTE-ORDER command, if any, otherwise the
- computer's native byte order is assumed. When storing incoming files
- as UCS-2, the byte order is according SET FILE UCS BYTE-ORDER, if
- given, otherwise the native one; a BOM is written according to SET
- FILE UCS BOM.
+ computer's native byte order is assumed. When storing incoming files as
+ UCS-2, the byte order is according SET FILE UCS BYTE-ORDER, if given,
+ otherwise the native one; a BOM is written according to SET FILE UCS
+ BOM.
A transfer character-set should be chosen that includes all of the
characters in the source file. So, for example, if you are sending a
UCS-2 file containing only German-language text, your transfer
- character-set can be Latin-1, Latin-2, Latin-9, UCS-2, or UTF-8. But
- if you are sending a file that contains a combination of Hebrew and
- Greek, your transfer character-set must be UCS-2 or UTF-8 if you don't
- want to lose one script or the other. Furthermore, the transfer
- character-set must be one that is supported by the receiving Kermit
- program. Since UCS support is new, it is possible that the other
- Kermit program (if it supports character sets at all) does not support
- it, but does support single-byte sets such as Latin-1, Latin/Cyrillic,
- etc.
+ character-set can be Latin-1, Latin-2, Latin-9, UCS-2, or UTF-8. But if
+ you are sending a file that contains a combination of Hebrew and Greek,
+ your transfer character-set must be UCS-2 or UTF-8 if you don't want to
+ lose one script or the other. Furthermore, the transfer character-set
+ must be one that is supported by the receiving Kermit program. Since
+ UCS support is new, it is possible that the other Kermit program (if it
+ supports character sets at all) does not support it, but does support
+ single-byte sets such as Latin-1, Latin/Cyrillic, etc.
To select UCS-2 or UTF-8 as a transfer character-set, use:
SET TRANSFER CHARACTER-SET { UCS2, UTF8 }
- It is up to the receiving Kermit program to convert the transfer
- format to its own local format, if necessary. If it does not
- understand the UTF-8 or UCS-2 transfer character-set, and your file
- can not be adequately represented by any single-byte transfer
- character-set (such as Latin-1 or Latin/Cyrillic) then, if UTF-8
- format is acceptable on the receiving computer, use UTF-8 as the
- transfer character-set, with the receiver told to "set unknown-char
- keep", or with the sender told to "set attribute char off". If you
- want the file to be stored in UCS-2 format at the receiver, send it it
- binary mode if the source file is also UCS-2, or else use the
- TRANSLATE command (next section) to convert it to UCS-2 first, then
- send it in binary mode. You should not use UCS-2 as a transfer
- character-set in text-mode transfers to Kermit programs that don't
- support it, because they are likely to corrupt the result the same way
- FTP would (see the final paragraph of this section).
+ It is up to the receiving Kermit program to convert the transfer format
+ to its own local format, if necessary. If it does not understand the
+ UTF-8 or UCS-2 transfer character-set, and your file can not be
+ adequately represented by any single-byte transfer character-set (such
+ as Latin-1 or Latin/Cyrillic) then, if UTF-8 format is acceptable on
+ the receiving computer, use UTF-8 as the transfer character-set, with
+ the receiver told to "set unknown-char keep", or with the sender told
+ to "set attribute char off". If you want the file to be stored in UCS-2
+ format at the receiver, send it it binary mode if the source file is
+ also UCS-2, or else use the TRANSLATE command (next section) to convert
+ it to UCS-2 first, then send it in binary mode. You should not use
+ UCS-2 as a transfer character-set in text-mode transfers to Kermit
+ programs that don't support it, because they are likely to corrupt the
+ result the same way FTP would (see the final paragraph of this
+ section).
When UCS-2 is the transfer character set, it always goes into Kermit
packets in Big Endian format, with no BOM. As always, the transfer
character-set is announced by the sender to the receiver. The
- announcement for UCS-2 is "I162" (ISO Registration 162 = UCS-2 Level
- 1) and by definition it is Big Endian (the standards say that when
- UCS-2 is serialized into bytes, the order must be Big Endian). The
+ announcement for UCS-2 is "I162" (ISO Registration 162 = UCS-2 Level 1)
+ and by definition it is Big Endian (the standards say that when UCS-2
+ is serialized into bytes, the order must be Big Endian). The
announcement for UTF-8 is "I190" (UTF-8 Level 1).
When receiving a file whose transfer character-set is UCS-2 or UTF-8,
There is no way Kermit can do this for you automatically, since UCS
data can be in any script at all, or any combination.
- In general, UTF-8 or UCS-2 should be chosen as a transfer
- character-set if the source file is also encoded in some form of UCS
- and it contains more than one script. But there are other situations
- where where UTF-8 or UCS-2 offer advantages. For example, suppose the
- source file is on a NeXTstation and the destination file is on VMS.
- Both the NeXT and the DEC Multinational character sets include the
- French OE digraph, but Latin-1 does not. Therefore French words
- containing this character might not arrive intact when Latin-1 is the
- transfer character-set, but will with UTF-8 or UCS-2, since the UCS
- includes the OE digraph (but so does Latin-9).
+ In general, UTF-8 or UCS-2 should be chosen as a transfer character-set
+ if the source file is also encoded in some form of UCS and it contains
+ more than one script. But there are other situations where where UTF-8
+ or UCS-2 offer advantages. For example, suppose the source file is on a
+ NeXTstation and the destination file is on VMS. Both the NeXT and the
+ DEC Multinational character sets include the French OE digraph, but
+ Latin-1 does not. Therefore French words containing this character
+ might not arrive intact when Latin-1 is the transfer character-set, but
+ will with UTF-8 or UCS-2, since the UCS includes the OE digraph (but so
+ does Latin-9).
UCS-2 should be chosen as a transfer character-set only for Japanese
text files that contain a large preponderance of Kanji, since in this
- case (and only this case) UCS-2 (two bytes per Kanji) is more
- efficient than UTF-8 (three bytes per Kanji). The same will be true
- for Chinese and Korean when they are supported by Kermit. UCS-2 should
- never be used as a transfer character-set with a transfer partner that
- does not support UCS-2 since this can cause file corruption (see last
- paragraph in this section).
+ case (and only this case) UCS-2 (two bytes per Kanji) is more efficient
+ than UTF-8 (three bytes per Kanji). The same will be true for Chinese
+ and Korean when they are supported by Kermit. UCS-2 should never be
+ used as a transfer character-set with a transfer partner that does not
+ support UCS-2 since this can cause file corruption (see last paragraph
+ in this section).
Note that Kermit's repeat-count compression is 100% ineffective for
UCS-2, and is also ineffective for multibyte characters in UTF-8 and
EUC-JP; this is because repeat-compression is a transport-level
- mechanism that operates on a per-byte basis; it has no knowledge of
- the distinction between a byte and a character.
+ mechanism that operates on a per-byte basis; it has no knowledge of the
+ distinction between a byte and a character.
- When C-Kermit starts, it sets up associations ([545]Section 6.5) for
+ When C-Kermit starts, it sets up associations ([553]Section 6.5) for
incoming files whose transfer character sets are UCS-2 or UTF-8
appropriately for the platform so that the file character-set for the
incoming file is UCS-2 in Windows and UTF-8 elsewhere. Otherwise,
- C-Kermit does not make any default associations for UCS-2 or UTF-8,
- but of course you may add or change associations to suit your needs
- and preferences by including the appropriate ASSOCIATE commands in
- your Kermit startup file. For example, if you are a PC user and deal
- only with text written in Greek and English, you can:
+ C-Kermit does not make any default associations for UCS-2 or UTF-8, but
+ of course you may add or change associations to suit your needs and
+ preferences by including the appropriate ASSOCIATE commands in your
+ Kermit startup file. For example, if you are a PC user and deal only
+ with text written in Greek and English, you can:
ASSOCIATE TRANSFER-CHARACTER-SET UTF8 CP869
ASSOCIATE TRANSFER-CHARACTER-SET UCS2 CP869
issue and does not effect the final result. (And is not, strictly
speaking, a bug; Kermit protocol presently includes no method for the
sender to furnish an "estimated transfer size" to the receiver, and in
- any case any such guess could be as far off as the file size, given
- the many other factors that come into play, such as compression and
+ any case any such guess could be as far off as the file size, given the
+ many other factors that come into play, such as compression and
prefixing).
A caution about FTP and UCS-2. As noted previously, if you transfer a
UCS-2 file with FTP in binary mode between two computers with opposite
- Endianness, the result will have its bytes in the wrong order.
- However, if you use FTP to transfer a UCS-2 file in "ascii" (text)
- mode to ANY computer, even if it is identical to yours, the result
- will be corrupted because FTP's line-terminator conversions do not
- account for UCS-2. The same holds when sending from a UCS-aware Kermit
- program to an older Kermit program in text mode with a transfer
- character-set of UCS-2. So use UCS-2 as a transfer character-set ONLY
- with a UCS-2-aware Kermit partner.
- _________________________________________________________________
+ Endianness, the result will have its bytes in the wrong order. However,
+ if you use FTP to transfer a UCS-2 file in "ascii" (text) mode to ANY
+ computer, even if it is identical to yours, the result will be
+ corrupted because FTP's line-terminator conversions do not account for
+ UCS-2. The same holds when sending from a UCS-aware Kermit program to
+ an older Kermit program in text mode with a transfer character-set of
+ UCS-2. So use UCS-2 as a transfer character-set ONLY with a UCS-2-aware
+ Kermit partner.
6.6.5.2. The TRANSLATE Command
In Kermit versions that have Unicode support included, TRANSLATE now
always goes through Unicode; that is, the source set is converted to
UCS-2 and thence to the target set. This is a major improvement, since
- in prior releases, C-Kermit had to pick the "most appropriate"
- transfer character-set as the intermediate set, and this would result
- in the loss of any characters that the source and target sets had in
- common but were lacking from the intermediate set (for example the OE
- digraph when translating from NeXT to DEC MCS through Latin-1). This
- never happens when Unicode is the intermediate set because Unicode is
- a superset of all other character sets supported by Kermit. A more
- dramatic example would be translation between Cyrillic PC code page
- 866 and KOI8-R ([546]Section 6.4); formerly all the line- and
- box-drawing characters would be lost (since ISO 8859-5 does not have
- any); now the ones that these two sets have in common are preserved.
+ in prior releases, C-Kermit had to pick the "most appropriate" transfer
+ character-set as the intermediate set, and this would result in the
+ loss of any characters that the source and target sets had in common
+ but were lacking from the intermediate set (for example the OE digraph
+ when translating from NeXT to DEC MCS through Latin-1). This never
+ happens when Unicode is the intermediate set because Unicode is a
+ superset of all other character sets supported by Kermit. A more
+ dramatic example would be translation between Cyrillic PC code page 866
+ and KOI8-R ([554]Section 6.4); formerly all the line- and box-drawing
+ characters would be lost (since ISO 8859-5 does not have any); now the
+ ones that these two sets have in common are preserved.
UCS-2 and UTF-8 are now both supported as source-file and
destination-file character sets by C-Kermit's TRANSLATE command, for
translate oofa.txt utf8 ucs2 oofa-ucs2.txt
Treatment of the UCS-2 BOM is exactly the same as for file transfer.
- Note that if a UCS-2 source file is in the "wrong" byte order and
- lacks a BOM, and you don't tell Kermit about it with SET FILE UCS
- BYTE-ORDER, the result of the translation is total gibberish. Recall
- that you can use COPY /SWAP-BYTES to switch the byte order of an
- errant UCS-2 file (or any other file for that matter, if you can think
- of a reason to). Also note that:
+ Note that if a UCS-2 source file is in the "wrong" byte order and lacks
+ a BOM, and you don't tell Kermit about it with SET FILE UCS BYTE-ORDER,
+ the result of the translation is total gibberish. Recall that you can
+ use COPY /SWAP-BYTES to switch the byte order of an errant UCS-2 file
+ (or any other file for that matter, if you can think of a reason to).
+ Also note that:
translate oofa.txt ucs2 ucs2 new.txt
- Produces a result in the native (or SET FILE UCS) byte-order as long
- as oofa.txt has a BOM.
+ Produces a result in the native (or SET FILE UCS) byte-order as long as
+ oofa.txt has a BOM.
As a side benefit of the Unicode work, the TRANSLATE command now works
for the first time also for all Japanese character sets that Kermit
UCS-2
UTF-8
- You can use the TRANSLATE command to convert to any other encoding
- from the same list.
- _________________________________________________________________
+ You can use the TRANSLATE command to convert to any other encoding from
+ the same list.
6.6.5.3. Terminal Connection
(a) it is not used that way anywhere to our knowledge, and (b) the
problems of Endianness and the high likelihood of loss of
synchronization make it impractical. (Telecommunications is
- byte-oriented; if one byte, or any odd number of bytes, is lost
- because of buffer overruns, circuit resets, etc (or likewise if a
- burst of noise appears that takes the guise of an odd number of
- bytes), the byte order of the subsequent data stream will be
- backwards; unlike UTF-8 and traditional byte-based character sets,
- UCS-2 is not "self synchronizing".)
+ byte-oriented; if one byte, or any odd number of bytes, is lost because
+ of buffer overruns, circuit resets, etc (or likewise if a burst of
+ noise appears that takes the guise of an odd number of bytes), the byte
+ order of the subsequent data stream will be backwards; unlike UTF-8 and
+ traditional byte-based character sets, UCS-2 is not "self
+ synchronizing".)
UTF-8 does not have byte-order or synchronization problems and is
growing in popularity as a terminal character set as well as in other
(or use the shortcut command, EIGHTBIT, which does all three at once).
- In a setup where your local Kermit program uses a single-byte
- character set such as PC Code Page 850 and the remote host uses UTF-8:
+ In a setup where your local Kermit program uses a single-byte character
+ set such as PC Code Page 850 and the remote host uses UTF-8:
SET TERM CHAR UTF8 CP850
SET TERM LOCAL CHAR CP850
all works as expected. UTF-8 text on the remote displays correctly on
- your screen, and when you type CP850 characters, they are translated
- to UTF-8 sequences for transmission, and the echo from the host is
+ your screen, and when you type CP850 characters, they are translated to
+ UTF-8 sequences for transmission, and the echo from the host is
translated from UTF-8 back to CP850. Telnet negotiations and
autodownload take place before any character-set translation and work
as before. The session log (if text mode was selected for it) contains
By the way, C-Kermit also allows UTF-8 to be the local end of the
terminal character-set, but so far this code is not tested, since we
- don't have a UTF-8 console or terminal to work with. However, it can
- be stated without doubt that C-Kermit's key mapping will not work for
- UTF-8 values, since (a) the key map is indexed by 8-bit byte values
- and (b) C-Kermit reads keystrokes a byte at a time (these comments do
- not apply to K95, which has direct access to the keyboard and can read
+ don't have a UTF-8 console or terminal to work with. However, it can be
+ stated without doubt that C-Kermit's key mapping will not work for
+ UTF-8 values, since (a) the key map is indexed by 8-bit byte values and
+ (b) C-Kermit reads keystrokes a byte at a time (these comments do not
+ apply to K95, which has direct access to the keyboard and can read
"wide" keycodes and uses them to index a "wide" keymap).
- Restrictions: As noted, the CONNECT command does not support UCS-2 as
- a REMOTE TERMINAL character-set. Neither does it support the Japanese
+ Restrictions: As noted, the CONNECT command does not support UCS-2 as a
+ REMOTE TERMINAL character-set. Neither does it support the Japanese
sets EUC-JP, JIS-7, and Shift-JIS. Support for the Japanese sets (and
possibly Chinese and Korean too) might be added in a future release.
- Since the TRANSMIT command (next section) uses the same REMOTE
- TERMINAL character-sets as the CONNECT command, it has the same
- restrictions.
- _________________________________________________________________
+ Since the TRANSMIT command (next section) uses the same REMOTE TERMINAL
+ character-sets as the CONNECT command, it has the same restrictions.
6.6.5.4. The TRANSMIT Command
- As described in Chapter 15 of [547]Using C-Kermit and [548]Section
- 4.21 of this document, the TRANSMIT command can be used to upload a
- file without protocol, more or less as if you were typing it on your
+ As described in Chapter 15 of [555]Using C-Kermit and [556]Section 4.21
+ of this document, the TRANSMIT command can be used to upload a file
+ without protocol, more or less as if you were typing it on your
keyboard while connected to the host. When TRANSMITting in text mode,
- the file's character set is converted to the host's unless you have
- SET TERMINAL CHARACTER-SET TRANSPARENT, or you include the new
- TRANSMIT switch, /TRANSPARENT.
+ the file's character set is converted to the host's unless you have SET
+ TERMINAL CHARACTER-SET TRANSPARENT, or you include the new TRANSMIT
+ switch, /TRANSPARENT.
Before C-Kermit 7.0, the file character-set was assumed to be the same
as the local end of the terminal character-set, and the TRANSMIT
- command used the same translations as the CONNECT command, ignoring
- the file character-set.
+ command used the same translations as the CONNECT command, ignoring the
+ file character-set.
In C-Kermit 7.0, that assumption (a poor one to begin with) can no
longer be made, since UCS-2 can be a file character-set but not a
[ A picture would help... ]
- Confused? Let's work through an example. Suppose your local computer
- is a NeXTstation, on which text files are encoded in the NeXT
- character set, and that the remote computer is a Data General AViiON,
- which uses the Data General International character set. Further
- suppose that you are logged in to the NeXT from a VT220 terminal which
- uses the DEC Multinational character set.
+ Confused? Let's work through an example. Suppose your local computer is
+ a NeXTstation, on which text files are encoded in the NeXT character
+ set, and that the remote computer is a Data General AViiON, which uses
+ the Data General International character set. Further suppose that you
+ are logged in to the NeXT from a VT220 terminal which uses the DEC
+ Multinational character set.
You need to convert the file from NeXT encoding to DG encoding and
convert the echoes from DG encoding to DEC encoding. So on the NeXT,
To further complicate matters, suppose your local terminal character
set is the same as the remote one, so you don't need terminal
- character-set translation, but you need to TRANSMIT a file that is in
- a different character set and you want it translated to the host set.
- In this case, use SET TERM CHARACTER-SET to actually specify the
- character set used on each end, rather than specifying TRANSPARENT:
+ character-set translation, but you need to TRANSMIT a file that is in a
+ different character set and you want it translated to the host set. In
+ this case, use SET TERM CHARACTER-SET to actually specify the character
+ set used on each end, rather than specifying TRANSPARENT:
eightbit
set file character-set ucs2
is new to C-Kermit 7.0, but affects only the TRANSMIT command.
The TRANSMIT command currently does nothing special with UCS-2/UTF-8
- Line and Paragraph Separator characters; more experience is required
- to find out how these behave in a genuine Unicode terminal-host
- setting.
+ Line and Paragraph Separator characters; more experience is required to
+ find out how these behave in a genuine Unicode terminal-host setting.
Restrictions: As noted, the TRANSMIT command translates from the FILE
character-set to the REMOTE TERMINAL character-set. This rules out
translations to any character set that is not supported as a REMOTE
TERMINAL character-set, such as UCS-2, EUC-JP, JIS-7, and Shift-JIS.
- _________________________________________________________________
6.6.5.5. Summary of Kermit Unicode Commands
TRANSLATE infile { ..., UCS-2, UTF-8 } { ..., UCS-2, UTF-8 }
outfile
COPY /SWAP-BYTES infile outfile
- _________________________________________________________________
6.7. Client/Server Character-Set Switching
REMOTE SET FILE CHARACTER-SET name
The client asks the server to change its file character-set to
the one given. The name must match one of the server's file
- character-set names. For convenience, C-Kermit uses its own
- file character-set keyword list for parsing this command so you
- can use ? for help and Tab or Esc for completion. However,
- since the server might have a different repertoire (or even use
- different names for the same sets), C-Kermit accepts any string
- you supply and sends it to the server. The server, if it
- supports this command (C-Kermit 7.0 and K95 1.1.19 do), sets
- its file character-set as requested, and also disables
- automatic character-set switching ([549]Section 6.5). If the
- server does not support this command or if it does not support
- the given character set, the REMOTE SET FILE CHARACTER-SET
- command fails.
+ character-set names. For convenience, C-Kermit uses its own file
+ character-set keyword list for parsing this command so you can
+ use ? for help and Tab or Esc for completion. However, since the
+ server might have a different repertoire (or even use different
+ names for the same sets), C-Kermit accepts any string you supply
+ and sends it to the server. The server, if it supports this
+ command (C-Kermit 7.0 and K95 1.1.19 do), sets its file
+ character-set as requested, and also disables automatic
+ character-set switching ([557]Section 6.5). If the server does
+ not support this command or if it does not support the given
+ character set, the REMOTE SET FILE CHARACTER-SET command fails.
Here's an example that sends a Japanese text file encoded in Shift-JIS
to a server using every combination of Kermit's Japanese-capable file
for \%j 1 \fdim(&f) 1 { ; for each remote file character-set...
remote set file char \&f[\%j] ; set it
if fail exit 1 SERVER REJECTED CHARSET
- send /text meibo-sj.html meibo-sj-\&y[\%i]-\&g[\%j].txt ; send the fi
-le
+ send /text meibo-sj.html meibo-sj-\&y[\%i]-\&g[\%j].txt ; send the fil
+e
if fail exit 1 TRANSFER FAILED
}
}
The Kermit-370 server does not support REMOTE SET FILE CHARACTER-SET,
but since it supports REMOTE KERMIT commands, you can get the same
effect with REMOTE KERMIT SET FILE CHARACTER-SET name.
- _________________________________________________________________
7. SCRIPT PROGRAMMING
- (Also see [550]Section 2.8, Scripting Local Programs.)
+ (Also see [558]Section 2.8, Scripting Local Programs.)
7.0. Bug Fixes
doubled.
* The READ command did not fail if the READ file wasn't open; now it
does.
- * The READ command refused to read the last or only line of a file
- if it did not end with a proper line terminator; now it does.
- * The END command, when given from within a SWITCH statement, did
- not exit from the current macro or command file; instead it just
+ * The READ command refused to read the last or only line of a file if
+ it did not end with a proper line terminator; now it does.
+ * The END command, when given from within a SWITCH statement, did not
+ exit from the current macro or command file; instead it just
terminated the SWITCH.
- _________________________________________________________________
7.1. The INPUT Command
7.1.1. INPUT Timeouts
The description of the INPUT command on page 422 fails to mention the
- following two points about the timeout (which apply to C-Kermit 6.0
- and later):
+ following two points about the timeout (which apply to C-Kermit 6.0 and
+ later):
1. "INPUT -1 text" (or "INPUT \%x text", where \%x is any variable
whose value is -1 or less) means "wait forever". This form of the
arrived but has not yet been read, and succeeds immediately if the
target string is found, or fails immediately if it is not found.
- The same points apply to MINPUT. REINPUT ignores its timeout
- parameter.
- _________________________________________________________________
+ The same points apply to MINPUT. REINPUT ignores its timeout parameter.
7.1.2. New INPUT Controls
The following new INPUT controls were added in version 7.0:
SET INPUT AUTODOWNLOAD { ON, OFF }
- Explained in [551]Section 7.7.
+ Explained in [559]Section 7.7.
SET INPUT CANCELLATION { ON, OFF }
This governs whether an INPUT command can be canceled by
- "pressing any key" on the keyboard. Normally it can be, in
- which case the INPUT command fails immediately and \v(instatus)
- is set to 2, indicating interruption. SET INPUT CANCELLATION
- OFF disables keyboard cancellations; thus if the search text is
- not encountered, the INPUT command will run for its entire
- timeout interval. SET INPUT CANCELLATION OFF does not disable
+ "pressing any key" on the keyboard. Normally it can be, in which
+ case the INPUT command fails immediately and \v(instatus) is set
+ to 2, indicating interruption. SET INPUT CANCELLATION OFF
+ disables keyboard cancellations; thus if the search text is not
+ encountered, the INPUT command will run for its entire timeout
+ interval. SET INPUT CANCELLATION OFF does not disable
interruption by Ctrl-C, however; every command needs an
emergency exit. (If you really want to disable interruption by
Ctrl-C, use SET COMMAND INTERRUPTION OFF.)
- Also see [552]Section 7.2 for any new variables related to INPUT.
- _________________________________________________________________
+ Also see [560]Section 7.2 for any new variables related to INPUT.
7.1.3. INPUT with Pattern Matching
C-Kermit 7.0 allows INPUT, MINPUT, and REINPUT targets to be a pattern
- (explained in [553]Sections 1.19 and [554]4.9). This solves a
+ (explained in [561]Sections 1.19 and [562]4.9). This solves a
long-standing problem illustrated by the following scenario: a certain
company has a bank of TCP/IP modem servers, with hostnames server1,
- server2, server3, and so on. Each server's prompt is its name,
- followed by a colon (:), for example "Server72:". Without INPUT
- patterns, it would be rather difficult to wait for the prompt. The
- brute force approach:
+ server2, server3, and so on. Each server's prompt is its name, followed
+ by a colon (:), for example "Server72:". Without INPUT patterns, it
+ would be rather difficult to wait for the prompt. The brute force
+ approach:
minput 20 Server1: Server2: Server3: ... (enumerating each one)
Server. Please read the following message:"...
With patterns, you can match the prompt with "Server*:" (which doesn't
- solve the "false positives" problem, but certainly is more compact
- than the brute force method), or with more specific patterns such as
+ solve the "false positives" problem, but certainly is more compact than
+ the brute force method), or with more specific patterns such as
"Server[1-9]:" and "Server[1-9][0-9]:", or equivalently:
Server{[1-9],[1-9][0-9]}:
digits representing a number from 1 to 99, followed by a colon.
INPUT pattern matching has been added in a way that does not interfere
- with existing scripts. No new commands or switches are used. The
- simple rule is: if an INPUT search target is the argument of the (new)
- \fpattern() function, it is a pattern. Otherwise it is taken
- literally, as before. For example:
+ with existing scripts. No new commands or switches are used. The simple
+ rule is: if an INPUT search target is the argument of the (new)
+ \fpattern() function, it is a pattern. Otherwise it is taken literally,
+ as before. For example:
input 5 a*b
input 5 \fpattern(a*b)
- searches for an 'a' followed by anything at all up to and including
- the first 'b'. This means that any search target to INPUT, MINPUT, or
+ searches for an 'a' followed by anything at all up to and including the
+ first 'b'. This means that any search target to INPUT, MINPUT, or
REINPUT can be a pattern or a literal string, and in particular that
MINPUT can accommodate any mixture of patterns and literal strings.
In selecting patterns, note that:
- * A leading '*' is always implied so there is no need to include
- one.
+ * A leading '*' is always implied so there is no need to include one.
* A trailing '*' is meaningless and ignored.
* A '*' by itself matches the first character that arrives.
A syntax note: If your pattern is a selection list, meaning a list of
- alternatives separated by commas and enclosed in braces, then the
- outer braces will be stripped by various levels of parsers, so you
- must include three of each:
+ alternatives separated by commas and enclosed in braces, then the outer
+ braces will be stripped by various levels of parsers, so you must
+ include three of each:
input 10 \fpattern({{{abc,mno,xyz}}})
is a limit on the size of the match. For example, if the pattern is
"a*b", the match will succeed if the 'a' and 'b' are not separated by
more than (say) 8K bytes, but will fail if they are farther apart than
- that. In such cases, it better to use two INPUTs (e.g. "input 10 a"
- and then "input 100 b").
- _________________________________________________________________
+ that. In such cases, it better to use two INPUTs (e.g. "input 10 a" and
+ then "input 100 b").
7.1.4. The INPUT Match Result
The result of any INPUT, MINPUT, or REINPUT command, no matter whether
- the search targets are patterns or literal strings, is available in
- the new \v(inmatch) variable. For example:
+ the search targets are patterns or literal strings, is available in the
+ new \v(inmatch) variable. For example:
minput 10 cat \fpattern([dh]og)
if success echo MINPUT matched "\v(inmatch)"
This is especially useful when a pattern was matched, since it makes
- the string that matched the pattern available to Kermit; there would
- be no way to get it otherwise.
+ the string that matched the pattern available to Kermit; there would be
+ no way to get it otherwise.
- After an INPUT command, you can view all the INPUT-related variables
- by typing "show variables in" (abbreviate as "sho var in"), which
- shows the values of all built-in variables whose names start with
- "in".
- _________________________________________________________________
+ After an INPUT command, you can view all the INPUT-related variables by
+ typing "show variables in" (abbreviate as "sho var in"), which shows
+ the values of all built-in variables whose names start with "in".
7.2. New or Improved Built-In Variables
The device name of C-Kermit's controlling (login) terminal.
\v(filename)
- Described in [555]Sections 4.1 and [556]4.2.
+ Described in [563]Sections 4.1 and [564]4.2.
\v(filenumber)
- Described in [557]Sections 4.1 and [558]4.2.
+ Described in [565]Sections 4.1 and [566]4.2.
\v(filespec)
As of C-Kermit 7.0, contains fully qualified filenames rather
URL most recently given to Web browser
\v(dialtype)
- Type of call most recently placed (see [559]Section 2.1.11).
+ Type of call most recently placed (see [567]Section 2.1.11).
\v(kbchar)
The character, if any, that was typed at the keyboard to to
otherwise "(unknown)".
\v(lockpid)
- UNIX only - PID of process that owns the communication port
- that you tried to open with a SET LINE command that failed
- because the port was in use, otherwise empty. This variable is
- set with every SET LINE command.
+ UNIX only - PID of process that owns the communication port that
+ you tried to open with a SET LINE command that failed because
+ the port was in use, otherwise empty. This variable is set with
+ every SET LINE command.
\v(cx_time)
If no connection (SET HOST, SET LINE, DIAL, TELNET, etc) is
- active, this is 0. If a connection is active, this is the
- number of seconds since the connection was made.
+ active, this is 0. If a connection is active, this is the number
+ of seconds since the connection was made.
\v(hwparity)
If hardware parity is in effect, this variable gives its value,
will be "none"). Otherwise this variable is empty.
\v(serial)
- Current serial port settings in 8N1 format ([560]Section 2.10).
+ Current serial port settings in 8N1 format ([568]Section 2.10).
\v(errno)
In UNIX, the current value of the C runtime errno variable,
which is quite volatile (meaning that often an "interesting"
error code can be overwritten by some other library call or
system service that sets errno before you have a chance to look
- at it). In VMS, the error code returned by the system or
- library call that most recently failed (success codes are not
- saved). Not available in other operating systems.
+ at it). In VMS, the error code returned by the system or library
+ call that most recently failed (success codes are not saved).
+ Not available in other operating systems.
\v(errstring)
The UNIX or VMS system error message that corresponds to
\v(errno). Not available in all OS's. Also see
- [561]\ferrstring().
+ [569]\ferrstring().
\v(setlinemsg)
The error message, if any, from the most recent SET LINE, SET
- PORT, SET HOST, TELNET, or other connection-making command.
- This is not necessarily the same as \v(errstring) since these
+ PORT, SET HOST, TELNET, or other connection-making command. This
+ is not necessarily the same as \v(errstring) since these
commands might fail without generating a system error code, for
example (in UNIX) because a lockfile existed indicating the
device was assigned by another user.
The exit status C-Kermit would return if it exited now.
\v(pexitstat)
- The exit status of the inferior process most recently invoked
- by C-Kermit (by RUN, !, REDIRECT, SEND /COMMAND, etc). In VMS,
- this code can be given to \ferrstring() to get the
- corresponding error message (in UNIX, program/command return
- codes are not the same as system error codes). Not available in
- operating systems other than UNIX and VMS. See [562]Section
- 4.2.5 for details.
+ The exit status of the inferior process most recently invoked by
+ C-Kermit (by RUN, !, REDIRECT, SEND /COMMAND, etc). In VMS, this
+ code can be given to \ferrstring() to get the corresponding
+ error message (in UNIX, program/command return codes are not the
+ same as system error codes). Not available in operating systems
+ other than UNIX and VMS. See [570]Section 4.2.5 for details.
\v(inmatch)
- The incoming string of characters, if any, that matched the
- most recent INPUT, REINPUT, or MINPUT command.
+ The incoming string of characters, if any, that matched the most
+ recent INPUT, REINPUT, or MINPUT command.
\v(intime)
The number of milliseconds (thousandths of seconds) it took for
recent INPUT command.
\v(dialsuffix)
- Dialing suffix for use during PDIAL sequence; see [563]Section
+ Dialing suffix for use during PDIAL sequence; see [571]Section
2.1.10.
\v(pid)
- UNIX, VMS, and K95 only. C-Kermit's primary process ID,
- numeric, decimal. If you want to show it in hex, use
- \fn2hex(\v(pid)) If you want to show it in octal, use
- \fn2octal(\v(pid)).
+ UNIX, VMS, and K95 only. C-Kermit's primary process ID, numeric,
+ decimal. If you want to show it in hex, use \fn2hex(\v(pid)) If
+ you want to show it in octal, use \fn2octal(\v(pid)).
\v(printer)
Current printer name or SET PRINTER value.
"Beta.14".
\v(sendlist)
- The number of entries in the SEND-LIST, 0 if none. Note:
- entries do not necessarily correspond to files, since an entry
- might contain wildcards. Also note that the value does not go
- back to 0 after the files in the list are sent. To reset this
- variable, use CLEAR SEND-LIST. The purpose of this variable is
- to determine if a SEND command, when given without any
- filenames, will be legal. Example:
+ The number of entries in the SEND-LIST, 0 if none. Note: entries
+ do not necessarily correspond to files, since an entry might
+ contain wildcards. Also note that the value does not go back to
+ 0 after the files in the list are sent. To reset this variable,
+ use CLEAR SEND-LIST. The purpose of this variable is to
+ determine if a SEND command, when given without any filenames,
+ will be legal. Example:
xif \v(sendlist) { send } else { send oofa.txt }
\v(name)
The name with which the Kermit program was invoked, e.g.
- "kermit", "wermit", "k95", "k2", etc (see [564]Section 9.1).
+ "kermit", "wermit", "k95", "k2", etc (see [572]Section 9.1).
\v(osname)
Name of operating system on computer where C-Kermit is running,
running, if known.
\v(math_pi)
- The value of Pi (see [565]Section 7.23)
+ The value of Pi (see [573]Section 7.23)
\v(math_e)
- The value of e (see [566]Section 7.23)
+ The value of e (see [574]Section 7.23)
\v(math_precision)
How many significant digits in a floating-point number.
Note the distinction between \v(osname), \v(osversion), and
\v(platform); the latter refers to the platform for which and/or upon
- which C-Kermit was built, as opposed to the one on which it is
- actually running. Also note that each operating system can, and
- probably will, interpret and fill in the os* variables differently, or
- not at all.
+ which C-Kermit was built, as opposed to the one on which it is actually
+ running. Also note that each operating system can, and probably will,
+ interpret and fill in the os* variables differently, or not at all.
The SHOW VARIABLES command now accepts a variable name, prefix, or
pattern:
show variables t Shows all variables that start with "t".
show variables *ver* Shows all variables whose names contain "ver".
show variables *ver Ditto (an implied "*" is appended).
- _________________________________________________________________
7.3. New or Improved Built-In Functions
- The following new file-i/o functions are explained in [567]Section
+ The following new file-i/o functions are explained in [575]Section
1.22.
\f_status(channel) Status of file open on channel
\f_putblock(channel,string) Write a block to given file
The following new date-time-related functions are explained in
- [568]Section 1.6:
+ [576]Section 1.6:
\fday() Returns day of week of given date
\fnday() Returns numeric day of week of given date
\fmjd2date(mjd) Converts modified Julian date to yyyymmdd
The new floating-point arithmetic functions are explained in
- [569]Section 7.23. f1 and f2 are floating-point (real) numbers; d is
+ [577]Section 7.23. f1 and f2 are floating-point (real) numbers; d is
the number of decimal places to show:
\ffpabsolute(f1,d) Absolute value of f1
If the string s is an integer in radix n1, the result is the
same number expressed in radix n2, where n1 and n2 may be any
number from 2 through 36, expressed as decimal numbers, or
- variables (etc) that evaluate to decimal numbers. For the
- source and result, the digits of any radix, r, are the first r
+ variables (etc) that evaluate to decimal numbers. For the source
+ and result, the digits of any radix, r, are the first r
characters in the sequence 0-9,a-z (case doesn't matter for the
letters). The string s may have a sign, + or -; if it starts
with a minus (-) sign, the result also has a minus sign.
does not reveal the internal storage format of a number; for example,
\fradix(-1,10,16) is -1, not something like FFFFFFFFFF. If all three
arguments are not given, or if n1 or n2 are not numbers between 2 and
- 36 inclusive, or s is not a number in radix n1, an error occurs and
- the empty string is returned. \fradix() also does not offer
+ 36 inclusive, or s is not a number in radix n1, an error occurs and the
+ empty string is returned. \fradix() also does not offer
extended-precision arithmetic; number values are limited to those
expressed as a long integer in the architecture of the underlying
computer, usually 32 or 64 bits. If you give it an argument whose
\fn2hex(n)
Returns the hexadecimal (base 16) representation of the integer
- n. This is different from \fhexify(s), which treats its
- argument as a string rather than a number. The result is always
+ n. This is different from \fhexify(s), which treats its argument
+ as a string rather than a number. The result is always
left-padded with 0's to make its length even. Examples:
\n2hex(0) = "00" \fhexify(0) = "30"
Equivalent to \fradix(n,10,8).
\foct2n(n)
- Returns the decimal representation of the given octal number,
- n. The inverse of \fn2octal(). Equivalent to \fradix(n,8,10).
+ Returns the decimal representation of the given octal number, n.
+ The inverse of \fn2octal(). Equivalent to \fradix(n,8,10).
String functions:
\s(name[n:m])
- Equivalent to \fsubstring(\m(name),n,m) ([570]Section 7.24).
+ Equivalent to \fsubstring(\m(name),n,m) ([578]Section 7.24).
\:(name[n:m])
Equivalent to \fsubstring(name,n,m) (where "name" is any
- \-quantity) ([571]Section 7.24).
+ \-quantity) ([579]Section 7.24).
\fleft(s,n)
The leftmost ncharacters of string s; equivalent to
\fstripn(12345678,3) = "12345"
(For more discussion of \fstripx(), \fstripn(), and \flop() see
- [572]Section 4.2.3).
+ [580]Section 4.2.3).
\fb64encode(s)
Returns the Base-64 encoding of the string s.
\fword(s1,n,s2,s3)
Extracts word number nfrom string s1. By default, a "word" is
- any sequence of ASCII letters or digits; nis 1-based. If nis
+ any sequence of ASCII letters or digits; nis 1-based. If n is
omitted, "1" is used. Examples:
\fword(one two three) = "one"
in other words, use the default separator list, but remove "$"
and "." from it so they will be considered part of a word.
+ Note that since 8-bit characters are not ASCII, they act as
+ break characters unless you put them in the include list.
+ Suppose, for example, you have a file in which each line is a
+ Tab-separated list of words, numbers, or phrases that might
+ contain punctuation, special characters like $ and @, 8-bit bit
+ characters, etc (like something that might have been exported
+ from a spreadsheet or database), and you want to split only on
+ Tab; here is a way (\m(line) is a line read from the file):
+
+undef keep
+for \%i 1 255 1 {
+ if == \%i 9 continue
+ .keep := \m(keep)\fchar(\%i)
+}
+while true {
+ fread /line \%c line
+ if fail break
+ .\%n := \fsplit(\m(line),&a,\9,\m(keep))
+ ...
+}
+
+ This problem is addressed in [581]C-Kermit 9.0.
+
\fsplit(s1,&a,s2,s3)
This is like \fword(), except instead of extracting and
returning a particular word from string s1, it counts the words
and optionally assigns them to the array whose identifying
- letter, a-z, is given after the "&" in the second argument,
- with the first word going into element 1, the second into
- element 2, and so on. The rules regarding break and include
- lists (s2 and s3) are exactly the same as for \fword().
- \fsplit() returns the number of words that were assigned, which
- is either the number of words in the string, or the dimension
- of the array, whichever is less. If the array is not declared,
- \fsplit() creates it and returns a number which is both the
- number of words in s1 and the dimension of the new array.
- Examples:
+ letter, a-z, is given after the "&" in the second argument, with
+ the first word going into element 1, the second into element 2,
+ and so on. The rules regarding break and include lists (s2 and
+ s3) are exactly the same as for \fword(). \fsplit() returns the
+ number of words that were assigned, which is either the number
+ of words in the string, or the dimension of the array, whichever
+ is less. If the array is not declared, \fsplit() creates it and
+ returns a number which is both the number of words in s1 and the
+ dimension of the new array. Examples:
declare \&w[20] ; (Optional.)
...
echo "\&w[7]" ; This would print "words".
If the line contained fields that were delimited by colon (:),
- you would use \fsplit(\%s,&w,:). If the fields were delimited
- by comma, then you would use \fsplit(\%s,&w,{,}); in this case
- the literal comma must be enclosed in braces to distinguish it
- from the comma that separates function arguments. To get a word
- count without loading an array, but still specify break and/or
- include lists, leave the array argument empty:
+ you would use \fsplit(\%s,&w,:). If the fields were delimited by
+ comma, then you would use \fsplit(\%s,&w,{,}); in this case the
+ literal comma must be enclosed in braces to distinguish it from
+ the comma that separates function arguments. To get a word count
+ without loading an array, but still specify break and/or include
+ lists, leave the array argument empty:
echo "\fsplit(\%s,,:)" ; Use colon as the separator.
dcl \&w[10]
\fsplit(1 2 3 4 5,&w) ; Sets \&w[1] thru \&w[5].
\fsplit(a b c,&w) ; Sets \&w[1]-[3] leaving [4]-[5] as they were.
+
2. If you allow \fsplit to create the array (by not declaring it
first), it is dimensioned to the number of elements it was
created with:
\fsplit(a b c d e,&x) ; This overflows the array.
Thus if you want to use \fsplit() repeatedly on the same array,
- either dimension it in advance to the maximum expected size
- (and then some -- more efficient), or else destroy it after
- each use (to allow for unexpectedly large arguments). Example
- using a dynamic array:
+ either dimension it in advance to the maximum expected size (and
+ then some -- more efficient), or else destroy it after each use
+ (to allow for unexpectedly large arguments). Example using a
+ dynamic array:
fopen /read \%c some-file
if fail ...
- set function error on ; See [573]Section 7.12
+ set function error on ; See [582]Section 7.12
while true {
dcl \&w[] ; Destroy \&[w] each time thru the loop
fread /line \%c \%a
fclose \%c
\frindex(s1,s2,n)
- The "n" argument to \frindex() now works consistently (in
- mirror image) with the corresponding \findex() argument. In
- each case, the (n-1)-most characters of s2 are ignored in the
- search; for findex, this means the starting position of the
- search is n (the default nis 1, and 0 is treated like 1). For
- \frindex() it means the default starting point is:
+ The "n" argument to \frindex() now works consistently (in mirror
+ image) with the corresponding \findex() argument. In each case,
+ the (n-1)-most characters of s2 are ignored in the search; for
+ findex, this means the starting position of the search is n (the
+ default n is 1, and 0 is treated like 1). For \frindex() it
+ means the default starting point is:
length(s2) - length(s1) - n (with the same defaults for n).
\fsearch(pattern,string[,position])
- Exactly like \findex(), except with a pattern (see [574]Section
+ Exactly like \findex(), except with a pattern (see [583]Section
7.9) rather than a literal string.
\frsearch(pattern,string[,position])
\ffiles(), \fnextfile()
It is no longer necessary to copy the file list to an array
- before use, as shown on p.398 of [575]Using C-Kermit 2nd
- Edition. \ffiles() and friends now make their own safe copies
- of the file list. Thus constructions like the following are now
+ before use, as shown on p.398 of [584]Using C-Kermit 2nd
+ Edition. \ffiles() and friends now make their own safe copies of
+ the file list. Thus constructions like the following are now
possible:
for \%i 1 \ffiles(*.txt) 1 { send \fnextfile() }
The same is true for the new function \frfiles(),
- \fdirectories(), and \frdirectories(), described in
- [576]Section 4.11.3.
+ \fdirectories(), and \frdirectories(), described in [585]Section
+ 4.11.3.
But note that each reference to \fnextfile() still gets you the
next file. So "if newer \fnextfile() foo.txt send \fnextfile()"
Also note that \ffiles(), \frfiles(), \fdirectories(), and
\frdirectories() all now accept on optional 2nd argument: the
name of an array to load with the resulting file or directory
- list, explained in [577]Section 4.11.3. So you can also load an
+ list, explained in [586]Section 4.11.3. So you can also load an
array with the filelist when you need to refer to the same file
more than once:
such as "-rw-rw-r--" in UNIX or "(RWE,RWE,RE,E)" in VMS.
\fdirname(f)
- Given a file specification f, this function returns the
- complete pathname of directory the file is in.
+ Given a file specification f, this function returns the complete
+ pathname of directory the file is in.
Array Functions:
\fdimension(&a)
Returns the dimension declared for the array whose identifying
- letter, a-z, or special character "_" or "@", is given after
- the "&" in the argument. If the array is not declared, 0 is
+ letter, a-z, or special character "_" or "@", is given after the
+ "&" in the argument. If the array is not declared, 0 is
returned. Note that when used with the macro argument vector
- array, \&_[] (see [578]Section 7.5), the value of this function
+ array, \&_[] (see [587]Section 7.5), the value of this function
is one less than \v(argc), and when used with the C-Kermit
command-line argument vector array, \&@[], it is equal to the
\v(args) variable. Examples:
The arrayname can include a range specifier to restrict to
search to a segment of the array, e.g.
\farraylook(*xyz*,&a[32:63]). For greater detail see
- [579]Section 7.10.7.
+ [588]Section 7.10.7.
\ftablelook(keyword,arrayname[,delimiter])
Looks in the given "table", which must be sorted, for the given
keyword. Returns the index of the table element that uniquely
matches the given keyword, or -1 if none match, or -2 if more
- than 1 match. For greater detail see [580]Section 7.10.7.
+ than 1 match. For greater detail see [589]Section 7.10.7.
Other new functions:
\fcommand()
\frawcommand()
These run an external command and return its output; see
- [581]Section 4.2.8.4.
+ [590]Section 4.2.8.4.
\fdialconvert(s)
s is a phone number in either literal or portable format (not a
dialing directory entry name). The function returns the dial
- string that would actually be used when dialing from the
- current location (after processing country code, area code, and
- other SET DIAL values).
+ string that would actually be used when dialing from the current
+ location (after processing country code, area code, and other
+ SET DIAL values).
\ferrstring(n)
Returns the system error message associated with the (numeric)
error code n. UNIX and VMS only. Use in conjunction with
- \v(errno) or \v(pexitstat). See [582]Section 4.2.5 for a usage
+ \v(errno) or \v(pexitstat). See [591]Section 4.2.5 for a usage
example. Note: This function doesn't work in Windows because
there is not a consistent error-code-to-message mapping; error
code "x" means something completely different depending on
strings that are to be treated as patterns rather than
literally.
- Also see [583]Section 7.8 on built-in help for functions.
- _________________________________________________________________
+ Also see [592]Section 7.8 on built-in help for functions.
7.4. New IF Conditions
IF != n1 n2 command
Executes the command if n1 and n2 are both numbers or variables
- containing numbers and the value of n1 is not equal to the
- value of n2. This is equivalent to "if not = n1 n2".
+ containing numbers and the value of n1 is not equal to the value
+ of n2. This is equivalent to "if not = n1 n2".
IF <= n1 n2 command
Executes the command if n1 and n2 are both numbers or variables
IF MATCH string pattern command
Executes the command if the string matches the pattern. For a
- description of the syntax for the pattern, see [584]Section
+ description of the syntax for the pattern, see [593]Section
4.9.1. If you want to test if the string contains pattern, use
IF \fsearch(pattern,string).
LOG commands).
IF QUIET command
- Executes the command if SET QUIET is ON, and does not execute
- it if SET QUIET is OFF. Example: IF NOT QUIET ECHO { This is a
+ Executes the command if SET QUIET is ON, and does not execute it
+ if SET QUIET is OFF. Example: IF NOT QUIET ECHO { This is a
message.}.
IF READABLE name
IF WRITEABLE name
Succeeds if name is the name of an existing file or directory
- that is writeable, e.g.:
+ that is writable, e.g.:
if not writeable \v(lockdir) echo Please read installation instructions!
IF MS-KERMIT command
MS-DOS Kermit, but not C-Kermit or Kermit 95, executes the
command.
- _________________________________________________________________
7.5. Using More than Ten Macro Arguments
- The \v(argc) variable now gives the actual number of arguments, even
- if the number is greater than 9:
+ The \v(argc) variable now gives the actual number of arguments, even if
+ the number is greater than 9:
C-Kermit> define xx echo \v(argc)
C-Kermit> xx a b c d e f g h i j k l m n o p q r s t u v w x y z
Remember that \v(argc) includes the name of the macro itself, so it is
always at least 1, and is always 1 greater than the actual number of
- arguments. As in versions 6.0 and earlier, if more than 9 arguments
- are given, only the first nine are assigned to the variables \%1..\%9.
+ arguments. As in versions 6.0 and earlier, if more than 9 arguments are
+ given, only the first nine are assigned to the variables \%1..\%9.
- The \&_[] array, discussed on page 353 of [585]Using C-Kermit, 2nd ed,
+ The \&_[] array, discussed on page 353 of [594]Using C-Kermit, 2nd ed,
now holds all the arguments, up to some implementation-dependent limit
(64 or greater), rather than only the first 9. To illustrate: the
following macro tells the number of arguments it was called with and
At top level, the \&_[] array is filled as follows:
* If the first argument on the C-Kermit command line was a filename,
- or C-Kermit was invoked from a "Kerbang" script ([586]Section
+ or C-Kermit was invoked from a "Kerbang" script ([595]Section
7.19), element 0 contains the filename, and elements 1 through
\v(argc)-1 hold the remaining command-line arguments.
* Otherwise the program name goes in element 0, and elements 1
- through \v(argc)-1 hold any arguments that were included after
- "--" or "="
+ through \v(argc)-1 hold any arguments that were included after "--"
+ or "="
- The new \%* variable, when used within a macro, is replaced by the
- text that followed the macro name in the macro invocation. If no
- arguments were given, \%* is replaced by the empty string. Examples:
+ The new \%* variable, when used within a macro, is replaced by the text
+ that followed the macro name in the macro invocation. If no arguments
+ were given, \%* is replaced by the empty string. Examples:
C-Kermit> define xx echo [\%*]
C-Kermit> define \%a oofa
xxx arg1 arg2 arg3
- Then inside XXX, \%1 is "arg1", \%2 is "arg2", and \%3 is "arg3".
- After a SHIFT command is given inside XXX, then \%1 is "arg2", \%2 is
- "arg3", and \%3 is empty. \%0 (the name of the macro) remains
- unchanged.
+ Then inside XXX, \%1 is "arg1", \%2 is "arg2", and \%3 is "arg3". After
+ a SHIFT command is given inside XXX, then \%1 is "arg2", \%2 is "arg3",
+ and \%3 is empty. \%0 (the name of the macro) remains unchanged.
If more than 9 arguments were given, then arguments are shifted into
the \%1..9 variables from the argument vector array.
At top level, the SHIFT command operates on the \&_[] array and \%1..9
- variables; the \&@[] array is not affected. See [587]Section 7.16 for
+ variables; the \&@[] array is not affected. See [596]Section 7.16 for
details.
The \%* variable is not affected by the SHIFT command.
- _________________________________________________________________
7.6. Clarification of Function Call Syntax
\fsubstring(ab,cd,2,2)
This would cause an error, since "cd" appears to be the second
- argument, when really you want the first "2" to be the second
- argument. Braces to the rescue:
+ argument, when really you want the first "2" to be the second argument.
+ Braces to the rescue:
\fsubstring({ab,cd},2,2) = "b,"
- Similarly, leading and trailing spaces are stripped from each
- argument, so:
+ Similarly, leading and trailing spaces are stripped from each argument,
+ so:
\fsubstring( abcd ,2,2) = "bc"
define \%a {{ab{cd}}
echo \fsubstring(\%a) = "ab{cd"
- _________________________________________________________________
7.7. Autodownload during INPUT Command Execution
The INPUT AUTODOWNLOAD setting is displayed by SHOW SCRIPTS or SHOW
INPUT.
- _________________________________________________________________
7.8. Built-in Help for Functions.
\fsubstring(), with the new HELP FUNCTION command; give the function's
name without the leading "\f", e.g. "help func substring". You can use
?, completion, and abbreviation in the normal manner.
- _________________________________________________________________
7.9. Variable Assignments
echo "\%a"
""
- Extra credit: Can you guess what happens below when the file "abc"
- does not exist?
+ Extra credit: Can you guess what happens below when the file "abc" does
+ not exist?
fopen /read \%c abc
if fail ...
- _________________________________________________________________
7.9.2. New Assignment Commands
ASSIGN \%a \%x ; Sets the value of the variable \%a to the "foo".
_ASSIGN x_\%a \%x ; Sets the value of the variable x_foo to "foo".
- This concept has been carried over to the remaining
- variable-assignment commands: EVALUATE, INCREMENT, and DECREMENT:
+ This concept has been carried over to the remaining variable-assignment
+ commands: EVALUATE, INCREMENT, and DECREMENT:
EVALUATE variablename expression
- Evaluates the arithmetic expression and assigns its value to
- the variable whose name is given. Example: "eval \%a 1+1"
- assigns "2" to \%a.
+ Evaluates the arithmetic expression and assigns its value to the
+ variable whose name is given. Example: "eval \%a 1+1" assigns
+ "2" to \%a.
_EVALUATE metaname expression
- Evaluates the arithmetic expression and assigns its value to
- the variable whose name is computed from the given metaname.
+ Evaluates the arithmetic expression and assigns its value to the
+ variable whose name is computed from the given metaname.
Example: "eval foo<\%a>::\%1 \%2 * (\%3 + \%4)" assigns the
value of "\%2 * (\%3 + \%4)" to the variable whose name is
computed from "foo<\%a>::\%1".
metaname. Example: "_increment Words::\%1.count[\%2]".
DECREMENT variablename [ expression ]
- Evaluates the arithmetic expression and subtracts its value
- from the value of the variable whose name is given.
+ Evaluates the arithmetic expression and subtracts its value from
+ the value of the variable whose name is given.
_DECREMENT metaname [ expression ]
- Evaluates the arithmetic expression and subtracts its value
- from the value of the variable whose name is computed from the
- given metaname.
+ Evaluates the arithmetic expression and subtracts its value from
+ the value of the variable whose name is computed from the given
+ metaname.
WARNING: The syntax of the EVALUATE command has changed since C-Kermit
6.0 and K95 1.1.17. Previously, it did not include a variable name,
only an expression. To restore the old behavior, use SET EVALUATE OLD.
- To return to the new behavior after restoring the old behavior, use
- SET EVALUATE NEW.
+ To return to the new behavior after restoring the old behavior, use SET
+ EVALUATE NEW.
NOTE: There are no analogs to the "_" commands for the operators
- described in [588]Section 7.9.1; those operators can not be used to
+ described in [597]Section 7.9.1; those operators can not be used to
assign values to variables whose names must be computed.
- _________________________________________________________________
7.10. Arrays
array clear &a[16:32] ; Ditto
array clear a[16:32] ; Ditto
- When using array names as function arguments, you must omit the "\"
- and you must include the "&". You may optionally include empty
- brackets. Examples:
+ When using array names as function arguments, you must omit the "\" and
+ you must include the "&". You may optionally include empty brackets.
+ Examples:
\fsplit(\%a,a) ; Bad
\fsplit(\%a,\&a) ; Bad
\fsplit(\%a,&a) ; Good
\fsplit(\%a,&a[]) ; Good
- _________________________________________________________________
7.10.1. Array Initializers
Initializers are (a) optional, (b) start with element 1, (c) must be
enclosed in braces if they contain spaces, and (d) are evaluated
according to normal rules by the DECLARE command prior to assignment.
- Thus the assignments made here are the same as those made by the
- ASSIGN command. This allows you to initialize array elements from the
- values of other variables. If you actually want to initialize an array
- element to variable's name, as opposed to its value, use double
- backslashes (as in "\\&a", "\\v(time)", etc).
+ Thus the assignments made here are the same as those made by the ASSIGN
+ command. This allows you to initialize array elements from the values
+ of other variables. If you actually want to initialize an array element
+ to variable's name, as opposed to its value, use double backslashes (as
+ in "\\&a", "\\v(time)", etc).
The size (dimension) of the array is optional. If the size is omitted,
as in "\&a[]", then the array sizes itself to the number of
initializers; if there are no initializers the array is not declared
- or, if it was declared previously, it is destroyed. If a size is
- given, any extra elements in the initialization list are discarded and
+ or, if it was declared previously, it is destroyed. If a size is given,
+ any extra elements in the initialization list are discarded and
ignored.
NOTE: Unlike in C, the list of initializers is NOT enclosed in braces.
Examples:
ARRAY DECLARE \&a[16]
- Declares the array \&a with 17 elements (0 through 16), in
- which all elements are initially empty. If the array \&a[]
- existed before, the earlier copy is destroyed.
+ Declares the array \&a with 17 elements (0 through 16), in which
+ all elements are initially empty. If the array \&a[] existed
+ before, the earlier copy is destroyed.
ARRAY DECLARE &a[16]
ARRAY DECLARE a[16]
ARRAY DECLARE \&a[] = \%1 \%2 \%3
Declares the array \&a with 3 elements (0 through 3),
initializing \&a[1] to the value of \%1, \&a[2] to the value of
- \%2, and \&a[3] to the value of \%3. In this case, any
- reference to one of these array elements is replaced by the
- value of the corresponding \%n variable at the time the
- declaration was executed (immediate evaluation; the array
- element's value does not change if the initializer variable's
- value changes).
+ \%2, and \&a[3] to the value of \%3. In this case, any reference
+ to one of these array elements is replaced by the value of the
+ corresponding \%n variable at the time the declaration was
+ executed (immediate evaluation; the array element's value does
+ not change if the initializer variable's value changes).
ARRAY DECLARE \&a[] = \\%1 \\%2 \\%3
Declares the array \&a with 3 elements (0 through 3),
Finally, remember that every command level has its own local array,
\&_[], containing all the macro arguments (\%0, \%1, ...) for that
- level. See [589]Section 7.5 for details.
- _________________________________________________________________
+ level. See [598]Section 7.5 for details.
7.10.2. Turning a String into an Array of Words
The \fsplit(s1,&a,s2,s3) function assigns the words of string s1 to
successive elements of the array (beginning with element 1) whose
- identifying letter, a-z, is given after the "&" in the second
- argument, using break and include characters given in s2 and s3. See
- [590]Section 7.3 for details.
- _________________________________________________________________
+ identifying letter, a-z, is given after the "&" in the second argument,
+ using break and include characters given in s2 and s3. See [599]Section
+ 7.3 for details.
7.10.3. Arrays of Filenames
- See [591]Section 4.11.3 for news about how \ffiles() and related
+ See [600]Section 4.11.3 for news about how \ffiles() and related
functions can assign a list of filenames to an array. To recapitulate
briefly here:
\ffiles(*,&a)
- assigns all files that match the first argument to the array denoted
- by the second argument. If the array has not been declared, it is
- declared automatically, with exactly the number of elements needed to
- hold the file list; if it was previously declared, it is destroyed and
- reused. The filenames are assigned starting at array element 1.
- Element 0 holds the number of files in the list.
+ assigns all files that match the first argument to the array denoted by
+ the second argument. If the array has not been declared, it is declared
+ automatically, with exactly the number of elements needed to hold the
+ file list; if it was previously declared, it is destroyed and reused.
+ The filenames are assigned starting at array element 1. Element 0 holds
+ the number of files in the list.
- The DIRECTORY command ([592]Section 4.5.1) can also create filename
+ The DIRECTORY command ([601]Section 4.5.1) can also create filename
arrays if you give it the /ARRAY: switch; this allows selection
criteria beyond whether the filename matches the given pattern.
- All functions and commands that create filename arrays store the
- number of filenames, n, as element 0 of the array, and the filenames
- as elements 1 through n.
- _________________________________________________________________
+ All functions and commands that create filename arrays store the number
+ of filenames, n, as element 0 of the array, and the filenames as
+ elements 1 through n.
7.10.4. Automatic Arrays
On the other hand, if you DECLARE an array at a lower command level
without also making it LOCAL, this replaces the copy that was declared
at the lowest command level above this one.
- _________________________________________________________________
7.10.5. Sorting Arrays
ARRAY SORT [ switches ] array [ array2 ]
Sorts the given array in place. Sorting is strictly lexical
- (string based). The array name can be given fully, e.g.
- "\&a[]", or the "\" and/or "&" and/or brackets can be omitted,
- e.g. "array sort \&a[]", "sort &a", "sort a". Also, a range can
- be indicated in the brackets as noted in [593]Section 7.10, to
+ (string based). The array name can be given fully, e.g. "\&a[]",
+ or the "\" and/or "&" and/or brackets can be omitted, e.g.
+ "array sort \&a[]", "sort &a", "sort a". Also, a range can be
+ indicated in the brackets as noted in [602]Section 7.10, to
restrict the sort to a range of elements (equivalent to the
/RANGE switch, described just below), e.g. "array sort
&a[20:30]".
- A second array may be specified. If it is, and if it is at least as
- big as the first array, it is sorted according to the first array. For
- a sample application, see [594]Section 7.10.10.
+ A second array may be specified. If it is, and if it is at least as big
+ as the first array, it is sorted according to the first array. For a
+ sample application, see [603]Section 7.10.10.
- See [595]Section 1.5 for an explanation of switches. The optional
+ See [604]Section 1.5 for an explanation of switches. The optional
switches are:
/CASE:{ON,OFF}
/CASE:ON means that alphabetic case is significant in
- comparisons; uppercase letters are sorted before lowercase
- ones. /CASE:OFF means case is ignored, e.g. "A" is the same as
- "a". If this switch is not given, sorting is according the
- current SET CASE setting.
+ comparisons; uppercase letters are sorted before lowercase ones.
+ /CASE:OFF means case is ignored, e.g. "A" is the same as "a". If
+ this switch is not given, sorting is according the current SET
+ CASE setting.
/KEY:n
Comparison begins at position n(1-based) in each string. If no
key position, skipping any leading blanks or tabs, and then as
much of the string from that point on that fits the definition
of "numeric", terminating at the first character that does not
- qualify. A numeric string has an optional sign (+ or -)
- followed by one or more digits, and (if your version of Kermit
- was built with floating-point support; see [596]Section 7.23 )
- zero or one decimal point (period). If both /CASE and /NUMERIC
- are given, /NUMERIC takes precedence.
+ qualify. A numeric string has an optional sign (+ or -) followed
+ by one or more digits, and (if your version of Kermit was built
+ with floating-point support; see [605]Section 7.23 ) zero or one
+ decimal point (period). If both /CASE and /NUMERIC are given,
+ /NUMERIC takes precedence.
/RANGE:n[:m]
Sort elements nthrough m of the array. By default, the entire
array from element 1 to its dimensioned size is sorted, which
might produce surprising results if the array is not full; see
- example in [597]Section 7.10.7. If ":m" is omitted from the
+ example in [606]Section 7.10.7. If ":m" is omitted from the
range, the dimensioned size is used. Thus, to sort an entire
- array, \&a[], including its 0th element, use "sort /range:0
- &a". You can also sort any desired section of an array, e.g.
- "sort /range:10:20 &a" or "sort /range:\%i:\%j-1 &b". As noted
- above, you can also specify a range in the array-name brackets.
- If you specify a range in the array-name brackets AND with a
- /RANGE switch, the ones in the brackets take precedence.
+ array, \&a[], including its 0th element, use "sort /range:0 &a".
+ You can also sort any desired section of an array, e.g. "sort
+ /range:10:20 &a" or "sort /range:\%i:\%j-1 &b". As noted above,
+ you can also specify a range in the array-name brackets. If you
+ specify a range in the array-name brackets AND with a /RANGE
+ switch, the ones in the brackets take precedence.
/REVERSE
- Sort in reverse order. If this switch is not given, the array
- is sorted in ascending order.
+ Sort in reverse order. If this switch is not given, the array is
+ sorted in ascending order.
Remember that numeric switch arguments can be numbers, arithmetic
expressions, or variables whose values are numbers or expressions, as
illustrated in the /RANGE examples above.
- A typical sorting application might be to list students' test scores
- in descending order. Suppose you had the following records:
+ A typical sorting application might be to list students' test scores in
+ descending order. Suppose you had the following records:
olaf 65
olga 98
xena 100
(and so on) stored in array \&s[] (e.g. by reading them from a file as
- illustrated in [598]section 7.10.7). In these records, the student's
- name is in columns 1-9 and the score in 10-12. So to rearrange the
- list in descending order of score:
+ illustrated in [607]section 7.10.7). In these records, the student's
+ name is in columns 1-9 and the score in 10-12. So to rearrange the list
+ in descending order of score:
sort /key:10 /reverse &s
ARRAY SORT /KEY:10 &a[] would order them 3,1,2, but ARRAY SORT /KEY:10
/NUMERIC &a[] would order them 2,1,3.
- _________________________________________________________________
7.10.6. Displaying Arrays
Example:
- assign \%n \ffiles(*,&a) ; Fill an array with filenames ([599]Section 4.11.3
-)
+ assign \%n \ffiles(*,&a) ; Fill an array with filenames ([608]Section 4.11.3)
show array \&a[] ; Show the array we just read
array show \&a[] ; Same as previous
array sort \&a[] ; Sort the array
If you SHOW ARRAY without giving an array name, all defined arrays are
listed by name and dimension, but their contents are not shown.
- You can also show a piece of an array by including a subscript or
- range within the array brackets:
+ You can also show a piece of an array by including a subscript or range
+ within the array brackets:
array show \&a[5] ; Shows \&a[5]
array show &a[3:8] ; Shows \&a[3] through \&a[8]
array show a[:\%n-1] ; Shows \&a[0] through \&a[\%n-1]
- _________________________________________________________________
7.10.7. Other Array Operations
ARRAY COPY array1 array2
Copies the first array to the second array. If the target array
- has not been declared, it is created automatically with the
- same size as the first. If it has been declared, it will be
- used as declared; if the source array is larger, only as much
- of it as will fit is copied to the target array. Syntax for
- array1 and array2 is as in ARRAY SHOW (SHOW ARRAY). Example:
+ has not been declared, it is created automatically with the same
+ size as the first. If it has been declared, it will be used as
+ declared; if the source array is larger, only as much of it as
+ will fit is copied to the target array. Syntax for array1 and
+ array2 is as in ARRAY SHOW (SHOW ARRAY). Example:
.\%n := \ffiles(*,&a) ; Create and load array A with a file list.
array copy &a &b ; Copy array A to array B.
creating \&b[] if necessary or, if \&b[] is already
declared, stopping early if its size is less than 14.
- ARRAY COPY \&a[17] \&b
+ ARRAY COPY \&a[17:] \&b
This copies all the elements of \&a[] starting with 17
until the last to \&b[], creating \&b[] if necessary or,
if \&b[] is already declared, stopping early if \&b[] is
- not big enough.
+ not big enough. Suppose, for example, you have a script
+ whose arguments are string1, string2, and a list of files,
+ whose job is to change all occurrences of string1 to
+ string2 in each of the files. But if the list of files is
+ omitted, then "*" (all files in the current directory) is
+ assumed:
+
+if < \v(argc) 3 exit 1 "Usage: \%0 string1 string2 [ files ]"
+if not def \%3 {
+ .n := \ffiles(*,&a)
+} else {
+ array copy &_[3:] &a
+ .n := \fdim(&a)
+}
+for i 1 n 1 {
+ ! cat \&a[i] | sed -e "s|\%1|\%2|g" > /tmp/_x
+ rename /tmp/_x \&a[i]
+}
+
+ ARRAY COPY \&a[17] \&b
+ Same as previous example.
ARRAY CLEAR arrayname
Sets all the elements of the array to the empty value. You may
ARRAY SET arrayname [ value ]
Sets all the elements of the array to the given value. If no
value is given, the array is cleared. You may also include a
- range specifier to set only a selected portion of the array;
- for example "array set \&a[1:9] -1". If the range is out of
- bounds, only the part of the array that is in bounds is set.
+ range specifier to set only a selected portion of the array; for
+ example "array set \&a[1:9] -1". If the range is out of bounds,
+ only the part of the array that is in bounds is set.
ARRAY RESIZE arrayname size
- Resizes the given array. If the size is greater than the
- array's current dimension, new empty elements are added to the
- end. If the size is less than the current dimension, the extra
- elements are discarded. Note: If you have stored the array size
- in element 0, ARRAY RESIZE does not change this value.
- Alternative notation: ARRAY RESIZE arrayname[size]. For a
- practical example, see [600]Section 7.10.11.
+ Resizes the given array. If the size is greater than the array's
+ current dimension, new empty elements are added to the end. If
+ the size is less than the current dimension, the extra elements
+ are discarded. Note: If you have stored the array size in
+ element 0, ARRAY RESIZE does not change this value. Alternative
+ notation: ARRAY RESIZE arrayname[size]. For a practical example,
+ see [609]Section 7.10.11.
\farraylook(pattern,arrayname)
This function returns the index of the first element of the
given array that matches the given pattern (for details about
- pattern syntax, see [601]section 4.9). The array name can
+ pattern syntax, see [610]section 4.9). The array name can
include a range specification to restrict the search to a given
segment of the array. If no elements match the pattern, -1 is
returned.
Looks in the given "table", which must be sorted, for the given
keyword. The keyword need not be spelled out in full.
Pattern-matching characters should not be included as part of
- the keyword. The function returns the index of the table
- element that uniquely matches the given keyword, or -1 if none
- match, or -2 if more than 1 match.
+ the keyword. The function returns the index of the table element
+ that uniquely matches the given keyword, or -1 if none match, or
+ -2 if more than 1 match.
A "table" is an array that is sorted in lexical order; each of its
elements may contain multiple fields, delimited by the given delimiter
performed; if there is a match, the matching element's index and the
element itself are printed, and the search begins again at the next
element. Thus each matching element is printed. If none match, the
- "Pattern not found" message is printed. The process repeats for as
- many patterns as the user wants to type, and terminates when the user
- types an empty pattern.
+ "Pattern not found" message is printed. The process repeats for as many
+ patterns as the user wants to type, and terminates when the user types
+ an empty pattern.
- Now let's build a little command parser, consisting of a keyword
- table, and a loop to look up the user's commands in it with
- \ftablelook(). In this case the array elements have "fields" separated
- by colon (:) -- a keyword and a value. Keyword tables must be sorted
- if \tablelook() is to work right, so after declaring and initializing
- the table array, we sort it.
+ Now let's build a little command parser, consisting of a keyword table,
+ and a loop to look up the user's commands in it with \ftablelook(). In
+ this case the array elements have "fields" separated by colon (:) -- a
+ keyword and a value. Keyword tables must be sorted if \tablelook() is
+ to work right, so after declaring and initializing the table array, we
+ sort it.
local \&k[] \%a \%i \%n
not be only one value -- there can be 0, 1, 2, or more of them). The
user types a command, which can be the whole word (like "help") or any
abbreviation (like "hel", "he", or just "h"). If this does not match
- any keywords, \ftablelook() returns -1; if it matches more than one
- (as would "d"), it returns -2. Otherwise the array index is returned,
- 1 or higher.
+ any keywords, \ftablelook() returns -1; if it matches more than one (as
+ would "d"), it returns -2. Otherwise the array index is returned, 1 or
+ higher.
Given the array index \%n, we can get the table values as follows:
fields separated by colon (:) (or other character that you specify,
e.g. \ftablelook(\%a,&a,^)) and when matching the keyword, ignores the
first delimiter and everything after it.
- _________________________________________________________________
7.10.8. Hints for Using Arrays
* An attempt to set the value of an array element that is out of
bounds or that has not been declared simply fails.
- C programmers expect an array of size nto have elements 0 through n-1.
- Fortran programmers expect the same array to have elements 1 through
- n. C-Kermit accommodates both styles; when you declare an array of
- size n, it has n=1 elements, 0 through n, and you can use the array in
- your accustomed manner, 0-based or 1-based.
+ C programmers expect an array of size n to have elements 0 through n-1.
+ Fortran programmers expect the same array to have elements 1 through n.
+ C-Kermit accommodates both styles; when you declare an array of size n,
+ it has n+1 elements, 0 through n, and you can use the array in your
+ accustomed manner, 0-based or 1-based.
However, note that C-Kermit has certain biases towards 1-based arrays:
- * Assignment of file lists starts with element 1 ([602]Section
+ * Assignment of file lists starts with element 1 ([611]Section
7.10.3).
- * Assignment by \fsplit() starts with element 1 ([603]Section 7.3).
- * Array initialization skips the 0th element. To initialize a
- 0-based array, use something like this:
+ * Assignment by \fsplit() starts with element 1 ([612]Section 7.3).
+ * Array initialization skips the 0th element. To initialize a 0-based
+ array, use something like this:
declare \&a[3] = one two three
.\&a[0] = zero
+
* The ARRAY SORT command skips the 0th element unless you include
/RANGE:0
* The SHIFT command ignores element 0 of the \&_[] array.
and since your write loop only had 95 iterations, the final 5 lines of
the sorted file are lost.
- Therefore, when dealing with partially filled arrays -- especially
- when sorting them -- remember to specify the number of elements. A
- handy way of recording an array's "true" size is to put it in the 0th
- element. That way, it "travels with the array". To illustrate
- (continuing the previous example at the "close read" statement):
+ Therefore, when dealing with partially filled arrays -- especially when
+ sorting them -- remember to specify the number of elements. A handy way
+ of recording an array's "true" size is to put it in the 0th element.
+ That way, it "travels with the array". To illustrate (continuing the
+ previous example at the "close read" statement):
close read
if > \%i \fdim(&a) end 1 File has too many lines for array.
}
close write
- Note the SORT switch, /RANGE:1:\&a[0]. This keeps the sort 1-based,
- and uses element 0 of the array as its size indicator.
+ Note the SORT switch, /RANGE:1:\&a[0]. This keeps the sort 1-based, and
+ uses element 0 of the array as its size indicator.
Finally, note that even though some commands or functions might put a
size in array element 0, no built-in functions or commands depend on a
size actually being there. Thus you are perfectly free to replace the
size with something else and treat the array as 0-based.
- _________________________________________________________________
7.10.9. Do-It-Yourself Arrays
higher-dimensioned arrays are not available.
But none of this is to say you can't invent any kind of data structure
- you like. In [604]Section 7.9.2 you can see some examples. Here's
+ you like. In [613]Section 7.9.2 you can see some examples. Here's
another (courtesy of Dat Thuc Nguyen), in which a pair of matrices is
created and then added: no dimensioning necessary.
pmatrix B ; Print Matrix B
pmatrix C ; Print Matrix C
- In the example, we use matrix-like notation to create macros with
- names like "A[1][1]", "B[3][7]", and so on.
- _________________________________________________________________
+ In the example, we use matrix-like notation to create macros with names
+ like "A[1][1]", "B[3][7]", and so on.
7.10.10. Associative Arrays
An associative array is a special kind of Do-It-Yourself array. It
- differs from a regular array in that its indices need not be numbers
- -- they can be anything at all -- words, filenames, names of months,
- any character string at all, and that it doesn't have to be (and in
- fact can't be) declared. An associative array element is simply a
- macro whose name ends with an index enclosed in angle brackets, for
- example:
+ differs from a regular array in that its indices need not be numbers --
+ they can be anything at all -- words, filenames, names of months, any
+ character string at all, and that it doesn't have to be (and in fact
+ can't be) declared. An associative array element is simply a macro
+ whose name ends with an index enclosed in angle brackets, for example:
file<oofa.txt>
that have the same basename. Any number of associative arrays, each
with any number of elements, can exist at the same time.
- An associative array element can be assigned a value, such as "1",
- just like any other macro:
+ An associative array element can be assigned a value, such as "1", just
+ like any other macro:
define file<oofa.txt> 1 ; Give "file<oofa.txt>" the value "1".
assign file<oofa.txt> \%a ; Give it the value of the variable \%a.
- However, since an associative array element is a macro, it may not
- have an empty (null) value, since assigning an empty value to a macro
+ However, since an associative array element is a macro, it may not have
+ an empty (null) value, since assigning an empty value to a macro
undefines the macro.
You can refer to the value of an associative array element using the
Associative arrays are most useful, however, when the value of the
index is a variable. In that case, you must use the "hidden" forms of
the DEFINE or ASSIGN commands that evaluate the macro name before
- making the assignment (see [605]Using C-Kermit, page 457). Example:
+ making the assignment (see [614]Using C-Kermit, page 457). Example:
define \%f oofa.txt
_define file<\%f> 1
file-transfer log in which each line is composed of a number of
blank-separated fields, and the 9th field is a filename (which happens
to be the format of certain FTP server logs, as well as of C-Kermit's
- new FTP-format transaction log, described in [606]Section 4.17.2), for
+ new FTP-format transaction log, described in [615]Section 4.17.2), for
example:
Wed Jul 14 09:35:31 1999 22 xx.mit.edu 13412 /pub/ftp/mm/intro.txt ....
counts for each file:
local name line max \%c \%n ; Declare local variables
- fopen /read \%c /var/log/ftpd.log ; Open the log file ([607]Section 1.22)
+ fopen /read \%c /var/log/ftpd.log ; Open the log file ([616]Section 1.22)
if fail exit 1 Can't open log ; Check
while true { ; Loop for each record
fread /line \%c line ; Read a line
how can you use it in a script program?
The idea of creating macro names that include character-string indices
- enclosed in angle brackets is perfectly arbitrary and doesn't depend
- on any Kermit features that weren't already there -- we could just as
+ enclosed in angle brackets is perfectly arbitrary and doesn't depend on
+ any Kermit features that weren't already there -- we could just as
easily have used some other notation, such as "file[index]",
"file:index", or "file.index", and the code above would have worked
just as well (with the corresponding syntax adjustments). But to be
- able to use an associative array in a program after the array is
- built, we need a method of accessing all its elements without knowing
- in advance what they are. That's where the chosen notation comes in.
+ able to use an associative array in a program after the array is built,
+ we need a method of accessing all its elements without knowing in
+ advance what they are. That's where the chosen notation comes in.
- First of all, any macro name that ends with "<xxx>" (where "xxx" is
- any string) is case sensitive, unlike all other macro names, which are
- case independent. To illustrate, "file<oofa.txt>" and "file<OOFA.TXT>"
- are two distinct macros, whereas "OOFA", "Oofa", and "oofa", when used
- as macro names, are all the same.
+ First of all, any macro name that ends with "<xxx>" (where "xxx" is any
+ string) is case sensitive, unlike all other macro names, which are case
+ independent. To illustrate, "file<oofa.txt>" and "file<OOFA.TXT>" are
+ two distinct macros, whereas "OOFA", "Oofa", and "oofa", when used as
+ macro names, are all the same.
Second, the new \faaconvert() function converts an associative array
- (that is, all macros with names of the form "base<index>" that have
- the same "base" part) into a pair of regular arrays and returns the
- number of elements:
+ (that is, all macros with names of the form "base<index>" that have the
+ same "base" part) into a pair of regular arrays and returns the number
+ of elements:
\faaconvert(name,&a[,&b])
- "name" is the name of the associative array, without the angle
- brackets or index ("file" in our example).
+ "name" is the name of the associative array, without the angle brackets
+ or index ("file" in our example).
The second argument is the name of a regular array in which to store
the indices of the associative array (filenames in our example); if an
array of this name already exists, it is destroyed unless the array is
- LOCAL. The third argument is the name of another regular array in
- which to store the values (the counts in our example), with the same
- rules about array name collisions. If you care only about the indices
- and not the values, you can omit the third argument to \faaconvert().
- In any case, the associative array is converted, not copied: its
- elements are moved to the specified regular arrays, so after
- conversion the original associative array is gone.
+ LOCAL. The third argument is the name of another regular array in which
+ to store the values (the counts in our example), with the same rules
+ about array name collisions. If you care only about the indices and not
+ the values, you can omit the third argument to \faaconvert(). In any
+ case, the associative array is converted, not copied: its elements are
+ moved to the specified regular arrays, so after conversion the original
+ associative array is gone.
As with other array-loading functions, \faaconvert() sets element 0 of
each array to the number of elements in the array.
This lists the files and counts and then announces which file has the
highest count.
- Now suppose you want to sort the array pair created from an
- associative array. In our example, \&a[] contains filenames, and \&b[]
- contains the associated counts. Here we take advantage of the ARRAY
- SORT command's ability to sort a second array according to the first
- one:
+ Now suppose you want to sort the array pair created from an associative
+ array. In our example, \&a[] contains filenames, and \&b[] contains the
+ associated counts. Here we take advantage of the ARRAY SORT command's
+ ability to sort a second array according to the first one:
array sort /reverse /numeric &b &a ; Descending sort by count
for \%i 1 5 1 { ; Loop through top 5 values
echo \flpad(\%i,3). \&a[\%i]: \&b[\%i] ; Echo this pair
}
- _________________________________________________________________
7.10.11. Transferring Array Contents to Other Computers
- The SEND /ARRAY:arrayname command ([608]Section 4.7.1) allows you to
+ The SEND /ARRAY:arrayname command ([617]Section 4.7.1) allows you to
send the contents of any array, or any contiguous segment of it, in
either text or binary mode to another computer, using Kermit protocol.
When used in conjunction with C-Kermit's other features (the array
features described in this section; the file i/o package from
- [609]Section 1.22; its decision-making, pattern-matching, and string
+ [618]Section 1.22; its decision-making, pattern-matching, and string
manipulation capabilities, and so on) the possibilities are endless:
extracts of large files, remote database queries, ..., all without
recourse to system-dependent mechanisms such UNIX pipes and filters,
thus ensuring cross-platform portability of scripts that use these
features.
- When sending an array in text mode, Kermit appends a line terminator
- to each array element, even empty ones, and it also converts the
- character set from your current FILE character-set to your current
- TRANSFER character-set, if any. No conversions are made or line
- terminations added in binary mode. For example, the following array:
+ When sending an array in text mode, Kermit appends a line terminator to
+ each array element, even empty ones, and it also converts the character
+ set from your current FILE character-set to your current TRANSFER
+ character-set, if any. No conversions are made or line terminations
+ added in binary mode. For example, the following array:
dcl \&a[] = One Two Three Four Five Six
You should always include a /TEXT or /BINARY switch in any SEND /ARRAY
command to force the desired transfer mode, otherwise you're likely to
- be surprised by the effects described in [610]Section 4.3.
+ be surprised by the effects described in [619]Section 4.3.
Here are some examples:
send /text /array:\&a[]
- Sends the entire contents of the array \&a[] in text mode.
- Since an as-name is not included, the receiver is told the
- filename is _array_a_.
+ Sends the entire contents of the array \&a[] in text mode. Since
+ an as-name is not included, the receiver is told the filename is
+ _array_a_.
send /text /array:&a[]
send /text /array:a[]
send /text /array:&a[100:199] /as:foo.bar
As above, but only the elements from 100 through 199 are sent.
- In text-mode transfers, character sets are translated according to
- your current settings, just as for text files. In binary mode, of
- course, there is no character-set translation or other conversion of
- any kind. But remember that array elements can not contain the NUL
- (ASCII 0) character, since they are implemented as NUL-terminated
- strings.
+ In text-mode transfers, character sets are translated according to your
+ current settings, just as for text files. In binary mode, of course,
+ there is no character-set translation or other conversion of any kind.
+ But remember that array elements can not contain the NUL (ASCII 0)
+ character, since they are implemented as NUL-terminated strings.
Here's an example that shows how to send all the lines (up to 1000 of
them) from a file animals.txt that contain the words "cat", "dog", or
- "hog" (see [611]Section 4.9 about pattern matching):
+ "hog" (see [620]Section 4.9 about pattern matching):
declare \&a[1000]
fopen /read \%c animals.txt
Kermit's (and the computer's) memory. If there are a thousand trillion
matching lines, they most likely will not fit in memory, and in this
case the only solution is to write them first to a temporary file on
- mass storage and then send the temporary file and delete it
- afterwards.
+ mass storage and then send the temporary file and delete it afterwards.
However, when the selection is likely to fit in memory, the
- once-familiar technique of initial allocation with extents can be
- used:
+ once-familiar technique of initial allocation with extents can be used:
if match {\m(line)} {*{cat,[dh]og}*} {
increment \%i
}
This grows the array in chunks of 100 as needed.
- _________________________________________________________________
7.11. OUTPUT Command Improvements
; Add filtering or processing commands here...
output \m(line)\13
}
- _________________________________________________________________
7.12. Function and Variable Diagnostics
In C-Kermit 6.0 and earlier, the only diagnostic returned by a failing
function call was an empty value, which (a) could not be distinguished
- from an empty value returned by a successful function call; (b) did
- not give any indication of the cause of failure; and (c) did not cause
- the enclosing statement to fail. C-Kermit 7.0 corrects these
- deficiencies.
+ from an empty value returned by a successful function call; (b) did not
+ give any indication of the cause of failure; and (c) did not cause the
+ enclosing statement to fail. C-Kermit 7.0 corrects these deficiencies.
SET FUNCTION DIAGNOSTICS { ON, OFF }
- when ON, allows built-in functions to return diagnostic
- messages when improperly referenced, instead of an empty
- string. FUNCTION DIAGNOSTICS are ON by default. When OFF,
- improperly referenced functions continue to return an empty
- string. This command also affects built-in variables; in this
- case, an error message is returned only if the variable does
- not exist. When FUNCTION DIAGNOSTICS are ON, the error message
- is also printed.
+ when ON, allows built-in functions to return diagnostic messages
+ when improperly referenced, instead of an empty string. FUNCTION
+ DIAGNOSTICS are ON by default. When OFF, improperly referenced
+ functions continue to return an empty string. This command also
+ affects built-in variables; in this case, an error message is
+ returned only if the variable does not exist. When FUNCTION
+ DIAGNOSTICS are ON, the error message is also printed.
For variables, the only message is:
<ERROR:message:\fname()>
- where "message" is replaced by a message, and "name" is replaced by
- the function name, e.g. <ERROR:ARG_NOT_NUMERIC:\fmod()>. Messages
- include:
+ where "message" is replaced by a message, and "name" is replaced by the
+ function name, e.g. <ERROR:ARG_NOT_NUMERIC:\fmod()>. Messages include:
ARG_BAD_ARRAY An argument contains a malformed array reference.
ARG_BAD_DATE An argument contains a malformed date and/or time.
FILE_NOT_ACCESSIBLE Filename argument names a file that is read-protected.
FILE_ERROR Other error with filename argument.
FILE_NOT_OPEN A file function was given a channel that is not open.
- FILE_ERROR_-n A file function got error -n ([612]Section 1.22).
+ FILE_ERROR_-n A file function got error -n ([621]Section 1.22).
LOOKUP_FAILURE Error looking up function (shouldn't happen).
MALLOC_FAILURE Failure to allocate needed memory (shouldn't happen).
NAME_AMBIGUOUS The function is not uniquely identified.
SHOW SCRIPTS displays the current FUNCTION DIAGNOSTICS and ERROR
settings.
- _________________________________________________________________
7.13. Return Value of Macros
In C-Kermit 7.0, the END number is available in the \v(return)
variable.
- _________________________________________________________________
7.14. The ASSERT, FAIL, and SUCCEED Commands.
The FAIL command does nothing, but always fails. The SUCCEED command
does nothing, but always succeeds.
- These commands are handy in debugging scripts when you want to induce
- a failure (or success) that normally would not occur, e.g. for testing
+ These commands are handy in debugging scripts when you want to induce a
+ failure (or success) that normally would not occur, e.g. for testing
blocks of code that normally are not executed.
- _________________________________________________________________
7.15. Using Alarms
SET ALARM number
Sets an alarm for the given number of seconds "from now", i.e.
- in the future, relative to when the SET ALARM command was
- given. Examples:
+ in the future, relative to when the SET ALARM command was given.
+ Examples:
set alarm 60 ; 60 seconds from now
set alarm +60 ; The same as "60"
set alarm 3pm ; 3:00:00pm
SHOW ALARM
- Displays the current alarm, if any, in standard date-time
- format (see [613]Section 1.6): yyyymmdd hh:mm:ss.
+ Displays the current alarm, if any, in standard date-time format
+ (see [622]Section 1.6): yyyymmdd hh:mm:ss.
IF ALARM command
- Executes the command if an alarm has been set and the alarm
- time has passed.
+ Executes the command if an alarm has been set and the alarm time
+ has passed.
IF ALARM { command-list } [ ELSE { command-list } ]
- Executes the command-list if an alarm has been set and the
- alarm time has passed. Otherwise, if an ELSE part is given, its
+ Executes the command-list if an alarm has been set and the alarm
+ time has passed. Otherwise, if an ELSE part is given, its
command-list is executed.
CLEAR ALARM
Only one alarm may be set at a time.
Example: Suppose you have a script that is always running, and that
- transfers files periodically, and that keeps a transaction log.
- Suppose you want to start a new transaction log each day:
+ transfers files periodically, and that keeps a transaction log. Suppose
+ you want to start a new transaction log each day:
log transactions \v(date).log
set alarm 00:00:00 ; Set an alarm for midnight
NOT clear an expired alarm. Thus, once an alarm has expired, every IF
ALARM will succeed until the alarm is cleared (with the CLEAR ALARM
command) or reset with a new SET ALARM command.
- _________________________________________________________________
7.16. Passing Arguments to Command Files
C-Kermit> take oofa.ksc one two {this is three} four
- This automatically sets the variables \%1 through \%9 to the
- arguments, and \%0 to the name of the file, in this case:
+ This automatically sets the variables \%1 through \%9 to the arguments,
+ and \%0 to the name of the file, in this case:
\%0 = /usr/olga/oofa.ksc
\%1 = one
\%4 = four
and \%5..\%9 are undefined (empty). Arguments past the ninth are
- available in the \&_[] argument-vector array ( [614]Section 7.5).
+ available in the \&_[] argument-vector array ( [623]Section 7.5).
The variables are those at the current macro level. Thus, if the TAKE
command is executed from within a macro, the macro's arguments are
invocations.
It would have been possible to change C-Kermit to use the overall
- command stack, rather than the macro stack, for arguments -- this
- would have made TAKE work exactly like DO, which is "nicer", but it
- would also have broken countless existing scripts. However, the new
- SHIFT command ([615]Section 7.5) makes it possible to create an
- alternative TAKE command that does indeed save and restore the
- argument variables at its own level around execution of a command
- file:
+ command stack, rather than the macro stack, for arguments -- this would
+ have made TAKE work exactly like DO, which is "nicer", but it would
+ also have broken countless existing scripts. However, the new SHIFT
+ command ([624]Section 7.5) makes it possible to create an alternative
+ TAKE command that does indeed save and restore the argument variables
+ at its own level around execution of a command file:
define mtake {
local \%f
kermit filename arg1 arg2 arg3 ...
in which arg1, arg2, arg3 (etc) are arguments for the script (whose
- filename is given), and are assigned to \%1, \%2, ... \%9. The
- filename is assigned to \%0. This applies equally to "Kerbang" scripts
- in UNIX ([616]Section 7.19). For example, suppose you have a file
- called "showargs" containing the following lines:
+ filename is given), and are assigned to \%1, \%2, ... \%9. The filename
+ is assigned to \%0. This applies equally to "Kerbang" scripts in UNIX
+ ([625]Section 7.19). For example, suppose you have a file called
+ "showargs" containing the following lines:
#!/usr/local/bin/kermit +
echo Hello from \%0
chmod +x showargs
- then you can run it exactly as you would run a UNIX shell script,
- e.g.:
+ then you can run it exactly as you would run a UNIX shell script, e.g.:
$ showargs one two three
Hello from /usr/olga/showargs
(allowing you to access arguments programmatically, and to have more
than 9 of them).
- At top level, notice the difference between the \&@[] and \&_[]
- arrays. The former includes C-Kermit options; the latter omits them.
- _________________________________________________________________
+ At top level, notice the difference between the \&@[] and \&_[] arrays.
+ The former includes C-Kermit options; the latter omits them.
7.17. Dialogs with Timed Responses
- The ASK, ASKQ, GETOK, and GETC commands (let's call them the
- "ASK-class commands") let you write scripts that carry on dialogs with
- the user, asking them for text, a Yes/No answer, or a character,
- respectively. Prior to C-Kermit 7.0, these questions would always wait
- forever for an answer. In C-Kermit 7.0, you may specify a time limit
- for them with the new command:
+ The ASK, ASKQ, GETOK, and GETC commands (let's call them the "ASK-class
+ commands") let you write scripts that carry on dialogs with the user,
+ asking them for text, a Yes/No answer, or a character, respectively.
+ Prior to C-Kermit 7.0, these questions would always wait forever for an
+ answer. In C-Kermit 7.0, you may specify a time limit for them with the
+ new command:
SET ASK-TIMER number
Sets a time-limit on ASK-CLASS commands to the given number of
IF ASKTIMEOUT command
An ASK-class command that times out returns a failure status.
You can test explicitly for a timeout with:
- _________________________________________________________________
7.18. Increased Flexibility of SWITCH Case Labels
Furthermore, after the case label is evaluated, it is treated not as a
string constant, but as a pattern against which the SWITCH variable is
- matched ([617]Section 4.9.1).
+ matched ([626]Section 4.9.1).
This introduces a possible incompatibility with previous releases,
since the following characters in case labels are no longer taken
Any scripts that previously included any of these characters in case
labels must now quote them with backslash (\).
- _________________________________________________________________
7.19. "Kerbang" Scripts
- In UNIX only, Kermit scripts can be stored in files and run
- "directly", without starting Kermit first (as noted on page 467 of the
- manual), just as a shell script can be "run" as if it were a program.
- This section amplifies on that idea a bit, and presents some new
- aspects of version 7.0 that make it easier to write and run Kermit
- scripts directly.
+ In UNIX only, Kermit scripts can be stored in files and run "directly",
+ without starting Kermit first (as noted on page 467 of the manual),
+ just as a shell script can be "run" as if it were a program. This
+ section amplifies on that idea a bit, and presents some new aspects of
+ version 7.0 that make it easier to write and run Kermit scripts
+ directly.
- NOTE: On non-UNIX platforms, such as VMS or Windows, Kerbang
- scripts can be run as "kermit + scriptfilename arg1 arg2 arg3 ...".
- Windows 95/98/NT file associations do not allow for the passing of
+ NOTE: On non-UNIX platforms, such as VMS or Windows, Kerbang scripts
+ can be run as "kermit + scriptfilename arg1 arg2 arg3 ...". Windows
+ 95/98/NT file associations do not allow for the passing of
parameters. In VMS, however, you can achieve the Kerbang effect by
defining a symbol, as in this example:
$ autotelnet xyzcorp.com myuserid
- See [618]Section 9.3 for an explanation of the "+" symbol.
+ See [627]Section 9.3 for an explanation of the "+" symbol.
- UNIX shell scripts can specify which shell should run them by
- including a "shebang" line at the top, e.g.:
+ UNIX shell scripts can specify which shell should run them by including
+ a "shebang" line at the top, e.g.:
#!/bin/sh
American slang word used in in the phrase "the whole shebang".
We can run Kermit scripts directly too, by including a "shebang" line
- that names Kermit as the "shell"; thus we call these "Kerbang"
- scripts. This mechanism has been considerably simplified in C-Kermit
- 7.0 to facilitate C-Kermit's use a scripting tool just like any of the
- UNIX shells or scripting languages. The rules are the same as for
- shell scripts:
+ that names Kermit as the "shell"; thus we call these "Kerbang" scripts.
+ This mechanism has been considerably simplified in C-Kermit 7.0 to
+ facilitate C-Kermit's use a scripting tool just like any of the UNIX
+ shells or scripting languages. The rules are the same as for shell
+ scripts:
1. The first line of the Kermit script must begin with "#!"
immediately followed by the full pathname of the program that will
line arguments available to the script, the final option should be
"+":
#!/usr/local/bin/kermit +
+
Some users have reported that in some circumstances a space might
be necessary after the plus sign; this depends on your shell -- it
has nothing to do with Kermit. In most cases, no space is needed.
you want it to be executed, include a TAKE command for it in the
script, e.g. "take \v(home).kermrc". (In previous releases, the
initialization file was always executed, with no way to prevent it
- except for the user to include Kermit-specific command line
- options which had nothing to do with the script). Many scripts
- have no need for the standard Kermit initialization file, which is
- quite lengthy and not only delays startup of the script, but also
- spews forth numerous messages that are most likely unrelated to
- the script.
+ except for the user to include Kermit-specific command line options
+ which had nothing to do with the script). Many scripts have no need
+ for the standard Kermit initialization file, which is quite lengthy
+ and not only delays startup of the script, but also spews forth
+ numerous messages that are most likely unrelated to the script.
2. If the initialization file is not executed, neither is your
customization file, since the initialization file is the command
file from which the customization file is TAKEn. Again, you can
include a TAKE command for the initialization file if desired, or
for the customization file by itself, or for any other file.
3. C-Kermit does not process command-line arguments at all. Instead,
- it passes all words on the command line after the "+" to the
- script as \%0 (the script name), \%1..\%9 (the first nine
- arguments), as well as in the argument vector array \&_[]. The
- variable \v(argc) is set to the total number of "words" (as passed
- by the shell to Kermit) including the script name. Quoting and
- grouping rules are those of the shell.
+ it passes all words on the command line after the "+" to the script
+ as \%0 (the script name), \%1..\%9 (the first nine arguments), as
+ well as in the argument vector array \&_[]. The variable \v(argc)
+ is set to the total number of "words" (as passed by the shell to
+ Kermit) including the script name. Quoting and grouping rules are
+ those of the shell.
4. At any point where the script terminates, it must include an EXIT
command if you want it to exit back to the shell; otherwise
C-Kermit enters interactive prompting mode when the script
}
exit 0
- Save this file as (say) "showargs", then give it execute permission
- and run it (the \&_[] array is the same as \%0..\%9, but allows you to
- refer to argument variables programmatically; see [619]Section 7.5).
+ Save this file as (say) "showargs", then give it execute permission and
+ run it (the \&_[] array is the same as \%0..\%9, but allows you to
+ refer to argument variables programmatically; see [628]Section 7.5).
(Yes, you could substitute SHOW ARGUMENTS for the loop.)
$ chmod +x showargs
since the command line is parsed by the shell before Kermit ever sees
it.
- Of course you can put any commands at all into a Kerbang script. It
- can read and write files, make connections, transfer files, anything
- that Kermit can do -- because it *is* Kermit. And of course, Kerbang
- scripts can also be executed from the Kermit prompt (or from another
- script) with a TAKE command; the Kerbang line is ignored since it
- starts with "#", which is a comment introducer to Kermit just as it is
- to the UNIX shell. In VMS and other non-UNIX platforms, the Kerbang
- line has no effect and can be omitted.
+ Of course you can put any commands at all into a Kerbang script. It can
+ read and write files, make connections, transfer files, anything that
+ Kermit can do -- because it *is* Kermit. And of course, Kerbang scripts
+ can also be executed from the Kermit prompt (or from another script)
+ with a TAKE command; the Kerbang line is ignored since it starts with
+ "#", which is a comment introducer to Kermit just as it is to the UNIX
+ shell. In VMS and other non-UNIX platforms, the Kerbang line has no
+ effect and can be omitted.
- It might be desireable for a script to know whether it has been
- invoked directly from the shell (as a Kerbang script) or by a TAKE
- command given to the Kermit prompt or in a Kermit command file or
- macro. This can be done as in this example:
+ It might be desirable for a script to know whether it has been invoked
+ directly from the shell (as a Kerbang script) or by a TAKE command
+ given to the Kermit prompt or in a Kermit command file or macro. This
+ can be done as in this example:
#!/usr/local/bin/kermit +
assign \%m \fbasename(\%0)
define usage { exit 1 {usage: \%m phonenumber message} }
- define apage { (definition of APAGE...) } ; (See [620]book pp.454-456)
+ define apage { (definition of APAGE...) } ; (See [629]book pp.454-456)
xif equal "\%0" "\v(cmdfil)" {
if not def \%1 usage
if not def \%2 usage
exit \v(status)
}
- In a Kerbang script, \%0 and \v(cmdfile) are the same; both of them
- are the name of the script. When a script is invoked by a Kermit TAKE
+ In a Kerbang script, \%0 and \v(cmdfile) are the same; both of them are
+ the name of the script. When a script is invoked by a Kermit TAKE
command, \%0 is the name of the Kermit program, but \v(cmdfile) is the
name of the script. In the example above, a macro called APAGE is
defined. If the script was invoked directly, the APAGE macro is also
An especially handy use for Kerbang scripts is to have the
initialization file itself be one. Since the standard initialization
- file is rather long and time-consuming to execute, it is often
- overkill if you want to start Kermit just to transfer a file. Of
- course there are command-line switches to suppress initialization-file
- execution, etc, but another approach is to "run" the initialization
- file when you want its features (notably the services directory), and
- run C-Kermit directly when you don't. A setup like this requires that
- (a) the C-Kermit initialization file is configured as a Kerbang script
- (has #!/path.../kermit as first line), has execute permission, and is
- in your PATH; and (b) that you don't have a .kermrc file in your login
+ file is rather long and time-consuming to execute, it is often overkill
+ if you want to start Kermit just to transfer a file. Of course there
+ are command-line switches to suppress initialization-file execution,
+ etc, but another approach is to "run" the initialization file when you
+ want its features (notably the services directory), and run C-Kermit
+ directly when you don't. A setup like this requires that (a) the
+ C-Kermit initialization file is configured as a Kerbang script (has
+ #!/path.../kermit as first line), has execute permission, and is in
+ your PATH; and (b) that you don't have a .kermrc file in your login
directory.
- _________________________________________________________________
7.20. IF and XIF Statement Syntax
7.20.1. The IF/XIF Distinction
The distinction between IF and XIF is no longer important as of
- C-Kermit 7.0. You should be able to use IF in all cases (and of
- course, also XIF for backwards compatibility). In the past, IF was
- used for single-command THEN parts, followed optionally by a separate
- ELSE command:
+ C-Kermit 7.0. You should be able to use IF in all cases (and of course,
+ also XIF for backwards compatibility). In the past, IF was used for
+ single-command THEN parts, followed optionally by a separate ELSE
+ command:
IF condition command1 ; THEN part
ELSE command2 ; ELSE part
ELSE command-list
in which the ELSE part is optional, and where command-list can be a
- single command (with or without braces around it) or a list of
- commands enclosed in braces. Examples:
+ single command (with or without braces around it) or a list of commands
+ enclosed in braces. Examples:
Example 1:
Example 5 (ELSE can be followed by another command):
- IF condition {
+ IF condition1 {
command1
command2
- } ELSE IF condition {
+ } ELSE IF condition2 {
command3
command4
} ELSE {
(The loop variable must be quoted in this context to prevent premature
evaluation.)
- _________________________________________________________________
+
+ Many C programmers prefer to code IF-ELSE, WHILE, FOR, and SWITCH with
+ the block-open bracket on its own line. This does not work in Kermit:
+
+ IF condition ; THIS FORMAT DOES NOT NOT WORK
+ {
+ command1
+ command2
+ }
+ ELSE
+ {
+ command3
+ command4
+ }
+
+ Explanation: the Kermit command language is line oriented; each line is
+ a command, each command is a line. The first line above, having no hint
+ of continuation, is an incomplete command, yet syntactically correct --
+ an IF statement with an empty THEN part. Interestingly enough, since
+ the next line begins with "{" it is a block that (in [630]C-Kermit 8.0
+ and later) is a block that is executed unconditionally. Thus the
+ commands in the THEN part are executed regardless of whether the
+ condition is true -- not what you wanted!
+
+ The new block syntax used in the IF, WHILE, FOR, and SWITCH commands
+ employs certain tricks to allow multiple lines to be treated as a
+ single line:
+
+ * Any line ending with "{" (ignoring whitespace and comments) marks
+ the beginning of a block;
+ * Any line beginning with "}" (ignoring whitespace) marks the end of
+ a block;
+ * Line breaks within a block separate commands; the comma is implied
+ by the line end.
+
+ Thus:
+
+ IF condition {
+ command1
+ command2
+ } ELSE {
+ command3
+ command4
+ }
+
+ is "assembled" into:
+
+ IF condition { command1, command2 } ELSE { command3, command4 }
+
+ Note the addition of commas to separate commands within blocks. As
+ always, if you need continue a command onto additional lines, you can
+ end the continued lines with the continuation character, "-". You can
+ also do this if you want to put opening brackets on their own line:
+
+ IF condition -
+ {
+ command1
+ command2
+ }
+ ELSE -
+ {
+ command3
+ command4
+ }
7.20.2. Boolean Expressions (The IF/WHILE Condition)
- Prior to C-Kermit 7.0, the IF and WHILE commands accepted only a
- single Boolean ("true or false") assertion, e.g. "if > \%m 0 command"
- or "if exist filename command". There was no way to form Boolean
- expressions and, in particular, nothing that approached a Boolean OR
- function (AND could be simulated by concatenating IF statements: "if
- condition1 if condition2..").
+ Prior to C-Kermit 7.0, the IF and WHILE commands accepted only a single
+ Boolean ("true or false") assertion, e.g. "if > \%m 0 command" or "if
+ exist filename command". There was no way to form Boolean expressions
+ and, in particular, nothing that approached a Boolean OR function (AND
+ could be simulated by concatenating IF statements: "if condition1 if
+ condition2..").
C-Kermit 7.0 (and K95 1.1.19) allow grouping of Boolean assertions
using parentheses and combining them using AND (or &&) and OR (or ||).
resulting Boolean expression is evaluated afterwards according to
the rules of precedence. All Boolean assertions are always
evaluated; there is no "early stopping" property and therefore no
- question about when or if side effects will occur -- if any
- Boolean assertion has side effects, they will always occur.
+ question about when or if side effects will occur -- if any Boolean
+ assertion has side effects, they will always occur. (Early stopping
+ is, however, possible with the [631]S-Expression IF introduced in
+ C-Kermit 8.0.)
Constructions of arbitrary complexity are possible, within reason.
- Also see [621]Section 7.4 for new IF / WHILE conditions.
- _________________________________________________________________
+ Also see [632]Section 7.4 for new IF / WHILE conditions.
7.21. Screen Formatting and Cursor Control
SCREEN { CLEAR, CLEOL, MOVE-TO row [ column ] }
Performs screen-formatting actions. Correct operation of these
commands depends on proper terminal setup on both ends of the
- connection -- mainly that the host terminal type is set to
- agree with the kind of terminal or the emulation you are
- viewing C-Kermit through. The UNIX version uses terminfo or
- termcap (not curses); the VMS version uses SMG; K-95 uses its
- built in screen manager.
+ connection -- mainly that the host terminal type is set to agree
+ with the kind of terminal or the emulation you are viewing
+ C-Kermit through. The UNIX version uses terminfo or termcap (not
+ curses); the VMS version uses SMG; K-95 uses its built in screen
+ manager.
SCREEN CLEAR
Moves the cursor to home position and clears the entire screen.
SCREEN MOVE-TO row column
Moves the cursor to the indicated row and column. The row and
column numbers are 1-based, so on a 24x80 screen the home
- position is 1 1 and the lower right corner is 24 80. If a row
- or column number is given that too large for what Kermit or the
+ position is 1 1 and the lower right corner is 24 80. If a row or
+ column number is given that too large for what Kermit or the
operating system thinks is your screen size, the appropriate
number is substituted.
These escape sequences used by these commands depends on the platform.
In UNIX, your TERM environment variable is used to query the
- terminfo/termcap database; if the query fails, ANSI/VT100 sequences
- are used. In VMS, the SMG library is used, which sends sequences based
- on your VMS terminal type. K95 does its own screen control. On other
+ terminfo/termcap database; if the query fails, ANSI/VT100 sequences are
+ used. In VMS, the SMG library is used, which sends sequences based on
+ your VMS terminal type. K95 does its own screen control. On other
platforms (such as AOS/VS, VOS, etc), screen formatting is not
supported, and the SCREEN command does nothing.
Similar scripts can work over the communication connection; substitute
INPUT and OUTPUT for GETC and ECHO/XECHO.
- _________________________________________________________________
7.22. Evaluating Arithmetic Expressions
Prefix "!"
This operator inverts the "truth value" of the number or
arithmetic expression that follows. If the value of the operand
- is 0, the result is 1. If the value is nonzero, the result is
- 0.
+ is 0, the result is 1. If the value is nonzero, the result is 0.
Examples:
evaluate !(!(\%a&\%b))
0
- Note the distinction between Prefix ! (invert truth value) and Suffix
- ! (factorial). Also the distinction between Prefix ! and Prefix ~
- (which inverts all the bits in its operand). Also note that prefix
- operators (!, -, and ~) can not be adjacent unless you use parentheses
- to separate them, as shown in the final example above.
- _________________________________________________________________
+ Note the distinction between Prefix ! (invert truth value) and Suffix !
+ (factorial). Also the distinction between Prefix ! and Prefix ~ (which
+ inverts all the bits in its operand). Also note that prefix operators
+ (!, -, and ~) can not be adjacent unless you use parentheses to
+ separate them, as shown in the final example above.
7.23. Floating-Point Arithmetic
+ For a more convenient way of dealing with floating-point numbers
+ than the one described here, see the [633]C-Kermit 8.0 update notes,
+ the section on [634]S-Expressions.
+
C-Kermit 7.0 adds limited support for floating-point numbers (numbers
- that have fractional parts, like 3.141592653). This support is
- provided through a small repertoire of functions and in Boolean
- expressions that compare numbers, but does not apply to number parsing
- in general, or to expression evaluation, array subscripts, the
- INCREMENT and DECREMENT commands, or in any context other than those
- listed in this section.
+ that have fractional parts, like 3.141592653). This support is provided
+ through a small repertoire of functions and in Boolean expressions that
+ compare numbers, but does not apply to number parsing in general, or to
+ expression evaluation, array subscripts, the INCREMENT and DECREMENT
+ commands, or in any context other than those listed in this section.
A floating point number has an optional sign (+ or -), followed by a
series of decimal digits containing either zero or one period (.)
if not float \%f stop 1 Invalid floating-point number: "\%f"
C-Kermit's floating-point support, like its support for whole numbers
- (integers), relies on the capabilities of the underlying computer.
- Your computer has only a limited amount of precision for numbers,
- depending on its architecture. Thus floating-point numbers that have
- too many digits will not be accurate; adding a very small number to a
- very large one might have no effect at all; and so on. For details,
- read a text on numerical analysis. Example:
+ (integers), relies on the capabilities of the underlying computer. Your
+ computer has only a limited amount of precision for numbers, depending
+ on its architecture. Thus floating-point numbers that have too many
+ digits will not be accurate; adding a very small number to a very large
+ one might have no effect at all; and so on. For details, read a text on
+ numerical analysis. Example:
.\%a = 11111111111111111111 ; A long number
.\%b = 22222222222222222222 ; Another one
\ffpdiv(10,3,-1) returns "3".
- If the decimal-places argument is 0, or is omitted, C-Kermit returns
- as many decimal places as are meaningful in the computer's
- floating-point precision, truncating any extraneous trailing 0's:
+ If the decimal-places argument is 0, or is omitted, C-Kermit returns as
+ many decimal places as are meaningful in the computer's floating-point
+ precision, truncating any extraneous trailing 0's:
\ffpdiv(10,8) returns "1.25".
\ffpdiv(10,4) returns "2.5".
f1 power.
\ffplogn(f1,d)
- The natural logarithm of f1 (the power to which e must be
- raised to obtain f1).
+ The natural logarithm of f1 (the power to which e must be raised
+ to obtain f1).
\ffplog10(f1,d)
The base-10 logarithm of f1 (the power to which 10 must be
\ffptangent(f1,d)
Returns the tangent of f1 radians.
- Note that all of these functions can be used with integer arguments.
- If you want an integer result, specify d = -1 (to truncate) or feed
- the result to \ffpround(xxx,0) (to round).
+ Note that all of these functions can be used with integer arguments. If
+ you want an integer result, specify d = -1 (to truncate) or feed the
+ result to \ffpround(xxx,0) (to round).
- Floating-point numbers (or variables or functions that return them)
- can be used in Boolean expressions (see [622]Section 7.20.2) that
- compare numbers:
+ Floating-point numbers (or variables or functions that return them) can
+ be used in Boolean expressions (see [635]Section 7.20.2) that compare
+ numbers:
= x y
!= x y
In these examples, x and y can be either integers or floating-point
numbers in any combination. In an arithmetic comparison of an integer
- and a floating-point number, the integer is converted to
- floating-point before the comparison is made. Examples:
+ and a floating-point number, the integer is converted to floating-point
+ before the comparison is made. Examples:
.\%t = 3.000000000
.\%f = 3.141592653
and is executed otherwise.
Floating-point numbers can be sorted using ARRAY SORT /NUMERIC (see
- [623]Section 7.10.5 ).
+ [636]Section 7.10.5 ).
Two floating-point constants are provided:
\v(math_precision)
How many significant digits in a floating-point number.
- _________________________________________________________________
7.24. Tracing Script Execution
Selects tracing of the given object.
Optional switches are /ON and /OFF. If no switch is given, /ON is
- implied. The trace objects are ASSIGNMENTS, COMMAND-LEVEL, and ALL.
- The default object is ALL, meaning to select all trace objects
- (besides ALL). Thus TRACE by itself selects tracing of everything, as
- does TRACE /ON, and TRACE /OFF turns off all tracing.
+ implied. The trace objects are ASSIGNMENTS, COMMAND-LEVEL, and ALL. The
+ default object is ALL, meaning to select all trace objects (besides
+ ALL). Thus TRACE by itself selects tracing of everything, as does TRACE
+ /ON, and TRACE /OFF turns off all tracing.
When tracing of ASSIGNMENTS is on, every time the value of any
user-defined variable or macro changes, C-Kermit prints one of the
of the macro is shown in quotes.
[n] -F: "name"
- Whenever a command file is reentered from below, when a macro
- or command file that it has invoked has returned.
+ Whenever a command file is reentered from below, when a macro or
+ command file that it has invoked has returned.
[n] -M: "name"
Whenever a macro is reentered from below.
For other debugging tools, see SHOW ARGS, SHOW STACK, SET TAKE, SET
MACRO, and of course, ECHO.
- _________________________________________________________________
7.25. Compact Substring Notation
it is omitted, or less than 1, it is treated as 1. If it is greater
than the length of the string, an empty string is returned.
- The second number is the length of the desired substring. If the
- second number is omitted, is less than 0, or would be past the end of
- the string, then "through the end of the string" is assumed. If it is
- 0, the empty string is returned.
+ The second number is the length of the desired substring. If the second
+ number is omitted, is less than 0, or would be past the end of the
+ string, then "through the end of the string" is assumed. If it is 0,
+ the empty string is returned.
If the brackets are empty or omitted, the original string is returned.
Syntactically, \m(name) and \s(name) differ only in that the sequence
[*] at the end of the name (where * is any sequence of 0 or more
characters) is treated as substring notation in \s(name), but is
- considered part of the name in \m(name) (to see why, see [624]Section
+ considered part of the name in \m(name) (to see why, see [637]Section
7.10.9).
- _________________________________________________________________
7.26. New WAIT Command Options
- The WAIT command has been extended to allow waiting for different
- kinds of things (formerly it only waited for modem signals). Now it
- also can wait for file events.
+ The WAIT command has been extended to allow waiting for different kinds
+ of things (formerly it only waited for modem signals). Now it also can
+ wait for file events.
7.26.1. Waiting for Modem Signals
However, the previous syntax is still accepted. The behavior is the
same in either case.
- _________________________________________________________________
7.26.2. Waiting for File Events
lets you tell Kermit to wait the given amount of time (or until the
given time of day) for a file whose name is filename to be created,
deleted, or modified, respectively. The filename may not contain
- wildcards. If the specified event does not occur within the time
- limit, or if WAIT CANCELLATION is ON and you interrupt from the
- keyboard before the time is up, the WAIT command fails. If the event
- is MODIFICATION and the file does not exist, the command fails.
- Otherwise, if the given event occurs within the time limit, the
- command succeeds. Examples:
+ wildcards. If the specified event does not occur within the time limit,
+ or if WAIT CANCELLATION is ON and you interrupt from the keyboard
+ before the time is up, the WAIT command fails. If the event is
+ MODIFICATION and the file does not exist, the command fails. Otherwise,
+ if the given event occurs within the time limit, the command succeeds.
+ Examples:
WAIT 600 FILE DELETION oofa.tmp
Wait up to 10 minutes for file oofa.tmp to disappear.
Wait until just before midnight for the orders.db file to be
changed.
- Example: Suppose you want to have the current copy of /etc/motd on
- your screen at all times, and you want to hear a bell whenever it
- changes:
+ Example: Suppose you want to have the current copy of /etc/motd on your
+ screen at all times, and you want to hear a bell whenever it changes:
def \%f /etc/motd ; The file of interest.
while 1 { ; Loop forever...
heading is the time of the most recent event (including when the
program started).
- See [625]Section 1.10, where the \v(kbchar) variable is explained.
- This lets you modify a loop like the one above to also accept
+ See [638]Section 1.10, where the \v(kbchar) variable is explained. This
+ lets you modify a loop like the one above to also accept
single-character commands, which interrupt the WAIT, and dispatch
accordingly. For example:
}
}
- This lets you write event-driven applications that wait for up to
- three events at once: a file or modem event, a timeout, and a
- keystroke.
- _________________________________________________________________
+ This lets you write event-driven applications that wait for up to three
+ events at once: a file or modem event, a timeout, and a keystroke.
7.27. Relaxed FOR and SWITCH Syntax
appropriately to 1 or -1, depending on the values of the first two
variables.
- As with IF, the parentheses around the FOR-command control list must
- be set off by spaces (in the SWITCH command, the spaces are not
- required since the SWITCH expression is a single arithmetic
- expression).
+ As with IF, the parentheses around the FOR-command control list must be
+ set off by spaces (in the SWITCH command, the spaces are not required
+ since the SWITCH expression is a single arithmetic expression).
Also, outer braces around the command list are supplied automatically
if you omit them, e.g.:
FOR ( \%i 1 %n 1 ) echo \%i
- _________________________________________________________________
8. USING OTHER FILE TRANSFER PROTOCOLS
In C-Kermit 7.0, alternative protocols can be selected using switches.
- Switches are described in [626]Section 1.5; the use of
- protocol-selection switches is described in [627]Section 4.7.1.
+ Switches are described in [639]Section 1.5; the use of
+ protocol-selection switches is described in [640]Section 4.7.1.
Example:
send /binary /protocol:zmodem x.tar.gz
"Crz and Csz are Copyrighted shareware programs. Use of these
programs beyond a brief evaluation period requires registration.
- Please print the "mailer.rz" file, fill out the form and return
- same with your registration."
+ Please print the "mailer.rz" file, fill out the form and return same
+ with your registration."
To use the crzsz programs as your external XYZMODEM programs in
C-Kermit, follow the instructions in the book, but put a "c" before
connections, you might need to add the -e (Escape) option:
set protocol zmodem {csz -e %s} {csz -e -a %s} crz crz crz crz
- _________________________________________________________________
9. COMMAND-LINE OPTIONS
where a keyword (rather than a single letter) specifies the function,
and if an argument is to be included, it is separated by a colon (or
equal sign). Most of the new extended-format command-line options are
- only for use with the Internet Kermit Service Daemon; see the
- [628]IKSD Administration Guide for details. However, several of them
- are also general in nature:
+ only for use with the Internet Kermit Service Daemon; see the [641]IKSD
+ Administration Guide for details. However, several of them are also
+ general in nature:
--nointerrupts
Disables keyboard interrupts that are normally enabled, which
You can also give a list of up to 8 filenames by (a) enclosing
each filename in braces, and (b) enclosing the entire list in
braces. Example:
- --cdfile:{{./.readme}{READ.ME}{aaareadme.txt}{README}{read-this
- -first}} When a list is given, it is searched from left to
- right and the first file found is displayed. The default list
- for UNIX is:
+ --cdfile:{{./.readme}{READ.ME}{aaareadme.txt}{README}{read-this-
+ first}} When a list is given, it is searched from left to right
+ and the first file found is displayed. The default list for UNIX
+ is:
{{./.readme}{README.TXT}{READ.ME}}
- _________________________________________________________________
9.1. Command Line Personalities
- Beginning in version 7.0, if the C-Kermit binary is renamed to
- "telnet" (or TELNET.EXE, telnet.pr, etc, depending on the platform),
- it accepts the Telnet command line:
+ Beginning in version 7.0, if the C-Kermit binary is renamed to "telnet"
+ (or TELNET.EXE, telnet.pr, etc, depending on the platform), it accepts
+ the Telnet command line:
telnet [ host [ port ] ]
mv telnet oldtelnet
ln -ls /usr/local/bin/kermit telnet
- When installed in this manner, C-Kermit always reads its
- initialization file. If no host (and therefore no port) is given,
- C-Kermit starts in interactive prompting mode. If a host is given as
- the first command-line argument, C-Kermit makes a connection to it.
- The host argument can be an IP host name or address, or the name of a
- TCP/IP entry in your C-Kermit network directory.
+ When installed in this manner, C-Kermit always reads its initialization
+ file. If no host (and therefore no port) is given, C-Kermit starts in
+ interactive prompting mode. If a host is given as the first
+ command-line argument, C-Kermit makes a connection to it. The host
+ argument can be an IP host name or address, or the name of a TCP/IP
+ entry in your C-Kermit network directory.
If a port is given, it is used. If a port is not given, then if the
hostname was found in your network directory and port was also listed
used.
When C-Kermit is called "telnet" and it is invoked with a hostname on
- the command line, it exits automatically when the connection is
- closed. While the connection is open, however, you may escape back and
- forth as many times as you like, transfer files, etc.
+ the command line, it exits automatically when the connection is closed.
+ While the connection is open, however, you may escape back and forth as
+ many times as you like, transfer files, etc.
An rlogin personality is also available, but it is less useful, at
least in UNIX and VMS, where the Rlogin TCP port is privileged.
The new variable \v(name) indicates the name with which C-Kermit was
invoked ("kermit", "wermit", "k95", "telnet", etc).
- _________________________________________________________________
9.2. Built-in Help for Command Line Options
HELP EXTENDED-OPTION xxx
Gives help for the specified extended option.
- _________________________________________________________________
9.3. New Command-Line Options
Command-line options added since C-Kermit 6.0 are:
+
- (plus sign by itself): The next argument is the name of a
- script to execute; all subsequent arguments are ignored by
- C-Kermit itself, but passed to the script as top-level copies
- of \%1, \%2, etc; the \&_[] is also set accordingly. \%0 and
- \&_[0] become the name of the script file, rather than the
- pathname of the C-Kermit program, which is its normal value.
- Primarily for use in the top line of "Kerbang" scripts in UNIX
- (see [629]Section 7.19). Example from UNIX command line:
+ (plus sign by itself): The next argument is the name of a script
+ to execute; all subsequent arguments are ignored by C-Kermit
+ itself, but passed to the script as top-level copies of \%1,
+ \%2, etc; the \&_[] is also set accordingly. \%0 and \&_[0]
+ become the name of the script file, rather than the pathname of
+ the C-Kermit program, which is its normal value. Primarily for
+ use in the top line of "Kerbang" scripts in UNIX (see
+ [642]Section 7.19). Example from UNIX command line:
$ kermit [ regular kermit args ] + filename
GET (like -g), but send the incoming file to standard output.
Example: "kermit -G oofa.txt | lpr" retrieves a file from your
local computer (providing it is running a Kermit program that
- supports the autodownload feature and has it enabled) and
- prints it.
+ supports the autodownload feature and has it enabled) and prints
+ it.
-O
equivalent to -x (start up in server mode), but exits after the
- first client command has been executed (mnemonic: O = Only
- One). This one is handy replacing "kermit -x" in the
- "automatically start Kermit on the other end" string:
+ first client command has been executed (mnemonic: O = Only One).
+ This one is handy replacing "kermit -x" in the "automatically
+ start Kermit on the other end" string:
set protocol kermit {kermit -ir} {kermit -r} {kermit -x}
kermit -L -s "*.c"
In UNIX only, "kermit -L -s ." means to send the current
- directory tree. See [630]Sections 4.10 and [631]4.11 about
+ directory tree. See [643]Sections 4.10 and [644]4.11 about
recursive file transfer.
-V
- Equivalent to SET FILE PATTERNS OFF ([632]Section 4.3) and SET
- TRANSFER MODE MANUAL. In other words, take the FILE TYPE
- setting literally. For example, "kermit -VT oofa.bin" means
- send the file in Text mode, no matter what its name is and no
- matter whether a kindred spirit is recognized at the other end
- of the connection.
+ Equivalent to SET FILE PATTERNS OFF ([645]Section 4.3) and SET
+ TRANSFER MODE MANUAL. In other words, take the FILE TYPE setting
+ literally. For example, "kermit -VT oofa.bin" means send the
+ file in Text mode, no matter what its name is and no matter
+ whether a kindred spirit is recognized at the other end of the
+ connection.
-0
(digit zero) means "be 100% transparent in CONNECT mode". This
NONE, SET TERM ESCAPE DISABLED, SET TERM CHAR TRANSPARENT, SET
TERM AUTODOWNLOAD OFF, SET TERM APC OFF, SET TELOPT KERMIT
REFUSE REFUSE.
- _________________________________________________________________
10. C-KERMIT AND G-KERMIT
complexity and size over time to meet the needs and requests of its
users and the demands of the underlying technology as it changes.
- Eventually users begin to notice how big the application has grown,
- how much disk space it occupies, how long it takes to load, and they
- start to long for the good old days when it was lean and mean. Not
- long after that they begin asking for a "light" version that only does
- the basics with no frills.
+ Eventually users begin to notice how big the application has grown, how
+ much disk space it occupies, how long it takes to load, and they start
+ to long for the good old days when it was lean and mean. Not long after
+ that they begin asking for a "light" version that only does the basics
+ with no frills.
And so it is with C-Kermit. A "light" version of Kermit was released
(for UNIX only) in December 1999 under the GNU General Public License;
thus it is called G-Kermit (for GNU Kermit). All it does is send and
receive files, period. You can find it at:
- [633]http://www.columbia.edu/kermit/gkermit.html
+ [646]http://www.columbia.edu/kermit/gkermit.html
Where the C-Kermit 7.0 binary might be anywhere from 1 to 3 million
bytes in size, the G-Kermit binary ranges from 30K to 100K, depending
on the underlying architecture (RISC vs CISC, etc).
G-Kermit and C-Kermit may reside side-by-side on the same computer.
- G-Kermit does not make connections; it does not have a script
- language; it does not translate character sets. G-Kermit may be used
- instead of C-Kermit when:
+ G-Kermit does not make connections; it does not have a script language;
+ it does not translate character sets. G-Kermit may be used instead of
+ C-Kermit when:
* It is on the remote end.
* Files are to be transferred in binary mode or in text mode without
In such cases G-Kermit might be preferred since it generally starts up
faster, and yet transfers files just as fast on most (but not
necessarily all) kinds of connections; for example, it supports
- streaming ([634]Section 4.20).
+ streaming ([647]Section 4.20).
- G-Kermit is also handy for bootstrapping. It is easier to load on a
- new computer than C-Kermit -- it fits on a floppy diskette with plenty
- of room to spare. Thus if you have (say) an old PC running (say) SCO
- Xenix and no network connection, you can download the Xenix version of
+ G-Kermit is also handy for bootstrapping. It is easier to load on a new
+ computer than C-Kermit -- it fits on a floppy diskette with plenty of
+ room to spare. Thus if you have (say) an old PC running (say) SCO Xenix
+ and no network connection, you can download the Xenix version of
G-Kermit to (say) a DOS or Windows PC, copy it to diskette, read the
diskette on Xenix with "dosread", and then use G-Kermit to receive
C-Kermit (which does not fit on a diskette). If diskettes aren't an
option, other bootstrapping methods are possible too -- see the
- [635]G-Kermit web page for details.
- _________________________________________________________________
+ [648]G-Kermit web page for details.
III. APPENDICES
253 15/13 375 FD Right guillemot
254 15/14 376 FE Plus or minus sign
255 15/15 377 FF (Undefined)
- _________________________________________________________________
III.1.2. Greek Character Sets
253 15/13 375 FD upsilon with accent
254 15/14 376 FE omega with accent
255 15/15 377 FF (UNUSED)
- _________________________________________________________________
III.1.2.2. The ELOT 927 Character Set
125 07/13 175 7D RIGHT CURLY BRACKET, RIGHT BRACE
126 07/14 176 7E TILDE
127 07/15 177 7F RUBOUT, DELETE
- _________________________________________________________________
III.1.2.3. PC Code Page 869
(to be filled in...)
- _________________________________________________________________
III.2. Updated Country Codes
Ex-USSR Country Codes Profile
4 April 1997
- Below is a summary of the country codes that have formed in the wake
- of the USSR dissolution, along with some updated findings and reports.
+ Below is a summary of the country codes that have formed in the wake of
+ the USSR dissolution, along with some updated findings and reports.
Additional or corrected information on any of these nations would be
welcome (c/o dleibold@else.net).
* Kyrgyz Republic country code 996 will take effect, at least in
* Uzbekistan has its own country code assignment, but I have no
information if this is in service yet or what implementation dates
have been set.
- * Kazakstan does not have a known separate country code assignment
- at present. It remains in country code 7 for the time being.
+ * Kazakstan does not have a known separate country code assignment at
+ present. It remains in country code 7 for the time being.
* Russia seems destined to keep country code 7.
- * Recent news reports speak of some agreements forming between
- Russia and Belarus. While there is no outright reunification yet,
- there is expected to be much closer ties between the two nations.
- Whether this will lead to a reunification of telephone codes
- remains to be seen.
+ * Recent news reports speak of some agreements forming between Russia
+ and Belarus. While there is no outright reunification yet, there is
+ expected to be much closer ties between the two nations. Whether
+ this will lead to a reunification of telephone codes remains to be
+ seen.
In the table, "Effective" means the date at which the country code
began service (which could vary according to the nation). "Mandatory"
- means the date at which the country code 7 is invalid for calls to
- that nation. There are a number of question marks since exact dates
- have not been collected in all cases.
+ means the date at which the country code 7 is invalid for calls to that
+ nation. There are a number of question marks since exact dates have not
+ been collected in all cases.
CC Nation Effective Mandatory Notes
Details courtesy Toby Nixon, ITU, Stentor (Canada), CRTC (Canada),
TELECOM Digest (including information collected for the country code
listings).
- _________________________________________________________________
IV. ERRATA & CORRIGENDA
- The following errors in [636]Using C-Kermit, Second Edition, first
+ The following errors in [649]Using C-Kermit, Second Edition, first
printing, have been noted.
First, some missing acknowledgements for C-Kermit 6.0: JE Jones of
Lucas Hart for help with VMS and Digital UNIX, Igor Kovalenko for his
help with QNX. And later, to Susan Kleinmann for her help with Debian
Linux packaging; Patrick Volkerding for his help with Slackware Linux
- packaging; Jim Knoble for his help with Red Hat Linux packaging; and
- to dozens of others for sending individual C-Kermit binaries for
- varied and diverse platforms.
+ packaging; Jim Knoble for his help with Red Hat Linux packaging; and to
+ dozens of others for sending individual C-Kermit binaries for varied
+ and diverse platforms.
- Thanks to James Spath for both binaries and reporting many of the
- typos noted below. Also to Dat Thuc Nguyen for spotting several typos.
+ Thanks to James Spath for both binaries and reporting many of the typos
+ noted below. Also to Dat Thuc Nguyen for spotting several typos.
PAGE REMARKS
COVER "COS" is a misprint. There is no COS. Pretend it says "SCO" or "VOS".
393 \Fverify() description. The 3rd sentence could be stated more clearly
as "If all characters in string2 are also in string1, 0 is returned."
398 Copying \ffiles() results to an array before is not required as of
- C-Kermit 7.0 (see [637]Section 7.3).
+ C-Kermit 7.0 (see [650]Section 7.3).
403 In "(\%a + 3) * (\%b 5)", a minus sign is missing between b and 5.
407 C-Kermit 7.0 no longer supports multiline GET. Change
"get, \%1, \%2" to "get {\%1} {\%2}" or "get /as:{\%2} {\%1}".
8. RxD+
Note the "balanced pairs" for Receive Data (RxD) and Transmit Data
- (TxD), and the utter lack of modem signals. These connectors follow
- the RS-423 standard, rather than RS-232. In some arrangements, Pin 1
- is used for DTR and Pin 2 for CD; in others Pin 1 is RTS and Pin 2 is
- CTS.
+ (TxD), and the utter lack of modem signals. These connectors follow the
+ RS-423 standard, rather than RS-232. In some arrangements, Pin 1 is
+ used for DTR and Pin 2 for CD; in others Pin 1 is RTS and Pin 2 is CTS.
Please send reports of other errors to the authors, as well as
suggestions for improvements, additional index entries, and any other
comments:
- [638]kermit@columbia.edu
- _________________________________________________________________
+ [651]kermit@columbia.edu
APPENDIX V. ADDITIONAL COPYRIGHT NOTICES
/* */
/* Copyright (c) 1995 by Oy Online Solutions Ltd. */
/* */
-/* Distribution of this source code is strictly forbbidden. Use of this */
+/* Distribution of this source code is strictly forbidden. Use of this */
/* source code is granted to the University of Columbia C-Kermit project */
/* to be distributed in binary format only. Please familiarize yourself */
/* with the accompanying LICENSE.P file. */
used for Xmodem, Ymodem, and Zmodem protocol in Kermit 95 (p95.dll,
p2.dll)
- _________________________________________________________________
Copyright (c) 1997 Stanford University
The use of this software for revenue-generating purposes may require a
license from the owners of the underlying intellectual property.
- Specifically, the SRP-3 protocol may not be used for
- revenue-generating purposes without a license.
+ Specifically, the SRP-3 protocol may not be used for revenue-generating
+ purposes without a license.
- Within that constraint, permission to use, copy, modify, and
- distribute this software and its documentation for any purpose is
- hereby granted without fee, provided that the above copyright notices
- and this permission notice appear in all copies of the software and
- related documentation.
+ Within that constraint, permission to use, copy, modify, and distribute
+ this software and its documentation for any purpose is hereby granted
+ without fee, provided that the above copyright notices and this
+ permission notice appear in all copies of the software and related
+ documentation.
THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
SOFTWARE.
- Used for Secure Remote Password (TM) protocol (SRP) in C-Kermit,
- Kermit 95 (k95.exe, k2.exe, k95crypt.dll, k2crypt.dll)
- _________________________________________________________________
+ Used for Secure Remote Password (TM) protocol (SRP) in C-Kermit, Kermit
+ 95 (k95.exe, k2.exe, k95crypt.dll, k2crypt.dll)
- Copyright 1990 by the Massachusetts Institute of Technology. All
- Rights Reserved.
+ Copyright 1990 by the Massachusetts Institute of Technology. All Rights
+ Reserved.
- Export of this software from the United States of America may require
- a specific license from the United States Government. It is the
+ Export of this software from the United States of America may require a
+ specific license from the United States Government. It is the
responsibility of any person or organization contemplating export to
obtain such a license before exporting.
- WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
- distribute this software and its documentation for any purpose and
- without fee is hereby granted, provided that the above copyright
- notice appear in all copies and that both that copyright notice and
- this permission notice appear in supporting documentation, and that
- the name of M.I.T. not be used in advertising or publicity pertaining
- to distribution of the software without specific, written prior
- permission. M.I.T. makes no representations about the suitability of
- this software for any purpose. It is provided "as is" without express
- or implied warranty.
+ WITHIN THAT CONSTRAINT, permission to use, copy, modify, and distribute
+ this software and its documentation for any purpose and without fee is
+ hereby granted, provided that the above copyright notice appear in all
+ copies and that both that copyright notice and this permission notice
+ appear in supporting documentation, and that the name of M.I.T. not be
+ used in advertising or publicity pertaining to distribution of the
+ software without specific, written prior permission. M.I.T. makes no
+ representations about the suitability of this software for any purpose.
+ It is provided "as is" without express or implied warranty.
Used for Telnet Authentication Option, Telnet Encryption Option, and
Kerberos (TM) authentication in C-Kermit, Kermit 95 (k95.exe, k2.exe,
k95crypt.dll, k2crypt.dll)
- _________________________________________________________________
Copyright (c) 1991, 1993 The Regents of the University of California.
All rights reserved.
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in
- the documentation and/or other materials provided with the
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the
distribution.
3. All advertising materials mentioning features or use of this
software must display the following acknowledgement:
contributors may be used to endorse or promote products derived
from this software without specific prior written permission.
- THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS''
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS
BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
- OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
- IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
Used for Telnet Authentication Option, Telnet Encryption Option, and
Kerberos (TM) authentication in C-Kermit, Kermit 95 (k95.exe, k2.exe,
k95crypt.dll, k2crypt.dll)
- _________________________________________________________________
Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) All rights
reserved.
with MIT's libdes.
This library is free for commercial and non-commercial use as long as
- the following conditions are aheared to. The following conditions
- apply to all code found in this distribution.
+ the following conditions are aheared to. The following conditions apply
+ to all code found in this distribution.
Copyright remains Eric Young's, and as such any Copyright notices in
the code are not to be removed. If this package is used in a product,
1. Redistributions of source code must retain the copyright notice,
this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in
- the documentation and/or other materials provided with the
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the
distribution.
3. All advertising materials mentioning features or use of this
software must display the following acknowledgement: This product
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
- GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
- IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
- The license and distribution terms for any publically available
- version or derivative of this code cannot be changed. i.e. this code
- cannot simply be copied and put under another distrubution license
- [including the GNU Public License.]
+ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+ STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+ IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ POSSIBILITY OF SUCH DAMAGE.
+
+ The license and distribution terms for any publically available version
+ or derivative of this code cannot be changed. i.e. this code cannot
+ simply be copied and put under another distribution license [including
+ the GNU Public License.]
The reason behind this being stated in this direct manner is past
- experience in code simply being copied and the attribution removed
- from it and then being distributed as part of other packages. This
+ experience in code simply being copied and the attribution removed from
+ it and then being distributed as part of other packages. This
implementation was a non-trivial and unpaid effort.
Used DES encryption in Kermit 95 (k95crypt.dll, k2crypt.dll)
- _________________________________________________________________
+ __________________________________________________________________
* This is version 1.1 of CryptoLib
*
Used for Big Number library in Kermit 95 (k95crypt.dll, k2crypt.dll).
- [ [639]Top ] [ [640]C-Kermit ] [ [641]Kermit Home ]
- _________________________________________________________________
+ [ [652]Top ] [ [653]C-Kermit ] [ [654]Kermit Home ]
+ __________________________________________________________________
- CKERMIT70.HTM / The Kermit Project / Columbia University / 8 Feb 2000
+ CKERMIT70.HTM / The Kermit Project / Columbia University / 8 Feb 2000 /
+ Last update: 8 Aug 2011
References
- 1. http://www.columbia.edu/kermit/ckermit70.html#contents
- 2. http://www.columbia.edu/kermit/ckermit.html
- 3. http://www.columbia.edu/kermit/index.htm
- 4. mailto:kermit-support@columbia.edu
- 5. http://www.columbia.edu/kermit/
- 6. http://www.kermit-project.org/
- 7. http://www.columbia.nyc.ny.us/kermit/
- 8. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
- 9. ftp://kermit.columbia.edu/kermit/f/ckcmai.c
- 10. http://www.columbia.edu/kermit/ckermit70.html#xv
- 11. http://www.columbia.edu/kermit/ckb2.htm
- 12. ftp://kermit.columbia.edu/kermit/f/ckcbwr.txt
- 13. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
- 14. ftp://kermit.columbia.edu/kermit/f/ckvbwr.txt
- 15. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
- 16. ftp://kermit.columbia.edu/kermit/f/ckermit70.txt
- 17. ftp://kermit.columbia.edu/kermit/f/security.txt
- 18. http://www.columbia.edu/kermit/security.htm
- 19. ftp://kermit.columbia.edu/kermit/f/iksd.txt
- 20. http://www.columbia.edu/kermit/iksd.htm
- 21. http://www.columbia.edu/kermit/cuiksd.htm
- 22. ftp://kermit.columbia.edu/kermit/f/telnet.txt
- 23. http://www.columbia.edu/kermit/telnet.htm
- 24. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
- 25. http://www.columbia.edu/kermit/k95.html
- 26. http://www.opensource.org/
- 27. http://www.columbia.edu/kermit/ckb2.htm
- 28. http://www.columbia.edu/kermit/ckermit70.html#xi
- 29. http://www.columbia.edu/kermit/ckermit70.html#xii
- 30. http://www.columbia.edu/kermit/ckermit70.html#x0
- 31. http://www.columbia.edu/kermit/ckermit70.html#x1
- 32. http://www.columbia.edu/kermit/ckermit70.html#x1.0
- 33. http://www.columbia.edu/kermit/ckermit70.html#x1.1
- 34. http://www.columbia.edu/kermit/ckermit70.html#x1.2
- 35. http://www.columbia.edu/kermit/ckermit70.html#x1.3
- 36. http://www.columbia.edu/kermit/ckermit70.html#x1.4
- 37. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 38. http://www.columbia.edu/kermit/ckermit70.html#x1.5.1
- 39. http://www.columbia.edu/kermit/ckermit70.html#x1.5.2
- 40. http://www.columbia.edu/kermit/ckermit70.html#x1.5.3
- 41. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
- 42. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
- 43. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 44. http://www.columbia.edu/kermit/ckermit70.html#x1.7
- 45. http://www.columbia.edu/kermit/ckermit70.html#x1.8
- 46. http://www.columbia.edu/kermit/ckermit70.html#x1.9
- 47. http://www.columbia.edu/kermit/ckermit70.html#x1.10
- 48. http://www.columbia.edu/kermit/ckermit70.html#x1.11
- 49. http://www.columbia.edu/kermit/ckermit70.html#x1.11.1
- 50. http://www.columbia.edu/kermit/ckermit70.html#x1.11.2
- 51. http://www.columbia.edu/kermit/ckermit70.html#x1.11.3
- 52. http://www.columbia.edu/kermit/ckermit70.html#x1.11.4
- 53. http://www.columbia.edu/kermit/ckermit70.html#x1.11.5
- 54. http://www.columbia.edu/kermit/ckermit70.html#x1.11.6
- 55. http://www.columbia.edu/kermit/ckermit70.html#x1.11.7
- 56. http://www.columbia.edu/kermit/ckermit70.html#x1.12
- 57. http://www.columbia.edu/kermit/ckermit70.html#x1.13
- 58. http://www.columbia.edu/kermit/ckermit70.html#x1.14
- 59. http://www.columbia.edu/kermit/ckermit70.html#x1.15
- 60. http://www.columbia.edu/kermit/ckermit70.html#x1.16
- 61. http://www.columbia.edu/kermit/ckermit70.html#x1.17
- 62. http://www.columbia.edu/kermit/ckermit70.html#x1.18
- 63. http://www.columbia.edu/kermit/ckermit70.html#x1.19
- 64. http://www.columbia.edu/kermit/ckermit70.html#x1.20
- 65. http://www.columbia.edu/kermit/ckermit70.html#x1.21
- 66. http://www.columbia.edu/kermit/ckermit70.html#x1.22
- 67. http://www.columbia.edu/kermit/ckermit70.html#x1.22.1
- 68. http://www.columbia.edu/kermit/ckermit70.html#x1.22.2
- 69. http://www.columbia.edu/kermit/ckermit70.html#x1.22.3
- 70. http://www.columbia.edu/kermit/ckermit70.html#x1.22.4
- 71. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
- 72. http://www.columbia.edu/kermit/ckermit70.html#x1.22.6
- 73. http://www.columbia.edu/kermit/ckermit70.html#x1.22.7
- 74. http://www.columbia.edu/kermit/ckermit70.html#x1.22.8
- 75. http://www.columbia.edu/kermit/ckermit70.html#x1.23
- 76. http://www.columbia.edu/kermit/ckermit70.html#x1.24
- 77. http://www.columbia.edu/kermit/ckermit70.html#x2
- 78. http://www.columbia.edu/kermit/ckermit70.html#x2.0
- 79. http://www.columbia.edu/kermit/ckermit70.html#x2.1
- 80. http://www.columbia.edu/kermit/ckermit70.html#x2.1.1
- 81. http://www.columbia.edu/kermit/ckermit70.html#x2.1.2
- 82. http://www.columbia.edu/kermit/ckermit70.html#x2.1.3
- 83. http://www.columbia.edu/kermit/ckermit70.html#x2.1.4
- 84. http://www.columbia.edu/kermit/ckermit70.html#x2.1.5
- 85. http://www.columbia.edu/kermit/ckermit70.html#x2.1.6
- 86. http://www.columbia.edu/kermit/ckermit70.html#x2.1.7
- 87. http://www.columbia.edu/kermit/ckermit70.html#x2.1.8
- 88. http://www.columbia.edu/kermit/ckermit70.html#x2.1.9
- 89. http://www.columbia.edu/kermit/ckermit70.html#x2.1.10
- 90. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
- 91. http://www.columbia.edu/kermit/ckermit70.html#x2.1.12
- 92. http://www.columbia.edu/kermit/ckermit70.html#x2.1.13
- 93. http://www.columbia.edu/kermit/ckermit70.html#x2.1.14
- 94. http://www.columbia.edu/kermit/ckermit70.html#x2.1.15
- 95. http://www.columbia.edu/kermit/ckermit70.html#x2.1.16
- 96. http://www.columbia.edu/kermit/ckermit70.html#x2.2
- 97. http://www.columbia.edu/kermit/ckermit70.html#x2.2.1
- 98. http://www.columbia.edu/kermit/ckermit70.html#x2.2.2
- 99. http://www.columbia.edu/kermit/ckermit70.html#x2.3
- 100. http://www.columbia.edu/kermit/ckermit70.html#x2.3.0
- 101. http://www.columbia.edu/kermit/ckermit70.html#x2.3.1
- 102. http://www.columbia.edu/kermit/ckermit70.html#x2.3.2
- 103. http://www.columbia.edu/kermit/ckermit70.html#x2.3.3
- 104. http://www.columbia.edu/kermit/ckermit70.html#x2.3.4
- 105. http://www.columbia.edu/kermit/ckermit70.html#x2.3.5
- 106. http://www.columbia.edu/kermit/ckermit70.html#x2.3.6
- 107. http://www.columbia.edu/kermit/ckermit70.html#x2.4
- 108. http://www.columbia.edu/kermit/ckermit70.html#x2.5
- 109. http://www.columbia.edu/kermit/ckermit70.html#x2.6
- 110. http://www.columbia.edu/kermit/ckermit70.html#x2.7
- 111. http://www.columbia.edu/kermit/ckermit70.html#x2.7.0
- 112. http://www.columbia.edu/kermit/ckermit70.html#x2.7.1
- 113. http://www.columbia.edu/kermit/ckermit70.html#x2.7.2
- 114. http://www.columbia.edu/kermit/ckermit70.html#x2.7.3
- 115. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4
- 116. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.1
- 117. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.2
- 118. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.3
- 119. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.4
- 120. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.5
- 121. http://www.columbia.edu/kermit/ckermit70.html#x2.8
- 122. http://www.columbia.edu/kermit/ckermit70.html#x2.9
- 123. http://www.columbia.edu/kermit/ckermit70.html#x2.9.1
- 124. http://www.columbia.edu/kermit/ckermit70.html#x2.9.2
- 125. http://www.columbia.edu/kermit/ckermit70.html#x2.10
- 126. http://www.columbia.edu/kermit/ckermit70.html#x2.11
- 127. http://www.columbia.edu/kermit/ckermit70.html#x2.12
- 128. http://www.columbia.edu/kermit/ckermit70.html#x2.13
- 129. http://www.columbia.edu/kermit/ckermit70.html#x2.14
- 130. http://www.columbia.edu/kermit/ckermit70.html#x2.15
- 131. http://www.columbia.edu/kermit/ckermit70.html#x3
- 132. http://www.columbia.edu/kermit/ckermit70.html#x3.1
- 133. http://www.columbia.edu/kermit/ckermit70.html#x3.2
- 134. http://www.columbia.edu/kermit/ckermit70.html#x3.3
- 135. http://www.columbia.edu/kermit/ckermit70.html#x3.4
- 136. http://www.columbia.edu/kermit/ckermit70.html#x4
- 137. http://www.columbia.edu/kermit/ckermit70.html#x4.0
- 138. http://www.columbia.edu/kermit/ckermit70.html#x4.1
- 139. http://www.columbia.edu/kermit/ckermit70.html#x4.1.1
- 140. http://www.columbia.edu/kermit/ckermit70.html#x4.1.2
- 141. http://www.columbia.edu/kermit/ckermit70.html#x4.1.3
- 142. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 143. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1
- 144. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.1
- 145. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.2
- 146. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.3
- 147. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
- 148. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2.1
- 149. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2.2
- 150. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
- 151. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3.1
- 152. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3.2
- 153. http://www.columbia.edu/kermit/ckermit70.html#x4.2.4
- 154. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
- 155. http://www.columbia.edu/kermit/ckermit70.html#x4.2.6
- 156. http://www.columbia.edu/kermit/ckermit70.html#x4.2.7
- 157. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8
- 158. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.1
- 159. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.2
- 160. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.3
- 161. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.4
- 162. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 163. http://www.columbia.edu/kermit/ckermit70.html#x4.3.1
- 164. http://www.columbia.edu/kermit/ckermit70.html#x4.3.2
- 165. http://www.columbia.edu/kermit/ckermit70.html#x4.3.3
- 166. http://www.columbia.edu/kermit/ckermit70.html#x4.3.4
- 167. http://www.columbia.edu/kermit/ckermit70.html#x4.4
- 168. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1
- 169. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1.1
- 170. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1.2
- 171. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2
- 172. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1
- 173. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1.1
- 174. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1.2
- 175. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.2
- 176. http://www.columbia.edu/kermit/ckermit70.html#x4.5
- 177. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
- 178. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2
- 179. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2.1
- 180. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2.2
- 181. http://www.columbia.edu/kermit/ckermit70.html#x4.5.3
- 182. http://www.columbia.edu/kermit/ckermit70.html#x4.5.4
- 183. http://www.columbia.edu/kermit/ckermit70.html#x4.6
- 184. http://www.columbia.edu/kermit/ckermit70.html#x4.7
- 185. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 186. http://www.columbia.edu/kermit/ckermit70.html#x4.7.2
- 187. http://www.columbia.edu/kermit/ckermit70.html#x4.7.3
- 188. http://www.columbia.edu/kermit/ckermit70.html#x4.8
- 189. http://www.columbia.edu/kermit/ckermit70.html#x4.8.1
- 190. http://www.columbia.edu/kermit/ckermit70.html#x4.8.2
- 191. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 192. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 193. http://www.columbia.edu/kermit/ckermit70.html#x4.9.2
- 194. http://www.columbia.edu/kermit/ckermit70.html#x4.9.3
- 195. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 196. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 197. http://www.columbia.edu/kermit/ckermit70.html#x4.11.1
- 198. http://www.columbia.edu/kermit/ckermit70.html#x4.11.2
- 199. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 200. http://www.columbia.edu/kermit/ckermit70.html#x4.11.4
- 201. http://www.columbia.edu/kermit/ckermit70.html#x4.11.5
- 202. http://www.columbia.edu/kermit/ckermit70.html#x4.11.6
- 203. http://www.columbia.edu/kermit/ckermit70.html#x4.12
- 204. http://www.columbia.edu/kermit/ckermit70.html#x4.13
- 205. http://www.columbia.edu/kermit/ckermit70.html#x4.14
- 206. http://www.columbia.edu/kermit/ckermit70.html#x4.15
- 207. http://www.columbia.edu/kermit/ckermit70.html#x4.16
- 208. http://www.columbia.edu/kermit/ckermit70.html#x4.17
- 209. http://www.columbia.edu/kermit/ckermit70.html#x4.17.1
- 210. http://www.columbia.edu/kermit/ckermit70.html#x4.17.2
- 211. http://www.columbia.edu/kermit/ckermit70.html#x4.18
- 212. http://www.columbia.edu/kermit/ckermit70.html#x4.19
- 213. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 214. http://www.columbia.edu/kermit/ckermit70.html#x4.20.1
- 215. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2
- 216. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.1
- 217. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.2
- 218. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.3
- 219. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.4
- 220. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.5
- 221. http://www.columbia.edu/kermit/ckermit70.html#x4.20.3
- 222. http://www.columbia.edu/kermit/ckermit70.html#x4.21
- 223. http://www.columbia.edu/kermit/ckermit70.html#x4.22
- 224. http://www.columbia.edu/kermit/ckermit70.html#x4.22.1
- 225. http://www.columbia.edu/kermit/ckermit70.html#x4.22.2
- 226. http://www.columbia.edu/kermit/ckermit70.html#x4.22.3
- 227. http://www.columbia.edu/kermit/ckermit70.html#x4.22.4
- 228. http://www.columbia.edu/kermit/ckermit70.html#x4.22.5
- 229. http://www.columbia.edu/kermit/ckermit70.html#x4.22.6
- 230. http://www.columbia.edu/kermit/ckermit70.html#x4.22.7
- 231. http://www.columbia.edu/kermit/ckermit70.html#x4.22.8
- 232. http://www.columbia.edu/kermit/ckermit70.html#x4.23
- 233. http://www.columbia.edu/kermit/ckermit70.html#x4.24
- 234. http://www.columbia.edu/kermit/ckermit70.html#x4.25
- 235. http://www.columbia.edu/kermit/ckermit70.html#x5
- 236. http://www.columbia.edu/kermit/ckermit70.html#x5.0
- 237. http://www.columbia.edu/kermit/ckermit70.html#x5.1
- 238. http://www.columbia.edu/kermit/ckermit70.html#x5.2
- 239. http://www.columbia.edu/kermit/ckermit70.html#x5.3
- 240. http://www.columbia.edu/kermit/ckermit70.html#x5.3.1
- 241. http://www.columbia.edu/kermit/ckermit70.html#x5.3.2
- 242. http://www.columbia.edu/kermit/ckermit70.html#x5.4
- 243. http://www.columbia.edu/kermit/ckermit70.html#x5.5
- 244. http://www.columbia.edu/kermit/ckermit70.html#x5.6
- 245. http://www.columbia.edu/kermit/ckermit70.html#x5.7
- 246. http://www.columbia.edu/kermit/ckermit70.html#x6
- 247. http://www.columbia.edu/kermit/ckermit70.html#x6.0
- 248. http://www.columbia.edu/kermit/ckermit70.html#x6.1
- 249. http://www.columbia.edu/kermit/ckermit70.html#x6.2
- 250. http://www.columbia.edu/kermit/ckermit70.html#x6.3
- 251. http://www.columbia.edu/kermit/ckermit70.html#x6.4
- 252. http://www.columbia.edu/kermit/ckermit70.html#x6.5
- 253. http://www.columbia.edu/kermit/ckermit70.html#x6.6
- 254. http://www.columbia.edu/kermit/ckermit70.html#x6.6.1
- 255. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
- 256. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
- 257. http://www.columbia.edu/kermit/ckermit70.html#x6.6.3
- 258. http://www.columbia.edu/kermit/ckermit70.html#x6.6.4
- 259. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5
- 260. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.1
- 261. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.2
- 262. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.3
- 263. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.4
- 264. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.5
- 265. http://www.columbia.edu/kermit/ckermit70.html#x6.7
- 266. http://www.columbia.edu/kermit/ckermit70.html#x7
- 267. http://www.columbia.edu/kermit/ckermit70.html#x7.0
- 268. http://www.columbia.edu/kermit/ckermit70.html#x7.1
- 269. http://www.columbia.edu/kermit/ckermit70.html#x7.1.1
- 270. http://www.columbia.edu/kermit/ckermit70.html#x7.1.2
- 271. http://www.columbia.edu/kermit/ckermit70.html#x7.1.3
- 272. http://www.columbia.edu/kermit/ckermit70.html#x7.1.4
- 273. http://www.columbia.edu/kermit/ckermit70.html#x7.2
- 274. http://www.columbia.edu/kermit/ckermit70.html#x7.3
- 275. http://www.columbia.edu/kermit/ckermit70.html#x7.4
- 276. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 277. http://www.columbia.edu/kermit/ckermit70.html#x7.6
- 278. http://www.columbia.edu/kermit/ckermit70.html#x7.7
- 279. http://www.columbia.edu/kermit/ckermit70.html#x7.8
- 280. http://www.columbia.edu/kermit/ckermit70.html#x7.9
- 281. http://www.columbia.edu/kermit/ckermit70.html#x7.9.1
- 282. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
- 283. http://www.columbia.edu/kermit/ckermit70.html#x7.10
- 284. http://www.columbia.edu/kermit/ckermit70.html#x7.10.1
- 285. http://www.columbia.edu/kermit/ckermit70.html#x7.10.2
- 286. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
- 287. http://www.columbia.edu/kermit/ckermit70.html#x7.10.4
- 288. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
- 289. http://www.columbia.edu/kermit/ckermit70.html#x7.10.6
- 290. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 291. http://www.columbia.edu/kermit/ckermit70.html#x7.10.8
- 292. http://www.columbia.edu/kermit/ckermit70.html#x7.10.9
- 293. http://www.columbia.edu/kermit/ckermit70.html#x7.10.10
- 294. http://www.columbia.edu/kermit/ckermit70.html#x7.11
- 295. http://www.columbia.edu/kermit/ckermit70.html#x7.12
- 296. http://www.columbia.edu/kermit/ckermit70.html#x7.13
- 297. http://www.columbia.edu/kermit/ckermit70.html#x7.14
- 298. http://www.columbia.edu/kermit/ckermit70.html#x7.15
- 299. http://www.columbia.edu/kermit/ckermit70.html#x7.16
- 300. http://www.columbia.edu/kermit/ckermit70.html#x7.17
- 301. http://www.columbia.edu/kermit/ckermit70.html#x7.18
- 302. http://www.columbia.edu/kermit/ckermit70.html#x7.19
- 303. http://www.columbia.edu/kermit/ckermit70.html#x7.20
- 304. http://www.columbia.edu/kermit/ckermit70.html#x7.20.1
- 305. http://www.columbia.edu/kermit/ckermit70.html#x7.20.2
- 306. http://www.columbia.edu/kermit/ckermit70.html#x7.21
- 307. http://www.columbia.edu/kermit/ckermit70.html#x7.22
- 308. http://www.columbia.edu/kermit/ckermit70.html#x7.23
- 309. http://www.columbia.edu/kermit/ckermit70.html#x7.24
- 310. http://www.columbia.edu/kermit/ckermit70.html#x7.25
- 311. http://www.columbia.edu/kermit/ckermit70.html#x7.26
- 312. http://www.columbia.edu/kermit/ckermit70.html#x7.26.1
- 313. http://www.columbia.edu/kermit/ckermit70.html#x7.26.2
- 314. http://www.columbia.edu/kermit/ckermit70.html#x7.27
- 315. http://www.columbia.edu/kermit/ckermit70.html#x8
- 316. http://www.columbia.edu/kermit/ckermit70.html#x9
- 317. http://www.columbia.edu/kermit/ckermit70.html#x9.0
- 318. http://www.columbia.edu/kermit/ckermit70.html#x9.1
- 319. http://www.columbia.edu/kermit/ckermit70.html#x9.2
- 320. http://www.columbia.edu/kermit/ckermit70.html#x9.3
- 321. http://www.columbia.edu/kermit/ckermit70.html#x10
- 322. http://www.columbia.edu/kermit/ckermit70.html#xiii
- 323. http://www.columbia.edu/kermit/ckermit70.html#xiii.1
- 324. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.1
- 325. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2
- 326. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.1
- 327. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.2
- 328. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.3
- 329. http://www.columbia.edu/kermit/ckermit70.html#xiii.2
- 330. http://www.columbia.edu/kermit/ckermit70.html#xiv
- 331. http://www.columbia.edu/kermit/ckermit70.html#xv
- 332. http://www.columbia.edu/kermit/ckb2.htm
- 333. http://www.columbia.edu/kermit/ckbreviews.html
- 334. http://www.bhusa.com/
- 335. http://www.columbia.edu/kermit/manuals.html#ckde
- 336. http://www.columbia.edu/kermit/manuals.html#ktb
- 337. http://www.columbia.edu/kermit/news.html
- 338. news:comp.protocols.kermit.announce
- 339. news:comp.protocols.kermit.misc
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.amazon.com/gp/product/1555581641?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=1555581641
+ 12. mailto:kermit-support@columbia.edu
+ 13. http://www.columbia.edu/kermit/
+ 14. http://www.kermit-project.org/
+ 15. http://www.columbia.nyc.ny.us/kermit/
+ 16. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
+ 17. ftp://kermit.columbia.edu/kermit/f/ckcmai.c
+ 18. http://www.columbia.edu/kermit/ckermit70.html#xv
+ 19. http://www.columbia.edu/kermit/ckb2.htm
+ 20. ftp://kermit.columbia.edu/kermit/f/ckcbwr.txt
+ 21. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
+ 22. ftp://kermit.columbia.edu/kermit/f/ckvbwr.txt
+ 23. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
+ 24. ftp://kermit.columbia.edu/kermit/f/ckermit70.txt
+ 25. ftp://kermit.columbia.edu/kermit/f/security.txt
+ 26. http://www.columbia.edu/kermit/security.htm
+ 27. ftp://kermit.columbia.edu/kermit/f/iksd.txt
+ 28. http://www.columbia.edu/kermit/iksd.htm
+ 29. http://www.columbia.edu/kermit/cuiksd.htm
+ 30. ftp://kermit.columbia.edu/kermit/f/telnet.txt
+ 31. http://www.columbia.edu/kermit/telnet.htm
+ 32. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
+ 33. http://www.columbia.edu/kermit/k95.html
+ 34. http://www.opensource.org/
+ 35. http://www.columbia.edu/kermit/ckb2.htm
+ 36. http://www.columbia.edu/kermit/ckermit70.html#xi
+ 37. http://www.columbia.edu/kermit/ckermit70.html#xii
+ 38. http://www.columbia.edu/kermit/ckermit70.html#x0
+ 39. http://www.columbia.edu/kermit/ckermit70.html#x1
+ 40. http://www.columbia.edu/kermit/ckermit70.html#x1.0
+ 41. http://www.columbia.edu/kermit/ckermit70.html#x1.1
+ 42. http://www.columbia.edu/kermit/ckermit70.html#x1.2
+ 43. http://www.columbia.edu/kermit/ckermit70.html#x1.3
+ 44. http://www.columbia.edu/kermit/ckermit70.html#x1.4
+ 45. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 46. http://www.columbia.edu/kermit/ckermit70.html#x1.5.1
+ 47. http://www.columbia.edu/kermit/ckermit70.html#x1.5.2
+ 48. http://www.columbia.edu/kermit/ckermit70.html#x1.5.3
+ 49. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 50. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
+ 51. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 52. http://www.columbia.edu/kermit/ckermit70.html#x1.7
+ 53. http://www.columbia.edu/kermit/ckermit70.html#x1.8
+ 54. http://www.columbia.edu/kermit/ckermit70.html#x1.9
+ 55. http://www.columbia.edu/kermit/ckermit70.html#x1.10
+ 56. http://www.columbia.edu/kermit/ckermit70.html#x1.11
+ 57. http://www.columbia.edu/kermit/ckermit70.html#x1.11.1
+ 58. http://www.columbia.edu/kermit/ckermit70.html#x1.11.2
+ 59. http://www.columbia.edu/kermit/ckermit70.html#x1.11.3
+ 60. http://www.columbia.edu/kermit/ckermit70.html#x1.11.4
+ 61. http://www.columbia.edu/kermit/ckermit70.html#x1.11.5
+ 62. http://www.columbia.edu/kermit/ckermit70.html#x1.11.6
+ 63. http://www.columbia.edu/kermit/ckermit70.html#x1.11.7
+ 64. http://www.columbia.edu/kermit/ckermit70.html#x1.12
+ 65. http://www.columbia.edu/kermit/ckermit70.html#x1.13
+ 66. http://www.columbia.edu/kermit/ckermit70.html#x1.14
+ 67. http://www.columbia.edu/kermit/ckermit70.html#x1.15
+ 68. http://www.columbia.edu/kermit/ckermit70.html#x1.16
+ 69. http://www.columbia.edu/kermit/ckermit70.html#x1.17
+ 70. http://www.columbia.edu/kermit/ckermit70.html#x1.18
+ 71. http://www.columbia.edu/kermit/ckermit70.html#x1.19
+ 72. http://www.columbia.edu/kermit/ckermit70.html#x1.20
+ 73. http://www.columbia.edu/kermit/ckermit70.html#x1.21
+ 74. http://www.columbia.edu/kermit/ckermit70.html#x1.22
+ 75. http://www.columbia.edu/kermit/ckermit70.html#x1.22.1
+ 76. http://www.columbia.edu/kermit/ckermit70.html#x1.22.2
+ 77. http://www.columbia.edu/kermit/ckermit70.html#x1.22.3
+ 78. http://www.columbia.edu/kermit/ckermit70.html#x1.22.4
+ 79. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
+ 80. http://www.columbia.edu/kermit/ckermit70.html#x1.22.6
+ 81. http://www.columbia.edu/kermit/ckermit70.html#x1.22.7
+ 82. http://www.columbia.edu/kermit/ckermit70.html#x1.22.8
+ 83. http://www.columbia.edu/kermit/ckermit70.html#x1.23
+ 84. http://www.columbia.edu/kermit/ckermit70.html#x1.24
+ 85. http://www.columbia.edu/kermit/ckermit70.html#x2
+ 86. http://www.columbia.edu/kermit/ckermit70.html#x2.0
+ 87. http://www.columbia.edu/kermit/ckermit70.html#x2.1
+ 88. http://www.columbia.edu/kermit/ckermit70.html#x2.1.1
+ 89. http://www.columbia.edu/kermit/ckermit70.html#x2.1.2
+ 90. http://www.columbia.edu/kermit/ckermit70.html#x2.1.3
+ 91. http://www.columbia.edu/kermit/ckermit70.html#x2.1.4
+ 92. http://www.columbia.edu/kermit/ckermit70.html#x2.1.5
+ 93. http://www.columbia.edu/kermit/ckermit70.html#x2.1.6
+ 94. http://www.columbia.edu/kermit/ckermit70.html#x2.1.7
+ 95. http://www.columbia.edu/kermit/ckermit70.html#x2.1.8
+ 96. http://www.columbia.edu/kermit/ckermit70.html#x2.1.9
+ 97. http://www.columbia.edu/kermit/ckermit70.html#x2.1.10
+ 98. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
+ 99. http://www.columbia.edu/kermit/ckermit70.html#x2.1.12
+ 100. http://www.columbia.edu/kermit/ckermit70.html#x2.1.13
+ 101. http://www.columbia.edu/kermit/ckermit70.html#x2.1.14
+ 102. http://www.columbia.edu/kermit/ckermit70.html#x2.1.15
+ 103. http://www.columbia.edu/kermit/ckermit70.html#x2.1.16
+ 104. http://www.columbia.edu/kermit/ckermit70.html#x2.2
+ 105. http://www.columbia.edu/kermit/ckermit70.html#x2.2.1
+ 106. http://www.columbia.edu/kermit/ckermit70.html#x2.2.2
+ 107. http://www.columbia.edu/kermit/ckermit70.html#x2.3
+ 108. http://www.columbia.edu/kermit/ckermit70.html#x2.3.0
+ 109. http://www.columbia.edu/kermit/ckermit70.html#x2.3.1
+ 110. http://www.columbia.edu/kermit/ckermit70.html#x2.3.2
+ 111. http://www.columbia.edu/kermit/ckermit70.html#x2.3.3
+ 112. http://www.columbia.edu/kermit/ckermit70.html#x2.3.4
+ 113. http://www.columbia.edu/kermit/ckermit70.html#x2.3.5
+ 114. http://www.columbia.edu/kermit/ckermit70.html#x2.3.6
+ 115. http://www.columbia.edu/kermit/ckermit70.html#x2.4
+ 116. http://www.columbia.edu/kermit/ckermit70.html#x2.5
+ 117. http://www.columbia.edu/kermit/ckermit70.html#x2.6
+ 118. http://www.columbia.edu/kermit/ckermit70.html#x2.7
+ 119. http://www.columbia.edu/kermit/ckermit70.html#x2.7.0
+ 120. http://www.columbia.edu/kermit/ckermit70.html#x2.7.1
+ 121. http://www.columbia.edu/kermit/ckermit70.html#x2.7.2
+ 122. http://www.columbia.edu/kermit/ckermit70.html#x2.7.3
+ 123. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4
+ 124. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.1
+ 125. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.2
+ 126. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.3
+ 127. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.4
+ 128. http://www.columbia.edu/kermit/ckermit70.html#x2.7.4.5
+ 129. http://www.columbia.edu/kermit/ckermit70.html#x2.8
+ 130. http://www.columbia.edu/kermit/ckermit70.html#x2.9
+ 131. http://www.columbia.edu/kermit/ckermit70.html#x2.9.1
+ 132. http://www.columbia.edu/kermit/ckermit70.html#x2.9.2
+ 133. http://www.columbia.edu/kermit/ckermit70.html#x2.10
+ 134. http://www.columbia.edu/kermit/ckermit70.html#x2.11
+ 135. http://www.columbia.edu/kermit/ckermit70.html#x2.12
+ 136. http://www.columbia.edu/kermit/ckermit70.html#x2.13
+ 137. http://www.columbia.edu/kermit/ckermit70.html#x2.14
+ 138. http://www.columbia.edu/kermit/ckermit70.html#x2.15
+ 139. http://www.columbia.edu/kermit/ckermit70.html#x3
+ 140. http://www.columbia.edu/kermit/ckermit70.html#x3.1
+ 141. http://www.columbia.edu/kermit/ckermit70.html#x3.2
+ 142. http://www.columbia.edu/kermit/ckermit70.html#x3.3
+ 143. http://www.columbia.edu/kermit/ckermit70.html#x3.4
+ 144. http://www.columbia.edu/kermit/ckermit70.html#x4
+ 145. http://www.columbia.edu/kermit/ckermit70.html#x4.0
+ 146. http://www.columbia.edu/kermit/ckermit70.html#x4.1
+ 147. http://www.columbia.edu/kermit/ckermit70.html#x4.1.1
+ 148. http://www.columbia.edu/kermit/ckermit70.html#x4.1.2
+ 149. http://www.columbia.edu/kermit/ckermit70.html#x4.1.3
+ 150. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 151. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1
+ 152. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.1
+ 153. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.2
+ 154. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.3
+ 155. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 156. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2.1
+ 157. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2.2
+ 158. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
+ 159. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3.1
+ 160. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3.2
+ 161. http://www.columbia.edu/kermit/ckermit70.html#x4.2.4
+ 162. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
+ 163. http://www.columbia.edu/kermit/ckermit70.html#x4.2.6
+ 164. http://www.columbia.edu/kermit/ckermit70.html#x4.2.7
+ 165. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8
+ 166. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.1
+ 167. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.2
+ 168. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.3
+ 169. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.4
+ 170. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 171. http://www.columbia.edu/kermit/ckermit70.html#x4.3.1
+ 172. http://www.columbia.edu/kermit/ckermit70.html#x4.3.2
+ 173. http://www.columbia.edu/kermit/ckermit70.html#x4.3.3
+ 174. http://www.columbia.edu/kermit/ckermit70.html#x4.3.4
+ 175. http://www.columbia.edu/kermit/ckermit70.html#x4.4
+ 176. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1
+ 177. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1.1
+ 178. http://www.columbia.edu/kermit/ckermit70.html#x4.4.1.2
+ 179. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2
+ 180. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1
+ 181. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1.1
+ 182. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.1.2
+ 183. http://www.columbia.edu/kermit/ckermit70.html#x4.4.2.2
+ 184. http://www.columbia.edu/kermit/ckermit70.html#x4.5
+ 185. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
+ 186. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2
+ 187. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2.1
+ 188. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2.2
+ 189. http://www.columbia.edu/kermit/ckermit70.html#x4.5.3
+ 190. http://www.columbia.edu/kermit/ckermit70.html#x4.5.4
+ 191. http://www.columbia.edu/kermit/ckermit70.html#x4.6
+ 192. http://www.columbia.edu/kermit/ckermit70.html#x4.7
+ 193. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 194. http://www.columbia.edu/kermit/ckermit70.html#x4.7.2
+ 195. http://www.columbia.edu/kermit/ckermit70.html#x4.7.3
+ 196. http://www.columbia.edu/kermit/ckermit70.html#x4.8
+ 197. http://www.columbia.edu/kermit/ckermit70.html#x4.8.1
+ 198. http://www.columbia.edu/kermit/ckermit70.html#x4.8.2
+ 199. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 200. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 201. http://www.columbia.edu/kermit/ckermit70.html#x4.9.2
+ 202. http://www.columbia.edu/kermit/ckermit70.html#x4.9.3
+ 203. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 204. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 205. http://www.columbia.edu/kermit/ckermit70.html#x4.11.1
+ 206. http://www.columbia.edu/kermit/ckermit70.html#x4.11.2
+ 207. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 208. http://www.columbia.edu/kermit/ckermit70.html#x4.11.4
+ 209. http://www.columbia.edu/kermit/ckermit70.html#x4.11.5
+ 210. http://www.columbia.edu/kermit/ckermit70.html#x4.11.6
+ 211. http://www.columbia.edu/kermit/ckermit70.html#x4.12
+ 212. http://www.columbia.edu/kermit/ckermit70.html#x4.13
+ 213. http://www.columbia.edu/kermit/ckermit70.html#x4.14
+ 214. http://www.columbia.edu/kermit/ckermit70.html#x4.15
+ 215. http://www.columbia.edu/kermit/ckermit70.html#x4.16
+ 216. http://www.columbia.edu/kermit/ckermit70.html#x4.17
+ 217. http://www.columbia.edu/kermit/ckermit70.html#x4.17.1
+ 218. http://www.columbia.edu/kermit/ckermit70.html#x4.17.2
+ 219. http://www.columbia.edu/kermit/ckermit70.html#x4.18
+ 220. http://www.columbia.edu/kermit/ckermit70.html#x4.19
+ 221. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 222. http://www.columbia.edu/kermit/ckermit70.html#x4.20.1
+ 223. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2
+ 224. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.1
+ 225. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.2
+ 226. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.3
+ 227. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.4
+ 228. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.5
+ 229. http://www.columbia.edu/kermit/ckermit70.html#x4.20.3
+ 230. http://www.columbia.edu/kermit/ckermit70.html#x4.21
+ 231. http://www.columbia.edu/kermit/ckermit70.html#x4.22
+ 232. http://www.columbia.edu/kermit/ckermit70.html#x4.22.1
+ 233. http://www.columbia.edu/kermit/ckermit70.html#x4.22.2
+ 234. http://www.columbia.edu/kermit/ckermit70.html#x4.22.3
+ 235. http://www.columbia.edu/kermit/ckermit70.html#x4.22.4
+ 236. http://www.columbia.edu/kermit/ckermit70.html#x4.22.5
+ 237. http://www.columbia.edu/kermit/ckermit70.html#x4.22.6
+ 238. http://www.columbia.edu/kermit/ckermit70.html#x4.22.7
+ 239. http://www.columbia.edu/kermit/ckermit70.html#x4.22.8
+ 240. http://www.columbia.edu/kermit/ckermit70.html#x4.23
+ 241. http://www.columbia.edu/kermit/ckermit70.html#x4.24
+ 242. http://www.columbia.edu/kermit/ckermit70.html#x4.25
+ 243. http://www.columbia.edu/kermit/ckermit70.html#x5
+ 244. http://www.columbia.edu/kermit/ckermit70.html#x5.0
+ 245. http://www.columbia.edu/kermit/ckermit70.html#x5.1
+ 246. http://www.columbia.edu/kermit/ckermit70.html#x5.2
+ 247. http://www.columbia.edu/kermit/ckermit70.html#x5.3
+ 248. http://www.columbia.edu/kermit/ckermit70.html#x5.3.1
+ 249. http://www.columbia.edu/kermit/ckermit70.html#x5.3.2
+ 250. http://www.columbia.edu/kermit/ckermit70.html#x5.4
+ 251. http://www.columbia.edu/kermit/ckermit70.html#x5.5
+ 252. http://www.columbia.edu/kermit/ckermit70.html#x5.6
+ 253. http://www.columbia.edu/kermit/ckermit70.html#x5.7
+ 254. http://www.columbia.edu/kermit/ckermit70.html#x6
+ 255. http://www.columbia.edu/kermit/ckermit70.html#x6.0
+ 256. http://www.columbia.edu/kermit/ckermit70.html#x6.1
+ 257. http://www.columbia.edu/kermit/ckermit70.html#x6.2
+ 258. http://www.columbia.edu/kermit/ckermit70.html#x6.3
+ 259. http://www.columbia.edu/kermit/ckermit70.html#x6.4
+ 260. http://www.columbia.edu/kermit/ckermit70.html#x6.5
+ 261. http://www.columbia.edu/kermit/ckermit70.html#x6.6
+ 262. http://www.columbia.edu/kermit/ckermit70.html#x6.6.1
+ 263. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
+ 264. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
+ 265. http://www.columbia.edu/kermit/ckermit70.html#x6.6.3
+ 266. http://www.columbia.edu/kermit/ckermit70.html#x6.6.4
+ 267. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5
+ 268. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.1
+ 269. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.2
+ 270. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.3
+ 271. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.4
+ 272. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.5
+ 273. http://www.columbia.edu/kermit/ckermit70.html#x6.7
+ 274. http://www.columbia.edu/kermit/ckermit70.html#x7
+ 275. http://www.columbia.edu/kermit/ckermit70.html#x7.0
+ 276. http://www.columbia.edu/kermit/ckermit70.html#x7.1
+ 277. http://www.columbia.edu/kermit/ckermit70.html#x7.1.1
+ 278. http://www.columbia.edu/kermit/ckermit70.html#x7.1.2
+ 279. http://www.columbia.edu/kermit/ckermit70.html#x7.1.3
+ 280. http://www.columbia.edu/kermit/ckermit70.html#x7.1.4
+ 281. http://www.columbia.edu/kermit/ckermit70.html#x7.2
+ 282. http://www.columbia.edu/kermit/ckermit70.html#x7.3
+ 283. http://www.columbia.edu/kermit/ckermit70.html#x7.4
+ 284. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 285. http://www.columbia.edu/kermit/ckermit70.html#x7.6
+ 286. http://www.columbia.edu/kermit/ckermit70.html#x7.7
+ 287. http://www.columbia.edu/kermit/ckermit70.html#x7.8
+ 288. http://www.columbia.edu/kermit/ckermit70.html#x7.9
+ 289. http://www.columbia.edu/kermit/ckermit70.html#x7.9.1
+ 290. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
+ 291. http://www.columbia.edu/kermit/ckermit70.html#x7.10
+ 292. http://www.columbia.edu/kermit/ckermit70.html#x7.10.1
+ 293. http://www.columbia.edu/kermit/ckermit70.html#x7.10.2
+ 294. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
+ 295. http://www.columbia.edu/kermit/ckermit70.html#x7.10.4
+ 296. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
+ 297. http://www.columbia.edu/kermit/ckermit70.html#x7.10.6
+ 298. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 299. http://www.columbia.edu/kermit/ckermit70.html#x7.10.8
+ 300. http://www.columbia.edu/kermit/ckermit70.html#x7.10.9
+ 301. http://www.columbia.edu/kermit/ckermit70.html#x7.10.10
+ 302. http://www.columbia.edu/kermit/ckermit70.html#x7.11
+ 303. http://www.columbia.edu/kermit/ckermit70.html#x7.12
+ 304. http://www.columbia.edu/kermit/ckermit70.html#x7.13
+ 305. http://www.columbia.edu/kermit/ckermit70.html#x7.14
+ 306. http://www.columbia.edu/kermit/ckermit70.html#x7.15
+ 307. http://www.columbia.edu/kermit/ckermit70.html#x7.16
+ 308. http://www.columbia.edu/kermit/ckermit70.html#x7.17
+ 309. http://www.columbia.edu/kermit/ckermit70.html#x7.18
+ 310. http://www.columbia.edu/kermit/ckermit70.html#x7.19
+ 311. http://www.columbia.edu/kermit/ckermit70.html#x7.20
+ 312. http://www.columbia.edu/kermit/ckermit70.html#x7.20.1
+ 313. http://www.columbia.edu/kermit/ckermit70.html#x7.20.2
+ 314. http://www.columbia.edu/kermit/ckermit70.html#x7.21
+ 315. http://www.columbia.edu/kermit/ckermit70.html#x7.22
+ 316. http://www.columbia.edu/kermit/ckermit70.html#x7.23
+ 317. http://www.columbia.edu/kermit/ckermit70.html#x7.24
+ 318. http://www.columbia.edu/kermit/ckermit70.html#x7.25
+ 319. http://www.columbia.edu/kermit/ckermit70.html#x7.26
+ 320. http://www.columbia.edu/kermit/ckermit70.html#x7.26.1
+ 321. http://www.columbia.edu/kermit/ckermit70.html#x7.26.2
+ 322. http://www.columbia.edu/kermit/ckermit70.html#x7.27
+ 323. http://www.columbia.edu/kermit/ckermit70.html#x8
+ 324. http://www.columbia.edu/kermit/ckermit70.html#x9
+ 325. http://www.columbia.edu/kermit/ckermit70.html#x9.0
+ 326. http://www.columbia.edu/kermit/ckermit70.html#x9.1
+ 327. http://www.columbia.edu/kermit/ckermit70.html#x9.2
+ 328. http://www.columbia.edu/kermit/ckermit70.html#x9.3
+ 329. http://www.columbia.edu/kermit/ckermit70.html#x10
+ 330. http://www.columbia.edu/kermit/ckermit70.html#xiii
+ 331. http://www.columbia.edu/kermit/ckermit70.html#xiii.1
+ 332. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.1
+ 333. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2
+ 334. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.1
+ 335. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.2
+ 336. http://www.columbia.edu/kermit/ckermit70.html#xiii.1.2.3
+ 337. http://www.columbia.edu/kermit/ckermit70.html#xiii.2
+ 338. http://www.columbia.edu/kermit/ckermit70.html#xiv
+ 339. http://www.columbia.edu/kermit/ckermit70.html#xv
340. http://www.columbia.edu/kermit/ckb2.htm
- 341. http://www.columbia.edu/kermit/ckermit70.html#x4
- 342. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 343. http://www.columbia.edu/kermit/ckermit70.html#x4.23
- 344. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
- 345. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 346. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 347. http://www.columbia.edu/kermit/ckermit70.html#x4.9.
+ 341. http://www.columbia.edu/kermit/ckbreviews.html
+ 342. http://www.bhusa.com/
+ 343. http://www.columbia.edu/kermit/manuals.html#ckde
+ 344. http://www.columbia.edu/kermit/manuals.html#ktb
+ 345. http://www.columbia.edu/kermit/news.html
+ 346. news:comp.protocols.kermit.announce
+ 347. news:comp.protocols.kermit.misc
348. http://www.columbia.edu/kermit/ckb2.htm
- 349. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
- 350. http://www.columbia.edu/kermit/ckermit70.html#x2.15
- 351. http://www.columbia.edu/kermit/ckermit70.html#x9.1
- 352. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 353. http://www.columbia.edu/kermit/ckermit70.html#x7.4
- 354. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 355. http://www.columbia.edu/kermit/ckermit70.html#mjd
- 356. http://www.columbia.edu/kermit/ckermit70.html#mjd
- 357. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 358. http://www.columbia.edu/kermit/ckb2.htm
- 359. http://www.columbia.edu/kermit/ckb2.htm
- 360. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 361. http://www.columbia.edu/kermit/ckermit70.html#x2.12
- 362. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 363. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 364. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5
+ 349. http://www.columbia.edu/kermit/ckermit70.html#x4
+ 350. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 351. http://www.columbia.edu/kermit/ckermit70.html#x4.23
+ 352. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
+ 353. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 354. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 355. http://www.columbia.edu/kermit/ckermit70.html#x4.9.
+ 356. http://www.columbia.edu/kermit/ckb2.htm
+ 357. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
+ 358. http://www.columbia.edu/kermit/ckermit70.html#x2.15
+ 359. http://www.columbia.edu/kermit/ckermit70.html#x9.1
+ 360. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 361. http://www.columbia.edu/kermit/ckermit70.html#x7.4
+ 362. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 363. http://www.columbia.edu/kermit/ckermit70.html#mjd
+ 364. http://www.columbia.edu/kermit/ckermit70.html#mjd
365. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 366. http://www.columbia.edu/kermit/ckermit70.html#x7.18
- 367. http://www.columbia.edu/kermit/ckermit70.html#x7.4
- 368. http://www.columbia.edu/kermit/ckermit70.html#x1.15
- 369. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 370. http://www.columbia.edu/kermit/ckermit70.html#x7.3
- 371. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 372. http://www.columbia.edu/kermit/ckermit70.html#x7.1
- 373. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 374. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
- 375. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
- 376. http://www.columbia.edu/kermit/ckermit70.html#x1.22.4
- 377. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
- 378. http://www.columbia.edu/kermit/ckb2.htm
- 379. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
- 380. http://www.columbia.edu/kermit/ckermit70.html#x7.12
- 381. http://www.columbia.edu/kermit/ckermit70.html#x2.1.16
- 382. http://www.columbia.edu/kermit/ckermit70.html#x2.7
- 383. http://www.columbia.edu/kermit/ckermit70.html#x2.3.5
- 384. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 385. http://www.telefonica.es/cambiodenumeracion/
- 386. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 387. http://www.columbia.edu/kermit/ckb2.htm
- 388. http://www.columbia.edu/kermit/ckermit70.html#x2.2.2
- 389. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
- 390. http://www.columbia.edu/kermit/ckermit70.html#x2.1.13
- 391. http://www.columbia.edu/kermit/ckermit70.html#x2.1.12
- 392. http://www.columbia.edu/kermit/ckb2.htm
- 393. http://www.columbia.edu/kermit/ckermit70.html#x2.1.1
- 394. http://www.columbia.edu/kermit/ckb2.htm
+ 366. http://www.columbia.edu/kermit/ckb2.htm
+ 367. http://www.columbia.edu/kermit/ckb2.htm
+ 368. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 369. http://www.columbia.edu/kermit/ckermit70.html#x2.12
+ 370. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 371. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 372. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5
+ 373. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 374. http://www.columbia.edu/kermit/ckermit70.html#x7.18
+ 375. http://www.columbia.edu/kermit/ckermit70.html#x7.4
+ 376. http://www.columbia.edu/kermit/ckermit70.html#x1.15
+ 377. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 378. http://www.columbia.edu/kermit/ckermit70.html#x7.3
+ 379. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 380. http://www.columbia.edu/kermit/ckermit70.html#x7.1
+ 381. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 382. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
+ 383. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
+ 384. http://www.columbia.edu/kermit/ckermit70.html#x1.22.4
+ 385. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
+ 386. http://www.columbia.edu/kermit/ckb2.htm
+ 387. http://www.columbia.edu/kermit/ckermit70.html#x1.22.5
+ 388. http://www.columbia.edu/kermit/ckermit70.html#x7.12
+ 389. http://www.columbia.edu/kermit/ckermit70.html#x2.1.16
+ 390. http://www.columbia.edu/kermit/ckermit70.html#x2.7
+ 391. http://www.columbia.edu/kermit/ckermit70.html#x2.3.5
+ 392. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 393. http://www.telefonica.es/cambiodenumeracion/
+ 394. http://www.columbia.edu/kermit/ckermit70.html#x7.5
395. http://www.columbia.edu/kermit/ckb2.htm
- 396. http://www.columbia.edu/kermit/ckermit70.html#x2.1.7
- 397. http://www.columbia.edu/kermit/ckermit70.html#x2.1.6
- 398. http://www.columbia.edu/kermit/ckb2.htm
- 399. ftp://kermit.columbia.edu/kermit/f/telnet.txt
- 400. http://www.columbia.edu/kermit/telnet.htm
- 401. ftp://kermit.columbia.edu/kermit/f/telnet.txt
- 402. http://www.columbia.edu/kermit/telnet.htm
- 403. ftp://ftp.isi.edu/in-notes/rfc1572.txt
- 404. ftp://ftp.isi.edu/in-notes/rfc779.txt
- 405. http://www.columbia.edu/kermit/ckb2.htm
- 406. http://www.columbia.edu/kermit/ckermit70.html#x2.10
- 407. http://www.columbia.edu/kermit/ckermit70.html#x2.8
- 408. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 409. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 410. http://www.psy.uq.oz.au/~ftp/Crypto/
- 411. http://www.columbia.edu/kermit/security.htm
- 412. http://srp.stanford.edu/srp/
- 413. http://www.columbia.edu/kermit/ckermit70.html#x2.7.1,
- 414. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
- 415. http://www.columbia.edu/kermit/security.htm
- 416. http://www.columbia.edu/kermit/ckb2.htm
- 417. http://www.columbia.edu/kermit/ckermit70.html#x2.7
- 418. http://www.columbia.edu/kermit/ckermit70.html#x2.0
- 419. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
- 420. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
- 421. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
- 422. http://www.columbia.edu/kermit/iksd.html#x4.2
- 423. http://www.columbia.edu/kermit/iksd.html
- 424. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.1
- 425. ftp://ftp.isi.edu/in-notes/rfc1945.txt
- 426. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 427. http://www.columbia.edu/kermit/ckermit70.html#x3.2
- 428. http://www.columbia.edu/kermit/ckermit70.html#x3.2
- 429. http://www.columbia.edu/kermit/ckb2.htm
- 430. http://www.columbia.edu/kermit/ckb2.htm
- 431. http://www.columbia.edu/kermit/ckermit70.html#x5.4
- 432. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
- 433. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 434. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 435. http://www.columbia.edu/kermit/ckermit70.html#x4.7.3
- 436. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 437. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 438. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 439. http://www.columbia.edu/kermit/ckermit70.html#x4.15
- 440. http://www.columbia.edu/kermit/ckermit70.html#x4.2.4
- 441. http://www.columbia.edu/kermit/ckermit70.html#x4.7
- 442. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
- 443. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.3
- 444. http://www.columbia.edu/kermit/ckb2.htm
- 445. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
- 446. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 447. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.2
- 448. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 449. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 450. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 451. http://www.columbia.edu/kermit/ckermit70.html#x4.15
- 452. http://www.telstra.com.au/docs/PGP/
- 453. http://www.telstra.com.au/docs/PGP/pgpdoc2/pgpdoc2_17.html
- 454. http://www.columbia.edu/kermit/security.htm
- 455. http://www.columbia.edu/kermit/ckermit70.html#x2.7
- 456. http://www.columbia.edu/kermit/ckb2.htm
- 457. http://www.columbia.edu/kermit/ckermit70.html#x2.14
- 458. http://www.columbia.edu/kermit/ckermit70.html#x1.23
- 459. http://www.columbia.edu/kermit/ckermit70.html#x4.7
- 460. http://www.columbia.edu/kermit/ckb2.htm
- 461. http://www.columbia.edu/kermit/ckb2.htm
- 462. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 463. http://www.columbia.edu/kermit/ckb2.htm
- 464. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
- 465. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 466. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
- 467. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 468. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 469. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 396. http://www.columbia.edu/kermit/ckermit70.html#x2.2.2
+ 397. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
+ 398. http://www.columbia.edu/kermit/ckermit70.html#x2.1.13
+ 399. http://www.columbia.edu/kermit/ckermit70.html#x2.1.12
+ 400. http://www.columbia.edu/kermit/ckb2.htm
+ 401. http://www.columbia.edu/kermit/ckermit70.html#x2.1.1
+ 402. http://www.columbia.edu/kermit/ckb2.htm
+ 403. http://www.columbia.edu/kermit/ckb2.htm
+ 404. http://www.columbia.edu/kermit/ckermit70.html#x2.1.7
+ 405. http://www.columbia.edu/kermit/ckermit70.html#x2.1.6
+ 406. http://www.columbia.edu/kermit/ckb2.htm
+ 407. ftp://kermit.columbia.edu/kermit/f/telnet.txt
+ 408. http://www.columbia.edu/kermit/telnet.htm
+ 409. ftp://kermit.columbia.edu/kermit/f/telnet.txt
+ 410. http://www.columbia.edu/kermit/telnet.htm
+ 411. ftp://ftp.isi.edu/in-notes/rfc1572.txt
+ 412. ftp://ftp.isi.edu/in-notes/rfc779.txt
+ 413. http://www.columbia.edu/kermit/ckb2.htm
+ 414. http://www.columbia.edu/kermit/ckermit70.html#x2.10
+ 415. http://www.columbia.edu/kermit/ckermit70.html#x2.8
+ 416. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 417. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 418. http://www.psy.uq.oz.au/~ftp/Crypto/
+ 419. http://www.columbia.edu/kermit/security.htm
+ 420. http://srp.stanford.edu/srp/
+ 421. http://www.columbia.edu/kermit/ckermit70.html#x2.7.1,
+ 422. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
+ 423. http://www.columbia.edu/kermit/security.htm
+ 424. http://www.columbia.edu/kermit/ckb2.htm
+ 425. http://www.columbia.edu/kermit/ckermit70.html#x2.7
+ 426. http://www.columbia.edu/kermit/ckermit70.html#x2.0
+ 427. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
+ 428. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
+ 429. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
+ 430. http://www.columbia.edu/kermit/iksd.html#x4.2
+ 431. http://www.columbia.edu/kermit/iksd.html
+ 432. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.1
+ 433. ftp://ftp.isi.edu/in-notes/rfc1945.txt
+ 434. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 435. http://www.columbia.edu/kermit/ckermit70.html#x3.2
+ 436. http://www.columbia.edu/kermit/ckermit70.html#x3.2
+ 437. http://www.columbia.edu/kermit/ckb2.htm
+ 438. http://www.columbia.edu/kermit/ckb2.htm
+ 439. http://www.columbia.edu/kermit/ckermit70.html#x5.4
+ 440. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
+ 441. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 442. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 443. http://www.columbia.edu/kermit/ckermit70.html#x4.7.3
+ 444. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 445. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 446. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 447. http://www.columbia.edu/kermit/ckermit70.html#x4.15
+ 448. http://www.columbia.edu/kermit/ckermit70.html#x4.2.4
+ 449. http://www.columbia.edu/kermit/ckermit70.html#x4.7
+ 450. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
+ 451. http://www.columbia.edu/kermit/ckermit70.html#x4.2.1.3
+ 452. http://www.columbia.edu/kermit/ckb2.htm
+ 453. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 454. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 455. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.2
+ 456. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 457. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 458. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 459. http://www.columbia.edu/kermit/ckermit70.html#x4.15
+ 460. http://www.telstra.com.au/docs/PGP/
+ 461. http://www.telstra.com.au/docs/PGP/pgpdoc2/pgpdoc2_17.html
+ 462. http://www.columbia.edu/kermit/security.htm
+ 463. http://www.columbia.edu/kermit/ckermit70.html#x2.7
+ 464. http://www.columbia.edu/kermit/ckb2.htm
+ 465. http://www.columbia.edu/kermit/ckermit70.html#x2.14
+ 466. http://www.columbia.edu/kermit/ckermit70.html#x1.23
+ 467. http://www.columbia.edu/kermit/ckermit70.html#x4.7
+ 468. http://www.columbia.edu/kermit/ckb2.htm
+ 469. http://www.columbia.edu/kermit/ckb2.htm
470. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 471. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
- 472. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
- 473. http://www.columbia.edu/kermit/ckb2.htm
- 474. http://www.columbia.edu/kermit/ckb2.htm
- 475. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 476. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 477. http://www.columbia.edu/kermit/ckermit70.html#x7.10
- 478. http://www.columbia.edu/kermit/ckermit70.html#x7.10.11
- 479. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 480. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
- 481. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 482. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
- 483. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 484. http://www.columbia.edu/kermit/ckermit70.html#x4.0.6
- 485. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 486. http://www.columbia.edu/kermit/ckermit70.html#x4.1
- 487. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 488. http://www.columbia.edu/kermit/ckb2.htm
- 489. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 490. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
- 491. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 492. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 493. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 494. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 471. http://www.columbia.edu/kermit/ckb2.htm
+ 472. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 473. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 474. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
+ 475. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 476. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 477. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 478. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 479. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 480. http://www.columbia.edu/kermit/ckermit70.html#x1.5.5
+ 481. http://www.columbia.edu/kermit/ckb2.htm
+ 482. http://www.columbia.edu/kermit/ckb2.htm
+ 483. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 484. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 485. http://www.columbia.edu/kermit/ckermit70.html#x7.10
+ 486. http://www.columbia.edu/kermit/ckermit70.html#x7.10.11
+ 487. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 488. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 489. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 490. http://www.columbia.edu/kermit/ckermit70.html#x1.5.4
+ 491. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 492. http://www.columbia.edu/kermit/ckermit70.html#x4.0.6
+ 493. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 494. http://www.columbia.edu/kermit/ckermit70.html#x4.1
495. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 496. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 497. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 498. http://www.columbia.edu/kermit/ckermit70.html#x1.11.5
- 499. http://www.columbia.edu/kermit/ckermit70.html#x4.0.6
- 500. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 501. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 502. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 503. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 504. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 505. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
- 506. http://www.columbia.edu/kermit/ckermit70.html#x7.10
- 507. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
- 508. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
- 509. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
- 510. http://www.columbia.edu/kermit/ckb2.htm
- 511. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 512. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 513. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 514. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 515. http://www.columbia.edu/kermit/ckermit70.html#x4.15
- 516. http://www.columbia.edu/kermit/ckermit70.html#x4.18
- 517. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 518. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 519. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 520. http://www.columbia.edu/kermit/ckermit70.html#x4.19
- 521. http://www.columbia.edu/kermit/ckermit70.html#x4.16
- 522. http://www.columbia.edu/kermit/ckermit70.html#x4.19
- 523. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.3
- 524. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 525. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.4
- 526. http://www.columbia.edu/kermit/ckermit70.html#x4.22.2
- 527. http://www.columbia.edu/kermit/ckermit70.html#x4.22.3
- 528. http://www.columbia.edu/kermit/ckb2.htm
- 529. http://www.columbia.edu/kermit/ckb2.htm
- 530. http://www.columbia.edu/kermit/ckermit70.html#x9.3
- 531. http://www.columbia.edu/kermit/ckermit70.html#x5.2.1
- 532. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
- 533. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2
- 534. http://www.columbia.edu/kermit/ckermit70.html#x6.6
- 535. http://www.columbia.edu/kermit/ckermit70.html#xiii
- 536. http://www.columbia.edu/kermit/ckermit70.html#xiii
- 537. ftp://ftp.isi.edu/in-notes/rfc1489.txt
- 538. ftp://ftp.isi.edu/in-notes/rfc2319.txt
- 539. http://www.unicode.org/
- 540. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
- 541. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.1
- 542. ftp://ftp.isi.edu/in-notes/rfc2640.txt
- 543. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
- 544. http://www.columbia.edu/kermit/ckermit70.html#x6.0
- 545. http://www.columbia.edu/kermit/ckermit70.html#x6.5
- 546. http://www.columbia.edu/kermit/ckermit70.html#x6.4
- 547. http://www.columbia.edu/kermit/ckb2.htm
- 548. http://www.columbia.edu/kermit/ckermit70.html#x4.21
- 549. http://www.columbia.edu/kermit/ckermit70.html#x6.5
- 550. http://www.columbia.edu/kermit/ckermit70.html#x2.8
- 551. http://www.columbia.edu/kermit/ckermit70.html#x7.7
- 552. http://www.columbia.edu/kermit/ckermit70.html#x7.2
- 553. http://www.columbia.edu/kermit/ckermit70.html#x1.19
- 554. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 555. http://www.columbia.edu/kermit/ckermit70.html#x4.1
- 556. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 557. http://www.columbia.edu/kermit/ckermit70.html#x4.1
- 558. http://www.columbia.edu/kermit/ckermit70.html#x4.2
- 559. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
- 560. http://www.columbia.edu/kermit/ckermit70.html#x2.10
- 561. http://www.columbia.edu/kermit/ckermit70.html#ferrstring
- 562. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
- 563. http://www.columbia.edu/kermit/ckermit70.html#x2.1.10
- 564. http://www.columbia.edu/kermit/ckermit70.html#x9.1
- 565. http://www.columbia.edu/kermit/ckermit70.html#x7.23
- 566. http://www.columbia.edu/kermit/ckermit70.html#x7.23
- 567. http://www.columbia.edu/kermit/ckermit70.html#x1.22
- 568. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 569. http://www.columbia.edu/kermit/ckermit70.html#x7.23
- 570. http://www.columbia.edu/kermit/ckermit70.html#x7.24
- 571. http://www.columbia.edu/kermit/ckermit70.html#x7.24
- 572. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
- 573. http://www.columbia.edu/kermit/ckermit70.html#x7.12
- 574. http://www.columbia.edu/kermit/ckermit70.html#x7.9
- 575. http://www.columbia.edu/kermit/ckb2.htm
- 576. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 577. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 578. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 579. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 580. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 581. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.4
- 582. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
- 583. http://www.columbia.edu/kermit/ckermit70.html#x7.8
- 584. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 585. http://www.columbia.edu/kermit/ckb2.htm
- 586. http://www.columbia.edu/kermit/ckermit70.html#x7.19
- 587. http://www.columbia.edu/kermit/ckermit70.html#x7.16
- 588. http://www.columbia.edu/kermit/ckermit70.html#x7.9.1
- 589. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 590. http://www.columbia.edu/kermit/ckermit70.html#x7.3
- 591. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 592. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
- 593. http://www.columbia.edu/kermit/ckermit70.html#x7.10
- 594. http://www.columbia.edu/kermit/ckermit70.html#x7.10.10
- 595. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 596. http://www.columbia.edu/kermit/ckermit70.html#x7.23
- 597. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 598. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
- 599. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
- 600. http://www.columbia.edu/kermit/ckermit70.html#x7.10.11
- 601. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 602. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
- 603. http://www.columbia.edu/kermit/ckermit70.html#x7.3
- 604. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
- 605. http://www.columbia.edu/kermit/ckb2.htm
- 606. http://www.columbia.edu/kermit/ckermit70.html#x4.17.2
- 607. http://www.columbia.edu/kermit/ckermit70.html#x1.22
- 608. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 609. http://www.columbia.edu/kermit/ckermit70.html#x1.22
- 610. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 611. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 612. http://www.columbia.edu/kermit/ckermit70.html#x1.22
- 613. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 614. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 615. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 616. http://www.columbia.edu/kermit/ckermit70.html#x7.19
- 617. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
- 618. http://www.columbia.edu/kermit/ckermit70.html#x9.3
- 619. http://www.columbia.edu/kermit/ckermit70.html#x7.5
- 620. http://www.columbia.edu/kermit/ckb2.htm
- 621. http://www.columbia.edu/kermit/ckermit70.html#x7.4
- 622. http://www.columbia.edu/kermit/ckermit70.html#x7.20.2
- 623. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
- 624. http://www.columbia.edu/kermit/ckermit70.html#x7.10.9
- 625. http://www.columbia.edu/kermit/ckermit70.html#x1.10
- 626. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 627. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
- 628. http://www.columbia.edu/kermit/iksd.html
- 629. http://www.columbia.edu/kermit/ckermit70.html#x7.19
- 630. http://www.columbia.edu/kermit/ckermit70.html#x4.10
- 631. http://www.columbia.edu/kermit/ckermit70.html#x4.11
- 632. http://www.columbia.edu/kermit/ckermit70.html#x4.3
- 633. http://www.columbia.edu/kermit/gkermit.html
- 634. http://www.columbia.edu/kermit/ckermit70.html#x4.20
- 635. http://www.columbia.edu/kermit/gkermit.html
- 636. http://www.columbia.edu/kermit/ckb2.htm
- 637. http://www.columbia.edu/kermit/ckermit70.html#x7.3
- 638. mailto:kermit@columbia.edu
- 639. http://www.columbia.edu/kermit/ckermit70.html#top
- 640. http://www.columbia.edu/kermit/ckermit.html
- 641. http://www.columbia.edu/kermit/index.html
+ 496. http://www.columbia.edu/kermit/ckb2.htm
+ 497. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 498. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 499. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 500. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 501. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 502. http://www.columbia.edu/kermit/ckermit70.html#x4.2.2
+ 503. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 504. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 505. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 506. http://www.columbia.edu/kermit/ckermit70.html#x1.11.5
+ 507. http://www.columbia.edu/kermit/ckermit70.html#x4.0.6
+ 508. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 509. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 510. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 511. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 512. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 513. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
+ 514. http://www.columbia.edu/kermit/ckermit70.html#x7.10
+ 515. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
+ 516. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
+ 517. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
+ 518. http://www.columbia.edu/kermit/ckb2.htm
+ 519. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 520. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 521. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 522. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 523. http://www.columbia.edu/kermit/ckermit70.html#x4.15
+ 524. http://www.columbia.edu/kermit/ckermit70.html#x4.18
+ 525. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 526. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 527. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 528. http://www.columbia.edu/kermit/ckermit70.html#x4.19
+ 529. http://www.columbia.edu/kermit/ckermit70.html#x4.16
+ 530. http://www.columbia.edu/kermit/ckermit70.html#x4.19
+ 531. http://www.columbia.edu/kermit/ckermit70.html#x4.20.2.3
+ 532. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 533. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.4
+ 534. http://www.columbia.edu/kermit/ckermit70.html#x4.22.2
+ 535. http://www.columbia.edu/kermit/ckermit70.html#x4.22.3
+ 536. http://www.columbia.edu/kermit/ckb2.htm
+ 537. http://www.columbia.edu/kermit/ckb2.htm
+ 538. http://www.columbia.edu/kermit/ckermit70.html#x9.3
+ 539. http://www.columbia.edu/kermit/ckermit70.html#x5.2.1
+ 540. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
+ 541. http://www.columbia.edu/kermit/ckermit70.html#x4.5.2
+ 542. http://www.columbia.edu/kermit/ckermit70.html#x6.6
+ 543. http://www.columbia.edu/kermit/ckermit70.html#xiii
+ 544. http://www.columbia.edu/kermit/ckermit70.html#xiii
+ 545. ftp://ftp.isi.edu/in-notes/rfc1489.txt
+ 546. ftp://ftp.isi.edu/in-notes/rfc2319.txt
+ 547. http://www.unicode.org/
+ 548. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
+ 549. http://www.columbia.edu/kermit/ckermit70.html#x6.6.5.1
+ 550. ftp://ftp.isi.edu/in-notes/rfc2640.txt
+ 551. http://www.columbia.edu/kermit/ckermit70.html#x6.6.2
+ 552. http://www.columbia.edu/kermit/ckermit70.html#x6.0
+ 553. http://www.columbia.edu/kermit/ckermit70.html#x6.5
+ 554. http://www.columbia.edu/kermit/ckermit70.html#x6.4
+ 555. http://www.columbia.edu/kermit/ckb2.htm
+ 556. http://www.columbia.edu/kermit/ckermit70.html#x4.21
+ 557. http://www.columbia.edu/kermit/ckermit70.html#x6.5
+ 558. http://www.columbia.edu/kermit/ckermit70.html#x2.8
+ 559. http://www.columbia.edu/kermit/ckermit70.html#x7.7
+ 560. http://www.columbia.edu/kermit/ckermit70.html#x7.2
+ 561. http://www.columbia.edu/kermit/ckermit70.html#x1.19
+ 562. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 563. http://www.columbia.edu/kermit/ckermit70.html#x4.1
+ 564. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 565. http://www.columbia.edu/kermit/ckermit70.html#x4.1
+ 566. http://www.columbia.edu/kermit/ckermit70.html#x4.2
+ 567. http://www.columbia.edu/kermit/ckermit70.html#x2.1.11
+ 568. http://www.columbia.edu/kermit/ckermit70.html#x2.10
+ 569. http://www.columbia.edu/kermit/ckermit70.html#ferrstring
+ 570. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
+ 571. http://www.columbia.edu/kermit/ckermit70.html#x2.1.10
+ 572. http://www.columbia.edu/kermit/ckermit70.html#x9.1
+ 573. http://www.columbia.edu/kermit/ckermit70.html#x7.23
+ 574. http://www.columbia.edu/kermit/ckermit70.html#x7.23
+ 575. http://www.columbia.edu/kermit/ckermit70.html#x1.22
+ 576. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 577. http://www.columbia.edu/kermit/ckermit70.html#x7.23
+ 578. http://www.columbia.edu/kermit/ckermit70.html#x7.24
+ 579. http://www.columbia.edu/kermit/ckermit70.html#x7.24
+ 580. http://www.columbia.edu/kermit/ckermit70.html#x4.2.3
+ 581. http://www.columbia.edu/kermit/ck90.html
+ 582. http://www.columbia.edu/kermit/ckermit70.html#x7.12
+ 583. http://www.columbia.edu/kermit/ckermit70.html#x7.9
+ 584. http://www.columbia.edu/kermit/ckb2.htm
+ 585. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 586. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 587. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 588. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 589. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 590. http://www.columbia.edu/kermit/ckermit70.html#x4.2.8.4
+ 591. http://www.columbia.edu/kermit/ckermit70.html#x4.2.5
+ 592. http://www.columbia.edu/kermit/ckermit70.html#x7.8
+ 593. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 594. http://www.columbia.edu/kermit/ckb2.htm
+ 595. http://www.columbia.edu/kermit/ckermit70.html#x7.19
+ 596. http://www.columbia.edu/kermit/ckermit70.html#x7.16
+ 597. http://www.columbia.edu/kermit/ckermit70.html#x7.9.1
+ 598. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 599. http://www.columbia.edu/kermit/ckermit70.html#x7.3
+ 600. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 601. http://www.columbia.edu/kermit/ckermit70.html#x4.5.1
+ 602. http://www.columbia.edu/kermit/ckermit70.html#x7.10
+ 603. http://www.columbia.edu/kermit/ckermit70.html#x7.10.10
+ 604. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 605. http://www.columbia.edu/kermit/ckermit70.html#x7.23
+ 606. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 607. http://www.columbia.edu/kermit/ckermit70.html#x7.10.7
+ 608. http://www.columbia.edu/kermit/ckermit70.html#x4.11.3
+ 609. http://www.columbia.edu/kermit/ckermit70.html#x7.10.11
+ 610. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 611. http://www.columbia.edu/kermit/ckermit70.html#x7.10.3
+ 612. http://www.columbia.edu/kermit/ckermit70.html#x7.3
+ 613. http://www.columbia.edu/kermit/ckermit70.html#x7.9.2
+ 614. http://www.columbia.edu/kermit/ckb2.htm
+ 615. http://www.columbia.edu/kermit/ckermit70.html#x4.17.2
+ 616. http://www.columbia.edu/kermit/ckermit70.html#x1.22
+ 617. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 618. http://www.columbia.edu/kermit/ckermit70.html#x1.22
+ 619. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 620. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 621. http://www.columbia.edu/kermit/ckermit70.html#x1.22
+ 622. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 623. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 624. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 625. http://www.columbia.edu/kermit/ckermit70.html#x7.19
+ 626. http://www.columbia.edu/kermit/ckermit70.html#x4.9.1
+ 627. http://www.columbia.edu/kermit/ckermit70.html#x9.3
+ 628. http://www.columbia.edu/kermit/ckermit70.html#x7.5
+ 629. http://www.columbia.edu/kermit/ckb2.htm
+ 630. http://www.columbia.edu/kermit/ckermit80.html
+ 631. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 632. http://www.columbia.edu/kermit/ckermit70.html#x7.4
+ 633. http://www.columbia.edu/kermit/ckermit80.html
+ 634. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 635. http://www.columbia.edu/kermit/ckermit70.html#x7.20.2
+ 636. http://www.columbia.edu/kermit/ckermit70.html#x7.10.5
+ 637. http://www.columbia.edu/kermit/ckermit70.html#x7.10.9
+ 638. http://www.columbia.edu/kermit/ckermit70.html#x1.10
+ 639. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 640. http://www.columbia.edu/kermit/ckermit70.html#x4.7.1
+ 641. http://www.columbia.edu/kermit/iksd.html
+ 642. http://www.columbia.edu/kermit/ckermit70.html#x7.19
+ 643. http://www.columbia.edu/kermit/ckermit70.html#x4.10
+ 644. http://www.columbia.edu/kermit/ckermit70.html#x4.11
+ 645. http://www.columbia.edu/kermit/ckermit70.html#x4.3
+ 646. http://www.columbia.edu/kermit/gkermit.html
+ 647. http://www.columbia.edu/kermit/ckermit70.html#x4.20
+ 648. http://www.columbia.edu/kermit/gkermit.html
+ 649. http://www.columbia.edu/kermit/ckb2.htm
+ 650. http://www.columbia.edu/kermit/ckermit70.html#x7.3
+ 651. mailto:kermit@columbia.edu
+ 652. http://www.columbia.edu/kermit/ckermit70.html#top
+ 653. http://www.columbia.edu/kermit/ckermit.html
+ 654. http://www.columbia.edu/kermit/index.html
- C-Kermit 8.0 Update Notes
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
- [ [1]Contents ] [ [2]C-Kermit ] [ [3]Kermit Home ]
+C-Kermit 8.0 Update Notes
- Second Supplement to Using C-Kermit, Second Edition
+ [ [11]Contents ] [ [12]C-Kermit ] [ [13]Kermit Home ]
+
+Second Supplement to [14]Using C-Kermit, 2nd Edition
For C-Kermit 8.0
As of C-Kermit version: 8.0.211
Date of C-Kermit release: 10 April 2003
- This file last updated: Sat Apr 10 16:36:11 2004
+ This file last updated: Mon Sep 13 08:52:36 2010
+
+ * IF YOU ARE READING A PLAIN-TEXT version of this document, note that
+ it is a plain-text dump of a Web page. You can visit the original
+ (and possibly more up-to-date) Web page here:
+ [15]http://www.columbia.edu/kermit/ckermit80.html
- * IF YOU ARE READING A PLAIN-TEXT version of this document, note
- that it is a plain-text dump of a Web page. You can visit the
- original (and possibly more up-to-date) Web page here:
- [4]http://www.columbia.edu/kermit/ckermit80.html
* If you are reading the HTML version of this file with a GUI Web
- browser, the features added since C-Kermit 8.0.201 are shown in
- red if your browser and monitor permit. Features that were new to
+ browser, the features added since C-Kermit 8.0.201 are shown in red
+ if your browser and monitor permit. Features that were new to
versions 8.0.200 and 201 are in black.
Authors: Frank da Cruz and Christine M. Gianone
New York NY 10025-7799
USA
Fax: +1 (212) 662-6442
-E-Mail: [5]kermit-support@columbia.edu
-Web: [6]http://www.columbia.edu/kermit/
-Or: [7]http://www.kermit-project.org/
-Or: [8]http://www.columbia.nyc.ny.us/kermit/
- _________________________________________________________________
+E-Mail: [16]kermit-support@columbia.edu
+Web: [17]http://www.columbia.edu/kermit/
+Or: [18]http://www.kermit-project.org/
+Or: [19]http://www.columbia.nyc.ny.us/kermit/
- NOTICES
+NOTICES
This document:
Copyright © 1997, 2002, Frank da Cruz and Christine M. Gianone.
C-Kermit:
Copyright © 1985, 2002,
Trustees of Columbia University in the City of New York. All
- rights reserved. See the C-Kermit [9]COPYING.TXT file or the
- copyright text in the [10]ckcmai.c module for disclaimer and
+ rights reserved. See the C-Kermit [20]COPYING.TXT file or the
+ copyright text in the [21]ckcmai.c module for disclaimer and
permissions.
When Kerberos(TM) and/or SRP(TM) (Secure Remote Password) and/or
California.
Portions Copyright © 1991, 1992, 1993, 1994, 1995 by AT&T.
Portions Copyright © 1997, Stanford University.
- Portions Copyright © 1995-1997, Eric Young
- <eay@cryptosoft.com>.
+ Portions Copyright © 1995-1997, Eric Young <eay@cryptosoft.com>.
For the full text of the third-party copyright notices, see
- [11]Appendix V.
- _________________________________________________________________
+ [22]Appendix V.
- WHAT IS IN THIS FILE
+WHAT IS IN THIS FILE
- This file lists changes made to C-Kermit since version 7.0 was
- released in January 2000. Use this file as a supplement to:
+ This file lists changes made to C-Kermit since version 7.0 was released
+ in January 2000. Use this file as a supplement to:
- * The second edition of [12]Using C-Kermit; and:
- * The [13]C-Kermit 7.0 Update Notes. Also available in plain-text
- form as [14]ckermit70.txt.
+ * The second edition of [23]Using C-Kermit; and:
+ * The [24]C-Kermit 7.0 Update Notes. Also available in plain-text
+ form as [25]ckermit70.txt.
until the third edition of Using C-Kermit is published. We apologize
for the scattered documentation and will consolidate it when we are
able.
- _________________________________________________________________
- ADDITIONAL FILES Several other files accompany this new Kermit
- release:
+ADDITIONAL FILES
+
+ Several other files accompany this new Kermit release:
- [15]ckututor.html
+ [26]ckututor.html
C-Kermit Tutorial (for Unix). Also distributed in Nroff form as
- [16]ckuker.nr, the Unix C-Kermit manual page.
+ [27]ckuker.nr, the Unix C-Kermit manual page.
- [17]security.htm
+ [28]security.htm
Discussion of Kermit's new authentication and encryption
features, updated for C-Kermit 8.0.
- [18]telnet.htm
+ [29]telnet.htm
Detailed documentation of Kermit's Telnet client, updated for
C-Kermit 8.0.
- [19]ftpscripts.html
+ [30]ftpscripts.html
Tutorial: Writing FTP automation scripts
- [20]ckcbwr.html
+ [31]ckcbwr.html
Platform-independent C-Kermit hints and tips. Also distributed
- in plain text form as [21]ckcbwr.txt
+ in plain text form as [32]ckcbwr.txt
- [22]ckubwr.html
- Unix-specific C-Kermit hints and tips. Also distributed in
- plain text form as [23]ckubwr.txt.
+ [33]ckubwr.html
+ Unix-specific C-Kermit hints and tips. Also distributed in plain
+ text form as [34]ckubwr.txt.
- [24]ckvbwr.html
+ [35]ckvbwr.html
VMS-specific C-Kermit hints and tips. Also distributed in plain
- text form as [25]ckvbwr.txt.
+ text form as [36]ckvbwr.txt.
- [26]ckuins.html
+ [37]ckuins.html
Unix C-Kermit installation instructions. Also distributed in
- plain text form as [27]ckuins.txt.
+ plain text form as [38]ckuins.txt.
- [28]ckvins.html
+ [39]ckvins.html
VMS C-Kermit installation instructions. Also distributed in
- plain text form as [29]ckvins.txt.
+ plain text form as [40]ckvins.txt.
- [30]ckccfg.html
+ [41]ckccfg.html
Compile-time configuration options. Also distributed in plain
- text form as [31]ckccfg.txt.
+ text form as [42]ckccfg.txt.
- [32]ckcplm.html
+ [43]ckcplm.html
C-Kermit Program Logic Manual. Also distributed in plain text
- form as [33]ckcplm.txt.
+ form as [44]ckcplm.txt.
- [34]iksd.html
- Internet Kermit Service Aministrators Guide for Unix.
+ [45]iksd.html
+ Internet Kermit Service Administrators Guide for Unix.
- [35]skermit.html
+ [46]skermit.html
C-Kermit as an SSH Subsystem (SFTP server replacement).
- [ [36]Top ] [ [37]C-Kermit ] [ [38]Kermit Home ]
- __________________________________________________________________________
+ [ [47]Top ] [ [48]C-Kermit ] [ [49]Kermit Home ]
CONTENTS
- [39]0. WHAT'S NEW
- [40]1. FIXES SINCE VERSION 7.0.196
- [41]2. SSH AND HTTP
- [42]2.1. SSH Connections
- [43]2.2. HTTP Connections
- [44]2.2.1. HTTP Command Switches
- [45]2.2.2. HTTP Action Commands
- [46]2.2.3. HTTP Headers
- [47]2.2.4. Secure HTTP Connections
- [48]2.2.5. HTTP Variables
- [49]2.2.6. The HTTP Command-Line Personality
- [50]3. THE BUILT-IN FTP CLIENT
- [51]3.1. Making and Managing FTP Connections
- [52]3.1.1. Kermit Command-Line Options for FTP
- [53]3.1.2. The FTP Command-Line Personality
- [54]3.1.3. The FTP URL Interpreter
- [55]3.1.4. Interactive FTP Session Establishment
- [56]3.2. Making Secure FTP Connections
- [57]3.3. Setting FTP Preferences
- [58]3.4. Managing Directories and Files
- [59]3.5. Uploading Files With FTP
- [60]3.5.1. FTP PUT Switches
- [61]3.5.2. Update Mode
- [62]3.5.3. Recovery
- [63]3.6. Downloading Files With FTP
- [64]3.6.1. FTP GET Switches
- [65]3.6.2. Filename Collisions
- [66]3.6.3. Recovery
- [67]3.7. Translating Character Sets
- [68]3.7.1. Character Sets and Uploading
- [69]3.7.2. Character Sets and Downloading
- [70]3.8. FTP Command Shortcuts
- [71]3.9. Dual Sessions
- [72]3.10. Automating FTP Sessions
- [73]3.10.1. FTP-Specific Variables and Functions
- [74]3.10.2. Examples
- [75]3.10.3. Automating Secure FTP Connections
- [76]3.11. Advanced FTP Protocol Features [77]4. FILE SCANNING
- [78]5. FILE AND DIRECTORY NAMES CONTAINING SPACES
- [79]6. OTHER COMMAND PARSING IMPROVEMENTS
- [80]6.1. Grouping Macro Arguments
- [81]6.2. Directory and File Name Completion
- [82]6.3. Passing Arguments to Command Files
- [83]6.4. More-Prompting
- [84]6.5. Commas in Macro Definitions
- [85]6.6. Arrow Keys
- [86]7. NEW COMMANDS AND SWITCHES
- [87]8. SCRIPTING IMPROVEMENTS
- [88]8.1. Performance and Debugging
- [89]8.2. Using Macros as Numeric Variables
- [90]8.3. New IF Conditions
- [91]8.4. The ON_UNKNOWN_COMMAND and ON_CD Macros
- [92]8.5. The SHOW MACRO Command
- [93]8.6. Arrays
- [94]8.7. New or Improved Built-in Variables and Functions
- [95]8.8. The RETURN and END Commands
- [96]8.9. UNDEFINing Groups of Variables
- [97]8.10. The INPUT and MINPUT Commands
- [98]8.11. Learned Scripts
- [99]8.12. Pattern Matching
- [100]8.13. Dates and Times
- [101]8.14. Trapping Keyboard Interruption
- [102]9. S-EXPRESSIONS
- [103]9.1. What is an S-Expression?
- [104]9.2. Integer and Floating-Point-Arithmetic
- [105]9.3. How to Use S-Expressions
- [106]9.4. Summary of Built-in Constants and Operators
- [107]9.5. Variables
- [108]9.6. Assignments and Scope
- [109]9.7. Conditional Expressions
- [110]9.8. Extensibility
- [111]9.9. Examples
- [112]9.10. Differences from Algebraic Notation
- [113]9.11.Differences from Lisp
- [114]10. FILE TRANSFER
- [115]11. MODEMS AND DIALING
- [116]12. TERMINAL CONNECTION
- [117]13. CHARACTER SETS
- [118]14. DIALOUT FROM TELNET TERMINAL SERVERS
- [119]15. COPING WITH BROKEN KERMIT PARTNERS
- [120]16. NEW COMMAND-LINE OPTIONS
- [121]17. LOGS
-
- [ [122]Top ] [ [123]C-Kermit ] [ [124]Kermit Home ]
- __________________________________________________________________________
+ [50]0. WHAT'S NEW
+ [51]1. FIXES SINCE VERSION 7.0.196
+ [52]2. SSH AND HTTP
+ [53]2.1. SSH Connections
+ [54]2.2. HTTP Connections
+ [55]2.2.1. HTTP Command Switches
+ [56]2.2.2. HTTP Action Commands
+ [57]2.2.3. HTTP Headers
+ [58]2.2.4. Secure HTTP Connections
+ [59]2.2.5. HTTP Variables
+ [60]2.2.6. The HTTP Command-Line Personality
+ [61]3. THE BUILT-IN FTP CLIENT
+ [62]3.1. Making and Managing FTP Connections
+ [63]3.1.1. Kermit Command-Line Options for FTP
+ [64]3.1.2. The FTP Command-Line Personality
+ [65]3.1.3. The FTP URL Interpreter
+ [66]3.1.4. Interactive FTP Session Establishment
+ [67]3.2. Making Secure FTP Connections
+ [68]3.3. Setting FTP Preferences
+ [69]3.4. Managing Directories and Files
+ [70]3.5. Uploading Files With FTP
+ [71]3.5.1. FTP PUT Switches
+ [72]3.5.2. Update Mode
+ [73]3.5.3. Recovery
+ [74]3.6. Downloading Files With FTP
+ [75]3.6.1. FTP GET Switches
+ [76]3.6.2. Filename Collisions
+ [77]3.6.3. Recovery
+ [78]3.7. Translating Character Sets
+ [79]3.7.1. Character Sets and Uploading
+ [80]3.7.2. Character Sets and Downloading
+ [81]3.8. FTP Command Shortcuts
+ [82]3.9. Dual Sessions
+ [83]3.10. Automating FTP Sessions
+ [84]3.10.1. FTP-Specific Variables and Functions
+ [85]3.10.2. Examples
+ [86]3.10.3. Automating Secure FTP Connections
+ [87]3.11. Advanced FTP Protocol Features [88]4. FILE SCANNING
+ [89]5. FILE AND DIRECTORY NAMES CONTAINING SPACES
+ [90]6. OTHER COMMAND PARSING IMPROVEMENTS
+ [91]6.1. Grouping Macro Arguments
+ [92]6.2. Directory and File Name Completion
+ [93]6.3. Passing Arguments to Command Files
+ [94]6.4. More-Prompting
+ [95]6.5. Commas in Macro Definitions
+ [96]6.6. Arrow Keys
+ [97]7. NEW COMMANDS AND SWITCHES
+ [98]8. SCRIPTING IMPROVEMENTS
+ [99]8.1. Performance and Debugging
+ [100]8.2. Using Macros as Numeric Variables
+ [101]8.3. New IF Conditions
+ [102]8.4. The ON_UNKNOWN_COMMAND and ON_CD Macros
+ [103]8.5. The SHOW MACRO Command
+ [104]8.6. Arrays
+ [105]8.7. New or Improved Built-in Variables and Functions
+ [106]8.8. The RETURN and END Commands
+ [107]8.9. UNDEFINing Groups of Variables
+ [108]8.10. The INPUT and MINPUT Commands
+ [109]8.11. Learned Scripts
+ [110]8.12. Pattern Matching
+ [111]8.13. Dates and Times
+ [112]8.14. Trapping Keyboard Interruption
+ [113]9. S-EXPRESSIONS
+ [114]9.1. What is an S-Expression?
+ [115]9.2. Integer and Floating-Point-Arithmetic
+ [116]9.3. How to Use S-Expressions
+ [117]9.4. Summary of Built-in Constants and Operators
+ [118]9.5. Variables
+ [119]9.6. Assignments and Scope
+ [120]9.7. Conditional Expressions
+ [121]9.8. Extensibility
+ [122]9.9. Examples
+ [123]9.10. Differences from Algebraic Notation
+ [124]9.11.Differences from Lisp
+ [125]10. FILE TRANSFER
+ [126]11. MODEMS AND DIALING
+ [127]12. TERMINAL CONNECTION
+ [128]13. CHARACTER SETS
+ [129]14. DIALOUT FROM TELNET TERMINAL SERVERS
+ [130]15. COPING WITH BROKEN KERMIT PARTNERS
+ [131]16. NEW COMMAND-LINE OPTIONS
+ [132]17. LOGS
+
+ [ [133]Top ] [ [134]C-Kermit ] [ [135]Kermit Home ]
0. WHAT'S NEW
C-Kermit 8.0 now supports specification of the initialization
file name (path) in an environment variable, CKERMIT_INI. It
also relies far less than before on the initialization for
- functioning. See [125]Section 5 of the Unix C-Kermit
- [126]installation instructions for details. As of version
+ functioning. See [136]Section 5 of the Unix C-Kermit
+ [137]installation instructions for details. As of version
8.0.201, C-Kermit also executes your customization file (if you
have one) even if the initialization file was not found.
Previously, the customization file was executed by a TAKE
As always, we do our best to avoid changes that break existing
scripts. However, C-Kermit 8.0 does include a rather pervasive
syntax change that might alter the behavior of scripts that
- depend on the previous behavior. As described in [127]Section
- 5, C-Kermit now accepts doublequotes in most contexts where you
+ depend on the previous behavior. As described in [138]Section 5,
+ C-Kermit now accepts doublequotes in most contexts where you
previously had to use braces to group multiple words into a
single field, or to force inclusion of leading or trailing
blanks. Most noticeably, in C-Kermit 7.0 and earlier:
1. Using the SET HOST command to make HTTP connections is no
longer supported. Instead, use the new HTTP OPEN command,
- described in [128]Section 2.2.
+ described in [139]Section 2.2.
C-Kermit 7.1 Alpha.01 (8 December 2000)
- Its major new features are those listed in the [129]Table of
+ Its major new features are those listed in the [140]Table of
Contents: the FTP client, file scanning, command parsing and
scripting improvements, S-Expressions, and support for the
- Telnet Com Port Option, plus wider availability of the
- Kerberos, SSL/TLS, and SRP security options for secure Internet
+ Telnet Com Port Option, plus wider availability of the Kerberos,
+ SSL/TLS, and SRP security options for secure Internet
connections.
C-Kermit 7.1.199 Alpha.02 (4 January 2001)
- + C-Kermit now accepts [130]FTP, TELNET, and IKSD URLs as its
+ + C-Kermit now accepts [141]FTP, TELNET, and IKSD URLs as its
first command-line argument.
+ Character-set translation added to the FTP client for
- [131]filenames.
- + Optional [132]setting of date of incoming files by FTP [M]GET
+ [142]filenames.
+ + Optional [143]setting of date of incoming files by FTP [M]GET
from the server date.
- + [133]FTP CHECK filename added to let FTP client check the
+ + [144]FTP CHECK filename added to let FTP client check the
existence of a file on the server.
- + [134]FTP GET /NAMELIST:filename added to get list of server
+ + [145]FTP GET /NAMELIST:filename added to get list of server
filenames into a local file.
- + [135]FTP [M]PUT /SERVER-RENAME:template added to make server
+ + [146]FTP [M]PUT /SERVER-RENAME:template added to make server
rename a file as indicated by the template after it has
arrived completely.
- + FTP [M]GET /SERVER-RENAME:template added to make server
- rename a file as indicated by the template after it has been
- sent completely.
- + FTP [136]VDIRECTORY added for getting verbose directory
+ + FTP [M]GET /SERVER-RENAME:template added to make server rename
+ a file as indicated by the template after it has been sent
+ completely.
+ + FTP [147]VDIRECTORY added for getting verbose directory
listings from TOPS-20.
- + [137]FTP TYPE TENEX added for transferring 8-bit binary files
+ + [148]FTP TYPE TENEX added for transferring 8-bit binary files
with PDP-10s.
- + Added [138]automatic text/binary mode switching for FTP
+ + Added [149]automatic text/binary mode switching for FTP
[M]GET, based on filename patterns (e.g. *.zip, *.gz, *.exe
are binary; *.txt, *.c are text).
- + [139]SET SEND I-PACKETS OFF added for coping with Kermit
+ + [150]SET SEND I-PACKETS OFF added for coping with Kermit
servers that do not support I packets.
- + A new option was added to [140]\fword() and \fsplit() for
+ + A new option was added to [151]\fword() and \fsplit() for
parsing comma-separated lists that might contain empty
elements.
+ Bug fixes including:
+ UNIX:
o HTTP and shadow passwords enabled for SCO 5.0.6.
o Even with SET FILENAMES CONVERTED, spaces were still
- accepted in incoming filenames; now they are converted
- to underscores.
+ accepted in incoming filenames; now they are converted to
+ underscores.
o Added support for compile-time mktemp()/mkstemp()
selection.
+ VMS:
1858.
+ General:
o "Closing blah..." message upon exit could not be
- surpressed.
+ suppressed.
o Added /PAGE and /NOPAGE to DELETE switches.
o Added GO response for DELETE /ASK (delete all the rest
without asking).
+ Fixed modem-type aliases to not take precedence over real
names.
+ Fixed funny treatment of doublequotes by ECHO command.
- + Enabled SET SESSION-LOG for VMS and other non-UNIX platorms.
+ + Enabled SET SESSION-LOG for VMS and other non-UNIX platforms.
+ Fixed changing direction in command history buffer.
+ Fixed handling of IKSD URLs.
+ Made sure DELETE prints a message if it got any errors.
C-Kermit 8.0.200 Beta.02 (28 June 2001)
+ Major version number increased from 7 to 8.
- + [141]SSH command.
+ + [152]SSH command.
+ More-consistent Kermit protocol defaults.
+ CONNECT idle timeout and action selection.
+ CONNECT status variable.
C-Kermit 8.0.200 Beta.03 (9 Sep 2001)
- + [142]HTTP 1.1 connections and scripting
- + [143]ON_CTRLC macro for trapping Ctrl-C in scripts
- + [144]Date-time parsing improvements, timezones, comparison,
+ + [153]HTTP 1.1 connections and scripting
+ + [154]ON_CTRLC macro for trapping Ctrl-C in scripts
+ + [155]Date-time parsing improvements, timezones, comparison,
arithmetic
- + [145]Pattern-matching improvements
+ + [156]Pattern-matching improvements
+ FTP improvements
+ SET EXIT HANGUP { ON, OFF }
+ SET FILE EOF { CTRL-Z, LENGTH }
C-Kermit 8.0.200 Beta.04 (16 Nov 2001)
- + [146]New Unix man page
- + [147]New Unix installation instructions
+ + [157]New Unix man page
+ + [158]New Unix installation instructions
+ SET TELOPT policies are now enforced on non-Telnet ports if
the server begins Telnet negotiations.
+ SET TERMINAL IDLE-ACTION { TELNET-NOP, TELNET-AYT }.
+ UUCP lockfile creation race condition fixed.
+ Dialout, modem signals, hangup, hardware flow control, etc,
- tested extensively on many platforms, numerous problems
- fixed.
+ tested extensively on many platforms, numerous problems fixed.
+ Improved hints when dialing fails.
+ SET STOP-BITS 2 can now be given without SET FLOW HARDWARE.
+ Major improvements in RFC 2217 Telnet Com-Port Control.
string.
+ kermit -h now shows ALL command-line options.
+ kermit -s blah, where blah is a symlink, now works.
- + --noperms command-line option = SET ATTRIBUTE PERMISSIONS
- OFF.
+ + --noperms command-line option = SET ATTRIBUTE PERMISSIONS OFF.
+ HTTP and HTTPS URLs now supported on the command line.
+ An http command-line personality is now available.
+ Initialization file streamlined to load faster, anachronisms
removed.
+ Updated NEWS, INTRO, HELP text, SHOW commands. In particular,
see SHOW COMM, HELP SET LINE, HELP WAIT.
- + Date/time arithmetic routines converted from floating-point
- to integer arithmetic (internally) for greater accuracy and
+ + Date/time arithmetic routines converted from floating-point to
+ integer arithmetic (internally) for greater accuracy and
portability.
+ Quoted strings containing commas no longer break macro
execution.
+ \v(timestamp) (= "\v(ndate) \v(time)")
+ \v(hour) (hour of the day, 0-23)
+ \funix2dospath() converts a UNIX path (/) to a DOS one (\).
- + \fdos2unixpath() converts a DOS (Windows, OS/2) path to a
- UNIX one.
+ + \fdos2unixpath() converts a DOS (Windows, OS/2) path to a UNIX
+ one.
+ \fkeywordval() parses name=value pair, allows macro keyword
parameters.
+ We now make every attempt to not write passwords to the
debug.log.
- + New Certficate Authority certificates file, includes the
+ + New Certificate Authority certificates file, includes the
Kermit Project at Columbia University so you can access our
IKSD securely.
+ Secure targets improved and better documented in Unix
+ FTP over TLS.
+ Last-minute touchups to text messages, HELP text, etc.
+ Enable modem-signal reading for SCO OSR5 and Unixware 7.
- + Special superfast TRANSMIT /BINARY /NOECHO /NOWAIT mode
- added.
+ + Special superfast TRANSMIT /BINARY /NOECHO /NOWAIT mode added.
+ Fixed PBX dialing in unmarked-area-code case.
- + Improved SHOW COMMUNICATIONS tells lockfile directory,
- typical dialout device name.
+ + Improved SHOW COMMUNICATIONS tells lockfile directory, typical
+ dialout device name.
+ Some FTP OPEN command parsing problems fixed.
+ Some errors in date arithmetic fixed.
+ New command: SET TERMINAL AUTODOWNLOAD { ..., ERROR { STOP,
CONTINUE } }
+ New command: HELP FIREWALL.
- + SET MODEM HANGUP-METHOD DTR added as synomym for RS232-SIGNAL
+ + SET MODEM HANGUP-METHOD DTR added as synonym for RS232-SIGNAL
+ Support for secure URL protocols added: telnets:, ftps:,
https:.
C-Kermit 8.0.201 (8 Feb 2002)
- + Installability as an [148]SSH v2 Subsystem.
- + [149]SET LOCUS command.
- + [150]L-versions of CD, DIR, DELETE, MKDIR, etc, to force
- local execution.
- + [151]USER and ACCOUNT added as synonyms for FTP USER and FTP
+ + Installability as an [159]SSH v2 Subsystem.
+ + [160]SET LOCUS command.
+ + [161]L-versions of CD, DIR, DELETE, MKDIR, etc, to force local
+ execution.
+ + [162]USER and ACCOUNT added as synonyms for FTP USER and FTP
ACCOUNT.
- + [152]SHOW VARIABLES now accepts a list of variables.
- + Rudimentary support for [153]Caller ID when receiving phone
+ + [163]SHOW VARIABLES now accepts a list of variables.
+ + Rudimentary support for [164]Caller ID when receiving phone
calls.
- + Up/Down [154]Arrow-key navigation of command history buffer.
- + [155]Automatic execution of customization file if init file
- is missing.
+ + Up/Down [165]Arrow-key navigation of command history buffer.
+ + [166]Automatic execution of customization file if init file is
+ missing.
C-Kermit 8.0.206 Beta.01 (11 Oct 2002)
values.
o KCD changes to special directories by their symbolic
names ("kcd ?" for a list).
- o SET CD HOME path to specify home directory for CD and
- KCD commands.
- o CONTINUE given at top level is equivalent to END --
- handy when PROMPT'ed out of a script, to continue the
- script.
+ o SET CD HOME path to specify home directory for CD and KCD
+ commands.
+ o CONTINUE given at top level is equivalent to END -- handy
+ when PROMPT'ed out of a script, to continue the script.
New switches or operands for existing commands:
Improvements and new features:
- o Numerous FTP client fixes and new features, listed
- below.
+ o Numerous FTP client fixes and new features, listed below.
o C-Kermit, when in remote mode at the end of a file
transfer, now prints a one-line "where" message. Control
with SET TRANSFER REPORT.
o Fixed Solaris and other SVORPOSIX builds to find out
their full hostnames rather than just the "uname -n"
name.
- o Fixed some problems matching strings that start with
- ".".
- o Fixed some problems matching pattern that contain
- {a,b,c} lists.
+ o Fixed some problems matching strings that start with ".".
+ o Fixed some problems matching pattern that contain {a,b,c}
+ lists.
o Fixed erroneous reporting of text-mode reception as
- binary when sender did not report the file size
- (cosmetic only).
+ binary when sender did not report the file size (cosmetic
+ only).
o Many problems with SWITCH statements fixed.
o Fixed SET OPTIONS DIRECTORY /DOTFILES to work for server
too.
o Serial speed-changing bug in Linux fixed.
o "Unbalanced braces" script parsing errors when using
\{number} fixed.
- o "if defined \v(name)" fixed to behave as described in
- the book.
+ o "if defined \v(name)" fixed to behave as described in the
+ book.
o Fixed Problems caused by LOCAL variables whose names are
left substrings of macro names.
o The INPUT command was fixed to honor the PARITY setting.
connections.
o REMOTE SET { FILE, TRANSFER } CHARACTER-SET fixed.
o Closed some holes whereby an incompletely received file
- was not deleted when SET FILE INCOMPLETE is DISCARD,
- e.g. when the Kermit is hung up upon.
+ was not deleted when SET FILE INCOMPLETE is DISCARD, e.g.
+ when the Kermit is hung up upon.
o SET XFER CHARACTER-SET TRANSPARENT fixed to do the same
as SET XFER TRANSLATION OFF.
o SET HOST PTY (e.g. SSH) connection fixed to pass along
FTP improvements:
- o New [156]FTP protocol features added (FEAT, MLSD).
+ o New [167]FTP protocol features added (FEAT, MLSD).
o FTP MGET /RECURSIVE now works as expected if server
supports MLSD.
o FTP MGET /DATES-DIFFER to download if local and remote
timezone set.
o Allow for alternative server interpretations of [M]MPUT
/UNIQUE.
- o SET FTP ANONOMOUS-PASSWORD lets you specify the default
+ o SET FTP ANONYMOUS-PASSWORD lets you specify the default
anonymous password.
o Allow "GET /RECURSIVE path/file" to force local
subdirectory creation.
o Debug log now records FTP commands and responses in
grep-able format.
- [ [157]Top ] [ [158]Contents ] [ [159]C-Kermit ] [ [160]Kermit Home ]
- __________________________________________________________________________
+ [ [168]Top ] [ [169]Contents ] [ [170]C-Kermit ] [ [171]Kermit Home ]
1. FIXES SINCE VERSION 7.0.196 First, the changes from 7.0.196 to 7.0.197...
-Source and makefile tweaks to get successful builds on platforms that were not
-available in time for the 7.0 release:
+Source and makefile tweaks to get successful builds on platforms that were
+not available in time for the 7.0 release:
* 4.2BSD
* 4.3BSD
The following bugs in C-Kermit 8.0.200 were fixed in 8.0.201:
* An obscure path through the code could cause the Unix version of
- C-Kermit to dump core during its startup sequence. This happened
- to only one person, but now it's fixed.
- * When C-Kermit 8.0 is in Kermit server mode and the client says
- "get blah", where blah (on the server) is a symlink rather than a
- real file, the server unreasonably refused to send the linked-to
- file.
+ C-Kermit to dump core during its startup sequence. This happened to
+ only one person, but now it's fixed.
+ * When C-Kermit 8.0 is in Kermit server mode and the client says "get
+ blah", where blah (on the server) is a symlink rather than a real
+ file, the server unreasonably refused to send the linked-to file.
* When C-Kermit is an FTP client and says "get foo/bar" (i.e. a
filename that includes one or more path segments), it failed to
accept the incoming file (this happened only with GET, not MGET).
command-line options, whose purpose is to work around such
problems.
* C-Kermit 8.0 could not be built on IRIX 5.x.
- * The C-Kermit 8.0 build for QNX6 said it was an "(unknown
- version)".
+ * The C-Kermit 8.0 build for QNX6 said it was an "(unknown version)".
- Other fixes are listed in the [161]previous section.
+ Other fixes are listed in the [172]previous section.
- [ [162]Top ] [ [163]Contents ] [ [164]C-Kermit ] [ [165]Kermit Home ]
- __________________________________________________________________________
+ [ [173]Top ] [ [174]Contents ] [ [175]C-Kermit ] [ [176]Kermit Home ]
2. SSH AND HTTP
- 2.1. SSH Connections
+2.1. SSH Connections
- This section does not apply to [166]Kermit 95 2.0, which has its
- own built-in SSH client, which is documented [167]SEPARATELY.
+ This section does not apply to [177]Kermit 95 2.0, which has its own
+ built-in SSH client, which is documented [178]SEPARATELY.
- On most UNIX platforms, C-Kermit can make SSH (Secure SHell)
- connection by running the external SSH command or program through its
+ On most UNIX platforms, C-Kermit can make SSH (Secure SHell) connection
+ by running the external SSH command or program through its
pseudoterminal interface. The command is:
SSH text
- Tells Kermit to start the external SSH client, passing the
- given text to it on the command line. Normally the text is just
- the hostname, but it can be anything else that is acceptable to
- the ssh client. If the command succeeds, the connection is made
- and Kermit automatically enters CONNECT (terminal) mode. You
- can use the SSH command to make a connection to any host that
- has an SSH server.
+ Tells Kermit to start the external SSH client, passing the given
+ text to it on the command line. Normally the text is just the
+ hostname, but it can be anything else that is acceptable to the
+ ssh client. If the command succeeds, the connection is made and
+ Kermit automatically enters CONNECT (terminal) mode. You can use
+ the SSH command to make a connection to any host that has an SSH
+ server.
Kermit's SSH command gives you all the features of Kermit on an SSH
- connection: command language, file transfer, character-set
- translation, scripting, and all the rest. By default, C-Kermit invokes
- SSH with "-e none", which disables the ssh escape character and makes
- the connection transparent for purposes of file transfer. You can,
- however, change the SSH invocation to whatever else you might need (an
- explicit path, additional command-line arguments, etc) with:
+ connection: command language, file transfer, character-set translation,
+ scripting, and all the rest. By default, C-Kermit invokes SSH with "-e
+ none", which disables the ssh escape character and makes the connection
+ transparent for purposes of file transfer. You can, however, change the
+ SSH invocation to whatever else you might need (an explicit path,
+ additional command-line arguments, etc) with:
SET SSH COMMAND text
Specifies the system command that Kermit's SSH command should
different or more command-line options.
In most cases, these connections work quite well. They can be scripted
- like any other connection, and file transfer goes as fast as, or
- faster than, on a regular Telnet connection. In some cases, however,
- the underlying pseudoterminal driver is a limiting factor, resulting
- in slow or failed file transfers. Sometimes you can work around such
+ like any other connection, and file transfer goes as fast as, or faster
+ than, on a regular Telnet connection. In some cases, however, the
+ underlying pseudoterminal driver is a limiting factor, resulting in
+ slow or failed file transfers. Sometimes you can work around such
problems by reducing the Kermit packet length. Note that Kermit does
not consider SSH connections to be reliable, so it does not offer to
use streaming in Kermit protocol transfers (but you can force it with
to make the connection.
- Here's a sequence that can be used to make a connection to a given
- host using Telnet if the host accepts it, otherwise SSH:
+ Here's a sequence that can be used to make a connection to a given host
+ using Telnet if the host accepts it, otherwise SSH:
if not defined \%1 exit 1 Usage: \%0 host
set quiet on
In SSH v2, it is possible to make an SSH connection direct to a Kermit
server system if the host administrator has configured the SSH server
- to allow this; [168]CLICK HERE for details.
+ to allow this; [179]CLICK HERE for details.
Since Kermit uses external ssh client software, and since there are
different ssh clients (and different releases of each one), the exact
username.
-T
- This tells the SSH client to tell the SSH server not to
- allocate a pseudoterminal. We are not making a terminal
- connection, we don't need a terminal, and in fact if a terminal
- were allocated on the remote end, the connection would not
- work.
+ This tells the SSH client to tell the SSH server not to allocate
+ a pseudoterminal. We are not making a terminal connection, we
+ don't need a terminal, and in fact if a terminal were allocated
+ on the remote end, the connection would not work.
-s ... kermit
This tells the SSH client to tell the SSH server to start the
hostname
The IP host name or address of the desired host.
- You might want to include other or additional ssh command-line
- options; "man ssh" explains what they are. Here are some examples for
- the OpenSSH 3.0.2p1 client:
+ You might want to include other or additional ssh command-line options;
+ "man ssh" explains what they are. Here are some examples for the
+ OpenSSH 3.0.2p1 client:
-oClearAllForwardings yes
-oForwardAgent no
commands for the server, and the server executes them. Of course you
can also give the client any other commands you wish.
- [ [169]SSH Kermit Server Subsystem ] [ [170]Kermit 95 Built-in SSH
+ [ [180]SSH Kermit Server Subsystem ] [ [181]Kermit 95 Built-in SSH
Client ]
- _________________________________________________________________
- 2.2. HTTP Connections
+2.2. HTTP Connections
Hypertext Transfer Protocol, or HTTP, is the application protocol of
the World Wide Web (WWW), used between Web browsers (clients) and Web
- servers. It allows a client to get files from websites, upload files
- to websites, delete files from websites, get information about website
+ servers. It allows a client to get files from websites, upload files to
+ websites, delete files from websites, get information about website
directories and files, and interact with server-side CGI scripts.
C-Kermit includes an HTTP client capable of both clear-text and secure
HTTP connections, that can do all these tasks and can be automated
* Allowing an HTTP connection to be open at the same time as a
regular SET LINE or SET HOST connection, and also at the same time
- as an FTP connection ([171]Section 3);
+ as an FTP connection ([182]Section 3);
* Upgrading the HTTP protocol level from 1.0 to 1.1, thus allowing
for persistent connections, in which a series of commands can be
sent on the same connection, rather than only one as in HTTP 1.0
Persistent HTTP connections are managed with the following commands:
- HTTP [ switches ] OPEN [ security-options ] host-or-url [ port ]
+ HTTP [ switches ] OPEN [ security-options ] host-or-url [ port ]
Opens a persistent connection to the specified host (IP host
name or address) on the specified port. If any switches
- (options, listed in the next section) are included, their
- values are saved and used for all subsequent HTTP action
- commands on the same connection. If no port is specified, HTTP
- (80) is used. A Uniform Resource Locator (URL, [172]RFC 1738)
- can be given instead of a hostname (or address) and port (but
- the URL can not include a directory/file path). The security
- options are explained [173]below. The HTTP OPEN command
- replaces the C-Kermit 7.0 SET HOST hostname HTTP command, which
- no longer works with HTTP GET and related commands.
+ (options, listed in the next section) are included, their values
+ are saved and used for all subsequent HTTP action commands on
+ the same connection. If no port is specified, HTTP (80) is used.
+ A Uniform Resource Locator (URL, [183]RFC 1738) can be given
+ instead of a hostname (or address) and port (but the URL can not
+ include a directory/file path). The security options are
+ explained [184]below. The HTTP OPEN command replaces the
+ C-Kermit 7.0 SET HOST hostname HTTP command, which no longer
+ works with HTTP GET and related commands.
HTTP CLOSE
Closes any open HTTP connection and clears any saved switch
HTTP is Hypertext Transfer Protocol. HTTPS is the secure (SSL/TLS)
version of HTTP. The TCP service port is derived from the protocol
prefix (so normally the ":port" field is omitted). Thus the URL
- protocol name specifies a default TCP service port and the URL user
- and password fields can take the place of the /USER and /PASSWORD
- switches ([174]Section 2.2.1). The optional URI is a "compact string
- of characters for identifying an abstract or physical resource"
- ([175]RFC 2396), such as a file. It must begin with a slash (/); if
- the URI is omitted, "/" is supplied. Examples:
+ protocol name specifies a default TCP service port and the URL user and
+ password fields can take the place of the /USER and /PASSWORD switches
+ ([185]Section 2.2.1). The optional URI is a "compact string of
+ characters for identifying an abstract or physical resource" ([186]RFC
+ 2396), such as a file. It must begin with a slash (/); if the URI is
+ omitted, "/" is supplied. Examples:
http open http://www.columbia.edu/
Equivalent to http open www.columbia.edu or http open
www.columbia.edu http.
http open https://olga.secret@www1.xyzcorp.com/
- Equivalent to http /user:olga /pass:secret open
- www1.xyzcorp.com https.
+ Equivalent to http /user:olga /pass:secret open www1.xyzcorp.com
+ https.
Persistence is accomplished unilaterally by C-Kermit 8.0. An HTTP 1.0
server closes the connection after each action. Although HTTP 1.1
SET TCP HTTP-PROXY [ host[:port] ]
If a host (by hostname or IP address) is specified, Kermit uses
- it as a proxy server when attempting outgoing TCP connections
- -- not only HTTP connections, but all TCP/IP connections,
- Telnet and FTP included. This allows Kermit to adapt to the
- HTTP firewall penetration method (as opposed to other methods
- such as SOCKS4). If no hostname or ip-address is specified, any
+ it as a proxy server when attempting outgoing TCP connections --
+ not only HTTP connections, but all TCP/IP connections, Telnet
+ and FTP included. This allows Kermit to adapt to the HTTP
+ firewall penetration method (as opposed to other methods such as
+ SOCKS4). If no hostname or ip-address is specified, any
previously specified Proxy server is removed. If no port number
is specified, the "http" service is used. This command must be
given before the HTTP OPEN command if a proxy is to be used or
HTTP [ switches ] CONNECT host[:port]
Instructs the HTTP server to act as a proxy, establishing a
- connection to the specified host (IP hostname or address) on
- the given port (80 = HTTP by default) and to redirect all data
+ connection to the specified host (IP hostname or address) on the
+ given port (80 = HTTP by default) and to redirect all data
transmitted between Kermit and itself to the given host for the
life of the connection. This command is to be used only for
debugging HTTP proxy connections. If a proxy connection is
required, instruct Kermit to use the proxy with the SET TCP
HTTP-PROXY command.
- 2.2.1. HTTP Command Switches
+2.2.1. HTTP Command Switches
HTTP switches, like all other switches, are optional. When HTTP
switches are included with the HTTP OPEN command, they apply
/USER:name
To be used in case a page requires a username for access. The
username is sent with page requests. If it is given with the
- OPEN command it is saved until needed. If a username is
- included in a URL, it overrides the username given in the
- switch. CAUTION: Username and password (and all other
- information, including credit card numbers and other material
- that you might prefer to protect from public view) are sent
- across the network in clear text on regular HTTP connections,
- but authentication is performed securely on HTTPS connections.
+ OPEN command it is saved until needed. If a username is included
+ in a URL, it overrides the username given in the switch.
+ CAUTION: Username and password (and all other information,
+ including credit card numbers and other material that you might
+ prefer to protect from public view) are sent across the network
+ in clear text on regular HTTP connections, but authentication is
+ performed securely on HTTPS connections.
/PASSWORD:text
To be used in case a web page requires a password for access.
- The password is sent with page requests. If it is given with
- the OPEN command it is saved until needed. If a password is
- given in a URL, it overrides the one given here. CAUTION: (same
- as for /USER:).
+ The password is sent with page requests. If it is given with the
+ OPEN command it is saved until needed. If a password is given in
+ a URL, it overrides the one given here. CAUTION: (same as for
+ /USER:).
/AGENT:user-agent
- Identifies the client to the server. Overrides the default
- agent string, which is "C-Kermit" (for C-Kermit) or "Kermit-95"
- (for Kermit 95).
+ Identifies the client to the server. Overrides the default agent
+ string, which is "C-Kermit" (for C-Kermit) or "Kermit-95" (for
+ Kermit 95).
/ARRAY:array-designator
Tells Kermit to store the response headers in the given array,
- one line per element. The array need not be declared in
- advance. Example: /array:&a.
+ one line per element. The array need not be declared in advance.
+ Example: /array:&a.
/TOSCREEN
Tells Kermit to display any response text on the screen. It
/HEADER:{{tag:value}{tag:value}...}
- For a list of valid tags and value formats see [176]RFC 2616,
+ For a list of valid tags and value formats see [187]RFC 2616,
"Hypertext Transfer Protocol -- HTTP/1.1". A maximum of eight
headers may be specified.
- 2.2.2. HTTP Action Commands
+2.2.2. HTTP Action Commands
HTTP actions can occur within a persistent connection, or they can be
self-contained ("connectionless"). A persistent HTTP connection begins
Retrieves the named file from the server specified in the most
recent HTTP OPEN command for which a corresponding HTTP CLOSE
command has not been given. The filename may not include
- wildcards (HTTP protocol does not support them). If no HTTP
- OPEN command is in effect, this form of the HTTP GET command
- fails. The default local filename is the same as the remote
- name, but with any pathname stripped. For example, the command
- http get kermit/index.html stores the file in the current local
- directory as index.html. If the /HEADERS: switch is included,
- information about the file is also stored in the specified
- array (explained in [177]Section 2.2.3). All files are
- transferred in binary mode. HTTP does not provide for
- record-format or character-set conversion.
+ wildcards (HTTP protocol does not support them). If no HTTP OPEN
+ command is in effect, this form of the HTTP GET command fails.
+ The default local filename is the same as the remote name, but
+ with any pathname stripped. For example, the command http get
+ kermit/index.html stores the file in the current local directory
+ as index.html. If the /HEADERS: switch is included, information
+ about the file is also stored in the specified array (explained
+ in [188]Section 2.2.3). All files are transferred in binary
+ mode. HTTP does not provide for record-format or character-set
+ conversion.
HTTP [ switches ] GET url [ local-filename ]
When HTTP GET is given a URL rather than a filename, Kermit
opens a connection to the designated server (closing any
- previously open HTTP connection), gets the file, and then
- closes the connection. If the URL does not include a filename,
+ previously open HTTP connection), gets the file, and then closes
+ the connection. If the URL does not include a filename,
index.html is supplied. This is the self-contained one-step
"connectionless" method for getting a file from a Web server.
The data is not interpreted; HTTP GET is like "lynx -source"
rather than "lynx -dump".
- In the remaining HTTP action commands, the distinction between a
- remote filename and a URL are the same as in the HTTP GET command.
+ In the remaining HTTP action commands, the distinction between a remote
+ filename and a URL are the same as in the HTTP GET command.
HTTP [ switches ] HEAD remote-filename-or-url [ local-filename ]
Like GET except without actually getting the file; instead it
retrieves only the headers. If the /ARRAY: or /TOSCREEN switch
is included, there is no default local output filename but you
- can still specify one. If neither of these switches is
- included, the default local filename is the same as the remote
- filename, but with any path stripped and with ".head" appended.
- The HEAD command can be used in a script with the /ARRAY:
- switch to retrieve information about the requested resource to
- determine whether the resource should actually be retrieved
- with a subsequent GET request.
+ can still specify one. If neither of these switches is included,
+ the default local filename is the same as the remote filename,
+ but with any path stripped and with ".head" appended. The HEAD
+ command can be used in a script with the /ARRAY: switch to
+ retrieve information about the requested resource to determine
+ whether the resource should actually be retrieved with a
+ subsequent GET request.
HTTP [ switches ] INDEX remote-directory-or-url [ local-filename ]
Asks the server to send a listing of the files in the given
Sends data to a process running on the remote host; the result
is usually an HTML file but could be anything. The data to be
posted must be read from a local file (the source-file). If a
- result file is specified, Kermit stores the server's response
- in it.
+ result file is specified, Kermit stores the server's response in
+ it.
HTTP [ switches ] PUT [ MIME-TYPE:type ] local-file [
remote-file-or-url [ result-file ] ]
pathname stripped.
HTTP [ switches ] DELETE remote-file-or-url [ local-result-file ]
- Asks the server to delete the specified single file. If a
- result file is specified, it will contain any response data
- returned by the server.
+ Asks the server to delete the specified single file. If a result
+ file is specified, it will contain any response data returned by
+ the server.
Note the limitations of HTTP protocol compared to (say) FTP or Kermit.
There is no command for changing directories, no standard way to get
file or directory lists, no way to transfer file groups by using
wildcard notation, etc, and therefore no good way to (say) fetch all
pages, descend through subdirectories, perform automatic updates, etc.
- There is no assurrance a connection will stay open and, as noted,
- there is no provision for data conversion between unlike platforms.
- The data's MIME headers can be used for postprocessing.
+ There is no assurance a connection will stay open and, as noted, there
+ is no provision for data conversion between unlike platforms. The
+ data's MIME headers can be used for postprocessing.
- 2.2.3. HTTP Headers
+2.2.3. HTTP Headers
Each HTTP request and response contains a set of name/value pairs
- called headers. HTTP headers are specified in [178]RFC 2616. For
+ called headers. HTTP headers are specified in [189]RFC 2616. For
example, an HTTP GET request for /index.html on www.columbia.edu
contains the following headers:
}
Note that the "Date:" item is the current date and time; the
- "Last-Modifed:" item is the file's modification date and time. An
+ "Last-Modified:" item is the file's modification date and time. An
example showing how to use this information is presented in
- [179]Section 8.13.7.
+ [190]Section 8.13.7.
- 2.2.4. Secure HTTP Connections
+2.2.4. Secure HTTP Connections
SSL/TLS (Secure Sockets Layer / Transport Layer Security) is the
protocol used to secure HTTP, SMTP, and other Internet applications.
- See the [180]C-Kermit Reference Section 5.4 for an introduction to
+ See the [191]C-Kermit Reference Section 5.4 for an introduction to
SSL/TLS. To make a secure HTTP connection, you need:
1. A secure client (a version of C-Kermit or Kermit 95 with SSL/TLS
sure you have it.
2. A secure server to connect to.
3. The CA Root Certificate used to authenticate the server to the
- client. (see [181]Section 15 of the security reference for an
+ client. (see [192]Section 15 of the security reference for an
introduction to certificates).
And you must make a connection to the secure HTTP port: service name
HTTPS, port number 443 (as opposed to service HTTP, port 80). You can
also make secure connections to other ports by including the /TLS or
- /SSL switch with the HTTP OPEN command, if the host supports SSL/TLS
- on the given port:
+ /SSL switch with the HTTP OPEN command, if the host supports SSL/TLS on
+ the given port:
The quality of the SSL/TLS connection depends on the cipher suite.
There are several possibilities:
subject to a Man-In-The-Middle (MITM) attack.
X.509 certificate on the server:
- When you connect to certain secure servers, an X.509
- certificate is returned. This certificate is issued to a
- special hostname, something like www1.xyzcorp.com or
- wwws.xyzcorp.com (rather than the normal www.xyzcorp.com). It
- is signed by the host's Certificate Authority (CA). If the host
- certificate is configured on the client, it can be used to
- verify the certificate received from the server. If the
- certificate it verified as authentic, a check is made to ensure
- it has not expired and it was issued to the host you were
- attempting to connect to. If you had asked to connect to (say)
- www.xyzcorp.com but were given a certificate for
- www1.xyzcorp.com, you would be prompted for permission to
- continue.
-
- If the verification succeeded, the connection would be
- encrypted with one-way (server-to-client) authentication. This
- connection is not subject to a MITM attack.
-
- If a username and password are transmitted over this
- connection, they are not subject to interception. However, the
- standard risks associated with passing the password to the host
- for verification apply; for example, if the host has been
+ When you connect to certain secure servers, an X.509 certificate
+ is returned. This certificate is issued to a special hostname,
+ something like www1.xyzcorp.com or wwws.xyzcorp.com (rather than
+ the normal www.xyzcorp.com). It is signed by the host's
+ Certificate Authority (CA). If the host certificate is
+ configured on the client, it can be used to verify the
+ certificate received from the server. If the certificate it
+ verified as authentic, a check is made to ensure it has not
+ expired and it was issued to the host you were attempting to
+ connect to. If you had asked to connect to (say) www.xyzcorp.com
+ but were given a certificate for www1.xyzcorp.com, you would be
+ prompted for permission to continue.
+
+ If the verification succeeded, the connection would be encrypted
+ with one-way (server-to-client) authentication. This connection
+ is not subject to a MITM attack.
+
+ If a username and password are transmitted over this connection,
+ they are not subject to interception. However, the standard
+ risks associated with passing the password to the host for
+ verification apply; for example, if the host has been
compromised, the password will be compromised.
X.509 client certificate:
If a connection has been established with an X.509 server
- certificate, the server can ask the client to send a
- certificate of its own. This certificate must be verified
- against a CA Root certificate. The certificate itself (or
- subject info from the certificate) is used to determine the
- authorization for the client, and if successful, the username
- and password need not be sent to the server.
+ certificate, the server can ask the client to send a certificate
+ of its own. This certificate must be verified against a CA Root
+ certificate. The certificate itself (or subject info from the
+ certificate) is used to determine the authorization for the
+ client, and if successful, the username and password need not be
+ sent to the server.
Kerberos 5:
- Instead of using X.509 certifcates, Kerberos 5 can be used to
+ Instead of using X.509 certificates, Kerberos 5 can be used to
perform the authentication and key exchange. In this situation,
there is mutual authentication between the client and server.
The Kerberos 5 principal is used by the server to look up the
An HTTP connection is made with the HTTP OPEN command:
- HTTP [ switches ] OPEN [ { /SSL, /TLS } ] host [ port ]
+ HTTP [ switches ] OPEN [ { /SSL, /TLS } ] host [ port ]
If /SSL or /TLS switches are included (these are synonyms), or
if the service is HTTPS or the port is 443, a secure connection
- is attempted using the current authentication settings; see
- HELP SET AUTHENTICATION for details ([182]Section 6.2 of the
- security reference). If the no /SSL or /TLS switch is included
- but the port is 443 or the service is HTTPS, a secure
- connection is attempted. If an /SSL or /TLS switch is included
- but a port is not specified, an SSL/TLS connection is attempted
- on the default port (80).
-
- Certificates are covered in the separate [183]Kermit Security
- Reference for C-Kermit 8.0. You should let Kermit know to verify
- certificates with the SET AUTHENTICATION TLS command. For example:
+ is attempted using the current authentication settings; see HELP
+ SET AUTHENTICATION for details ([193]Section 6.2 of the security
+ reference). If the no /SSL or /TLS switch is included but the
+ port is 443 or the service is HTTPS, a secure connection is
+ attempted. If an /SSL or /TLS switch is included but a port is
+ not specified, an SSL/TLS connection is attempted on the default
+ port (80).
+
+ Certificates are covered in the separate [194]Kermit Security Reference
+ for C-Kermit 8.0. You should let Kermit know to verify certificates
+ with the SET AUTHENTICATION TLS command. For example:
SET AUTHENTICATION TLS CRL-DIR directory
- Specifies a directory that contains certificate revocation
- files where each file is named by the hash of the certificate
- that has been revoked.
+ Specifies a directory that contains certificate revocation files
+ where each file is named by the hash of the certificate that has
+ been revoked.
SET AUTHENTICATION TLS CRL-FILE filename
Specifies a file that contains a list of certificate
SET AUTHENTICATION TLS VERIFY OFF
Tells Kermit not to require a certificate and accept any
- certificate that is presented regardless of whether it is
- valid.
+ certificate that is presented regardless of whether it is valid.
There are many other options; see the security document for details.
send a 302 Found error which indicates that the "Location:" header
should be used to determine the URL at which the data can be found.
- 2.2.5. HTTP Variables
+2.2.5. HTTP Variables
\v(http_code)
The HTTP protocol code number of the most recent server reply,
To display all the HTTP variables at once, type SHOW VAR HTTP:
C-Kermit> http open www.columbia.edu
- C-Kermit> http get lkjlkjlkjlkj
+ C-Kermit> http get lkjlkjlkjlkj
C-Kermit> sho var http
\v(http_code) = 404
\v(http_connected) = 1
\v(http_security) = NULL
C-Kermit>
- 2.2.6. The HTTP Command-Line Personality
+2.2.6. The HTTP Command-Line Personality
If you invoke C-Kermit with the name "http" or "https", you can use a
special set of HTTP-specific command-line options. You can do this by
If your version of Kermit is built with SSL/TLS security, you can also
use the -z option to make secure HTTP (https) connections.
- Finally, as noted in [184]Section 16, you can also give a URL instead
+ Finally, as noted in [195]Section 16, you can also give a URL instead
of a host name and options.
- [ [185]Top ] [ [186]Contents ] [ [187]C-Kermit Home ] [ [188]Kermit
+ [ [196]Top ] [ [197]Contents ] [ [198]C-Kermit Home ] [ [199]Kermit
Home ]
- __________________________________________________________________________
-
-3. THE BUILT-IN FTP CLIENT
-
- 3.1. [189]Making and Managing FTP Connections
- 3.2. [190]Making Secure FTP Connections
- 3.3. [191]Setting FTP Preferences
- 3.4. [192]Managing Directories and Files
- 3.5. [193]Uploading Files With FTP
- 3.6. [194]Downloading Files With FTP
- 3.7. [195]Translating Character Sets
- 3.8. [196]FTP Command Shortcuts
- 3.9. [197]Dual Sessions
- 3.10. [198]Automating FTP Sessions
- 3.11. [199]Advanced FTP Protocol Features
+
+3. KERMIT'S BUILT-IN FTP CLIENT
+
+ 3.1. [200]Making and Managing FTP Connections
+ 3.2. [201]Making Secure FTP Connections
+ 3.3. [202]Setting FTP Preferences
+ 3.4. [203]Managing Directories and Files
+ 3.5. [204]Uploading Files With FTP
+ 3.6. [205]Downloading Files With FTP
+ 3.7. [206]Translating Character Sets
+ 3.8. [207]FTP Command Shortcuts
+ 3.9. [208]Dual Sessions
+ 3.10. [209]Automating FTP Sessions
+ 3.11. [210]Advanced FTP Protocol Features
Earlier versions of C-Kermit and K95 included an FTP command, but it
simply invoked an external FTP client. Now, by popular demand, Kermit
advantages over traditional FTP clients (and its previous interface to
them):
- * Any of Kermit's built-in [200]security methods can be used to
- establish and conduct secure FTP sessions with [201]FTP servers
+ * Any of Kermit's built-in [211]security methods can be used to
+ establish and conduct secure FTP sessions with [212]FTP servers
that support these methods. (Security modules can be subject to
export restrictions.)
* Kermit's FTP client uses "passive mode" by default to avoid
blockage by firewalls and network address translators. Of course
active mode can be chosen too when needed.
- * [202]Character sets can be translated as part of the transfer
+ * [213]Character sets can be translated as part of the transfer
process even when the FTP server does not support character-set
translation, including to/from the new Internet standard
- international character set, [203]Unicode UTF-8. This includes
- both the file's name and (for text files only) its contents.
- * All of C-Kermit's [204]file-selection mechanisms are available:
+ international character set, [214]Unicode UTF-8. This includes both
+ the file's name and (for text files only) its contents.
+ * All of C-Kermit's [215]file-selection mechanisms are available:
size, date, name patterns and lists, exception lists, etc.
- * [205]Atomic file movement capabilities are provided (delete, move,
+ * [216]Atomic file movement capabilities are provided (delete, move,
or rename files automatically after successful transfer).
* The correct file type, "ascii" (i.e. text) or binary, is chosen
- automatically for each file (explained in [206]Section 4), and any
- mixture of text and binary files can be sent in a single
- operation, even across platforms.
+ automatically for each file (explained in [217]Section 4), and any
+ mixture of text and binary files can be sent in a single operation,
+ even across platforms.
* Update mode ("don't bother transferring files that didn't change
since last time") and recovery (resumption of an interrupted
transfer from the point of failure) are available in both
platforms that have tree-structured file systems. Recursive GETs
are supported between like platforms if the server cooperates and
between like or unlike platforms if the server supports MLSD
- ([207]Section 3.11).
+ ([218]Section 3.11).
* When receiving files, all of Kermit's file collision actions are
available: backup, update, refuse, rename, etc.
* Multi-file transfers can be interrupted on a per-file basis,
automatically skipping to the next file.
- * FTP sessions are [208]fully scriptable.
+ * FTP sessions are [219]fully scriptable.
* An entire FTP session (connect, login, CD, upload or download,
logout) can be specified on the command line without using a
script.
you start a multi-file transfer without remembering to give a
"prompt" command first :-).
- [ [209]Top ] [ [210]FTP Top ] [ [211]FTP Client Overview ] [ [212]FTP
- Script Tutorial ] [ [213]C-Kermit Home ] [ [214]Kermit Home ]
- _________________________________________________________________
+ [ [220]Top ] [ [221]FTP Top ] [ [222]FTP Client Overview ] [ [223]FTP
+ Script Tutorial ] [ [224]C-Kermit Home ] [ [225]Kermit Home ]
- 3.1. Making and Managing FTP Connections
+3.1. Making and Managing FTP Connections
Each copy of Kermit can have one FTP connection open at a time. FTP
- connections are independent of regular terminal connections; a
- terminal connection (serial or network via SET LINE, DIAL, SET HOST,
- TELNET, etc) may be, but need not be, open at the same time as an FTP
+ connections are independent of regular terminal connections; a terminal
+ connection (serial or network via SET LINE, DIAL, SET HOST, TELNET,
+ etc) may be, but need not be, open at the same time as an FTP
connection, and terminal connections can also be closed, and new
connections opened, without interfering with the FTP connection (and
- vice versa). Thus, for example, Kermit can have an FTP connection and
- a TELNET connection open to the same host simultaneously, using the
+ vice versa). Thus, for example, Kermit can have an FTP connection and a
+ TELNET connection open to the same host simultaneously, using the
TELNET connection (e.g.) to send mail or take other desired actions as
various FTP actions complete. Of course, each copy of Kermit can do
only one thing at a time, so it can't (for example) transfer a file
with FTP and another file with Kermit protocol simultaneously.
- A Kermit FTP session can be established by [215]command-line options,
- by [216]URL, or by [217]interactive commands.
+ A Kermit FTP session can be established by [226]command-line options,
+ by [227]URL, or by [228]interactive commands.
- 3.1.1. Kermit Command-Line Options for FTP
+3.1.1. Kermit Command-Line Options for FTP
The new command-line option '-9' (sorry, we're out of letters) can be
used when starting C-Kermit, telling it to make an FTP connection:
making the connection and does not prompt you for it (but it does
prompt you for the password if one is required).
- Once the connection is made, you get the regular Kermit prompt, and
- can give interactive commands such as the ones described below. When
- you give a BYE command, Kermit closes the session and exits, just as a
+ Once the connection is made, you get the regular Kermit prompt, and can
+ give interactive commands such as the ones described below. When you
+ give a BYE command, Kermit closes the session and exits, just as a
regular FTP client would do. If you don't want Kermit to exit when you
- give a BYE command, include the -S ("Stay") option on the command
- line.
+ give a BYE command, include the -S ("Stay") option on the command line.
Other Kermit command-line options that are not specific to non-FTP
connections should affect the FTP session in the expected ways; for
example, -i and -T force binary and text mode transfers, respectively.
File transfers can not be initiated on the "kermit -9" command line;
- for that you need to use Kermit's FTP personality (next section) or
- you can use URLs ([218]Section 3.1.3).
- _________________________________________________________________
+ for that you need to use Kermit's FTP personality (next section) or you
+ can use URLs ([229]Section 3.1.3).
- 3.1.2. The FTP Command-Line Personality
+3.1.2. The FTP Command-Line Personality
If you want to replace your regular FTP client with C-Kermit, you can
make a link called "ftp" to the C-Kermit binary (or you can store a
-v Verbose: accepted but ignored (operation is verbose by default).
-i Not interactive: accepted but ignored.
- and the hostname can also be a URL (explained in [219]Section 3.1.3).
+ and the hostname can also be a URL (explained in [230]Section 3.1.3).
To specify a non-default TCP port for the FTP server, include the port
number or name after the hostname.
There are also some bonus options that allow you to execute an entire
FTP session from the shell command line, as long as you don't include
- the -n option. These are not available with regular FTP clients, and
- at least one of these options (-g) conflicts with UNIX ftp (where -g
- means "no globbing", which does not apply to Kermit), and some of them
- (like the options above) also conflict with regular Kermit
- command-line options:
+ the -n option. These are not available with regular FTP clients, and at
+ least one of these options (-g) conflicts with UNIX ftp (where -g means
+ "no globbing", which does not apply to Kermit), and some of them (like
+ the options above) also conflict with regular Kermit command-line
+ options:
-m mode = "passive" (default) or "active"
-Y Don't execute the Kermit initialization file [1]
Fancier options such as restart, character-set translation, filename
collision selection, automatic move/rename/delete, etc, are not
available from the command line; for these you can use the commands
- described in the following sections. The -R option might also work
- with -g (GET) but that depends on the server.
+ described in the following sections. The -R option might also work with
+ -g (GET) but that depends on the server.
The following security options are also available, explained in
- [220]Section 3.2:
+ [231]Section 3.2:
-k realm Kerberos 4 realm [4]
-f Kerberos 5 credentials forwarding [4]
If you include -A or specify a name of "anonymous" or "ftp", you are
logged in anonymously and, in the absence of -P, Kermit automatically
- supplies a password of "user@host", where "user" is your local user
- ID, and "host" is the hostname of the computer where Kermit is
- running. If you do not include -p or -g, Kermit enters command mode so
- you can type commands or execute them from a script.
+ supplies a password of "user@host", where "user" is your local user ID,
+ and "host" is the hostname of the computer where Kermit is running. If
+ you do not include -p or -g, Kermit enters command mode so you can type
+ commands or execute them from a script.
If you include -p or -g, Kermit attempts to transfer the specified
files and then exits automatically at the end of the transfer unless
When downloading, you can either specify a particular mode (text or
binary) to be used for all the files, or you can let Kermit select the
- type for each file automatically, based on its name (see [221]Sections
- 3.5 and [222]3.6 for greater detail). In UNIX be sure to quote any
+ type for each file automatically, based on its name (see [232]Sections
+ 3.5 and [233]3.6 for greater detail). In UNIX be sure to quote any
wildcard characters to prevent the shell from expanding them, as shown
in the examples just below. Filename collisions are handled according
Kermit's FILE COLLISION setting (if specified in your Kermit
anonymously and gets the ckermit.tar.gz file in binary mode from the
kermit/archives directory.
- Here's a slightly more ambitious example that illustrates CD'ing to
- the desired server directory to get a group of files in text mode (in
- this case the C-Kermit source files):
+ Here's a slightly more ambitious example that illustrates CD'ing to the
+ desired server directory to get a group of files in text mode (in this
+ case the C-Kermit source files):
ftp -A kermit.columbia.edu -D kermit/f -ag "ck[cuw]*.[cwh]" makefile
(.mykermrc in UNIX, K95.INI in Windows) is executed before the command
line options, so you can set any FTP-related preferences there, as
described in the subsequent sections.
- _________________________________________________________________
- 3.1.3. The FTP URL Interpreter
+3.1.3. The FTP URL Interpreter
If Kermit is invoked with either its regular personality (as "kermit")
or its FTP personality (as "ftp"), you can also give a URL
HINT: suppose somebody sends you an FTP URL in email, or you see it in
some text. If your terminal screen supports copy/paste, copy the url,
- and then at the shell prompt type "kermit", a space, and then paste
- the URL, e.g.:
+ and then at the shell prompt type "kermit", a space, and then paste the
+ URL, e.g.:
$ kermit ftp://alpha.greenie.net/pub/mgetty/source/1.1/mgetty1.1.27-O
"$ is the shell prompt; the part you type is underlined, the rest is
pasted in. Kermit does the rest.
- _________________________________________________________________
- 3.1.4. Interactive FTP Session Establishment
+3.1.4. Interactive FTP Session Establishment
As you read this and the following sections, bear in mind that any
command that can be given at the prompt can also be used in a script
program. Kermit's script programming language is the same as its
- interactive command language. [223]CLICK HERE if you would like to
+ interactive command language. [234]CLICK HERE if you would like to
learn a bit more about script writing.
An FTP session is established with the FTP OPEN command:
FTP [ OPEN ] [ { /SSL, /TLS } ] hostname [ switches ] [ port ]
- Opens an FTP connection to the given host on the given port
- and, if FTP AUTOLOGIN is ON, also logs you in to the server,
+ Opens an FTP connection to the given host on the given port and,
+ if FTP AUTOLOGIN is ON, also logs you in to the server,
prompting for username and password if necessary. If no port is
specified, the regular FTP protocol port (21) is used. The OPEN
keyword is optional (unless the hostname conflicts with one of
- the FTP command keywords, which you can list by typing "ftp
- ?").
+ the FTP command keywords, which you can list by typing "ftp ?").
- The hostname can be an IP host name, numeric IP address, or if you
- have a network directory active (SET NETWORK DIRECTORY; see Chapter 6
- of [224]Using C-Kermit), an entry name in the directory. In the latter
+ The hostname can be an IP host name, numeric IP address, or if you have
+ a network directory active (SET NETWORK DIRECTORY; see Chapter 6 of
+ [235]Using C-Kermit), an entry name in the directory. In the latter
case, if the given hostname matches exactly one entry, the associated
name or address is used; if it matches more than one, Kermit cycles
- through them until one is found that can be opened; if it matches
- none, then the hostname is used as-is. If a directory is active but
- you want to bypass directory lookup, include an "=" sign at the
- beginning of the hostname, and/or use a numeric IP address.
-
- When an FTP connection is opened, the default file-transfer mode is
- set to binary if the client and server platforms are alike (e.g. both
- of them are some kind of UNIX), and to text ("ascii") if they are not
+ through them until one is found that can be opened; if it matches none,
+ then the hostname is used as-is. If a directory is active but you want
+ to bypass directory lookup, include an "=" sign at the beginning of the
+ hostname, and/or use a numeric IP address.
+
+ When an FTP connection is opened, the default file-transfer mode is set
+ to binary if the client and server platforms are alike (e.g. both of
+ them are some kind of UNIX), and to text ("ascii") if they are not
alike. This has no particular effect for uploading since Kermit
automatically switches between text and binary mode for each file, but
might be important for downloading. The connection is also set to
- Stream mode and File structure. Record- or page-oriented file
- transfers are not supported by C-Kermit's FTP client.
+ Stream mode and File structure. Record- or page-oriented file transfers
+ are not supported by C-Kermit's FTP client.
The optional FTP OPEN switches are:
/ACCOUNT:text
Uses the given text as your account (or secondary password,
- depending on the requirements of the server; most servers do
- not require or accept an account name). If an account is not
+ depending on the requirements of the server; most servers do not
+ require or accept an account name). If an account is not
supplied, you are not prompted for one.
/PASSIVE
/ACTIVE
Opens the connection in active mode. Use this switch if the
- server does not support passive mode, or use the command SET
- FTP PASSIVE-MODE OFF.
+ server does not support passive mode, or use the command SET FTP
+ PASSIVE-MODE OFF.
/NOINIT
Added in C-Kermit 8.0.201. Tells C-Kermit not to send REST,
controlling terminal and you must type the response; the response can
not be scripted. Use the switches to avoid prompts, or one of the
secure authentication methods described in the next section, or see
- [225]SET FTP AUTOLOGIN and the [226]FTP USER and similar commands
+ [236]SET FTP AUTOLOGIN and the [237]FTP USER and similar commands
described later in this section.
Examples:
The FTP OPEN command succeeds if a connection was opened to the server
(even if the given username and password were not valid) and fails
- otherwise (see [227]Section 3.8 for details).
+ otherwise (see [238]Section 3.8 for details).
When your FTP session is complete, you can terminate it as follows:
FTP BYE
- Closes the FTP connection if one was open. The FTP prefix can
- be omitted if no other connection is open at the same time (see
- [228]Section 3.8 for details). If a connection log is active,
- an FTP record is written to it. If Kermit was started with the
- -9 command-line option or with its FTP command-line
- personality, and the -S (Stay) option was not given, AND there
- is no other active connection, the FTP BYE command also exits,
- just as it does on a regular FTP client. Synonyms: FTP CLOSE,
- FTP QUIT (but if the FTP prefix is omitted from QUIT, this
- becomes the regular Kermit QUIT command, which is equivalent to
- EXIT; i.e. it closes the connection and exits from Kermit).
+ Closes the FTP connection if one was open. The FTP prefix can be
+ omitted if no other connection is open at the same time (see
+ [239]Section 3.8 for details). If a connection log is active, an
+ FTP record is written to it. If Kermit was started with the -9
+ command-line option or with its FTP command-line personality,
+ and the -S (Stay) option was not given, AND there is no other
+ active connection, the FTP BYE command also exits, just as it
+ does on a regular FTP client. Synonyms: FTP CLOSE, FTP QUIT (but
+ if the FTP prefix is omitted from QUIT, this becomes the regular
+ Kermit QUIT command, which is equivalent to EXIT; i.e. it closes
+ the connection and exits from Kermit).
The following commands can be used to achieve greater control over the
connection and login process:
FTP USER name [ password [ account ] ]
Used to log in to an FTP server to which a connection has been
made without autologin, or when autologin failed. If the
- password is furnished on the command line, it is used;
- otherwise you are prompted for a password. An account may also
- be furnished if required by the server; it is not required by
+ password is furnished on the command line, it is used; otherwise
+ you are prompted for a password. An account may also be
+ furnished if required by the server; it is not required by
Kermit and is not prompted for if omitted. Synonyms: USER, FTP
LOGIN.
FTP ACCOUNT text
- Sends an account name to a server that supports accounts. If
- the server does not support accounts, an error response occurs.
- If the server does support accounts, the account is accepted if
- it is valid and rejected if it is not. The account might be
- used for charging purposes or it might be a secondary password,
- or it might be used for any other purpose, such as an access
- password for a particular disk. Servers that support accounts
- might or might not allow or require the account to be sent
- prior to login; usually it is sent after login, if at all.
- Synonym: ACCOUNT.
+ Sends an account name to a server that supports accounts. If the
+ server does not support accounts, an error response occurs. If
+ the server does support accounts, the account is accepted if it
+ is valid and rejected if it is not. The account might be used
+ for charging purposes or it might be a secondary password, or it
+ might be used for any other purpose, such as an access password
+ for a particular disk. Servers that support accounts might or
+ might not allow or require the account to be sent prior to
+ login; usually it is sent after login, if at all. Synonym:
+ ACCOUNT.
Example:
... ; (have session here)
bye ; Log out and disconnect
- The following commands are used to control or get information about
- the FTP connection. Any particular FTP server does not necessarily
- support all of them.
+ The following commands are used to control or get information about the
+ FTP connection. Any particular FTP server does not necessarily support
+ all of them.
FTP RESET
Terminates a user session but leaves the connection open,
Most FTP servers automatically log you out and and disconnect
your session if there has been no activity for a certain amount
of time. Use this command to ask the server to set its idle
- limit to the given number of seconds. Omit the number to ask
- the server to inform you of its current idle limit.
+ limit to the given number of seconds. Omit the number to ask the
+ server to inform you of its current idle limit.
FTP STATUS [ filename ]
Asks the FTP server to send information about the current
FTP SYSTEM
Asks the FTP server to identify its operating system (Listed in
Internet Assigned Numbers, Operating System Names). Examples:
- UNIX, VMS, VM/CMS, WINDOWS-NT. Unfortunately many variations
- are allowed (e.g. LINUX-2.0, LINUX-2.2, FREEBSD, ULTRIX, etc,
+ UNIX, VMS, VM/CMS, WINDOWS-NT. Unfortunately many variations are
+ allowed (e.g. LINUX-2.0, LINUX-2.2, FREEBSD, ULTRIX, etc,
instead of UNIX; WINDOWS-NT-3, WINDOWS-NT-3.5, WINDOWS-NT-3.51,
WINDOWS-NT-4, etc). The report might also include other
information like "Type L8", "Type I", or "Type A", indicating
SITE commands is (not surprisingly) site specific.
FTP QUOTE text
- (Advanced) Sends an FTP command in FTP protocol format. Use
- this command to send commands to the server that the FTP client
- might not know about.
+ (Advanced) Sends an FTP command in FTP protocol format. Use this
+ command to send commands to the server that the FTP client might
+ not know about.
SHOW FTP
Lists client (Kermit) FTP settings and information. Also SHOW
HELP SET FTP [ keyword ]
Asks Kermit to list and describe its built-in SET FTP commands.
- [ [229]Top ] [ [230]FTP Top ] [ [231]C-Kermit Home ] [ [232]Kermit
- Home ]
- _________________________________________________________________
+ [ [240]Top ] [ [241]FTP Top ] [ [242]C-Kermit Home ] [ [243]Kermit Home
+ ]
+
+3.1.5. Making Proxy Connections
+
+ The simplist form of firewall traversal is the HTTP CONNECT command.
+ The CONNECT command was implemented to allow a public web server which
+ usually resides on the boundary between the public and private networks
+ to forward HTTP requests from clients on the private network to public
+ web sites. In order to allow secure web connections to be established,
+ the CONNECT command works by authenticating the client with a
+ username/password and then establishing a tunnel to the desired host.
+
+ Many web servers support the CONNECT command and it can be configured
+ to allow outgoing connections to authenticated user to any TCP/IP
+ hostname/port combination accessible to the web server. The limitations
+ of HTTP CONNECT is that it can only be used for outgoing connections
+ for protocols that are implemented using TCP/IP. Protocols such as
+ Kerberos authentication that use UDP/IP cannot be tunneled using HTTP
+ CONNECT.
+
+ Kermit provides support for the use of HTTP CONNECT proxy services with
+ the command:
+
+ SET TCP HTTP-PROXY [/USER:username /PASSWORD:password] hostname/ip-address[:po
+rt]
+
+ When a port is not specified the default port configured on the HTTP
+ server is used. This is frequently port 443. When a hostname is
+ specified, it is resolved using the DNS available to the web server.
- 3.2. Making Secure FTP Connections
+3.2. Making Secure FTP Connections
- Also see: [233]Accessing IBM Information Exchange with Kermit.
+ Also see: [244]Accessing IBM Information Exchange with Kermit.
In the previous section, you can see several examples of traditional
insecure authentication: username and password sent across the network
Transport Layer Security (SSL and TLS). It does not presently include
SSL tunneling nor any form of SSH v1 or v2. When Kermit is built with
the necessary libraries, secure FTP connections are attempted by
- default, in which all connections are authenticated and the command
- and data channels are private.
+ default, in which all connections are authenticated and the command and
+ data channels are private.
The use of authentication and encryption for FTP connections can be
adjusted with the commands listed below, which are available only if
SET FTP AUTHTYPE { AUTOMATIC, GSSAPI-KRB5, KERBEROS4, SRP, SSL, TLS }
Specifies an ordered list of authentication methods to be
attempted when AUTOAUTHENTICATION is ON. The default list is:
- GSSAPI-KRB5, SRP, KERBEROS_V4, TLS, SSL. If none of the
- selected methods are supported by the server, an insecure login
- is used as a fallback. Note, by the way, that SSL or TLS can be
- used to secure an anonymous connection.
+ GSSAPI-KRB5, SRP, KERBEROS_V4, TLS, SSL. If none of the selected
+ methods are supported by the server, an insecure login is used
+ as a fallback. Note, by the way, that SSL or TLS can be used to
+ secure an anonymous connection.
SET FTP AUTOAUTHENTICATION { ON, OFF }
Tells whether authentication should be negotiated by the FTP
OPEN command. Default is ON. Use SET FTP AUTOAUTHENTICATION OFF
to force a clear-text, unencrypted connection to FTP servers
- (such as the one at the Kermit FTP site) that normally would
- try to negotiate secure authentication and encryption.
+ (such as the one at the Kermit FTP site) that normally would try
+ to negotiate secure authentication and encryption.
SET FTP AUTOENCRYPTION { ON, OFF }
Tells whether encryption (privacy) should be negotiated by the
- FTP OPEN command, which can happen only if secure
- authentication is also negotiated. Default is ON.
+ FTP OPEN command, which can happen only if secure authentication
+ is also negotiated. Default is ON.
SET FTP AUTOLOGIN { ON, OFF }
Tells Kermit whether to try logging in automatically when you
make an FTP connection, as opposed to letting you do it "by
hand" with the FTP USER command.
- SET FTP COMMAND-PROTECTION-LEVEL { CLEAR, CONFIDENTIAL, PRIVATE, SAFE
- }
+ SET FTP COMMAND-PROTECTION-LEVEL { CLEAR, CONFIDENTIAL, PRIVATE, SAFE }
Determines the level of protection applied to the command
channel:
Command-line options:
-k name
- Specifies the realm to be used with Kerberos 4 authentication
- (= SET AUTH K4 REALM name).
+ Specifies the realm to be used with Kerberos 4 authentication (=
+ SET AUTH K4 REALM name).
-f
Enables forwarding of Kerberos 5 credentials to the host when
2 = require verification of certificate
-z cert=filename
- Specifies a file containing a client certificate to be
- presented to the FTP server.
+ Specifies a file containing a client certificate to be presented
+ to the FTP server.
-z key=filename
Specifies a file containing a private key matching the client
known FTP servers that support AUTH TLS.
Note that when using certain security methods, such as SSL or TLS, you
- may be prompted to confirm or verify certain actions or conditions,
- for example, whether to accept self-signed certificates. This can
- interfere with unattended operation of scripts; see [234]Section 3.10.
+ may be prompted to confirm or verify certain actions or conditions, for
+ example, whether to accept self-signed certificates. This can interfere
+ with unattended operation of scripts; see [245]Section 3.10.
- [ [235]Top ] [ [236]FTP Top ] [ [237]C-Kermit Home ] [ [238]Kermit
- Home ]
- _________________________________________________________________
+ [ [246]Top ] [ [247]FTP Top ] [ [248]C-Kermit Home ] [ [249]Kermit Home
+ ]
+
+3.3. Setting FTP Preferences
- 3.3. Setting FTP Preferences FTP preferences can be set globally and
- persistently with the commands in the following sections; many of
- these can also be overridden on a per-command basis with switches that
- have the same name.
+ FTP preferences can be set globally and persistently with the commands
+ in the following sections; many of these can also be overridden on a
+ per-command basis with switches that have the same name.
- 3.3.1. Logs, Messages, and Other Feedback
+3.3.1. Logs, Messages, and Other Feedback
You can control the amount of feedback received from your FTP session
with the commands in this section. First, you can create a log of your
FTP transfers with the following commands:
SET TRANSACTION-LOG { VERBOSE, FTP, BRIEF }
- Selects the log format. VERBOSE is the default, and is
- described in [239]the manual. FTP chooses a WU-FTPD format, the
- same as is used by the popular FTP server. BRIEF creates
- per-file records in comma-separated-list format. For greater
- detail, see [240]Section 4.17 of the [241]C-Kermit 7.0 Update
- Notes.
+ Selects the log format. VERBOSE is the default, and is described
+ in [250]the manual. FTP chooses a WU-FTPD format, the same as is
+ used by the popular FTP server. BRIEF creates per-file records
+ in comma-separated-list format. For greater detail, see
+ [251]Section 4.17 of the [252]C-Kermit 7.0 Update Notes.
LOG TRANSACTIONS filename
Records FTP (or Kermit, or any other protocol) uploads and
most platforms is FULLSCREEN. The display is automatically
disabled if Kermit is running in the background or in batch.
BRIEF is always used for command-line initiated transfers
- (unless suppressed by -q). While a file-transfer is in
- progress, you can interrupt it in the normal Kermit way by
- typing one of the following keys or key combinations:
+ (unless suppressed by -q). While a file-transfer is in progress,
+ you can interrupt it in the normal Kermit way by typing one of
+ the following keys or key combinations:
X - Cancel current file but go on to the next one (if any).
Z - Cancel the entire transfer. Ctrl-L or Ctrl-W - Refresh
the file-transfer display (if any).
SET QUIET { ON, OFF }
This command applies to Kermit in general, not just FTP. OFF by
- default; when ON, it surpresses most messages from most
- commands as well as the file-transfer display.
+ default; when ON, it suppresses most messages from most commands
+ as well as the file-transfer display.
SET FTP PROGRESS-MESSAGES { ON, OFF }
Tells whether Kermit should print locally-generated feedback
Tells whether local client debugging information should be
displayed. OFF by default. When ON, the commands that are sent
to the server are shown, as well as its responses (even if
- VERBOSE-MODE is OFF), plus additional informational messages
- are printed regarding the progress of secure operations. Also,
- the temporary file created by the [242]MGET command is not
- deleted so you can see what's in it.
+ VERBOSE-MODE is OFF), plus additional informational messages are
+ printed regarding the progress of secure operations. Also, the
+ temporary file created by the [253]MGET command is not deleted
+ so you can see what's in it.
Set all of these to OFF when silent running is desired.
- 3.3.2. Operational Preferences
+3.3.2. Operational Preferences
FTP DISABLE new-protocol-feature-name
FTP ENABLE new-protocol-feature-name
- Explained in [243]Section 3.11.
+ Explained in [254]Section 3.11.
SET FTP AUTOLOGIN { ON, OFF }
If you give this command prior to opening an FTP connection, it
if they are not yet known). When OFF, FTP OPEN connects to the
server without logging in. OFF is equivalent to the -n
command-line option when using Kermit's FTP command-line
- personality. See [244]Section 3.1.4 for usage.
+ personality. See [255]Section 3.1.4 for usage.
SET FTP PASSIVE-MODE { ON, OFF }
ON by default, to avoid random TCP port assignment for data
- connections, which can prevent FTP protocol from working
- through firewalls and network address translators (for more on
- these topics, see the [245]Kermit security reference. Set to
- OFF in case the FTP server does not support passive mode, or in
- case the client has problems with it (it has been observed, for
+ connections, which can prevent FTP protocol from working through
+ firewalls and network address translators (for more on these
+ topics, see the [256]Kermit security reference. Set to OFF in
+ case the FTP server does not support passive mode, or in case
+ the client has problems with it (it has been observed, for
example, that when using passive mode, the SCO XENIX 2.3.4
TCP/IP stack hangs in the connect() call forever). Synonyms:
PASSIVE [ ON ], PASSIVE OFF, PASV [ ON ], PASV OFF.
it is not compatible with many firewalls.
SET FTP CHARACTER-SET-TRANSLATION { ON, OFF }
- Whether to translate character sets when transferring files
- with FTP (explained in [246]Section 3.7). OFF by default.
+ Whether to translate character sets when transferring files with
+ FTP (explained in [257]Section 3.7). OFF by default.
SET FTP SERVER-CHARACTER-SET name
Tells Kermit the character set used by the FTP server, UTF-8 by
- default ([247]Section 3.7).
+ default ([258]Section 3.7).
SET FTP SERVER-TIME-OFFSET delta-time
- Tells Kermit to apply the given [248]delta time to file
+ Tells Kermit to apply the given [259]delta time to file
timestamps provided by the server for its files; for use when
(for example) the server does not have its timezone set
correctly.
SET FTP ERROR-ACTION { PROCEED, QUIT }
- When transferring a group of files with FTP, and an error
- occurs with one of the files, Kermit normally goes on the next
- file. Use SET FTP ERROR-ACTION to QUIT to make Kermit stop the
- transfer immediately and fail if an error occurs with any
- single file in the group. Example: you have given Kermit a list
- of files to send, and one of the files can not be found, or
- read permission is denied. Note that cancelling a file by
- typing 'X' during transfer is not considered an error (if you
- want to cancel the entire transfer, type 'Z' or Ctrl-C).
+ When transferring a group of files with FTP, and an error occurs
+ with one of the files, Kermit normally goes on the next file.
+ Use SET FTP ERROR-ACTION to QUIT to make Kermit stop the
+ transfer immediately and fail if an error occurs with any single
+ file in the group. Example: you have given Kermit a list of
+ files to send, and one of the files can not be found, or read
+ permission is denied. Note that canceling a file by typing 'X'
+ during transfer is not considered an error (if you want to
+ cancel the entire transfer, type 'Z' or Ctrl-C).
SET FTP PERMISSIONS { AUTO, ON, OFF }
- When uploading files with PUT or MPUT, this tells whether
- Kermit should send each file's permissions. The default is OFF,
- which means not to send permissions, in which case the uploaded
- file's permissions are set by the FTP server according to its
- own criteria. ON means to send them, AUTO means to send them
- only if the client (Kermit) and server are on like platforms
- (e.g. both UNIX). This command has no effect when downloading,
- since the FTP protocol does not include a way for the server to
- inform the client of a file's permissions. Also see [249]FTP
- PUT /PERMISSIONS. Note that setting permissions after uploading
- is likely to work (correctly or at all) only when the client
- and server platforms are alike (e.g. both of them are some form
- of UNIX). Also note that Windows files don't have permissions.
- Also see [250]FTP CHMOD.
+ When uploading files with PUT or MPUT, this tells whether Kermit
+ should send each file's permissions. The default is OFF, which
+ means not to send permissions, in which case the uploaded file's
+ permissions are set by the FTP server according to its own
+ criteria. ON means to send them, AUTO means to send them only if
+ the client (Kermit) and server are on like platforms (e.g. both
+ UNIX). This command has no effect when downloading, since the
+ FTP protocol does not include a way for the server to inform the
+ client of a file's permissions. Also see [260]FTP PUT
+ /PERMISSIONS. Note that setting permissions after uploading is
+ likely to work (correctly or at all) only when the client and
+ server platforms are alike (e.g. both of them are some form of
+ UNIX). Also note that Windows files don't have permissions. Also
+ see [261]FTP CHMOD.
SET FTP DATES { ON, OFF }
When downloading files with GET or MGET, this tells whether
Kermit should try to set the received file's date from the
server's date. FTP DATES is ON by default. Note, however, that
- FTP protocol does not allow date preservation when uploading.
- So at best, SET FTP DATES ON can work only when downloading,
- and then only when the server agrees to furnish file dates.
+ FTP protocol does not allow date preservation when uploading. So
+ at best, SET FTP DATES ON can work only when downloading, and
+ then only when the server agrees to furnish file dates.
SET FTP FILENAMES { AUTO, CONVERTED, LITERAL }
When uploading (sending) files, this tells whether to convert
one period in a name, uppercasing any lowercase letters,
replacing spaces by underscores, etc. AUTOMATIC is the default,
meaning LITERAL when client and server are the same type of
- system (e.g. UNIX) and CONVERTED otherwise. Special case: if
- the setting is AUTOMATIC and the client is not UNIX and the
- server identifies itself as UNIX, Kermit uses a less-strict
- form of conversion, in which lowercase letters are not
- uppercased and the filename can contain any number of periods,
- but spaces are still converted to underscore. When receiving,
- conversion generally means to change all-uppercase names to
- lowercase and spaces to underscore.
+ system (e.g. UNIX) and CONVERTED otherwise. Special case: if the
+ setting is AUTOMATIC and the client is not UNIX and the server
+ identifies itself as UNIX, Kermit uses a less-strict form of
+ conversion, in which lowercase letters are not uppercased and
+ the filename can contain any number of periods, but spaces are
+ still converted to underscore. When receiving, conversion
+ generally means to change all-uppercase names to lowercase and
+ spaces to underscore.
SET FTP UNIQUE-SERVER-NAMES { ON, OFF }
Applies only to uploads. Tells the server to create new, unique
files. OFF by default, in which case the server overwrites
existing files with new files of the same name. When ON, the
server uses its own built-in method for creating new names for
- incoming files; for example, appending a period (.) and a
- number to the name. CAUTION: Use this option only if you do not
- need to refer to the file after it is uploaded, since FTP
- protocol provides no mechanism for the client to find out what
- name was assigned by the server.
+ incoming files; for example, appending a period (.) and a number
+ to the name. CAUTION: Use this option only if you do not need to
+ refer to the file after it is uploaded, since FTP protocol
+ provides no mechanism for the client to find out what name was
+ assigned by the server.
SET FTP COLLISION { ... }
When downloading, what to do if an incoming file has the same
name as an existing file. Options are the same as for SET FILE
COLLISION. If this command is not given, Kermit's regular FILE
COLLISION setting is used. If this command is given, it
- overrides the FILE COLLISION setting for FTP transfers only.
- See [251]Section 3.6.2 for details.
+ overrides the FILE COLLISION setting for FTP transfers only. See
+ [262]Section 3.6.2 for details.
SET FTP TYPE { TEXT, BINARY, TENEX }
Changes the default transfer mode. When sending (uploading)
files, this command has no effect unless you disable automatic
- text/binary mode switching ([252]Section 4) with SET FILE SCAN
+ text/binary mode switching ([263]Section 4) with SET FILE SCAN
OFF or SET TRANSFER MODE MANUAL. When receiving (downloading)
files, this command establishes the transfer mode to be used
when a filename does not match any of Kermit's text or binary
- filename patterns, unless you use SET FTP
- GET-FILETYPE-SWITCHING or SET TRANSFER MODE MANUAL to disable
- automatic switching, in which case, this command establishes
- the transfer mode for all downloaded files. In all cases,
- however, the FTP TYPE can be overridden in any GET or PUT
- command by including a /TEXT (/ASCII), /BINARY, or /TENEX
- switch. The FTP TYPE is independent of the Kermit FILE TYPE
- setting. TENEX is used for sending 8-bit binary files to 36-bit
- platforms such as TOPS-10, TOPS-20, and TENEX, and getting them
- back again. Synonym: ASCII = TEXT. Note: there is also an FTP
- TYPE command, which does what SET FTP TYPE does but also sends
- a TYPE command to the server immediately if the given type is
- different from the current one.
+ filename patterns, unless you use SET FTP GET-FILETYPE-SWITCHING
+ or SET TRANSFER MODE MANUAL to disable automatic switching, in
+ which case, this command establishes the transfer mode for all
+ downloaded files. In all cases, however, the FTP TYPE can be
+ overridden in any GET or PUT command by including a /TEXT
+ (/ASCII), /BINARY, or /TENEX switch. The FTP TYPE is independent
+ of the Kermit FILE TYPE setting. TENEX is used for sending 8-bit
+ binary files to 36-bit platforms such as TOPS-10, TOPS-20, and
+ TENEX, and getting them back again. Synonym: ASCII = TEXT. Note:
+ there is also an FTP TYPE command, which does what SET FTP TYPE
+ does but also sends a TYPE command to the server immediately if
+ the given type is different from the current one.
If you want want specific FTP preference settings to be in effect for
all your Kermit FTP sessions, put the desired SET FTP commands in your
Kermit customization file (~/.mykermrc in UNIX, K95CUSTOM.INI in
Windows).
- [ [253]Top ] [ [254]FTP Top ] [ [255]C-Kermit Home ] [ [256]Kermit
- Home ]
- _________________________________________________________________
+ [ [264]Top ] [ [265]FTP Top ] [ [266]C-Kermit Home ] [ [267]Kermit Home
+ ]
- 3.4. Managing Directories and Files
+3.4. Managing Directories and Files
In Kermit, commands for directory and file management can refer to:
IKSD.
* A remote computer when you have a connection to an FTP server.
- (There can also be an HTTP connection, but the commands in this
- section don't apply to HTTP connections.)
+ (There can also be an HTTP connection, but the commands in this section
+ don't apply to HTTP connections.)
Thus in general, each such command comes in three forms:
- 1. With no prefix in C-Kermit 8.0.200, it refers to the local
- computer (CD, DIR, etc). In C-Kermit 8.0.201 and later, however,
- the "locus" switches to automatically to the remote FTP server
- when you make an FTP connection (see the SET LOCUS description
- [257]Section 7); thus C-Kermit 8.0.201 acts almost exactly like a
- regular FTP client when it has an FTP connection, yet still acts
- like itself on other kinds of connections.
+ 1. With no prefix in C-Kermit 8.0.200, it refers to the local computer
+ (CD, DIR, etc). In C-Kermit 8.0.201 and later, however, the "locus"
+ switches to automatically to the remote FTP server when you make an
+ FTP connection (see the SET LOCUS description [268]Section 7); thus
+ C-Kermit 8.0.201 acts almost exactly like a regular FTP client when
+ it has an FTP connection, yet still acts like itself on other kinds
+ of connections.
2. With the REMOTE prefix, it is for a Kermit server (REMOTE CD,
REMOTE DIR).
3. With the FTP prefix, it's for an FTP server (FTP CD, FTP DIR).
- 4. Also see [258]Section 3.8, which explains "R-commands" and
+ 4. Also see [269]Section 3.8, which explains "R-commands" and
"L-commands".
Kermit's FTP file and directory management commands are as follows.
When an R-command is included in the Synonyms list, be sure to read
- [259]Section 3.8 about rules for use of R-commands.
+ [270]Section 3.8 about rules for use of R-commands.
FTP CD [ directory ]
Tells the FTP server to change its default (working) directory
to the one given, which usually must be expressed in the syntax
- of the server platform (UNIX, VMS, etc). If the directory is
- not specified, the result depends on the FTP server -- it might
- complain that the command is illegal, or it might change to
- your original login directory. Synonyms: FTP CWD (Change
- Wording Directory); RCD.
+ of the server platform (UNIX, VMS, etc). If the directory is not
+ specified, the result depends on the FTP server -- it might
+ complain that the command is illegal, or it might change to your
+ original login directory. Synonyms: FTP CWD (Change Wording
+ Directory); RCD.
FTP CDUP
Tells the FTP server to change its default (working) directory
directory. Synonym: RPWD.
FTP MKDIR directory
- Asks the FTP server to create the directory whose name is
- given. In general, the name must be in the syntax of the
- server's file system, and it must be either absolute (a full
- pathname) or relative to the server's current (working)
- directory. This command fails if the directory can't be created
- for any reason, including that it exists already. Synonym:
- RMKDIR.
+ Asks the FTP server to create the directory whose name is given.
+ In general, the name must be in the syntax of the server's file
+ system, and it must be either absolute (a full pathname) or
+ relative to the server's current (working) directory. This
+ command fails if the directory can't be created for any reason,
+ including that it exists already. Synonym: RMKDIR.
FTP RMDIR directory
- Asks the FTP server to remove the directory whose name is
- given. The rules are the same as for MKDIR, plus in most cases,
- the server will not remove any directory unless it is empty.
+ Asks the FTP server to remove the directory whose name is given.
+ The rules are the same as for MKDIR, plus in most cases, the
+ server will not remove any directory unless it is empty.
Synonym: RRMDIR.
FTP DIRECTORY [ filespec ] [ redirectors ]
whatever format the server chooses to send them. You can use
UNIX-like redirectors to send the listing to a file or a
pipeline, exactly as with the regular Kermit client/server
- REMOTE DIRECTORY command ([260]Using C-Kermit, Chapter 11).
+ REMOTE DIRECTORY command ([271]Using C-Kermit, Chapter 11).
Synonym: RDIRECTORY. Examples:
ftp dir ; Show listing of all files on screen
"Verbose" directory. This is an alternative FTP DIRECTORY
command primarily for use with DECSYSTEM-20 (TOPS-20) FTP
servers, which send only filenames when given a DIRECTORY
- command; the VDIRECTORY command makes them also send file
- sizes, dates, and attributes.
+ command; the VDIRECTORY command makes them also send file sizes,
+ dates, and attributes.
FTP CHECK filespec
Asks the FTP server whether the given file exists or, if the
response should be a numeric string in the format:
yyyymmddhhmmssxxxxx... where yyyy is the year, mm is the month,
dd is the day, hh is the hour (0-23), mm is the minute, ss is
- the second, and xxx... is the optional fraction of the second
- (0 or more digits). The date and time is expressed in UTC (GMT,
+ the second, and xxx... is the optional fraction of the second (0
+ or more digits). The date and time is expressed in UTC (GMT,
Zulu, Zero-Meridian). The result is available programmatically
- in the [261]\v(ftp_message) variable, and is understandable by
+ in the [272]\v(ftp_message) variable, and is understandable by
Kermit's date-time switches and functions. For example, suppose
we want to upload all local files that are newer than a
particular file on the server:
FTP SIZE filename
Asks the FTP server to send the size (in bytes) of the given
- file. The result might vary depending on whether the current
- FTP TYPE is binary or text ("ascii"). For a reliable byte
- count, do FTP TYPE BINARY first. The result is available
- programmatically in the [262]\v(ftp_message) variable.
+ file. The result might vary depending on whether the current FTP
+ TYPE is binary or text ("ascii"). For a reliable byte count, do
+ FTP TYPE BINARY first. The result is available programmatically
+ in the [273]\v(ftp_message) variable.
FTP CHMOD permissions filename
Tells the FTP server to set the permissions (protection) of the
appropriate platform-specific FTP server command.
FTP UMASK [ number ]
- This command is probably specific to UNIX-based servers; it
- sets the UNIX "umask", which is the default permissions mask
- for new (in this case, incoming) files. Crudely put, the UNIX
- umask is an octal representation of a binary number in in which
- a 1 bit stands for a permission bit that must be 0, and a 0 bit
- stands for a permission bit that can be 0 or 1 depending on
- other factors, such as the permissions of the parent directory.
- Example: "umask 007" requires that new files are created
- without read/write/execute world permission. If the number is
- not specified, the server's current umask is reported.
+ This command is probably specific to UNIX-based servers; it sets
+ the UNIX "umask", which is the default permissions mask for new
+ (in this case, incoming) files. Crudely put, the UNIX umask is
+ an octal representation of a binary number in in which a 1 bit
+ stands for a permission bit that must be 0, and a 0 bit stands
+ for a permission bit that can be 0 or 1 depending on other
+ factors, such as the permissions of the parent directory.
+ Example: "umask 007" requires that new files are created without
+ read/write/execute world permission. If the number is not
+ specified, the server's current umask is reported.
FTP RENAME filename newname
Asks the FTP server to rename the file whose name is "filename"
to "newname". Works only for one file; can not be used with
- wildcards. The server's interpretation of "newname" can vary
- (in some cases it must be a filename, in others perhaps it can
- also be a directory name, in which case if the filename denote
- a regular file, the file might be moved to the given
- directory). Some servers might allow files to be renamed
- ("moved") between physical disks or partitions, others might
- not. Synonym: RRENAME.
+ wildcards. The server's interpretation of "newname" can vary (in
+ some cases it must be a filename, in others perhaps it can also
+ be a directory name, in which case if the filename denote a
+ regular file, the file might be moved to the given directory).
+ Some servers might allow files to be renamed ("moved") between
+ physical disks or partitions, others might not. Synonym:
+ RRENAME.
FTP DELETE [ switches ] filespec [ filespec [ ... ] ]
Tells the FTP server to delete the file or files listed. Each
file specification may, but need not, contain wildcard
characters to match multiple files. File specifications and
wildcard syntax must be those of the server. Any file
- specifications that contain spaces must be enclosed in braces
- or doublequotes. FTP DELETE switches are:
+ specifications that contain spaces must be enclosed in braces or
+ doublequotes. FTP DELETE switches are:
/ERROR-ACTION: /FILENAMES: /NOBACKUPFILES /QUIET
/EXCEPT: /LARGER-THAN: /NODOTFILES /NOPAGE
When used with FTP DELETE, the /RECURSIVE switch deletes files
but not directories, and furthermore depends on the server
providing recursive file lists, which is not the normal
- behavior. For further details, see the decriptions of these
- switches in [263]Section 3.6. Synonyms: FTP MDELETE (Kermit
+ behavior. For further details, see the descriptions of these
+ switches in [274]Section 3.6. Synonyms: FTP MDELETE (Kermit
makes no distinction between DELETE and MDELETE); RDELETE.
FTP TYPE { TEXT, BINARY, TENEX }
- Tells the FTP server to change its file-transfer type to the
- one given, immediately. See [264]SET FTP TYPE for details.
+ Tells the FTP server to change its file-transfer type to the one
+ given, immediately. See [275]SET FTP TYPE for details.
- [ [265]Top ] [ [266]FTP Top ] [ [267]C-Kermit Home ] [ [268]Kermit
- Home ]
- _________________________________________________________________
+ [ [276]Top ] [ [277]FTP Top ] [ [278]C-Kermit Home ] [ [279]Kermit Home
+ ]
- 3.5. Uploading Files With FTP
+3.5. Uploading Files With FTP
Uploading means sending files from the client (Kermit) to the FTP
server. The basic command for uploading files with FTP is PUT:
FTP PUT [ switches ] [ filespec [ as-name ] ]
Uploads (sends) the file or files that match the file
- specification, which may include wildcards, to the server. If
- no filespec is given, the names of files to send are taken from
- the /LISTFILE: file, if any, otherwise from the SEND-LIST, if
- any. Unless you go out of your way to prevent it, Kermit
- determines the transfer mode (text or binary) for each file
- automatically, and switches automatically on a per-file basis.
- If an as-name is given, the file is sent under that name
- instead of its own (if an as-name is given with a wildcard
- filespec, the result is a bit more complicated, and is
- explained later in this section).
-
- Unlike normal FTP clients, Kermit does not prompt you by default (or
- at all) for each file; it just sends them, just as it does with Kermit
+ specification, which may include wildcards, to the server. If no
+ filespec is given, the names of files to send are taken from the
+ /LISTFILE: file, if any, otherwise from the SEND-LIST, if any.
+ Unless you go out of your way to prevent it, Kermit determines
+ the transfer mode (text or binary) for each file automatically,
+ and switches automatically on a per-file basis. If an as-name is
+ given, the file is sent under that name instead of its own (if
+ an as-name is given with a wildcard filespec, the result is a
+ bit more complicated, and is explained later in this section).
+
+ Unlike normal FTP clients, Kermit does not prompt you by default (or at
+ all) for each file; it just sends them, just as it does with Kermit
protocol. The filespec can be a literal filename or a Kermit pattern,
described in:
- [269]http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ [280]http://www.columbia.edu/kermit/ckermit70.html#x4.9
Kermit patterns are equivalent to C-Shell patterns and provide a fair
amount of flexibility in selecting which files to send, which is
- augmented by the file-selection switches presented in [270]Section
+ augmented by the file-selection switches presented in [281]Section
3.5.1.
FTP MPUT [ switches ] filespec [ filespec [ ... ] ]
FTP MPUT is just like FTP PUT except it allows you to give more
- than one file specification, and it does not allow an as-name
- in the file list. However, as-names can be given to either PUT
- or MPUT with the /AS-NAME: switch.
+ than one file specification, and it does not allow an as-name in
+ the file list. However, as-names can be given to either PUT or
+ MPUT with the /AS-NAME: switch.
If a PUT or MPUT command results in one file being uploaded, it
succeeds if the file is uploaded completely and fails otherwise. If
more than one file is selected for upload, success or failure depends
- on the [271]FTP ERROR-ACTION setting; if it is PROCEED (the default
- setting), then the [M]PUT command succeeds if at least one of the
- files was completely uploaded, and fails otherwise, If FTP
- ERROR-ACTION is QUIT, the [M]PUT command succeeds if all selected
- files were uploaded successfully, and fails if any file failed.
+ on the [282]FTP ERROR-ACTION setting; if it is PROCEED (the default
+ setting), then the [M]PUT command succeeds if at least one of the files
+ was completely uploaded, and fails otherwise, If FTP ERROR-ACTION is
+ QUIT, the [M]PUT command succeeds if all selected files were uploaded
+ successfully, and fails if any file failed.
FTP uploads may be interrupted just like Kermit uploads. While the
transfer is in progress, type:
ftp put oofa.txt /tmp/oofa.txt ; Send as "/tmp/oofa.txt"
The latter example sends the file oofa.txt from your current local
- directory to the server's /tmp directory. This works only if the
- server uses the same directory notation that you used in the as-name
- AND the given directory already exists on the server AND if you have
- write access to it.
+ directory to the server's /tmp directory. This works only if the server
+ uses the same directory notation that you used in the as-name AND the
+ given directory already exists on the server AND if you have write
+ access to it.
Use caution when uploading from a case-sensitive file system, such as
UNIX, to a file system that is not case sensitive, such as Windows or
the second one will overwrite the first. The only way around this
provided by FTP protocol is its "unique server names" feature (SET FTP
UNIQUE-SERVER-NAMES or the /UNIQUE switch described below).
- _________________________________________________________________
- 3.5.1. FTP PUT Switches
+3.5.1. FTP PUT Switches
FTP PUT and MPUT are similar in format and behavior to the regular
Kermit SEND and MSEND commands, and they allow most of the same
Since most of these switches are common to Kermit's SEND and MSEND
commands, they described only briefly here. For greater detail see:
- [272]http://www.columbia.edu/kermit/ckermit70.html#x1.5 (explanation
+ [283]http://www.columbia.edu/kermit/ckermit70.html#x1.5 (explanation
of switches)
- [273]http://www.columbia.edu/kermit/ckermit70.html#x4.7
+ [284]http://www.columbia.edu/kermit/ckermit70.html#x4.7
(file-transfer switches)
First the file-selection switches:
modified between two date/times. Various date-time formats are
accepted; if the date-time contains spaces, it must be enclosed
in braces or doublequotes. See
- [274]http://www.columbia.edu/kermit/ckermit70.html#x1.6 and
- [275]Section 8.13 of this document for details about date-time
+ [285]http://www.columbia.edu/kermit/ckermit70.html#x1.6 and
+ [286]Section 8.13 of this document for details about date-time
formats. Examples:
ftp put /after:{1 jan 2000 0:00:00} *
certain size range.
/TYPE:{TEXT,BINARY}
- Only send files that are the given type, which is determined
- for each file just before sending it by file scanning. BINARY
+ Only send files that are the given type, which is determined for
+ each file just before sending it by file scanning. BINARY
includes TENEX; if you have included a /TENEX switch, or
previously given a [SET] FTP TYPE TENEX command, binary files
are sent in TENEX, rather than BINARY mode.
/NOFOLLOWLINKS
(UNIX only) Skip over symbolic links rather than following them
- (default). This applies to wildcard and/or recursive [M]PUTs;
- if a single filename is given, and it happens to be a symbolic
+ (default). This applies to wildcard and/or recursive [M]PUTs; if
+ a single filename is given, and it happens to be a symbolic
link, the file it points to is sent.
/FOLLOWLINKS
/EXCEPT:pattern
Exception list -- don't send files whose names match the given
- pattern. See [276]Section 1.5.4 of the [277]C-Kermit 7.0 Update
+ pattern. See [287]Section 1.5.4 of the [288]C-Kermit 7.0 Update
Notes for details. If you want to exclude a directory from a
recursive [M]PUT, use /EXCEPT:{dirname/*}.
between like platforms (e.g. UNIX to UNIX) but also between
unlike ones (e.g. UNIX to VMS or Windows), in which case
text-file format differences are handled by Kermit's automatic
- text/binary mode switching ([278]Section 4) and character-set
- translation ([279]Section 3.7). Synonym: /SUBDIRECTORIES.
+ text/binary mode switching ([289]Section 4) and character-set
+ translation ([290]Section 3.7). Synonym: /SUBDIRECTORIES.
/UPDATE
- Send only files that have changed since last time ([280]Section
+ Send only files that have changed since last time ([291]Section
3.5.2).
/ARRAY:arrayname
ftp put /as-name:array.txt /array:&a
- (or, to send a segment of the array, /array:&a[100:199]). If
- you don't include an /AS-NAME, a name of "_array_x_" is used
- (where x is the array letter). If you include this switch, most
- other switches are meaningless and ignored.
+ (or, to send a segment of the array, /array:&a[100:199]). If you
+ don't include an /AS-NAME, a name of "_array_x_" is used (where
+ x is the array letter). If you include this switch, most other
+ switches are meaningless and ignored.
/COMMAND
The "file" to be sent is the standard output of a command,
/LISTFILE:filename
Tells Kermit to obtain the list of files to be sent from the
file whose name is given. This file must contain one file
- specification (which may be wild) per line. If the list
- includes files from different directories, such as a recursive
- listing of a directory tree, the paths are recreated on the
- server (if possible) if you include the /RECURSIVE switch;
- otherwise all the files are sent to the current directory on
- the server.
+ specification (which may be wild) per line. If the list includes
+ files from different directories, such as a recursive listing of
+ a directory tree, the paths are recreated on the server (if
+ possible) if you include the /RECURSIVE switch; otherwise all
+ the files are sent to the current directory on the server.
Now the other switches:
text/binary switching. /ASCII is a synonym for /TEXT.
/FILTER:command
- Specifies that the file(s) is/are to be passed through the
- given command or pipeline on their way to the server. Example:
+ Specifies that the file(s) is/are to be passed through the given
+ command or pipeline on their way to the server. Example:
ftp put /binary /filter:{gzip -c \v(filename)} /as-name:\v(filename).gz *
/LOCAL-CHARACTER-SET:name
/SERVER-CHARACTER-SET:name
Character-set translation for text files, explained in
- [281]Section 3.7.
+ [292]Section 3.7.
/ERROR-ACTION:{PROCEED,QUIT}
- Overrides the prevailing [282]FTP ERROR-ACTION for the duration
+ Overrides the prevailing [293]FTP ERROR-ACTION for the duration
of this PUT or MPUT command only.
/RECOVER
Resume an interrupted transfer where from the point of
- interruption (explained in [283]Section 3.5.2). Synonym:
+ interruption (explained in [294]Section 3.5.2). Synonym:
/RESTART.
/DELETE
Tells Kermit to delete each source file immediately after, and
- only if, it has been uploaded completely and successfully.
- This, in effect, moves the file from the client to the server.
+ only if, it has been uploaded completely and successfully. This,
+ in effect, moves the file from the client to the server.
/MOVE-TO:directory
Tells Kermit to move each source file to the named local
and successfully.
/RENAME-TO:template
- Tells Kermit to rename each (local) source file according to
- the given template after, and only if, it has been uploaded
+ Tells Kermit to rename each (local) source file according to the
+ given template after, and only if, it has been uploaded
completely and successfully. The template works as in /AS-NAME.
/SERVER-RENAME-TO:template
Tells Kermit to ask the server to rename each file according to
- the given template as soon as, and only if, it has been
- received completely and successfully. The template works as in
- /AS-NAME. Requires write and rename access on the server, so
- doesn't usually work with (e.g.) anonymous uploads to public
- incoming areas where the permissions don't allow renaming.
- Examples:
+ the given template as soon as, and only if, it has been received
+ completely and successfully. The template works as in /AS-NAME.
+ Requires write and rename access on the server, so doesn't
+ usually work with (e.g.) anonymous uploads to public incoming
+ areas where the permissions don't allow renaming. Examples:
ftp mput /server-rename:\v(filename).ok *
Appends ".ok" to each filename on the server when it's
/server-rename:../final/\v(filename) *
Moves the file from the working directory to a final
directory when the upload is complete, but in this case
- you have to know the pathname syntax of the server. If
- the rename fails, the [M]PUT command fails according to
- the [284]FTP ERROR-ACTION selection.
+ you have to know the pathname syntax of the server. If the
+ rename fails, the [M]PUT command fails according to the
+ [295]FTP ERROR-ACTION selection.
/FILENAMES:{AUTOMATIC,CONVERTED,LITERAL}
- Overrides the [285]FTP FILENAMES setting for this upload only.
+ Overrides the [296]FTP FILENAMES setting for this upload only.
/PERMISSIONS:{ON,OFF}
- Overrides the [286]FTP PERMISSIONS setting for this upload
- only.
+ Overrides the [297]FTP PERMISSIONS setting for this upload only.
/UNIQUE
- Tells Kermit to tell the server to give [287]unique names to
+ Tells Kermit to tell the server to give [298]unique names to
incoming files that would otherwise overwrite existing files
that have the same name. This switch conflicts with /UPDATE,
/RECOVER, /PERMISSIONS, and /SERVER-RENAME since the client has
are shown in the file-transfer display (if it is not disabled)
and in the transaction log (if one is active). Hint: use SET
TRANSFER DISPLAY BRIEF.
- _________________________________________________________________
- 3.5.2. Update Mode
+3.5.2. Update Mode
When you include the /UPDATE switch, this means to skip sending any
- file that already exists on the server if the local file's
- modification date/time is not later than that of the corresponding
- file on the server. Here is a typical application for update mode:
- Suppose that on Computer A, you maintain a large set of files (say, a
- collection of Web pages and graphics images, or the source files for a
- software application), and you need to keep a parallel copy on another
- Computer, B. Of course you could upload the entire collection every
- day:
+ file that already exists on the server if the local file's modification
+ date/time is not later than that of the corresponding file on the
+ server. Here is a typical application for update mode: Suppose that on
+ Computer A, you maintain a large set of files (say, a collection of Web
+ pages and graphics images, or the source files for a software
+ application), and you need to keep a parallel copy on another Computer,
+ B. Of course you could upload the entire collection every day:
cd source-directory
ftp computerb.xyzcorp.com
it works. For each local file that is selected for uploading:
* The remote filename is determined in the normal way, according to
- the [288]FTP FILENAMES setting, /FILENAMES switch, or the as-name,
+ the [299]FTP FILENAMES setting, /FILENAMES switch, or the as-name,
if any.
* Kermit sends an MDTM (modification time) command for the
corresponding remote filename to the server.
skipped.
All time comparisons take place in Coordinated Universal Time
- (UTC)([289]1), also known as GMT or Zulu time: Timezone 0; standard
+ (UTC)([300]1), also known as GMT or Zulu time: Timezone 0; standard
time, without daylight savings.
WARNING: Some FTP servers, such as Novell NWFTPD.NLM, ignore or
misimplement the FTP specification and send local time rather than
UTC.
- Update mode is useful only when always used in the same direction.
- When you upload (PUT) a file with FTP, the destination file receives
- the current timestamp on the server's computer, not the original
- file's timestamp ([290]2). If you try to FTP PUT /UPDATE the same file
- again, it will be skipped (as expected) since the remote copy is
- newer. However, if you try to FTP GET /UPDATE the same file
- ([291]Section 3.6), it will be transferred for the same reason.
+ Update mode is useful only when always used in the same direction. When
+ you upload (PUT) a file with FTP, the destination file receives the
+ current timestamp on the server's computer, not the original file's
+ timestamp ([301]2). If you try to FTP PUT /UPDATE the same file again,
+ it will be skipped (as expected) since the remote copy is newer.
+ However, if you try to FTP GET /UPDATE the same file ([302]Section
+ 3.6), it will be transferred for the same reason.
To check the availability of PUT /UPDATE on a particular connection,
issue an FTP MODTIME command for a file that is known to exist on the
Notes:
1. Why is Coordinated Universal Time abbreviated UTC? From the
- [292]National Institute of Standards and Technology FAQ: "In 1970
+ [303]National Institute of Standards and Technology FAQ: "In 1970
the Coordinated Universal Time system was devised by an
international advisory group of technical experts within the
International Telecommunication Union (ITU). The ITU felt it was
- best to designate a single abbreviation for use in all languages
- in order to minimize confusion. Since unanimous agreement could
- not be achieved on using either the English word order, CUT, or
- the French word order, TUC, the acronym UTC was chosen as a
- compromise."
- 2. The Kermit FTP client is unusual in that, when downloading only,
- it can set the received file's date from the file's date on the
+ best to designate a single abbreviation for use in all languages in
+ order to minimize confusion. Since unanimous agreement could not be
+ achieved on using either the English word order, CUT, or the French
+ word order, TUC, the acronym UTC was chosen as a compromise."
+ 2. The Kermit FTP client is unusual in that, when downloading only, it
+ can set the received file's date from the file's date on the
server, but this should not affect the update feature. When
uploading to an FTP server, however, there is no mechanism for the
client to set the date of the uploaded file on the server.
- _________________________________________________________________
- 3.5.3 Recovery
+3.5.3 Recovery
Suppose that while you are uploading a large file over a slow
connection, the connection is lost before the entire file is
transferred. With most FTP clients, you would have to start over, thus
resending the portion of the file that was sent already, and that is
- already on the server. But Kermit's /RECOVER switch (Synonym:
- /RESTART) lets you continue an interrupted transfer from the point of
- failure, thus transferring only the part that wasn't sent already. The
+ already on the server. But Kermit's /RECOVER switch (Synonym: /RESTART)
+ lets you continue an interrupted transfer from the point of failure,
+ thus transferring only the part that wasn't sent already. The
prerequisites for recovery are:
* The transfer must be in BINARY mode, or else the client and server
* Kermit checks for conflicting switches, such as /UPDATE and
/UNIQUE; if /RECOVER is given with these switches an error occurs.
- If /RECOVER is given in other circumstances where it could serve
- no useful purpose (e.g. with arrays, pipes, or filters), it is
+ If /RECOVER is given in other circumstances where it could serve no
+ useful purpose (e.g. with arrays, pipes, or filters), it is
ignored.
If the switch is accepted, then for each selected file:
* If it is not binary (determined by scanning) and the client and
server are not on like platforms, recovery is canceled (the entire
file is sent). Otherwise:
- * A SIZE command is sent for the file (using its remote name). If
- the reply indicates the file was not found, or the SIZE command
- was not understood, or any other kind of error, recovery is
- canceled. Otherwise:
- * A MDTM (modification time) command is sent for the file. If a
- valid reply is received, and the modification time of the local
- file is later than that of the remote file, recovery is canceled.
+ * A SIZE command is sent for the file (using its remote name). If the
+ reply indicates the file was not found, or the SIZE command was not
+ understood, or any other kind of error, recovery is canceled.
+ Otherwise:
+ * A MDTM (modification time) command is sent for the file. If a valid
+ reply is received, and the modification time of the local file is
+ later than that of the remote file, recovery is canceled.
Otherwise:
* If the sizes of the two files are identical, the file is not sent.
Otherwise:
used rather than RESTART. For stream transfers (the only kind that
Kermit supports) the results are the same.
- By design, the /RECOVER switch can be included with any FTP PUT or
- MPUT command, even if it specifies a group of files. This allows you
- to resume an interrupted batch transfer from where it left off. The
- files that were already completely sent are skipped, the file that was
+ By design, the /RECOVER switch can be included with any FTP PUT or MPUT
+ command, even if it specifies a group of files. This allows you to
+ resume an interrupted batch transfer from where it left off. The files
+ that were already completely sent are skipped, the file that was
interrupted is recovered, and the remaining files are uploaded.
By the way, it doesn't matter how the original partial file was
uploaded -- FTP, Kermit, Zmodem, etc: as long as the preconditions are
- met, it can be recovered with FTP PUT /RECOVER, or for that matter
- also using Kermit protocol and SEND /RECOVER.
+ met, it can be recovered with FTP PUT /RECOVER, or for that matter also
+ using Kermit protocol and SEND /RECOVER.
A word of caution, however, when the original upload was in text mode
- with character-set translation ([293]Section 3.7):
+ with character-set translation ([304]Section 3.7):
* If the original upload involved a translation from one single-byte
character set to another (e.g. Code Page 850 to Latin-1), recovery
is safe if you specify the same translations for the recovery. If
you don't, the resulting file will contain a mixture of character
sets.
- * If the original upload involved a translation that changed the
- size of the file (e.g. from an alphabetic Code Page or Latin
- Alphabet to Unicode, or vice versa), recovery is NOT safe, even if
- you specify the same translations.
+ * If the original upload involved a translation that changed the size
+ of the file (e.g. from an alphabetic Code Page or Latin Alphabet to
+ Unicode, or vice versa), recovery is NOT safe, even if you specify
+ the same translations.
Kermit has no way of knowing anything about the previous upload. As a
safeguard, an error occurs if you include /RECOVER and also specify a
that situation. Otherwise, it's up to you to avoid unsafe recovery
operations.
- [ [294]Top ] [ [295]FTP Top ] [ [296]C-Kermit Home ] [ [297]Kermit
- Home ]
- _________________________________________________________________
+ [ [305]Top ] [ [306]FTP Top ] [ [307]C-Kermit Home ] [ [308]Kermit Home
+ ]
- 3.6. Downloading Files With FTP
+3.6. Downloading Files With FTP
Although uploading files with Kermit's FTP client is just as easy and
flexible as sending files with Kermit protocol, the same is not always
* If you want to get more than one file, you have to use MGET, not
GET, since the underlying FTP protocol is different in the two
- cases. Kermit can't "autodetect" which one you mean, as it can
- with PUT and MPUT, since it can't be expected to know the wildcard
+ cases. Kermit can't "autodetect" which one you mean, as it can with
+ PUT and MPUT, since it can't be expected to know the wildcard
syntax of the remote platform and/or FTP server (the same is true
- for all other FTP clients). To complicate matters, FTP protocol
- now includes two underlying mechanisms (NLST and MLSD) for
- accomplishing MGET operations and, as explained in [298]Section
+ for all other FTP clients). To complicate matters, FTP protocol now
+ includes two underlying mechanisms (NLST and MLSD) for
+ accomplishing MGET operations and, as explained in [309]Section
3.11, the two behave differently.
* Automatic text-binary mode switching is not done by the server. It
can be done by the client (Kermit), but in this case it is not
based on a file scan (since there is no way for Kermit prescan a
server file), but rather on the filename, using C-Kermit 7.0
- [299]filename patterns.
+ [310]filename patterns.
* Some options that are available with FTP PUT can not be used with
FTP [M]GET or don't work the same way:
/PERMISSIONS (FTP protocol has no mechanism for this).
The commands for downloading are:
SET FILE DOWNLOAD-DIRECTORY [ directory ]
- As with Kermit transfers, this command, if given, tells
- C-Kermit where to store incoming files in the absence of a
- specific as-name. If not given, incoming files are stored as
- indicated by the as-name, if any, otherwise in the current
- directory, just as with Kermit transfers. The more verbose
- transfer display formats give the full pathname of each
- received file, and, in case you have trouble finding a
- downloaded file afterwards, its full path is also listed in the
- transaction log (if you kept one), and you can also ask Kermit
- where it went with the [300]WHERE command.
+ As with Kermit transfers, this command, if given, tells C-Kermit
+ where to store incoming files in the absence of a specific
+ as-name. If not given, incoming files are stored as indicated by
+ the as-name, if any, otherwise in the current directory, just as
+ with Kermit transfers. The more verbose transfer display formats
+ give the full pathname of each received file, and, in case you
+ have trouble finding a downloaded file afterwards, its full path
+ is also listed in the transaction log (if you kept one), and you
+ can also ask Kermit where it went with the [311]WHERE command.
SET FTP GET-FILETYPE-SWITCHING { ON, OFF }
ON by default, causing Kermit to switch automatically into text
- or binary mode for each file based on whether its name matches
- a text pattern or binary pattern. Set this OFF, or use a /TEXT,
+ or binary mode for each file based on whether its name matches a
+ text pattern or binary pattern. Set this OFF, or use a /TEXT,
/BINARY, or /TENEX switch to defeat this feature. Use SHOW
PATTERNS to see the current pattern list.
/AS-NAME: switch.
In both the FTP GET and MGET commands, any filenames that contain
- spaces must be enclosed in braces or doublequotes (see [301]Section 5
+ spaces must be enclosed in braces or doublequotes (see [312]Section 5
for details).
FTP downloads may be interrupted just like Kermit transfers. While the
* Z (or Control-C) to cancel the current file and all remaining
files.
- Before proceeding, a brief word about temporary files. In FTP
- protocol, the MGET command works by requesting a file list from the
- server, and then (internally) issuing a GET command (FTP RETR protocol
- directive) for each file. The file list returned by the server can be
- any size at all, so in case it is huge, we don't store it in memory;
- instead we put it in a temporary file. For troubleshooting purposes,
- you should be aware of two points:
+ Before proceeding, a brief word about temporary files. In FTP protocol,
+ the MGET command works by requesting a file list from the server, and
+ then (internally) issuing a GET command (FTP RETR protocol directive)
+ for each file. The file list returned by the server can be any size at
+ all, so in case it is huge, we don't store it in memory; instead we put
+ it in a temporary file. For troubleshooting purposes, you should be
+ aware of two points:
1. The location of the temporary file is chosen according the TMP or
TEMP environment variables. If neither of these variables is
defined, you might need to define it. In case there is not enough
space on the indicated disk or partition for the server's file
list, you might need to either clean up the temporary area, or
- redefine the environment variable to indicate a different area
- that has sufficient space.
+ redefine the environment variable to indicate a different area that
+ has sufficient space.
2. If you want to look at the list yourself, use SET FTP DEBUG ON.
This tells Kermit to (a) give you the full pathname of the
temporary file at the end of each MGET command, and (b) not to
delete it, as it normally does.
- _________________________________________________________________
- 3.6.1. FTP GET Switches
+3.6.1. FTP GET Switches
The following switches are available with FTP GET and MGET:
/TENEX
Like /BINARY but specifies a special binary transfer mode to be
- used when getting 8-bit binary files from a 36-bit platform
- such as TOPS-10, TOPS-20, or TENEX. All files are downloaded in
- the special binary mode.
+ used when getting 8-bit binary files from a 36-bit platform such
+ as TOPS-10, TOPS-20, or TENEX. All files are downloaded in the
+ special binary mode.
/RECOVER
This instructs Kermit to try to recover an incomplete download
from the point of failure. Works only in binary mode, and only
if the server supports the (not-yet-standard) FTP "REST"
- directive. See [302]Section 3.6.3 for details. Synonym:
+ directive. See [313]Section 3.6.3 for details. Synonym:
/RESTART.
/FILENAMES:{CONVERTED,LITERAL}
- Overrides the [303]FTP FILENAMES (filename conversion) setting
+ Overrides the [314]FTP FILENAMES (filename conversion) setting
for this download only, forcing incoming filenames to be either
converted or taken literally.
For GET, this is equivalent to giving an as-name after the
filename. For MGET, this is the only way to specify alternative
names for the incoming files. With MGET, the /AS-NAME text
- should (must) contain a Kermit variable, usually \v(filename)
- or \v(filenumber). Example:
+ should (must) contain a Kermit variable, usually \v(filename) or
+ \v(filenumber). Example:
mget /text /as-name:\v(filename).new *.c
This gets all ".c" files and stores them with "
- .new" appended to their names. See the [304]C-Kermit 7.0 Update
+ .new" appended to their names. See the [315]C-Kermit 7.0 Update
Notes for details.
/COMMAND
name is the as-name from the GET command or the /AS-NAME
argument. If you need to refer to the incoming file's name in
the command, use \v(filename). See the description of the
- regular Kermit [305]GET /COMMAND command for details and
+ regular Kermit [316]GET /COMMAND command for details and
examples.
/QUIET
/EXCEPT:{pattern} or /EXCEPT:{{pattern}{pattern}{...}}
Exception list for MGET; skip downloading any file whose name
- matches any of the given patterns (when using the second
- format, up to 64 patterns may be specified). [306]CLICK HERE
- for syntax details.
+ matches any of the given patterns (when using the second format,
+ up to 64 patterns may be specified). [317]CLICK HERE for syntax
+ details.
/SMALLER-THAN:number
Download only files whose size is smaller than the given number
- of bytes (octets). Requires that the FTP server support the
- SIZE or MLSD directive.
+ of bytes (octets). Requires that the FTP server support the SIZE
+ or MLSD directive.
/LARGER-THAN:number
Download only files whose size is greater than the given number
/LISTFILE:local-filename
The given file contains a list of files to GET, one per line.
- Filenames in the listfile can contain wildcard characters in
- the syntax of the server. There is no limit on the number of
- lines in the listfile.
+ Filenames in the listfile can contain wildcard characters in the
+ syntax of the server. There is no limit on the number of lines
+ in the listfile.
/NAMELIST:local-filename
- If this switch is given, then instead of actually retrieving
- the selected files, the GET command retrieves a list of the
- names of the files that would be retrieved, and places it in
- the specifed file. The resulting file is an ordinary text file,
- with one filename per line, suitable for reading by a person,
- or processing by a computer program, including Kermit itself
- (FOPEN / FREAD / FWRITE / FCLOSE), and as /FILELIST: file. If
- the filename is omitted or given as "-" (dash, hyphen), the
- list goes to the screen. NOTE: if you want a copy of the
- complete list sent by the server, use SET FTP DEBUG ON, perform
- an MGET, and the temporary file containing the list will be
- kept rather than deleted (and Kermit tells you its name).
+ If this switch is given, then instead of actually retrieving the
+ selected files, the GET command retrieves a list of the names of
+ the files that would be retrieved, and places it in the
+ specified file. The resulting file is an ordinary text file,
+ with one filename per line, suitable for reading by a person, or
+ processing by a computer program, including Kermit itself (FOPEN
+ / FREAD / FWRITE / FCLOSE), and as /FILELIST: file. If the
+ filename is omitted or given as "-" (dash, hyphen), the list
+ goes to the screen. NOTE: if you want a copy of the complete
+ list sent by the server, use SET FTP DEBUG ON, perform an MGET,
+ and the temporary file containing the list will be kept rather
+ than deleted (and Kermit tells you its name).
/UPDATE, /COLLISION:keyword
- Explained in [307]Section 3.6.2.
+ Explained in [318]Section 3.6.2.
/RECURSIVE
This means to try to download an entire directory tree, rather
than just files from a particular directory. In fact, FTP
protocol does not provide a method to request a recursive
- download (unless the server supports MLSD; see [308]Section
+ download (unless the server supports MLSD; see [319]Section
3.11), so this works only if the FTP server does it anyway,
without being asked, as some do. In this case, Kermit detects
that names in the returned file list contain directory
get /recursive somepath/somefile
- creates the path locally and then puts the file in it.
- Similarly for MGET:
+ creates the path locally and then puts the file in it. Similarly
+ for MGET:
mget */data/*
re-creates the server's directory structure locally.
- The FTP protocol does not include explicit mechanisms for recursion,
- so Kermit builds upon what is available. Although an Internet draft
+ The FTP protocol does not include explicit mechanisms for recursion, so
+ Kermit builds upon what is available. Although an Internet draft
describes a mechanism ("MLSD") that would allow protocol-driven
recursion, similar to Kermit's File Attribute packets (circa 1984), it
has not yet attained RFC or standard status, and servers are not yet
widely available that offer this feature. In the meantime, the
effectiveness of MGET /RECURSIVE depends on the FTP server
implementation. If the server returns a recursive list in response to
- the standard NLST command (whose behavior is ill-defined), Kermit's
- FTP MGET /RECURSIVE command uses it to re-create the remote directory
- tree locally. If the server supports MLSD, C-Kermit 8.0.206 and Kermit
- 95 2.1 and later are able to sense it automatically and use it, as
- described below in [309]Section 3.11.
+ the standard NLST command (whose behavior is ill-defined), Kermit's FTP
+ MGET /RECURSIVE command uses it to re-create the remote directory tree
+ locally. If the server supports MLSD, C-Kermit 8.0.206 and Kermit 95
+ 2.1 and later are able to sense it automatically and use it, as
+ described below in [320]Section 3.11.
The /BEFORE:, /AFTER:, /NOT-BEFORE:, and /NOT-AFTER: switches are not
available for downloading because of the confusion with timezones.
Would the given times be in the local timezone, the server's timezone,
or GMT? The FTP server's directory listings show its own local times
but since we don't know what timezone the server is in, there's no way
- to reconcile our local times with the server's. Similarly,
- /PERMISSIONS can't be preserved in downloads because FTP protocol
- provides no means of querying the server for a file's permission.
+ to reconcile our local times with the server's. Similarly, /PERMISSIONS
+ can't be preserved in downloads because FTP protocol provides no means
+ of querying the server for a file's permission.
Source-file disposition switches:
/SERVER-RENAME-TO:template
Asks the server to rename each (remote) source file immediately
- after, and only if, it is sent correctly. See [310]PUT
+ after, and only if, it is sent correctly. See [321]PUT
/SERVER-RENAME-TO: for details.
Destination-file disposition switches:
ftp mget /rename-to:\v(filename).ok *
causes each file that is successfully downloaded to have ".ok"
- appended to its name. For details see [311]Section 4.1 of the
- [312]C-Kermit 7.0 Update Notes.
+ appended to its name. For details see [322]Section 4.1 of the
+ [323]C-Kermit 7.0 Update Notes.
/MOVE-TO:text
Just like /RENAME-TO:, except the text denotes the name of a
The file transfer display does not show the /MOVE-TO or /RENAME-TO
value, since the incoming file has not yet been moved or renamed.
- _________________________________________________________________
- 3.6.2. Filename Collisions
+3.6.2. Filename Collisions
- What should happen if an incoming file has the same name as an
- existing file in the same directory? By default, Kermit's FILE
- COLLISION setting applies: BACKUP, RENAME, UPDATE, DISCARD, etc, as
- described in [313]Using C-Kermit. Kermit's default FILE COLLISION
- setting is BACKUP (rename the existing file and store the incoming
- file under its own name) and therefore this is also the default FTP
- collision action.
+ What should happen if an incoming file has the same name as an existing
+ file in the same directory? By default, Kermit's FILE COLLISION setting
+ applies: BACKUP, RENAME, UPDATE, DISCARD, etc, as described in
+ [324]Using C-Kermit. Kermit's default FILE COLLISION setting is BACKUP
+ (rename the existing file and store the incoming file under its own
+ name) and therefore this is also the default FTP collision action.
The name under which an incoming file is to be stored is determined as
follows:
* If an as-name was given, the as-name is used. Otherwise:
- * If the client and server platforms are alike or [314]FTP FILENAMES
+ * If the client and server platforms are alike or [325]FTP FILENAMES
is set to LITERAL (or the /FILENAMES:LITERAL switch was given for
- this download), the incoming filename is used literally.
- Otherwise:
+ this download), the incoming filename is used literally. Otherwise:
* The incoming filename is converted to a form that is friendly to
the local platform. For UNIX, for example, incoming filenames that
are all uppercase (as they might be from, say, VMS or an IBM
SET FTP COLLISION { BACKUP, RENAME, UPDATE, DISCARD, APPEND, OVERWRITE
}
- This establishes a filename collision for FTP, separate from
- the Kermit one. The initial FTP collision setting is inherited
- from Kermit's FILE COLLISION setting when the first FTP command
- is given, but subsequent changes to Kermit's FILE COLLISION
- setting do not affect the FTP COLLISION setting. SHOW FTP tells
- the current FTP COLLISION setting.
+ This establishes a filename collision for FTP, separate from the
+ Kermit one. The initial FTP collision setting is inherited from
+ Kermit's FILE COLLISION setting when the first FTP command is
+ given, but subsequent changes to Kermit's FILE COLLISION setting
+ do not affect the FTP COLLISION setting. SHOW FTP tells the
+ current FTP COLLISION setting.
FTP GET /COLLISION:{BACKUP,RENAME,UPDATE,DISCARD,APPEND,OVERWRITE}
Overrides the current FTP COLLISION action for this download
only.
FTP GET /UPDATE
- This is equivalent to GET /COLLISION:UPDATE, and is included
- for symmetry with PUT /UPDATE
+ This is equivalent to GET /COLLISION:UPDATE, and is included for
+ symmetry with PUT /UPDATE
- FTP GET /UPDATE and /COLLISION:UPDATE mean to download only those
- files whose modification dates on the server are later than those on
- the client. Date-time comparisons are done in Coordinated Universal
- Time (UTC, GMT, ZULU). The command:
+ FTP GET /UPDATE and /COLLISION:UPDATE mean to download only those files
+ whose modification dates on the server are later than those on the
+ client. Date-time comparisons are done in Coordinated Universal Time
+ (UTC, GMT, ZULU). The command:
FTP MGET /COLLISION:APPEND /AS-NAME:newfilename *.*
Downloads all matching remote files into a single local file (in
whatever order the server sends them).
- _________________________________________________________________
- 3.6.3. Recovery
+3.6.3. Recovery
- Recovery is available for downloads too, but there are some
- differences from the uploading case described in [315]Section 3.5.3:
+ Recovery is available for downloads too, but there are some differences
+ from the uploading case described in [326]Section 3.5.3:
* The transfer must be in BINARY mode. It can not be in text mode,
even if the FTP server is on the same kind of platform as Kermit,
Unfortunately, this is not a standard command; at this writing, it
is described only in an Internet Draft, not an RFC or Internet
Standard, but nevertheless it is found in several popular FTP
- servers, such as [316]ProFTPD.
+ servers, such as [327]ProFTPD.
Here's how download recovery works:
If the /RECOVER switch is accepted, then for each selected file:
- * A SIZE command is sent for the file (using its remote name). If
- the reply indicates the file was not found, or the SIZE command
- was not understood, or any other kind of error, recovery is
- canceled (i.e. the entire file is downloaded).
+ * A SIZE command is sent for the file (using its remote name). If the
+ reply indicates the file was not found, or the SIZE command was not
+ understood, or any other kind of error, recovery is canceled (i.e.
+ the entire file is downloaded).
* If the sizes of the two files are identical, the file is not sent.
Otherwise:
* Kermit sends the REST directive to the server, indicating the size
binary.
It doesn't matter how the original partial file was downloaded -- FTP,
- Kermit, HTTP, Zmodem, etc: as long as the preconditions are met, it
- can be recovered with FTP [M]GET /RECOVER, or for that matter also
- with GET /RECOVER (using Kermit protocol).
+ Kermit, HTTP, Zmodem, etc: as long as the preconditions are met, it can
+ be recovered with FTP [M]GET /RECOVER, or for that matter also with GET
+ /RECOVER (using Kermit protocol).
- [ [317]Top ] [ [318]FTP Top ] [ [319]C-Kermit Home ] [ [320]Kermit
- Home ]
- _________________________________________________________________
+ [ [328]Top ] [ [329]FTP Top ] [ [330]C-Kermit Home ] [ [331]Kermit Home
+ ]
- 3.7. Translating Character Sets
+3.7. Translating Character Sets
A possibly unique feature of Kermit's FTP client is its ability to
convert character sets when transferring files in text mode,
- independent of the capabilites of the FTP server, as well as to
+ independent of the capabilities of the FTP server, as well as to
translate the character sets of filenames regardless of transfer mode.
For compatibility with existing FTP clients, and because there is a
certain performance penalty, Kermit won't do this unless you ask for
character set (to be) used on the server and in some cases (explained
below) also the local file character set. This discussion assumes you
know a bit about character sets (as you must if you have to use them);
- see Chapter 16 of [321]Using C-Kermit for a detailed treatment. The
+ see Chapter 16 of [332]Using C-Kermit for a detailed treatment. The
Kermit commands for FTP character-set conversion are:
SET FTP CHARACTER-SET-TRANSLATION { ON, OFF }
- Whether to translate character sets when transferring text
- files with FTP. OFF by default. Set this to ON to enable
- character-set translation for subsequent FTP uploads and
- downloads.
+ Whether to translate character sets when transferring text files
+ with FTP. OFF by default. Set this to ON to enable character-set
+ translation for subsequent FTP uploads and downloads.
- SET FTP SERVER-CHARACTER-SET [322]name
+ SET FTP SERVER-CHARACTER-SET [333]name
Text character set (to be) used by the server. Most FTP servers
are ignorant of character sets, so all translations are done
unilaterally by Kermit's FTP client. This means that when
downloading files, you must know in advance the character-set
- used in the files you are downloading (and in their names).
- When uploading, you must specify the character-set to which
- local filenames and text-file contents are to be translated for
+ used in the files you are downloading (and in their names). When
+ uploading, you must specify the character-set to which local
+ filenames and text-file contents are to be translated for
transmission to the server. If you SET FTP
CHARACTER-SET-TRANSLATION ON but do not specify an FTP
- SERVER-CHARACTER-SET, [323]UTF8 is used, since this is the new
+ SERVER-CHARACTER-SET, [334]UTF8 is used, since this is the new
Internet standard international character set; it is upwards
compatible with ASCII and it encompasses most written languages
and therefore does not favor any particular group of people, as
to something (anything) when FTP CHARACTER-SET TRANSLATION is
OFF, this also sets the latter ON.
- SET FILE CHARACTER-SET [324]name
+ SET FILE CHARACTER-SET [335]name
This is the regular Kermit (non-FTP-specific) command for
identifying the character set (to be) used in local text files
and filenames.
TO REITERATE: If you SET FTP CHARACTER-SET TRANSLATION ON but do not
specify an FTP SERVER-CHARACTER-SET, outbound text files are converted
- to UTF-8 and inbound text files are assumed to be UTF-8. If this is
- not appropriate, be sure to also specify the desired FTP
+ to UTF-8 and inbound text files are assumed to be UTF-8. If this is not
+ appropriate, be sure to also specify the desired FTP
SERVER-CHARACTER-SET.
You can use "special" (non-ASCII) characters in filenames in all the
client / server file management commands (FTP MKDIR, RMDIR, DIRECTORY,
VDIRECTORY, DELETE, etc), and also in file-transfer commands. When
- giving commands such as FTP DIR (RDIR) and FTP PWD (RPWD), the reply
- is translated too, so you can read it. In this example, the client and
- server use entirely different codes to represent the special
- characters of German:
+ giving commands such as FTP DIR (RDIR) and FTP PWD (RPWD), the reply is
+ translated too, so you can read it. In this example, the client and
+ server use entirely different codes to represent the special characters
+ of German:
C-Kermit> ftp xyzcorp.de /anonymous
C-Kermit> set ftp server-character-set latin1
8-bit character sets. You should be especially careful to avoid using
such characters in filenames.
- [ [325]C-Kermit Character Sets ]
- _________________________________________________________________
+ [ [336]C-Kermit Character Sets ]
- 3.7.1. Character Sets and Uploading
+3.7.1. Character Sets and Uploading
- Kermit's PUT and MPUT commands include full file-scanning
- capabilities, as described in [326]Section 4. Thus if FTP
- CHARACTER-SET-TRANSLATION is ON and your character-set associations
- are set up appropriately, Kermit automatically switches on a per-file
- basis between text and binary mode, and for each text file between
- your chosen 7-bit text character set (e.g. ASCII or ISO 646 German),
- 8-bit text (e.g. Latin-1 or Japanese EUC), UCS-2, and UTF-8, and
- converts each of these automatically to the server character-set, and
- furthermore automatically differentiates between the Little and Big
- Endian forms of UCS-2, always sending in Big Endian form.
+ Kermit's PUT and MPUT commands include full file-scanning capabilities,
+ as described in [337]Section 4. Thus if FTP CHARACTER-SET-TRANSLATION
+ is ON and your character-set associations are set up appropriately,
+ Kermit automatically switches on a per-file basis between text and
+ binary mode, and for each text file between your chosen 7-bit text
+ character set (e.g. ASCII or ISO 646 German), 8-bit text (e.g. Latin-1
+ or Japanese EUC), UCS-2, and UTF-8, and converts each of these
+ automatically to the server character-set, and furthermore
+ automatically differentiates between the Little and Big Endian forms of
+ UCS-2, always sending in Big Endian form.
WARNING: It is not advisable to use UCS-2 (or any Unicode
transformation other than UTF-8) "on the wire", i.e. as a server
it contains lots of 0 (NUL) characters. If you do use it, Kermit
does not translate filenames to or from UCS-2, for reasons well
known to C programmers (for example, UNIX APIs assume filename
- strings are NUL-terminated). [327]UTF-8 is the preferred (and
+ strings are NUL-terminated). [338]UTF-8 is the preferred (and
standard) Unicode format for the Internet.
FTP character-set translations differ from the regular Kermit ones by
not restricting translations to a file-character-set /
- transfer-character-set pair. You can have Kermit's FTP client
- translate between any pair of character sets it knows about. You can
- see the list of supported character sets by typing either of the
- following:
+ transfer-character-set pair. You can have Kermit's FTP client translate
+ between any pair of character sets it knows about. You can see the list
+ of supported character sets by typing either of the following:
set ftp server-character-set ?
set file character-set ?
- A typical list looks like this ([328]CLICK HERE for an explanation of
+ A typical list looks like this ([339]CLICK HERE for an explanation of
the names):
C-Kermit>set file char ? One of the following:
C-Kermit>
Thus you can translate not only between private sets (like PC code
- pages) and standard ones (like Latin-1) as in Kermit protocol, but
- also between any given pair of private sets (e.g. CP852 and Mazovia).
- All conversions go through Unicode as the intermediate character set,
+ pages) and standard ones (like Latin-1) as in Kermit protocol, but also
+ between any given pair of private sets (e.g. CP852 and Mazovia). All
+ conversions go through Unicode as the intermediate character set,
resulting in a minimum of character loss, since Unicode is a superset
of all other character sets known to Kermit.
switches do not affect binary files unless you also include the
/TEXT switch to force all files to be treated as text.
- In other words, if you include one or both of these switches with a
- PUT or MPUT command, they are used. Similarly, the /TRANSPARENT switch
+ In other words, if you include one or both of these switches with a PUT
+ or MPUT command, they are used. Similarly, the /TRANSPARENT switch
disables character-set translation for the PUT or MPUT command despite
the prevailing FTP CHARACTER-SET-TRANSLATION and SERVER-CHARACTER-SET
settings.
When uploading, the FILE CHARACTER-SET setting is ignored unless you
- have forced Kermit not to [329]scan local files by including a /TEXT
- or /BINARY switch with your [M]PUT command, or by disabling automatic
+ have forced Kermit not to [340]scan local files by including a /TEXT or
+ /BINARY switch with your [M]PUT command, or by disabling automatic
text/binary switching in some other way.
Examples:
- 1. Suppose you have a CP852 (East European) text file that you want
- to upload and store in ISO Latin Alphabet 2 encoding:
+ 1. Suppose you have a CP852 (East European) text file that you want to
+ upload and store in ISO Latin Alphabet 2 encoding:
ftp put /local-char:cp852 /server-char:latin2 magyar.txt
+
2. Suppose you always want your text files converted to Latin-2 when
uploading with FTP. Then put:
set ftp server-character-set latin2
+
in your Kermit customization file, and then you can omit the
/SERVER-CHARACTER-SET: switch from your FTP PUT commands:
ftp put /local-char:cp852 magyar.txt
+
3. Now suppose that all the text files on your PC are written in
- Hungarian, but they have a variety of encodings, and you don't
- want to have to include the /LOCAL-CHARACTER-SET: switch on every
- FTP PUT command, or (more to the point) you want to be able to
- send a mixture of these files all at once. Put these commands in
- your Kermit customization file:
+ Hungarian, but they have a variety of encodings, and you don't want
+ to have to include the /LOCAL-CHARACTER-SET: switch on every FTP
+ PUT command, or (more to the point) you want to be able to send a
+ mixture of these files all at once. Put these commands in your
+ Kermit customization file:
set ftp server-character-set latin2 ; ISO 8859-2
set file default 7-bit-character-set hungarian ; ISO 646 Hungarian
set file default 8-bit-character-set cp852 ; PC East European Code Page
- and now PUT and MPUT will automatically detect and switch among
- ISO 646 Hungarian, Code Page 852, UTF-8, and UCS-2 encodings,
+
+ and now PUT and MPUT will automatically detect and switch among ISO
+ 646 Hungarian, Code Page 852, UTF-8, and UCS-2 encodings,
translating each one to Latin-2 for uploading:
ftp put *.txt
even when "*" matches a diverse collection of binary and text files,
because translations are skipped automatically for binary files.
- _________________________________________________________________
- 3.7.2. Character Sets and Downloading
+3.7.2. Character Sets and Downloading
The commands and switches are the same as for uploading, but automatic
character-set switching works differently, since Kermit can't scan the
- server files in advance. Instead, the transfer mode (text or binary)
- is based on the filenames; each name is compared with Kermit's list of
+ server files in advance. Instead, the transfer mode (text or binary) is
+ based on the filenames; each name is compared with Kermit's list of
text name patterns and binary name patterns. If the name matches a
binary pattern (for example, if the filename is oofa.tar.gz and one of
the filename patterns is "*.gz"), the file is downloaded in binary
Examples:
get /server-char:latin1 /local-char:cp850 Grüße.txt
- In this command, the filename contains special characters,
- which you enter using whatever character set your local
- computer uses, in this case PC Code Page 850 (cp850). The
- command tells Kermit (in case it didn't know already from its
- FILE CHARACTER-SET setting) that the local character set is
- cp850 and the server's character-set is ISO 8859-1 Latin
- Alphabet 1 (latin1). Kermit translates the filename from cp850
- to latin1 and sends the latin1 name to the server. Since it's a
- text file (matches "*.txt"), its contents are translated to
- cp850 on arrival, and it is saved with a cp850 name.
+ In this command, the filename contains special characters, which
+ you enter using whatever character set your local computer uses,
+ in this case PC Code Page 850 (cp850). The command tells Kermit
+ (in case it didn't know already from its FILE CHARACTER-SET
+ setting) that the local character set is cp850 and the server's
+ character-set is ISO 8859-1 Latin Alphabet 1 (latin1). Kermit
+ translates the filename from cp850 to latin1 and sends the
+ latin1 name to the server. Since it's a text file (matches
+ "*.txt"), its contents are translated to cp850 on arrival, and
+ it is saved with a cp850 name.
mget /text /server:latin1 /local:utf8 *.txt
This command:
Tells Kermit to get all files from the server's directory,
switching between text and binary mode based on the filename.
The names of all the files are translated (to UTF-8 in this
- case), but contents are translated (also to UTF-8) only for
- text files.
+ case), but contents are translated (also to UTF-8) only for text
+ files.
Note that any pair of 8-bit character sets is likely to have some
incompatibilities. Any characters in the source file that do not have
mget Grüß*.txt
does not.
- _________________________________________________________________
- 3.7.3. RFC2640
+3.7.3. RFC2640
- [330]RFC2640, July 1999, specifies a method by which the FTP client
- and server can negotiate the use of UTF8. However, RFC2640-capable
- servers are rare to nonexistent at this writing, and in any case you
- don't need them to be able to transfer text in UTF8. C-Kermit lets you
- upload and download text files in any character set it knows about,
- converting to or from any other character set it knows about, without
- the knowledge, permission, or cooperation of the server, and
- regardless of its capabilities.
+ [341]RFC2640, July 1999, specifies a method by which the FTP client and
+ server can negotiate the use of UTF8. However, RFC2640-capable servers
+ are rare to nonexistent at this writing, and in any case you don't need
+ them to be able to transfer text in UTF8. C-Kermit lets you upload and
+ download text files in any character set it knows about, converting to
+ or from any other character set it knows about, without the knowledge,
+ permission, or cooperation of the server, and regardless of its
+ capabilities.
- [ [331]Top ] [ [332]FTP Top ] [ [333]C-Kermit Home ] [ [334]Kermit
- Home ]
- _________________________________________________________________
+ [ [342]Top ] [ [343]FTP Top ] [ [344]C-Kermit Home ] [ [345]Kermit Home
+ ]
- 3.8. FTP Command Shortcuts
+3.8. FTP Command Shortcuts
C-Kermit's FTP client coexists with other C-Kermit functions by
requiring the "ftp" prefix for each FTP-related command: FTP OPEN, FTP
GET, FTP BYE, and so on. For interactive use, however, this can be
- rather awkward and sometimes surprising, for example when a GET
- command starts a Kermit GET rather than an FTP GET. In fact, many
- Kermit commands might just as easily apply to an FTP connection: GET,
- PUT (SEND), BYE, and CLOSE. The following command lets you choose how
- these commands are interpreted:
+ rather awkward and sometimes surprising, for example when a GET command
+ starts a Kermit GET rather than an FTP GET. In fact, many Kermit
+ commands might just as easily apply to an FTP connection: GET, PUT
+ (SEND), BYE, and CLOSE. The following command lets you choose how these
+ commands are interpreted:
SET GET-PUT-REMOTE { AUTO, KERMIT, FTP }
Controls the orientation of GET, PUT, REMOTE and other
file-transfer and client/server commands that might apply to
either Kermit or FTP. The default setting is AUTO, meaning that
- these commands apply to FTP if an FTP connection is open, and
- to Kermit otherwise. KERMIT means they always apply to Kermit,
- FTP means they always apply to FTP.
+ these commands apply to FTP if an FTP connection is open, and to
+ Kermit otherwise. KERMIT means they always apply to Kermit, FTP
+ means they always apply to FTP.
Here is a complete list of affected commands:
Note that file-management commands such as DIRECTORY, DELETE, CD, PWD,
MKDIR, RMDIR, HELP, RENAME, COPY, TYPE, and so on, always apply
locally, no matter what kind of connection you have. This is the
- opposite of most FTP clients, where these commands are intended for
- the server, and require an "L" prefix for local execution (e.g. "dir"
- gets a directory listing from the server, "ldir" gets a local
- directory listing). To illustrate with the CD command and a typical
- UNIX FTP client:
+ opposite of most FTP clients, where these commands are intended for the
+ server, and require an "L" prefix for local execution (e.g. "dir" gets
+ a directory listing from the server, "ldir" gets a local directory
+ listing). To illustrate with the CD command and a typical UNIX FTP
+ client:
Client Server Change Local Directory Change Remote Directory
FTP FTP lcd cd (cwd)
* REMOTE WHO - FTP servers don't send user lists
Finally note that command shortcuts do not apply to the HELP command.
- For help about an FTP command, use (for example) "help ftp delete",
- not "help delete" or "help rdelete".
+ For help about an FTP command, use (for example) "help ftp delete", not
+ "help delete" or "help rdelete".
- [ [335]Top ] [ [336]FTP Top ] [ [337]C-Kermit Home ] [ [338]Kermit
- Home ]
- _________________________________________________________________
+ [ [346]Top ] [ [347]FTP Top ] [ [348]C-Kermit Home ] [ [349]Kermit Home
+ ]
- 3.9. Dual Sessions
+3.9. Dual Sessions
You can have an FTP session open at the same time as a regular Kermit
SET LINE or SET HOST (terminal) session. In this case, the default SET
- GET-PUT-REMOTE AUTO setting should ensure that all "two-faced"
- commands like GET, PUT, REMOTE, HANGUP, BYE, etc, apply to the Kermit
- session, and all commands for the FTP session must include the FTP
- prefix. To be absolutely certain, you can use SET GET-PUT-REMOTE
- KERMIT.
+ GET-PUT-REMOTE AUTO setting should ensure that all "two-faced" commands
+ like GET, PUT, REMOTE, HANGUP, BYE, etc, apply to the Kermit session,
+ and all commands for the FTP session must include the FTP prefix. To be
+ absolutely certain, you can use SET GET-PUT-REMOTE KERMIT.
ftp foo.bar.baz.com
if fail ...
(log in)
Now you have both an FTP and Telnet connection to the same host (of
- course they could also be to different hosts, and you could also have
- a direct or dialed serial connection instead of a Telnet connection).
- Now assuming you have a Kermit server on the far end of the Kermit
+ course they could also be to different hosts, and you could also have a
+ direct or dialed serial connection instead of a Telnet connection). Now
+ assuming you have a Kermit server on the far end of the Kermit
connection:
rcd incoming ; Changes Kermit server's directory (= REMOTE CD)
kermit -j host1 -9 host2
- This makes a Telnet connection to host1 and an FTP connection to
- host2.
+ This makes a Telnet connection to host1 and an FTP connection to host2.
- [ [339]Top ] [ [340]FTP Top ] [ [341]C-Kermit Home ] [ [342]Kermit
- Home ]
- _________________________________________________________________
+ [ [350]Top ] [ [351]FTP Top ] [ [352]C-Kermit Home ] [ [353]Kermit Home
+ ]
- 3.10. Automating FTP Sessions
+3.10. Automating FTP Sessions
- Most of Kermit's scripting features can be used to make and control
- FTP sessions: FOR and WHILE loops, IF-ELSE and SWITCH constructions,
+ Most of Kermit's scripting features can be used to make and control FTP
+ sessions: FOR and WHILE loops, IF-ELSE and SWITCH constructions,
variables, arrays, built-in functions, and all the rest. You can't use
INPUT, MINPUT, OUTPUT, CLEAR, or SCRIPT on an FTP session, but these
are not needed since the FTP protocol is well defined.
- [343]CLICK HERE for an FTP scripting tutorial.
+ [354]CLICK HERE for an FTP scripting tutorial.
- 3.10.1. FTP-Specific Variables and Functions
+3.10.1. FTP-Specific Variables and Functions
The following variable tells whether an FTP connection is open:
\v(ftp_security)
The security method negotiated for the current FTP session. The
- value is "NULL" when no security is used. See [344]3.2. Making
- Secure FTP Connections.
+ value is "NULL" when no security is used. Other possibilities
+ are GSSAPI, KERBEROS_V4, SSL, TLS, and SRP. Also see
+ \v(authname), \v(authstate), and \v(authtype). See [355]3.2.
+ Making Secure FTP Connections.
\v(ftp_server)
The OS type (UNIX, VMS, etc) of the FTP server host.
\v(ftp_cpl)
\v(ftp_dpl)
- The values are "clear", "confidential", "safe" or "private".
- See [345]3.2. Making Secure FTP Connections.
+ The values are "clear", "confidential", "safe" or "private". See
+ [356]3.2. Making Secure FTP Connections.
The FTP GET-PUT-REMOTE setting is reflected in:
\v(ftp_code)
The standardized numeric FTP protocol code from the server's
response to the last client command, a 3-digit decimal number
- defined in [346]RFC959. Briefly:
+ defined in [357]RFC959. Briefly:
1xx = Positive Preliminary Reply
2xx = Positive Completion Reply
5xx = Permanent Negative Completion Reply
\v(ftp_message)
- The text message, if any, from the server's response to the
- last client command. If the most recent response had multiple
- lines, this variable has only the final line. These messages
- are not standardized and vary in format and content from server
- to server. Synonym: \v(ftp_msg).
+ The text message, if any, from the server's response to the last
+ client command. If the most recent response had multiple lines,
+ this variable has only the final line. These messages are not
+ standardized and vary in format and content from server to
+ server. Synonym: \v(ftp_msg).
FTP file transfers set the regular Kermit transfer status variables:
\v(filename) Name of current file.
\v(filenumber) Ordinal file number in group (1, 2, 3, ...)
- _________________________________________________________________
- 3.10.2. Examples
+3.10.2. Examples
Let's begin with a simple example showing how to log in, send some
files, and log out:
error {put}
ftp bye
- First we define an error handling macro to be used after the
- connection is made. Then we set up a brief-format transaction log to
- keep a record of our file transfers. Then we make a connection to the
- host and log in anonymously. The "if fail" command checks whether the
- connection was made. The "if not" command checks whether login was
- successful. Obviously the script should not continue unless both tests
- succeed.
+ First we define an error handling macro to be used after the connection
+ is made. Then we set up a brief-format transaction log to keep a record
+ of our file transfers. Then we make a connection to the host and log in
+ anonymously. The "if fail" command checks whether the connection was
+ made. The "if not" command checks whether login was successful.
+ Obviously the script should not continue unless both tests succeed.
Next we change to the server's 'incoming' directory and to our own
'upload' directory, and send all the files that are in it (they can be
* It can be stored in a file, and Kermit can be told to TAKE the
file.
- * In UNIX, it can be a "[347]kerbang" script and therefore run
+ * In UNIX, it can be a "[358]kerbang" script and therefore run
directly from the shell prompt or as a cron job.
We could have used command shortcuts like "rcd", "put", and "bye", but
during interactive use. However, if you wish to use the shortcuts in a
script, you can do it this way (error handling omitted for brevity):
- local \%t ; Declare a local temporary veriable
+ local \%t ; Declare a local temporary variable
assign \%t \v(ftp_getputremote) ; Save current FTP GET-PUT-REMOTE setting
set ftp get-put-remote ftp ; Choose FTP orientation
ftp xyzcorp.com /anonymous ; Open an FTP connection
}
Add this definition to your Kermit customization file, and it will
- always be available when you start Kermit. This macro lets you
- download a file with FTP by giving a single command, e.g.:
+ always be available when you start Kermit. This macro lets you download
+ a file with FTP by giving a single command, e.g.:
doftpget xyzcorp.com anonymous oofa.txt
- _________________________________________________________________
- 3.10.3. Automating Secure FTP Sessions
+3.10.3. Automating Secure FTP Sessions
Often when making secure connections, you are prompted interactively
for certain information or permission to proceed. These prompts can
operation for success or failure and take appropriate action.
* On SSL and TLS connections, you may be asked whether it is OK to
proceed with a connection to server that presents a self-signed
- certificate. You can use the SET AUTHENTICATION SSL (or TLS)
- VERIFY or SET AUTH SSL (or TLS) CERTS-OK commands to avoid this
- prompt by not requesting a certificate from the peer.
+ certificate. You can use the SET AUTHENTICATION SSL (or TLS) VERIFY
+ or SET AUTH SSL (or TLS) CERTS-OK commands to avoid this prompt by
+ not requesting a certificate from the peer.
* (More to be added...)
- [ [348]Top ] [ [349]FTP Top ] [ [350]FTP Script Tutorial ] [
- [351]C-Kermit Home ] [ [352]Kermit Home ]
- _________________________________________________________________
+ [ [359]Top ] [ [360]FTP Top ] [ [361]FTP Script Tutorial ] [
+ [362]C-Kermit Home ] [ [363]Kermit Home ]
- 3.11. Advanced FTP Protocol Features
+3.11. Advanced FTP Protocol Features
- The remainder of the FTP documention (through the end of Section 3) is
- new to C-Kermit 8.0.206, but we leave it in black to prevent
+ The remainder of the FTP documentation (through the end of Section 3)
+ is new to C-Kermit 8.0.206, but we leave it in black to prevent
headaches. Except for titles.
- * [353]TERMINOLOGY
- * [354]FEATURE NEGOTIATION
- * [355]USING MGET: NLST VERSUS MLSD
- * [356]EXAMPLES
- * [357]REFERENCES
+ * [364]TERMINOLOGY
+ * [365]FEATURE NEGOTIATION
+ * [366]USING MGET: NLST VERSUS MLSD
+ * [367]EXAMPLES
+ * [368]REFERENCES
- The new releases of [358]C-Kermit (8.0.206) and [359]Kermit 95 (2.1)
+ The new releases of [369]C-Kermit (8.0.206) and [370]Kermit 95 (2.1)
support new FTP protocol features from RFC 2389 as well as most of
what's in the Elz and Hethmon Extensions to FTP Internet Draft (see
- [360]References). Some of these features, such as SIZE (request a
+ [371]References). Some of these features, such as SIZE (request a
file's size), MDTM (request file's modification time), and REST
(restart interrupted transfer) have been widely implemented in FTP
- clients and servers for years (as well as in the initial release of
- the Kermit FTP clients). Others such as FEAT and MLSD are rarely seen
- and are new to the upcoming Kermit releases. TVFS (Trivial Virtual
- File Store) is supported implicitly, and the UTF-8 character-set is
- already fully supported at the protocol and data-interchange level.
+ clients and servers for years (as well as in the initial release of the
+ Kermit FTP clients). Others such as FEAT and MLSD are rarely seen and
+ are new to the upcoming Kermit releases. TVFS (Trivial Virtual File
+ Store) is supported implicitly, and the UTF-8 character-set is already
+ fully supported at the protocol and data-interchange level.
For Kermit users, the main benefit of the new FTP protocol extensions
is the ability to do recursive downloads. But the extensions also
introduce complications and tradeoffs that you should be aware of. Of
- course Kermit tries to "do the right thing" automatically in every
- case for backwards compatibility. But (as noted later) some cases are
+ course Kermit tries to "do the right thing" automatically in every case
+ for backwards compatibility. But (as noted later) some cases are
inherently ambiguous and/or can result in nasty surprises, and for
those situations new commands and switches are available to give you
precise control over Kermit's behavior, in case the defaults don't
produce the desired results.
- _________________________________________________________________
-
- 3.11.1. Terminology Command-line FTP clients such as Kermit (as well
- as the traditional FTP programs found on Unix, VMS, ..., even Windows)
- have commands like PUT, MPUT, GET, MGET, and BYE, which they convert
- into zero or more FTP protocol commands, such as NLST, RETR, QUIT. For
- clarity, we'll use "command" to refer to commands given by the user to
- the FTP client, and "directive" for FTP protocol commands sent by the
- FTP client to the FTP server.
- _________________________________________________________________
-
- 3.11.2. Feature Negotiation New FTP protocol features are negotiated
- by the client sending a FEAT directive and the server responding with
- a list of (new) features it supports, or else with an error indication
- if it does not support the FEAT directive at all, in which case the
- client has to guess which new features it supports (Kermit guesses
- that it supports SIZE and MDTM but not MLST). Note that the MLST
- feature includes MLSD, which is not listed separately as a feature.
+
+3.11.1. Terminology
+
+ Command-line FTP clients such as Kermit (as well as the traditional FTP
+ programs found on Unix, VMS, ..., even Windows) have commands like PUT,
+ MPUT, GET, MGET, and BYE, which they convert into zero or more FTP
+ protocol commands, such as NLST, RETR, QUIT. For clarity, we'll use
+ "command" to refer to commands given by the user to the FTP client, and
+ "directive" for FTP protocol commands sent by the FTP client to the FTP
+ server.
+
+3.11.2. Feature Negotiation
+
+ New FTP protocol features are negotiated by the client sending a FEAT
+ directive and the server responding with a list of (new) features it
+ supports, or else with an error indication if it does not support the
+ FEAT directive at all, in which case the client has to guess which new
+ features it supports (Kermit guesses that it supports SIZE and MDTM but
+ not MLST). Note that the MLST feature includes MLSD, which is not
+ listed separately as a feature.
Guessing is nice when it works, but sometimes it doesn't, and some FTP
servers become confused when you send them a directive they don't
FTP { ENABLE, DISABLE } FEAT
Enables or disables the automatic sending of a FEAT directive
- upon connection to an FTP server. Note that
- FTP [ OPEN ] /NOINIT also inhibits sending the FEAT directive
- (and several others) for the connection being OPEN'd, but
- without necessarily disabling FEAT for subsequent connections
- in the same Kermit instance. FEAT is ENABLED by default, in
- which case many FTP servers are likely to reply:
+ upon connection to an FTP server. Note that FTP [ OPEN ] /NOINIT
+ also inhibits sending the FEAT directive (and several others)
+ for the connection being OPEN'd, but without necessarily
+ disabling FEAT for subsequent connections in the same Kermit
+ instance. FEAT is ENABLED by default, in which case many FTP
+ servers are likely to reply:
500 'FEAT': command not understood
FTP DISABLE { MDTM, MLST, SIZE }
Disables implicit use of the given directive by GET or MGET in
- case it causes problems; for example, because it makes
- multifile downloads take too long or the server announces it
- erroneously or misimplements it. Use DISABLE FEAT before making
- a connection to prevent Kermit from sending the FEAT directive
- as part of its initial sequence. Note that disabling FEAT,
- SIZE, or MDTM does not prevent you from executing explicit FTP
- FEATURES, FTP SIZE, or FTP MODTIME commands. Also note that
- disabling SIZE prevents PUT /RESTART (recovery of interrupted
- uploads) from working. YOU MUST GIVE THIS COMMAND AFTER MAKING
- THE FTP CONNECTION.
+ case it causes problems; for example, because it makes multifile
+ downloads take too long or the server announces it erroneously
+ or misimplements it. Use DISABLE FEAT before making a connection
+ to prevent Kermit from sending the FEAT directive as part of its
+ initial sequence. Note that disabling FEAT, SIZE, or MDTM does
+ not prevent you from executing explicit FTP FEATURES, FTP SIZE,
+ or FTP MODTIME commands. Also note that disabling SIZE prevents
+ PUT /RESTART (recovery of interrupted uploads) from working. YOU
+ MUST GIVE THIS COMMAND AFTER MAKING THE FTP CONNECTION.
To enable or disable more than one feature, use multiple FTP ENABLE or
FTP DISABLE commands. The SHOW FTP command shows which features are
FTP OPTIONS directive
Informational only: the server tells what options, if any, it
- supports for the given directive, e.g. MLST. Fails if the
- server does not support the OPTS directive or if the directive
- for which options are requested is not valid. The directive is
+ supports for the given directive, e.g. MLST. Fails if the server
+ does not support the OPTS directive or if the directive for
+ which options are requested is not valid. The directive is
case-insensitive.
FTP SIZE filename
Sends a SIZE directive to the server for the given file. The
- filename must not contain wildcards. The server responds with
- an error if the file can't be found, is not accessible, or the
- SIZE directive is not supported, otherwise with the length of
- the file in bytes, which Kermit displays and also makes
- available to you in its \v(ftp_message) variable. If the
- directive is successful, Kermit (re-)enables it for internal
- use by the GET and MGET directives on this connection.
+ filename must not contain wildcards. The server responds with an
+ error if the file can't be found, is not accessible, or the SIZE
+ directive is not supported, otherwise with the length of the
+ file in bytes, which Kermit displays and also makes available to
+ you in its \v(ftp_message) variable. If the directive is
+ successful, Kermit (re-)enables it for internal use by the GET
+ and MGET directives on this connection.
FTP MODTIME filename
Works just like the SIZE directive except it sends an MDTM
- directive. Upon success, the server sends modification
- date-time string, which Kermit interprets for you and also
- makes available in its \v(ftp_message) variable.
+ directive. Upon success, the server sends modification date-time
+ string, which Kermit interprets for you and also makes available
+ in its \v(ftp_message) variable.
Whenever a SIZE or MDTM directive is sent implicitly and rejected by
the server because it is unknown, Kermit automatically disables it.
- _________________________________________________________________
- 3.11.3. Using MGET: NLST versus MLSD When you give an MGET command to
- an FTP client, it sends a request to the FTP server for a list of
- files, and then upon successful receipt of the list, goes through it
- and issues a RETR (retrieve) directive for each file on the list (or
- possibly only for selected files).
+3.11.3. Using MGET: NLST versus MLSD
- With the new FTP protocol extensions, now there are two ways to get
- the list of files: the NLST directive, which has been part of FTP
- protocol since the beginning, and the new MLSD directive, which is new
- and not yet widely implemented. When NLST is used and you give a
- command like "mget *.txt", the FTP client sends:
+ When you give an MGET command to an FTP client, it sends a request to
+ the FTP server for a list of files, and then upon successful receipt of
+ the list, goes through it and issues a RETR (retrieve) directive for
+ each file on the list (or possibly only for selected files).
+
+ With the new FTP protocol extensions, now there are two ways to get the
+ list of files: the NLST directive, which has been part of FTP protocol
+ since the beginning, and the new MLSD directive, which is new and not
+ yet widely implemented. When NLST is used and you give a command like
+ "mget *.txt", the FTP client sends:
NLST *.txt
But when MLSD is used, the client is not supposed to send the filename
or wildcard to the server; instead it sends an MLSD directive with no
- argument (or the name of a directory), and the server sends back a
- list of all the files in the current or given directory; then the
- client goes through the list and checks each file to see if it matches
- the given pattern, the rationale being that the user knows only the
- local conventions for wildcards and not necessarily the server's
- conventions. So with NLST the server interprets wildcards; with MLSD
- the client does.
+ argument (or the name of a directory), and the server sends back a list
+ of all the files in the current or given directory; then the client
+ goes through the list and checks each file to see if it matches the
+ given pattern, the rationale being that the user knows only the local
+ conventions for wildcards and not necessarily the server's conventions.
+ So with NLST the server interprets wildcards; with MLSD the client
+ does.
The interpretation of NLST wildcards by the server is not
necessarily required or even envisioned by the FTP protocol
definition (RFC 959), but in practice most clients and servers work
- this way.
+ this way.
The principal advantage of MLSD is that instead of sending back a
simple list of filenames, it sends back a kind of database in which
(If the format of the file list were the only difference between NLST
and MLSD, the discussion would be finished: it would always be better
to use MLSD when available, and the MGET user interface would need no
- changes. But there's a lot more to MLSD than the file-list format;
- read on...)
+ changes. But there's a lot more to MLSD than the file-list format; read
+ on...)
The client learns whether the server supports MLSD in FEAT exchange.
But the fact that the server supports MLSD doesn't mean the client
* On connections where the server imposes a time penalty for every
command, e.g. the Red Hat Rawhide server. With MLSD, the client
needs to send only one command (RETR) per file, whereas NLST
- requires three (SIZE, RETR, and MDTM). Suppose there is a
- 30-second delay for each command and 1000 files are to be fetched;
- in that case, MLSD saves 60,000 seconds = 1000 minutes = 16 hours
- and 40 minutes.
+ requires three (SIZE, RETR, and MDTM). Suppose there is a 30-second
+ delay for each command and 1000 files are to be fetched; in that
+ case, MLSD saves 60,000 seconds = 1000 minutes = 16 hours and 40
+ minutes.
* For recursive downloads since there is no dependable way to
download directory trees with NLST.
of only the files you want, not a list of (say) a million files,
which can make a big difference on slow connections. For example,
suppose your wildcard matches three files of 1K each, but the
- million-file listing is 80MB long, and your connection is through
- a modem. The overhead of using MLSD is practically infinite.
+ million-file listing is 80MB long, and your connection is through a
+ modem. The overhead of using MLSD is practically infinite.
* If the server supports wildcarding features not known to the
- client, but that can be used to achieve desirable effects
- otherwise unobtainable, such as "[dir...]*.txt" in VMS or AOS/VS
- "except" clauses.
+ client, but that can be used to achieve desirable effects otherwise
+ unobtainable, such as "[dir...]*.txt" in VMS or AOS/VS "except"
+ clauses.
* If you have been given a wildcard string by an FTP site
administrator for fetching a specific group of files out of a
larger directory, e.g. "mget ck[cuw]*.[cwh] makefile", that is
* But if the user's command is "mget xxx", how does the client know
whether to send "xxx" in the MLSD directive? It might be the name
of a directory on on the server, in which case it should be sent,
- or it might be the name of a file on the server (or a wildcard),
- in which case it must not be sent. Since the client knows its own
+ or it might be the name of a file on the server (or a wildcard), in
+ which case it must not be sent. Since the client knows its own
wildcard syntax, then in most cases it would be right to send
"MLSD" with no argument if xxx is wild, and to send "MLSD xxx" if
it is not.
pattern used by the FTP client. What should the client do with
"mget [abc]"? In this case there must be a way for the user to
force sending the MGET argument as the MLSD argument.
- * If "xxx" is a regular file in the server's current directory,
- "mget xxx" works with NLST but not with MLSD.
+ * If "xxx" is a regular file in the server's current directory, "mget
+ xxx" works with NLST but not with MLSD.
To further complicate matters, NLST can (in theory) work just like
- MLSD: if sent with a blank argument or a directory name, it is
- supposed to return a complete list of files in the current or given
- directory, which the client can match locally against some pattern. It
- is not known if any FTP server or client does this but nevertheless,
- it should be possible since this behavior can be inferred from RFC
- 959.
+ MLSD: if sent with a blank argument or a directory name, it is supposed
+ to return a complete list of files in the current or given directory,
+ which the client can match locally against some pattern. It is not
+ known if any FTP server or client does this but nevertheless, it should
+ be possible since this behavior can be inferred from RFC 959.
In view of these considerations, and given the need to preserve the
traditional FTP client command structure and behavior so the software
command.
By default, Kermit's MGET command uses MLSD if MLST is reported by the
- server in its FEAT list. When MLSD is used, the filespec is sent to
- the server if it is not wild (according to Kermit's own definition of
+ server in its FEAT list. When MLSD is used, the filespec is sent to the
+ server if it is not wild (according to Kermit's own definition of
"wild" since it can't possibly know the server's definition). If the
- filespec is wild it is held for local use to select files from the
- list returned by the server. If MLST is not reported by the server or
- is disabled, Kermit sends the MGET filespec with the NLST directive.
+ filespec is wild it is held for local use to select files from the list
+ returned by the server. If MLST is not reported by the server or is
+ disabled, Kermit sends the MGET filespec with the NLST directive.
The default behavior can be overridden globally with FTP DISABLE MLST,
which forces Kermit to use NLST to get file lists. And then for
- situations in which MLSD is enabled, the following MGET switches can
- be used to override the defaults for a specific MGET operation:
+ situations in which MLSD is enabled, the following MGET switches can be
+ used to override the defaults for a specific MGET operation:
/NLST
Forces the client to send NLST. Example:
pattern for local use against the returned file list. If a
remote filespec is also given (e.g. the "blah" in "mget
/match:*.txt blah"), then it is sent as the NLST or MLSD
- argument, presumably to specify the directory whose files are
- to be listed. When the /MATCH switch is not given, the MGET
+ argument, presumably to specify the directory whose files are to
+ be listed. When the /MATCH switch is not given, the MGET
filespec is sent to the server if the directive is NLST or if
the filespec is not wild. Examples:
mget /match:*.txt NLST MLSD
mget /match:*.txt foo NLST foo MLSD foo
- In other words, the pattern is always intepreted locally unless MGET
+ In other words, the pattern is always interpreted locally unless MGET
uses NLST and no /MATCH switch was given.
- _________________________________________________________________
- 3.11.4. Examples
+3.11.4. Examples
- 3.11.4.1. Downloading a Single File
+3.11.4.1. Downloading a Single File
There are no choices here, just use the FTP GET command. Kermit always
sends the RETR directive, and possibly SIZE and/or MDTM. The small
advantage of using MLST in this case is outweighed by the risk and
effort of coding a special case.
- 3.11.4.2. Downloading a Group of Files from a Single Directory
+3.11.4.2. Downloading a Group of Files from a Single Directory
This case presents tradeoffs, especially on slow connections:
disabled it).
* For a small number of files from a large directory, NLST is better
because it bypasses downloading of a potentially huge file list
- prior to the files themselves. If you have a connection to a
- server that supports MLSD, use the /NLST switch to force NLST:
+ prior to the files themselves. If you have a connection to a server
+ that supports MLSD, use the /NLST switch to force NLST:
mget /nlst t[1234].h
information, MLSD is better; no special actions required.
* If the server supports MLSD but does not support the "size" and
"modify" facts, but it does support the SIZE or MDTM directives,
- and you need the size and/or timestamp information, NLST is
- better.
+ and you need the size and/or timestamp information, NLST is better.
- 3.11.4.3. Downloading a Directory Tree
+3.11.4.3. Downloading a Directory Tree
MLSD is the only choice for recursive downloads; they rarely, if ever,
- work with NLST (the few cases where they do work rely on
- extra-protocol "secret" notations for the NLST argument). No special
- actions are required to force MLSD when the server supports it, unless
- you have disabled it. Examples:
+ work with NLST (the few cases where they do work rely on extra-protocol
+ "secret" notations for the NLST argument). No special actions are
+ required to force MLSD when the server supports it, unless you have
+ disabled it. Examples:
MGET /RECURSIVE
This tells the server to send all files and directories in the
tree rooted at its current directory.
MGET /RECURSIVE *.txt
- This tells the server to send all *.txt files in the tree
- rooted at its current directory.
+ This tells the server to send all *.txt files in the tree rooted
+ at its current directory.
MGET /MLSD /RECURSIVE *.txt
Same as the previous example but forces Kermit to send MLSD in
it even though it did not announce it in its FEAT listing.
MGET /RECURSIVE /MATCH:*.zip archives
- Tells the server to send all ZIP files in the tree rooted at
- its "archives" directory.
+ Tells the server to send all ZIP files in the tree rooted at its
+ "archives" directory.
MGET /RECURSIVE /MATCH:* [abc]
The server is running on VMS and you want it to send all the
files in the directory tree rooted at [ABC]. But since "[abc]"
- looks just like a wildcard, you have to include a /MATCH:
- switch to force Kermit to send "[abc]" as the MLSD argument.
+ looks just like a wildcard, you have to include a /MATCH: switch
+ to force Kermit to send "[abc]" as the MLSD argument.
In all cases in which the /RECURSIVE switch is included, the server's
tree is duplicated locally.
Although MLSD allows recursion and NLST does not, the MLSD
specification places a heavy burden on the client; the obvious,
straightforward, and elegant implementation (depth-first, the one
- that Kermit currently uses) requires as many open temporary files
- as the server's directory tree is deep, and therefore client
- resource exhaustion -- e.g. exceeding the maximum number of open
- files -- is a danger. Unfortunately MLSD was not designed with
- recursion in mind. (Breadth-first traversal could be problematic
- due to lack of sufficient navigation information.)
-
- Of course all of Kermit's other MGET switches can be used too, e.g.
- for finer-grained file selection (by date, size, etc), for moving or
+ that Kermit currently uses) requires as many open temporary files as
+ the server's directory tree is deep, and therefore client resource
+ exhaustion -- e.g. exceeding the maximum number of open files -- is
+ a danger. Unfortunately MLSD was not designed with recursion in
+ mind. (Breadth-first traversal could be problematic due to lack of
+ sufficient navigation information.)
+
+ Of course all of Kermit's other MGET switches can be used too, e.g. for
+ finer-grained file selection (by date, size, etc), for moving or
renaming files as they arrive, to override Kermit's automatic per-file
text/binary mode switching, to pass the incoming files through a
filter, to convert text-file character sets, and so on.
- 3.11.4.4. NLST/MLSD Summary Table
+3.11.4.4. NLST/MLSD Summary Table
Here's a table summarizing MGET behavior when the server supports both
NLST and MLSD. /NLST and /MLSD switches are included for clarity to
indicate which protocol is being used, and the expected effects. In
practice you can omit the /NLST and /MLSD switches and the Kermit
client chooses the appropriate or desired protocol as described above.
- Sample commands presume a Unix file system on the server, but of
- course the server can have any file system or syntax at all.
+ Sample commands presume a Unix file system on the server, but of course
+ the server can have any file system or syntax at all.
User's Command FTP Sends Remarks
mget /nlst NLST Gets a list of all the files in the server's current
and downloads each file. The list includes names only, so Kermit also
- must send SIZE and MDTM directives if size and timestamp information
- is required (this is always true of NLST). Sending NLST without an
- argument is allowed by the RFC959 NLST definition and by the Kermit
- FTP client, but might not work with other clients, and also might not
- work with every server.
+ must send SIZE and MDTM directives if size and timestamp information is
+ required (this is always true of NLST). Sending NLST without an
+ argument is allowed by the RFC959 NLST definition and by the Kermit FTP
+ client, but might not work with other clients, and also might not work
+ with every server.
mget /nlst foo NLST foo If "foo" is a directory, this gets a list of
all the files from the server's "foo" directory and downloads each
file; otherwise this downloads the file named "foo" (if any) from the
timestamp information, in which case Kermit does not need to send SIZE
and MDTM directives for each file (this is always true of MLSD).
mget /mlsd foo MLSD foo Gets a list of all the files from the server's
- "foo" directory (where the string "foo" does not contain wildcards)
- and then downloads each one. If "foo" is a regular file and not a
- directory, this command is supposed to fail, but some servers have
- been observed that send the file.
+ "foo" directory (where the string "foo" does not contain wildcards) and
+ then downloads each one. If "foo" is a regular file and not a
+ directory, this command is supposed to fail, but some servers have been
+ observed that send the file.
mget /mlsd *.txt MLSD Gets a list of all the files from the server's
current directory and then downloads only the ones whose names match
- the pattern "*.txt". Because we are using MLSD and the MGET filespec
- is wild, we do not send the filespec to the server, but treat it as
- though it had been given in a /MATCH: switch and use it locally to
- match the names in the list.
+ the pattern "*.txt". Because we are using MLSD and the MGET filespec is
+ wild, we do not send the filespec to the server, but treat it as though
+ it had been given in a /MATCH: switch and use it locally to match the
+ names in the list.
mget /mlsd foo/*.txt MLSD This one won't work because MLSD requires
that the notions of server directory and filename-matching pattern be
separated. However, the client, which can't be expected to know the
- server's file-system syntax, winds up sending a request that the
- server will (or should) reject.
+ server's file-system syntax, winds up sending a request that the server
+ will (or should) reject.
mget /mlsd /match:*.txt MLSD Gets a list of all the files from the
- server's current directory and then downloads only the ones whose
- names match the pattern "*.txt" (client interprets wildcards).
+ server's current directory and then downloads only the ones whose names
+ match the pattern "*.txt" (client interprets wildcards).
mget /mlsd /match:*.txt foo MLSD foo If "foo" is a directory on the
server, this gets a list of all the files from the server's "foo"
directory and then downloads only the ones whose names match the
pattern "*.txt" (client interprets wildcards). This leaves the server
CD'd to the "foo" directory; there's no way the client can restore the
- server's original directory because MLSD doesn't give that
- information, and since the client can not be expected to know the
- server's file-system syntax, it would not be safe to guess. If "foo"
- is a regular file, MLSD fails.
+ server's original directory because MLSD doesn't give that information,
+ and since the client can not be expected to know the server's
+ file-system syntax, it would not be safe to guess. If "foo" is a
+ regular file, MLSD fails.
mget /mlsd foo bar MLSD This one is problematic. You're supposed to be
able to give MGET a list a filespecs; in this case we name two
directories. The client must change the server's directory to "foo" to
MGET command can be used to force a wildcard to be sent to the server
for interpretation.
- When MLSD is used implicitly (that is, without an /MLSD switch given
- to force the use of MLSD) and an MGET command such as "mget foo/*.txt"
+ When MLSD is used implicitly (that is, without an /MLSD switch given to
+ force the use of MLSD) and an MGET command such as "mget foo/*.txt"
fails, Kermit automatically falls back to NLST and tries again.
- _________________________________________________________________
- 3.11.5. References
+3.11.5. References
- 1. Postel, J., and J. Reynolds, File Transfer Protocol (FTP), RFC
- 959, October 1985: [361]ftp://ftp.isi.edu/in-notes/rfc959.txt.
+ 1. Postel, J., and J. Reynolds, File Transfer Protocol (FTP), RFC 959,
+ October 1985: [372]ftp://ftp.isi.edu/in-notes/rfc959.txt.
2. Hethmon, P, and R. Elz, Feature negotiation mechanism for the File
Transfer Protocol, RFC 2389, August 1998:
- [362]ftp://ftp.isi.edu/in-notes/rfc2389.txt.
+ [373]ftp://ftp.isi.edu/in-notes/rfc2389.txt.
3. Elz, R, and P. Hethmon, Extensions to FTP, Internet Draft
draft-ietf-ftpext-mlst-16.txt, September 2002:
- [363]http://www.ietf.org/internet-drafts/draft-ietf-ftpext-mlst-16
- .txt.
- 4. [364]The Kermit FTP Client (overview).
+ [374]http://www.ietf.org/internet-drafts/draft-ietf-ftpext-mlst-16.
+ txt.
+ 4. [375]The Kermit FTP Client (overview).
- [ [365]Top ] [ [366]FTP Top ] [ [367]C-Kermit Home ] [ [368]Kermit
- Home ]
- __________________________________________________________________________
+ [ [376]Top ] [ [377]FTP Top ] [ [378]C-Kermit Home ] [ [379]Kermit Home
+ ]
4. FILE SCANNING
File scanning is done by the file sender, which determines the type of
each file before it sends it and informs the receiver (Kermit or FTP
- server) of the type. File scanning is NOT done by the receiver,
- because it is the sender's responsibility to determine each file's
- type, send the file in the right mode, and inform the receiver of the
- mode. If both transfer partners are capable of this (or any other)
- form of automatic text/binary mode switching, then files can be sent
- in both directions with no worries about corruption due to
- inappropriate transfer mode. (As noted in [369]Section 3, FTP servers
- don't do this, so this discussion does not apply when using Kermit to
- download from an FTP server.)
+ server) of the type. File scanning is NOT done by the receiver, because
+ it is the sender's responsibility to determine each file's type, send
+ the file in the right mode, and inform the receiver of the mode. If
+ both transfer partners are capable of this (or any other) form of
+ automatic text/binary mode switching, then files can be sent in both
+ directions with no worries about corruption due to inappropriate
+ transfer mode. (As noted in [380]Section 3, FTP servers don't do this,
+ so this discussion does not apply when using Kermit to download from an
+ FTP server.)
The rest of this section is mainly for the curious. If you don't read
- it and simply accept all defaults, every file you send should go in
- the appropriate mode automatically. As always, however, for
- character-set translation to work for 7- and 8-bit character-set
- files, the appropriate SET FILE CHARACTER-SET command(s) must have
- been executed to identify their encoding (Kermit's default file
- character-set is neutral ASCII except on platforms like HP-UX or
- DG/UX, where the default file character-set is known). And of course,
- receiving is another matter -- obviously the other Kermit must also
- send each file in the appropriate mode.
+ it and simply accept all defaults, every file you send should go in the
+ appropriate mode automatically. As always, however, for character-set
+ translation to work for 7- and 8-bit character-set files, the
+ appropriate SET FILE CHARACTER-SET command(s) must have been executed
+ to identify their encoding (Kermit's default file character-set is
+ neutral ASCII except on platforms like HP-UX or DG/UX, where the
+ default file character-set is known). And of course, receiving is
+ another matter -- obviously the other Kermit must also send each file
+ in the appropriate mode.
Scanning is more reliable than filename patterns simply because
filenames are not reliable indicators of the file's contents. Classic
examples include ".doc" files, which are binary if Microsoft Word
- documents but text on most other platforms, and ".com" files, which
- are binary on DOS and Windows but text on VMS. Anyway, nobody knows
- the naming conventions (if any) of all the applications (and persons!)
- on your computer. Scanning, on the other hand, determines each file's
- type by inspecting its contents rather than just looking at its name.
+ documents but text on most other platforms, and ".com" files, which are
+ binary on DOS and Windows but text on VMS. Anyway, nobody knows the
+ naming conventions (if any) of all the applications (and persons!) on
+ your computer. Scanning, on the other hand, determines each file's type
+ by inspecting its contents rather than just looking at its name.
Also, file patterns -- even when they work as intended -- categorize
each file only as text or binary, whereas file scanning can make finer
BINARY
Binary data, not to be converted in any way. Examples include
- binary machine code (executable programs), graphics images
- (GIF, JPG, etc), compressed files (Z, GZ, etc), archives and
- packages (ZIP, TAR, RPM, etc), object files and libraries (OBJ,
- DLL, etc).
+ binary machine code (executable programs), graphics images (GIF,
+ JPG, etc), compressed files (Z, GZ, etc), archives and packages
+ (ZIP, TAR, RPM, etc), object files and libraries (OBJ, DLL,
+ etc).
7-BIT TEXT
Text encoded in a 7-bit character set such as ASCII or one of
ASSOCIATIONS).
8-BIT TEXT
- Text encoded in an 8-bit character set such as Latin-1,
- Latin-2, Latin/Hebrew, Latin/Cyrillic, KOI8, HP-Roman8, JIS X
- 0208, Code Page 437, or Code Page 1252. Again, Kermit has no
- way of knowing which particular set is in use, only that it's
- 8-bit text. When sending such files, the FILE DEFAULT
- 8BIT-CHARACTER-SET is used as the file character-set, and then
- the appropriate transfer character set is chosen from the
- associations list.
+ Text encoded in an 8-bit character set such as Latin-1, Latin-2,
+ Latin/Hebrew, Latin/Cyrillic, KOI8, HP-Roman8, JIS X 0208, Code
+ Page 437, or Code Page 1252. Again, Kermit has no way of knowing
+ which particular set is in use, only that it's 8-bit text. When
+ sending such files, the FILE DEFAULT 8BIT-CHARACTER-SET is used
+ as the file character-set, and then the appropriate transfer
+ character set is chosen from the associations list.
UCS2 TEXT
Unicode in its basic form, 16 bits (2 octets) per character.
When sending such files, UCS2 is the file character-set and the
- byte order is identified automatically; the appropriate
- transfer character set is chosen from the associations list.
- Normally this would be UTF8. UTF-16 is not supported yet;
- Kermit's Unicode translations are restricted to Plane 0, the
- Base Multilingual Plane (BMP).
+ byte order is identified automatically; the appropriate transfer
+ character set is chosen from the associations list. Normally
+ this would be UTF8. UTF-16 is not supported yet; Kermit's
+ Unicode translations are restricted to Plane 0, the Base
+ Multilingual Plane (BMP).
UTF8 TEXT
Unicode in its 8-bit transformation format. When sending such
SET TRANSFER MODE { AUTOMATIC, MANUAL }
Tells whether the file-transfer mode (text or binary) should be
set by automatic or "manual" means. AUTOMATIC is the default,
- which allows any of the automatic methods that are enabled to
- do their jobs: FILE SCAN, FILE PATTERNS, peer recognition, etc.
- MANUAL lets you control the transfer mode with the SET FILE
- TYPE commands. As always, /TEXT and /BINARY switches on your
+ which allows any of the automatic methods that are enabled to do
+ their jobs: FILE SCAN, FILE PATTERNS, peer recognition, etc.
+ MANUAL lets you control the transfer mode with the SET FILE TYPE
+ commands. As always, /TEXT and /BINARY switches on your
file-transfer commands override all other methods; if you give
one of these switches, scanning is not done. SHOW TRANSFER
displays the current TRANSFER MODE setting.
SET FILE SCAN { ON [ number ], OFF }
- Turns this feature on and off. It's ON by default. When OFF,
- the previous rules apply (SET FILE PATTERNS, etc). When ON is
- given, you can also specify a number of bytes to be scanned.
- The default is 49152 (= 48K). If a negative number is given,
- the entire file is scanned, no matter how big, for maximum
- certainty (for example, a PostScript file that appears to be
- plain text might include an embedded graphic past the normal
- scanning limit). SHOW FILE displays the current FILE SCAN
- setting.
+ Turns this feature on and off. It's ON by default. When OFF, the
+ previous rules apply (SET FILE PATTERNS, etc). When ON is given,
+ you can also specify a number of bytes to be scanned. The
+ default is 49152 (= 48K). If a negative number is given, the
+ entire file is scanned, no matter how big, for maximum certainty
+ (for example, a PostScript file that appears to be plain text
+ might include an embedded graphic past the normal scanning
+ limit). SHOW FILE displays the current FILE SCAN setting.
SET FILE DEFAULT 7BIT-CHARACTER-SET name
Tells the 7-bit character-set to use if scanning identifies a
- 7-bit text file, e.g. GERMAN. SHOW FILE displays the current
- SET FILE DEFAULT settings. So does SHOW CHARACTER-SETS.
+ 7-bit text file, e.g. GERMAN. SHOW FILE displays the current SET
+ FILE DEFAULT settings. So does SHOW CHARACTER-SETS.
SET FILE DEFAULT 8BIT-CHARACTER-SET name
Tells the 8-bit character-set to use if scanning identifies an
give a SET FILE CHARACTER-SET command.
ASSOCIATE TRANSFER-CHARACTER-SET tcs fcs
- When receivinging files and a file arrives whose transfer
+ When receiving files and a file arrives whose transfer
character-set (tcs) is announced by the sender, this command
tells C-Kermit which file character-set (fcs) to translate it
to. It also allows C-Kermit to set the appropriate file
SET FILE CHARACTER-SET name
When given for a 7-bit set, also sets FILE DEFAULT
- 7BIT-CHARACTER-SET to the same set. When given for an 8-bit
- set, also sets FILE DEFAULT 8BIT-CHARACTER-SET to the same set.
- If an ASSOCIATE FILE-CHARACTER-SET command has been given for
- this set, also sets the corresponding transfer character-set.
+ 7BIT-CHARACTER-SET to the same set. When given for an 8-bit set,
+ also sets FILE DEFAULT 8BIT-CHARACTER-SET to the same set. If an
+ ASSOCIATE FILE-CHARACTER-SET command has been given for this
+ set, also sets the corresponding transfer character-set.
DIRECTORY /XFERMODE [ filespec ]
Performs a file scan of the given files, listing the result for
So you can use DIR /XFER to get a preview of how each file in a
selected group will be transferred. Everything to the right of
- the (B) or (T) is new. If FILE SCAN is OFF, you only get the
- (B) or (T) as before.
+ the (B) or (T) is new. If FILE SCAN is OFF, you only get the (B)
+ or (T) as before.
Note: Big and Little Endian refer to the ordering of bytes
within a computer word. Big Endian architecture is standard and
is used on most non-PC computers. Little Endian architecture is
used on PCs.
- To illustrate file-transfer with scanning, suppose you have a
- directory containing a mixture of text and binary files, and each text
- file can be 7-bit German ISO 646, 8-bit Latin-1, or Unicode in any of
- the following forms: UCS2 Little Endian, UCS2 Big Endian, or UTF8
- ([370]UTF-16 is not supported yet). Assuming all the built-in defaults
+ To illustrate file-transfer with scanning, suppose you have a directory
+ containing a mixture of text and binary files, and each text file can
+ be 7-bit German ISO 646, 8-bit Latin-1, or Unicode in any of the
+ following forms: UCS2 Little Endian, UCS2 Big Endian, or UTF8
+ ([381]UTF-16 is not supported yet). Assuming all the built-in defaults
are in effect, the following three commands do the job:
set file char german ; This sets the default for 7-bit text files
conventions.
By the way, what if you want to inhibit character-set translation but
- still allow automatic text/binary mode switching? Previously, you
- could simply SET TRANSFER CHARACTER-SET TRANSPARENT. But now with file
+ still allow automatic text/binary mode switching? Previously, you could
+ simply SET TRANSFER CHARACTER-SET TRANSPARENT. But now with file
scanning, the file and transfer character-sets are set automatically
per file. A new command was added for this purpose:
SET TRANSFER TRANSLATION { ON, OFF }
- Enables and disables file-transfer character-set translation.
- It is enabled by default.
+ Enables and disables file-transfer character-set translation. It
+ is enabled by default.
When TRANSFER TRANSLATION is OFF but FILE SCAN is ON, files are still
scanned to see if they are text or binary, but no character-set
File scanning is also used in the TYPE command. The source file type
and character set are determined as above, and then the file is
- automatically converted to your display character-set, line by line.
- In Kermit 95, the display character-set is Unicode, perhaps converted
- to your current console code page; in other versions of C-Kermit, it
- is your current file character-set. Thus if you have the following set
- appriately:
+ automatically converted to your display character-set, line by line. In
+ Kermit 95, the display character-set is Unicode, perhaps converted to
+ your current console code page; in other versions of C-Kermit, it is
+ your current file character-set. Thus if you have the following set
+ appropriately:
SET FILE CHARACTER-SET (necessary in Unix but not K95)
SET FILE DEFAULT 7BIT CHARACTER-SET
SET FILE DEFAULT 8BIT CHARACTER-SET
then you should be able to TYPE any text file and see something
- reasonable. For example, in Unix, if your DEFAULT 7BIT-CHARACTER-SET
- is ITALIAN and your DEFAULT 8BIT-CHARACTER-SET is LATIN1, and your
- FILE CHARACTER-SET is LATIN1, you can TYPE an Italian ISO 646 file, a
+ reasonable. For example, in Unix, if your DEFAULT 7BIT-CHARACTER-SET is
+ ITALIAN and your DEFAULT 8BIT-CHARACTER-SET is LATIN1, and your FILE
+ CHARACTER-SET is LATIN1, you can TYPE an Italian ISO 646 file, a
Latin-1 file, or any kind of Unicode file, and have it translated
automatically to Latin-1 for your display.
- In the GUI version of Kermit 95, you can see mixtures of many
- different scripts if the file is UTF8 or UCS2: Roman, Cyrillic,
- Hebrew, Greek, Armenian, Georgian, etc, all on the same screen at
- once.
+ In the GUI version of Kermit 95, you can see mixtures of many different
+ scripts if the file is UTF8 or UCS2: Roman, Cyrillic, Hebrew, Greek,
+ Armenian, Georgian, etc, all on the same screen at once.
File scanning also adds a new criterion for file selection, i.e. to
select only text (or binary) files. Several commands now include a new
switch, /TYPE:{BINARY,TEXT,ALL}. BINARY means select only binary
- regular files (not directories). TEXT means select only text files.
- ALL means don't scan; select all files. Examples:
+ regular files (not directories). TEXT means select only text files. ALL
+ means don't scan; select all files. Examples:
SEND /TYPE:BINARY *.*
Sends only binary files, skipping over text files.
with PATTERNS ON, but with some improvements:
* Pathnames are now stripped prior to pattern matching.
- * Backup suffixes (like .~3~) are stripped prior to pattern
- matching.
+ * Backup suffixes (like .~3~) are stripped prior to pattern matching.
- [ [371]Top ] [ [372]Contents ] [ [373]C-Kermit Home ] [ [374]Kermit
+ [ [382]Top ] [ [383]Contents ] [ [384]C-Kermit Home ] [ [385]Kermit
Home ]
- __________________________________________________________________________
5. FILE AND DIRECTORY NAMES CONTAINING SPACES
- Prior to the introduction of the graphical user interface (GUI), it
- was inconceivable that file or directory names could contain spaces,
+ Prior to the introduction of the graphical user interface (GUI), it was
+ inconceivable that file or directory names could contain spaces,
because space is a field delimiter in all command languages. GUIs,
- however, use dialog boxes for filenames, so there is never any
- question of distinguishing a filename from adjacent fields -- because
- there are no adjacent fields -- and therefore it has become quite
- common on computers that have GUIs to have file and directory names
- composed of multiple words. Of course this poses problems for command
- shells and other text-oriented programs.
+ however, use dialog boxes for filenames, so there is never any question
+ of distinguishing a filename from adjacent fields -- because there are
+ no adjacent fields -- and therefore it has become quite common on
+ computers that have GUIs to have file and directory names composed of
+ multiple words. Of course this poses problems for command shells and
+ other text-oriented programs.
- Most command shells address these problems by allowing such names to
- be enclosed in doublequotes, e.g.:
+ Most command shells address these problems by allowing such names to be
+ enclosed in doublequotes, e.g.:
cd "c:\Program Files"
That is, it backspaces over the original "th" and then writes the
filename in doublequotes.
- If completion is only partial, Kermit still supplies the quotes, but
- in this case also beeps. To continue the filename, you must first
- backspace over the closing quote. The closing quote is supplied in
- this case to make sure that you can see the spaces, especially if they
- are trailing. For example, if the current directory contains two files
+ If completion is only partial, Kermit still supplies the quotes, but in
+ this case also beeps. To continue the filename, you must first
+ backspace over the closing quote. The closing quote is supplied in this
+ case to make sure that you can see the spaces, especially if they are
+ trailing. For example, if the current directory contains two files
whose names start with "th", and their fill names are "this file" and
"this other file":
this file this other file
C-Kermit>type "thi_
- [ [375]Top ] [ [376]Contents ] [ [377]C-Kermit Home ] [ [378]Kermit
+ [ [386]Top ] [ [387]Contents ] [ [388]C-Kermit Home ] [ [389]Kermit
Home ]
- __________________________________________________________________________
6. OTHER COMMAND PARSING IMPROVEMENTS
- 6.1. Grouping Macro Arguments
+6.1. Grouping Macro Arguments
Doublequotes now can be used in macro invocations to group arguments
containing spaces, where previously only braces could be used:
xx "{" ; The argument is a single left brace
xx {"} ; The argument is a doublequote character
- In case this new behavior interferes with your scripts, you can
- restore the previous behavior with:
+ In case this new behavior interferes with your scripts, you can restore
+ the previous behavior with:
SET COMMAND DOUBLEQUOTING OFF
- 6.2. Directory and File Name Completion
+6.2. Directory and File Name Completion
C-Kermit 8.0 also includes better completion for directory names, e.g.
in the CD command. If the name typed so far uniquely matches a
Completion has also been improved for file and directory names that
contain not only spaces (as described above) but also "metacharacters"
such as asterisk (*) and tilde (~): now the field is repainted if
- necessary. For example, if the current directory contains only one
- file whose name contains "blah", then in:
+ necessary. For example, if the current directory contains only one file
+ whose name contains "blah", then in:
type *blah<Tab>
"*blah" is replaced by the filename. In earlier releases, the part
typed so far was left on the command line (and in the history buffer),
so even when the original command worked, the recalled version would
- not. Similarly for ~ (the nearly-universal Unix notation for
- username):
+ not. Similarly for ~ (the nearly-universal Unix notation for username):
type ~olga/x<Tab>
type /users/home/olga/x(Beep)
Speaking of command history, the new SHOW HISTORY command shows your
- command history and recall buffer. SAVE COMMAND HISTORY saves it into
- a file of your choice.
+ command history and recall buffer. SAVE COMMAND HISTORY saves it into a
+ file of your choice.
- 6.3. Passing Arguments to Command Files
+6.3. Passing Arguments to Command Files
The method for passing arguments to command files has been improved.
Prior to C-Kermit 7.0 there was no provision for doing this. In
take commandfile arg1 arg2 ...
This was accomplished by replacing the current \%1, \%2, etc, with the
- given arguments, since a new set of macro argument variables is
- created only when a macro is executed, not a command file. It is much
- more intuitive, however, if arguments to command files worked like
- those to macros: the command file sees the arguments as its own \%1,
- \%2, etc, but the caller's variables are not disturbed. C-Kermit 8.0
- accomplishes this by automatically creating an intermediate temporary
- macro to start the command file (if any arguments were given), thus
- creating a new level of arguments as expected.
+ given arguments, since a new set of macro argument variables is created
+ only when a macro is executed, not a command file. It is much more
+ intuitive, however, if arguments to command files worked like those to
+ macros: the command file sees the arguments as its own \%1, \%2, etc,
+ but the caller's variables are not disturbed. C-Kermit 8.0 accomplishes
+ this by automatically creating an intermediate temporary macro to start
+ the command file (if any arguments were given), thus creating a new
+ level of arguments as expected.
- 6.4. More-Prompting
+6.4. More-Prompting
- The familiar --more?-- prompt that appears at the end of each
- screenful of command-response output now accepts a new answer: G (Go)
- meaning "show all the rest without pausing and asking me any more
- questions". P (Proceed) is a synonym for G.
+ The familiar --more?-- prompt that appears at the end of each screenful
+ of command-response output now accepts a new answer: G (Go) meaning
+ "show all the rest without pausing and asking me any more questions". P
+ (Proceed) is a synonym for G.
- 6.5. Commas in Macro Definitions
+6.5. Commas in Macro Definitions
- As noted in the [379]C-Kermit manual, comma is used to separate
+ As noted in the [390]C-Kermit manual, comma is used to separate
commands in a macro definition. Even when the macro is defined on
multiple lines using curly-brace block-structure notation without
commas, the definition is still stored internally as a comma-separated
if fail echo "Sorry, blah failed..."
}
- 6.6. Arrow Keys
+6.6. Arrow Keys
As of version 8.0.201, C-Kermit on most platforms lets you access the
command history buffer with arrow keys, just as you always could with
control characters. The restrictions are:
1. Only Up and Down arrow keys are accepted.
- 2. Only 7-bit ANSI arrow-key sequences are understood (ESC followed
- by [ or uppercase letter O, followed by uppercase letter A or (up)
- B (down).
+ 2. Only 7-bit ANSI arrow-key sequences are understood (ESC followed by
+ [ or uppercase letter O, followed by uppercase letter A or (up) B
+ (down).
This change was made to facilitate command recall in Linux-based PDAs
that don't have a Control key, or at least not one that's easily (or
always) accessible, such as the Sharp Zaurus SL5500.
- [ [380]Top ] [ [381]Contents ] [ [382]C-Kermit Home ] [ [383]Kermit
+ [ [391]Top ] [ [392]Contents ] [ [393]C-Kermit Home ] [ [394]Kermit
Home ]
- __________________________________________________________________________
7. NEW COMMANDS AND SWITCHES
- See [384]Section 4 for more about file scanning and the /TYPE: switch.
+ See [395]Section 4 for more about file scanning and the /TYPE: switch.
ASK[Q] [ /TIMEOUT:number /QUIET /DEFAULT:text ] variable [ prompt ]
The new optional /TIMEOUT: switch for ASK and ASKQ causes the
Version 8.0.211 adds the /DEFAULT:text switch for ASK-Class
commands (ASK, ASKQ, and GETOK). This lets you supply a default
answer in case the user supplies an empty answer or the
- /TIMEOUT: switch was included and the time limit expired
- without an answer. In both these cases, the command succeeds.
+ /TIMEOUT: switch was included and the time limit expired without
+ an answer. In both these cases, the command succeeds.
CAT filename
Equivalent to TYPE /NOPAGE.
e.g. 664, 755. Switches: /DIRECTORIES, /FILES, /NOLIST, /PAGE,
/DOTFILES, /LIST, /NOPAGE, /RECURSIVE, /TYPE:{TEXT,BINARY,ALL},
/SIMULATE. The /TYPE: switch allows selection of only text or
- binary files. For example, if you have a mixture of source
- files and executables, you can use "chmod /files /type:text
- 664" to give owner/group read/write and world read permission
- to the text files, and "chmod /files /type:binary 775" to give
- the same plus execute permission to the executables. Use
- /SIMULATE to see which files would be affected, without
- actually changing their permissions.
+ binary files. For example, if you have a mixture of source files
+ and executables, you can use "chmod /files /type:text 664" to
+ give owner/group read/write and world read permission to the
+ text files, and "chmod /files /type:binary 775" to give the same
+ plus execute permission to the executables. Use /SIMULATE to see
+ which files would be affected, without actually changing their
+ permissions.
CLEAR KEYBOARD-BUFFER
Flushes any as-yet unread characters from the keyboard input
context, CONTINUE is simply a more-intuitive synonym for END.
COPY, RENAME, and TRANSLATE
- These commands now work on file groups if the target filename
- is a directory, e.g. "copy oofa.* ..", "rename * ~olga/tmp/"
+ These commands now work on file groups if the target filename is
+ a directory, e.g. "copy oofa.* ..", "rename * ~olga/tmp/"
COPY /APPEND source destination
The source file specification can now include wildcards, in
Deletes not only files but also directories.
DELETE /RECURSIVE
- Deletes all files that match the given file specification in
- the current (or given) directory and all directories beneath
- it.
+ Deletes all files that match the given file specification in the
+ current (or given) directory and all directories beneath it.
DELETE /SUMMARY
Prints only the number of files deleted and total size freed,
Shows only files of the selected type, based on file scan.
DIRECTORY /XFERMODE
- Now shows results of file scan (see [385]Section 4).
+ Now shows results of file scan (see [396]Section 4).
FOPEN [ switches ] channel filename
FREAD /UNTABIFY
(8.0.211) Converts Horizontal Tab characters to the appropriate
- number of spaces, based on VT100-like tab stops
- (1,9,17,25,...).
+ number of spaces, based on VT100-like tab stops (1,9,17,25,...).
GREP [ switches ] pattern files
- Similar to Unix grep command: displays file lines that match
- the given [386]pattern. Switches:
+ Similar to Unix grep command: displays file lines that match the
+ given [397]pattern. Switches:
/COUNT[:variable]
Don't show the matching lines, just tell how many lines
Synonyms: FIND, SEARCH.
GETOK /TIMEOUT:n /QUIET /DEFAULT:text
- The new /QUIET switch instructs GETOK, when given a timeout,
- not to print an error message if it times out. As of 8.0.211, a
+ The new /QUIET switch instructs GETOK, when given a timeout, not
+ to print an error message if it times out. As of 8.0.211, a
default answer can be supplied (see ASK).
HEAD [ switches ] filename
KCD [ symbolic-directory-name ]
Changes Kermit's working directory to the named symbolic
- directory, such as such as exedir, inidir, startup, download,
- or and home. Type "kcd ?" for a list of symbolic directory
- names known to your copy of Kermit, or give the new ORIENTATION
+ directory, such as such as exedir, inidir, startup, download, or
+ and home. Type "kcd ?" for a list of symbolic directory names
+ known to your copy of Kermit, or give the new ORIENTATION
command for a more detailed explanation. If you give a KCD
command without a directory name, Kermit returns to its "home"
directory, which is determined in some way that depends on the
- underlying operating system, but which you can redefine with
- the (new) SET CD HOME command. Your home directory is shown by
- SHOW CD and it's also the value of the \v(home) variable.
+ underlying operating system, but which you can redefine with the
+ (new) SET CD HOME command. Your home directory is shown by SHOW
+ CD and it's also the value of the \v(home) variable.
LICENSE
Displays the C-Kermit license.
L-commands
When Kermit has a connection to a Kermit or FTP server, file
- managment commands such as CD, DIRECTORY, and DELETE might be
+ management commands such as CD, DIRECTORY, and DELETE might be
intended for the local computer or the remote server. C-Kermit
8.0.200 and earlier always executes these commands on the local
computer. If you want them executed by the remote server, you
have to prefix them with REMOTE (e.g. REMOTE CD) or use special
R-command aliases (e.g. RCD = REMOTE CD, RDIR = REMOTE DIR,
etc). But this feels unnatural to FTP users, who expect
- unprefixed file management commands to be executed by the
- remote server, rather than locally. C-Kermit 8.0.201 adds
- automatic locus switching to present an FTP-like interface for
- FTP connections and the normal Kermit interface for Kermit
+ unprefixed file management commands to be executed by the remote
+ server, rather than locally. C-Kermit 8.0.201 adds automatic
+ locus switching to present an FTP-like interface for FTP
+ connections and the normal Kermit interface for Kermit
connections, and a SET LOCUS command (described below) to
- control whether or how this is done. For when LOCUS is REMOTE,
- a new set of commands was added for local management: LCD
- (Local CD), LDIR (Local DIR), etc. These are described below
- under SET LOCUS.
+ control whether or how this is done. For when LOCUS is REMOTE, a
+ new set of commands was added for local management: LCD (Local
+ CD), LDIR (Local DIR), etc. These are described below under SET
+ LOCUS.
MORE filename
Equivalent to TYPE /PAGE.
ORIENTATION
- Displays symbolic directory names and the corresponding
- variable names and values. The symbolic names, such as exedir,
- inidir, startup, download, and home, can be used as arguments
- to the new KCD command.
+ Displays symbolic directory names and the corresponding variable
+ names and values. The symbolic names, such as exedir, inidir,
+ startup, download, and home, can be used as arguments to the new
+ KCD command.
PROMPT [ text ]
For use in a macro or command file: enters interactive command
- mode within the current context ([387]Section 8.1). If the
- optional text is included, the prompt is set to it. The text
- can include variables, functions, etc, as in the SET PROMPT
- command. They are evaluated each time the prompt is printed.
- Unlike the SET PROMPT command, the text argument applies only
- to the current command level. Thus you can have different
- prompts at different levels.
-
- REMOTE SET MATCH { DOTIFILE, FIFO } { ON, OFF }
+ mode within the current context ([398]Section 8.1). If the
+ optional text is included, the prompt is set to it. The text can
+ include variables, functions, etc, as in the SET PROMPT command.
+ They are evaluated each time the prompt is printed. Unlike the
+ SET PROMPT command, the text argument applies only to the
+ current command level. Thus you can have different prompts at
+ different levels.
+
+ REMOTE SET MATCH { DOTFILE, FIFO } { ON, OFF }
Allows the client to tell the server whether wildcards sent to
the server should match dot files (files whose names begin with
period) or FIFOs (named pipes). See SET MATCH.
SET ATTRIBUTE RECORD-FORMAT { ON, OFF }
- Allows control of the Kermit's Record-Format attribute. Set
- this to OFF in case incoming file are refused due to unknown or
+ Allows control of the Kermit's Record-Format attribute. Set this
+ to OFF in case incoming file are refused due to unknown or
invalid record formats if you want to accept the file anyway
(and, perhaps, postprocess it to fix its record format).
SET CD HOME [ directory ]
- Specifies the target directory for the CD and KCD commands,
- when they are given without an argument, and also sets the
- value of the \v(home) variable.
+ Specifies the target directory for the CD and KCD commands, when
+ they are given without an argument, and also sets the value of
+ the \v(home) variable.
SET EXIT HANGUP { OFF, ON }
Normally ON, meaning that when Kermit exits, it also explicitly
C-Kermit when sending and receiving text files, and in the TYPE
and similar text-file oriented commands. The normal and default
method is LENGTH. You can specify CTRL-Z when handling CP/M or
- MS-DOS format text files, in which a Ctrl-Z (ASCII 26)
- character within the file marks the end of the file.
+ MS-DOS format text files, in which a Ctrl-Z (ASCII 26) character
+ within the file marks the end of the file.
SET FILE LISTSIZE number
Allocates space for the given number of filenames to be filled
- in by the wildcard expander. The current number is shown by
- SHOW FILE. If you give a command that includes a filename
- containing a wildcard (such as "*") that matches more files
- that Kermit's list has room for, you can adjust the list size
- with this command.
+ in by the wildcard expander. The current number is shown by SHOW
+ FILE. If you give a command that includes a filename containing
+ a wildcard (such as "*") that matches more files that Kermit's
+ list has room for, you can adjust the list size with this
+ command.
SET FILE STRINGSPACE number
- Allocates space for the given amount of filename strings for
- use by the wildcard expander. The current number is shown by
- SHOW FILE. The number is the total number of bytes of all the
- file specifications that match the given wildcard.
+ Allocates space for the given amount of filename strings for use
+ by the wildcard expander. The current number is shown by SHOW
+ FILE. The number is the total number of bytes of all the file
+ specifications that match the given wildcard.
- If you need to process a bigger list of files than your computer
- has memory for, you might be able use an external file list. The
- Kermit SEND and the FTP PUT and GET commands accept a /LISTFILE:
- switch, which gives the name of a file that contains the list of
- files to be transferred. Example for UNIX:
+ If you need to process a bigger list of files than your computer has
+ memory for, you might be able use an external file list. The Kermit
+ SEND and the FTP PUT and GET commands accept a /LISTFILE: switch,
+ which gives the name of a file that contains the list of files to be
+ transferred. Example for UNIX:
!find . -print | grep / > /tmp/names
ftp put /update /recursive /listfile:/tmp/names
management commands such as CD, DIRECTORY, MKDIR, etc. When
LOCUS is LOCAL these commands act locally and a REMOTE (or R)
prefix (e.g. REMOTE CD, RCD, RDIR) is required to send file
- management commands to a remote server. When LOCUS is REMOTE,
- an L prefix is required to issue local file management commands
- (e.g. LCD, LDIR). The word LOCAL can't be used as a prefix
- since it is already used for declaring local variables. LOCUS
- applies to all types of connections, and thus is orthogonal to
- SET GET-PUT-REMOTE, which selects between Kermit and FTP for
- remote file-transfer and management commands. The default LOCUS
- is AUTO, which means we switch to REMOTE whenever an FTP
- connection is made, and to LOCAL whenever a non-FTP connection
- is made, and switch back accordingly whenever a connnection is
- closed. So by default, Kermit behaves in its traditional manner
- unless you make an FTP connection, in which case it acts like a
- regular FTP client (but better :-) LOCUS applies to the
- following commands:
-
- Unprefixed Remote Local Description
+ management commands to a remote server. When LOCUS is REMOTE, an
+ L prefix is required to issue local file management commands
+ (e.g. LCD, LDIR). The word LOCAL can't be used as a prefix since
+ it is already used for declaring local variables. LOCUS applies
+ to all types of connections, and thus is orthogonal to SET
+ GET-PUT-REMOTE, which selects between Kermit and FTP for remote
+ file-transfer and management commands. The default LOCUS is
+ AUTO, which means we switch to REMOTE whenever an FTP connection
+ is made, and to LOCAL whenever a non-FTP connection is made, and
+ switch back accordingly whenever a connection is closed. So by
+ default, Kermit behaves in its traditional manner unless you
+ make an FTP connection, in which case it acts like a regular FTP
+ client (but better :-) LOCUS applies to the following
+ commands:
+
+ Unprefixed Remote Local Description
CD (CWD) RCD LCD Change (Working) Directory
CDUP RCDUP LCDUP CD Up
PWD RPWD LPWD Print Working Directory
- DIRECTORY RDIR LDIR Request a directory listinga
+ DIRECTORY RDIR LDIR Request a directory listing
DELETE RDEL LDEL Delete (a) file(s)
- RENEME RREN LREN Rename a file
+ RENAME RREN LREN Rename a file
MKDIR RMKDIR LMKDIR Create a directory
RMDIR RRMDIR LRMDIR Remove a directory
- SET MATCH { DOTIFILE, FIFO } { ON, OFF }
+ SET MATCH { DOTFILE, FIFO } { ON, OFF }
Whether C-Kermit filename patterns (wildcards) should match
filenames that start with dot (period), or (Unix only) FIFOs
(named pipes). The defaults are to skip dotfiles in Unix but
wildcards, e.g. in a GET command. Also see REMOTE SET MATCH.
SET OPTIONS DIRECTORY /DOTFILES
- Now works for server listings too (UNIX only). Give this
- command prior to having Kermit enter server mode, and then it
- will show files whose names begin with dot (period) when sent a
- REMOTE DIRECTORY command.
+ Now works for server listings too (UNIX only). Give this command
+ prior to having Kermit enter server mode, and then it will show
+ files whose names begin with dot (period) when sent a REMOTE
+ DIRECTORY command.
SET QUIET ON
(as well as the -q command-line option) Now applies also to:
SET RECEIVE PERMISSIONS { ON, OFF }
Tells C-Kermit whether to set the permissions of incoming files
- (received with Kermit protocol) from the permissions supplied
- in the file's Attribute packet (if any). Normally ON. Also see
- SET SEND PERMISSIONS.
+ (received with Kermit protocol) from the permissions supplied in
+ the file's Attribute packet (if any). Normally ON. Also see SET
+ SEND PERMISSIONS.
SET ROOT directory
- Like UNIX chroot, without requiring privilege. Sets the root
- for file access, does not allow reference to or creation of
- files outside the root, and can't be undone.
+ Like UNIX chroot, without requiring privilege. Sets the root for
+ file access, does not allow reference to or creation of files
+ outside the root, and can't be undone.
SET SEND PERMISSIONS { ON, OFF }
Tells C-Kermit whether to include file permissions in the
protocol. Also see SET RECEIVE PERMISSIONS.
SET TCP { HTTP-PROXY, SOCKS-SERVER } /USER:name /PASSWORD:text
- These commands now allow specification of username and
- password.
+ These commands now allow specification of username and password.
SET TERMINAL . . .
- (See [388]Section 12.)
+ (See [399]Section 12.)
SET TRANSFER MESSAGE [ text ]
Sets an initial text message to be displayed in the
file-transfer display. The transfer message is automatically
- deleted once used, so must be set each time a message a
- desired. Any variables in the message are evaluated at the time
- the SET command is given. If the optional text is omitted, any
- transfer message that is currently set is removed. Synonym: SET
- XFER MSG. SHOW TRANSFER displays it if it has been set but not
- yet used.
+ deleted once used, so must be set each time a message a desired.
+ Any variables in the message are evaluated at the time the SET
+ command is given. If the optional text is omitted, any transfer
+ message that is currently set is removed. Synonym: SET XFER MSG.
+ SHOW TRANSFER displays it if it has been set but not yet used.
SHOW COMMUNICATIONS
In C-Kermit 8.0, SHOW COMMUNICATIONS, when given in remote mode
(i.e. before any connection has been established), tells the
- typical dialout device name for the particular platform on
- which it's running (e.g. TXA0: for VMS, or /dev/cua0p0 for
- HP-UX). On Unix platforms, it also tells the name of the
- lockfile directory. This way, you have an idea of what the SET
- LINE device name should look like, and if the SET LINE command
- fails, you know the name of the directory or device that is
- protected against you.
+ typical dialout device name for the particular platform on which
+ it's running (e.g. TXA0: for VMS, or /dev/cua0p0 for HP-UX). On
+ Unix platforms, it also tells the name of the lockfile
+ directory. This way, you have an idea of what the SET LINE
+ device name should look like, and if the SET LINE command fails,
+ you know the name of the directory or device that is protected
+ against you.
SHOW VARIABLES [ name [ name [ ... ] ] ]
- In C-Kermit 8.0.201 you can request values of a list of
- built-in (\v(xxx)) variables. Each name is a pattern, as
- before, but now it a free pattern rather than an anchored one
- (explained in [389]Section 8.12) so now "show var date time"
- shows the values of all variables whose names include the
- strings "date" or "time".
+ In C-Kermit 8.0.201 you can request values of a list of built-in
+ (\v(xxx)) variables. Each name is a pattern, as before, but now
+ it a free pattern rather than an anchored one (explained in
+ [400]Section 8.12) so now "show var date time" shows the values
+ of all variables whose names include the strings "date" or
+ "time".
TAIL [ switches ] filename
Equivalent to TYPE /TAIL [ other-switches ] filename.
TRANSMIT /NOECHO [ other switches ] filename
The /NOECHO switch is equivalent to giving the command SET
TRANSMIT ECHO OFF prior to the TRANSMIT command, except the
- switch affects only the command with which it was given and
- does not affect the prevailing global setting.
+ switch affects only the command with which it was given and does
+ not affect the prevailing global setting.
TRANSMIT /NOWAIT [ other switches ] filename
The /NOWAIT switch is equivalent to giving the command SET
TRANSMIT PROMPT 0 prior to the TRANSMIT command, except the
- switch affects only the command with which it was given and
- does not affect the prevailing global setting.
+ switch affects only the command with which it was given and does
+ not affect the prevailing global setting.
TRANSMIT /NOWAIT /NOECHO /BINARY [ other switches ] filename
When the TRANSMIT command is given with the /NOWAIT, /NOECHO,
of devices that expect image (e.g. .JPG) or sound (e.g. .MP3)
files as raw input. The obvious question is: how does the
receiving device know when it has the whole file? This depends
- on the device, of course; usually after a certain amount of
- time elapses with nothing arriving, or else when Kermit hangs
- up or closes the connection.
+ on the device, of course; usually after a certain amount of time
+ elapses with nothing arriving, or else when Kermit hangs up or
+ closes the connection.
TYPE /CHARACTER-SET:name
Allows you to specify the character set in which the file to be
VOID text
Parses the text, evaluating any backslash items in it (such as
- function calls) but doesn't do anything further, except
- possibly printing error messages. Useful for invoking functions
- that have side effects without using or printing their direct
- results, e.g. "void \fsplit(\%a,&a)".
+ function calls) but doesn't do anything further, except possibly
+ printing error messages. Useful for invoking functions that have
+ side effects without using or printing their direct results,
+ e.g. "void \fsplit(\%a,&a)".
- Symbolic Links in UNIX
+Symbolic Links in UNIX
The UNIX versions of C-Kermit have had /FOLLOWLINKS and /NOFOLLOWLINKS
- switches added to several commands to control the treatment of
- symbolic links. Different commands deal differently with symbolic
- links:
+ switches added to several commands to control the treatment of symbolic
+ links. Different commands deal differently with symbolic links:
Kermit SEND, FTP MPUT
/NOFOLLOWLINKS is the default, which means symbolic links are
skipped entirely. The alternative, /FOLLOWLINKS, should be used
- with caution, since an innocent link might point to a whole
- file system, or it might cause a loop. There is no way in
- Kermit or FTP protocol to send the link itself. We either skip
- them or follow them; we can't duplicate them.
+ with caution, since an innocent link might point to a whole file
+ system, or it might cause a loop. There is no way in Kermit or
+ FTP protocol to send the link itself. We either skip them or
+ follow them; we can't duplicate them.
DIRECTORY
- /NOFOLLOWLINKS is the default, which means the DIRECTORY
- command lists symbolic links in a way that shows they are
- links, but it does not follow them. The alternative,
- /FOLLOWLINKS, follows links and gives information about the
- linked-to directories and files.
+ /NOFOLLOWLINKS is the default, which means the DIRECTORY command
+ lists symbolic links in a way that shows they are links, but it
+ does not follow them. The alternative, /FOLLOWLINKS, follows
+ links and gives information about the linked-to directories and
+ files.
DELETE, RMDIR
The DELETE command does not have link-specific switches. DELETE
The RENAME command behaves just like the UNIX mv command; it
operates on links directly rather than following.
- [ [390]Top ] [ [391]Contents ] [ [392]C-Kermit Home ] [ [393]Kermit
+ [ [401]Top ] [ [402]Contents ] [ [403]C-Kermit Home ] [ [404]Kermit
Home ]
- __________________________________________________________________________
8. OTHER SCRIPTING IMPROVEMENTS
- 8.1. Performance and Debugging
+8.1. Performance and Debugging
A command cache for frequently used commands plus some related
optimizations increases the speed of compute-bound scripts by anywhere
point (END resumes it, Ctrl-C or STOP cancels it and returns to top
level).
- The new Ctrl-C trapping feature ([394]Section 8.14) lets you intercept
+ The new Ctrl-C trapping feature ([405]Section 8.14) lets you intercept
interruption of scripts. This can be used in combination with the
PROMPT command to debug scripts. Example:
any point and get prompt that is issued at the current command level,
so you can query local variables, etc.
- [ [395]Top ] [ [396]Contents ] [ [397]C-Kermit Home ] [ [398]Kermit
+ [ [406]Top ] [ [407]Contents ] [ [408]C-Kermit Home ] [ [409]Kermit
Home ]
- _________________________________________________________________
- 8.2. Using Macros as Numeric Variables
+8.2. Using Macros as Numeric Variables
A macro is a way to assign a value to a name, and then use the name to
refer to the value. Macros are used in two ways in Kermit: as
filenames, etc.
When a macro is to be executed, its name is given as if it were a
- C-Kermit command, optionally preceded by the word "do". When a macro
- is used as a variable, it must be "escaped" with \m(xxx) (or
- equivalent function, e.g. \s(xxx), \:(xxx), \fdefinition(xxx)), where
- xxx is the macro name, for example:
+ C-Kermit command, optionally preceded by the word "do". When a macro is
+ used as a variable, it must be "escaped" with \m(xxx) (or equivalent
+ function, e.g. \s(xxx), \:(xxx), \fdefinition(xxx)), where xxx is the
+ macro name, for example:
define filename /usr/olga/oofa.txt
send \m(filename)
if ( > index size ) echo Out of range!
This is especially nice for loops that deal with arrays. Here, for
- example, is a loop that reverses the order of the elements in an
- array. Whereas formerly it was necessary to write:
+ example, is a loop that reverses the order of the elements in an array.
+ Whereas formerly it was necessary to write:
.\%n ::= \fdim(&a)
for \%i 1 \%n/2 1 {
/LARGER:number.
* SCREEN MOVE-TO row and column number.
* Various SET DIAL parameters (timeout, retry limit, etc).
- * Various SET SEND or RECEIVE parameters (packet length, window
- size, etc).
+ * Various SET SEND or RECEIVE parameters (packet length, window size,
+ etc).
* Various other SET parameters.
and:
- * S-Expressions (explained in [399]Section 9).
+ * S-Expressions (explained in [410]Section 9).
Macro names used in numeric contexts must not include mathematical
operators. Although it is legal to create a macro called "foo+bar", in
- a numeric context this would be taken as the sum of the values of
- "foo" and "bar". Any such conflict can be avoided, of course, by
- enclosing the macro name in \m(...).
+ a numeric context this would be taken as the sum of the values of "foo"
+ and "bar". Any such conflict can be avoided, of course, by enclosing
+ the macro name in \m(...).
- [ [400]Top ] [ [401]Contents ] [ [402]C-Kermit Home ] [ [403]Kermit
+ [ [411]Top ] [ [412]Contents ] [ [413]C-Kermit Home ] [ [414]Kermit
Home ]
- _________________________________________________________________
- 8.3. New IF Conditions
+8.3. New IF Conditions
Several new IF conditions are available:
IF DECLARED arrayname
- Explained in [404]Section 8.6.
+ Explained in [415]Section 8.6.
IF KBHIT
Allows a script to test whether a key was pressed without
actually trying to read it.
IF KERBANG (Unix only)
- True if Kermit was started from a Kerbang script. This is
- useful for knowing how to interpret the \&@[] and \&_[]
- argument vector arrays, and under what conditions to exit.
+ True if Kermit was started from a Kerbang script. This is useful
+ for knowing how to interpret the \&@[] and \&_[] argument vector
+ arrays, and under what conditions to exit.
IF INTEGER n
This is just a synonym for IF NUMERIC, which is true if n
- contains only digits (or, if n is a variable, its value
- contains only digits).
+ contains only digits (or, if n is a variable, its value contains
+ only digits).
By contrast, IF FLOAT n succeeds if n is a floating-point number OR an
integer (or a variable with floating-point or integer value).
Therefore, IF FLOAT should be used whenever any kind of number is
- acceptable, whereas IF INTEGER (or IF NUMERIC) when only an integer
- can be used.
+ acceptable, whereas IF INTEGER (or IF NUMERIC) when only an integer can
+ be used.
- [ [405]Top ] [ [406]Contents ] [ [407]C-Kermit Home ] [ [408]Kermit
+ [ [416]Top ] [ [417]Contents ] [ [418]C-Kermit Home ] [ [419]Kermit
Home ]
- _________________________________________________________________
- 8.4. The ON_UNKNOWN_COMMAND Macro
+8.4. The ON_UNKNOWN_COMMAND Macro
The new ON_UNKNOWN_COMMAND macro, if defined, is executed whenever you
give a command that is not known to C-Kermit; any operands are passed
The ON_CD macro, if defined, is executed whenever Kermit is given a CD
(change directory) command (8.0.211). Upon entry to this macro, the
- directory has already changed and the new directory string is
- available in the \v(directory) variable, and also as the first
- argument (\%1).
+ directory has already changed and the new directory string is available
+ in the \v(directory) variable, and also as the first argument (\%1).
- [ [409]Top ] [ [410]Contents ] [ [411]C-Kermit Home ] [ [412]Kermit
+ [ [420]Top ] [ [421]Contents ] [ [422]C-Kermit Home ] [ [423]Kermit
Home ]
- _________________________________________________________________
- 8.5. The SHOW MACRO Command
+8.5. The SHOW MACRO Command
The SHOW MACRO command has been changed to accept more than one macro
name:
shows all macros whose names start with a, b, or c, and end with x.
- [ [413]Top ] [ [414]Contents ] [ [415]C-Kermit Home ] [ [416]Kermit
+ [ [424]Top ] [ [425]Contents ] [ [426]C-Kermit Home ] [ [427]Kermit
Home ]
- _________________________________________________________________
- 8.6. Arrays
+8.6. Arrays
A clarification regarding references to array names (as opposed to
- array elements): You can use array-name "abbreviations" like &a only
- in contexts that expect array names, like ARRAY commands or array-name
- function arguments such as the second argument of \fsplit(). In a
- LOCAL statement, however, you have to write \&a[], since "local &a"
- might refer to a macro named "&a".
+ array elements): You can use array-name "abbreviations" like &a only in
+ contexts that expect array names, like ARRAY commands or array-name
+ function arguments such as the second argument of \fsplit(). In a LOCAL
+ statement, however, you have to write \&a[], since "local &a" might
+ refer to a macro named "&a".
In function arguments, however, you MUST use the abbreviated form:
\fsplit(\%a,&a) or \fsplit(\%a,&a[]). If you include the backslash (as
IF DECLARED arrayname
Allows a script to test whether an array has been declared. The
arrayname can be a non-array backslash variable such as \%1 or
- \m(name), in which case it is evaluated first, and the result
- is treated as the array name. Otherwise, arrayname is treated
- as in the ARRAY commands: it can be a, &a, &a[], \&a, \&a[],
- \&a[3], \&a[3:9], etc, with the appropriate results in each
- case. Synonym: IF DCL.
+ \m(name), in which case it is evaluated first, and the result is
+ treated as the array name. Otherwise, arrayname is treated as in
+ the ARRAY commands: it can be a, &a, &a[], \&a, \&a[], \&a[3],
+ \&a[3:9], etc, with the appropriate results in each case.
+ Synonym: IF DCL.
UNDECLARE arrayname
UNDECLARE is a new top-level command to undeclare an array.
ARRAY LINK linkname arrayname
Creates a symbolic link from the array named by linkname (which
must be the name of an array that is not yet declared in the
- current context) to the array named by arrayname (which must
- the name of a currently declared array that is not itself a
- link, or a variable containing the name of such an array). The
- two names indicate the same array: if you change an array
- element, the change is reflected in the link too, and vice
- versa. If you undeclare the link, the real array is unaffected.
- If you undeclare the real array, all links to it disappear. If
- you resize an array (directly or through a link), all links to
- it are updated automatically.
+ current context) to the array named by arrayname (which must the
+ name of a currently declared array that is not itself a link, or
+ a variable containing the name of such an array). The two names
+ indicate the same array: if you change an array element, the
+ change is reflected in the link too, and vice versa. If you
+ undeclare the link, the real array is unaffected. If you
+ undeclare the real array, all links to it disappear. If you
+ resize an array (directly or through a link), all links to it
+ are updated automatically.
Array links let you pass array names as arguments to macros. For
example, suppose you had a program that needed to uppercase all the
elements of different arrays at different times. You could write a
- macro to do this, with the array name as an argument. But without
- array links, there would be no way to refer to the argument array
- within the macro. Array links make it easy:
+ macro to do this, with the array name as an argument. But without array
+ links, there would be no way to refer to the argument array within the
+ macro. Array links make it easy:
define arrayupper {
local \&e[] \%i
exits. This works, by the way, even if the link name and the macro
argument name are the same, as long as the link is declared LOCAL.
- As noted, you can't make a link to a nonexistent array. So when
- writing a macro whose job is to create an array whose name is passed
- as an argument, you must declare the array first (the size doesn't
- matter as long as it's greater than 0). Example:
+ As noted, you can't make a link to a nonexistent array. So when writing
+ a macro whose job is to create an array whose name is passed as an
+ argument, you must declare the array first (the size doesn't matter as
+ long as it's greater than 0). Example:
define tryme { ; Demonstration macro
local \&e[] ; We only need this inside the macro
The SHOW ARRAY command now indicates whether an array name is a link.
- Also see the descriptions of [417]\fjoin() and [418]\fsplit(), plus
- [419]Section 8.10 on the MINPUT command, which shows how an entire
+ Also see the descriptions of [428]\fjoin() and [429]\fsplit(), plus
+ [430]Section 8.10 on the MINPUT command, which shows how an entire
array (or segment of it) can be used as the MINPUT target list.
- [ [420]Top ] [ [421]Contents ] [ [422]C-Kermit Home ] [ [423]Kermit
+ [ [431]Top ] [ [432]Contents ] [ [433]C-Kermit Home ] [ [434]Kermit
Home ]
- _________________________________________________________________
- 8.7. New or Improved Built-in Variables and Functions
+8.7. New or Improved Built-in Variables and Functions
The following new built-in variables are available:
- \v(buildid) A date string like "20000808" indicating when C-Kermit was
-built.
- \v(ftime) Current time, secs since midnight, including fraction of se
-cond.
+ \v(buildid) A date string like "20000808" indicating when C-Kermit was b
+uilt.
+ \v(ftime) Current time, secs since midnight, including fraction of sec
+ond.
\v(iprompt) The current SET PROMPT value
- \v(sexp) The most recent S-Expression (see [424]Section 9)
- \v(sdepth) The current S-Expression invocation depth ([425]Section 9)
- \v(svalue) The value of the most recent S-Expression ([426]Section 9)
-
- \v(ftp_code) Most recent FTP response code ([427]Section 3)
- \v(ftp_connected) FTP connection status ([428]Section 3)
- \v(ftp_cpl) FTP Command Protection Level ([429]Section 3.2)
- \v(ftp_dpl) FTP Data Protection Level ([430]Section 3.2)
- \v(ftp_getputremote) The current SET GET-PUT-REMOTE setting ([431]Section 3.8
-)
- \v(ftp_host) Name or IP address of FTP server ([432]Section 3)
- \v(ftp_loggedin) FTP login status ([433]Section 3)
- \v(ftp_message) Most recent FTP response message ([434]Section 3)
- \v(ftp_security) FTP Security method ([435]Section 3.2)
- \v(ftp_server) OS type of FTP server ([436]Section 3)
+ \v(sexp) The most recent S-Expression (see [435]Section 9)
+ \v(sdepth) The current S-Expression invocation depth ([436]Section 9)
+ \v(svalue) The value of the most recent S-Expression ([437]Section 9)
+
+ \v(ftp_code) Most recent FTP response code ([438]Section 3)
+ \v(ftp_connected) FTP connection status ([439]Section 3)
+ \v(ftp_cpl) FTP Command Protection Level ([440]Section 3.2)
+ \v(ftp_dpl) FTP Data Protection Level ([441]Section 3.2)
+ \v(ftp_getputremote) The current SET GET-PUT-REMOTE setting ([442]Section 3.8)
+
+ \v(ftp_host) Name or IP address of FTP server ([443]Section 3)
+ \v(ftp_loggedin) FTP login status ([444]Section 3)
+ \v(ftp_message) Most recent FTP response message ([445]Section 3)
+ \v(ftp_security) FTP Security method ([446]Section 3.2)
+ \v(ftp_server) OS type of FTP server ([447]Section 3)
\v(http_code) Most recent HTTP response code
\v(http_connected) HTTP connection status
The following new or improved built-in functions are available:
\fcmdstack() Allows programmatic access to the command stack.
- \fcvtdate() [437]Section 8.13, format options added
- \fdelta2secs() [438]Section 8.13
+ \fcvtdate() [448]Section 8.13, format options added
+ \fdelta2secs() [449]Section 8.13
\fdostounixpath(s1) Converts a DOS filename to Unix format.
\fsplit() Now allows grouping/nesting in source string.
\fword() Allows the same grouping and nesting.
\fjoin(&a,s1,n1,n2) Copies an array into a single string.
\fsubstitute(s1,s2,s3) Substitutes characters within a string.
\freplace() Has new 4th "occurrence" argument.
- \fsexpression() Evaluates an S-Expression (explained in [439]Section
-9).
+ \fsexpression() Evaluates an S-Expression (explained in [450]Section 9
+).
\ftrim(), \fltrim() Now trim CR and LF by default, as well as SP and Tab.
\funixtodospath(s1) Converts a Unix filename to DOS format.
- \fkeywordval(s1,c1) Assigns values to keywords (macros) (explained below)
-.
+ \fkeywordval(s1,c1) Assigns values to keywords (macros) (explained below).
Most functions that have "2" in their names to stand for the word "to"
can now also be written with "to", e.g. "\fdelta2secs(),"
\fdeltatosecs()."
\funtabify(string)
- (New to 8.0.211) Replaces Horizontal Tab characters in the
- given string with spaces based on VT100-like tab stops.
+ (New to 8.0.211) Replaces Horizontal Tab characters in the given
+ string with spaces based on VT100-like tab stops.
\fverify(s1,s2,n)
As of version 8.0.211, returns -1 if s2 is an empty string.
Previously it returned 0, making \fverify(abc,\%a) look as if
- \%a was a string combosed of a's, b's, and/or c's when in fact
+ \%a was a string composed of a's, b's, and/or c's when in fact
it contained nothing.
\fcode(string)
As of version 8.0.211, returns 0 if string is empty or missing.
- Previously it returned the empty string, which made it unsafe
- to use in arithmetic or boolean expressions.
+ Previously it returned the empty string, which made it unsafe to
+ use in arithmetic or boolean expressions.
\v(inscale)
New to version 8.0.211, its value is the INPUT SCALE-FACTOR
- ([440]Section 8.10), default 1.0.
+ ([451]Section 8.10), default 1.0.
- 8.7.1. The \fkeywordval() Function
+8.7.1. The \fkeywordval() Function
\fkeywordval(s1,c1) is new to C-Kermit 8.0. Given a string s1 of the
form "name=value", it creates a macro with the given name and assigns
it the given value. If no value appears after the equal sign, any
- existing macro of the given name is undefined. Blanks are
- automatically trimmed from around the name and value. The optional c1
- parameter is the assignment operator character, equal sign (=) by
- default. This function is handy for processing keyword parameters or
- any other form of parameter-value pair. Suppose, for example, you want
- to write a macro that accepts keyword parameters rather than
- positional ones:
+ existing macro of the given name is undefined. Blanks are automatically
+ trimmed from around the name and value. The optional c1 parameter is
+ the assignment operator character, equal sign (=) by default. This
+ function is handy for processing keyword parameters or any other form
+ of parameter-value pair. Suppose, for example, you want to write a
+ macro that accepts keyword parameters rather than positional ones:
define MYDIAL {
local \%i modem hangup method device speed number
mydial number=7654321 hangup=modem speed=115200
- 8.7.2. The \fsplit(), \fjoin(), and \fword() Functions
+8.7.2. The \fsplit(), \fjoin(), and \fword() Functions
\fjoin(&a,s1,n1,n2) is also new; it creates a string from an array (or
a piece of one). &a is the name of the array (a range specifier can be
included); s1 is a character or string to separate each element in the
result string (can be omitted, in which case the elements are not
- separated at all), and n1 is a grouping mask, explained below. If s1
- is empty or not specified, the array elements are separated with
- spaces. If you want the elements concatenated with no separator,
- include a nonzero n2 argument. Given the array:
+ separated at all), and n1 is a grouping mask, explained below. If s1 is
+ empty or not specified, the array elements are separated with spaces.
+ If you want the elements concatenated with no separator, include a
+ nonzero n2 argument. Given the array:
declare \&a[] = 0 1 2 3 4 5 6 7 8 9
\%a: a {b c [d e] f g} "h i" j <k l> m
\%b: a {b c [d e] f g} {h i} j {k l} m
- It is possible to quote separator grouping characters with backslash
- to override their grouping function. And of course to include
- backslash itself in the string, it must be quoted too. Furthermore,
- each backslash must be doubled, so the command parser will still pass
- one backslash to \fsplit() for each two that it sees. Here are some
+ It is possible to quote separator grouping characters with backslash to
+ override their grouping function. And of course to include backslash
+ itself in the string, it must be quoted too. Furthermore, each
+ backslash must be doubled, so the command parser will still pass one
+ backslash to \fsplit() for each two that it sees. Here are some
examples using \fsplit() with a grouping mask of 8 (treat parentheses
as grouping characters).
Incidentally... Sometimes you might want to invoke \fsplit() in a
situation where you don't care about its return value, e.g. when you
just want to fill the array. Now you can "call" \fsplit() or any other
- function with the new [441]VOID command:
+ function with the new [452]VOID command:
void \fsplit(\%a,&a)
them. This is useful for parsing (e.g.) comma-separated lists
exported from databases or spreadsheets.
- 8.7.3. The \fcmdstack() Function
+8.7.3. The \fcmdstack() Function
The new \fcmdstack() function gives access to the command stack:
return "(none)"
}
- The built-in variable \v(cmdsource) gives the current command source
- as a word ("prompt", "file", or "macro").
+ The built-in variable \v(cmdsource) gives the current command source as
+ a word ("prompt", "file", or "macro").
- 8.7.4. The VOID Command
+8.7.4. The VOID Command
VOID is like ECHO in that all functions and variables in its argument
text are evaluated. but it doesn't print anything (except possibly an
- error message if a function was invocation contained or resulted in
- any errors). VOID sets FAILURE if it encounters any errors, SUCCESS
+ error message if a function was invocation contained or resulted in any
+ errors). VOID sets FAILURE if it encounters any errors, SUCCESS
otherwise.
- [ [442]Top ] [ [443]Contents ] [ [444]C-Kermit Home ] [ [445]Kermit
+ [ [453]Top ] [ [454]Contents ] [ [455]C-Kermit Home ] [ [456]Kermit
Home ]
- _________________________________________________________________
- 8.8. The RETURN and END Commands
+8.8. The RETURN and END Commands
The execution of a macro is terminated in any of the following ways:
* With an END [ number [ message ] ] command. If a number is given,
- the macro succeeds if the number is 0, and fails if it is not
- zero; if a number is not given, the macro succeeds.
- * With a STOP command, which works just like END except it peels
- back the command stack all the way to top level.
+ the macro succeeds if the number is 0, and fails if it is not zero;
+ if a number is not given, the macro succeeds.
+ * With a STOP command, which works just like END except it peels back
+ the command stack all the way to top level.
* With a RETURN [ text ] command, in which case the macro always
succeeds.
* By running out of commands to execute, in which case the macro
- succeeds or fails according the most recently executed command
- that sets success or failure.
+ succeeds or fails according the most recently executed command that
+ sets success or failure.
The same considerations apply to command files invoked by the TAKE
command.
before, and C-Kermit 7.0 and earlier did not always handle the RETURN
statement as it should have.
- [ [446]Top ] [ [447]Contents ] [ [448]C-Kermit Home ] [ [449]Kermit
+ [ [457]Top ] [ [458]Contents ] [ [459]C-Kermit Home ] [ [460]Kermit
Home ]
- _________________________________________________________________
- 8.9. UNDEFINing Groups of Variables
+8.9. UNDEFINing Groups of Variables
The UNDEFINE command, which previously accepted one variable name, now
accepts a list of them, and also accepts wildcard notation to allow
Switches include:
/MATCHING
- Specifies that the names given are to treated as patterns
- rather than literal variable names. Note: pattern matching
- can't be used with array references; use the ARRAY command to
- manipulate arrays and subarrays.
+ Specifies that the names given are to treated as patterns rather
+ than literal variable names. Note: pattern matching can't be
+ used with array references; use the ARRAY command to manipulate
+ arrays and subarrays.
/LIST
List the name of each variable to be undefined, and whether it
asterisk, question mark, braces, and square brackets. Thus, when using
the /MATCHING switch, if the names of the macros you want to undefine
contain any of these characters, you must quote them with backslash to
- force them to be taken literally. Also note that \%* is not the name
- of a variable; it is a special notation used within a macro for "all
- my arguments". The command "undef /match \%*" deletes all \%x
- variables, where x is 0..9 and a..z. Use "undef /match \%[0-9]" to
- delete macro argument variables or "undef /match \%[i-n]" to delete a
- range of \%x variables.
-
- [ [450]Top ] [ [451]Contents ] [ [452]C-Kermit Home ] [ [453]Kermit
+ force them to be taken literally. Also note that \%* is not the name of
+ a variable; it is a special notation used within a macro for "all my
+ arguments". The command "undef /match \%*" deletes all \%x variables,
+ where x is 0..9 and a..z. Use "undef /match \%[0-9]" to delete macro
+ argument variables or "undef /match \%[i-n]" to delete a range of \%x
+ variables.
+
+ [ [461]Top ] [ [462]Contents ] [ [463]C-Kermit Home ] [ [464]Kermit
Home ]
- _________________________________________________________________
- 8.10. The INPUT and MINPUT Commands
+8.10. The INPUT and MINPUT Commands
As of C-Kermit 8.0.211, the INPUT and MINPUT commands accept a switch:
[M]INPUT /NOMATCH timeout
The /NOMATCH switch allows INPUT or MINPUT to read incoming
- material for the specified amount of time, without attempting
- to match it with any text or patterns. When this switch is
+ material for the specified amount of time, without attempting to
+ match it with any text or patterns. When this switch is
included, the [M]INPUT command succeeds when the timeout
interval expires, with \v(instatus) set to 1, meaning "timed
out", or fails upon interruption or i/o error.
such as congested networks or different-speed modems without
having to change each INPUT-class command. This affects only
those timeouts that are given in seconds, not as wall-clock
- times. Although the scale factor can have a fractional part,
- the INPUT timeout is still an integer. The new built-in
- variable \v(inscale) tells the current INPUT SCALE-FACTOR.
+ times. Although the scale factor can have a fractional part, the
+ INPUT timeout is still an integer. The new built-in variable
+ \v(inscale) tells the current INPUT SCALE-FACTOR.
The MINPUT command can be used to search the incoming data stream for
several targets simultaneously. For example:
waits up to 8 seconds for one of the words "one", "two", or "three" to
arrive. Words can be grouped to indicate targets that contain spaces:
- MINPUT 8 nineteeen twenty "twenty one"
+ MINPUT 8 nineteen twenty "twenty one"
And of course you can also use variables in place of (or as part of)
the target names:
MINPUT 8 \%a \&x[3] \m(foo)
- Until now you had to know the number of targets in advance when
- writing the MINPUT statement. Each of the examples above has exactly
- three targets.
+ Until now you had to know the number of targets in advance when writing
+ the MINPUT statement. Each of the examples above has exactly three
+ targets.
- But suppose your script needs to look for a variable number of
- targets. For this you can use arrays and \fjoin(), described in
- [454]Section 8.7. Any number of \fjoin() invocations can be included
- in the MINPUT target list, and each one is expanded into the
- appropriate number of separate targets each time the MINPUT command is
- executed. Example:
+ But suppose your script needs to look for a variable number of targets.
+ For this you can use arrays and \fjoin(), described in [465]Section
+ 8.7. Any number of \fjoin() invocations can be included in the MINPUT
+ target list, and each one is expanded into the appropriate number of
+ separate targets each time the MINPUT command is executed. Example:
declare \&a[10] = one two three
minput 10 foo \fjoin(&a) bar
- This declares an array of ten elements, and assigns values to the
- first three of them. The MINPUT command looks for these three (as well
- as the words "foo" and "bar"). Later, if you assign additional
- elements to the array, the same MINPUT command also looks for the new
- elements.
+ This declares an array of ten elements, and assigns values to the first
+ three of them. The MINPUT command looks for these three (as well as the
+ words "foo" and "bar"). Later, if you assign additional elements to the
+ array, the same MINPUT command also looks for the new elements.
If an array element contains spaces, each word becomes a separate
- target. To create one target per array element, use \fjoin()'s
- grouping feature:
+ target. To create one target per array element, use \fjoin()'s grouping
+ feature:
dcl \&a[] = {aaa bbb} {ccc ddd} {xxx yyy zzz}
minput 10 \fjoin(&a) <-- 7 targets
minput 10 \fjoin(&a,,2) <-- 3 targets
- [ [455]Top ] [ [456]Contents ] [ [457]C-Kermit Home ] [ [458]Kermit
+ [ [466]Top ] [ [467]Contents ] [ [468]C-Kermit Home ] [ [469]Kermit
Home ]
- _________________________________________________________________
- 8.11. Learned Scripts
+8.11. Learned Scripts
C-Kermit now includes a simple script recorder that monitors your
commands, plus your actions during CONNECT mode, and automatically
generates a script program that mimics what it observed. You should
think of this feature as a script-writing ASSISTANT since, as you will
- see [459]later in this section, the result generally needs some
- editing to make it both secure and flexible. The script recorder is
- controlled by the new LEARN command:
+ see [470]later in this section, the result generally needs some editing
+ to make it both secure and flexible. The script recorder is controlled
+ by the new LEARN command:
LEARN [ /ON /OFF /CLOSE ] [ filename ]
If you give a filename, the file is opened for subsequent
+ The last prompt before any line you type becomes an INPUT
command.
+ Timeouts are calculated automatically for each INPUT command.
- + A PAUSE command is inserted before each OUTPUT command just
- to be safe.
+ + A PAUSE command is inserted before each OUTPUT command just to
+ be safe.
Thus the script recorder is inherently line-oriented. It can't be used
to script character-oriented interactions like typing Space to a
"More?" prompt or editing a text file with VI or EMACS.
- But it has advantages too; for example it takes control characters
- into account that might not be visible to you otherwise, and it
+ But it has advantages too; for example it takes control characters into
+ account that might not be visible to you otherwise, and it
automatically converts control characters in both the input and output
streams to the appropriate notation. It can tell, for example that the
"$ " prompt on the left margin in UNIX is really {\{13}\{10}$ },
A learned script should execute correctly when you give a TAKE command
for it. However, it is usually appropriate to edit the script a bit.
- The most important change would be to remove any passwords from it.
- For example, if the script contains:
+ The most important change would be to remove any passwords from it. For
+ example, if the script contains:
INPUT 9 {\{13}\{10}Password: }
IF FAIL STOP 1 INPUT timeout
* If the target of an INPUT command can vary, you can replace the
INPUT command with MINPUT and the appropriate target list, and/or
- the target with a \fpattern(). For example, suppose you are
- dialing a number that can be answered by any one of 100 terminal
- servers, whose prompts are ts-00>, ts-01>, ts-02>, ... ts-99>. The
- script records a particular one of these, but you want it to work
- for all of them, so change (e.g.):
+ the target with a \fpattern(). For example, suppose you are dialing
+ a number that can be answered by any one of 100 terminal servers,
+ whose prompts are ts-00>, ts-01>, ts-02>, ... ts-99>. The script
+ records a particular one of these, but you want it to work for all
+ of them, so change (e.g.):
INPUT 10 ts-23> ; or whatever
+
to:
INPUT 10 \fpattern(ts-[0-9][0-9]>)
+
* The INPUT timeout values are conservative, but they are based only
on a single observation; you might need to tune them.
* The PAUSE commands might not be necessary, or the PAUSE interval
incorporated in your script; you can edit them out if you want to.
Here is a sample script generated by Kermit ("learn vms.ksc") in which
- a Telnet connection is made to a VMS computer, the user logs in,
- starts Kermit on VMS, sends it a file, and then logs out:
+ a Telnet connection is made to a VMS computer, the user logs in, starts
+ Kermit on VMS, sends it a file, and then logs out:
; Scriptfile: vms.ksc
; Directory: /usr/olga
close
exit
- The commands generated by Kermit during CONNECT (INPUT, IF FAIL,
- PAUSE, and OUTPUT) have uppercase keywords; the commands typed by the
- user are in whatever form the user typed them (in this case,
- lowercase).
+ The commands generated by Kermit during CONNECT (INPUT, IF FAIL, PAUSE,
+ and OUTPUT) have uppercase keywords; the commands typed by the user are
+ in whatever form the user typed them (in this case, lowercase).
- [ [460]Top ] [ [461]Contents ] [ [462]C-Kermit Home ] [ [463]Kermit
+ [ [471]Top ] [ [472]Contents ] [ [473]C-Kermit Home ] [ [474]Kermit
Home ]
- _________________________________________________________________
- 8.12. Pattern Matching
+8.12. Pattern Matching
A pattern is a character string that is used to match other strings.
- Patterns can contain metacharacters that represent special actions
- like "match any single character", "match zero or more characters",
- "match any single character from a list", and so on. The best known
+ Patterns can contain metacharacters that represent special actions like
+ "match any single character", "match zero or more characters", "match
+ any single character from a list", and so on. The best known
application of patterns is in file specifications that contain
wildcards, as in "send *.txt", meaning "send all files whose names end
with .txt".
Patterns are also used in increasingly many other ways, to the extent
- it is useful to point out certain important distinctions in the ways
- in which they are used:
+ it is useful to point out certain important distinctions in the ways in
+ which they are used:
Anchored Patterns
If an anchored pattern does not begin with "*", it must match
- the beginning of the string, and if it does not end with "*",
- it must match the end of the string. For example, the anchored
+ the beginning of the string, and if it does not end with "*", it
+ must match the end of the string. For example, the anchored
pattern "abc" matches only the string "abc", not "abcde" or
"xyzabc" or "abcabc". The anchored pattern "abc*" matches any
string that starts with "abc"; the anchored pattern "*abc"
Floating Patterns
A floating pattern matches any string that contains a substring
- that matches the pattern. In other words, a floating pattern
- has an implied "*" at the beginning and end. You can anchor a
+ that matches the pattern. In other words, a floating pattern has
+ an implied "*" at the beginning and end. You can anchor a
floating pattern to the beginning by starting it with "^", and
- you can anchor it to the end by ending it with "$" (see
- examples below).
+ you can anchor it to the end by ending it with "$" (see examples
+ below).
Wildcards
A wildcard is an anchored pattern that has the additional
whose name ends in .exe, no matter how deeply it might be buried in
subdirectories). When Kermit parses a file specification directly,
however, it uses the strict wildcard definition. For example, "send
- a*b" sends all files whose names start with "a" and end with "b" in
- the current directory, and not any files whose names end with "b" that
+ a*b" sends all files whose names start with "a" and end with "b" in the
+ current directory, and not any files whose names end with "b" that
happen to be in subdirectories whose names start with "a". And as
noted, wildcards are anchored, so "delete foo" deletes the file named
"foo", and not all files whose names happen to contain "foo".
abc* ^abc
*abc* abc
- [ [464]Top ] [ [465]Contents ] [ [466]C-Kermit Home ] [ [467]Kermit
+ [ [475]Top ] [ [476]Contents ] [ [477]C-Kermit Home ] [ [478]Kermit
Home ]
- _________________________________________________________________
- 8.13. Dates and Times
+8.13. Dates and Times
C-Kermit's comprehension of date-time formats is considerably expanded
in version 8.0. Any command that reads dates, including the DATE
command itself, or any switch, such as the /BEFORE: and /AFTER:
- switches, or any function such as \fcvtdate(), now can understand
- dates and times expressed in any ISO 8601 format, in Unix "asctime"
- format, in FTP MDTM format, and in practically any format used in RFC
- 822 or RFC 2822 electronic mail, with or without timezones, and in a
- great many other formats as well. HELP DATE briefly summarizes the
- acceptable date-time formats.
+ switches, or any function such as \fcvtdate(), now can understand dates
+ and times expressed in any ISO 8601 format, in Unix "asctime" format,
+ in FTP MDTM format, and in practically any format used in RFC 822 or
+ RFC 2822 electronic mail, with or without timezones, and in a great
+ many other formats as well. HELP DATE briefly summarizes the acceptable
+ date-time formats.
Furthermore, C-Kermit 8.0 includes a new and easy-to-use form of
date-time arithmetic, in which any date or time can be combined with a
first. If no date is given, the current date is assumed. If no time is
given, an appropriate time is supplied depending on whether a date was
supplied. If no delta is given, no arithmetic is done. If a delta is
- given without a date or time, the current date and time are used as
- the base.
+ given without a date or time, the current date and time are used as the
+ base.
- Date-time-delta fields are likely to contain spaces (although they
- need not; space-free forms are always available). Therefore, in most
+ Date-time-delta fields are likely to contain spaces (although they need
+ not; space-free forms are always available). Therefore, in most
contexts -- and notably as switch arguments -- date-time information
must be enclosed in braces or doublequotes, for example:
(0-23), mm the minute (0-59), ss the second (0-59), each with leading
zero if less than the field width. The date and time can be separated
by a space, an underscore, a colon, or the letter T. The time is in
- 24-hour format. Thus the various quantites are at the following fixed
+ 24-hour format. Thus the various quantities are at the following fixed
positions:
-Position Contents
+Position Contents
1-4 Year (4 digits, 0000-9999)
5-6 Month (2 digits, 1-12)
7-8 Day (2 digits, 1-31)
characters long. Example: Fri Aug 10 16:38:01 2001
Asctime with Timezone
- This is like Asctime format, but includes a 3-character
- timezone between the time and year. It is exactly 28 characters
- long. Example: Fri Aug 10 16:38:01 GMT 2001
+ This is like Asctime format, but includes a 3-character timezone
+ between the time and year. It is exactly 28 characters long.
+ Example: Fri Aug 10 16:38:01 GMT 2001
E-Mail Format
- E-mail date-time formats are defined in [468]RFC 2822 with a
+ E-mail date-time formats are defined in [479]RFC 2822 with a
fair amount of flexibility and options. The following examples
are typical of e-mails and HTTP (web-page) headers:
FTP MDTM Format
This is the date-time format supplied by FTP servers that
- support the (not yet standard but widely used nevertheless)
- MDTM command, by which the FTP client asks for a file's
- modification time:
+ support the (not yet standard but widely used nevertheless) MDTM
+ command, by which the FTP client asks for a file's modification
+ time:
yyyymmddhhmmss[.ffff]
20020208102835.515 (8 February 2002 10:28:36 AM)
- 8.13.1. The Date
+8.13.1. The Date
The date, if given, must precede the time and/or delta, and can be in
many, many formats. For starters, you can use several symbolic date
"20020802 00:00:00" but "TODAY 10:28" is "20020802 10:28:00".
TOMORROW
- Like TODAY, but one day later (if today is 8 February 2002,
- then "TOMORROW" is "20020803 00:00:00" but "TOMORROW 16:30" is
+ Like TODAY, but one day later (if today is 8 February 2002, then
+ "TOMORROW" is "20020803 00:00:00" but "TOMORROW 16:30" is
"20020803 16:30:00").
YESTERDAY
Like TODAY, but one day earlier.
MONDAY, TUESDAY, WEDNESDAY, ..., SUNDAY
- The date on the given day of the week, today or later. A
- default time of 00:00:00 is supplied but can be overridden.
- Example: "SATURDAY 12:00" means next Saturday (or today, if
- today is Saturday) at noon.
+ The date on the given day of the week, today or later. A default
+ time of 00:00:00 is supplied but can be overridden. Example:
+ "SATURDAY 12:00" means next Saturday (or today, if today is
+ Saturday) at noon.
You can give an explicit date in almost any conceivable format, but
there are some rules:
year; the order can vary (except that the month can not be last).
* If names are used for days, months, etc, they must be English.
* The year must lie between 0000 and 9999, inclusive.
- * All calendar calculations use Gregorian dating, so calculated
- dates for years prior to 1582 (or later, depending on the country)
- will not agree with historical dates. Other forms of dating (e.g.
+ * All calendar calculations use Gregorian dating, so calculated dates
+ for years prior to 1582 (or later, depending on the country) will
+ not agree with historical dates. Other forms of dating (e.g.
Hebrew, Chinese) are not supported.
Various date-field separators are accepted: hyphen, slash, space,
underscore, period. The same field separator (if any) must be used in
- both places; for example 18-Sep-2001 but not 18-Sep/2001. Months can
- be numeric (1-12) or English names or abbreviations. Month name
+ both places; for example 18-Sep-2001 but not 18-Sep/2001. Months can be
+ numeric (1-12) or English names or abbreviations. Month name
abbreviations are normally three letters, e.g. Apr, May, Jun, Jul.
Capitalization doesn't matter.
Sep-18-2001 (Month-day-year)
20010918 (Numeric, no separators)
- You can also include the day of the week with a specific date, in
- which case it is accepted (if it is a valid day name), but not
- verified to agree with the given date:
+ You can also include the day of the week with a specific date, in which
+ case it is accepted (if it is a valid day name), but not verified to
+ agree with the given date:
Tue, 18 Sep 2001 (Abbreviated, with comma)
Tue,18 Sep 2001 (Comma but no space)
other two numbers is the month or day based on its value. If both are
12 or less and are unequal, the date is ambiguous and is rejected. In
all-numeric dates with the year first, the second field is always the
- month and the third is the day. The month never comes last. A date
- with no separators is accepted only if it is all numeric and has
- exactly eight digits, and is assumed to be in yyyymmdd format.
+ month and the third is the day. The month never comes last. A date with
+ no separators is accepted only if it is all numeric and has exactly
+ eight digits, and is assumed to be in yyyymmdd format.
20010918 (18-Sep-2001 00:00:00)
20010918123456 (18-Sep-2001 12:34:56)
You can always avoid ambiguity by putting the year first, or by using
- an English, rather than numeric, month. A date such as 09/08/2001
- would be ambiguous but 2001/09/08 is not, nor is 09-Aug-2001.
+ an English, rather than numeric, month. A date such as 09/08/2001 would
+ be ambiguous but 2001/09/08 is not, nor is 09-Aug-2001.
Until the late 1990s, it was common to encounter 2-digit years, and
these are found to this day in old e-mails and other documents. Kermit
accepts these dates if they have English months, and interprets them
- according to the windowing rules of [469]RFC 2822: "If a two digit
- year is encountered whose value is between 00 and 49, the year is
+ according to the windowing rules of [480]RFC 2822: "If a two digit year
+ is encountered whose value is between 00 and 49, the year is
interpreted by adding 2000, ending up with a value between 2000 and
2049. If a two digit year is encountered with a value between 50 and
99, or any three digit year is encountered, the year is interpreted by
7-Oct-77 (19771007 00:00:00)
7-Oct-0077 (00771007 00:00:00)
- 8.13.2. The Time
+8.13.2. The Time
The basic time format is hh:mm:dd; that is hours, minutes, seconds,
separated by colons, perhaps with an optional fractional second
- separated by a decimal point (period). The hours are in 24-hour
- format; 12 is noon, 13 is 1pm, and so on. Fields omitted from the
- right default to zero. Fields can be omitted from the left or middle
- by including the field's terminating colon. Examples:
+ separated by a decimal point (period). The hours are in 24-hour format;
+ 12 is noon, 13 is 1pm, and so on. Fields omitted from the right default
+ to zero. Fields can be omitted from the left or middle by including the
+ field's terminating colon. Examples:
11:59:59 (11:59:59 AM)
11:59 (11:59:00 AM)
23150 (02:31:50 AM)
231500 (23:15:00 PM)
- 8.13.3. Time Zones
+8.13.3. Time Zones
If a time is given, it can (but need not) be followed by a time zone
designator. If no time zone is included, the time is treated as local
time and no timezone conversions are performed.
The preferred time zone designator is the UTC Offset, as specified in
- [470]RFC 2822: a plus sign or minus sign immediately followed by
+ [481]RFC 2822: a plus sign or minus sign immediately followed by
exactly four decimal digits, signifying the difference in hh (hours)
and mm (minutes) from Universal Coordinated Time (UTC, also known as
Greenwich Mean Time, or GMT), with negative numbers to the West and
Fri, 13 Jul 2001 12:54:29-0700
The following symbolic time zones are also accepted, as specified by
- [471]RFC 2822 and/or in ISO 8601:
+ [482]RFC 2822 and/or in ISO 8601:
GMT = +0000 Greenwich Mean Time
Z = +0000 Zulu (Zero Meridian) Time
international standard symbol and does not correspond to the order of
the English words, Universal Coordinated Time, but it happens to have
the same initial letters as these words. Of course hundreds of other
- symbolic timezones and variations exist, but they are not
- standardized, and are therefore not supported by Kermit.
+ symbolic timezones and variations exist, but they are not standardized,
+ and are therefore not supported by Kermit.
When a time zone is included with a time, the time is converted to
local time. In case the conversion crosses a midnight boundary, the
11:30 -0800 = 08:30:00
11:30 +0200 = 04:30:00
- Unlike most of Kermit's other date-time conversions, timezone
- knowledge (specifically, the offset of local time from UTC) is
- embodied in the underlying operating system, not in Kermit itself, and
- any conversion errors in this department are the fault of the OS. For
- example, most UNIX platforms do not perform conversions for years
- prior to 1970.
+ Unlike most of Kermit's other date-time conversions, timezone knowledge
+ (specifically, the offset of local time from UTC) is embodied in the
+ underlying operating system, not in Kermit itself, and any conversion
+ errors in this department are the fault of the OS. For example, most
+ UNIX platforms do not perform conversions for years prior to 1970.
- 8.13.4. Delta Time
+8.13.4. Delta Time
- Date/time expressions can be composed of a date and/or time and a
- delta time, or a delta time by itself. When a delta time is given by
- itself, it is relative to the current local date and time. Delta times
- have the following general format:
+ Date/time expressions can be composed of a date and/or time and a delta
+ time, or a delta time by itself. When a delta time is given by itself,
+ it is relative to the current local date and time. Delta times have the
+ following general format:
{+,-}[number units][hh[:mm[:ss]]]
specifies a time in hh:mm:ss notation. In arithmetic terms, these
represents some number of days or other big time units, and then a
fraction of a day expressed as hours, minutes, and seconds; these are
- to be added to or subtracted from the given (or implied) date and
- time. The syntax is somewhat flexible, as shown by the following
- examples:
+ to be added to or subtracted from the given (or implied) date and time.
+ The syntax is somewhat flexible, as shown by the following examples:
+1 day (Plus one day)
+1day (Ditto)
-12 days 7:14:22 (Minus 12 days, 7 hours, 14 minutes, and 22 seconds)
The words "week", "month", and "year" can be used like "day" in the
- examples above. A week is exactly equivalent to 7 days. When months
- are specified, the numeric month number of the date is incremented or
+ examples above. A week is exactly equivalent to 7 days. When months are
+ specified, the numeric month number of the date is incremented or
decremented by the given number, and the year and day adjusted
accordingly if necessary (for example, 31-Jan-2001 +1month =
03-Mar-2001 because February does not have 31 days). When years are
+number-hh:mm:ss
-number-hh:mm:ss
- (no spaces). The hyphen after the number indicates days. It
- corresponds exactly to the Kermit notation:
+ (no spaces). The hyphen after the number indicates days. It corresponds
+ exactly to the Kermit notation:
+numberdhh:mm:ss
-numberdhh:mm:ss
11-Aug-2001 12:34:56 -0800 (20010811 16:34:56 -- UTC Offset)
11-Aug-2001 12:34:56 -08:00 (20010811 04:34:56 -- Delta time)
- If you give a time followed by a modifer that starts with a + or -
+ If you give a time followed by a modifier that starts with a + or -
sign, how does Kermit know whether it's a UTC offset or a delta time?
It is treated as a UTC offset if the sign is followed by exactly four
- decimal digits; otherwise it is a delta time. Examples (for USA
- Eastern Daylight Time):
+ decimal digits; otherwise it is a delta time. Examples (for USA Eastern
+ Daylight Time):
11-Aug-2001 12:34:56 -0800 (20010811 16:34:56 -- UTC Offset)
11-Aug-2001 12:34:56 -08:00 (20010811 04:34:56 -- Delta time)
ahead of Universal Time, the time is 12:34:56, and this corresponds to
16:34:56 in Eastern Daylight time. The second example says to subtract
8 hours from the local time. The third and fourth are delta times
- because, even though a colon is not included, the time does not
- consist of exactly 4 digits.
+ because, even though a colon is not included, the time does not consist
+ of exactly 4 digits.
When a delta time is written after a timezone, however, there is no
ambiguity and no syntax distinction is required:
11-Aug-2001 12:34:56 -0800 -08:00 (Ditto)
11-Aug-2001 12:34:56 -08:00 -08:00 (Illegal)
- 8.13.5. The DATE Command
+8.13.5. The DATE Command
- Obviously a great many combinations of date, time, time zone, and
- delta time are possible, as well as many formatting options. The
- purpose of all this flexibility is to comply with as many standards as
- possible -- Internet RFCs, ISO standards, and proven corporate
- standards -- as well as with notations commonly used by real people,
- in order that dates and times from the widest variety of sources can
- be assigned to a variable and used in any date-time field in any
- Kermit command.
+ Obviously a great many combinations of date, time, time zone, and delta
+ time are possible, as well as many formatting options. The purpose of
+ all this flexibility is to comply with as many standards as possible --
+ Internet RFCs, ISO standards, and proven corporate standards -- as well
+ as with notations commonly used by real people, in order that dates and
+ times from the widest variety of sources can be assigned to a variable
+ and used in any date-time field in any Kermit command.
You can test any date-and/or-time format with the DATE command, which
converts it to standard yyyymmdd hh:mm:ss format if it is understood,
- or else gives an explicit error message (rather than just "BAD DATE"
- as in previous C-Kermit releases) to indicate what is wrong with it.
+ or else gives an explicit error message (rather than just "BAD DATE" as
+ in previous C-Kermit releases) to indicate what is wrong with it.
Examples (on Tuesday, 31 July 2001 in New York City, Eastern Daylight
Time, UTC -0400):
- DATE command argument Result
+ DATE command argument Result
12:30 20010731 12:30:00
12:30:01 20010731 12:30:01
12:30:01.5 20010731 12:30:02
20010807113542.014 20010807 11:35.42
20010807113542.014Z 20010807 07:35:42
- 8.13.6. New Date-Time Functions
+8.13.6. New Date-Time Functions
In the following descriptions, date-time function arguments are the
same free-format date-time strings discussed above, with the same
\fdelta2secs(dt)
Converts a delta time to seconds. For example, "+1d00:00:01" to
- 86401. Valid delta times must start with a + or - sign. Days
- are accepted as time units, but not years, months, or weeks. If
- the result would overflow a computer long word (as would happen
- with 32-bit long words when the number of days is greater than
+ 86401. Valid delta times must start with a + or - sign. Days are
+ accepted as time units, but not years, months, or weeks. If the
+ result would overflow a computer long word (as would happen with
+ 32-bit long words when the number of days is greater than
24854), the function fails.
- HINT: Although Kermit has a number of built-in date and time
- variables, it doesn't have a single one suitable for writing a
- timestamp. For this you would normally use something like "\v(ndate)
- \v(time)". But \fcvtdate() (with no arguments) is equivalent: it
- returns the current date and time in yyyymmdd hh:mm:ss format,
- suitable for time stamping.
+ HINT: Although Kermit has a number of built-in date and time variables,
+ it doesn't have a single one suitable for writing a timestamp. For this
+ you would normally use something like "\v(ndate) \v(time)". But
+ \fcvtdate() (with no arguments) is equivalent: it returns the current
+ date and time in yyyymmdd hh:mm:ss format, suitable for time stamping.
- 8.13.7. Date-Time Programming Examples
+8.13.7. Date-Time Programming Examples
Here's a macro that converts any date-time to UTC, which you might use
if C-Kermit didn't already have a \futcdate() function:
is 4 hours ahead of UTC, then 6:00pm New York time is 2:00pm UTC. Line
3 gets the difference of the two results (e.g. "+04:00"). Line 4
appends the difference (delta time) to the local time, and converts it
- again, which adds (or subtracts) the UTC offset to the given time.
- Line 5 displays the result.
+ again, which adds (or subtracts) the UTC offset to the given time. Line
+ 5 displays the result.
Here's a script that opens a web page, gets its headers into an array,
- scans the array for the "Last-Modified:" header, and inteprets it:
+ scans the array for the "Last-Modified:" header, and interprets it:
http open www.columbia.edu
if fail stop 1 HTTP OPEN failed
http /array:a head index.html /dev/null
doesn't provide any mechanism for the client to ask the server for a
list of files, recursive or otherwise.
- [ [472]Top ] [ [473]Contents ] [ [474]C-Kermit Home ] [ [475]Kermit
+ [ [483]Top ] [ [484]Contents ] [ [485]C-Kermit Home ] [ [486]Kermit
Home ]
- _________________________________________________________________
- 8.14. Trapping Keyboard Interruption
+8.14. Trapping Keyboard Interruption
- Normally when you type Ctrl-C and Kermit is in command mode (as
- opposed to CONNECT mode) with COMMAND INTERRUPTION ON (as it is unless
- you have set it OFF), Kermit interrupts any command that is currently
- in progress, and if a command file or macro is executing, rolls the
+ Normally when you type Ctrl-C and Kermit is in command mode (as opposed
+ to CONNECT mode) with COMMAND INTERRUPTION ON (as it is unless you have
+ set it OFF), Kermit interrupts any command that is currently in
+ progress, and if a command file or macro is executing, rolls the
command stack back to top level, closing all open command files,
deactivating all macros, deallocating all local variables and arrays,
and leaving you at the command prompt.
interrupted; for example, closing open files, writing log entries, or
displaying summary results. You can do this by defining a macro named
ON_CTRLC. When Ctrl-C is detected, and a macro with this name is
- defined, Kermit executes it from the current command level, thus
- giving it full access to the environment in which the interruption
- occurred, including local variables and open files. Only when the
- ON_CTRLC macro completes execution is the command stack rolled back to
- top level.
+ defined, Kermit executes it from the current command level, thus giving
+ it full access to the environment in which the interruption occurred,
+ including local variables and open files. Only when the ON_CTRLC macro
+ completes execution is the command stack rolled back to top level.
Once the ON_CTRLC macro is defined, it can be executed only once. This
is to prevent recursion if the user types Ctrl-C while the ON_CTRLC
macro is executing. If you type Ctrl-C while the Ctrl-C macro is
active, this does not start a new copy of ON_CTRLC; rather, it returns
to the top-level command prompt. After the ON_CTRLC macro returns, it
- has been removed from the macro table so if you want to use it again
- or install a different Ctrl-C trap, you must execute a new DEFINE
- ON_CTRLC command. In any case, as always when you interrupt a script
- with Ctrl-C, its completion status is FAILURE.
+ has been removed from the macro table so if you want to use it again or
+ install a different Ctrl-C trap, you must execute a new DEFINE ON_CTRLC
+ command. In any case, as always when you interrupt a script with
+ Ctrl-C, its completion status is FAILURE.
Normally the ON_CTRLC macro would be defined in the command file or
macro to which it applies, and should be declared LOCAL. This way, if
removed afterwards.
For an example of how to use ON_CTRLC to debug scripts, see
- [476]Section 8.1.
+ [487]Section 8.1.
- [ [477]Top ] [ [478]Contents ] [ [479]C-Kermit Home ] [ [480]Kermit
+ [ [488]Top ] [ [489]Contents ] [ [490]C-Kermit Home ] [ [491]Kermit
Home ]
- __________________________________________________________________________
9. S-EXPRESSIONS
echo \ffpdivide(\ffpmultiply(3.0,\ffpadd(2.0,7.0)),2.0)
13.5
- C-Kermit 8.0 introduces a third form of arithmetic that treats
- integers and floating-point numbers uniformly, is easier to read and
- write, and executes very quickly:
+ C-Kermit 8.0 introduces a third form of arithmetic that treats integers
+ and floating-point numbers uniformly, is easier to read and write, and
+ executes very quickly:
(/ (* 3 (+ 2 7)) 2)
13.5
But first some background.
- The Kermit command and scripting language differs from true
- programming languages (such as C or Fortran) in many ways; one of the
- most prominent differences is the way in which variables are
- distinguished from constants. In a command language, words are taken
- literally; for example, the Unix shell:
+ The Kermit command and scripting language differs from true programming
+ languages (such as C or Fortran) in many ways; one of the most
+ prominent differences is the way in which variables are distinguished
+ from constants. In a command language, words are taken literally; for
+ example, the Unix shell:
cat foo.bar
- displays the file named foo.bar. Whereas in a programming language
- like C, words are assumed to be variables:
+ displays the file named foo.bar. Whereas in a programming language like
+ C, words are assumed to be variables:
s = foo.bar; /* Assigns the value of foo.bar to the variable s */
To make a programming language take words literally, you have to quote
or "escape" them:
- s = "foo.bar"; /* Assigns a pointer to the string "foo.bar" to the variable
-s */
+ s = "foo.bar"; /* Assigns a pointer to the string "foo.bar" to the variable s
+ */
The opposite holds for command languages: to get them to treat a word
as a variable rather than a constant, you have to escape them. For
echo foo ; This prints "foo".
echo \m(foo) ; This prints "123".
- In other words, character strings (such as "foo" above) are
- interpreted as literal strings, rather than variable names, except in
- special commands like DEFINE that deal specifically with variable
- names (or in numeric contexts as explained in [481]Section 8.2). The
- special "escape" character (dollar sign ($) for the shell, backslash
- (\) for Kermit) indicates that a variable is to be replaced by its
- value.
+ In other words, character strings (such as "foo" above) are interpreted
+ as literal strings, rather than variable names, except in special
+ commands like DEFINE that deal specifically with variable names (or in
+ numeric contexts as explained in [492]Section 8.2). The special
+ "escape" character (dollar sign ($) for the shell, backslash (\) for
+ Kermit) indicates that a variable is to be replaced by its value.
The requirement to escape variable names in command languages normally
does not impose any special hardship, but can add a considerable
And now the Kermit function reads almost like the original formula.
Here Kermit behaves more like a regular programming language. In an
- S-Expression, macro names need not be escaped when they are used as
- the names of numeric variables.
+ S-Expression, macro names need not be escaped when they are used as the
+ names of numeric variables.
- [ [482]Top ] [ [483]Contents ] [ [484]C-Kermit Home ] [ [485]Kermit
+ [ [493]Top ] [ [494]Contents ] [ [495]C-Kermit Home ] [ [496]Kermit
Home ]
- _________________________________________________________________
- 9.1. What is an S-Expression?
+9.1. What is an S-Expression?
The S-Expression concept is borrowed from the Lisp programming
language. "S-Expression" is short for Symbolic Expression (itself
C-Kermit does not pretend to be a full Lisp interpreter; only the
arithmetic parts of Lisp have been incorporated: S-Expressions that
operate on numbers and return numeric values (plus extensibility
- features described in [486]Section 9.8, which allow some degree of
+ features described in [497]Section 9.8, which allow some degree of
string processing).
An S-Expression is a list of zero or more items, separated by spaces,
(* 2 a b)
If the S-Expression is empty, it has the NIL (empty) value. If it is
- not empty and the first item is an operator (such as + or *), there
- can be zero or more subsequent items, called the operands:
+ not empty and the first item is an operator (such as + or *), there can
+ be zero or more subsequent items, called the operands:
(+ 1 2)
(+ 1 2 3 4 5 6 7 8 9)
If the first item in the S-Expression is not an operator, then it must
- be a variable or a number (or a macro; see [487]Section 9.8), and the
+ be a variable or a number (or a macro; see [498]Section 9.8), and the
S-Expression can only contain one item; in this case, the
S-Expression's value is the value of the variable or number:
(- (* (+ 2 (* 3 4)) (- 9 (* 2 2))) 6)
- Operators have no precedence, implied or otherwise, since they can't
- be mixed. The only exceptions are unary + and -, which simply indicate
- the sign of a number:
+ Operators have no precedence, implied or otherwise, since they can't be
+ mixed. The only exceptions are unary + and -, which simply indicate the
+ sign of a number:
(* 3 -1)
(+ a b c)
Within an S-Expression, as in other strictly numeric contexts
- ([488]Section 8.2), any operand that starts with a letter is treated
- as a Kermit macro name. In this context, abbreviations are not
- accepted; variable names must be spelled out in full. Alphabetic case
- is not significant; "a" and "A" are the same variable, but both are
- different from "area".
+ ([499]Section 8.2), any operand that starts with a letter is treated as
+ a Kermit macro name. In this context, abbreviations are not accepted;
+ variable names must be spelled out in full. Alphabetic case is not
+ significant; "a" and "A" are the same variable, but both are different
+ from "area".
Of course, regular Kermit variables and functions can be used in
S-Expressions in the normal ways:
(* \v(math_pi) (^ \%r 2)) ; Area of a circle with radius \%r
(+ \fjoin(&a)) ; Sum of all elements of array \&a[]
- [ [489]Top ] [ [490]Contents ] [ [491]C-Kermit Home ] [ [492]Kermit
+ [ [500]Top ] [ [501]Contents ] [ [502]C-Kermit Home ] [ [503]Kermit
Home ]
- _________________________________________________________________
- 9.2. Integer and Floating-Point-Arithmetic
+9.2. Integer and Floating-Point-Arithmetic
- Normally, if all numbers in an S-Expression are integers, the result
- is an integer:
+ Normally, if all numbers in an S-Expression are integers, the result is
+ an integer:
(+ 1 1) ; Result is 2
(/ 9 3) ; Result is 3
should be 333333333333333333333, but 333333333333333300000.0 is
produced instead if the machine is accurate to only about 16 decimal
- digits, even with coercion to floating-point. The order of magnitude
- is correct but the least significant digits are wrong. The imprecise
+ digits, even with coercion to floating-point. The order of magnitude is
+ correct but the least significant digits are wrong. The imprecise
nature of the result is indicated by the ".0" at the end. Contrast
with:
which produces an exact integer result.
- [ [493]Top ] [ [494]Contents ] [ [495]C-Kermit Home ] [ [496]Kermit
+ [ [504]Top ] [ [505]Contents ] [ [506]C-Kermit Home ] [ [507]Kermit
Home ]
- _________________________________________________________________
- 9.3. How to Use S-Expressions
+9.3. How to Use S-Expressions
S-Expressions may be given as commands to C-Kermit. Any command whose
first character is "(" (left parenthesis) is interpreted as an
\fsexpression(s)
The argument "s" is an S-Expression; the outer parentheses may
- be omitted. The value of the S-Expression is returned. Note
- that since S-Expressions usually contain spaces, some form of
+ be omitted. The value of the S-Expression is returned. Note that
+ since S-Expressions usually contain spaces, some form of
grouping or quoting might be needed in some contexts:
echo \fsexpression((+ 1 1)) ; Outer parentheses may be included
The IF statement illustrates how to use S-Expressions as (or in) IF or
WHILE conditions:
- * Although S-Expressions and IF conditions are similar in
- appearance, they are not interchangeable. Therefore you must use
- \fsexpr() to let Kermit know it's an S-Expression rather than a
- regular IF condition, or a boolean or algebraic expression within
- an IF condition.
- * In contexts where a single "word" is expected, you must enclose
- the \fsexp() invocation in braces if the S-Expression contains
- spaces (and most of them do).
+ * Although S-Expressions and IF conditions are similar in appearance,
+ they are not interchangeable. Therefore you must use \fsexpr() to
+ let Kermit know it's an S-Expression rather than a regular IF
+ condition, or a boolean or algebraic expression within an IF
+ condition.
+ * In contexts where a single "word" is expected, you must enclose the
+ \fsexp() invocation in braces if the S-Expression contains spaces
+ (and most of them do).
If an S-Expression is the last command executed in a macro, its value
becomes the return value of the macro; no RETURN command is needed.
)
The S-Expression concept lends itself easily to embedding and
- recursion, but the depth to which recursion can occur is limited by
- the resources of the computer (memory size, address space, swap space
- on disk) and other factors. There is no way that C-Kermit can know
- what this limit is, since it varies not only from computer to
- computer, but also from moment to moment. If resources are exhausted
- by recursion, C-Kermit simply crashes; there's no way to trap this
- error. However, you can set a depth limit on S-Expressions:
+ recursion, but the depth to which recursion can occur is limited by the
+ resources of the computer (memory size, address space, swap space on
+ disk) and other factors. There is no way that C-Kermit can know what
+ this limit is, since it varies not only from computer to computer, but
+ also from moment to moment. If resources are exhausted by recursion,
+ C-Kermit simply crashes; there's no way to trap this error. However,
+ you can set a depth limit on S-Expressions:
SET SEXPRESSION DEPTH-LIMIT number
Limits the number of times the S-Expression reader can invoke
other S-Expressions as well as to S-Expressions that invoke
recursive macros. If the limit is exceeded, Kermit prints
"?S-Expression depth limit exceeded" and returns to its prompt.
- More about recursion in [497]Section 9.8.
+ More about recursion in [508]Section 9.8.
You can also test the depth programmatically:
The SHOW SEXPRESSION command displays current SET SEXPRESSION settings
and related information.
- [ [498]Top ] [ [499]Contents ] [ [500]C-Kermit Home ] [ [501]Kermit
+ [ [509]Top ] [ [510]Contents ] [ [511]C-Kermit Home ] [ [512]Kermit
Home ]
- _________________________________________________________________
- 9.4. Summary of Built-in Constants and Operators
+9.4. Summary of Built-in Constants and Operators
Three constants are built in:
The most basic operation in S-Expressions is evaluation:
- EVAL [ s-expression or variable or number [ another [ another ... ] ]
- ]
+ EVAL [ s-expression or variable or number [ another [ another ... ] ] ]
Evaluates its operands and returns the value of the last one
evaluated. Examples:
A shorthand notation is also accepted for quoting:
'a is equivalent to (quote a). And therefore:
'(a b c) is equivalent to (quote (a b c)).
- More about quoting in [502]Section 9.8.
+ More about quoting in [513]Section 9.8.
STRING item
Is a combination of EVAL and QUOTE. It evaluates the item as an
- S-Expression, and then puts quotes around the result (more
- about this in [503]Section 9.8).
+ S-Expression, and then puts quotes around the result (more about
+ this in [514]Section 9.8).
The following operators assign values to variables:
SETQ [ variable [ value [ variable [ value [ ... ] ] ] ] ]
- Applies to global variables. For each variable given: if a
- value is not given, the variable is undefined. If a value is
- given, assigns the value to the variable. The value may be a
- number, a variable, or anything that resolves to a number
- including an S-Expression. Returns the value of the last
- assignment. Examples:
+ Applies to global variables. For each variable given: if a value
+ is not given, the variable is undefined. If a value is given,
+ assigns the value to the variable. The value may be a number, a
+ variable, or anything that resolves to a number including an
+ S-Expression. Returns the value of the last assignment.
+ Examples:
(setq) Does nothing, returns NIL.
(setq a) Undefines a, returns NIL.
(setq a 1 b 2) Assigns 1 to a, 2 to b, returns 2.
(setq a 1 b 2 c) Assigns 1 to a, 2 to b, undefines c, returns NIL.
- To undefine a variable that is not the final one in the list, give it
- a value of "()" or NIL:
+ To undefine a variable that is not the final one in the list, give it a
+ value of "()" or NIL:
(setq a () b 2) Undefines a, assigns 2 to b, returns 2.
(setq a nil b 2) Ditto.
In other words:
- * Double the backslash when you want to indicate the variable's
- NAME;
+ * Double the backslash when you want to indicate the variable's NAME;
* Don't double the backslash when you want its VALUE.
- See [504]Section 9.6 for a fuller explanation of variable syntax and
+ See [515]Section 9.6 for a fuller explanation of variable syntax and
scope.
- Here's a summary table of arithmetic operators; in the examples, a is
- 2 and b is -1.3:
+ Here's a summary table of arithmetic operators; in the examples, a is 2
+ and b is -1.3:
Operator Description Example Result
+ Adds all operands (0 or more) (+ a b) 0.7
(++ a 1 b 1 c 1 d) Equivalent to four SETQs incrementing a,b,c,d by 1.
Another group of operators forms the predicates. These return a "truth
- value", in which 0 (or NIL) is false, and 1 or any other nonzero
- number is true.
+ value", in which 0 (or NIL) is false, and 1 or any other nonzero number
+ is true.
Operator Description Example Result
= (or ==) Operands are equal (= 1 1.0) 1
"fpnumber" means a floating-point number (or anything that resolves to
one), and "integer" means integer (or anything that resolves to one).
"truthvalue" means anything that resolves to a value of zero or an
- empty value (which indicates false) or a nonzero value (which
- indicates true). "any" means any kind of value, including none at all.
+ empty value (which indicates false) or a nonzero value (which indicates
+ true). "any" means any kind of value, including none at all.
Operator Number of operands Type of operands Returns
EVAL (.) 0 or more S-Expression Last value (default NIL)
Operators that don't require any arguments return the default values
shown.
- 1. The value of "*", when used as an operator, is initially "1" and
- the value of the most recent S-Expression thereafter, as in Franz
- Lisp. This is handy when doing a series of calculations by hand:
+ 1. The value of "*", when used as an operand, is initially "1" and the
+ value of the most recent S-Expression thereafter, as in Franz Lisp.
+ This is handy when doing a series of calculations by hand:
C-Kermit>(* 13272.42 0.40)
5308.968
C-Kermit>(/ * 2)
2654.4840
C-Kermit>
+
2. The bitwise operators coerce their operands to integer by
truncation.
- [ [505]Top ] [ [506]Contents ] [ [507]C-Kermit Home ] [ [508]Kermit
+ [ [516]Top ] [ [517]Contents ] [ [518]C-Kermit Home ] [ [519]Kermit
Home ]
- _________________________________________________________________
- 9.5. Variables
+9.5. Variables
As noted elsewhere in this discussion, all backslash items (variables
such as \%a, macro parameters such as \%1, array elements such as
- \&a[\%i], built-in variables such as \v(ndate), built-in functions
- such as \fjoin(), macro names enclosed in \m(), \s(), or \:(), etc)
- are evaluated at "top level" before the S-Expression is sent to the
+ \&a[\%i], built-in variables such as \v(ndate), built-in functions such
+ as \fjoin(), macro names enclosed in \m(), \s(), or \:(), etc) are
+ evaluated at "top level" before the S-Expression is sent to the
S-Expression reader. To use a backslash variable as the target of an
assignment (e.g. by SETQ, LET, ++, or --), you must double the
backslash, e.g. (setq \\%r 1234). This is discussed at greater length
number (integer or floating-point, positive or negative), then this
becomes the value of the expression. If the definition starts with '
(apostrophe), then the quoted word or string is the value of the
- expression (explained in [509]Section 9.8). Otherwise, the macro is
+ expression (explained in [520]Section 9.8). Otherwise, the macro is
assumed to be composed of Kermit commands (possibly including
- S-Expressions), which are executed. If the macro has a RETURN value,
- or it executes an S-Expression as its last command, the result becomes
- the value of the S-Expression; otherwise the result is empty.
+ S-Expressions), which are executed. If the macro has a RETURN value, or
+ it executes an S-Expression as its last command, the result becomes the
+ value of the S-Expression; otherwise the result is empty.
For S-Expressions that contain more than one element, and the first
element is the name of a macro, then this macro is executed with the
doesn't RETURN anything.
The use of macros as S-Expression operators is described in
- [510]Section 9.8.
+ [521]Section 9.8.
- [ [511]Top ] [ [512]Contents ] [ [513]C-Kermit Home ] [ [514]Kermit
+ [ [522]Top ] [ [523]Contents ] [ [524]C-Kermit Home ] [ [525]Kermit
Home ]
- _________________________________________________________________
- 9.6. Assignments and Scope
+9.6. Assignments and Scope
The assignment operators SETQ and LET apply to global and local
variables, respectively. SETQ and LET are standard Lisp operators
define a this is a string
In the first case, both statements create a macro named "a" with a
- value of 3. But in neither case is the macro "a" necessarily global.
- If either of these commands executes in an environment (i.e. macro
+ value of 3. But in neither case is the macro "a" necessarily global. If
+ either of these commands executes in an environment (i.e. macro
invocation level) where a "local a" command has been given, the "a"
macro is global to that environment, but is not visible outside it.
evaluate a 1 + 2
Again, "local" in this context applies to the Kermit macro invocation
- stack, not to the S-Expression nesting level. To illustrate, recall
- our "newarea" macro:
+ stack, not to the S-Expression nesting level. To illustrate, recall our
+ "newarea" macro:
def newarea {
(let a \%1 b \%2 c \%3)
(sqrt (* (let s (/ (+ a b c) 2.0)) (- s a) (- s b) (- s c)))
}
- This would not work if LET were local to the S-Expression, but it
- works nicely in the context of Kermit macros. The previous definition
- is equivalent to:
+ This would not work if LET were local to the S-Expression, but it works
+ nicely in the context of Kermit macros. The previous definition is
+ equivalent to:
def newarea {
local a b c s
show macro foo
foo = 9
- If \%a has no value, a numeric value, or a multiword value, an
- "invalid assignment" error occurs.
+ If \%a has no value, a numeric value, or a multiword value, an "invalid
+ assignment" error occurs.
- [ [515]Top ] [ [516]Contents ] [ [517]C-Kermit Home ] [ [518]Kermit
+ [ [526]Top ] [ [527]Contents ] [ [528]C-Kermit Home ] [ [529]Kermit
Home ]
- _________________________________________________________________
- 9.7. Conditional Expressions
+9.7. Conditional Expressions
The IF operator provides a compact form of decision-making within
S-Expressions. An IF expression can stand wherever a number might
- stand, as long is it returns a number. Here's a quick way to obtain
- the average value of all the elements in an array that contains only
+ stand, as long is it returns a number. Here's a quick way to obtain the
+ average value of all the elements in an array that contains only
numbers:
(/ (+ \fjoin(&a)) (float \fdim(&a)))
of AND is false, none of the subsequent operands is evaluated;
likewise, if an OR operand is true, no further operands are evaluated.
- Bear in mind that the S-Expression IF is not the same as Kermit IF;
- the condition is only allowed to be an S-Expression or a variable or
+ Bear in mind that the S-Expression IF is not the same as Kermit IF; the
+ condition is only allowed to be an S-Expression or a variable or
number, not the whole list of possibilities you see when you type "if
?" at the C-Kermit> prompt. But keep reading...
- [ [519]Top ] [ [520]Contents ] [ [521]C-Kermit Home ] [ [522]Kermit
+ [ [530]Top ] [ [531]Contents ] [ [532]C-Kermit Home ] [ [533]Kermit
Home ]
- _________________________________________________________________
- 9.8. Extensibility
+9.8. Extensibility
To extend the capabilities of S-Expressions, you can use Kermit macro
names as operators, with the following limitations:
And with the following enhancement:
- * If the last statement executed by the macro is an S-Expression,
- its value is returned automatically. In other words:
+ * If the last statement executed by the macro is an S-Expression, its
+ value is returned automatically. In other words:
define bump (++ \%1)
the nth element, n >= 0, of the Fibonacci series, 0 1 1 2 3 5 8 13 21
34 55, . . ., in which the first element is 0, the second is 1, and
each subsequent element is the sum of the two before it. This series
- was devised by Leonardo Pisano, Filius Bonacci (Fibonacci for short)
- in 1202 to describe how fast rabbits can breed, and also forms the
- basis for the Golden Mean, the branching behavior of plants, the
- spiral of a nautilus shell, etc. (Thanks to [523]Dat Thuc Nguyen for
- December 2003 corrections to this section!)
+ was devised by Leonardo Pisano, Filius Bonacci (Fibonacci for short) in
+ 1202 to describe how fast rabbits can breed, and also forms the basis
+ for the Golden Mean, the branching behavior of plants, the spiral of a
+ nautilus shell, etc. (Thanks to [534]Dat Thuc Nguyen for December 2003
+ corrections to this section!)
- We can write a FIBONACCI function as a macro easily with
- S-Expressions:
+ We can write a FIBONACCI function as a macro easily with S-Expressions:
define FIBONACCI {
(if (== \%1 0) 0
}
}
- Now we can use the FIBONACCI function (whichever way you write it)
- just as if it were a built-in operator:
+ Now we can use the FIBONACCI function (whichever way you write it) just
+ as if it were a built-in operator:
(fibonacci 6)
The value of the S-Expression (in this case "8"), and not the
S-Expression itself, is sent to the macro.
- Your macro is responsible for argument validation and error handling.
- A robust Fibonacci macro would be more like this:
+ Your macro is responsible for argument validation and error handling. A
+ robust Fibonacci macro would be more like this:
define FIBONACCI {
if < \v(argc) 2 end 1 ?\%0: Missing argument
the S-Expression fail too. Also note that our Fibonacci macro is just
an illustration, not a practical example. Since it is recursive (calls
itself), it won't work for large arguments because the call stack can
- exceed available memory. See [524]Section 9.9.2 for a practical
+ exceed available memory. See [535]Section 9.9.2 for a practical
alternative.
Kermit macros, when used as S-Expression operators, can do anything at
(if (<= -1000 b +1000) (yes b) (no b))
To send string parameters to a macro, some kind of quoting is required
- to tell the S-Expression parser to take a given "word" literally
- rather than replacing it by its value. For this we use the Lisp QUOTE
+ to tell the S-Expression parser to take a given "word" literally rather
+ than replacing it by its value. For this we use the Lisp QUOTE
operator:
define length return \flength(\%1)
This causes the string "abcdefghijklmnopqrstuvwxyz" to be sent
literally to the LENGTH macro. Kermit, like Lisp, also offers a
shortcut for QUOTE, that lets us quote a word by prefixing it with a
- single quote (') character, also called apostophe (ASCII 39):
+ single quote (') character, also called apostrophe (ASCII 39):
(length 'abcdefghijklmnopqrstuvwxyz)
26
Note the construct \m(\%1). This means "the value of the macro whose
name is the value of
- \%1". The value of \%1 in this case is the word "string", and the
- value of the macro whose name is "string" is "This is a string".
+ \%1". The value of \%1 in this case is the word "string", and the value
+ of the macro whose name is "string" is "This is a string".
What if the macro takes multiple arguments, or a variable number of
them? Here's a simple macro that prints a phrase that includes its
difference in cases where the macro refers to its arguments
individually.
- To illustrate, let's consider a macro that receives the name of a
- macro and its argument list and executes it with its arguments,
- without knowing how many arguments there are. The following LOOP macro
- is used to execute the given macro with the given argument list the
- requested number of times:
+ To illustrate, let's consider a macro that receives the name of a macro
+ and its argument list and executes it with its arguments, without
+ knowing how many arguments there are. The following LOOP macro is used
+ to execute the given macro with the given argument list the requested
+ number of times:
def loop { local i, for i 1 \%1 1 do \%2 \%3 }
Within the LOOP macro, the first argument (\%1) is the loop count, \%2
- is the macro name, and \%3 is the argument list. When the LOOP macro
- is invoked traditionally like this:
+ is the macro name, and \%3 is the argument list. When the LOOP macro is
+ invoked traditionally like this:
loop 3 complain hot
(loop 3 'complain 'hot)
- Now what if you need to send different or variable numbers of
- arguments to the LOOP macro? The LOOP macro can handle it already,
- provided you group the arguments into LOOP's third argument (\%3). In
- Kermit syntax, without grouping:
+ Now what if you need to send different or variable numbers of arguments
+ to the LOOP macro? The LOOP macro can handle it already, provided you
+ group the arguments into LOOP's third argument (\%3). In Kermit syntax,
+ without grouping:
loop 3 complain cold and wet
(foo)
this is a string
- Note the different results for "show macro foo" and "(foo)". The
- former shows the internal definition; the latter evaluates the
- variable, which removes the quoting. And perhaps more important, note
- that if the apostrophe and surrounding parentheses were not stored as
- part of the definition, (foo) would try to execute "this is a string"
- as a command.
+ Note the different results for "show macro foo" and "(foo)". The former
+ shows the internal definition; the latter evaluates the variable, which
+ removes the quoting. And perhaps more important, note that if the
+ apostrophe and surrounding parentheses were not stored as part of the
+ definition, (foo) would try to execute "this is a string" as a command.
Given the assignment above, the following work as expected:
Finally a brief word on the touchy topic of quoting. Suppose you want
to include (say) literal parentheses in a string that will later be
processed by the S-Expression reader (or \fsplit() or \fword()).
- Normally, you can't do this because parentheses are meaningful in
- these contexts. To defeat the normal parsing rules, you can quote the
+ Normally, you can't do this because parentheses are meaningful in these
+ contexts. To defeat the normal parsing rules, you can quote the
parentheses with backslash. However, due to the many levels of string
processing involved, a surprisingly large amount of backslashes might
be required, for example:
string, rather than SETQ. The example above requires only double
backslashes when DEFINE is used:
define s '(a b (c d) \\(e f (g h) x\\) j k)
+
* The level of quoting depends on how many levels of evaluation the
- string must pass through, which is not always obvious. However,
- the number of backslashes required in any given situation is
- always a power of 2. So if 1 doesn't work, try 2; if 2 doesn't
- work, try 4; if 4 doesn't work, try 8, 16, 32, and so on.
+ string must pass through, which is not always obvious. However, the
+ number of backslashes required in any given situation is always a
+ power of 2. So if 1 doesn't work, try 2; if 2 doesn't work, try 4;
+ if 4 doesn't work, try 8, 16, 32, and so on.
Considerations like this apply in any scripting language (shell, Tcl,
Perl, Python, etc). The situation is known as "Quoting Hell".
more efficient. Therefore one level of quoting is lost right away,
and therefore you must double each backslash that is to be used as
a quote.
- * When the SEXP reader sees '\', it treats it as a quote; discards
- it and keeps the next character. Thus '\\' becomes '\'. This would
- be the end of it, except that:
- * The SEXP reader must call itself recursively on its operands, so
- we must double any quotes in the operands: 2^2 = 4.
+ * When the SEXP reader sees '\', it treats it as a quote; discards it
+ and keeps the next character. Thus '\\' becomes '\'. This would be
+ the end of it, except that:
+ * The SEXP reader must call itself recursively on its operands, so we
+ must double any quotes in the operands: 2^2 = 4.
* If the result is to be passed as an argument to a macro, the
backslashes must again be doubled, because the macro processor
evaluates the arguments before sending them to the macro: 2^3 = 8.
Moral: To create string constants in which grouping characters must be
quoted, use DEFINE rather than SETQ.
- [ [525]Top ] [ [526]Contents ] [ [527]C-Kermit Home ] [ [528]Kermit
+ [ [536]Top ] [ [537]Contents ] [ [538]C-Kermit Home ] [ [539]Kermit
Home ]
- _________________________________________________________________
- 9.9. Examples
+9.9. Examples
- 9.9.1. Statistics
+9.9.1. Statistics
- The following program computes statistics -- means, maxima, mimima,
+ The following program computes statistics -- means, maxima, minima,
variance, standard deviation, and correlation -- from data stored in
parallel arrays, \&x[] and \&y[], which can contain any mixture of
integer and floating-point numbers: positive, negative, or zero. Array
- setup and validation are not shown. Except for the traditional FOR
- loop and printing the results at the end, the entire computation is
- done with S-Expressions:
+ setup and validation are not shown. Except for the traditional FOR loop
+ and printing the results at the end, the entire computation is done
+ with S-Expressions:
; Initialize sums, maxima, minima, and number of elements
Any Kermit function that returns numbers or lists of numbers can be
included in an S-Expression as an operand.
- _________________________________________________________________
- 9.9.2. Practical Fibonacci Series
+9.9.2. Practical Fibonacci Series
- The recursive Fibonacci example given previously is simple and
- elegant, but not very useful since it causes memory occupation to grow
- each time it calls itself, until eventually both physical memory and
- disk swap space are filled and the program crashes. Even for small
- arguments, like 17, execution time can be prohibitive:
+ The recursive Fibonacci example given previously is simple and elegant,
+ but not very useful since it causes memory occupation to grow each time
+ it calls itself, until eventually both physical memory and disk swap
+ space are filled and the program crashes. Even for small arguments,
+ like 17, execution time can be prohibitive:
(setq t1 \v(ftime))
(setq result (fibonacci 17))
FIBONACCI(17) = 1597: TIME = 5.861
- Any recursive function can be recoded iteratively. The result is not
- as pretty, but execution is far less expensive:
+ Any recursive function can be recoded iteratively. The result is not as
+ pretty, but execution is far less expensive:
define FIBITER {
(if (== \%3 0) (\%2) (fibiter (+ \%1 \%2) \%1 (- \%3 1)))
FIBONACCI(17) = 1597: TIME = 0.015
(47 times faster.) Execution time increases proportionally to the size
- of the argument in the iterative case, whereas in the recursive case
- it goes up geometrically, quickly reaching infinity.
+ of the argument in the iterative case, whereas in the recursive case it
+ goes up geometrically, quickly reaching infinity.
- [ [529]Top ] [ [530]Contents ] [ [531]C-Kermit Home ] [ [532]Kermit
+ [ [540]Top ] [ [541]Contents ] [ [542]C-Kermit Home ] [ [543]Kermit
Home ]
- _________________________________________________________________
- 9.10. Differences from Algebraic Notation
+9.10. Differences from Algebraic Notation
In C-Kermit:
S-Expressions use prefix operators with no intrinsic precedence;
each operation is enclosed in parentheses, and the arrangement of
parentheses determines precedence.
- * Algebraic infix operators require two operands; S-Expression
- prefix operators can accept a variable number of operands.
+ * Algebraic infix operators require two operands; S-Expression prefix
+ operators can accept a variable number of operands.
* You can use algebraic notation anywhere that C-Kermit accepts a
number, e.g. "echo \&a[((1+1)*2-1]", but you can use S-Expressions
only as top-level commands. You can, however, use either algebraic
or \fsexpression(), respectively.
* You can use any mixture of integer and floating-point numbers in
S-Expressions, but only integers are permitted in algebraic
- expressions. Outside of S-Expressions, floating point arithmetic
- is supported only by \ffp...() function calls.
+ expressions. Outside of S-Expressions, floating point arithmetic is
+ supported only by \ffp...() function calls.
* Operators and operands in S-Expressions must be separated by
spaces, e.g. "(+ a b)". Spaces are not required in algebraic
expressions: "((a+b)*c)".
* When assigning values to backslash variables (such as \%x or
\&a[2]) using SETQ or LET, you must double the backslash.
- [ [533]Top ] [ [534]Contents ] [ [535]C-Kermit Home ] [ [536]Kermit
+ [ [544]Top ] [ [545]Contents ] [ [546]C-Kermit Home ] [ [547]Kermit
Home ]
- _________________________________________________________________
- 9.11. Differences from Lisp
+9.11. Differences from Lisp
* Kermit has a lot of built-in operators not found in Lisp: ++, ^,
etc.
* Most dialects of real Lisp do not allow S-Expressions that don't
start with an operator, for example:
(a)
+
This expression can cause an error in Lisp (even if "a" has a
value), but is acceptable in Kermit, where it returns the value of
the variable "a". Similarly, (1) returns the value "1".
[13] USER(37): (/ (+ 1 2 3 4) 3)
10/3
[13] USER(38):
- * The result of (/ 10 3) is 3.333.... Some Lisp dialects truncate
- the result to 3 since both operands are integers, some don't; some
- give the result as a ratio. C-Kermit always gives a floating point
+
+ * The result of (/ 10 3) is 3.333.... Some Lisp dialects truncate the
+ result to 3 since both operands are integers, some don't; some give
+ the result as a ratio. C-Kermit always gives a floating point
result when there is a fractional part. If you want an integer
result, you can use TRUNCATE, FLOOR, or CEILING, e.g. (truncate (/
10 3)).
* There is currently no "bignum" support. Large numbers can be used
- and large results generated, but (as noted in [537]Section 9.2)
+ and large results generated, but (as noted in [548]Section 9.2)
they are accurate only to the precision of the underlying machine.
\v(math_precision) gives the machine precision as a number of
decimal digits, e.g. 16.
- * Scientific notation for floating-point numbers is not supported.
- If the magnitude of a number is greater than the precision of the
+ * Scientific notation for floating-point numbers is not supported. If
+ the magnitude of a number is greater than the precision of the
underlying hardware, the less-significant digits are shown but
their values are meaningless. If it the number is too small to be
represented internally, it is shown as "0.0".
* Many Lisp features are omitted: List processing (CAR, CDR, etc),
DEFUN, Lisp-specific control structures, and so on.
- [ [538]Top ] [ [539]Contents ] [ [540]C-Kermit Home ] [ [541]Kermit
+ [ [549]Top ] [ [550]Contents ] [ [551]C-Kermit Home ] [ [552]Kermit
Home ]
- __________________________________________________________________________
10. FILE TRANSFER
New commands and switches:
SET TRANSFER REPORT { OFF, ON }
- Enables or disables the (new) one-line message printed by
- Kermit after a remote-mode file transfer to indicate the source
- and destination file, complete with path, to let you know where
- the file went.
+ Enables or disables the (new) one-line message printed by Kermit
+ after a remote-mode file transfer to indicate the source and
+ destination file, complete with path, to let you know where the
+ file went.
SEND /TYPE:{TEXT,BINARY}
- Sends only files of the given type (see [542]Section 4).
+ Sends only files of the given type (see [553]Section 4).
SEND /NOFOLLOWLINKS:
(UNIX only) Skip over symbolic links rather than following them
- (default). This applies to wildcard and/or recursive SENDs; if
- a single filename is given, and it happens to be a symbolic
- link, the file it points to is sent.
+ (default). This applies to wildcard and/or recursive SENDs; if a
+ single filename is given, and it happens to be a symbolic link,
+ the file it points to is sent.
SEND /FOLLOWLINKS:
(UNIX only) Follow (resolve) symbolic links. Watch out for
SET SEND I-PACKETS { OFF, ON }
When sending commands to a Kermit server, this tells whether
- command packets should be preceded by an I (information)
- packet, which is used to synchronize parameters prior to
- executing the command. Normally ON. The only reason to set this
- OFF is for communicating with buggy Kermit servers that
- misbehave when an I packet is sent to them. There is also a SET
- RECEIVE I-PACKETS command, but presently it has no effect.
+ command packets should be preceded by an I (information) packet,
+ which is used to synchronize parameters prior to executing the
+ command. Normally ON. The only reason to set this OFF is for
+ communicating with buggy Kermit servers that misbehave when an I
+ packet is sent to them. There is also a SET RECEIVE I-PACKETS
+ command, but presently it has no effect.
SET TRANSFER MESSAGE [ text ]
- Sets an initial message to be shown in the Last Message field
- of the fullscreen file-transfer display.
+ Sets an initial message to be shown in the Last Message field of
+ the fullscreen file-transfer display.
SET TRANSFER TRANSLATION { ON, OFF }
Inhibits or re-enables text-file transfer character-set
* SET FILE DOWNLOAD-DIRECTORY now works for external protocols (e.g.
sz/rz) too.
* Improved automatic per-file text/binary switching, described in
- [543]Section 4.
- * When sending a file group (e.g. "send *.*"), failure to open a
- file is no longer fatal; now C-Kermit simply goes ahead to the
- next file.
+ [554]Section 4.
+ * When sending a file group (e.g. "send *.*"), failure to open a file
+ is no longer fatal; now C-Kermit simply goes ahead to the next
+ file.
* Transaction log entries are now made for external protocols too.
- [ [544]Top ] [ [545]Contents ] [ [546]C-Kermit Home ] [ [547]Kermit
+ [ [555]Top ] [ [556]Contents ] [ [557]C-Kermit Home ] [ [558]Kermit
Home ]
- __________________________________________________________________________
11. MODEMS AND DIALING
In C-Kermit 8.0, the default modem type for dialing has changed from
NONE (= DIRECT, meaning no modem) to GENERIC. This change should have
- no impact on direct connections. For dialing, it means that, unless
- you SET MODEM TYPE to a specific type, such as USROBOTICS or CONEXANT,
+ no impact on direct connections. For dialing, it means that, unless you
+ SET MODEM TYPE to a specific type, such as USROBOTICS or CONEXANT,
Kermit assumes:
1. The modem uses the Hayes AT command set.
- 2. The modem supports error correction, data compression, and
- hardware flow control and is already configured to use them.
+ 2. The modem supports error correction, data compression, and hardware
+ flow control and is already configured to use them.
In fact, Kermit assumes the modem is completely configured, and
therefore does not send it an initialization string or any
(or ATD or ATDP, as appropriate).
- The new defaults work for direct connections and for most modern
- modems on most platforms, and they work much faster than
- "full-treatment" dialing. If the new defaults don't work for you, or
- if you need to perform explicit modem configuations or interactions,
- then set a specific modem type and use the SET MODEM and SET DIAL
- commands as documented in Using C-Kermit.
+ The new defaults work for direct connections and for most modern modems
+ on most platforms, and they work much faster than "full-treatment"
+ dialing. If the new defaults don't work for you, or if you need to
+ perform explicit modem configurations or interactions, then set a
+ specific modem type and use the SET MODEM and SET DIAL commands as
+ documented in Using C-Kermit.
WARNING: Don't use the generic modem on hosts that do not support
RTS/CTS flow control. If Xon/Xoff is in use on the serial port,
Finally, if dialing fails, Kermit now prints a context-sensitive hint
suggesting possible reasons and remedies.
- Added in C-Kermit 8.0.201: Rudimentary support for Caller ID, for
- use with the ANSWER command. If the modem reports Caller ID
- information, Kermit stores it in variables that you can access after
- the call is answered:
+ Added in C-Kermit 8.0.201: Rudimentary support for Caller ID, for use
+ with the ANSWER command. If the modem reports Caller ID information,
+ Kermit stores it in variables that you can access after the call is
+ answered:
\v(callid_date) The date of the call
\v(callid_time) The time of the call
the only way to refuse a call is to answer it, inspect the variables,
and then hang it up if desired.
- [ [548]Top ] [ [549]Contents ] [ [550]C-Kermit Home ] [ [551]Kermit
+ [ [559]Top ] [ [560]Contents ] [ [561]C-Kermit Home ] [ [562]Kermit
Home ]
- __________________________________________________________________________
12. TERMINAL CONNECTION
- Now that 7-bit connections are no longer the norm, the default
- terminal bytesize (also called "data size" or "word size") in C-Kermit
- 8.0 is 8 bits, rather than 7 bits as it was in C-Kermit 7.0 and
- earlier:
+ Now that 7-bit connections are no longer the norm, the default terminal
+ bytesize (also called "data size" or "word size") in C-Kermit 8.0 is 8
+ bits, rather than 7 bits as it was in C-Kermit 7.0 and earlier:
SET ESCAPE character
This command, which specifies your CONNECT-mode escape
character, allows you to specify any ASCII control character in
- a variety of formats. C-Kermit 8.0.201 now also lets you
- specify any 8-bit value, 128-255, as the escape character. In
- the SET ESCAPE command, you can type the 8-bit character
- literally or you can enter its numeric code. Here are examples
- that you can enter from a terminal or console that uses the ISO
- Latin-1 character set:
+ a variety of formats. C-Kermit 8.0.201 now also lets you specify
+ any 8-bit value, 128-255, as the escape character. In the SET
+ ESCAPE command, you can type the 8-bit character literally or
+ you can enter its numeric code. Here are examples that you can
+ enter from a terminal or console that uses the ISO Latin-1
+ character set:
C-Kermit> set escape Ã
C-Kermit> set escape 195
the CONNECT message.
SET TERMINAL AUTODOWNLOAD ERROR { STOP, CONTINUE }
- When Kermit has a terminal connection to another computer, and
- a file transfer is initiated automatically because a Kermit
- packet was received in CONNECT mode (i.e. in the terminal
- screen), this command tells what Kermit should do if the
- transfer fails. The default is to STOP, which leaves Kermit in
- command mode with its file-transfer display showing, so you can
- see that the transfer failed and why. If you SET TERMINAL
- AUTODOWNLOAD ERROR CONTINUE, this causes Kermit to return
- automatically to its terminal screen (i.e. resume its CONNECT
- session) as if the transfer had succeeded; this can be
- desirable if the entire session is under control of a
- host-based script.
+ When Kermit has a terminal connection to another computer, and a
+ file transfer is initiated automatically because a Kermit packet
+ was received in CONNECT mode (i.e. in the terminal screen), this
+ command tells what Kermit should do if the transfer fails. The
+ default is to STOP, which leaves Kermit in command mode with its
+ file-transfer display showing, so you can see that the transfer
+ failed and why. If you SET TERMINAL AUTODOWNLOAD ERROR CONTINUE,
+ this causes Kermit to return automatically to its terminal
+ screen (i.e. resume its CONNECT session) as if the transfer had
+ succeeded; this can be desirable if the entire session is under
+ control of a host-based script.
SET TERMINAL BYTESIZE { 7, 8 }
- The byte size to use during CONNECT and INPUT command
- execution, which can be more restrictive than the bytesize
- implied by the current PARITY setting, but not less
- restrictive. In C-Kermit 7.0 and earlier, the terminal bytesize
- was 7 by default to protect against the likelihood that parity
- was in use on the connection without the user's knowledge. When
- the terminal bytesize is 8 (as it is in C-Kermit 8.0 and
- later), the user will see garbage in this (increasingly
- unlikely) situation. Note that 8 data bits are required for
- most character sets other than ASCII: Latin-1, UTF-8, and so
- on.
+ The byte size to use during CONNECT and INPUT command execution,
+ which can be more restrictive than the bytesize implied by the
+ current PARITY setting, but not less restrictive. In C-Kermit
+ 7.0 and earlier, the terminal bytesize was 7 by default to
+ protect against the likelihood that parity was in use on the
+ connection without the user's knowledge. When the terminal
+ bytesize is 8 (as it is in C-Kermit 8.0 and later), the user
+ will see garbage in this (increasingly unlikely) situation. Note
+ that 8 data bits are required for most character sets other than
+ ASCII: Latin-1, UTF-8, and so on.
A new command has been added to produce timestamped session logs:
SET TERMINAL IDLE-TIMEOUT number
If the number is not 0, then Kermit is to take an action when
the given amount of time passes with no activity during CONNECT
- mode. If the number is positive it is the maximum number of
- idle seconds; if number is negative it represents milliseconds
- (thousandths of seconds). If 0 is given as the number, there
- are no idle timeouts. Synonym: SET TERMINAL IDLE-LIMIT.
+ mode. If the number is positive it is the maximum number of idle
+ seconds; if number is negative it represents milliseconds
+ (thousandths of seconds). If 0 is given as the number, there are
+ no idle timeouts. Synonym: SET TERMINAL IDLE-LIMIT.
SET TERMINAL IDLE-ACTION { RETURN, HANGUP, EXIT, OUTPUT [ string ] }
The action to be taken upon an idle timeout in CONNECT mode.
SET TERMINAL IDLE-ACTION { TELNET-NOP, TELNET-AYT }
Actions that can be selected on Telnet connections only, that
- might be useful if idle limits are enforced by the Telnet
- server or in the TCP/IP protocol: TELNET-NOP sends a "NO
- Operation" (do-nothing) command, which causes no response from
- the server; TELNET-AYT sends an "Are You There" message to the
- server, which should make the server send back a message.
- Neither of these actions interferes with your remote session.
+ might be useful if idle limits are enforced by the Telnet server
+ or in the TCP/IP protocol: TELNET-NOP sends a "NO Operation"
+ (do-nothing) command, which causes no response from the server;
+ TELNET-AYT sends an "Are You There" message to the server, which
+ should make the server send back a message. Neither of these
+ actions interferes with your remote session.
- SET TERMINAL IDLE-ACTION is useful for connections to hosts or
- services that automatically log you out after a certain amount of idle
- time, e.g.:
+ SET TERMINAL IDLE-ACTION is useful for connections to hosts or services
+ that automatically log you out after a certain amount of idle time,
+ e.g.:
set term idle-timeout 300
set term idle-action output \32
Values 100 and above indicate there is no connection.
- [ [552]Top ] [ [553]Contents ] [ [554]C-Kermit Home ] [ [555]Kermit
+ [ [563]Top ] [ [564]Contents ] [ [565]C-Kermit Home ] [ [566]Kermit
Home ]
- __________________________________________________________________________
13. CHARACTER SETS
- See the section on [556]file scanning above, and the section on
- character-set conversion in [557]FTP. Also:
+ See the section on [567]file scanning above, and the section on
+ character-set conversion in [568]FTP. Also:
* True support for CP1252 (rather than treating it as Latin-1).
* Proper handling of C1 values when converting ISO 8-bit text to
* The TRANSLATE command now works on multiple files.
* K_CHARSET environment variable to set the file character-set.
* SET TRANSFER TRANSLATION OFF.
- * FTP client character-set translation ([558]Section 3.7).
+ * FTP client character-set translation ([569]Section 3.7).
- [ [559]Top ] [ [560]Contents ] [ [561]C-Kermit Home ] [ [562]Kermit
+ [ [570]Top ] [ [571]Contents ] [ [572]C-Kermit Home ] [ [573]Kermit
Home ]
- __________________________________________________________________________
14. DIALOUT FROM TELNET TERMINAL SERVERS
- For years, C-Kermit has supported dialing out from Telnet modem
- servers (also called reverse terminal servers or access servers), but
- until now there was no way for Kermit to control the communication
- parameters (speed, parity, etc) on the serial port of the terminal
- server; it had to use whatever was there.
+ For years, C-Kermit has supported dialing out from Telnet modem servers
+ (also called reverse terminal servers or access servers), but until now
+ there was no way for Kermit to control the communication parameters
+ (speed, parity, etc) on the serial port of the terminal server; it had
+ to use whatever was there.
But now, if you make a connection to a server that supports the Telnet
- Com Port Control Option, [563]RFC 2217, you have the same degree of
+ Com Port Control Option, [574]RFC 2217, you have the same degree of
control as you would have over a serial port on the computer where
- Kermit is running: SET SPEED, SET FLOW, SET PARITY, SET STOP-BITS,
- SHOW COMM, WAIT, SET CARRIER-WATCH, the modem-signal variables,
- sending Break, and so on, apply to the connection between the terminal
- server and the modem.
+ Kermit is running: SET SPEED, SET FLOW, SET PARITY, SET STOP-BITS, SHOW
+ COMM, WAIT, SET CARRIER-WATCH, the modem-signal variables, sending
+ Break, and so on, apply to the connection between the terminal server
+ and the modem.
For example, using a Cisco Access Server 2509, where specifying a TCP
port in the 6000's selects a serial port that can be used for dialing
NOTE: If the modem server requires a login sequence, then REDIAL might
not work as expected.
- When you have a Telnet Com Port connection, your SET SPEED and SET
- FLOW options change automatically to reflect the capabilities of the
- server, rather than those of your local computer.
+ When you have a Telnet Com Port connection, your SET SPEED and SET FLOW
+ options change automatically to reflect the capabilities of the server,
+ rather than those of your local computer.
See the configuration manual for your server for additional
information. For example, how to set up the server to drop the Telnet
connection automatically when the telephone call is hung up (e.g.
"autohangup" on Cisco models).
- For a Linux-based Telnet Com-Port server, click the Srdird link:
+ For a Linux-based Telnet Com-Port server, click the Sredird link:
- [ [564]Top ] [ [565]Contents ] [ [566]Sredird ] [ [567]C-Kermit Home ]
- [ [568]Kermit Home ]
- __________________________________________________________________________
+ [ [575]Top ] [ [576]Contents ] [ [577]Sredird ] [ [578]C-Kermit Home ]
+ [ [579]Kermit Home ]
15. COPING WITH BROKEN KERMIT PARTNERS
There are lots of faulty Kermit protocol implementations out there,
- found mainly in 3rd-party products ranging from communications
- software packages to file-transfer functions imbedded within devices.
- This topic is covered [569]HERE for C-Kermit 7.0, but C-Kermit 8.0
- adds some additional tricks.
+ found mainly in 3rd-party products ranging from communications software
+ packages to file-transfer functions embedded within devices. This topic
+ is covered [580]HERE for C-Kermit 7.0, but C-Kermit 8.0 adds some
+ additional tricks.
SET ATTRIBUTE RECORD-FORMAT { ON, OFF }
- Allows control of the Kermit's Record-Format attribute. Set
- this to OFF in case incoming file are refused due to unknown or
+ Allows control of the Kermit's Record-Format attribute. Set this
+ to OFF in case incoming file are refused due to unknown or
invalid record formats if you want to accept the file anyway.
+ SET ATTRIBUTES OFF
+ This is not a new trick, but it was recently discovered that the
+ Kermit implementation embedded within a certain kind of
+ punching/bending machine (Salvagnini if you must know) hangs
+ upon reception of standard format Kermit attributes when
+ receiving files. When sending files, it sends attributes of its
+ own, one per A-packet, which is slightly unusual but legal. When
+ receiving files from C-Kermit, K95, MS-DOS Kermit, Kermit-370,
+ etc, it simply exits upon reception of the first A-packet;
+ apparently it was not coded according to the protocol
+ specification, which allows multiple attributes per A-packet.
+ Solution: tell the file sender to SET ATTRIBUTES OFF.
+
SET SEND I-PACKETS { ON, OFF }
- A Kermit server is supposed to accept I-packets; this is how
- the client lets the server know its capabilities and
- preferences before sending a command. Apparently there is at
- least one Kermit server implementation that does not accept
- I-packets, and does not properly respond with an Error packet
- if it gets one. To get around such situations in C-Kermit 8.0,
- you can use SET SEND I-PACKETS OFF to inhibit the sending of I
- packets. In this case, the client must be able to adjust to the
- server's configuration, rather than the other way around as we
- are used to.
+ A Kermit server is supposed to accept I-packets; this is how the
+ client lets the server know its capabilities and preferences
+ before sending a command. Apparently there is at least one
+ Kermit server implementation that does not accept I-packets, and
+ does not properly respond with an Error packet if it gets one.
+ To get around such situations in C-Kermit 8.0, you can use SET
+ SEND I-PACKETS OFF to inhibit the sending of I packets. In this
+ case, the client must be able to adjust to the server's
+ configuration, rather than the other way around as we are used
+ to.
SET PROTOCOL KERMIT {} {} {}
C-Kermit 6.0 and later automatically send "autoupload" and
oofa.txt", Kermit sends "kermit -r" and a carriage return, in
case you had forgotten to start Kermit on the far end and told
it to receive a file. If a Kermit program had already been
- started on the far end, it should harmlessly absorb this
- string. However, some Kermit programs violate the Kermit
- protocol definition and treat such strings as Kermit packets
- even though they are not. In such cases, give this command to
- set the Kermit protocol autoupload and download strings to
- nothing, which tells Kermit not to send them. (This is not a
- new feature, but it was not previously included in the "Coping"
- section of the documentation.)
-
- [ [570]Top ] [ [571]Contents ] [ [572]C-Kermit Home ] [ [573]Kermit
+ started on the far end, it should harmlessly absorb this string.
+ However, some Kermit programs violate the Kermit protocol
+ definition and treat such strings as Kermit packets even though
+ they are not. In such cases, give this command to set the Kermit
+ protocol autoupload and download strings to nothing, which tells
+ Kermit not to send them. (This is not a new feature, but it was
+ not previously included in the "Coping" section of the
+ documentation.)
+
+ [ [581]Top ] [ [582]Contents ] [ [583]C-Kermit Home ] [ [584]Kermit
Home ]
- __________________________________________________________________________
16. NEW COMMAND-LINE OPTIONS
--version Shows C-Kermit version number.
--noperms Equivalent to SET ATTRIBUTE PROTECTION OFF.
- Kermit now accepts a selection of URLs (Universal Resource Locators)
- as its first command-line argument. These are:
+ Kermit now accepts a selection of URLs (Universal Resource Locators) as
+ its first command-line argument. These are:
telnet:hostname
Makes a Telnet connection to the given host (IP hostname or
ftp://[user[:password]@]hostname[/path...]
Makes an FTP connection to the given host (IP hostname or
- address). If a username is given, Kermit tries to log you in;
- if a password is given, it is used; if not, you are prompted
- for one. If no username is given, an anonymous login is
- performed. If a pathname is included, Kermit tries to GET the
- given file. See [574]Section 3.1.3 for details.
+ address). If a username is given, Kermit tries to log you in; if
+ a password is given, it is used; if not, you are prompted for
+ one. If no username is given, an anonymous login is performed.
+ If a pathname is included, Kermit tries to GET the given file.
+ See [585]Section 3.1.3 for details.
ftps://[user[:password]@]hostname[/path...]
Makes a secure FTP connection over SSL.
Makes a secure Telnet connection over SSL.
kermit://[user[:password]@]hostname[/path...]
- Makes a connection to an [575]Internet Kermit Server.
+ Makes a connection to an [586]Internet Kermit Server.
http://[user[:password]@]hostname[/path...]
Makes a connection to Web server.
https://[user[:password]@]hostname[/path...]
Makes a connection to secure Web server.
- [ [576]Top ] [ [577]Contents ] [ [578]C-Kermit Home ] [ [579]Kermit
+ [ [587]Top ] [ [588]Contents ] [ [589]C-Kermit Home ] [ [590]Kermit
Home ]
- __________________________________________________________________________
17. LOGS
C-Kermit 8.0 also supports a new timestamped session log via "set
session-log timestamped-text", "log session".
- There have been requests for other kinds of logs, for example a
- command log. These might be added at some point. One person wanted to
- be able to log commands with timestamps, but only commands issued at
- the prompt, not commands from files or macros, and also wanted a
- header line at the beginning showing the date, user, and host. This
- can be done as follows:
+ There have been requests for other kinds of logs, for example a command
+ log. These might be added at some point. One person wanted to be able
+ to log commands with timestamps, but only commands issued at the
+ prompt, not commands from files or macros, and also wanted a header
+ line at the beginning showing the date, user, and host. This can be
+ done as follows:
.filename := \v(home)commands.log ; (for example)
fopen /write \%c \m(filename)
log debug {| grep "CMD(P)" >> \m(filename)} append
}
- [ [580]Top ] [ [581]Contents ] [ [582]C-Kermit Home ] [ [583]Kermit
+ [ [591]Top ] [ [592]Contents ] [ [593]C-Kermit Home ] [ [594]Kermit
Home ]
- _________________________________________________________________
+ __________________________________________________________________
+
- C-Kermit 8.0 Update Notes / [584]The Kermit Project / Columbia
- University / 15 Dec 2003
+ C-Kermit 8.0 Update Notes / [595]The Kermit Project / Columbia
+ University / 15 Dec 2003 - 13 Sep 2010
References
- 1. http://www.columbia.edu/kermit/ckermit80.html#contents
- 2. http://www.columbia.edu/kermit/ckermit.html
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
3. http://www.columbia.edu/kermit/index.html
- 4. http://www.columbia.edu/kermit/ckermit80.html
- 5. mailto:kermit-support@columbia.edu
- 6. http://www.columbia.edu/kermit/
- 7. http://www.kermit-project.org/
- 8. http://www.columbia.nyc.ny.us/kermit/
- 9. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
- 10. ftp://kermit.columbia.edu/kermit/f/ckcmai.c
- 11. http://www.columbia.edu/kermit/ckermit80.html#xv
- 12. http://www.columbia.edu/kermit/ck60manual.html
- 13. http://www.columbia.edu/kermit/ckermi70.html
- 14. ftp://kermit.columbia.edu/kermit/f/ckermit70.txt
- 15. http://www.columbia.edu/kermit/ckututor.html
- 16. ftp://kermit.columbia.edu/kermit/f/ckuker.nr
- 17. http://www.columbia.edu/kermit/security.htm
- 18. http://www.columbia.edu/kermit/telnet.htm
- 19. http://www.columbia.edu/kermit/ftpscripts.html
- 20. http://www.columbia.edu/kermit/ckcbwr.html
- 21. ftp://kermit.columbia.edu/kermit/f/ckcbwr.txt
- 22. http://www.columbia.edu/kermit/ckubwr.html
- 23. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
- 24. http://www.columbia.edu/kermit/ckvbwr.html
- 25. ftp://kermit.columbia.edu/kermit/f/ckvbwr.txt
- 26. http://www.columbia.edu/kermit/ckuins.html
- 27. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
- 28. http://www.columbia.edu/kermit/ckvins.html
- 29. ftp://kermit.columbia.edu/kermit/f/ckvins.txt
- 30. http://www.columbia.edu/kermit/ckccfg.html
- 31. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
- 32. http://www.columbia.edu/kermit/ckcplm.html
- 33. ftp://kermit.columbia.edu/kermit/f/ckcplm.txt
- 34. http://www.columbia.edu/kermit/iksd.html
- 35. http://www.columbia.edu/kermit/skermit.html
- 36. http://www.columbia.edu/kermit/ckermit80.html#top
- 37. http://www.columbia.edu/kermit/ckermit.html
- 38. http://www.columbia.edu/kermit/index.html
- 39. http://www.columbia.edu/kermit/ckermit80.html#x0
- 40. http://www.columbia.edu/kermit/ckermit80.html#x1
- 41. http://www.columbia.edu/kermit/ckermit80.html#x2
- 42. http://www.columbia.edu/kermit/ckermit80.html#x2.1
- 43. http://www.columbia.edu/kermit/ckermit80.html#x2.2
- 44. http://www.columbia.edu/kermit/ckermit80.html#x2.2.1
- 45. http://www.columbia.edu/kermit/ckermit80.html#x2.2.2
- 46. http://www.columbia.edu/kermit/ckermit80.html#x2.2.3
- 47. http://www.columbia.edu/kermit/ckermit80.html#x2.2.4
- 48. http://www.columbia.edu/kermit/ckermit80.html#x2.2.5
- 49. http://www.columbia.edu/kermit/ckermit80.html#x2.2.6
- 50. http://www.columbia.edu/kermit/ckermit80.html#x3
- 51. http://www.columbia.edu/kermit/ckermit80.html#x3.1
- 52. http://www.columbia.edu/kermit/ckermit80.html#x3.1.1
- 53. http://www.columbia.edu/kermit/ckermit80.html#x3.1.2
- 54. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
- 55. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
- 56. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 57. http://www.columbia.edu/kermit/ckermit80.html#x3.3
- 58. http://www.columbia.edu/kermit/ckermit80.html#x3.4
- 59. http://www.columbia.edu/kermit/ckermit80.html#x3.5
- 60. http://www.columbia.edu/kermit/ckermit80.html#x3.5.1
- 61. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
- 62. http://www.columbia.edu/kermit/ckermit80.html#x3.5.3
- 63. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 64. http://www.columbia.edu/kermit/ckermit80.html#x3.6.1
- 65. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
- 66. http://www.columbia.edu/kermit/ckermit80.html#x3.6.3
- 67. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 68. http://www.columbia.edu/kermit/ckermit80.html#x3.7.1
- 69. http://www.columbia.edu/kermit/ckermit80.html#x3.7.2
- 70. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 71. http://www.columbia.edu/kermit/ckermit80.html#x3.9
- 72. http://www.columbia.edu/kermit/ckermit80.html#x3.10
- 73. http://www.columbia.edu/kermit/ckermit80.html#x3.10.1
- 74. http://www.columbia.edu/kermit/ckermit80.html#x3.10.2
- 75. http://www.columbia.edu/kermit/ckermit80.html#x3.10.3
- 76. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 77. http://www.columbia.edu/kermit/ckermit80.html#x4
- 78. http://www.columbia.edu/kermit/ckermit80.html#x5
- 79. http://www.columbia.edu/kermit/ckermit80.html#x6
- 80. http://www.columbia.edu/kermit/ckermit80.html#x6.1
- 81. http://www.columbia.edu/kermit/ckermit80.html#x6.2
- 82. http://www.columbia.edu/kermit/ckermit80.html#x6.3
- 83. http://www.columbia.edu/kermit/ckermit80.html#x6.4
- 84. http://www.columbia.edu/kermit/ckermit80.html#x6.5
- 85. http://www.columbia.edu/kermit/ckermit80.html#x6.6
- 86. http://www.columbia.edu/kermit/ckermit80.html#x7
- 87. http://www.columbia.edu/kermit/ckermit80.html#x8
- 88. http://www.columbia.edu/kermit/ckermit80.html#x8.1
- 89. http://www.columbia.edu/kermit/ckermit80.html#x8.2
- 90. http://www.columbia.edu/kermit/ckermit80.html#x8.3
- 91. http://www.columbia.edu/kermit/ckermit80.html#x8.4
- 92. http://www.columbia.edu/kermit/ckermit80.html#x8.5
- 93. http://www.columbia.edu/kermit/ckermit80.html#x8.6
- 94. http://www.columbia.edu/kermit/ckermit80.html#x8.7
- 95. http://www.columbia.edu/kermit/ckermit80.html#x8.8
- 96. http://www.columbia.edu/kermit/ckermit80.html#x8.9
- 97. http://www.columbia.edu/kermit/ckermit80.html#x8.10
- 98. http://www.columbia.edu/kermit/ckermit80.html#x8.11
- 99. http://www.columbia.edu/kermit/ckermit80.html#x8.12
- 100. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 101. http://www.columbia.edu/kermit/ckermit80.html#x8.14
- 102. http://www.columbia.edu/kermit/ckermit80.html#x9
- 103. http://www.columbia.edu/kermit/ckermit80.html#x9.1
- 104. http://www.columbia.edu/kermit/ckermit80.html#x9.2
- 105. http://www.columbia.edu/kermit/ckermit80.html#x9.3
- 106. http://www.columbia.edu/kermit/ckermit80.html#x9.4
- 107. http://www.columbia.edu/kermit/ckermit80.html#x9.5
- 108. http://www.columbia.edu/kermit/ckermit80.html#x9.6
- 109. http://www.columbia.edu/kermit/ckermit80.html#x9.7
- 110. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 111. http://www.columbia.edu/kermit/ckermit80.html#x9.9
- 112. http://www.columbia.edu/kermit/ckermit80.html#x9.10
- 113. http://www.columbia.edu/kermit/ckermit80.html#x9.11
- 114. http://www.columbia.edu/kermit/ckermit80.html#x10
- 115. http://www.columbia.edu/kermit/ckermit80.html#x11
- 116. http://www.columbia.edu/kermit/ckermit80.html#x12
- 117. http://www.columbia.edu/kermit/ckermit80.html#x13
- 118. http://www.columbia.edu/kermit/ckermit80.html#x14
- 119. http://www.columbia.edu/kermit/ckermit80.html#x15
- 120. http://www.columbia.edu/kermit/ckermit80.html#x16
- 121. http://www.columbia.edu/kermit/ckermit80.html#x17
- 122. http://www.columbia.edu/kermit/ckermit80.html#top
- 123. http://www.columbia.edu/kermit/ckermit.html
- 124. http://www.columbia.edu/kermit/index.html
- 125. http://www.columbia.edu/kermit/ckuins.html#x5
- 126. http://www.columbia.edu/kermit/ckuins.html
- 127. http://www.columbia.edu/kermit/ckermit80.html#x5
- 128. http://www.columbia.edu/kermit/ckermit80.html#x2.2
- 129. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 12. http://www.columbia.edu/kermit/ckermit.html
+ 13. http://www.columbia.edu/kermit/index.html
+ 14. http://www.amazon.com/gp/product/1555581641?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=1555581641
+ 15. http://www.columbia.edu/kermit/ckermit80.html
+ 16. mailto:kermit-support@columbia.edu
+ 17. http://www.columbia.edu/kermit/
+ 18. http://www.kermit-project.org/
+ 19. http://www.columbia.nyc.ny.us/kermit/
+ 20. ftp://kermit.columbia.edu/kermit/f/COPYING.TXT
+ 21. ftp://kermit.columbia.edu/kermit/f/ckcmai.c
+ 22. http://www.columbia.edu/kermit/ckermit80.html#xv
+ 23. http://www.columbia.edu/kermit/ck60manual.html
+ 24. http://www.columbia.edu/kermit/ckermi70.html
+ 25. ftp://kermit.columbia.edu/kermit/f/ckermit70.txt
+ 26. http://www.columbia.edu/kermit/ckututor.html
+ 27. ftp://kermit.columbia.edu/kermit/f/ckuker.nr
+ 28. http://www.columbia.edu/kermit/security.htm
+ 29. http://www.columbia.edu/kermit/telnet.htm
+ 30. http://www.columbia.edu/kermit/ftpscripts.html
+ 31. http://www.columbia.edu/kermit/ckcbwr.html
+ 32. ftp://kermit.columbia.edu/kermit/f/ckcbwr.txt
+ 33. http://www.columbia.edu/kermit/ckubwr.html
+ 34. ftp://kermit.columbia.edu/kermit/f/ckubwr.txt
+ 35. http://www.columbia.edu/kermit/ckvbwr.html
+ 36. ftp://kermit.columbia.edu/kermit/f/ckvbwr.txt
+ 37. http://www.columbia.edu/kermit/ckuins.html
+ 38. ftp://kermit.columbia.edu/kermit/f/ckuins.txt
+ 39. http://www.columbia.edu/kermit/ckvins.html
+ 40. ftp://kermit.columbia.edu/kermit/f/ckvins.txt
+ 41. http://www.columbia.edu/kermit/ckccfg.html
+ 42. ftp://kermit.columbia.edu/kermit/f/ckccfg.txt
+ 43. http://www.columbia.edu/kermit/ckcplm.html
+ 44. ftp://kermit.columbia.edu/kermit/f/ckcplm.txt
+ 45. http://www.columbia.edu/kermit/iksd.html
+ 46. http://www.columbia.edu/kermit/skermit.html
+ 47. http://www.columbia.edu/kermit/ckermit80.html#top
+ 48. http://www.columbia.edu/kermit/ckermit.html
+ 49. http://www.columbia.edu/kermit/index.html
+ 50. http://www.columbia.edu/kermit/ckermit80.html#x0
+ 51. http://www.columbia.edu/kermit/ckermit80.html#x1
+ 52. http://www.columbia.edu/kermit/ckermit80.html#x2
+ 53. http://www.columbia.edu/kermit/ckermit80.html#x2.1
+ 54. http://www.columbia.edu/kermit/ckermit80.html#x2.2
+ 55. http://www.columbia.edu/kermit/ckermit80.html#x2.2.1
+ 56. http://www.columbia.edu/kermit/ckermit80.html#x2.2.2
+ 57. http://www.columbia.edu/kermit/ckermit80.html#x2.2.3
+ 58. http://www.columbia.edu/kermit/ckermit80.html#x2.2.4
+ 59. http://www.columbia.edu/kermit/ckermit80.html#x2.2.5
+ 60. http://www.columbia.edu/kermit/ckermit80.html#x2.2.6
+ 61. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 62. http://www.columbia.edu/kermit/ckermit80.html#x3.1
+ 63. http://www.columbia.edu/kermit/ckermit80.html#x3.1.1
+ 64. http://www.columbia.edu/kermit/ckermit80.html#x3.1.2
+ 65. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
+ 66. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
+ 67. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 68. http://www.columbia.edu/kermit/ckermit80.html#x3.3
+ 69. http://www.columbia.edu/kermit/ckermit80.html#x3.4
+ 70. http://www.columbia.edu/kermit/ckermit80.html#x3.5
+ 71. http://www.columbia.edu/kermit/ckermit80.html#x3.5.1
+ 72. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
+ 73. http://www.columbia.edu/kermit/ckermit80.html#x3.5.3
+ 74. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 75. http://www.columbia.edu/kermit/ckermit80.html#x3.6.1
+ 76. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
+ 77. http://www.columbia.edu/kermit/ckermit80.html#x3.6.3
+ 78. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 79. http://www.columbia.edu/kermit/ckermit80.html#x3.7.1
+ 80. http://www.columbia.edu/kermit/ckermit80.html#x3.7.2
+ 81. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 82. http://www.columbia.edu/kermit/ckermit80.html#x3.9
+ 83. http://www.columbia.edu/kermit/ckermit80.html#x3.10
+ 84. http://www.columbia.edu/kermit/ckermit80.html#x3.10.1
+ 85. http://www.columbia.edu/kermit/ckermit80.html#x3.10.2
+ 86. http://www.columbia.edu/kermit/ckermit80.html#x3.10.3
+ 87. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 88. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 89. http://www.columbia.edu/kermit/ckermit80.html#x5
+ 90. http://www.columbia.edu/kermit/ckermit80.html#x6
+ 91. http://www.columbia.edu/kermit/ckermit80.html#x6.1
+ 92. http://www.columbia.edu/kermit/ckermit80.html#x6.2
+ 93. http://www.columbia.edu/kermit/ckermit80.html#x6.3
+ 94. http://www.columbia.edu/kermit/ckermit80.html#x6.4
+ 95. http://www.columbia.edu/kermit/ckermit80.html#x6.5
+ 96. http://www.columbia.edu/kermit/ckermit80.html#x6.6
+ 97. http://www.columbia.edu/kermit/ckermit80.html#x7
+ 98. http://www.columbia.edu/kermit/ckermit80.html#x8
+ 99. http://www.columbia.edu/kermit/ckermit80.html#x8.1
+ 100. http://www.columbia.edu/kermit/ckermit80.html#x8.2
+ 101. http://www.columbia.edu/kermit/ckermit80.html#x8.3
+ 102. http://www.columbia.edu/kermit/ckermit80.html#x8.4
+ 103. http://www.columbia.edu/kermit/ckermit80.html#x8.5
+ 104. http://www.columbia.edu/kermit/ckermit80.html#x8.6
+ 105. http://www.columbia.edu/kermit/ckermit80.html#x8.7
+ 106. http://www.columbia.edu/kermit/ckermit80.html#x8.8
+ 107. http://www.columbia.edu/kermit/ckermit80.html#x8.9
+ 108. http://www.columbia.edu/kermit/ckermit80.html#x8.10
+ 109. http://www.columbia.edu/kermit/ckermit80.html#x8.11
+ 110. http://www.columbia.edu/kermit/ckermit80.html#x8.12
+ 111. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 112. http://www.columbia.edu/kermit/ckermit80.html#x8.14
+ 113. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 114. http://www.columbia.edu/kermit/ckermit80.html#x9.1
+ 115. http://www.columbia.edu/kermit/ckermit80.html#x9.2
+ 116. http://www.columbia.edu/kermit/ckermit80.html#x9.3
+ 117. http://www.columbia.edu/kermit/ckermit80.html#x9.4
+ 118. http://www.columbia.edu/kermit/ckermit80.html#x9.5
+ 119. http://www.columbia.edu/kermit/ckermit80.html#x9.6
+ 120. http://www.columbia.edu/kermit/ckermit80.html#x9.7
+ 121. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 122. http://www.columbia.edu/kermit/ckermit80.html#x9.9
+ 123. http://www.columbia.edu/kermit/ckermit80.html#x9.10
+ 124. http://www.columbia.edu/kermit/ckermit80.html#x9.11
+ 125. http://www.columbia.edu/kermit/ckermit80.html#x10
+ 126. http://www.columbia.edu/kermit/ckermit80.html#x11
+ 127. http://www.columbia.edu/kermit/ckermit80.html#x12
+ 128. http://www.columbia.edu/kermit/ckermit80.html#x13
+ 129. http://www.columbia.edu/kermit/ckermit80.html#x14
130. http://www.columbia.edu/kermit/ckermit80.html#x15
- 131. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 132. http://www.columbia.edu/kermit/ckermit80.html#ftpdates
- 133. http://www.columbia.edu/kermit/ckermit80.html#ftpcheck
- 134. http://www.columbia.edu/kermit/ckermit80.html#ftpnamelist
- 135. http://www.columbia.edu/kermit/ckermit80.html#srvrename
- 136. http://www.columbia.edu/kermit/ckermit80.html#ftpvdir
- 137. http://www.columbia.edu/kermit/ckermit80.html#setftptype
- 138. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 139. http://www.columbia.edu/kermit/ckermit80.html#x15
- 140. http://www.columbia.edu/kermit/ckermit80.html#x8.7
- 141. http://www.columbia.edu/kermit/ckermit80.html#x2.1
- 142. http://www.columbia.edu/kermit/ckermit80.html#x2.2
- 143. http://www.columbia.edu/kermit/ckermit80.html#x8.14
- 144. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 145. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 146. http://www.columbia.edu/kermit/ckututor.html
- 147. http://www.columbia.edu/kermit/ckuins.html
- 148. http://www.columbia.edu/kermit/skermit.html
- 149. http://www.columbia.edu/kermit/ckermit80.html#setlocus
- 150. http://www.columbia.edu/kermit/ckermit80.html#lcommands
- 151. http://www.columbia.edu/kermit/ckermit80.html#ftpuser
- 152. http://www.columbia.edu/kermit/ckermit80.html#showvar
- 153. http://www.columbia.edu/kermit/ckermit80.html#callerid
- 154. http://www.columbia.edu/kermit/ckermit80.html#x6.6
- 155. http://www.columbia.edu/kermit/ckermit80.html#x0
- 156. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 157. http://www.columbia.edu/kermit/ckermit80.html#top
- 158. http://www.columbia.edu/kermit/ckermit80.html#contents
- 159. http://www.columbia.edu/kermit/ckermit.html
- 160. http://www.columbia.edu/kermit/index.html
- 161. http://www.columbia.edu/kermit/ckermit80.html#x0
- 162. http://www.columbia.edu/kermit/ckermit80.html#top
- 163. http://www.columbia.edu/kermit/ckermit80.html#contents
- 164. http://www.columbia.edu/kermit/ckermit.html
- 165. http://www.columbia.edu/kermit/index.html
- 166. http://www.columbia.edu/kermit/k95.html
- 167. http://www.columbia.edu/kermit/sshclient.html
- 168. http://www.columbia.edu/kermit/skermit.html
- 169. http://www.columbia.edu/kermit/skermit.html
- 170. http://www.columbia.edu/kermit/sshclien.htm
- 171. http://www.columbia.edu/kermit/ckermit80.html#x3
- 172. ftp://ftp.isi.edu/in-notes/rfc1738.txt
- 173. http://www.columbia.edu/kermit/ckermit80.html#x2.2.2
- 174. http://www.columbia.edu/kermit/ckermit80.html#x2.2.1
- 175. ftp://ftp.isi.edu/in-notes/rfc2396.txt
- 176. ftp://ftp.isi.edu/in-notes/rfc2616.txt
- 177. http://www.columbia.edu/kermit/ckermit80.html#x2.2.3
- 178. ftp://ftp.isi.edu/in-notes/rfc2616.txt
- 179. http://www.columbia.edu/kermit/ckermit80.html#x8.13.7
- 180. http://www.columbia.edu/kermit/security.htm#x5.4
- 181. http://www.columbia.edu/kermit/security.htm#x15
- 182. http://www.columbia.edu/kermit/security.htm#x6.2
- 183. http://www.columbia.edu/kermit/security.html
- 184. http://www.columbia.edu/kermit/ckermit80.html#x16
- 185. http://www.columbia.edu/kermit/ckermit80.html#top
- 186. http://www.columbia.edu/kermit/ckermit80.html#contents
- 187. http://www.columbia.edu/kermit/ckermit.html
- 188. http://www.columbia.edu/kermit/index.html
- 189. http://www.columbia.edu/kermit/ckermit80.html#x3.1
- 190. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 191. http://www.columbia.edu/kermit/ckermit80.html#x3.3
- 192. http://www.columbia.edu/kermit/ckermit80.html#x3.4
- 193. http://www.columbia.edu/kermit/ckermit80.html#x3.5
- 194. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 195. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 196. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 197. http://www.columbia.edu/kermit/ckermit80.html#x3.9
- 198. http://www.columbia.edu/kermit/ckermit80.html#x3.10
- 199. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 200. http://www.columbia.edu/kermit/security.htm
- 201. http://www.columbia.edu/kermit/security.htm#servers
- 202. http://www.columbia.edu/kermit/ckcsets.html
- 203. http://www.columbia.edu/kermit/unicode.html
- 204. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
- 205. http://www.columbia.edu/kermit/case10.html
- 206. http://www.columbia.edu/kermit/ckermit80.html#x4
- 207. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 208. http://www.columbia.edu/kermit/ftpscripts.html
- 209. http://www.columbia.edu/kermit/ckermit80.html#top
- 210. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 211. http://www.columbia.edu/kermit/ftpclient.html
- 212. http://www.columbia.edu/kermit/ftpscripts.html
- 213. http://www.columbia.edu/kermit/ckermit.html
- 214. http://www.columbia.edu/kermit/index.html
- 215. http://www.columbia.edu/kermit/ckermit80.html#x3.1.1
- 216. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
- 217. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
- 218. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
- 219. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
- 220. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 221. http://www.columbia.edu/kermit/ckermit80.html#x3.5
- 222. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 131. http://www.columbia.edu/kermit/ckermit80.html#x16
+ 132. http://www.columbia.edu/kermit/ckermit80.html#x17
+ 133. http://www.columbia.edu/kermit/ckermit80.html#top
+ 134. http://www.columbia.edu/kermit/ckermit.html
+ 135. http://www.columbia.edu/kermit/index.html
+ 136. http://www.columbia.edu/kermit/ckuins.html#x5
+ 137. http://www.columbia.edu/kermit/ckuins.html
+ 138. http://www.columbia.edu/kermit/ckermit80.html#x5
+ 139. http://www.columbia.edu/kermit/ckermit80.html#x2.2
+ 140. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 141. http://www.columbia.edu/kermit/ckermit80.html#x15
+ 142. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 143. http://www.columbia.edu/kermit/ckermit80.html#ftpdates
+ 144. http://www.columbia.edu/kermit/ckermit80.html#ftpcheck
+ 145. http://www.columbia.edu/kermit/ckermit80.html#ftpnamelist
+ 146. http://www.columbia.edu/kermit/ckermit80.html#srvrename
+ 147. http://www.columbia.edu/kermit/ckermit80.html#ftpvdir
+ 148. http://www.columbia.edu/kermit/ckermit80.html#setftptype
+ 149. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 150. http://www.columbia.edu/kermit/ckermit80.html#x15
+ 151. http://www.columbia.edu/kermit/ckermit80.html#x8.7
+ 152. http://www.columbia.edu/kermit/ckermit80.html#x2.1
+ 153. http://www.columbia.edu/kermit/ckermit80.html#x2.2
+ 154. http://www.columbia.edu/kermit/ckermit80.html#x8.14
+ 155. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 156. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 157. http://www.columbia.edu/kermit/ckututor.html
+ 158. http://www.columbia.edu/kermit/ckuins.html
+ 159. http://www.columbia.edu/kermit/skermit.html
+ 160. http://www.columbia.edu/kermit/ckermit80.html#setlocus
+ 161. http://www.columbia.edu/kermit/ckermit80.html#lcommands
+ 162. http://www.columbia.edu/kermit/ckermit80.html#ftpuser
+ 163. http://www.columbia.edu/kermit/ckermit80.html#showvar
+ 164. http://www.columbia.edu/kermit/ckermit80.html#callerid
+ 165. http://www.columbia.edu/kermit/ckermit80.html#x6.6
+ 166. http://www.columbia.edu/kermit/ckermit80.html#x0
+ 167. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 168. http://www.columbia.edu/kermit/ckermit80.html#top
+ 169. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 170. http://www.columbia.edu/kermit/ckermit.html
+ 171. http://www.columbia.edu/kermit/index.html
+ 172. http://www.columbia.edu/kermit/ckermit80.html#x0
+ 173. http://www.columbia.edu/kermit/ckermit80.html#top
+ 174. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 175. http://www.columbia.edu/kermit/ckermit.html
+ 176. http://www.columbia.edu/kermit/index.html
+ 177. http://www.columbia.edu/kermit/k95.html
+ 178. http://www.columbia.edu/kermit/sshclient.html
+ 179. http://www.columbia.edu/kermit/skermit.html
+ 180. http://www.columbia.edu/kermit/skermit.html
+ 181. http://www.columbia.edu/kermit/sshclien.htm
+ 182. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 183. ftp://ftp.isi.edu/in-notes/rfc1738.txt
+ 184. http://www.columbia.edu/kermit/ckermit80.html#x2.2.2
+ 185. http://www.columbia.edu/kermit/ckermit80.html#x2.2.1
+ 186. ftp://ftp.isi.edu/in-notes/rfc2396.txt
+ 187. ftp://ftp.isi.edu/in-notes/rfc2616.txt
+ 188. http://www.columbia.edu/kermit/ckermit80.html#x2.2.3
+ 189. ftp://ftp.isi.edu/in-notes/rfc2616.txt
+ 190. http://www.columbia.edu/kermit/ckermit80.html#x8.13.7
+ 191. http://www.columbia.edu/kermit/security.htm#x5.4
+ 192. http://www.columbia.edu/kermit/security.htm#x15
+ 193. http://www.columbia.edu/kermit/security.htm#x6.2
+ 194. http://www.columbia.edu/kermit/security.html
+ 195. http://www.columbia.edu/kermit/ckermit80.html#x16
+ 196. http://www.columbia.edu/kermit/ckermit80.html#top
+ 197. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 198. http://www.columbia.edu/kermit/ckermit.html
+ 199. http://www.columbia.edu/kermit/index.html
+ 200. http://www.columbia.edu/kermit/ckermit80.html#x3.1
+ 201. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 202. http://www.columbia.edu/kermit/ckermit80.html#x3.3
+ 203. http://www.columbia.edu/kermit/ckermit80.html#x3.4
+ 204. http://www.columbia.edu/kermit/ckermit80.html#x3.5
+ 205. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 206. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 207. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 208. http://www.columbia.edu/kermit/ckermit80.html#x3.9
+ 209. http://www.columbia.edu/kermit/ckermit80.html#x3.10
+ 210. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 211. http://www.columbia.edu/kermit/security.htm
+ 212. http://www.columbia.edu/kermit/security.htm#servers
+ 213. http://www.columbia.edu/kermit/ckcsets.html
+ 214. http://www.columbia.edu/kermit/unicode.html
+ 215. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
+ 216. http://www.columbia.edu/kermit/case10.html
+ 217. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 218. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 219. http://www.columbia.edu/kermit/ftpscripts.html
+ 220. http://www.columbia.edu/kermit/ckermit80.html#top
+ 221. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 222. http://www.columbia.edu/kermit/ftpclient.html
223. http://www.columbia.edu/kermit/ftpscripts.html
- 224. http://www.columbia.edu/kermit/ckb2.htm
- 225. http://www.columbia.edu/kermit/ckermit80.html#ftpautolog
- 226. http://www.columbia.edu/kermit/ckermit80.html#ftpuser
- 227. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 228. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 229. http://www.columbia.edu/kermit/ckermit80.html#top
- 230. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 231. http://www.columbia.edu/kermit/ckermit.html
- 232. http://www.columbia.edu/kermit/index.html
- 233. http://www.columbia.edu/kermit/ibm_ie.html
- 234. http://www.columbia.edu/kermit/ckermit80.html#x3.10
- 235. http://www.columbia.edu/kermit/ckermit80.html#top
- 236. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 237. http://www.columbia.edu/kermit/ckermit.html
- 238. http://www.columbia.edu/kermit/index.html
- 239. http://www.columbia.edu/kermit/ck60manual.html
- 240. http://www.columbia.edu/kermit/ckermit70.html#x4.17
- 241. http://www.columbia.edu/kermit/ckermit70.html
- 242. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 243. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 244. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
- 245. http://www.columbia.edu/kermit/security.html
- 246. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 247. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 248. http://www.columbia.edu/kermit/ckermit80.html#x8.13.4
- 249. http://www.columbia.edu/kermit/ckermit80.html#permswitch
- 250. http://www.columbia.edu/kermit/ckermit80.html#ftpchmod
- 251. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
- 252. http://www.columbia.edu/kermit/ckermit80.html#x4
- 253. http://www.columbia.edu/kermit/ckermit80.html#top
- 254. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 255. http://www.columbia.edu/kermit/ckermit.html
- 256. http://www.columbia.edu/kermit/index.html
- 257. http://www.columbia.edu/kermit/ckermit80.html#x7
- 258. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 259. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 260. http://www.columbia.edu/kermit/ckb2.htm
- 261. http://www.columbia.edu/kermit/ckermit80.html#x3.10
- 262. http://www.columbia.edu/kermit/ckermit80.html#x3.10
- 263. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 264. http://www.columbia.edu/kermit/ckermit80.html#setftptype
- 265. http://www.columbia.edu/kermit/ckermit80.html#top
- 266. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 267. http://www.columbia.edu/kermit/ckermit.html
- 268. http://www.columbia.edu/kermit/index.html
- 269. http://www.columbia.edu/kermit/ckermit70.html#x4.9
- 270. http://www.columbia.edu/kermit/ckermit80.html#x3.5.1
- 271. http://www.columbia.edu/kermit/ckermit80.html#erroraction
- 272. http://www.columbia.edu/kermit/ckermit70.html#x1.5
- 273. http://www.columbia.edu/kermit/ckermit70.html#x4.7
- 274. http://www.columbia.edu/kermit/ckermit70.html#x1.6
- 275. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 276. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
- 277. http://www.columbia.edu/kermit/ckermi70.htm
- 278. http://www.columbia.edu/kermit/ckermit80.html#x4
- 279. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 280. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
- 281. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 224. http://www.columbia.edu/kermit/ckermit.html
+ 225. http://www.columbia.edu/kermit/index.html
+ 226. http://www.columbia.edu/kermit/ckermit80.html#x3.1.1
+ 227. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
+ 228. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
+ 229. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
+ 230. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
+ 231. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 232. http://www.columbia.edu/kermit/ckermit80.html#x3.5
+ 233. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 234. http://www.columbia.edu/kermit/ftpscripts.html
+ 235. http://www.columbia.edu/kermit/ckb2.htm
+ 236. http://www.columbia.edu/kermit/ckermit80.html#ftpautolog
+ 237. http://www.columbia.edu/kermit/ckermit80.html#ftpuser
+ 238. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 239. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 240. http://www.columbia.edu/kermit/ckermit80.html#top
+ 241. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 242. http://www.columbia.edu/kermit/ckermit.html
+ 243. http://www.columbia.edu/kermit/index.html
+ 244. http://www.columbia.edu/kermit/ibm_ie.html
+ 245. http://www.columbia.edu/kermit/ckermit80.html#x3.10
+ 246. http://www.columbia.edu/kermit/ckermit80.html#top
+ 247. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 248. http://www.columbia.edu/kermit/ckermit.html
+ 249. http://www.columbia.edu/kermit/index.html
+ 250. http://www.columbia.edu/kermit/ck60manual.html
+ 251. http://www.columbia.edu/kermit/ckermit70.html#x4.17
+ 252. http://www.columbia.edu/kermit/ckermit70.html
+ 253. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 254. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 255. http://www.columbia.edu/kermit/ckermit80.html#x3.1.4
+ 256. http://www.columbia.edu/kermit/security.html
+ 257. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 258. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 259. http://www.columbia.edu/kermit/ckermit80.html#x8.13.4
+ 260. http://www.columbia.edu/kermit/ckermit80.html#permswitch
+ 261. http://www.columbia.edu/kermit/ckermit80.html#ftpchmod
+ 262. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
+ 263. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 264. http://www.columbia.edu/kermit/ckermit80.html#top
+ 265. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 266. http://www.columbia.edu/kermit/ckermit.html
+ 267. http://www.columbia.edu/kermit/index.html
+ 268. http://www.columbia.edu/kermit/ckermit80.html#x7
+ 269. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 270. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 271. http://www.columbia.edu/kermit/ckb2.htm
+ 272. http://www.columbia.edu/kermit/ckermit80.html#x3.10
+ 273. http://www.columbia.edu/kermit/ckermit80.html#x3.10
+ 274. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 275. http://www.columbia.edu/kermit/ckermit80.html#setftptype
+ 276. http://www.columbia.edu/kermit/ckermit80.html#top
+ 277. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 278. http://www.columbia.edu/kermit/ckermit.html
+ 279. http://www.columbia.edu/kermit/index.html
+ 280. http://www.columbia.edu/kermit/ckermit70.html#x4.9
+ 281. http://www.columbia.edu/kermit/ckermit80.html#x3.5.1
282. http://www.columbia.edu/kermit/ckermit80.html#erroraction
- 283. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
- 284. http://www.columbia.edu/kermit/ckermit80.html#erroraction
- 285. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
- 286. http://www.columbia.edu/kermit/ckermit80.html#ftpperms
- 287. http://www.columbia.edu/kermit/ckermit80.html#ftpunique
- 288. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
- 289. http://www.columbia.edu/kermit/ckermit80.html#note_utc
- 290. http://www.columbia.edu/kermit/ckermit80.html#note_date
- 291. http://www.columbia.edu/kermit/ckermit80.html#x3.6
- 292. http://www.boulder.nist.gov/timefreq/faq/faq.htm#10:
- 293. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 294. http://www.columbia.edu/kermit/ckermit80.html#top
- 295. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 296. http://www.columbia.edu/kermit/ckermit.html
- 297. http://www.columbia.edu/kermit/index.html
- 298. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 299. http://www.columbia.edu/kermit/ckermi70.htm#x4.3
- 300. http://www.columbia.edu/kermit/ckermit70.html
- 301. http://www.columbia.edu/kermit/ckermit80.html#x5
- 302. http://www.columbia.edu/kermit/ckermit80.html#x3.6.3
- 303. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
- 304. http://www.columbia.edu/kermit/ckermi70.htm#x4.1
- 305. http://www.columbia.edu/kermit/ckermi70.htm#x4.2.2
- 306. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
- 307. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
- 308. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 283. http://www.columbia.edu/kermit/ckermit70.html#x1.5
+ 284. http://www.columbia.edu/kermit/ckermit70.html#x4.7
+ 285. http://www.columbia.edu/kermit/ckermit70.html#x1.6
+ 286. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 287. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
+ 288. http://www.columbia.edu/kermit/ckermi70.htm
+ 289. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 290. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 291. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
+ 292. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 293. http://www.columbia.edu/kermit/ckermit80.html#erroraction
+ 294. http://www.columbia.edu/kermit/ckermit80.html#x3.5.2
+ 295. http://www.columbia.edu/kermit/ckermit80.html#erroraction
+ 296. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
+ 297. http://www.columbia.edu/kermit/ckermit80.html#ftpperms
+ 298. http://www.columbia.edu/kermit/ckermit80.html#ftpunique
+ 299. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
+ 300. http://www.columbia.edu/kermit/ckermit80.html#note_utc
+ 301. http://www.columbia.edu/kermit/ckermit80.html#note_date
+ 302. http://www.columbia.edu/kermit/ckermit80.html#x3.6
+ 303. http://www.boulder.nist.gov/timefreq/faq/faq.htm#10:
+ 304. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 305. http://www.columbia.edu/kermit/ckermit80.html#top
+ 306. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 307. http://www.columbia.edu/kermit/ckermit.html
+ 308. http://www.columbia.edu/kermit/index.html
309. http://www.columbia.edu/kermit/ckermit80.html#x3.11
- 310. http://www.columbia.edu/kermit/ckermit80.html#srvrename
- 311. http://www.columbia.edu/kermit/ckermi70.htm#x4.1
- 312. http://www.columbia.edu/kermit/ckermi70.htm
- 313. http://www.columbia.edu/kermit/ckb2.htm
+ 310. http://www.columbia.edu/kermit/ckermi70.htm#x4.3
+ 311. http://www.columbia.edu/kermit/ckermit70.html
+ 312. http://www.columbia.edu/kermit/ckermit80.html#x5
+ 313. http://www.columbia.edu/kermit/ckermit80.html#x3.6.3
314. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
- 315. http://www.columbia.edu/kermit/ckermit80.html#x3.5.3
- 316. http://www.proftpd.net/
- 317. http://www.columbia.edu/kermit/ckermit80.html#top
- 318. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 319. http://www.columbia.edu/kermit/ckermit.html
- 320. http://www.columbia.edu/kermit/index.html
- 321. http://www.columbia.edu/kermit/ckb2.htm
- 322. http://www.columbia.edu/kermit/ckcsets.html
- 323. http://www.columbia.edu/kermit/unicode.html
- 324. http://www.columbia.edu/kermit/ckcsets.html
- 325. http://www.columbia.edu/kermit/ckcsets.html
- 326. http://www.columbia.edu/kermit/ckermit80.html#x4
- 327. http://www.columbia.edu/kermit/utf8.html
- 328. http://www.columbia.edu/kermit/ckcsets.html
- 329. http://www.columbia.edu/kermit/ckermit80.html#x4
- 330. ftp://ftp.isi.edu/in-notes/rfc2640.txt
- 331. http://www.columbia.edu/kermit/ckermit80.html#top
- 332. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 333. http://www.columbia.edu/kermit/ckermit.html
- 334. http://www.columbia.edu/kermit/index.html
- 335. http://www.columbia.edu/kermit/ckermit80.html#top
- 336. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 337. http://www.columbia.edu/kermit/ckermit.html
- 338. http://www.columbia.edu/kermit/index.html
- 339. http://www.columbia.edu/kermit/ckermit80.html#top
- 340. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 341. http://www.columbia.edu/kermit/ckermit.html
- 342. http://www.columbia.edu/kermit/index.html
- 343. http://www.columbia.edu/kermit/ftpscripts.html
- 344. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 345. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 346. ftp://ftp.isi.edu/in-notes/rfc959.txt
- 347. http://www.columbia.edu/kermit/ckscripts.html
- 348. http://www.columbia.edu/kermit/ckermit80.html#top
- 349. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 350. http://www.columbia.edu/kermit/ftpscript.html
- 351. http://www.columbia.edu/kermit/ckermit.html
- 352. http://www.columbia.edu/kermit/index.html
- 353. http://www.columbia.edu/kermit/ckermit80.html#x3.11.1
- 354. http://www.columbia.edu/kermit/ckermit80.html#x3.11.2
- 355. http://www.columbia.edu/kermit/ckermit80.html#x3.11.3
- 356. http://www.columbia.edu/kermit/ckermit80.html#x3.11.4
- 357. http://www.columbia.edu/kermit/ckermit80.html#x3.11.5
- 358. http://www.columbia.edu/kermit/ckermit.html
- 359. http://www.columbia.edu/kermit/k95.html
- 360. http://www.columbia.edu/kermit/ckermit80.html#x3.11.5
- 361. ftp://ftp.isi.edu/in-notes/rfc959.txt
- 362. ftp://ftp.isi.edu/in-notes/rfc2389.txt
- 363. http://www.ietf.org/internet-drafts/draft-ietf-ftpext-mlst-16.txt
- 364. http://www.columbia.edu/kermit/ftpclient.html
- 365. http://www.columbia.edu/kermit/ckermit80.html#top
- 366. http://www.columbia.edu/kermit/ckermit80.html#ftp
- 367. http://www.columbia.edu/kermit/ckermit.html
- 368. http://www.columbia.edu/kermit/index.html
- 369. http://www.columbia.edu/kermit/ckermit80.html#x3
- 370. http://www.columbia.edu/kermit/ckermit80.html#ucs2
- 371. http://www.columbia.edu/kermit/ckermit80.html#top
- 372. http://www.columbia.edu/kermit/ckermit80.html#contents
- 373. http://www.columbia.edu/kermit/ckermit.html
- 374. http://www.columbia.edu/kermit/index.html
- 375. http://www.columbia.edu/kermit/ckermit80.html#top
- 376. http://www.columbia.edu/kermit/ckermit80.html#contents
- 377. http://www.columbia.edu/kermit/ckermit.html
- 378. http://www.columbia.edu/kermit/index.html
- 379. http://www.columbia.edu/kermit/ckb2.htm
- 380. http://www.columbia.edu/kermit/ckermit80.html#top
- 381. http://www.columbia.edu/kermit/ckermit80.html#contents
- 382. http://www.columbia.edu/kermit/ckermit.html
- 383. http://www.columbia.edu/kermit/index.html
- 384. http://www.columbia.edu/kermit/ckermit80.html#x4
- 385. http://www.columbia.edu/kermit/ckermit80.html#x4
- 386. http://www.columbia.edu/kermit/ckermit80.html#x8.12
- 387. http://www.columbia.edu/kermit/ckermit80.html#x8.1
- 388. http://www.columbia.edu/kermit/ckermit80.html#x12
- 389. http://www.columbia.edu/kermit/ckermit80.html#x8.12
- 390. http://www.columbia.edu/kermit/ckermit80.html#top
- 391. http://www.columbia.edu/kermit/ckermit80.html#contents
- 392. http://www.columbia.edu/kermit/ckermit.html
- 393. http://www.columbia.edu/kermit/index.html
- 394. http://www.columbia.edu/kermit/ckermit80.html#x8.14
- 395. http://www.columbia.edu/kermit/ckermit80.html#top
- 396. http://www.columbia.edu/kermit/ckermit80.html#contents
- 397. http://www.columbia.edu/kermit/ckermit.html
- 398. http://www.columbia.edu/kermit/index.html
- 399. http://www.columbia.edu/kermit/ckermit80.html#x9
- 400. http://www.columbia.edu/kermit/ckermit80.html#top
- 401. http://www.columbia.edu/kermit/ckermit80.html#contents
- 402. http://www.columbia.edu/kermit/ckermit.html
- 403. http://www.columbia.edu/kermit/index.html
- 404. http://www.columbia.edu/kermit/ckermit80.html#x8.6
- 405. http://www.columbia.edu/kermit/ckermit80.html#top
- 406. http://www.columbia.edu/kermit/ckermit80.html#contents
- 407. http://www.columbia.edu/kermit/ckermit.html
- 408. http://www.columbia.edu/kermit/index.html
- 409. http://www.columbia.edu/kermit/ckermit80.html#top
- 410. http://www.columbia.edu/kermit/ckermit80.html#contents
- 411. http://www.columbia.edu/kermit/ckermit.html
- 412. http://www.columbia.edu/kermit/index.html
- 413. http://www.columbia.edu/kermit/ckermit80.html#top
- 414. http://www.columbia.edu/kermit/ckermit80.html#contents
- 415. http://www.columbia.edu/kermit/ckermit.html
- 416. http://www.columbia.edu/kermit/index.html
- 417. http://www.columbia.edu/kermit/ckermit80.html#fjoin
- 418. http://www.columbia.edu/kermit/ckermit80.html#fsplit
- 419. http://www.columbia.edu/kermit/ckermit80.html#x8.10
+ 315. http://www.columbia.edu/kermit/ckermi70.htm#x4.1
+ 316. http://www.columbia.edu/kermit/ckermi70.htm#x4.2.2
+ 317. http://www.columbia.edu/kermit/ckermi70.htm#x1.5.4
+ 318. http://www.columbia.edu/kermit/ckermit80.html#x3.6.2
+ 319. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 320. http://www.columbia.edu/kermit/ckermit80.html#x3.11
+ 321. http://www.columbia.edu/kermit/ckermit80.html#srvrename
+ 322. http://www.columbia.edu/kermit/ckermi70.htm#x4.1
+ 323. http://www.columbia.edu/kermit/ckermi70.htm
+ 324. http://www.columbia.edu/kermit/ckb2.htm
+ 325. http://www.columbia.edu/kermit/ckermit80.html#ftpfilenames
+ 326. http://www.columbia.edu/kermit/ckermit80.html#x3.5.3
+ 327. http://www.proftpd.net/
+ 328. http://www.columbia.edu/kermit/ckermit80.html#top
+ 329. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 330. http://www.columbia.edu/kermit/ckermit.html
+ 331. http://www.columbia.edu/kermit/index.html
+ 332. http://www.columbia.edu/kermit/ckb2.htm
+ 333. http://www.columbia.edu/kermit/ckcsets.html
+ 334. http://www.columbia.edu/kermit/unicode.html
+ 335. http://www.columbia.edu/kermit/ckcsets.html
+ 336. http://www.columbia.edu/kermit/ckcsets.html
+ 337. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 338. http://www.columbia.edu/kermit/utf8.html
+ 339. http://www.columbia.edu/kermit/ckcsets.html
+ 340. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 341. ftp://ftp.isi.edu/in-notes/rfc2640.txt
+ 342. http://www.columbia.edu/kermit/ckermit80.html#top
+ 343. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 344. http://www.columbia.edu/kermit/ckermit.html
+ 345. http://www.columbia.edu/kermit/index.html
+ 346. http://www.columbia.edu/kermit/ckermit80.html#top
+ 347. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 348. http://www.columbia.edu/kermit/ckermit.html
+ 349. http://www.columbia.edu/kermit/index.html
+ 350. http://www.columbia.edu/kermit/ckermit80.html#top
+ 351. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 352. http://www.columbia.edu/kermit/ckermit.html
+ 353. http://www.columbia.edu/kermit/index.html
+ 354. http://www.columbia.edu/kermit/ftpscripts.html
+ 355. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 356. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 357. ftp://ftp.isi.edu/in-notes/rfc959.txt
+ 358. http://www.columbia.edu/kermit/ckscripts.html
+ 359. http://www.columbia.edu/kermit/ckermit80.html#top
+ 360. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 361. http://www.columbia.edu/kermit/ftpscript.html
+ 362. http://www.columbia.edu/kermit/ckermit.html
+ 363. http://www.columbia.edu/kermit/index.html
+ 364. http://www.columbia.edu/kermit/ckermit80.html#x3.11.1
+ 365. http://www.columbia.edu/kermit/ckermit80.html#x3.11.2
+ 366. http://www.columbia.edu/kermit/ckermit80.html#x3.11.3
+ 367. http://www.columbia.edu/kermit/ckermit80.html#x3.11.4
+ 368. http://www.columbia.edu/kermit/ckermit80.html#x3.11.5
+ 369. http://www.columbia.edu/kermit/ckermit.html
+ 370. http://www.columbia.edu/kermit/k95.html
+ 371. http://www.columbia.edu/kermit/ckermit80.html#x3.11.5
+ 372. ftp://ftp.isi.edu/in-notes/rfc959.txt
+ 373. ftp://ftp.isi.edu/in-notes/rfc2389.txt
+ 374. http://www.ietf.org/internet-drafts/draft-ietf-ftpext-mlst-16.txt
+ 375. http://www.columbia.edu/kermit/ftpclient.html
+ 376. http://www.columbia.edu/kermit/ckermit80.html#top
+ 377. http://www.columbia.edu/kermit/ckermit80.html#ftp
+ 378. http://www.columbia.edu/kermit/ckermit.html
+ 379. http://www.columbia.edu/kermit/index.html
+ 380. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 381. http://www.columbia.edu/kermit/ckermit80.html#ucs2
+ 382. http://www.columbia.edu/kermit/ckermit80.html#top
+ 383. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 384. http://www.columbia.edu/kermit/ckermit.html
+ 385. http://www.columbia.edu/kermit/index.html
+ 386. http://www.columbia.edu/kermit/ckermit80.html#top
+ 387. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 388. http://www.columbia.edu/kermit/ckermit.html
+ 389. http://www.columbia.edu/kermit/index.html
+ 390. http://www.columbia.edu/kermit/ckb2.htm
+ 391. http://www.columbia.edu/kermit/ckermit80.html#top
+ 392. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 393. http://www.columbia.edu/kermit/ckermit.html
+ 394. http://www.columbia.edu/kermit/index.html
+ 395. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 396. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 397. http://www.columbia.edu/kermit/ckermit80.html#x8.12
+ 398. http://www.columbia.edu/kermit/ckermit80.html#x8.1
+ 399. http://www.columbia.edu/kermit/ckermit80.html#x12
+ 400. http://www.columbia.edu/kermit/ckermit80.html#x8.12
+ 401. http://www.columbia.edu/kermit/ckermit80.html#top
+ 402. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 403. http://www.columbia.edu/kermit/ckermit.html
+ 404. http://www.columbia.edu/kermit/index.html
+ 405. http://www.columbia.edu/kermit/ckermit80.html#x8.14
+ 406. http://www.columbia.edu/kermit/ckermit80.html#top
+ 407. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 408. http://www.columbia.edu/kermit/ckermit.html
+ 409. http://www.columbia.edu/kermit/index.html
+ 410. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 411. http://www.columbia.edu/kermit/ckermit80.html#top
+ 412. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 413. http://www.columbia.edu/kermit/ckermit.html
+ 414. http://www.columbia.edu/kermit/index.html
+ 415. http://www.columbia.edu/kermit/ckermit80.html#x8.6
+ 416. http://www.columbia.edu/kermit/ckermit80.html#top
+ 417. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 418. http://www.columbia.edu/kermit/ckermit.html
+ 419. http://www.columbia.edu/kermit/index.html
420. http://www.columbia.edu/kermit/ckermit80.html#top
421. http://www.columbia.edu/kermit/ckermit80.html#contents
422. http://www.columbia.edu/kermit/ckermit.html
423. http://www.columbia.edu/kermit/index.html
- 424. http://www.columbia.edu/kermit/ckermit80.html#x9
- 425. http://www.columbia.edu/kermit/ckermit80.html#x9
- 426. http://www.columbia.edu/kermit/ckermit80.html#x9
- 427. http://www.columbia.edu/kermit/ckermit80.html#x3
- 428. http://www.columbia.edu/kermit/ckermit80.html#x3
- 429. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 430. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 431. http://www.columbia.edu/kermit/ckermit80.html#x3.8
- 432. http://www.columbia.edu/kermit/ckermit80.html#x3
- 433. http://www.columbia.edu/kermit/ckermit80.html#x3
- 434. http://www.columbia.edu/kermit/ckermit80.html#x3
- 435. http://www.columbia.edu/kermit/ckermit80.html#x3.2
- 436. http://www.columbia.edu/kermit/ckermit80.html#x3
- 437. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 438. http://www.columbia.edu/kermit/ckermit80.html#x8.13
- 439. http://www.columbia.edu/kermit/ckermit80.html#x9
- 440. http://www.columbia.edu/kermit/ckermit80.html#x8.10
- 441. http://www.columbia.edu/kermit/ckermit80.html#x8.7.4
- 442. http://www.columbia.edu/kermit/ckermit80.html#top
- 443. http://www.columbia.edu/kermit/ckermit80.html#contents
- 444. http://www.columbia.edu/kermit/ckermit.html
- 445. http://www.columbia.edu/kermit/index.html
- 446. http://www.columbia.edu/kermit/ckermit80.html#top
- 447. http://www.columbia.edu/kermit/ckermit80.html#contents
- 448. http://www.columbia.edu/kermit/ckermit.html
- 449. http://www.columbia.edu/kermit/index.html
- 450. http://www.columbia.edu/kermit/ckermit80.html#top
- 451. http://www.columbia.edu/kermit/ckermit80.html#contents
- 452. http://www.columbia.edu/kermit/ckermit.html
- 453. http://www.columbia.edu/kermit/index.html
- 454. http://www.columbia.edu/kermit/ckermit80.html#x8.7
- 455. http://www.columbia.edu/kermit/ckermit80.html#top
- 456. http://www.columbia.edu/kermit/ckermit80.html#contents
- 457. http://www.columbia.edu/kermit/ckermit.html
- 458. http://www.columbia.edu/kermit/index.html
- 459. http://www.columbia.edu/kermit/ckermit80.html#scriptedit
- 460. http://www.columbia.edu/kermit/ckermit80.html#top
- 461. http://www.columbia.edu/kermit/ckermit80.html#contents
- 462. http://www.columbia.edu/kermit/ckermit.html
- 463. http://www.columbia.edu/kermit/index.html
- 464. http://www.columbia.edu/kermit/ckermit80.html#top
- 465. http://www.columbia.edu/kermit/ckermit80.html#contents
- 466. http://www.columbia.edu/kermit/ckermit.html
- 467. http://www.columbia.edu/kermit/index.html
- 468. ftp://ftp.isi.edu/in-notes/rfc2822.txt
- 469. ftp://ftp.isi.edu/in-notes/rfc2822.txt
- 470. ftp://ftp.isi.edu/in-notes/rfc2822.txt
- 471. ftp://ftp.isi.edu/in-notes/rfc2822.txt
- 472. http://www.columbia.edu/kermit/ckermit80.html#top
- 473. http://www.columbia.edu/kermit/ckermit80.html#contents
- 474. http://www.columbia.edu/kermit/ckermit.html
- 475. http://www.columbia.edu/kermit/index.html
- 476. http://www.columbia.edu/kermit/ckermit80.html#x8.1
- 477. http://www.columbia.edu/kermit/ckermit80.html#top
- 478. http://www.columbia.edu/kermit/ckermit80.html#contents
- 479. http://www.columbia.edu/kermit/ckermit.html
- 480. http://www.columbia.edu/kermit/index.html
- 481. http://www.columbia.edu/kermit/ckermit80.html#x8.2
- 482. http://www.columbia.edu/kermit/ckermit80.html#top
- 483. http://www.columbia.edu/kermit/ckermit80.html#contents
- 484. http://www.columbia.edu/kermit/ckermit.html
- 485. http://www.columbia.edu/kermit/index.html
- 486. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 487. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 488. http://www.columbia.edu/kermit/ckermit80.html#x8.2
- 489. http://www.columbia.edu/kermit/ckermit80.html#top
- 490. http://www.columbia.edu/kermit/ckermit80.html#contents
- 491. http://www.columbia.edu/kermit/ckermit.html
- 492. http://www.columbia.edu/kermit/index.html
+ 424. http://www.columbia.edu/kermit/ckermit80.html#top
+ 425. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 426. http://www.columbia.edu/kermit/ckermit.html
+ 427. http://www.columbia.edu/kermit/index.html
+ 428. http://www.columbia.edu/kermit/ckermit80.html#fjoin
+ 429. http://www.columbia.edu/kermit/ckermit80.html#fsplit
+ 430. http://www.columbia.edu/kermit/ckermit80.html#x8.10
+ 431. http://www.columbia.edu/kermit/ckermit80.html#top
+ 432. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 433. http://www.columbia.edu/kermit/ckermit.html
+ 434. http://www.columbia.edu/kermit/index.html
+ 435. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 436. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 437. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 438. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 439. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 440. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 441. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 442. http://www.columbia.edu/kermit/ckermit80.html#x3.8
+ 443. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 444. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 445. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 446. http://www.columbia.edu/kermit/ckermit80.html#x3.2
+ 447. http://www.columbia.edu/kermit/ckermit80.html#x3
+ 448. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 449. http://www.columbia.edu/kermit/ckermit80.html#x8.13
+ 450. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 451. http://www.columbia.edu/kermit/ckermit80.html#x8.10
+ 452. http://www.columbia.edu/kermit/ckermit80.html#x8.7.4
+ 453. http://www.columbia.edu/kermit/ckermit80.html#top
+ 454. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 455. http://www.columbia.edu/kermit/ckermit.html
+ 456. http://www.columbia.edu/kermit/index.html
+ 457. http://www.columbia.edu/kermit/ckermit80.html#top
+ 458. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 459. http://www.columbia.edu/kermit/ckermit.html
+ 460. http://www.columbia.edu/kermit/index.html
+ 461. http://www.columbia.edu/kermit/ckermit80.html#top
+ 462. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 463. http://www.columbia.edu/kermit/ckermit.html
+ 464. http://www.columbia.edu/kermit/index.html
+ 465. http://www.columbia.edu/kermit/ckermit80.html#x8.7
+ 466. http://www.columbia.edu/kermit/ckermit80.html#top
+ 467. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 468. http://www.columbia.edu/kermit/ckermit.html
+ 469. http://www.columbia.edu/kermit/index.html
+ 470. http://www.columbia.edu/kermit/ckermit80.html#scriptedit
+ 471. http://www.columbia.edu/kermit/ckermit80.html#top
+ 472. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 473. http://www.columbia.edu/kermit/ckermit.html
+ 474. http://www.columbia.edu/kermit/index.html
+ 475. http://www.columbia.edu/kermit/ckermit80.html#top
+ 476. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 477. http://www.columbia.edu/kermit/ckermit.html
+ 478. http://www.columbia.edu/kermit/index.html
+ 479. ftp://ftp.isi.edu/in-notes/rfc2822.txt
+ 480. ftp://ftp.isi.edu/in-notes/rfc2822.txt
+ 481. ftp://ftp.isi.edu/in-notes/rfc2822.txt
+ 482. ftp://ftp.isi.edu/in-notes/rfc2822.txt
+ 483. http://www.columbia.edu/kermit/ckermit80.html#top
+ 484. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 485. http://www.columbia.edu/kermit/ckermit.html
+ 486. http://www.columbia.edu/kermit/index.html
+ 487. http://www.columbia.edu/kermit/ckermit80.html#x8.1
+ 488. http://www.columbia.edu/kermit/ckermit80.html#top
+ 489. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 490. http://www.columbia.edu/kermit/ckermit.html
+ 491. http://www.columbia.edu/kermit/index.html
+ 492. http://www.columbia.edu/kermit/ckermit80.html#x8.2
493. http://www.columbia.edu/kermit/ckermit80.html#top
494. http://www.columbia.edu/kermit/ckermit80.html#contents
495. http://www.columbia.edu/kermit/ckermit.html
496. http://www.columbia.edu/kermit/index.html
497. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 498. http://www.columbia.edu/kermit/ckermit80.html#top
- 499. http://www.columbia.edu/kermit/ckermit80.html#contents
- 500. http://www.columbia.edu/kermit/ckermit.html
- 501. http://www.columbia.edu/kermit/index.html
- 502. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 503. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 504. http://www.columbia.edu/kermit/ckermit80.html#x9.6
- 505. http://www.columbia.edu/kermit/ckermit80.html#top
- 506. http://www.columbia.edu/kermit/ckermit80.html#contents
- 507. http://www.columbia.edu/kermit/ckermit.html
- 508. http://www.columbia.edu/kermit/index.html
- 509. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 510. http://www.columbia.edu/kermit/ckermit80.html#x9.8
- 511. http://www.columbia.edu/kermit/ckermit80.html#top
- 512. http://www.columbia.edu/kermit/ckermit80.html#contents
- 513. http://www.columbia.edu/kermit/ckermit.html
- 514. http://www.columbia.edu/kermit/index.html
- 515. http://www.columbia.edu/kermit/ckermit80.html#top
- 516. http://www.columbia.edu/kermit/ckermit80.html#contents
- 517. http://www.columbia.edu/kermit/ckermit.html
- 518. http://www.columbia.edu/kermit/index.html
- 519. http://www.columbia.edu/kermit/ckermit80.html#top
- 520. http://www.columbia.edu/kermit/ckermit80.html#contents
- 521. http://www.columbia.edu/kermit/ckermit.html
- 522. http://www.columbia.edu/kermit/index.html
- 523. mailto:thucdat@hotmail.com
- 524. http://www.columbia.edu/kermit/ckermit80.html#x9.9.2
- 525. http://www.columbia.edu/kermit/ckermit80.html#top
- 526. http://www.columbia.edu/kermit/ckermit80.html#contents
- 527. http://www.columbia.edu/kermit/ckermit.html
- 528. http://www.columbia.edu/kermit/index.html
- 529. http://www.columbia.edu/kermit/ckermit80.html#top
- 530. http://www.columbia.edu/kermit/ckermit80.html#contents
- 531. http://www.columbia.edu/kermit/ckermit.html
- 532. http://www.columbia.edu/kermit/index.html
- 533. http://www.columbia.edu/kermit/ckermit80.html#top
- 534. http://www.columbia.edu/kermit/ckermit80.html#contents
- 535. http://www.columbia.edu/kermit/ckermit.html
- 536. http://www.columbia.edu/kermit/index.html
- 537. http://www.columbia.edu/kermit/ckermit80.html#x9.2
- 538. http://www.columbia.edu/kermit/ckermit80.html#top
- 539. http://www.columbia.edu/kermit/ckermit80.html#contents
- 540. http://www.columbia.edu/kermit/ckermit.html
- 541. http://www.columbia.edu/kermit/index.html
- 542. http://www.columbia.edu/kermit/ckermit80.html#x4
- 543. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 498. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 499. http://www.columbia.edu/kermit/ckermit80.html#x8.2
+ 500. http://www.columbia.edu/kermit/ckermit80.html#top
+ 501. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 502. http://www.columbia.edu/kermit/ckermit.html
+ 503. http://www.columbia.edu/kermit/index.html
+ 504. http://www.columbia.edu/kermit/ckermit80.html#top
+ 505. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 506. http://www.columbia.edu/kermit/ckermit.html
+ 507. http://www.columbia.edu/kermit/index.html
+ 508. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 509. http://www.columbia.edu/kermit/ckermit80.html#top
+ 510. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 511. http://www.columbia.edu/kermit/ckermit.html
+ 512. http://www.columbia.edu/kermit/index.html
+ 513. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 514. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 515. http://www.columbia.edu/kermit/ckermit80.html#x9.6
+ 516. http://www.columbia.edu/kermit/ckermit80.html#top
+ 517. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 518. http://www.columbia.edu/kermit/ckermit.html
+ 519. http://www.columbia.edu/kermit/index.html
+ 520. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 521. http://www.columbia.edu/kermit/ckermit80.html#x9.8
+ 522. http://www.columbia.edu/kermit/ckermit80.html#top
+ 523. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 524. http://www.columbia.edu/kermit/ckermit.html
+ 525. http://www.columbia.edu/kermit/index.html
+ 526. http://www.columbia.edu/kermit/ckermit80.html#top
+ 527. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 528. http://www.columbia.edu/kermit/ckermit.html
+ 529. http://www.columbia.edu/kermit/index.html
+ 530. http://www.columbia.edu/kermit/ckermit80.html#top
+ 531. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 532. http://www.columbia.edu/kermit/ckermit.html
+ 533. http://www.columbia.edu/kermit/index.html
+ 534. mailto:thucdat@hotmail.com
+ 535. http://www.columbia.edu/kermit/ckermit80.html#x9.9.2
+ 536. http://www.columbia.edu/kermit/ckermit80.html#top
+ 537. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 538. http://www.columbia.edu/kermit/ckermit.html
+ 539. http://www.columbia.edu/kermit/index.html
+ 540. http://www.columbia.edu/kermit/ckermit80.html#top
+ 541. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 542. http://www.columbia.edu/kermit/ckermit.html
+ 543. http://www.columbia.edu/kermit/index.html
544. http://www.columbia.edu/kermit/ckermit80.html#top
545. http://www.columbia.edu/kermit/ckermit80.html#contents
546. http://www.columbia.edu/kermit/ckermit.html
547. http://www.columbia.edu/kermit/index.html
- 548. http://www.columbia.edu/kermit/ckermit80.html#top
- 549. http://www.columbia.edu/kermit/ckermit80.html#contents
- 550. http://www.columbia.edu/kermit/ckermit.html
- 551. http://www.columbia.edu/kermit/index.html
- 552. http://www.columbia.edu/kermit/ckermit80.html#top
- 553. http://www.columbia.edu/kermit/ckermit80.html#contents
- 554. http://www.columbia.edu/kermit/ckermit.html
- 555. http://www.columbia.edu/kermit/index.html
- 556. http://www.columbia.edu/kermit/ckermit80.html#x4
- 557. http://www.columbia.edu/kermit/ckermit80.html#x3.7
- 558. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 548. http://www.columbia.edu/kermit/ckermit80.html#x9.2
+ 549. http://www.columbia.edu/kermit/ckermit80.html#top
+ 550. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 551. http://www.columbia.edu/kermit/ckermit.html
+ 552. http://www.columbia.edu/kermit/index.html
+ 553. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 554. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 555. http://www.columbia.edu/kermit/ckermit80.html#top
+ 556. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 557. http://www.columbia.edu/kermit/ckermit.html
+ 558. http://www.columbia.edu/kermit/index.html
559. http://www.columbia.edu/kermit/ckermit80.html#top
560. http://www.columbia.edu/kermit/ckermit80.html#contents
561. http://www.columbia.edu/kermit/ckermit.html
562. http://www.columbia.edu/kermit/index.html
- 563. ftp://ftp.isi.edu/in-notes/rfc2217.txt
- 564. http://www.columbia.edu/kermit/ckermit80.html#top
- 565. http://www.columbia.edu/kermit/ckermit80.html#contents
- 566. ftp://kermit.columbia.edu/kermit/sredird/
- 567. http://www.columbia.edu/kermit/ckermit.html
- 568. http://www.columbia.edu/kermit/index.html
- 569. http://www.columbia.edu/kermit/ckermi70.htm#x4.22
+ 563. http://www.columbia.edu/kermit/ckermit80.html#top
+ 564. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 565. http://www.columbia.edu/kermit/ckermit.html
+ 566. http://www.columbia.edu/kermit/index.html
+ 567. http://www.columbia.edu/kermit/ckermit80.html#x4
+ 568. http://www.columbia.edu/kermit/ckermit80.html#x3.7
+ 569. http://www.columbia.edu/kermit/ckermit80.html#x3.7
570. http://www.columbia.edu/kermit/ckermit80.html#top
571. http://www.columbia.edu/kermit/ckermit80.html#contents
572. http://www.columbia.edu/kermit/ckermit.html
573. http://www.columbia.edu/kermit/index.html
- 574. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
- 575. http://www.columbia.edu/kermit/cuiksd.html
- 576. http://www.columbia.edu/kermit/ckermit80.html#top
- 577. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 574. ftp://ftp.isi.edu/in-notes/rfc2217.txt
+ 575. http://www.columbia.edu/kermit/ckermit80.html#top
+ 576. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 577. ftp://kermit.columbia.edu/kermit/sredird/
578. http://www.columbia.edu/kermit/ckermit.html
579. http://www.columbia.edu/kermit/index.html
- 580. http://www.columbia.edu/kermit/ckermit80.html#top
- 581. http://www.columbia.edu/kermit/ckermit80.html#contents
- 582. http://www.columbia.edu/kermit/ckermit.html
- 583. http://www.columbia.edu/kermit/index.html
+ 580. http://www.columbia.edu/kermit/ckermi70.htm#x4.22
+ 581. http://www.columbia.edu/kermit/ckermit80.html#top
+ 582. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 583. http://www.columbia.edu/kermit/ckermit.html
584. http://www.columbia.edu/kermit/index.html
+ 585. http://www.columbia.edu/kermit/ckermit80.html#x3.1.3
+ 586. http://www.columbia.edu/kermit/cuiksd.html
+ 587. http://www.columbia.edu/kermit/ckermit80.html#top
+ 588. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 589. http://www.columbia.edu/kermit/ckermit.html
+ 590. http://www.columbia.edu/kermit/index.html
+ 591. http://www.columbia.edu/kermit/ckermit80.html#top
+ 592. http://www.columbia.edu/kermit/ckermit80.html#contents
+ 593. http://www.columbia.edu/kermit/ckermit.html
+ 594. http://www.columbia.edu/kermit/index.html
+ 595. http://www.columbia.edu/kermit/index.html
--- /dev/null
+
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
+
+
+ [11]CLICK HERE to read about some of these items.
+
+ [12]Table of platforms [13]Book: Using C-Kermit [14]Download
+ C-Kermit 9.0
+
+C-Kermit 9.0 Update Notes
+
+ Note: C-Kermit 9.0.301 contains a correction that applies only to
+ Solaris 10 and 11.
+ C-Kermit 9.0.302 contains corrections that apply only to FreeBSD 8
+ and 9.
+ * [15]Large Files
+ * [16]How to Test Large-File Transfer
+ * [17]Arithmetic with Large Integers
+ * [18]FORCE-3 Packet Protocol
+ * [19]Variable Evaluation
+
+ * [20]The RENAME Command You Always Wanted
+ * [21]Other New Features
+ * [22]Incompatibilities
+ * [23]What's Not In C-Kermit 9.0
+ * [24]And a Loose End
+
+ * [25]Demonstration: Secure POP mail fetcher
+ * [26]Demonstration: HP Switch Configuration Backup
+ * [27]Demonstration: HP iLO Blade Configuration
+ * [28]Demonstration: IBM/Rolm/Siemens CBX Management
+ * [29]Demonstration: CSV and TSV Files
+ * [30]Demonstration Scripts for Webmasters
+
+ This is the third supplement to [31]Using C-Kermit, Second Edition. I
+ apologize for the scattered nature of the information and I hope I can
+ organize it and gather it all into one place for easy and definitive
+ reference some day. It's a big job so it depends on the demand. For the
+ time being the definitive reference and introduction is the book (which
+ is now available also in a [32]Kindle Edition), plus the [33]C-Kermit
+ 7.0 update, [34]C-Kermit 8.0 update, and now this one. Plus tons of
+ other web pages on this site, sample script programs, and so on.
+
+ In version 6.0, C-Kermit was a pretty powerful and flexible
+ communication program with scripting capabilities. By version 9.0, I'd
+ like to think of it more as a scripting language with built-in
+ communications. You can get an idea of the kinds of programs you can
+ write in Kermit language [35]here. You can develop programs quickly
+ because it's an interactive program, not a compiler. The scripting
+ language is the command language. Kind of like the Unix shell but
+ "somewhat" less cryptic, including concepts not only from C but from
+ PL/I, Snobol, LISP, Bliss, and Smalltalk. The language itself is built
+ upon the command language of the much-loved [36]DECSYSTEM-20 from the
+ 1970s and 80s, the Clipper Ship of the Text Era. (Text is not a bad
+ word. Those of us who can touch-type and who are proficient in
+ text-based computing environments like Unix shell or VMS DCL are likely
+ to be orders of magnitude more productive than users of GUIs.)
+
+ Thanks to (at least) Jeff Altman, William Bader, Ian Beckwith, Nelson
+ Beebe, Gerry Belanger, Joop Boonen, Rob Brown, Christian Corti, Alexey
+ Dokuchaev, John Dunlap, Peter Eichhorn, Carl Friedberg, Terry Kennedy,
+ Günter Knauf, Jason Lehr, Arthur Marsh, Lewis McCarthy, Gary Mills, Ed
+ Ravin, Jonathan Reams, Mike Rechtman, Mark Sapiro, Steven Schweda
+ (SMS), Kinjal Shah, Michael Sokolov, Andy Tanenbaum, Seth Theriault,
+ Zach A. Thomas, Martin Vorländer, and Eric Weaver for assistance, and
+ to Hewlett-Packard Company for support.
+
+ - Frank da Cruz [37]fdc@columbia.edu, 30 June 2011
+
+ P.S. It occurred to me just before the end of the day that maybe I
+ should back up the Kermit website on DVD, just in case. Using
+ [38]Kermit 95 on the desktop over an SSH connection to the Unix file
+ system where the website resides, I made a fresh directory on the PC,
+ CD'd to it, and on Unix cd'd to the Website directory, and told
+ C-Kermit 9.0 to:
+
+C-Kermit> send /recursive /dotfiles /nobackup *
+
+ and it re-created the website directory tree in the PC directory, text
+ files correctly converted to Windows format and binary files correctly
+ left as-is. The /dotfiles switch means to include files such as
+ .htaccess whose names start with a dot (period), and the /nobackup
+ switch means to skip backup files created by EMACs (such as
+ index.html.~243~). And then I did the same with the FTP sites, about
+ 8GB in all. Watching the file-transfer display was kind of like having
+ 30 years of my life flash before my eyes in a few minutes. Then I
+ copied the two directories to DVD (the FTP site had to be split over 2
+ DVDs). The whole operation took under half an hour. The directory tree
+ on the CD is directly usable in Windows, Unix, or any other operating
+ system (unlike if I had transferred the files all in binary mode or all
+ in text mode, or if I had made, say, a gzipped tar archive or a zip
+ archive). I believe that, to this day, Kermit is the only software that
+ can do this. If someday I have to upload from these DVDs to Unix, VMS,
+ or any other operating system, it can be done exactly the same way,
+ with any necessary conversions on text files done automatically, and
+ binary files left intact, recursively through a whole very large
+ directory tree.
+
+What's New in General
+
+ Very briefly, the major items:
+ * [39]Open Source license.
+ * [40]64-bit file access and transfer and 64-bit integer arithmetic
+ on most common platforms.
+ * Support for recent releases of Linux, Mac OS X, *BSD, etc ([41]see
+ table).
+ * Support for newer OpenSSL releases up to and including 1.0.0d
+ ([42]see table).
+ * [43]Strengthened error checking for file transfer under extremely
+ harsh conditions.
+ * [44]Simplified semantics for variables used in scripts.
+ * Super-handy [45]extensions to the RENAME command.
+ * Other scripting improvements including support for reading and
+ writing [46]CSV and TSV files.
+ * [47]MIME character-set names are now recognized.
+ * Improved logging and debugging (see demo [48]here).
+ * Lots more described or listed below, and [49]here.
+
+Open Source License
+
+ C-Kermit 9.0 has the [50]Revised 3-Clause BSD License, an open source
+ license approved by OSI, the [51]Open Source Initiative.
+
+Large Files
+
+ Kermit is, first and foremost, a file-transfer program. One might
+ expect it to be able to transfer any kind of file, but that has been
+ decreasingly the case as file sizes began to cross the 2 gigabyte
+ threshold.
+
+ The biggest change since C-Kermit 8.0.211 is support for large files on
+ platforms that support them. A "large file" is one whose size is
+ greater than 2^31-1 (2,147,483,647) bytes (2GB-1); that is, one whose
+ size requires more than 31 bits to represent. Before now, Kermit was
+ able to access such files only on 100% 64-bit platforms such as Digital
+ Unix, later known as Tru64 Unix. In the new release, Kermit takes
+ advantage of the X/Open Single UNIX Specification Version 2 (UNIX 98)
+ Large File Support (LFS) specification, which allows 32-bit platforms
+ to create, access, and manage files larger than 2GB.
+
+ Accommodating large files required code changes in many modules,
+ affecting not only file transfer, but also file management functions
+ from directory listings to local file manipulation, plus the user
+ interface itself to allow entry and display of large numbers. All this
+ had to be done in a way that would not affect pure 32-bit builds on
+ platforms that do not support large files. Large file support is
+ summarized in the [52]Table of Platforms; entries in Yellow (32-bit
+ builds that support 64-bit integers) and Green (64-bit builds) support
+ large files.
+
+ Note that VMS C-Kermit and Kermit 95 for Windows have always been able
+ to transfer large files. However their user interface used 32-bit
+ integers for statistics and the file transfer display. In C-Kermit 9.0
+ Alpha.03, VMS C-Kermit on 64-bit platforms (Alpha and Itanium) should
+ now give correct statistics and progress displays. (We'll see about
+ Kermit 95 later.)
+
+How to Test Large-File Transfer
+
+ Several methods are available for testing large-file transfers:
+ * By transferring a real file that is more than 2147483648 bytes long
+ (a file whose length requires more than 31 bits to express); or to
+ be totally sure, that is longer than 4294967296 bytes (32 bits or
+ more). Or to be double super sure, longer than 8589934592 (33
+ bits).
+ * If you don't have such a file or there is not sufficient disk space
+ for such a file, you can create a special kind of file that takes
+ up one block on the disk but appears to be 4.3GB long by compiling
+ and running [53]THIS C PROGRAM on Linux, Solaris, HP-UX, or other
+ Unix platform that supports large files. Kermit or FTP or any other
+ file transfer program will transfer the result (BIGFILE) in such a
+ way as to actually put 4.3GB (or other desired size; see source) on
+ the wire.
+ * You can use Kermit's CALIBRATE feature to transfer a large file
+ that doesn't exist. At the receiver, use RECEIVE /CALIBRATE. At the
+ sender, use SEND /CALIBRATE:length, e.g.:
+
+ (At remote kermit...)
+ $ kermit -Y
+ C-Kermit> receive /calibrate
+ (Return to local kermit...)
+ Ctrl-\c
+ C-Kermit> send /calibrate:4300000000
+ This sends a simulated file 4.3GB in length, that does not exist on
+ the sender and will not take up any disk space on the receiver.
+ SEND /CALIBRATE: accepts big numbers only in Kermit versions that
+ support them (this does not include Kermit 95 on Windows). This
+ method tests only Kermit's ability to express and understand large
+ file sizes, but does not test Kermit's file-system interface, since
+ no files are involved.
+
+Arithmetic with Large Integers
+
+ Because large file support requires the availability of a 64-bit signed
+ integer data type, other aspects of C-Kermit were adapted to use it
+ too, most notably Kermit's algebraic expression evaluator and its
+ [54]S-Expression interpreter, on all platforms that support large files
+ (those listed as 64 or 32/64 in the Word column of the [55]table). In
+ fact, every Kermit command that parses a number in any field can now
+ parse a large number on those platforms.
+
+ S-Expressions can now be forced to operate with integers only, without
+ floating-point conversion or having to explicitly truncate each result;
+ as an example. see the revised [56]Easter date calculation script.
+
+FORCE-3 Packet Protocol
+
+ The Kermit protocol has proven itself over the past 30 years to be
+ robust in terms of surviving harsh transmission environments and
+ delivering the data correctly and completely. In these times of
+ Internet everywhere and error-correcting modems in the few places where
+ the Internet isn't, few people even recall the kinds of difficult
+ conditions that were common when the Kermit protocol was first
+ developed: noisy telephone lines, serial interfaces that drop
+ characters, lack of transparency to control or 8-bit characters,
+ absence of flow control, "bare" modems without error correction.
+
+ But the Internet is not everywhere, and not all modems are
+ error-correcting. Perhaps the most difficult trial so far for Kermit or
+ any other protocol is the [57]EM-APEX project, in which floats are
+ dropped into the ocean from an aircraft into the path of a hurricane;
+ these floats dive into the water measuring current, temperature, and
+ salinity at different depths and then surface to phone home, sending
+ the data to land stations using Kermit protocol over
+ non-error-correcting 300bps [58]Iridium satellite modems, with high
+ seas and winds battering the floats and heavy ([59]sometimes
+ electrical) storms between the modem and the satellite.
+
+ Because of the transmission speed and long distances involved, the
+ transfers were very slow. The Kermit software in the floats is
+ [60]Embedded Kermit, which did not implement sliding windows, which
+ would have sped up the flow considerably. John Dunlap, engineer at the
+ University of Washington's Applied Physics Laboratory, undertook the
+ task of adding sliding windows to E-Kermit. For testing, he rigged up a
+ [61]simulator in which Kermit transfers take place over a connection
+ with different amounts of noise and delay. He found that occasionally,
+ a transfer would appear to succeed, but the received file would be
+ corrupt.
+
+ According to the Kermit protocol definition, the first packet always
+ has block-check type 1, a 6-bit checksum, which is the only block check
+ type that all Kermit implementations are required to support; thus any
+ Kermit partner can process this packet. This packet itself can
+ negotiate a higher level of checking, such that subsequent packets have
+ (say) block-check type 3, a 16-bit cyclic redundancy check (CRC)
+ encoded as three printable 7-bit ASCII characters. The 16-bit CRC can
+ catch all errors of certain kinds (single-bit, double-bit, bursts of 16
+ bits or less), and more than 99.9984741210937% of all other possible
+ errors.
+
+ John's simulations revealed that file corruption could occur undetected
+ when the initial packet was corrupted in such a way that a parameter or
+ capability byte was changed and the checksum also changed to make the
+ packet appear to be correct, thus allowing the transfer to proceed with
+ the two Kermit partners out of sync as to packet encoding and
+ interpretation (the chances of two such errors producing a seemingly
+ valid packet are about 1 in 6000 when using the 6-bit checksum). For
+ example, the compression technique might be misnegotiated and then the
+ receiver might store incoming data without decompressing it.
+
+ The solution is a new option, selected by:
+
+ BLOCK-CHECK TYPE 5
+
+ to require a type 3 block check (16-bit CRC) on every packet, including
+ the initial ones, thus reducing the probability of a misnegotiation by
+ many orders of magnitude. THIS PARAMETER CAN NOT BE NEGOTIATED. Each
+ Kermit program must be given the "set block 5" command prior to
+ transfer. That's because normally every Kermit program expects the
+ first packet to have a 6-bit checksum, and if the first packet has a
+ 3-byte, 16-bit CRC, the packet receiver will think it is corrupted.
+
+ In practice, however, it is possible to code the packet receiver
+ "cheat" by reading the packet data before verifying the block check.
+ Thus when the receiver is C-Kermit 9.0 or later or E-Kermit 1.7 or
+ later, it is only necessary to give the "set block 5" command to the
+ file sender, and the receiver will check for a FORCE-3 first packet. If
+ the receiver does not support this feature, however, the initial packet
+ will be be rejected (after several retries) and the file transfer will
+ not take place. There is no attempt to "back off" to normal behavior.
+
+ CAPTION: Table 4. Kermit Protocol Packet Block Check Types
+
+ Type Command Bytes Status Explanation
+ 1 SET BLOCK 1 1 Required in all Kermit implementations. Negotiated.
+ 6-bit checksum, suitable for good connections.
+ 2 SET BLOCK 2 2 Optional, negotiated. 12-bit checksum. 64 times
+ stronger than type 1.
+ 3 SET BLOCK 3 3 Optional, negotiated. 16-bit CRC.
+ BLANK-FREE-2 SET BLOCK 4 2 Optional, negotiated. 12-bit checksum, two
+ nonblank bytes.
+ FORCE-3 SET BLOCK 5 3 Optional, not negotiated. 16-bit CRC forced all
+ packets.
+
+ BLANK-FREE-2 is for environments where Kermit packets are treated as
+ lines of text, and in which trailing blanks can be stripped; for
+ example, when transferring files with an IBM mainframe through a 3270
+ protocol converter.
+ [62]E-Kermit 1.7
+
+Variable Evaluation
+
+ Does the strange behavior of Kermit's \%x variables puzzle or annoy
+ you?
+
+ Kermit software development has been a collaborative project over the
+ years, with contributions coming in from almost every country and every
+ sector of the economy - academic, corporate, government. Thus not all
+ versions, and not all features of a given version, are a product of
+ systematic design.
+
+ One example was the introduction of variables for text substitution,
+ first in a version of MS-DOS Kermit that was sent in by someone
+ somewhere (I could look it up, but no time...) Although the design of
+ the notation for variable names (table below) is mine, the underlying
+ code was contributed. In that code there was only one kind of variable,
+ and if I recall correctly the variable name was a backslash followed by
+ a single letter, for example \a, \b, etc. The contributed code
+ evaluated these variables recursively, meaning if the definition of a
+ variable contained variable references, then these were resolved when
+ dereferencing the variable, and the process would continue as deep down
+ as necessary to resolve the thing fully.
+
+ This was sometimes handy, but it had one severe drawback: There was no
+ way to use variables in a straightforward way to represent strings that
+ contained literal backslashes; for example, DOS or Windows pathnames.
+ This gave rise to all kinds of quoting rules and conventions (e.g.
+ doubling backslashes or forcing single-level evaluation with
+ \\fcontents()), and also to the introduction of other kinds of
+ variables that were evaluated one level deep, rather than recursively.
+
+ To accommodate coexistence of different kinds of variables as well as
+ "escape sequences" for representing control and 8-bit characters, the
+ syntax for variable names was extended to include three elements: the
+ leading backslash, then a single character indicating the type of
+ variable, and then the name of the variable in a format corresponding
+ to the type designator, as shown in this somewhat simplified table:
+
+ CAPTION: Table 1. Variable-name Syntax in Kermit
+
+ Notation Meaning
+ \000 - \255 8-bit character constant (decimal)
+ \d000 - \d255 Alternative notation for 8-bit character (byte) constant
+ (decimal)
+ \o000 - \o377 8-bit character constant (octal)
+ \x00 - \xff 8-bit character constant (hexadecimal)
+ \%a - \%z Scalar variable, evaluated recursively.
+ \%0 - \%9 Macro argument, scalar, evaluated recursively.
+ \&a - \%& Array name
+ \&a[x] Array reference, evaluated recursively (x is any constant or
+ variable)
+ \v(name) Built-in scalar variable, evaluated one level deep.
+ \m(name) User-defined scalar variable, evaluated one level deep.
+ \$(name) An environment variable, evaluated one level deep.
+ \s(name[n:m]) Compact substring notation, evaluated one level deep.
+ \fname(args...) Built-in function with zero or more arguments.
+ \\ Literal backslash
+ \N OUTPUT command only: NUL, ASCII 0
+ \B OUTPUT command only: BREAK (250ms, for serial connections)
+ \L OUTPUT command only: Long BREAK (1.5sec, ditto)
+
+ Variable names in Kermit are case-independent. The simplifications in
+ the table are that the notation for decimal and octal bytes can have
+ from one to three digits, and can include braces to separate them from
+ text digits, e.g. \7, \{123}, \o{50}. Hex bytes too, except they must
+ always have exactly two hex digits, 0-9a-f. Array indices must be, or
+ must evaluate to, numbers (floating point numbers are truncated).
+ Associative arrays are also available (dynamic arrays with arbitrary
+ text as subscript), but they are really just a variation on \m()
+ variables (read about associative arrays [63]here). Also, there are
+ some alternative notations for compact substring notation.
+
+ We didn't want to have lots of "distinguished" characters, as the UNIX
+ shell does; one is enough, clarity over brevity. Although the notation
+ can be a bit cumbersome, we can use the \m(name) form to circumvent the
+ overevaluation in most contexts. But macro arguments are always
+ assigned to the \%0-9 variables, and thus always evaluated recursively,
+ making it difficult and confusing to pass (e.g.) Windows pathnames as
+ arguments to macros. The same is true for array elements, especially in
+ contexts where they are used to return results from built-in functions
+ (for example, \fsplit() used to return the elements of a
+ [64]comma-separated value list if any of the values contained
+ backslashes). An even worse scenario is when macro arguments are passed
+ from one macro to another; for some graphic illustrations see
+ [65]Taming the Wild Backslash - Part Deux from the [66]C-Kermit 7.0
+ Update Notes.
+
+ We can't just change how variables are evaluated because that would
+ break existing scripts. But we can always add Yet Another SET Command:
+
+ SET COMMAND VARIABLE-EVALUATION { RECURSIVE, SIMPLE }
+
+ This applies only to \%a-z and \%0-9 variables and to \&a-z[] arrays
+ (since all other kinds of variables are evaluated only one level deep).
+ The default, of course, for backwards compatibility, is RECURSIVE.
+ SIMPLE forces the evaluation of these variables to return their literal
+ contents, without further evaluation:
+
+ * An exception is made in the case of array subscripts, because
+ changing how they are evaluated could break a lot of scripts, and
+ anyway there should never be any harm in evaluating them
+ recursively because their final value is always (or should be)
+ numeric, not some string that might contain backslashes.
+ * The VARIABLE-EVALUATION setting is on the command stack. Thus you
+ can give this command in a macro, command file, or user-defined
+ function without affecting the calling environment.
+ * The new \frecurse() function forces recursive evaluation of its
+ argument regardless of the VARIABLE-EVALUATION setting. The
+ argument can be any string (or nothing at all); all the variables
+ in the string, even \m() ones, are evaluated recursively:
+
+def \%a 1 \%b 3
+def \%b 2
+def xx easy as \%a
+show mac xx
+echo \frecurse(\m(xx))
+easy as 1 2 3
+echo \frecurse(it's as easy as \m(xx))
+it's as easy as easy as 1 2 3
+
+ * The new \v(vareval) built-in variable contains the current setting
+ (recursive or simple) at the current command-stack level.
+
+ Here's a short script for illustration:
+
+define path c:\users\fdc\somefile.txt
+define test1 { # Normal recursive argument evaluation
+ echo \%0: arg=\%1
+}
+define test2 { # Simple argument evaluation
+ set var simple
+ echo \%0: arg=\%1
+}
+test1 \m(path)
+test2 \m(path)
+exit
+
+ And here's the result:
+
+?<ERROR:NO_SUCH_FUNCTION:\fdc\somefile.txt()>
+test2: arg=c:\users\fdc\somefile.txt
+
+ The first line might seem surprising, but under the normal rules (see
+ table above) \f indicates a function call, with the letters following
+ the 'f' being the name of the function. But there is no function by
+ that name... and if there were, you probably didn't intend to call it!
+
+ SET COMMAND VARIABLE-EVALUATION SIMPLE has no effect on constants, only
+ on variables. Note how \m(path) is defined. The DEFINE command assigns
+ the literal value of its argument to the named variable (see Table 3
+ below), thus in this case no special syntax is needed. But in other
+ contexts, you must double the backslashes or use the \fliteral()
+ function to use literal backslashes in data:
+
+test2 c:\\users\\fdc\\somefile.txt
+test2 \fliteral(c:\users\fdc\somefile.txt)
+
+ C-Kermit 9.0 adds a new notation for \fliteral() which also has certain
+ advantages over it: \q(string):
+
+test2 \q(c:\users\fdc\somefile.txt)
+
+ Since \fliteral() is a function, its argument list (the text within
+ parentheses) has special syntax of its own, in which commas and braces
+ are treated specially and introduce another set of quoting problems.
+ \q(string) doesn't have these problems. The only consideration is that
+ parentheses must be balanced or else quoted (preceded by backslash), or
+ represented as numeric character entities (left paren = \40, (right
+ paren = \41).
+
+ Or else hold the value in a simple variable as we did with \\m(path)
+ above.
+
+ SET COMMAND VARIABLE-EVALUATION SIMPLE is a big change and might have
+ repercussions that didn't show up in the initial tests; a lot more
+ testing is needed.
+
+ On the topic of variables, let's summarize in one place the ways in
+ which values can be explicitly assigned to variables. There is nothing
+ new here except the table itself:
+
+ CAPTION: Table 2. Variable Assignment in Kermit
+
+ Command Shorthand Explanation
+ DEFINE name value .name = value The literal value becomes the contents
+ of the named variable; variables names in the value are copied without
+ evaluation. This command is for defining macros that take parameters,
+ as well as for defining simple variables, especially if the values
+ contain backslashes.
+ _DEFINE name value Like DEFINE but the name is evaluated before use.
+ ASSIGN name value .name := value The value is evaluated and the result
+ becomes the contents of the named variable.
+ _ASSIGN name value Like ASSIGN but the name is evaluated before use.
+ EVALUATE name expression .name ::= value The expression (in regular
+ algebraic notation) is evaluated arithmetically and the result becomes
+ the contents of the named variable. If the expression contains any
+ variables they are evaluated first.
+ _EVALUATE name expression Like EVALUATE but the name is evaluated
+ before use.
+ INCREMENT name expression Evaluates the variables in the expression,
+ then evaluates the expression arithmetically, and then adds the value
+ to the contents of the named variable, which must be a number or an
+ algebraic expression. If the expression is empty, a value of 1 is used.
+ _INCREMENT name expression Like INCREMENT but the name is evaluated
+ before use.
+ DECREMENT name expression Evaluates the variables in the expression,
+ then evaluates the expression arithmetically, and then subtracts the
+ value from the contents of the named variable, which must be a number
+ or an algebraic expression. If the expression is empty, a value of 1 is
+ used.
+ _DECREMENT name expression Like DECREMENT but the name is evaluated
+ before use.
+ DECLARE name = list An array declaration can include an initializer
+ list; items in the list are evaluated before assignment. This can be
+ defeated by doubling any backslashes or enclosing individual arguments
+ in \fliteral().
+ DO name arguments name arguments When invoking a macro with a DO
+ command (or an implied one), the arguments are evaluated, then assigned
+ to \%1, \%2, etc, and the macro's name to \%0.
+ (SETQ name value) Kermit also includes a mini-[67]LISP interpreter
+
+ Variables are evaluated automatically in Kermit commands simply by
+ referencing them, according to rules given in Table 1. The following
+ functions can be used to change how a a particular variable is
+ evaluated:
+
+ CAPTION: Table 3. Kermit Functions for Evaluating Variables
+
+ Function Argument Description
+ \fcontents() \%x or \&x[y] Evaluates the variable or array element
+ (which normally would be evaluated recursively) one level deep.
+ \fdefinition() name If the argument is a \%x variable or an array
+ element, it is evaluated to get the name; otherwise the argument is the
+ name. Its definition is returned with no recursion.
+ \m() name Equivalent to \fdefinition().
+ \frecurse() \m(name) Forces recursive evaluation of a macro definition
+ (a.k.a. long variable name). NOTE: \frecurse() can operate on any kind
+ of variable as well as on any string containing any mixture of
+ variables.
+
+C-Kermit's RENAME Command
+
+ C-Kermit's RENAME command, which is used for changing the names of
+ local files or for moving files locally, has two basic forms:
+
+ RENAME [ optional-switches ] oldfilename newfilename
+ This form lets you change the name of a single file from
+ oldfilename to newfilename. Example:
+ rename thismonth.log lastmonth.log
+
+ RENAME [ optional-switches ] filespec directoryname
+ This form lets you move (without renaming) one or more files
+ (all the files that match the filespec, which may contain
+ wildcard characters such as "*") to the given directory.
+ Example:
+ rename *.txt ~/textfiles/
+
+ Traditionally, the optional switches have been:
+
+ RENAME /LIST oldname newname
+ Display the old and new name for each file while renaming.
+ Synonyms: /LOG, /VERBOSE. Example:
+ rename /list *.txt ~/textfiles/
+
+ RENAME /NOLIST oldname newname
+ Don't display the old and new name for each file while renaming.
+ This is the default behavior. Synonyms: /NOLOG, /QUIET. Example:
+ rename /nolist *.txt ~/textfiles/
+
+ Reminder: Every switch starts with a slash (/) and must be preceded by
+ a space.
+
+New RENAME Features for C-Kermit 9.0
+
+ A series of new options (switches) have been added to let you change
+ the names of multiple files at once by case conversion, string
+ substitution, or character-set conversion, and optionally also move
+ them to a different directory:
+
+ /LOWER: Convert the filename to lowercase
+ /UPPER: Convert the filename to uppercase
+ /CONVERT: Change the filename's character encoding
+ /REPLACE: Do string substitutions on the filename
+
+ If the source-file specification includes a path or directory, any
+ changes are applied to the filenames only, not to the directory or path
+ specification.
+
+ Since name changes, when applied to many files at once, can have
+ consequences that are not easily undone, there are also some new
+ controls, safeguards, and conveniences:
+
+ RENAME /SIMULATE
+ This switch tells Kermit to show you what the RENAME command
+ would do without actually doing it. /SIMULATE implies /LIST.
+
+ RENAME /COLLISION:{FAIL,SKIP,OVERWRITE}
+ This switch governs Kermit's behavior when renaming multiple
+ files, and any of the names would collide with the name of a
+ file that already exists. The default, for compatibility with
+ earlier releases of C-Kermit, is OVERWRITE, i.e. write over the
+ existing file. The other two protect existing files. SKIP means
+ to skip (not rename) the file that would cause the collision,
+ and proceed to the next file, if any. FAIL means that no files
+ will be renamed if there would be any collisions; for this
+ Kermit makes two passes, checking each new name it constructs
+ for existence before starting the second pass (however, there is
+ no guarantee that in the second pass, it won't create the same
+ new name for more than one file; in that case, it will stop
+ before executing the second rename). Example:
+ rename /simulate /collision:proceed * ~/tmp/
+
+ Reminder: In switches such as /COLLISION that take arguments
+ (operands), the switch name and its argument(s) are separated by a
+ colon (:) with no intervening spaces. Also remember that Kermit
+ keywords can always be abbreviated by leaving off characters from the
+ right, as long as the result is still unique in its context. Thus "ren
+ /col:f" would be equivalent to "rename /collision:fail".
+
+ You can change the following preferences for the RENAME command with
+ the new SET RENAME command:
+
+ SET RENAME LIST { ON, OFF }
+ Tells the RENAME command whether to list its actions if you
+ don't include a /LIST or /NOLIST or equivalent switch.
+
+ SET RENAME COLLISION { FAIL, OVERWRITE, SKIP }
+ Tells the RENAME command how to handle filename collisions in
+ the absence of a /COLLISION switch. That is, it replaces the
+ default action of OVERWRITE with action of your choosing, which
+ is then used in any RENAME command that does not include an
+ explicit /COLLISION switch.
+
+ SHOW RENAME
+ Displays the current SET RENAME settings.
+
+Changing the Case of Filenames
+
+ RENAME /UPPER:{ALL,LOWER} filespec [ directory ]
+ RENAME /LOWER:{ALL,UPPER} filespec [ directory ]
+ These switches let you change the alphabetic case of letters in
+ all the files whose names match the filespec. If a directory
+ name is given after the filespec, then the files are also moved
+ to the given directory.
+
+ By default, all files that match the given filespec have their names
+ changed (if necessary). This is what the ALL argument means, e.g.:
+
+ RENAME /LOWER:ALL *
+ RENAME /LOWER *
+
+ You can use either form: RENAME /LOWER is equivalent to RENAME
+ /LOWER:ALL. The other argument (/LOWER:UPPER or /UPPER:LOWER) means to
+ leave mixed-case filenames alone, and rename only those files whose
+ names contain letters of only the given case. Examples:
+
+ RENAME /UPPER:ALL foo.bar
+ Changes the filename to FOO.BAR.
+
+ RENAME /UPPER foo.bar
+ Same as "rename /upper:all foo.bar".
+
+ RENAME /UPPER foo.bar ~/old/
+ Renames foo.bar to FOO.BAR and moves it to the user's old
+ directory (Unix).
+
+ RENAME /LOWER *
+ Changes the names of all files to have only lowercase letters.
+
+ RENAME /LOWER:UPPER *
+ Changes the names of only those files whose names contain no
+ lowercase letters to have only lowercase letters. For example,
+ FOO.BAR would be changed, Foo.Bar would not be changed. foo.bar
+ would not be changed either because it's already all lowercase.
+
+ RENAME /LOWER:UPPER * ~/new/
+ Same as the previous example, but also moves each file to the
+ user's new directory (whether it was renamed or not).
+
+ Case conversion works reliably for ASCII characters only. Kermit uses
+ the C library for this, which on any given platform might or might not
+ handle non-ASCII letters, and if it does, then how it works would
+ normally depend on your locale definitions (the LC_CTYPE and/or LANG
+ environment variable in Unix). When non-ASCII letters are not handled
+ by the C library, the RENAME command does change their case. For
+ example, Olga_Tañón.txt might become OLGA_TAñóN.TXT.
+
+String Replacement in Filenames
+
+ The RENAME command also lets you change filenames by string
+ substitution.
+
+ RENAME /FIXSPACES[:String] filespec [ directory ]
+ Replaces all spaces in each matching filename by the given
+ string, if any, or if none is given, by underscore. Examples:
+
+ RENAME /FIX *
+ RENAME /FIXSPACES:_ *
+ RENAME /FIXSPACES:"" *
+ RENAME /FIXSPACES:<040> *
+
+ The first two are equivalent, replacing each space with
+ underscore; a file called "My Favorite Photo.jpg" becomes
+ "My_Favorite_Photo.jpg". The third example removes all spaces
+ ("MyFavoritePhoto.jpg"). The fourth replaces each space with the
+ string "<040>" ("My<040>Favorite<040>Photo.jpg").
+
+ RENAME /REPLACE:{{String1}{String2}} filespec [ directory ]
+ Renames each matching file by changing occurrences of String1 in
+ its name to String2. If a directory specification is included,
+ the file is also moved to the given directory (even if the name
+ was not changed). Note that in this case, the curly braces are
+ part of the command. Example:
+
+ RENAME /REPLACE:{{.jpeg}{.jpg}} *
+
+ changes all *.jpeg files to *.jpg.
+
+ By default, RENAME /REPLACE changes all occurrences of String1 in each
+ filename to String2 so, for example, if you had a file called
+ abcjpegxyz.jpeg, the command just shown would change its name to
+ abcjpgxyz.jpg.
+
+ For greater control and flexibility, the /REPLACE: switch argument can
+ take several distinct forms:
+
+ RENAME /REPLACE:String1 filespec [ directory ]
+ This means to remove all occurrences of String1 from the given
+ filenames name. It is equivalent to /REPLACE:{{String1}{}}. A
+ handy use for this option is to remove spaces from filenames.
+
+ RENAME /REPLACE:{{String1}{String2}} filespec [ directory ]
+ As already noted, this replaces every occurrence of String1 with
+ String2 in each filename. Alphabetic case in string matching is
+ done according to the current SET CASE setting.
+
+ RENAME /REPLACE:{{ }{_}} filespec [ directory ]
+ This replaces all spaces in the given filenames with underscore,
+ equivalent to RENAME /FIXSPACES.
+
+ RENAME /REPLACE:{{String1}{String2}{Options}} filespec [ directory ]
+ Options can be included that add more control to the process.
+ The option string is a sequence of characters; each character in
+ the string is an option. The choices are:
+
+ A String matching is to be case-sensitive, regardless of SET CASE.
+ a String matching is to be case-independent, regardless of SET CASE.
+ ^ String replacement will occur only at the beginning of the filename.
+ $ String replacement will occur only at the end of the filename.
+ 1 Only the first occurrence of the string will be replaced.
+ 2 Only the second occurrence of the string will be replaced.
+ 3 4 5 6 7 8 ...
+ 9 Only the ninth occurrence of the string will be replaced.
+ - (hyphen, minus sign) Before a digit: occurrences will be counted from
+ the right.
+ ~ (tilde) Before digit or minus sign: all occurrences but the given one
+ will be replaced.
+
+ The tilde modifier works only with single-byte character sets such as
+ ASCII, CP437, ISO 8859-1, etc, but not with multibyte character sets
+ such as UCS2, UTF8, or any of the Japanese Kanji sets.
+
+ Here are some examples showing how to use the /REPLACE options:
+
+ RENAME /REPLACE:{{foo}{bar}{^}} *
+ For all files whose names start with "foo", replaces the "foo"
+ at the beginning with "bar".
+
+ RENAME /REPLACE:{{}{New-}{^}} *
+ Prepends "New-" to the name of each file.
+
+ RENAME /REPLACE:{{.jpeg}{.jpg}{$}} *
+ Replaces ".jpeg" at the end of each filename with ".jpg".
+
+ RENAME /REPLACE:{{}{-Old}{$}} *
+ Appends "-Old" to the name of each file.
+
+ RENAME /REPLACE:{{foo}{bar}{a}} *
+ Replaces "foo", "FOO", "Foo", "fOO", etc, with "bar" in each
+ filename.
+
+ RENAME /REPLACE:{{foo}{bar}{A}} *
+ Replaces only (lowercase) "foo" in filenames with "bar".
+
+ RENAME /REPLACE:{{a}{XX}} *
+ Changes every "a" to "XX". For example a file called "a.a.a.a"
+ would become "XX.XX.XX.XX".
+
+ RENAME /REPLACE:{{a}{X}{2}}
+ Changes only the second "a" to "X". For example a file called
+ "a.a.a.a" would become "a.X.a.a".
+
+ RENAME /REPLACE:{{a}{X}{-1}}
+ Changes only the final "a" in the filename (it doesn't have to
+ be at the end) to "X". For example a file called "a.b.a.c.a.d"
+ would become "a.b.a.c.X.d".
+
+ RENAME /REPLACE:{{foo}{NOTFOO}{-2}}
+ Changes the second-to-last "foo" (if any) in the filename to
+ "NOTFOO".
+
+ RENAME /REPLACE:{{foo}{}{-2}}
+ Deletes the second-to-last "foo" (if any) from the filename.
+
+ RENAME /REPLACE:{{.}{_}{~1}}
+ Changes all but the first period to an underscore; for example,
+ "a.b.c.d.e" would become "a.b_c_d_e".
+
+ RENAME /REPLACE:{{.}{_}{~-1}}
+ Changes all but the final period to an underscore; for example,
+ "a.b.c.d.e" would become "a_b_c_d.e".
+
+ In the Options field, digits (and their modifiers), ^, and $ are
+ mutually exclusive. If you include more than one of these in the option
+ string, only the last one is used. Similarly for 'a' and 'A':
+
+ RENAME /REPLACE:{{foo}{bar}{Aa2$^}} *
+ This replaces "foo" with "bar" no matter what combination of
+ upper and lower case letters are used in "foo" ('a' overrides
+ 'A' in the option string), but only if "foo" is at the beginning
+ of the filename ('^' overrides '$' and '2').
+
+ If you give an /UPPER or /LOWER switch and a /REPLACE switch in the
+ same RENAME command, the /REPLACE action occurs first, then the case
+ conversion:
+
+ RENAME /REPLACE:{{foo}{bar}} /UPPER * /tmp
+ For each file: changes all occurrences of "foo" in the name to
+ "bar", then converts the result to uppercase, and then moves the
+ file to the /tmp directory. So (for example) "foot.txt" would
+ become "/tmp/BART.TXT".
+
+Changing the Character Encoding of Filenames
+
+ As you know, text is represented on the computer as a series of
+ numbers, with a given number corresponding to a given character
+ according to some convention or standard. Filenames are represented the
+ same way. The trouble is, different computers, or even different
+ applications on the same computer, might use different standards or
+ conventions ("character sets") for representing the same characters.
+ Usually ASCII is safe, but anything beyond that -- non-ASCII characters
+ such as accented or non-Roman letters -- is likely to vary. Sometimes
+ you have text that's in the "wrong" character set and you need to
+ convert it to something you can can use. Kermit has always been able to
+ handle this as part of file transfer and terminal emulation, as well as
+ being able to convert text files locally with its TRANSLATE command.
+ Now there's a way to convert filenames too, for example after copying
+ files from a CD that uses a different encoding:
+
+ RENAME /CONVERT:charset1:charset2 filespec [ directory ]
+ Converts filenames from the first character set to the second
+ one. The two character sets can be chosen from the SET FILE
+ CHARACTER-SET list; for complete details see [68]this page. For
+ example suppose you have a file called "Olga_Tañón.txt" on a
+ computer where ISO 8859-1 Latin Alphabet 1 is used, and you have
+ transported it (e.g. on CDROM) to another computer where the
+ text encoding is UTF8. Maybe you also have a lot of other files
+ with similar names in the same directory. You can convert the
+ filenames to UTF8 like this:
+
+ RENAME /CONVERT:latin1:utf8 *
+
+ /CONVERT can not be combined with /UPPER, /LOWER, or /REPLACE.
+
+ You should NOT use UCS2 for filenames since this encoding is not
+ compatible with C strings used in Unix and elsewhere.
+
+ RENAME /CONVERT affects only the filename, not the file's contents. You
+ can use the TRANSLATE command to convert the encoding of the contents
+ of a text file.
+
+Other New Features
+
+ See the [69]C-Kermit Daily Builds page for details. Very briefly:
+
+ * Perhaps most important, modernized makefile targets for the major
+ Unix platforms: Linux, Mac OS X, AIX, Solaris, etc. These are
+ somewhat automated; not autoconf exactly, but they cut down
+ significantly on redundant targets. For example, one single "linux"
+ target works on many (hopefully all) different Linux
+ configurations, where before different targets were required for
+ different combinations of (e.g.) curses / ncurses / no curses;
+ 32-bit / 64-bit; different feature sets and library locations.
+ (Separate targets are still required for Kerberos and/or SSL
+ builds, but they are "subroutinized".)
+ * Bigger buffers, more storage for commands, macros, scripts,
+ strings, and filename expansion in 64-bit versions and in 32-bit
+ versions that support large files.
+ * User-settable FTP timeout, works on both the data and control
+ connection.
+ * FTP access to ports higher than 16383.
+ * Built-in FTP client for VMS. This is the [70]same FTP client Unix
+ C-Kermit has had since version 8.0, minimally adapted to VMS by
+ SMS, supporting binary and Stream_LF file transfer only (in other
+ words, nothing to handle RMS files), but otherwise fully functional
+ (and scriptable) and theoretically capable of making connections
+ secured by SSL (at least it compiles and links OK with SSL - HP SSL
+ 1.3 in this case).
+ * Large file support in VMS, also by SMS. Alpha and Itanium only (not
+ VAX). VMS C-Kermit was already able to transfer large files, but
+ the file-transfer display (numbers and progress bar) and statistics
+ were wrong because they used ints. In the present Alpha test
+ release, this is an optional feature requested by including the "f"
+ option in P1.
+ * New PUTENV command that allows Kermit to pass environment variables
+ to subprocesses (Unix only, "help putenv").
+ * New TOUCH command, many file selection options ("help touch").
+ * New DIRECTORY command options and switches (/TOP, /COUNT;
+ HDIRECTORY, WDIRECTORY...). To see the ten biggest files in the
+ current directory: "dir /top:10 /sort:size /reverse *" or
+ equivalently, "hdir /top:10 *". WDIR lists files in reverse
+ chronological order, shorthand for "dir /sort:date /reverse".
+ * New command FSEEK /FIND:string-or-pattern, seeks to the first line
+ in an FOPEN'd file that contains the given string or matches the
+ given pattern. Example: Suppose you have a file of lines like this:
+
+ quantity description...
+ in which the first "word" is a number, followed by a description
+ (for example, the name of an item). Here is how to use FSEEK to
+ quickly get the total quantity of any given item, which is passed
+ as a parameter (either a literal string or a pattern) on the
+ command line:
+
+#!/usr/local/bin/kermit +
+if not def \%1 exit 1 Usage: \fbasename(\%0) string-or-pattern
+
+.filename = /usr/local/data/items.log # Substitute the actual filename
+set case off # Searches are case-independent
+fopen /read \%c \m(filename) # Open the file
+if fail exit 1 "\m(filename): \v(errstring)" # Fail: exit with error message
+.total = 0 # OK: Initialize the total
+echo Searching "\%1"...
+
+while true {
+ fseek /line /relative /find:\%1 \%c 0 # Get next line that has target
+ if fail break # Failure indicates EOF
+ fread /line \%c line # Read it
+ if fail break # (shouldn't happen)
+ increment total \fword(\m(line),1) # Increment the total
+}
+fclose \%c # Close the file
+echo Total for "\%1" : \m(total) # Print the result
+exit 0
+
+ The syntax of the FSEEK command in this example indicates that each
+ search should start relative to the current file line. Since Kermit
+ is an interpretive language, FSEEK is a lot faster than FREAD'ing
+ each line and checking it for the target, especially for big files.
+ An especially handy use for FSEEK is for use with potentially huge
+ sequentially timestamped logs, to seek directly to the date-time
+ where you want to start processing. Some other improvements for the
+ FOPEN/FREAD/FWRITE/FCLOSE family of commands are included also
+ (performance, bug fixes, convenience features), listed in the
+ [71]change log. (Prior to 9.0.299 Alpha.02, the FSEEK /FIND:
+ command always started from the top.)
+ * MIME synonyms for character-set names: A new equivalence between
+ MIME names and Kermit names for character sets, with a new table
+ showing the supported sets [72]HERE (this feature is also
+ illustrated in the [73]Weblog script).
+ * Unix C-Kermit SET TERMINAL TYPE now passes its arguments to
+ subprocesses as an environment variable.
+ * SET SESSION-LOG TEXT now strips out ANSI escape sequences from the
+ session log.
+ * For interacting with POP servers over clear-text or SSL-secured
+ connections:
+ + New SSL and TLS "raw" connections (no Telnet protocol).
+ + New INPUT command options for reading and capturing (perhaps
+ while scanning) continuous incoming text, such as INPUT
+ /NOWRAP (explained [74]HERE).
+ + New \femailaddress() command to extract the e-mail address
+ from an Internet mail message To: or From: line, used in
+ fetching mail from POP servers.
+ + Improved date parsing commands and functions for parsing the
+ different date formats that can appear in e-mail.
+ + Production scripts for fetching mail from a secure POP server,
+ available [75]HERE.
+ * Various features added to make Kermit more useful for writing CGI
+ scripts such as INPUT /COUNT:n to INPUT exactly n characters
+ (useful for reading form data).
+ * New \fpictureinfo() function for getting orientation and dimensions
+ of JPG and GIF images, described [76]HERE.
+ * New \fgetpidinfo() function for testing whether a given process
+ exists.
+ * \fkwdvalue() function fixed to allow multiword values.
+ * New function \fcount(s1,s2) to tell the number of occurrences of s1
+ in s2.
+ * New \flopx() function returns rightmost field from string (such as
+ a file's extension).
+ * New function \ffunction(s1) to tell whether a built-in s1 function
+ exists.
+ * New \fsqueeze(s1) function removes leading and trailing whitespace
+ from string s1, changes tabs to spaces, squeezing each run of
+ repeated whitespace characters to a single space.
+ * Compact substring notation: \s(somestring[12:18]) is the same as
+ \fsubstring(\m(somestring),12,18), i.e. the substring starting at
+ position 12, 18 characters long. \s(somestring[12_18]) means
+ characters 12 through 18 of the string (7 characters). Also,
+ \s(somestring[17.]) returns character number 17 of somestring.
+ * The string indexing functions now accept an optional trailing
+ argument specifying the occurrence number of the target string.
+ Likewise, \fword() can fetch words from the right as well as the
+ left.
+ * The COPY command in Unix C-Kermit has a new /PRESERVE switch,
+ equivalent to Unix "cp -p".
+ * ASKQ /ECHO:c can be used to make the characters the user types echo
+ as the character c, e.g. asterisk when typing a password.
+ * IF LINK filename to test if the filename is a symlink.
+ * Ctrl-K, when typed at the command parser, replaces itself with most
+ recently entered file specification.
+ * In Unix, the ability to log a terminal session to a serial port,
+ for use with speaking devices or serial printers; described
+ [77]HERE. Also for the same purpose, SET SESSION-LOG
+ NULL-PADDED-LINES for a speech synthesizer than needed this.
+ * Adaptation to OpenSSL 0.9.8 and 1.0.0.
+ * Lifted the restriction on having a remote Kermit program send
+ REMOTE commands to the local. A very big ex-client needed to be
+ able to do this (branches would connect to headquarters and upload
+ files; HQ would then download patches, a REMOTE HOST command was
+ necessary to allow the remote headquarters machines to install the
+ patches on the local client; of course the client first has to
+ ENABLE HOST because this is a risky scenario). The reason for the
+ restriction was that the server, upon receiving any REMOTE command
+ would send the results (output) back to the client as a file
+ transfer with "destination screen", but of course the remote has no
+ screen.
+ * Added XMESSAGE, which is to [78]MESSAGE as XECHO is ECHO: it
+ outputs a string with no line terminator DEBUG MESSAGE is ON.
+ * Fixed \frecurse() to not dump core when invoked with no arguments.
+ * Improved text for HELP FUNCTION SPLIT and HELP FUNCTION WORD.
+ * Patches for Debian 6.0 "Squeeze" from Ian Beckwith.
+ * \fcontents(\&a[3]) got an error if the array was declared but its
+ dimension was less than 3. Now it simply returns and empty string.
+ * \fsplit(), when parsing lines from CSV and TSV files, was treating
+ backslash in the data the same way it treats backslash in Kermit
+ commands. This was fixed to treat backslash like any other
+ character.
+ * Builds for Solaris 9 and later now use streams ptys rather then the
+ old BSD-style ptys. Thanks to Gary Mills for this one, who noticed
+ that he couldn't have more than 48 C-Kermit SSH sessions going at
+ once and figured out why.
+ * As noted [79]below DES encryption is being retired from many
+ platforms and libraries that once used it. I changed the Solaris
+ and Linux OpenSSL builds to account for this by testing for it. I
+ probably should also add a OMITDES option to omit DES even if it is
+ installed, but "KFLAGS=-UCK_DES" seems to do the job for now.
+ * I changed the Linux build to test for the OpenSSL version (like the
+ Solaris version already did), rather than assuming OpenSSL 0.9.7.
+ * A couple minor changes for Tru64 Unix 5.1B from Steven Schweda but
+ we still have some trouble on that platform. As a workaround "make
+ osf1" can be used there.
+ * Unix makefile and man page are now included in the Zip
+ distribution.
+ * \fjoin(), which is the inverse function of fsplit() now accepts CSV
+ and TSV as a second argument, to transform an array into a
+ comma-separated or tab-separated value list, as described [80]HERE.
+ * Even in 2010, Unix distributions continue to change their UUCP
+ lockfile conventions. C-Kermit 9.0 contains support from Joop
+ Boonen for OpenSuSE >= 11.3 and recent Debian, which no longer have
+ baudboy.h, which first appeared in Red Hat 7.2 in 2003.
+ * From Lewis McCarthy:
+
+ Based on code inspection, C-Kermit appears to have an SSL-related
+ security vulnerability analogous to that identified as CVE-2009-3767
+ (see e.g.
+ [81]http://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2009-3767).
+
+ I'm attaching a patch for this issue relative to the revision of
+ ck_ssl.c obtained from a copy of
+ [82]http://www.columbia.edu/kermit/ftp/test/tar/x.zip downloaded on
+ 2010/07/30, which I believe is the latest.
+ When this flaw was first widely publicized at last year's Black Hat
+ conference, it was claimed that some public certificate authorities
+ had indeed issued certificates that could be used to exploit this
+ class of vulnerability. As far as I know they have not revealed
+ specifically which public CA(s) had been found issuing such
+ certificates. Some references:
+ + [83]http://www.mseclab.com/?p=180
+ + [84]http://www.theregister.co.uk/2009/07/30/universal_ssl_cert
+ ificate/
+
+ * Peter Eichhorn reported that "RENAME ../x ." didn't work; fixed
+ now.
+ * If only one file is FOPEN'd, FCLOSE given with no arguments would
+ close it; this was a "convenience feature" that turned out to be
+ dangerous. For safety FCLOSE has to require a specific channel
+ number or the word ALL.
+ * Added \fstrcmp(s1,s2,case,start,length), which has the advantage
+ over IF EQU,LGT,LLT that case sensitivity can be specified as a
+ function arg, and also substrings can be specified.
+ * New built-in functions:
+
+ \fcvtcsets(string,cs1,cs2)
+ Function to convert a string from one character set to
+ another.
+
+ \fdecodehex(string[,prefix])
+ Function to decode a string containing hex escapes.
+
+ \fstringtype(string)
+ Function to tell whether a string is 7-bit, 8-bit, or
+ UTF-8.
+
+ For the motivation for these features and an application that uses
+ them to analyze web logs, see the Weblog script below.
+ *
+
+ Lazy IF Conditions: Now you can do this:
+ define foo some number
+ if foo command
+
+ instead of this:
+ define foo some number
+ if \m(foo) command
+
+ Of course the old way still works too. But watch out because if the
+ variable name is the same as a symbolic IF condition (for example
+ COUNT), it won't do what you expected. (IF COUNT was used for loop
+ control in early versions of MS-DOS Kermit, before it got real FOR
+ and WHILE loops; it was added to C-Kermit for compatibility, and it
+ can't be removed because that could break existing scripts).
+ * Escape sequences are now stripped from text-mode session logs not
+ only in CONNECT sessions but also in whatever is logged by the
+ INPUT command; described in the [85]next section.
+ * New commands for selectively issuing progress or debugging messages
+ from scripts, also described in the next section.
+ * Fix from [86]John Dunlap to prevent the fixed packet-timeout
+ interval from going to an unexpected value.
+ * Alpha.04 fixes a problem with FTP connections made from 64-bit Unix
+ platforms. All the other changes in this section were to Alpha.03.
+ * Relaunching a closed SSH connection with the CONNECT command is now
+ possible, as it always has been with Telnet and other connection
+ types; suggested by Peter Eichhorn (needs testing).
+ * A symbol conflict fixed that prevented successful build on
+ [87]FreeBSD 8.0.
+ * Fixes from Christian Corti for building on SunOS 4.1.
+ * New aixg target for building on AIX with gcc.
+ * New aix+ibmssl target. This is nice because the IBM-supplied SSL
+ libraries and header files are in a known location; no need to
+ [88]set environment variables giving their locations.
+ * "Large File Support" is now included by default on Alpha and IA64
+ hardware on VMS 7.3 and later, and it should work much better than
+ before.
+ * Kermit's internal FTP client is now included by default in any
+ build that also includes TCP/IP networking. At present, the FTP
+ client seems to work well for binary-mode transfers; text (ASCII)
+ mode transfers still need some work. In builds that also include
+ Secure Sockets Layer (SSL) security (next item) the FTP client
+ should be able to make securely authenticated and encrypted
+ connections.
+ * In network builds that request OpenSSL support, e.g.:
+
+ $ @ckvker "" "" "CK_SSL"
+ the OpenSSL version is detected automatically and the appropriate
+ compile-time options are emitted (such as
+ OPENSSL_DISABLE_OLD_DES_SUPPORT).
+ * Preliminary / limited support for the ODS-5 file system on VMS 7.2
+ and later, Alpha and Itanium only (needs testing): Filenames can be
+ mixed case and can be longer.
+ * Support for older and older VMS versions.
+ * In the VMS build procedure, CKVKER.COM, the "i" option in P1 now
+ means don't include the internal FTP client, and the "f" option
+ means do not include "Large File" support. Large File support in
+ VMS really only applies to the file-transfer display and
+ statistics, which would go out of whack as soon as the byte count
+ overflowed 31 bits because this is C-Kermit, built with the C
+ compiler and the C library (runtime system), which did not support
+ long integers until VMS 7.3.
+ * The [89]LISP Operator ROUND now takes an optional second argument
+ that specifies the number of places to round to, e.g.
+ (ROUND dollars 2) rounds dollars to 2 decimal places.
+ * Improved pattern matching in many commands for both strings and
+ filenames.
+ * Various minor new features, plus numerous bug fixes and speedups.
+
+Incompatibilities
+
+ A top priority for new Kermit software releases has always been
+ backwards compatibility. A script written for a previous Kermit release
+ should run the same way in the new release.
+
+ There's one exception this time. The [90]\fsplit() function is
+ incredibly handy, it can do almost anything, up to and including
+ parsing a LISP program (the underlying code is the basis of the
+ [91]S-Expression interpreter). But did you ever try to use it to parse
+ (say) a Tab-Separated-List (TSV file) or Comma-Separated-List (CSV)? It
+ works as expected as long as the data contains only 7-bit characters.
+ But if your data contains (say) Spanish or German or Russian text
+ written in an 8-bit character set such as ISO 8859-1, every 8-bit
+ character (any value 128-255) is treated as a break character. This is
+ fixed in C-Kermit 9.0 by treating all 8-bit bytes as "include"
+ characters rather than break characters, a total reversal of past
+ behavior. I don't think it will affect anyone though, because if this
+ had happened to anyone, I would have heard about it!
+
+ Since most standard 8-bit character sets have control characters in
+ positions 128-160, it might have made sense to keep 128-160 in the
+ break set, but with the proliferation of Microsoft Windows code pages,
+ there is no telling which 8-bit character is likely to be some kind of
+ text, e.g. "smart quotes" or East European or Turkish accented letters.
+
+What's Not In C-Kermit 9.0
+
+ Some large projects that were contemplated have not been done,
+ including:
+ * IPv6. Honestly, there has been zero demand for this, and it would
+ be a lot of work and disruption to the code base. Volunteers
+ welcome, I guess. It could be a CS project.
+ * A database interface - MySQL or ODBC. For this one, there is some
+ demand but I haven't had a chance to even look into it.
+ * There's a looming issue with DES encryption; major vendors are
+ removing it from their platforms, starting with Apple in Mac OS X
+ 10.6, with Microsoft to follow suit. A secure version of Kermit can
+ be built without DES, but in limited testing successful connections
+ were spotty (e.g. with Kerberos 5).
+ * Cleaning up the Unix makefile. It has 25 years' worth of targets in
+ it. It is very likely safe to remove most of them, since (a) most
+ old platforms have gone away by now, or have been upgraded, due to
+ hacking vulnerabilities; (b) the market has consolidated
+ considerably; and (c) most of the new features of C-Kermit 9.0,
+ such as large files, won't be of any use on older platforms and
+ previous C-Kermit versions will remain available.
+ * Packages. Everybody wants an install package custom made for their
+ own computer, Linux RPMs being the prime example but far from the
+ only one. These will come, I suppose (especially with some Linux
+ sites having a policy against installing any application that does
+ not come as an RPM). In the meantime, here's a page that describes
+ some Kermit-specific issues in package construction:
+ [92]ckpackages.html.
+
+And a Loose End...
+Using External File-Transfer Protocols on Secure Connections
+
+ After C-Kermit 8.0.212 Dev.27 (2006/12/22), I spent a big chunk of time
+ trying to solve a particular problem that some of you have complained
+ about and others might be familiar with: If you use C-Kermit to make a
+ secure Telnet connection to another host (e.g. with Telnet SSL/TLS,
+ Kerberos, or SRP) and then attempt to transfer a file using an external
+ protocol such as Zmodem, it doesn't work.
+
+ That's because as coded (through 8.0.211), C-Kermit simply starts the
+ external protocol in a fork with its standard i/o redirected to the
+ connection. This completely bypasses the encryption and decryption that
+ is done by C-Kermit itself, and of course it doesn't work. The same
+ thing occurs if you use the REDIRECT command. The routine that handles
+ this is ttruncmd() in ckutio.c.
+
+ In order to allow (say) Zmodem transfers on secure connections, it is
+ necessary for C-Kermit to interpose itself between the external Zmodem
+ program and the connection, decrypting the incoming stream before
+ feeding it to Zmodem and encrypting Zmodem's output before sending out
+ the connection.
+
+ In principal, this is simple enough. We open a pseudoterminal pair
+ ("master" and "slave") for Zmodem's i/o and we create a fork and start
+ Zmodem in it; we read from the fork pty's standard output, encrypt, and
+ send to the net; we read from the net, decrypt, and write to the fork
+ pty's standard input.
+
+ In practice, it's not so simple. First of all, pseudoterminals (ptys)
+ don't seem to interface correctly with certain crucial APIs, at least
+ not in the OS's I have tried (Mac OS X, Linux, NetBSD, etc), such as
+ select(). And i/o with the pty often - perhaps always - fails to
+ indicate errors when they occur; for example, when the fork has exited.
+
+ But, even after coding around the apparent uselessness of select() for
+ multiplexing pty and net, and using various tricks to detect when the
+ external protocol exits and what its exit status is, I'm still left
+ with a show-stopping problem: I just simply can not download (receive)
+ a file with Zmodem, which is the main thing that people would probably
+ want to do. I can send files just fine, but not receive. The incoming
+ stream is delivered to Zmodem (to the pty slave) but upon arrival at
+ the Zmodem process itself, pieces are always missing and/or corrupt.
+ Yet I can receive files just fine if I use Kermit itself (C-Kermit or
+ G-Kermit) as the external protocol, rather than Zmodem.
+
+ I can think of two reasons why this might be the case:
+
+ 1. Zmodem sends all 8-bit bytes and control codes in the clear, and
+ maybe the pty is choking on them because it thinks it is a real
+ terminal.
+
+ But Zmodem puts its controlling terminal into raw mode. And C-Kermit
+ puts the pty into raw mode too, just for good measure. If any 0xFF
+ codes are in the Zmodem data stream, and it's a Telnet session, Kermit
+ does any needed byte stuffing/unstuffing automatically. Anyway, if I
+ tell Zmodem to prefix everything, it makes no difference.
+
+ 2. Zmodem is a streaming protocol and perhaps the pty driver can't
+ keep up with a sustained stream of input at network speeds. What
+ would be the method of flow control?
+
+ I can vary the size of the i/o buffers used for writing to the pty, and
+ get different effects, but I am not able to get a clean download, no
+ matter what buffer size I use. write()'ing to the pty does not return
+ an error, and I can't see the errors because they happen on the master
+ side. It's as if the path between the pty slave and master lacks flow
+ control; I deliver a valid data stream to the pty slave and the master
+ gets bits and pieces. This impression is bolstered somewhat by the
+ "[93]man 7 pty" page in HP-UX, which talks about some special modes for
+ ptys that turn off all termio processing and guarantee a
+ flow-controlled reliable stream of bytes in both directions - a feature
+ that seems to be specific to HP-UX, and exactly the one we need
+ everywhere.
+
+ Well, in Pass One I used C-Kermit's existing pty routines from
+ ckupty.[ch], which are well-proven in terms of portability and of
+ actually working. They are currently used by SET HOST /PTY for making
+ terminal connections to external processes. But these routines are
+ written on the assumption that the pty is to be accessed interactively,
+ and maybe they are setting the fork/pty arrangement up in such a way
+ that that's not suitable for file transfer. The Pass One routine is
+ called xttptycmd() in ckutio.c.
+
+ So in Pass Two I made a second copy of the routine, yttptycmd(), that
+ manages the pty and fork itself, so all the code is in one place and
+ it's simple and understandable. But it still doesn't work for Zmodem
+ downloads. In this routine, I use openpty() to get the pty pair, which
+ is not portable, so I can have access to both the master and slave pty
+ file descriptors. This version can be used only a platforms that have
+ openpty(): Linux, Mac OS X, NetBSD, etc.
+
+ In Pass Three, zttptycmd(), I tried using pipes instead of ptys, in
+ case ptys are simply not up to this task (but that can't be true
+ because if I make a Telnet or SSH connection into a host, I can send
+ files to it with Zmodem, and the remote Zmodem receiver is, indeed,
+ running on a pty). But pipes didn't work either.
+
+ In Pass Four, I extracted the relevant routines into a standalone
+ program based on yttptycmd() (the openpty() version, for simplicity),
+ which I tested on Mac OS X, the idea being to rule out any
+ "environmental" effects of running inside the C-Kermit process. There
+ was no difference -- Kermit transfers (with C-Kermit itself as the
+ external protocol) worked; Zmodem transfers (neither sz or lsz) did
+ not.
+
+ Well, it's a much longer story. As the external protocol, I've tried
+ rzsz, crzsz, and lrzsz. We know that some of these have quirks
+ regarding standard i/o, etc, which is one of the reasons for using ptys
+ in the first place, and i/o does work - just not reliably. Anyway, the
+ 1100 lines or so of [94]ckc299.txt, starting just below where it says
+ "--- Dev.27 ---" tell the full story. At this point I have to give up
+ and move on; it might be more productive to let somebody else who has
+ more experience with ptys take a look at it - if indeed anyone still
+ cares about being able to do Zmodem transfers over secure Telnet
+ connections.
+
+ C-Kermit 9.0 contains the three new routines (and some auxiliary ones),
+ but they are not compiled or called unless you build it specially:
+
+ make targetname KFLAGS=-DXTTPTYCMD (builds with xttptycmd())
+ make targetname KFLAGS=-DYTTPTYCMD (builds with yttptycmd())
+ make targetname KFLAGS=-DZTTPTYCMD (builds with zttptycmd())
+
+ These are all in [95]ckutio.c. As noted, the second one works only for
+ Linux, FreeBSD, NetBSD, and Mac OS X, because it uses non-POSIX,
+ non-portable openpty(). If you want to try it on some other platform
+ that has openpty(), you can build it like this:
+
+ make targetname "KFLAGS=-DYTTPTYCMD -DHAVE_OPENPTY"
+
+ (and let me know, so I can have HAVE_OPENPTY predefined for that
+ platform too). The best strategy to get this working, I think, would be
+ to concentrate on yttptycmd(), which is the simpler of the two
+ pty-based routines. If it can be made to work, then we'll see if we can
+ retrofit it to use the ckupty.c routines so it will be portable to
+ non-BSD platforms.
+
+ By the way, if you build with any of [XYZ]TTPTYCMD defined, then the
+ selected routine will always be used in place of ttruncmd(). This is to
+ allow testing on all kinds of connections, not just secure ones, in
+ both local and remote mode. Once the thing works, if it ever does, I'll
+ add the appropriate tests and/or commands.
+
+ By default, in the initial test release, C-Kermit 9.0 uses ttruncmd()
+ on serial connections and ttyptycmd() on network connections. Even when
+ a network connection is not encrypted, Kermit still needs to handle the
+ network protocol, e.g. the quoting of 0xff bytes on Telnet connections.
+
+Demonstration: Fetch Mail from POP Server Secured by SSL
+
+ [96]pop.ksc is a fully elaborated production script for fetching one's
+ mail from a POP3 server over a connection secured by SSL. For
+ explanation and documentation, [97]CLICK HERE. [98]mailcheck is a
+ wrapper for the pop.ksc script, which collects your password one time,
+ and then checks for new mail every 5 minutes (or other selected
+ interval) and calls pop.ksc to fetch it if there is any.
+
+Demonstration: HP Switch Configuration Backup
+
+ A common use for Kermit software is to make automated backups of the
+ configuration of network switches and routers, such as those made by
+ Cisco or Hewlett-Packard (although [99]tftp can be used for this, it is
+ not available in all such devices; Kermit, however, works with those
+ that have tftp as well as those that don't).
+
+ Typically a backup can be done by making a Telnet, SSH, or serial
+ connection to the device with Kermit and giving a command such as "show
+ config" at the command-line prompt of the device with Kermit's session
+ log activated. The result is a list of the commands that were used to
+ establish the current configuration, suitable for feeding back to the
+ device's console (e.g. with C-Kermit's TRANSMIT command) to reestablish
+ the same configuration or to duplicate it on another device.
+
+ At an HP installation it was noted, however, that while the HP switches
+ (various ProCurve models) produced the desired list of commands, they
+ were interspersed with escape sequences for special effects, thus
+ rendering the recorded sessions unsuitable for feeding back into the
+ switches.
+
+ C-Kermit 9.0 introduces a new feature to strip the offending sequences
+ out of a session log, leaving just the text. The command SET
+ SESSION-LOG TEXT activates this feature. In C-Kermit 9.0 Alpha.02 and
+ earlier, escape sequence stripping occurred only while logging
+ interactive (CONNECT) sessions; beginning with Alpha.03 it is done also
+ for data that is read by INPUT commands and therefore works for scripts
+ too.
+
+ A sample HP Switch Configuration Backup script is [100]HERE, and its
+ data file is [101]HERE. This script also illustrates some other new
+ features of Alpha.03:
+
+ MESSAGE text
+ This lets you put debugging messages in your script that can be
+ displayed or not, according to SET DEBUG MESSAGE (below). This
+ way you don't have to change your script for debugging. Hint:
+ In Unix, invoke the script like this:
+
+ $ DEBUG=1 scriptname arg1 arg2...
+
+ and then include the following command in your script:
+
+ if defined \$(DEBUG) set debug message on
+
+ XMESSAGE text
+ Like MESSAGE but prints the text with no line terminator, so it
+ can be continued by subsequent messages.
+
+ SET DEBUG MESSAGE { ON, OFF, STDERR }
+ ON means MESSAGE commands should print to standard output; OFF
+ means they shouldn't print anything; STDERR means the messages
+ should be printed to [102]stderr. DEBUG MESSAGE is OFF by
+ default, i.e. unless you SET it to ON or STDERR.
+
+ IF DEBUG command
+ Executes the command if SET DEBUG MESSAGE is not OFF.
+
+ The \v(lastcommand) variable
+ This variable contains the previous command. You can use it in
+ debugging and error message to show (for example) exactly what
+ the command was that just failed, without having to make a copy
+ of the command:
+
+set host somehost.somecompany.com
+if fail exit 1 "FATAL - \v(lastcommand)"
+
+ which, if the SET HOST command fails, prints "FATAL - set host
+ somehost.somecompany.com" and then exits with status 1 (which
+ normally indicates failure).
+
+Demonstration: HP iLO Blade Configuration
+
+ [103]THIS DOCUMENT describes a script in production use at Columbia
+ University for configuring and deploying racks full of HP blade servers
+ through their "integrated Lights Out" (iLO) management interface,
+ bypassing the tedious and error-prone process of configuring the
+ servers one by one through the vendor-provided point-and-click Web
+ interface, which is ill-suited to configuring large numbers of blades.
+ The script illustrates some of C-Kermit 9.0's new features; source code
+ is available through the link. The code is apt to change from time to
+ time as new requirements surface.
+
+Demonstration: IBM/Rolm/Siemens CBX Management
+
+ [104]THIS DOCUMENT describes a suite of scripts (some in production,
+ some in development) used to manage the Columbia campus 20,000-line
+ main telephone switch, along with about 10 satellite switches at
+ off-campus locations. These switches are 1980s technology*, their
+ management consoles are serial ports. Access is via Telnet to reverse
+ terminal servers. The scripts allow for interactive sessions as well as
+ automatic production (and in some cases formatting) of different
+ reports required by different groups at different intervals. These
+ scripts replace a whole assortment of ad-hoc ProComm ASPECT scripts
+ that were scattered all over the place, with passwords embedded. The
+ new scripts are intended to be run from a centralized server where
+ there is a single well-secured configuration file, and where they can
+ be used on demand, or in cron jobs. They are modular so code
+ duplication is minimal.
+ __________________________
+ * Of course the University is deploying new technology but the but the
+ old system will be used in parallel for some time to come.
+
+Demonstration: CSV and TSV Files
+
+ Contents
+
+ * [105]Reading a CSV or TSV Record and Converting it to an Array
+ * [106]Using \fjoin() to create a Comma- or Tab-Separated Value List
+ from an Array
+ * [107]Using CSV or TSV Files
+
+ Comma-Separated Value (CSV) format is commonly output by spreadsheets
+ and databases when exporting data into plain-text files for import into
+ other applications. Here are the details:
+
+ Comma-Separated List Syntax
+
+ 1. Each record is a series of fields.
+ 2. Records are in whatever format is used by the underlying file
+ system for lines of text.
+ 3. Fields within records are separated by commas, with zero or more
+ whitespace characters (space or tab) before and/or after the comma;
+ such whitespace is considered part of the separator.
+ 4. Fields with embedded commas must be enclosed in ASCII doublequote
+ characters.
+ 5. Fields with leading or trailing spaces must be enclosed in ASCII
+ doublequotes.
+ 6. Any field may be enclosed in ASCII doublequotes.
+ 7. Fields with embedded doublequotes must be enclosed in doublequotes
+ and each interior doublequote is doubled.
+
+ Here is an example:
+
+aaa, bbb, has spaces,,"ddd,eee,fff", " has spaces ","Muhammad ""The Greatest"" A
+li"
+
+ The first two are regular fields. The second is a field that has an
+ embedded space but in which any leading or trailing spaces are to be
+ ignored. The fourth is an empty field, but still a field. The fifth is
+ a field that contains embedded commas. The sixth has leading and
+ trailing spaces. The last field has embedded quotation marks.
+
+ Prior to C-Kermit 9.0 Alpha.06, C-Kermit did not handle CSV files
+ according to the specification above. Most seriously, there was no
+ provision for a separator to be surrounded by whitespace that was to be
+ considered part of the separator. Also there was no provision for
+ quoting doublequotes inside of a quoted string.
+
+Reading a CSV record
+
+ Now the \fsplit() function can handle any CSV-format string if you
+ include the symbolic include set "CSV" as the 4th parameter. To
+ illustrate, this program:
+
+def xx {
+ echo [\fcontents(\%1)]
+ .\%9 := \fsplit(\fcontents(\%1), &a, \44, CSV)
+ for \%i 1 \%9 1 { echo "\flpad(\%i,3). [\&a[\%i]]" }
+ echo "-----------"
+}
+xx {a,b,c}
+xx { a , b , c }
+xx { aaa,,ccc," with spaces ",zzz }
+xx { "1","2","3","","5" }
+xx { this is a single field }
+xx { this is one field, " and this is another " }
+xx { name,"Mohammad ""The Greatest"" Ali", age, 67 }
+xx { """field enclosed in doublequotes""" }
+exit
+
+ gives the following results:
+
+[a,b,c]
+ 1. [a]
+ 2. [b]
+ 3. [c]
+-----------
+[ a , b , c ]
+ 1. [a]
+ 2. [b]
+ 3. [c]
+-----------
+[ aaa,,ccc," with spaces ",zzz ]
+ 1. [aaa]
+ 2. []
+ 3. [ccc]
+ 4. [ with spaces ]
+ 5. [zzz]
+-----------
+[ "1","2","3","","5" ]
+ 1. [1]
+ 2. [2]
+ 3. [3]
+ 4. []
+ 5. [5]
+-----------
+[ this is a single field ]
+ 1. [this is a single field]
+-----------
+[ this is one field, " and this is another " ]
+ 1. [this is one field]
+ 2. [ and this is another ]
+-----------
+[ name,"Mohammad ""The Greatest"" Ali", age, 67 ]
+ 1. [name]
+ 2. [Mohammad "The Greatest" Ali]
+ 3. [age]
+ 4. [67]
+-----------
+[ """field enclosed in doublequotes""" ]
+ 1. ["field enclosed in doublequotes"]
+-----------
+
+ The separator \44 (comma) must still be specified as the break set (3rd
+ \fsplit() parameter). When "CSV" is specified as the include set:
+ * The Grouping Mask is automatically set to 1 (which specifies that
+ the ASCII doublequote character (") is used for grouping;
+ * The Separator Flag is automatically set to 1 so that adjacent field
+ separators will not be collapsed;
+ * All bytes (values 0 through 255) other than the break character are
+ added to the include set;
+ * Any leading whitespace is stripped from the first element unless it
+ is enclosed in doublequotes;
+ * Any trailing whitespace is trimmed from the end of the last element
+ unless it is enclosed in doublequotes;
+ * If the separator character has any spaces or tabs preceding it or
+ following it, they are ignored and discarded;
+ * The separator character is treated as an ordinary data character if
+ it appears in a quoted field;
+ * A sequence of two doublequote characters ("") within a quoted field
+ is converted to a single doublequote.
+
+ There is also a new TSV symbolic include set, which is like CSV except
+ without the quoting rules or the stripping of whitespace around the
+ separator because, by definition, TSV fields do not contain tabs.
+
+ Of course you can specify any separator(s) you want with either the
+ CSV, TSV, or ALL symbolic include sets. For example, if you have a TSV
+ file in which you want the spaces around each Tab to be discarded, you
+ can use:
+
+\fsplit(variable, &a, \9, CSV)
+
+ \9 is Tab.
+
+ The new symbolic include sets can also be used with \fword(), which is
+ just like \fsplit() except that it retrieves the nth word from the
+ argument string, rather than an array of all the words. In C-Kermit you
+ can get information about these or any other functions with the HELP
+ FUNCTION command, e.g.:
+
+C-Kermit> help func word
+
+Function \fword(s1,n1,s2,s3,n2,n3) - Extracts a word from a string.
+ s1 = source string.
+ n1 = word number (1-based) counting from left; if negative, from right.
+ s2 = optional break set.
+ s3 = optional include set (or ALL, CSV, or TSV).
+ n2 = optional grouping mask.
+ n3 = optional separator flag:
+ 0 = collapse adjacent separators;
+ 1 = don't collapse adjacent separators.
+
+ \fword() returns the n1th "word" of the string s1, according to the
+ criteria specified by the other parameters.
+
+ The BREAK SET is the set of all characters that separate words. The
+ default break set is all characters except ASCII letters and digits.
+ ASCII (C0) control characters are treated as break characters by default,
+ as are spacing and punctuation characters, brackets, and so on, and
+ all 8-bit characters.
+
+ The INCLUDE SET is the set of characters that are to be treated as
+ parts of words even though they normally would be separators. The
+ default include set is empty. Three special symbolic include sets are
+ also allowed:
+
+ ALL (meaning include all bytes that are not in the break set)
+ CSV (special treatment for Comma-Separated-Value records)
+ TSV (special treatment for Tab-Separated-Value records)
+
+ For operating on 8-bit character sets, the include set should be ALL.
+
+ If the GROUPING MASK is given and is nonzero, words can be grouped by
+ quotes or brackets selected by the sum of the following:
+
+ 1 = doublequotes: "a b c"
+ 2 = braces: {a b c}
+ 4 = apostrophes: 'a b c'
+ 8 = parentheses: (a b c)
+ 16 = square brackets: [a b c]
+ 32 = angle brackets: <a b c>
+
+ Nesting is possible with {}()[]<> but not with quotes or apostrophes.
+
+Returns string:
+ Word number n1, if there is one, otherwise an empty string.
+
+Also see:
+ HELP FUNCTION SPLIT
+
+C-Kermit>
+
+Using \fjoin() to create Comma- or Tab-Separated Value Lists from Arrays
+
+ In C-Kermit 9.0, \fsplit()'s inverse function, [108]\fjoin() received
+ the capability of converting an array into a comma-separated or a
+ tab-separated value list. Thus, given a CSV, if you split it into an
+ array with \fsplit() and then join the array with \fjoin(), giving each
+ function the new CSV parameter in the appropriate argument position,
+ the result will be will be equivalent to the original, according to the
+ CSV definition. It might not be identical, because if the result had
+ extraneous spaces before or after the separating commas, these are
+ discarded, but that does not affect the elements themselves. The new
+ syntax for \fjoin() is:
+
+ \fjoin(&a,CSV)
+ Given the array \&a[] or any other valid array designator, joins
+ its elements into a comma-separated list according to the
+ [109]rules listed above.
+
+ \fjoin(&a,TSV)
+ Joins the elements of the given array into a tab-separated list,
+ also described above.
+
+ [110]Previous calling conventions for \fjoin() are undisturbed,
+ including the ability to specify a portion of an array, rather than the
+ whole array:
+
+declare \&a[] = 1 2 3 4 5 6 7 8 9
+echo \fjoin(&a[3:7],CSV)
+3,4,5,6,7
+
+ Using \fsplit() and \fjoin() it is now possible to convert a
+ comma-separated value list into a tab-separated value list, and vice
+ versa (which is not a simple matter of changing commas to tabs or vice
+ versa).
+
+Applications for CSV Files
+
+ Databases such as MS Access or MySQL can export tables or reports in
+ CSV format, and then Kermit can read the resulting CSV file and do
+ whatever you like with it; typically something that could not be done
+ with the database query language itself (or that you didn't know how to
+ do that way): create reports or datasets based on complex criteria or
+ procedures, edit or modify some fields, etc, and then use \fjoin() to
+ put each record back in CSV form so it can be reimported into a
+ spreadsheet or database.
+
+ Here is a simple example in which we purge all records of customers who
+ have two or more unpaid bills. The file is sorted so that each license
+ purchase record is followed by its annual maintenance payment records
+ in chronological order.
+
+#!/usr/local/bin/kermit
+.filename = somefile.csv # Input file in CSV format
+fopen /read \%c \m(filename) # Open it
+if fail exit # Don't go on if open failed
+copy \m(filename) ./new # Make a copy of the file
+
+.oldserial = 00000000000 # Multiple records for each serial number
+.zeros = 0 # Unpaid bill counter
+
+while true { # Loop
+ fread /line \%c line # Get a record
+ if fail exit # End of file
+ .n := \fsplit(\m(line),&a,\44,CSV) # Split the fields into an array
+ if not equ "\m(oldserial)" "\&a[6]" { # Have new serial number?
+ # Remove all records for previous serial number
+ # if two or more bills were not paid...
+ if > \m(zeros) 1 {
+ grep /nomatch \m(oldserial) /output:./new2 ./new
+ rename ./new2 ./new
+ }
+ .oldserial := \&a[6] # To detect next time serial number changes
+ .zeros = 0 # Reset unpaid bill counter
+ }
+ if equ "\&a[5]" "$0.00" { # Element 5 is amount paid
+ increment zeros # If it's zero, count it.
+ }
+}
+fclose \%c
+
+ Rewriting the file multiple times is inelegant, but this is a quick and
+ dirty use-once-and-discard script, so elegance doesn't count. The
+ example is interesting in that it purges certain records based on the
+ contents of other records. Maybe there is a way to do this directly
+ with SQL, but why use SQL when you can use Kermit?
+
+ Here is the same task but this time no shelling out, and this time we
+ do change and add some fields and then join the result back into a CSV
+ record and write it out to a new file. The object is to create a record
+ for each license that shows not only the date and purchase price of the
+ license but also the date and amount of the last maintenance payment,
+ and to add new fields for sorting by anniversary (month and day):
+
+#!usr/local/bin/kermit +
+cd ~/somedirectory # CD to appropriate directory
+if fail exit 1 # Make sure we did
+.filename := \%1 # Filename from command line
+if not def filename { # If none give usage message
+ exit 1 "Usage: \%0: infile [ outfile ]"
+}
+fopen /read \%c \m(filename) # Open the input CSV file
+if fail exit # Make sure we did
+
+.output := \%2 # Output filename from command line
+if not def output { # Supply one if not given
+ .output := New_\m(filename)
+}
+fopen /write \%o \m(output) # Open output file
+if fail exit # Check that we did
+
+.serial = 00000000000 # Initialize serial number
+.licenses = 0 # and license counter
+
+fread /line \%c line # First line is column labels
+if fail exit # Check
+fwrite /line \%o "\m(line),AMM_DD,AYYYY" # Write new labels line
+
+# Remaining lines are license purchases (K95B) followed by zero or more
+# maintenance invoices (K95BM) for each license.
+
+.datepaid = 00/00/0000 # Initialize last maint payment date
+.amtpaid = $0.00 # Initialize last maint payment amount
+set flag off # For remembering we're at end of file
+while not flag { # Loop to read all records
+ fread /line \%c line # Read a record
+ if fail set flag on # If EOF set flag for later
+ .n := \fsplit(\m(line),&a,\44,CSV) # Break record into array
+ if ( flag || equ "\&a[3]" "K95B" ) { # License or EOF
+ if fail exit 1 "FAILED: \v(lastcommand)"
+ if licenses { # If this is not the first license
+ .\&x[5] := \m(amtpaid) # Substitute most recent amount paid
+ .\&x[21] := \m(datepaid) # Substitute most recent date paid
+ void \fsplit(\&x[18],&d,/) # Break up original (anniversary) date
+ # and put mm_dd and yyyy in separate fields for sorting...
+ fwrite /line \%o "\fjoin(&x,CSV),\flpad(\&d[1],2,0)_\flpad(\&d[2],2,
+0),\&d[3]"
+ if fail exit 1 WRITE # Check for error
+ xecho . # Show progress as one dot per record
+ }
+ if flag break # We're at EOF so we're finished
+ increment licenses # New license - count it
+ array copy &a &x # Keep this record while reading next
+ .serial := \&a[6] # Remember serial number
+ .datepaid = 00/00/0000 # Initial maintenance payment date
+ .amtpaid = $0.00 # and amount
+ continue # and go back to read next record
+ }
+ if not eq "\m(serial)" "\&a[6]" { # Catch out-of-sequence record
+ echo
+ echo "SEQUENCE: \m(serial)..\&a[6]: \&a[7] [\&a[1]]"
+ continue
+ }
+ if equ "\&a[5]" "" .\&a[5] = $0.00 # If amount is empty make it $0.00
+ if not equ "\&a[5]" "$0.00" { # If amount is not $0.00
+ .datepaid := \&a[21] # remember date paid
+ .amtpaid := \&a[5] # and amount paid
+ }
+}
+fclose ALL # Done - close all files and exit
+exit 0 Done.
+
+
+ The result imports back into Excel, where it can be sorted, formatted,
+ or otherwise manipulated as desired.
+
+Using CSV Files: Extending Kermit's Data Structures
+
+ Now that we can parse a CSV record, what would we do with a CSV file -
+ that is, a sequence of records? If we needed all the data available at
+ once, we would want to load it into a matrix of (row,column) values.
+ But Kermit doesn't have matrices. Or does it?
+
+ Kermit has several built-in data types, but you can invent your own
+ data types as needed using Kermit's macro feature:
+
+define variablename value
+
+ For example:
+
+define alphabet abcdefghijklmnopqrstuvwxyz
+
+ This defines a macro named alphabet and gives it the value
+ abcdefghijklmnopqrstuvwxyz. A more convenient notation (added in
+ C-Kermit 7.0, see [111]Table 2) for this is:
+
+.alphabet = abcdefghijklmnopqrstuvwxyz
+
+ The two are exactly equivalent: they make a literal copy the "right
+ hand side" as the value of the macro. Then you can refer to the macro
+ anywhere in a Kermit command as "\m(macroname)":
+
+echo "Alphabet = \m(alphabet)"
+
+ There is a second way to define a macro, which is like the first except
+ that the right-hand side is evaluated first; that is, any variable
+ references or function calls in the right-hand side are replaced by
+ their values before the result is assigned to the macro. The command
+ for this is ASSIGN rather than DEFINE:
+
+define alphabet abcdefghijklmnopqrstuvwxyz
+assign backwards \freverse(\m(alphabet))
+echo "Alphabet backwards = \m(backwards)"
+
+ which prints:
+
+Alphabet backwards = zyxwvutsrqponmlkjihgfedcba
+
+ This kind of assignment can also be done like this:
+
+.alphabet = abcdefghijklmnopqrstuvwxyz
+.backwards := \freverse(\m(alphabet))
+
+ [112]Any command starting with a period is an assignment, and the
+ operator (= or :=) tells what to do with the right-hand side before
+ making the assignment.
+
+ In both the DEFINE and ASSIGN commands, the variable name itself is
+ taken literally. It is also possible, however, to have Kermit compute
+ the variable name. This is done (as described in [113]Using C-Kermit,
+ 2nd Ed., p.457), using parallel commands that start with underscore:
+ _DEFINE and _ASSIGN (alias _DEF and _ASG). These are just like DEFINE
+ and ASSIGN except they evaluate the variable name before making the
+ assignment. For example:
+
+define \%a one
+_define \%a\%a\%a 111
+
+ would create a macro named ONEONEONE with a value of 111, and:
+
+define \%a one
+define number 111
+_assign \%a\%a\%a \m(number)
+
+ would create the same macro with the same value, but:
+
+define \%a one
+define number 111
+_define \%a\%a\%a \m(number)
+
+ would give the macro a value of "\m(number)".
+
+ You can use the _ASSIGN command to create any kind of data structure
+ you want; you can find some examples in the [114]Object-Oriented
+ Programming section of the [115]Kermit Script Library. In the following
+ program we use this capability to create a two-dimensional array, or
+ matrix, to hold the all the elements of the CSV file, and then to
+ display the matrix:
+
+fopen /read \%c data.csv # Open CSV file
+if fail exit 1
+
+.\%r = 0 # Row
+.\%m = 0 # Maximum columns
+while true {
+ fread /line \%c line # Read a record
+ if fail break # End of file
+ .\%n := \fsplit(\m(line),&a,\44,CSV) # Split record into items
+ incr \%r # Count this row
+ for \%i 1 \%n 1 { # Assign items to this row of matrix
+ _asg a[\%r][\%i] \&a[\%i]
+ }
+ if > \%i \%m { .\%m := \%i } # Remember width of widest row
+}
+fclose \%c # Close CSV file
+decrement \%m # (because of how FOR loop works)
+echo MATRIX A ROWS: \%r COLUMNS: \%m # Show the matrix
+
+for \%i 1 \%r 1 { # Loop through rows
+ for \%j 1 \%m 1 { # Loop through columns of each row
+ xecho "\flpad(\m(a[\%i][\%j]),6)"
+ }
+ echo
+}
+exit 0
+
+ The matrix is called a and its elements are a[1][1], a[1][2], a[1][3],
+ ... a[2][1], etc, and you can treat this data structure exactly like a
+ two-dimensional array, in which you can refer to any element by its "X
+ and Y coordinates". For example, if the CSV file contained numeric data
+ you could compute row and column sums using simple FOR loops and
+ Kermit's built-in one-dimensional array data type:
+
+declare \&r[\%r] # Make an array for the row sums
+declare \&c[\%m] # Make an array for the column sums
+for \%i 1 \%r 1 { # Loop through rows
+ for \%j 1 \%m 1 { # Loop through columns of each row
+ increment \&r[\%i] \m(a[\%i][\%j]) # Accumulate row sum
+ increment \&c[\%j] \m(a[\%i][\%j]) # Accumulate column sum
+ }
+}
+
+ Note that the sum arrays don't have to be initialized to zero because
+ Kermit's INCREMENT command treats empty definitions as zero.
+
+Demonstration Scripts for Webmasters
+
+ These scripts all use new features of C-Kermit 9.0.
+
+ [116]ksitemap
+ A C-Kermit 9.0 script to build sitemap.xml for a website,
+ complete with Google image extensions (this is the file used by
+ webmasters to get their sites crawled and indexed optimally).
+
+ [117]The Weblog Script
+ Reads a web log, extracts the Google searches, normalizes the
+ search strings, and prints the top 20 searches, along with their
+ counts.
+
+ [118]The Amazon Script
+ Reads an Amazon Associate orders report and lists the products
+ according to the number of orders for each, or the number of
+ clicks on each.
+
+ [119]Photoalbum
+ Makes a website from a collection of JPG images.
+
+ [120]Home [121]Kermit 95 [122]C-Kermit [123]Scripts [124]Current
+ [125]New [126]FAQ [127]Support
+
+
+ C-Kermit 9.0 / [128]The Kermit Project / [129]Columbia University /
+ [130]kermit@columbia.edu / [131]validate
+
+References
+
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/cu/computinghistory/books/#menagerie
+ 12. http://www.columbia.edu/kermit/ck90tables.html
+ 13. http://www.amazon.com/gp/product/1555581641?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=1555581641
+ 14. http://www.columbia.edu/kermit/ckermit.html#download
+ 15. http://www.columbia.edu/kermit/ckermit90.html#LargeFiles
+ 16. http://www.columbia.edu/kermit/ckermit90.html#TestLargeFiles
+ 17. http://www.columbia.edu/kermit/ckermit90.html#Bignums
+ 18. http://www.columbia.edu/kermit/ckermit90.html#force3
+ 19. http://www.columbia.edu/kermit/ckermit90.html#Vareval
+ 20. http://www.columbia.edu/kermit/ckermit90.html#rename
+ 21. http://www.columbia.edu/kermit/ckermit90.html#Other
+ 22. http://www.columbia.edu/kermit/ckermit90.html#Incompatibilities
+ 23. http://www.columbia.edu/kermit/ckermit90.html#NotIn9.0
+ 24. http://www.columbia.edu/kermit/ckermit90.html#LooseEnd
+ 25. http://www.columbia.edu/kermit/ckermit90.html#pop
+ 26. http://www.columbia.edu/kermit/ckermit90.html#HPswitch
+ 27. http://www.columbia.edu/kermit/ckermit90.html#iLO
+ 28. http://www.columbia.edu/kermit/ckermit90.html#Rolm
+ 29. http://www.columbia.edu/kermit/ckermit90.html#CSV
+ 30. http://www.columbia.edu/kermit/ckermit90.html#Otherdemos
+ 31. http://www.columbia.edu/kermit/ck60manual.html
+ 32. http://www.amazon.com/gp/product/B002ACPF9M?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=390957&creativeASIN=B002ACPF9M
+ 33. http://www.columbia.edu/kermit/ckermit70.html
+ 34. http://www.columbia.edu/kermit/ckermit80.html
+ 35. http://www.columbia.edu/kermit/ckscripts.html
+ 36. http://www.columbia.edu/cu/computinghistory/dec20.html
+ 37. mailto:fdc@columbia.edu
+ 38. http://www.columbia.edu/kermit/k95.html
+ 39. http://www.columbia.edu/kermit/cu-bsd-license.html
+ 40. http://www.columbia.edu/kermit/ckermit90.html#LargeFiles
+ 41. http://www.columbia.edu/kermit/ck90tables.html
+ 42. http://www.columbia.edu/kermit/ck90tables.html
+ 43. http://www.columbia.edu/kermit/ckermit90.html#force3
+ 44. http://www.columbia.edu/kermit/ckermit90.html#Vareval
+ 45. http://www.columbia.edu/kermit/ckrename.html
+ 46. http://www.columbia.edu/kermit/csv.html
+ 47. http://www.columbia.edu/kermit/csetnames.html
+ 48. http://www.columbia.edu/kermit/ckermit90.html#HPswitch
+ 49. http://www.columbia.edu/kermit/ckdaily.html
+ 50. http://www.columbia.edu/kermit/cu-bsd-license.html
+ 51. http://www.opensource.org/
+ 52. http://kermit.columbia.edu/ck90tables.html#LF
+ 53. ftp://kermit.columbia.edu/kermit/utils/bigfile.c
+ 54. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 55. http://www.columbia.edu/kermit/ck90tables.html#LF
+ 56. ftp://kermit.columbia.edu/kermit/scripts/ckermit/easter2
+ 57. http://www.columbia.edu/kermit/em-apex.html
+ 58. http://www.iridium.com/
+ 59. http://science1.nasa.gov/science-news/science-at-nasa/2006/09jan_electrichurricanes/
+ 60. http://www.columbia.edu/kermit/ek.html
+ 61. ftp://kermit.columbia.edu/kermit/ek/simirid/
+ 62. http://www.columbia.edu/kermit/ek.html
+ 63. http://www.columbia.edu/kermit/ckermit70.html#x7.10.10
+ 64. http://www.columbia.edu/kermit/csv.html
+ 65. http://www.columbia.edu/kermit/ckermit70.html#x1.11
+ 66. http://www.columbia.edu/kermit/ckermit70.html
+ 67. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 68. http://www.columbia.edu/kermit/csetnames.html
+ 69. http://www.columbia.edu/kermit/ckdaily.html
+ 70. http://www.columbia.edu/kermit/ftpclient.html
+ 71. http://www.columbia.edu/kermit/ckdaily.html
+ 72. http://www.columbia.edu/kermit/csetnames.html
+ 73. http://www.columbia.edu/kermit/ckermit90.html#Otherdemos
+ 74. http://www.columbia.edu/kermit/input_nowrap.html
+ 75. http://www.columbia.edu/~fdc/mm/index.html
+ 76. http://www.columbia.edu/kermit/photoalbum.html
+ 77. http://www.columbia.edu/~fdc/kermit/logserial.html
+ 78. http://www.columbia.edu/kermit/ckermit90.html#message
+ 79. http://www.columbia.edu/kermit/ckermit90.html#NotIn9.0
+ 80. http://www.columbia.edu/kermit/csv.html#join
+ 81. http://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2009-3767
+ 82. http://www.columbia.edu/kermit/ftp/test/tar/x.zip
+ 83. http://www.mseclab.com/?p=180
+ 84. http://www.theregister.co.uk/2009/07/30/universal_ssl_certificate/
+ 85. http://www.columbia.edu/kermit/ckermit90.html#HPswitch
+ 86. http://www.columbia.edu/kermit/em-apex.html
+ 87. http://www.freebsd.org/releases/8.0R/announce.html
+ 88. http://www.columbia.edu/kermit/security81.html#x4.2.3
+ 89. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 90. http://www.columbia.edu/kermit/ckermit80.html#x8.7.2
+ 91. http://www.columbia.edu/kermit/ckermit80.html#x9
+ 92. http://www.columbia.edu/kermit/ckpackages.html
+ 93. http://docs.hp.com/en/B9106-90013/pty.7.html
+ 94. http://www.columbia.edu/kermit/test/text/ckc299.txt
+ 95. http://www.columbia.edu/kermit/test/text/ckutio.c
+ 96. http://www.columbia.edu/~fdc/mm/pop
+ 97. http://www.columbia.edu/~fdc/mm/
+ 98. http://www.columbia.edu/~fdc/mm/mailcheck
+ 99. http://en.wikipedia.org/wiki/Trivial_File_Transfer_Protocol
+ 100. http://www.columbia.edu/kermit/ftp/scripts/ckermit/gethpconfig
+ 101. http://www.columbia.edu/kermit/ftp/scripts/ckermit/TestSwitches.txt
+ 102. http://en.wikipedia.org/wiki/Standard_streams
+ 103. http://kermit.columbia.edu/cudocs/ilosetup.html
+ 104. http://www.columbia.edu/kermit/cudocs/cbx.html
+ 105. http://www.columbia.edu/kermit/ckermit90.html#record
+ 106. http://www.columbia.edu/kermit/ckermit90.html#join
+ 107. http://www.columbia.edu/kermit/ckermit90.html#file
+ 108. http://www.columbia.edu/kermit/ckermit80.html#fjoin
+ 109. http://www.columbia.edu/kermit/ckermit90.html#rules
+ 110. http://www.columbia.edu/kermit/ckermit80.html#fjoin
+ 111. http://www.columbia.edu/kermit/ckermit90.html#varasg
+ 112. http://www.columbia.edu/kermit/ckermit70.html#x7.9
+ 113. http://www.amazon.com/gp/product/1555581641?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=1555581641
+ 114. http://www.columbia.edu/kermit/ckscripts.html#oops
+ 115. http://www.columbia.edu/kermit/ckscripts.html
+ 116. http://www.columbia.edu/kermit/ksitemap.html
+ 117. http://www.columbia.edu/kermit/weblog.html
+ 118. http://kermit.columbia.edu/ftp/scripts/ckermit/amazon
+ 119. http://www.columbia.edu/kermit/photoalbum.html
+ 120. http://www.columbia.edu/kermit/index.html
+ 121. http://www.columbia.edu/kermit/k95.html
+ 122. http://www.columbia.edu/kermit/ckermit.html
+ 123. http://www.columbia.edu/kermit/ckscripts.html
+ 124. http://www.columbia.edu/kermit/current.html
+ 125. http://www.columbia.edu/kermit/whatsnew.html
+ 126. http://www.columbia.edu/kermit/faq.html
+ 127. http://www.columbia.edu/kermit/support.html
+ 128. http://www.columbia.edu/kermit/index.html
+ 129. http://www.columbia.edu/
+ 130. mailto:kermit@columbia.edu
+ 131. http://validator.w3.org/check?uri=http%3A%2F%2Fkermit.columbia.edu%2Fckermit90.html
; File CKERMOD.INI, Sample C-Kermit 7.0 customization file.
;
-; This file, which is ONLY A SAMPLE, should be called:
-;
-; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9)
-; CKERMOD.INI (VMS, OpenVMS, AOS/VS, OS/2, Amiga, Atari ST)
-; ckermod.ini (Stratus VOS)
-;
-; This file is executed automatically by the standard C-Kermit initialization
-; file, CKERMIT.INI (or .kermrc). This file is not executed by C-Kermit itself
-; unless the initialization file is not found.
-;
-; MODify this file to suit your needs and preferences, and install it in your
-; home directory. Or replace it entirely with a new file.
-;
-; The design of this sample customization file lets you fill in a section for
-; each different operating system where you run C-Kermit.
-;
-; In UNIX, if you give this file execute permission and make sure the top
-; line indicates the full path of the C-Kermit 7.0-or-later executable, you
-; can execute this file directly, as if it was a shell script, except it is
-; interpreted by Kermit rather than the shell. This lets you have as many
-; different startup files as you like, each suited to a particular purpose.
-;
-; Authors: Christine Gianone, Frank da Cruz, Jeffrey Altman,
-; The Kermit Project, Columbia University.
-; Creation: 23 November 1992 for C-Kermit 5A(188).
-; Modified: 30 June 1993 for edit 189.
-; 04 October 1994 for edit 190.
-; 17 April 1995 for edit 191.
-; 6 September 1996 for version 6.0, edit 192.
-; 1 January 2000 for version 7.0, edit 196.
-; 14 October 2001 for version 8.0, edit 200.
-
-ECHO
-ECHO Executing SAMPLE C-Kermit customization file \v(cmdfile) for \v(system)...
-ECHO { Please edit this file to reflect your needs and preferences.}
-ECHO
-;
-; ... and then remove the ECHO commands above.
-
-COMMENT - Settings that apply to all the systems I use:
-;
-set delay 1 ; I escape back quickly
-set dial display on ; I like to watch C-Kermit dial
-
-; Dialing locale and method
-;
-; SET DIAL COUNTRY-CODE 1 ; Uncomment and replace with yours
-; SET DIAL AREA-CODE 000 ; Uncomment and replace with yours
-; SET DIAL LD-PREFIX 1 ; Uncomment and replace with yours
-; SET DIAL INTL-PREFIX 011 ; Uncomment and replace with yours
-; SET DIAL METHOD TONE ; Uncomment and replace with PULSE if necessary
-; SET DIAL DIRECTORY ... ... ; List dialing directory files here
-
-if < \v(version) 600192 -
- stop 1 \v(cmdfile): C-Kermit 6.0.192 or later required.
-
-set take error on ; Make errors fatal temporarily
-check if ; Do we have an IF command?
-set take error off ; Yes we do, back to normal
-
-; The ON_EXIT macro is executed automatically when C-Kermit exits.
-; Define as desired.
-;
-define ON_EXIT echo Returning you to \v(system) now.
-
-; System-independent quick dialing macro. Depends on having the
-; macros MYMODEM, MYPORT, and (optionally) MYSPEED defined in the
-; system-dependent sections below.
-;
-define MYDIAL {
- if not defined MYMODEM end 1 {\%0: Modem type not defined.}
- set modem type \m(MYMODEM)
- if fail end 1 {\%0: \m(MYMODEM): Unsupported modem type.}
- if not defined MYPORT end 1 {\%0: Communication port not defined.}
- set port \m(MYPORT)
- if fail end 1 {\%0: SET PORT \m(MYPORT) failed.}
- if defined MYFLOW set flow \m(MYFLOW)
- if fail end 1 {\%0: SET FLOW \m(MYFLOW) failed.}
- if defined MYSPEED set speed \m(MYSPEED)
- if fail end 1 {\%0: SET SPEED \m(MYSPEED) failed.}
- dial \%1\%2\%3\%4\%5\%6\%7\%8\%9
- end \v(status)
-}
-
-forward \v(system) ; Go execute system-dependent commands
-
-:UNIX ; UNIX, all versions...
-define MYPORT /dev/cua ; My dialing environment
-define MYMODEM usr ; Replace these by what you actually have
-define MYSPEED 57600
-;
-; If you want all your downloads to go to the same directory, no matter
-; what your current directory is, uncomment and edit the following command:
-;
-; set file download-directory ~/download ; Download directory for UNIX
-
-; Put other UNIX-specific commands here...
-end ; End of UNIX section
-
-:VMS ; VMS and OpenVMS
-define MYPORT TXA0: ; My dialing environment
-define MYMODEM usr ; Replace these by what you actually have
-define MYSPEED 57600
-; set file download-directory [\$(USER).DOWNLOAD] ; Download directory for VMS
-; Put other VMS-specific commands here...
-end ; End of VMS section
-
-:WIN32 ; Windows and OS/2 customizations...
-:OS/2
-define MYPORT COM1 ; My dialing environment
-define MYMODEM usr ; Replace these by what you actually have
-define MYSPEED 57600
-set command byte 8 ; Use 8 bits between Kermit and console
-set xfer char latin1 ; Use Latin-1 for text file transfer
-set term char latin1 ; And use Latin-1 during CONNECT mode
-; set file download-directory C:\DOWNLOADS
-end
-
-:OS9/68K ; OS-9/68000
-define MYPORT /t3 ; My dialing environment
-define MYMODEM usr ; Replace these by what you actually have
-define MYSPEED 9600
-; set file download-directory ~/downloads
-end ; End of OS-9 section
-
-:AOS/VS ; Data General AOS/VS
-define MYPORT @con3 ; My dialing environment
-define MYMODEM usr ; Replace these by what you actually have
-define MYSPEED 9600
-; set file download-directory \v(home)DOWNLOADS
-end
-
-; And so on, you get the idea...
-; Fill in the sections that apply to you.
-
-:Stratus_VOS ; Stratus VOS
-:Amiga ; Commodore Amiga
-:Atari_ST ; Atari ST
-:Macintosh ; Apple Macintosh
-:unknown ; Others
-
-; (End of CKERMOD.INI)
+echo
+echo The very long standard initialization file that was distributed
+echo with C-Kermit 6, 7, and 8 is no longer recommended as "standard",
+echo since its features were little used. It is still available in
+echo the C-Kermit distribution as ockermod.ini.
+echo
/*
C K U A T 2 . H -- Kerberos headers for C-Kermit
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern int encrypt_debug_mode;
#endif
-#ifndef CRYPT_DLL
-extern int (*decrypt_input) P((int));
-extern void (*encrypt_output) P((unsigned char *, int));
-#endif /* CRYPT_DLL */
-
int decrypt_ks_hack(unsigned char *, int);
#endif /* __ENCRYPTION__ */
/* Version 1 variables */
int (*p_ttol)(char *,int);
- int (*p_dodebug)(int,char *,char *,long);
+ int (*p_dodebug)(int,char *,char *,CK_OFF_T);
int (*p_dohexdump)(char *,char *,int);
void (*p_tn_debug)(char *);
int (*p_vscrnprintf)(char *, ...);
-char *ckathv = "Authentication, 8.0.232, 7 Feb 2004";
+char *ckathv = "Authentication, 9.0.235, 16 Mar 2010";
/*
C K U A T H . C -- Authentication for C-Kermit
- Copyright (C) 1999, 2004,
+ Copyright (C) 1999, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifndef VMS
#ifndef FREEBSD4
#ifndef OpenBSD
+#ifdef MACOSX
+#include <sys/malloc.h>
+#else /* MACOSX */
#include <malloc.h>
+#endif /* MACOSX */
#endif /* OpenBSD */
#endif /* FREEBSD4 */
#endif /* VMS */
#undef printf
#endif /* printf */
#include "krb5.h"
+
#include "com_err.h"
+
#ifdef saveprintf
#define printf saveprintf
#endif /* saveprintf */
#ifdef CK_SSL
#ifdef LIBDES
#ifdef OPENSSL_097
+#ifdef CK_DES
#define OPENSSL_ENABLE_OLD_DES_SUPPORT
#include <openssl/des.h>
+#endif /* CK_DES */
#endif /* OPENSSL_097 */
#ifndef HEADER_DES_H
#define HEADER_DES_H
static krb5_ticket *k5_ticket = NULL;
#ifndef KRB5_SERVICE_NAME
#define KRB5_SERVICE_NAME "host"
+#ifdef MACOSX
+#define MIT_CURRENT 1
+#define decode_krb5_ticket krb5_decode_ticket
+#define krb5_read_message ck_krb5_read_message
+#define krb5_write_message ck_krb5_write_message
+#endif /* MACOSX */
#endif
_PROTOTYP(static int k5_auth_send,(int,int,int));
buf[0] = SB;
memcpy( &buf[1], sb, len-2 );
- rc = encrypt_parse(buf,len-1);
+ rc = encrypt_parse((CHAR *)buf,len-1);
if (rc < 0) {
free(buf);
if (g_kstream->encrypt && encrypt_is_encrypting()) {
#ifdef DEBUG
- hexdump("from plaintext", s, n);
+ ckhexdump("from plaintext", s, n);
#endif
i.ptr = s;
i.length = n;
g_kstream->encrypt(&i, NULL);
#ifdef DEBUG
- hexdump("to cyphertext", s, n);
+ ckhexdump("to cyphertext", s, n);
#endif
}
else debug(F101,"ck_tn_encrypt not encrypting","",n);
if (g_kstream->decrypt && encrypt_is_decrypting()) {
#ifdef DEBUG
- hexdump("from cyphertext", s, n);
+ ckhexdump("from cyphertext", s, n);
#endif
i.ptr = s;
i.length = n;
g_kstream->decrypt(&i, NULL);
#ifdef DEBUG
- hexdump("to plaintext", s, n);
+ ckhexdump("to plaintext", s, n);
#endif
}
else debug(F101,"ck_tn_decrypt not decrypting","",n);
&encdata, &data);
#else /* MIT_CURRENT */
memset(k4_sched,0,sizeof(Schedule));
- hexdump("auth_send",cred.session,8);
+ ckhexdump("auth_send",cred.session,8);
rc = des_key_sched(cred.session, k4_sched);
if ( rc == -1 ) {
printf("?Invalid DES key specified in credentials\r\n");
debug(F110,"auth_send",
"DES Key Schedule not set by credentials",0);
}
- hexdump("auth_send schedule",k4_sched,8*16);
+ ckhexdump("auth_send schedule",k4_sched,8*16);
des_set_random_generator_seed(cred.session);
des_fixup_key_parity(k4_session_key);
} while ( ck_des_is_weak_key(k4_session_key) );
- hexdump("auth_send des_new_random_key(k4_session_key)",
+ ckhexdump("auth_send des_new_random_key(k4_session_key)",
k4_session_key,8);
/* Decrypt the session key so that we can send it to the */
#else /* NT */
des_ecb_encrypt(&k4_session_key, &k4_session_key, k4_sched, 0);
#endif /* NT */
- hexdump(
+ ckhexdump(
"auth_send des_ecb_encrypt(k4_session_key,k4_session_key,0)",
k4_session_key,8
);
des_ecb_encrypt(&k4_session_key, &k4_challenge, k4_sched, 0);
#endif /* NT */
- hexdump("auth_send des_ecb_encrypt(k4_session_key,k4_challenge,0)",
+ ckhexdump("auth_send des_ecb_encrypt(k4_session_key,k4_challenge,0)",
k4_challenge,8);
#endif /* MIT_CURRENT */
/*
if (x < 256) /* if no overflow, all done */
break;
}
- hexdump("auth_send k4_challenge+1",k4_challenge,8);
+ ckhexdump("auth_send k4_challenge+1",k4_challenge,8);
#ifdef MIT_CURRENT
data.data = k4_challenge;
data.length = 8;
#else /* NT */
des_ecb_encrypt(&k4_challenge, &k4_challenge, k4_sched, 1);
#endif /* NT */
- hexdump("auth_send des_ecb_encrypt(k4_session_key,k4_challenge,1)",
+ ckhexdump("auth_send des_ecb_encrypt(k4_session_key,k4_challenge,1)",
k4_challenge,8);
#endif /* MIT_CURRENT */
}
case AUTHTYPE_KERBEROS_V5:
debug(F111,"auth_send KRB5","k5_auth.length",k5_auth.length);
for ( i=0 ; i<k5_auth.length ; i++ ) {
- if ( ((char *)k5_auth.data)[i] == IAC )
+ if ( (char *)k5_auth.data[i] == IAC )
iaccnt++;
}
-
- if ( k5_auth.length + iaccnt + 10 < sizeof(buf) )
- k5_auth.length = copy_for_net(&buf[7], k5_auth.data, k5_auth.length);
- else {
+ if ( k5_auth.length + iaccnt + 10 < sizeof(buf) ) {
+ k5_auth.length = copy_for_net(&buf[7],
+ (CHAR *)k5_auth.data,
+ k5_auth.length);
+ } else {
debug(F100,"auth_send() KRB5 auth data too large for buffer","",0);
k5_auth.length = 0;
}
- sprintf(&buf[k5_auth.length+7], "%c%c", IAC, SE); /* safe */
+ sprintf((char *)&buf[k5_auth.length+7], "%c%c", IAC, SE); /* safe */
if (deblog || tn_deb || debses) {
int i;
ckmakxmsg(tn_msg,TN_MSG_LEN,
AUTHMODE_NAME(mode)," AUTH ",
NULL,NULL,NULL,NULL,NULL
);
- tn_hex((char *)tn_msg,TN_MSG_LEN,&buf[7],k5_auth.length);
+ tn_hex((CHAR *)tn_msg,TN_MSG_LEN,&buf[7],k5_auth.length);
ckstrncat(tn_msg,"IAC SE",TN_MSG_LEN);
debug(F100,tn_msg,"",0);
if (tn_deb || debses) tn_debug(tn_msg);
#else /* NT */
des_ecb_encrypt(&k4_session_key, &k4_session_key, k4_sched, 1);
#endif /* NT */
- hexdump(
+ ckhexdump(
"k4_auth_reply des_ecb_encrypt(k4_session_key,k4_session_key,1)",
k4_session_key,
8
return AUTH_FAILURE;
}
- hexdump("KRB4_RESPONSE &parsedat[5]",&parsedat[5],8);
+ ckhexdump("KRB4_RESPONSE &parsedat[5]",&parsedat[5],8);
#ifdef CK_ENCRYPTION
- hexdump("KRB4_RESPONSE k4_challenge",k4_challenge,8);
+ ckhexdump("KRB4_RESPONSE k4_challenge",k4_challenge,8);
/* The datablock returned from the host should match the value */
/* we stored in k4_challenge. */
memcpy((void *)k4_auth.dat, (void *)data, k4_auth.length);
} else
k4_auth.length = 0;
- hexdump("k4_auth.dat",k4_auth.dat, k4_auth.length);
+ ckhexdump("k4_auth.dat",k4_auth.dat, k4_auth.length);
/* Get Instance */
inaddr.s_addr = inet_addr(myipaddr);
krb4_d_srv ? krb4_d_srv : KRB4_SERVICE_NAME,
instance, 0, &k4_adat, k4_keytab)) {
- hexdump("k4_adat", &k4_adat, sizeof(AUTH_DAT));
+ ckhexdump("k4_adat", &k4_adat, sizeof(AUTH_DAT));
krb_kntoln(&k4_adat, k4_name);
ckmakmsg(strTmp,sizeof(strTmp),
"Kerberos failed him as ", k4_name,NULL,NULL);
#ifdef CK_ENCRYPTION
memcpy((void *)k4_session_key, (void *)k4_adat.session,
sizeof(Block)); /* safe */
- hexdump("k4_auth_is k4_session_key",k4_session_key,sizeof(Block));
+ ckhexdump("k4_auth_is k4_session_key",k4_session_key,sizeof(Block));
#endif /* ENCRYPTION */
krb_kntoln(&k4_adat, k4_name);
debug(F110,"auth_is CHALLENGE",
"DES Key Schedule not set by credentials",0);
}
- hexdump("auth_is schedule",k4_sched,8*16);
+ ckhexdump("auth_is schedule",k4_sched,8*16);
memcpy((void *)datablock, (void *)data, sizeof(Block)); /* safe */
- hexdump("auth_is challege",datablock,sizeof(Block));
+ ckhexdump("auth_is challege",datablock,sizeof(Block));
/*
* Take the received encrypted challenge, and encrypt
#else /* NT */
des_ecb_encrypt(&datablock, &k4_session_key, k4_sched, 1);
#endif /* NT */
- hexdump("auth_is des_ecb_encrypt(datablock,k4_session_key,1)",
+ ckhexdump("auth_is des_ecb_encrypt(datablock,k4_session_key,1)",
k4_session_key,8);
#ifdef CK_SSL
#else /* NT */
des_ecb_encrypt(&datablock, &k4_challenge, k4_sched, 0);
#endif /* NT */
- hexdump("auth_is des_ecb_encrypt(datablock,k4_challenge,0)",
+ ckhexdump("auth_is des_ecb_encrypt(datablock,k4_challenge,0)",
k4_session_key,8);
#endif /* MIT_CURRENT */
for (r = 7; r >= 0; r--) {
if (t < 256) /* if no overflow, all done */
break;
}
- hexdump("auth_is k4_challenge+1",k4_challenge,8);
+ ckhexdump("auth_is k4_challenge+1",k4_challenge,8);
#ifdef MIT_CURRENT
kdata.data = k4_challenge;
#else /* NT */
des_ecb_encrypt(&k4_challenge, &k4_challenge, k4_sched, 1);
#endif /* NT */
- hexdump("auth_is des_ecb_encrypt(k4_challenge_key,k4_challenge,1)",
+ ckhexdump("auth_is des_ecb_encrypt(k4_challenge_key,k4_challenge,1)",
k4_challenge,8);
#endif /* MIT_CURRENT */
if ( !ok )
passwd[0] = '\0';
} else {
- ckstrncpy(passwd,pwbuf,sizeof(passwd));
+ ckstrncpy(passwd,(char *)pwbuf,sizeof(passwd));
#ifdef OS2
if ( pwcrypt )
ck_encrypt((char *)passwd);
ssl_get_server_finished(&tls_verify[0],12);
ssl_get_client_finished(&tls_verify[12],12);
- reply.data = data;
+ reply.data = (char *)data;
reply.length = cnt;
krb5_auth_con_genaddrs(k5_context, auth_context, ttyfd,
data += 4; /* Point to status byte */
cnt -= 4;
- hexdump("k5_auth_is data",data,cnt);
+ ckhexdump("k5_auth_is data",data,cnt);
debug(F111,"k5_auth_is","how",how);
if (cnt-- < 1) {
#ifdef HEIMDAL
if (!r)
- r = krb5_auth_con_setaddrs_from_fd(k5_context,auth_context,&ttyfd);
-
+ r = krb5_auth_con_setaddrs_from_fd(k5_context,
+ auth_context,
+ &ttyfd);
if (!r)
- r = krb5_sock_to_principal(k5_context,0,"host",
- KRB5_NT_SRV_HST,&server);
-
+ r = krb5_sock_to_principal(k5_context,
+ 0,
+ "host",
+ KRB5_NT_SRV_HST,
+ &server);
if (!r)
#else /* HEIMDAL */
if (!r) {
if ((how & AUTH_ENCRYPT_MASK) == AUTH_ENCRYPT_START_TLS) {
ssl_get_client_finished(&type_check[2],12);
ssl_get_server_finished(&type_check[14],12);
- hexdump("k5_auth_is type_check",type_check,26);
+ ckhexdump("k5_auth_is type_check",type_check,26);
}
#endif /* CK_SSL */
if ((how & AUTH_ENCRYPT_MASK) == AUTH_ENCRYPT_START_TLS) {
ssl_get_client_finished(&type_check[2],12);
ssl_get_server_finished(&type_check[14],12);
- hexdump("k5_auth_is type_check",type_check,26);
+ ckhexdump("k5_auth_is type_check",type_check,26);
}
#endif /* CK_SSL */
data += 4; /* Point to status byte */
cnt -= 4;
- hexdump("gssk5_auth_is data",data,cnt);
+ ckhexdump("gssk5_auth_is data",data,cnt);
debug(F111,"gssk5_auth_is","how",how);
if (cnt-- < 1) {
if (!(ssl_active_flag || tls_active_flag))
#endif /* CK_SSL */
{
- hexdump("SRP_RESPONSE ts",ts,sizeof(ts));
- hexdump("SRP_RESPONSE session_key",
+ ckhexdump("SRP_RESPONSE ts",ts,sizeof(ts));
+ ckhexdump("SRP_RESPONSE session_key",
ts->session_key,
SESSION_KEY_LEN
);
debug(F100,"ck_krb_rlogin version 5","",0);
- realm = ck_krb5_realmofhost(hostname);
+ realm = ck_krb5_realmofhost((char *)hostname);
if (!realm) {
ckstrncpy(strTmp, "Can't find realm for host \"",AUTHTMPBL);
- ckstrncat(strTmp, hostname,AUTHTMPBL);
+ ckstrncat(strTmp, (char *)hostname,AUTHTMPBL);
ckstrncat(strTmp, "\"",AUTHTMPBL);
printf("?Kerberos 5 error: %s\r\n",strTmp);
krb5_errno = KRB5_ERR_HOST_REALM_UNKNOWN;
(ck_krb5_is_tgt_valid() > 0)) )
ck_krb5_autoget_TGT(realm);
- buflen = strlen(term_speed)+strlen(remoteuser)+64;
- if ((cksumbuf = malloc(buflen)) == 0)
- {
+ buflen = strlen((char *)term_speed) + strlen((char *)remoteuser) + 64;
+ if ((cksumbuf = malloc(buflen)) == 0) {
printf("Unable to allocate memory for checksum buffer.\r\n");
return(-1);
}
-
ckmakmsg(cksumbuf,buflen,ckuitoa((unsigned short) ntohs(port)),":",
- term_speed,remoteuser);
+ (char *)term_speed,(char *)remoteuser);
cksumdat.data = cksumbuf;
cksumdat.length = strlen(cksumbuf);
return(-1);
}
memset(get_cred,0,sizeof(krb5_creds));
- status = krb5_sname_to_principal(k5_context, hostname, service,
- KRB5_NT_SRV_HST, &get_cred->server);
+ status = krb5_sname_to_principal(k5_context, (char *) hostname,
+ service, KRB5_NT_SRV_HST,
+ &get_cred->server);
if (status) {
printf("ck_krb_rlogin: krb5_sname_to_principal failed: %s\r\n",
error_message(status));
krb5_free_ap_rep_enc_part(k5_context, rep_ret);
}
- (void) ttol(remoteuser, strlen(remoteuser)+1);
- (void) ttol(term_speed, strlen(term_speed)+1);
- (void) ttol(localuser, strlen(localuser)+1);
+ (void) ttol(remoteuser, strlen((char *)remoteuser)+1);
+ (void) ttol(term_speed, strlen((char *)term_speed)+1);
+ (void) ttol(localuser, strlen((char *)localuser)+1);
if (forward_flag) { /* Forward credentials (global) */
if (status = krb5_fwd_tgt_creds( k5_context,
auth_context,
- hostname,
+ (char *)hostname,
ret_cred->client,
ret_cred->server,
0,
if ((c = ttinc(0)) < 0) {
if (c==-1) {
- perror(hostname);
+ perror((char *)hostname);
} else {
printf("ck_krb_rlogin: bad connection with remote host\r\n");
}
if (status = krb5_c_encrypt_length(k5_context,
k5_session_key->enctype,
use_ivecs ? rd_len + 4 : rd_len,
- &net_len)) {
+ (size_t *)&net_len)) {
errno = status;
return(-1);
}
} else if ( cc != rd_len )
return(0);
- hexdump("krb4_des_read des_inbuf",des_inbuf,8);
+ ckhexdump("krb4_des_read des_inbuf",des_inbuf,8);
#ifdef CK_ENCRYPTION
#ifdef KRB524
(void) des_pcbc_encrypt(des_inbuf,
DECRYPT);
#endif /* KRB524 */
#endif /* ENCRYPTION */
- hexdump("krb4_des_read storage",storage,8);
+ ckhexdump("krb4_des_read storage",storage,8);
/*
* when the cleartext block is < 8 bytes, it is "right-justified"
random_confounder(8 - len, garbage_buf);
/* this "right-justifies" the data in the buffer */
(void) memcpy(garbage_buf + 8 - len, buf, len); /* safe */
- hexdump("krb4_des_write garbage_buf",garbage_buf,8);
+ ckhexdump("krb4_des_write garbage_buf",garbage_buf,8);
} else
- hexdump("krb4_des_write buf",buf,8);
+ ckhexdump("krb4_des_write buf",buf,8);
#ifdef CK_ENCRYPTION
#ifdef KRB524
(void) des_pcbc_encrypt((len < 8) ? garbage_buf : buf,
#endif /* KRB524 */
#endif /* ENCRYPTION */
if ( len < 8 )
- hexdump("krb4_des_write (post pcbc) garbage_buf",garbage_buf,8);
+ ckhexdump("krb4_des_write (post pcbc) garbage_buf",garbage_buf,8);
else
- hexdump("krb4_des_write (post pcbc) buf",buf,8);
- hexdump("krb4_des_write (des_outpkt+4)",(des_outpkt+4),8);
+ ckhexdump("krb4_des_write (post pcbc) buf",buf,8);
+ ckhexdump("krb4_des_write (des_outpkt+4)",(des_outpkt+4),8);
/* tell the other end the real amount, but send an 8-byte padded
packet */
len_buf[1] = (len & 0xff0000) >> 16;
len_buf[2] = (len & 0xff00) >> 8;
len_buf[3] = (len & 0xff);
- hexdump("krb4_des_write des_outpkt len",des_outpkt,12);
+ ckhexdump("krb4_des_write des_outpkt len",des_outpkt,12);
cc = net_write(fd, des_outpkt, roundup(len,8)+4);
debug(F111,"net_write","chars written",cc);
return(len);
/* create k5_context */
krb5_init_context(&k5_context);
#ifndef MIT_CURRENT
+#ifndef NO_KRB5_INIT_ETS
+/* This routine is a no-op in Kerberos 1.4.x and later */
+/* and in some installations it can't be found in which case */
+/* define NO_KRB5_INIT_ETS */
if (k5_context)
krb5_init_ets(k5_context);
+#endif /* NO_KRB5_INIT_ETS */
#endif /* MIT_CURRENT */
#ifdef KRB524_CONV
krb524_init_ets(k5_context);
break;
}
}
+
+#ifdef MACOSX
+#ifdef KRB5
+
+krb5_error_code
+ck_krb5_write_message(krb5_context con, krb5_pointer ptr, krb5_data *data)
+{
+ int fd = *((int *)ptr);
+ long msglen;
+
+ msglen = htonl(data->length);
+ if (net_write(fd,(CHAR *)&msglen,4) != 4) {
+ return(-1);
+ }
+ if ( data->length ) {
+ if (net_write(fd,data->data,data->length) != data->length) {
+ return(-1);
+ }
+ }
+ return(0);
+}
+
+krb5_error_code
+ck_krb5_read_message( krb5_context context,
+ krb5_pointer ptr,
+ krb5_data * data)
+{
+ extern int ttyfd;
+ int fd = *((int *)ptr);
+ long msglen;
+ char *p;
+ int i, rc;
+
+ if (net_read(fd,&msglen,4) < 0)
+ return(-1);
+
+ data->length = ntohl(msglen);
+ if ( data->length ) {
+ data->data = malloc(data->length);
+
+ i = 0;
+ while ( i < data->length ) {
+ if ((rc = net_read(fd,&data->data[i],(data->length - i))) < 0)
+ return(-1);
+ i += rc;
+ }
+ }
+ return(0);
+}
+#endif /* KRB5 */
+#endif /* MACOSX */
#endif /* CK_SECURITY */
+
+
Author: Jeffrey E Altman <jaltman@secure-endpoints.com>,
Secure Endpoints Inc., New York City.
- Copyright (C) 1999, 2004,
+ Copyright (C) 1999, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
/* successfully in Kermit 95 due to the segmentation of crypto */
/* into a separate DLL. */
+#ifndef KRB5_INIT_ETS
+/* krb5_init_ets() is a no-op in Kerberos 1.4.x and later */
+/* and in some installations it can't be found so now by default */
+/* we don't use it. */
+#define NO_KRB5_INIT_ETS
+#endif /* KRB5_INIT_ETS */
+
#define KRB_DEFTIM 600 /* Default lifetime (minutes) */
/* Kerberos structure definitions */
- C-Kermit 8.0 Unix Hints and Tips
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
+
+C-Kermit Unix Hints and Tips
Frank da Cruz
- [1]The Kermit Project, [2]Columbia University
+ [11]The Kermit Project, [12]Columbia University
- As of: C-Kermit 8.0.211 10 April 2004
- This page last updated: Fri Apr 16 16:13:14 2004 (New York USA Time)
+ As of: C-Kermit 9.0.302, 20 August 2011
+ This page last updated: Sun Aug 21 12:08:52 2011 (New York USA Time)
- IF YOU ARE READING A PLAIN-TEXT version of this document, note it
- is a plain-text dump of a Web page. You can visit the original (and
+ IF YOU ARE READING A PLAIN-TEXT version of this document, note it is
+ a plain-text dump of a Web page. You can visit the original (and
possibly more up-to-date) Web page here:
- [3]http://www.columbia.edu/kermit/ckubwr.html
+ [13]http://www.columbia.edu/kermit/ckubwr.html
Since the material in this file has been accumulating since 1985,
- some (much) of it might be dated. [4]Feedback from experts on
- particular OS's and platforms is always welcome.
+ some (much) of it might be dated.
+
+Known problems with C-Kermit 9.0
- [ [5]C-Kermit ] [ [6]Installation Instructions ] [ [7]TUTORIAL ]
- ________________________________________________________________________
+ * Domain name resolution does not work in Solaris 10 or 11 (fixed in
+ [14]9.0.301).
+ * UUCP lockfile failure in FreeBSD 8 (fixed in [15]9.0.302).
+ * Build failure FreeBSD 9 (fixed in [16]9.0.302).
+ * Opening new SSH sessions after closing previous ones sometimes
+ fails.
+ * Heimdal Kerberos not supported.
- CONTENTS
+ [ [17]C-Kermit ] [ [18]Installation Instructions ] [ [19]TUTORIAL ]
- 1. [8]INTRODUCTION
- 2. [9]PREBUILT C-KERMIT BINARIES
- 3. [10]PLATFORM-SPECIFIC NOTES
- 4. [11]GENERAL UNIX-SPECIFIC LIMITATIONS AND BUGS
- 5. [12]INITIALIZATION AND COMMAND FILES
- 6. [13]COMMUNICATION SPEED SELECTION
- 7. [14]COMMUNICATIONS AND DIALING
- 8. [15]HARDWARE FLOW CONTROL
- 9. [16]TERMINAL CONNECTION AND KEY MAPPING
- 10. [17]FILE TRANSFER
- 11. [18]EXTERNAL FILE TRANSFER PROTOCOLS
- 12. [19]SECURITY
- 13. [20]MISCELLANEOUS USER REPORTS
- 14. [21]THIRD-PARTY DRIVERS
+CONTENTS
- Quick Links: [ [22]Linux ] [ [23]*BSD ] [[24]Mac OS X] [ [25]AIX ] [
- [26]HP-UX ] [ [27]Solaris ] [ [28]SCO ] [ [29]DEC/Compaq ]
- ________________________________________________________________________
+ 1. [20]INTRODUCTION
+ 2. [21]PREBUILT C-KERMIT BINARIES
+ 3. [22]PLATFORM-SPECIFIC NOTES
+ 4. [23]GENERAL UNIX-SPECIFIC LIMITATIONS AND BUGS
+ 5. [24]INITIALIZATION AND COMMAND FILES
+ 6. [25]COMMUNICATION SPEED SELECTION
+ 7. [26]COMMUNICATIONS AND DIALING
+ 8. [27]HARDWARE FLOW CONTROL
+ 9. [28]TERMINAL CONNECTION AND KEY MAPPING
+ 10. [29]FILE TRANSFER
+ 11. [30]EXTERNAL FILE TRANSFER PROTOCOLS
+ 12. [31]SECURITY
+ 13. [32]MISCELLANEOUS USER REPORTS
+ 14. [33]THIRD-PARTY DRIVERS
- 1. INTRODUCTION
+ Quick Links: [ [34]Linux ] [ [35]*BSD ] [[36]Mac OS X] [ [37]AIX ] [
+ [38]HP-UX ] [ [39]Solaris ] [ [40]SCO ]
- [ [30]Top ] [ [31]Contents ] [ [32]Next ]
+1. INTRODUCTION
+
+ [ [41]Top ] [ [42]Contents ] [ [43]Next ]
SECTION CONTENTS
- 1.1. [33]Documentation
- 1.2. [34]Technical Support
- 1.3. [35]The Year 2000
- 1.4. [36]The Euro
+ 1.1. [44]Documentation
+ 1.2. [45]Technical Support
+ 1.3. [46]The Year 2000
+ 1.4. [47]The Euro
THIS IS WHAT USED TO BE CALLED the "beware file" for the Unix version
of C-Kermit, previously distributed as ckubwr.txt and, before that, as
(DEC) software releases that came with release notes (describing what
had changed) and a "beware file" listing known bugs, limitations,
"non-goals", and things to watch out for. The C-Kermit beware file has
- been accumulating since 1985, and it applies to many different
- hardware platforms and operating systems, and many versions of them,
- so it is quite large. Prior to C-Kermit 8.0, it was distributed only
- in plain-text format. Now it is available as a Web document with
- links, internal cross references, and so on, to make it easier to use.
+ been accumulating since 1985, and it applies to many different hardware
+ platforms and operating systems, and many versions of them, so it is
+ quite large. Prior to C-Kermit 8.0, it was distributed only in
+ plain-text format. Now it is available as a Web document with links,
+ internal cross references, and so on, to make it easier to use.
This document applies to Unix C-Kermit in general, as well as to
- specific Unix variations like [37]Linux, [38]AIX, [39]HP-UX,
- [40]Solaris, and so on, and should be read in conjunction with the
- [41]platform-independent C-Kermit beware file, which contains similar
+ specific Unix variations like [48]Linux, [49]AIX, [50]HP-UX,
+ [51]Solaris, and so on, and should be read in conjunction with the
+ [52]platform-independent C-Kermit beware file, which contains similar
information, but applying to all versions of C-Kermit (VMS, Windows,
OS/2, AOS/VS, VOS, etc, as well as to Unix).
There is much in this document that is (only) of historical interest.
- The navigation links should help you skip directly to the sections
- that are relevant to you. Numerous offsite Web links are supposed to
- lead to further information but, as you know, Web links go stale
- frequently and without warning. If you can supply additional,
- corrected, updated, or better Web links, please feel free to [42]let
- us know.
+ The navigation links should help you skip directly to the sections that
+ are relevant to you. Numerous offsite Web links are supposed to lead to
+ further information but, as you know, Web links go stale frequently and
+ without warning. If you can supply additional, corrected, updated, or
+ better Web links, please feel free to [53]let me know.
- 1.1. Documentation
+1.1. Documentation
- [ [43]Top ] [ [44]Contents ] [ [45]Next ]
+ [ [54]Top ] [ [55]Contents ] [ [56]Next ]
- C-Kermit 6.0 is documented in the book [46]Using C-Kermit, Second
+ C-Kermit 6.0 is documented in the book [57]Using C-Kermit, Second
Edition, by Frank da Cruz and Christine M. Gianone, Digital Press,
- Burlington, MA, USA, ISBN 1-55558-164-1 (1997), 622 pages. This
- remains the definitive C-Kermit documentation. Until the third edition
- is published (sorry, there is no firm timeframe for this), please also
+ Burlington, MA, USA, ISBN 1-55558-164-1 (1997), 622 pages. This remains
+ the definitive C-Kermit documentation. Until the third edition is
+ published (sorry, there is no firm timeframe for this), please also
refer to:
- [47]Supplement to Using C-Kermit, Second Edition, For C-Kermit 7.0
+ [58]Supplement to Using C-Kermit, Second Edition, For C-Kermit 7.0
Thorough documentation of features new to version 7.0.
- [48]Supplement to Using C-Kermit, Second Edition, For C-Kermit 8.0
+ [59]Supplement to Using C-Kermit, Second Edition, For C-Kermit 8.0
Thorough documentation of features new to version 8.0.
- 1.2. Technical Support
+ [60]Supplement to Using C-Kermit, Second Edition, For C-Kermit 9.0
+ Thorough documentation of features new to version 9.0.
+
+1.2. Technical Support
- [ [49]Top ] [ [50]Contents ] [ [51]Section Contents ] [ [52]Next ] [
- [53]Previous ]
+ [ [61]Top ] [ [62]Contents ] [ [63]Section Contents ] [ [64]Next ] [
+ [65]Previous ]
For information on how to get technical support, please visit:
- [54]http://www.columbia.edu/kermit/support.html
+ [66]http://www.columbia.edu/kermit/support.html
- 1.3. The Year 2000
+1.3. The Year 2000
- [ [55]Top ] [ [56]Contents ] [ [57]Section Contents ] [ [58]Next ] [
- [59]Previous ]
+ [ [67]Top ] [ [68]Contents ] [ [69]Section Contents ] [ [70]Next ] [
+ [71]Previous ]
The Unix version of C-Kermit, release 6.0 and later, is "Year 2000
- compliant", but only if the underlying operating system is too.
- Contact your Unix operating system vendor to find out which operating
- system versions, patches, hardware, and/or updates are required.
- (Quite a few old Unixes are still in operation in the new millenium,
- but with their date set 28 years in the past so at least the non-year
- parts of the calendar are correct.)
+ compliant", but only if the underlying operating system is too. Contact
+ your Unix operating system vendor to find out which operating system
+ versions, patches, hardware, and/or updates are required. (Quite a few
+ old Unixes are still in operation in the new millenium, but with their
+ date set 28 years in the past so at least the non-year parts of the
+ calendar are correct.)
As of C-Kermit 6.0 (6 September 1996), post-millenium file dates are
recognized, transmitted, received, and reproduced correctly during the
file transfer process in C-Kermit's File Attribute packets. If
- post-millenium dates are not processed correctly on the other end,
- file transfer still takes place, but the modification or creation date
- of the received file might be incorrect. The only exception would be
- if the "file collision update" feature is being used to prevent
- unnecessary transfer of files that have not changed since the last
- time a transfer took place; in this case, a file might be transferred
- unnecessarily, or it might not be transferred when it should have
- been. Correct operation of the update feature depends on both Kermit
- programs having the correct date and time.
+ post-millenium dates are not processed correctly on the other end, file
+ transfer still takes place, but the modification or creation date of
+ the received file might be incorrect. The only exception would be if
+ the "file collision update" feature is being used to prevent
+ unnecessary transfer of files that have not changed since the last time
+ a transfer took place; in this case, a file might be transferred
+ unnecessarily, or it might not be transferred when it should have been.
+ Correct operation of the update feature depends on both Kermit programs
+ having the correct date and time.
Of secondary importance are the time stamps in the transaction and/or
- debug logs, and the date-related script programming constructs, such
- as \v(date), \v(ndate), \v(day), \v(nday), and perhaps also the
+ debug logs, and the date-related script programming constructs, such as
+ \v(date), \v(ndate), \v(day), \v(nday), and perhaps also the
time-related ones, \v(time) and \v(ntime), insofar as they might be
affected by the date. The \v(ndate) is a numeric-format date of the
form yyyymmdd, suitable for both lexical and numeric comparison and
Command and script programming functions that deal with dates use
C-Kermit specific code that always uses full years.
- 1.4. The Euro
+1.4. The Euro
- [ [60]Top ] [ [61]Contents ] [ [62]Section Contents ] [ [63]Previous ]
+ [ [72]Top ] [ [73]Contents ] [ [74]Section Contents ] [ [75]Previous ]
C-Kermit 7.0 and later support Unicode (ISO 10646), ISO 8859-15 Latin
Alphabet 9, PC Code Page 858, Windows Code Pages 1250 and 1251, and
perhaps other character sets, that encode the Euro symbol, and can
translate among them as long as no intermediate character-set is
involved that does not include the Euro.
- ________________________________________________________________________
- 2. PREBUILT C-KERMIT BINARIES
+2. PREBUILT C-KERMIT BINARIES
- [ [64]Top ] [ [65]Contents ] [ [66]Next ] [ [67]Previous ]
+ [ [76]Top ] [ [77]Contents ] [ [78]Next ] [ [79]Previous ]
It is often dangerous to run a binary C-Kermit (or any other) program
built on a different computer. Particularly if that computer had a
It is often OK to run a binary built on an earlier OS version, but it
is rarely possible (or safe) to run a binary built on a later one, for
- example to run a binary built under Solaris 8 on Solaris 2.6.
- Sometimes even the OS-or-library patch/ECO level makes a difference.
+ example to run a binary built under Solaris 8 on Solaris 2.6. Sometimes
+ even the OS-or-library patch/ECO level makes a difference.
A particularly insidious problem occurs when a binary was built on a
- version of the OS that has patches from the vendor (e.g. to
- libraries); in many cases you won't be able to run such a binary on an
- unpatched version of the same platform.
+ version of the OS that has patches from the vendor (e.g. to libraries);
+ in many cases you won't be able to run such a binary on an unpatched
+ version of the same platform.
When in doubt, build C-Kermit from the source code on the computer
where it is to be run (if possible!). If not, ask us for a binary
specific to your configuration. We might have one, and if we don't, we
might be able to find somebody who will build one for you.
- ________________________________________________________________________
- 3. NOTES ON SPECIFIC UNIX VERSIONS
+3. NOTES ON SPECIFIC UNIX VERSIONS
- [ [68]Top ] [ [69]Contents ] [ [70]Next ] [ [71]Previous ]
+ [ [80]Top ] [ [81]Contents ] [ [82]Next ] [ [83]Previous ]
SECTION CONTENTS
- 3.0. [72]C-KERMIT ON PC-BASED UNIXES
- 3.1. [73]C-KERMIT AND AIX
- 3.2. [74]C-KERMIT AND HP-UX
- 3.3. [75]C-KERMIT AND LINUX
- 3.4. [76]C-KERMIT AND NEXTSTEP
- 3.5. [77]C-KERMIT AND QNX
- 3.6. [78]C-KERMIT AND SCO
- 3.7. [79]C-KERMIT AND SOLARIS
- 3.8. [80]C-KERMIT AND SUNOS
- 3.9. [81]C-KERMIT AND ULTRIX
- 3.10. [82]C-KERMIT AND UNIXWARE
- 3.11. [83]C-KERMIT AND APOLLO SR10
- 3.12. [84]C-KERMIT AND TANDY XENIX 3.0
- 3.13. [85]C-KERMIT AND OSF/1 (DIGITAL UNIX) (TRU64 UNIX)
- 3.14. [86]C-KERMIT AND SGI IRIX
- 3.15. [87]C-KERMIT AND THE BEBOX
- 3.16. [88]C-KERMIT AND DG/UX
- 3.17. [89]C-KERMIT AND SEQUENT DYNIX
- 3.18. [90]C-KERMIT AND {FREE,OPEN,NET}BSD
- 3.19. [91]C-KERMIT AND MAC OS X
- 3.20. [92]C-KERMIT AND COHERENT
+ 3.0. [84]C-KERMIT ON PC-BASED UNIXES
+ 3.1. [85]C-KERMIT AND AIX
+ 3.2. [86]C-KERMIT AND HP-UX
+ 3.3. [87]C-KERMIT AND LINUX
+ 3.4. [88]C-KERMIT AND NEXTSTEP
+ 3.5. [89]C-KERMIT AND QNX
+ 3.6. [90]C-KERMIT AND SCO
+ 3.7. [91]C-KERMIT AND SOLARIS
+ 3.8. [92]C-KERMIT AND SUNOS
+ 3.9. [93]C-KERMIT AND ULTRIX
+ 3.10. [94]C-KERMIT AND UNIXWARE
+ 3.11. [95]C-KERMIT AND APOLLO SR10
+ 3.12. [96]C-KERMIT AND TANDY XENIX 3.0
+ 3.13. [97]C-KERMIT AND OSF/1 (DIGITAL UNIX) (TRU64 UNIX)
+ 3.14. [98]C-KERMIT AND SGI IRIX
+ 3.15. [99]C-KERMIT AND THE BEBOX
+ 3.16. [100]C-KERMIT AND DG/UX
+ 3.17. [101]C-KERMIT AND SEQUENT DYNIX
+ 3.18. [102]C-KERMIT AND {FREE,OPEN,NET}BSD
+ 3.19. [103]C-KERMIT AND MAC OS X
+ 3.20. [104]C-KERMIT AND COHERENT
The following sections apply to specific Unix versions. Most of them
- contain references to FAQs (Frequently Asked Questions), but these
- tend to be ephemeral. For possibly more current information see:
+ contain references to FAQs (Frequently Asked Questions), but these tend
+ to be ephemeral. For possibly more current information see:
- [93]http://www.faqs.org
- [94]http://aplawrence.com/Unixart/newtounix.html
+ [105]http://www.faqs.org
+ [106]http://aplawrence.com/Unixart/newtounix.html
One thread that runs through many of them, and implicitly perhaps
through all, concerns the problems that occur when trying to dial out
on a serial device that is (also) enabled for dialing in. The
"solutions" to this problem are many, varied, diverse, and usually
gross, involving configuring the device for bidirectional use. This is
- done in a highly OS-dependent and often obscure manner, and the
- effects (good or evil) are also highly dependent on the particular OS
- (and getty variety, etc). Many examples are given in the
- [95]OS-specific sections below.
+ done in a highly OS-dependent and often obscure manner, and the effects
+ (good or evil) are also highly dependent on the particular OS (and
+ getty variety, etc). Many examples are given in the [107]OS-specific
+ sections below.
An important point to keep in mind is that C-Kermit is a
cross-platform, portable software program. It was not designed
releases. If you think that C-Kermit is behaving badly or missing
something on your particular Unix version, you might be right -- we
can't claim to be expert in hundreds of different OS / version /
- hardware / library combinations. If you're a programmer, take a look
- at the source code and [96]send us your suggested fixes or changes. Or
- else just [97]send us a report about what seems to be wrong and we'll
+ hardware / library combinations. If you're a programmer, take a look at
+ the source code and [108]send us your suggested fixes or changes. Or
+ else just [109]send us a report about what seems to be wrong and we'll
see what we can do.
- ________________________________________________________________________
- 3.0. C-KERMIT ON PC-BASED UNIXES
+3.0. C-KERMIT ON PC-BASED UNIXES
- [ [98]Top ] [ [99]Contents ] [ [100]Section Contents ] [ [101]Next ]
+ [ [110]Top ] [ [111]Contents ] [ [112]Section Contents ] [ [113]Next ]
- Also see: [102]http://www.pcunix.com/.
+ Also see: [114]http://www.pcunix.com/.
SECTION CONTENTS
- 3.0.1. [103]Interrupt Conflicts
- 3.0.2. [104]Windows-Specific Hardware
- 3.0.3. [105]Modems
- 3.0.4. [106]Character Sets
- 3.0.5. [107]Keyboard, Screen, and Mouse Access
- 3.0.6. [108]Laptops
+ 3.0.1. [115]Interrupt Conflicts
+ 3.0.2. [116]Windows-Specific Hardware
+ 3.0.3. [117]Modems
+ 3.0.4. [118]Character Sets
+ 3.0.5. [119]Keyboard, Screen, and Mouse Access
+ 3.0.6. [120]Laptops
- 3.0.1. Interrupt Conflicts
+3.0.1. Interrupt Conflicts
- [ [109]Top ] [ [110]Contents ] [ [111]Section Contents ] [ [112]Next ]
+ [ [121]Top ] [ [122]Contents ] [ [123]Section Contents ] [ [124]Next ]
- PCs are not the best platform for real operating systems like Unix.
- The architecture suffers from numerous deficiencies, not the least of
- which is the stiflingly small number of hardware interrupts (either 7
- or 15, many of which are preallocated). Thus adding devices, using
- multiple serial ports, etc, is always a challenge and often a
- nightmare. The free-for-all nature of the PC market and the lack of
- standards combined with the diversity of Unix OS versions make it
- difficult to find drivers for any particular device on any particular
- version of Unix.
+ PCs are not the best platform for real operating systems like Unix. The
+ architecture suffers from numerous deficiencies, not the least of which
+ is the stiflingly small number of hardware interrupts (either 7 or 15,
+ many of which are preallocated). Thus adding devices, using multiple
+ serial ports, etc, is always a challenge and often a nightmare. The
+ free-for-all nature of the PC market and the lack of standards combined
+ with the diversity of Unix OS versions make it difficult to find
+ drivers for any particular device on any particular version of Unix.
Of special interest to Kermit users is the fact that there is no
- standard provision in the PC architecture for more than 2
- communication (serial) ports. COM3 and COM4 (or higher) will not work
- unless you (a) find out the hardware address and interrupt for each,
- (b) find out how to provide your Unix version with this information,
- and (c) actually set up the configuration in the Unix startup files
- (or whatever other method is used). Watch out for interrupt conflicts,
- especially when using a serial mouse, and don't expect to be able to
- use more than two serial ports.
-
- The techniques for resolving interrupt conflicts are different for
- each operating system (Linux, NetBSD, etc). In general, there is a
- configuration file somewhere that lists COM ports, something like
- this:
+ standard provision in the PC architecture for more than 2 communication
+ (serial) ports. COM3 and COM4 (or higher) will not work unless you (a)
+ find out the hardware address and interrupt for each, (b) find out how
+ to provide your Unix version with this information, and (c) actually
+ set up the configuration in the Unix startup files (or whatever other
+ method is used). Watch out for interrupt conflicts, especially when
+ using a serial mouse, and don't expect to be able to use more than two
+ serial ports.
+
+ The techniques for resolving interrupt conflicts are different for each
+ operating system (Linux, NetBSD, etc). In general, there is a
+ configuration file somewhere that lists COM ports, something like this:
com0 at isa? port 0x3f8 irq 4 # DOS COM1
com1 at isa? port 0x2f8 irq 3 # DOS COM2
After much hair pulling, I've discovered why my serial port won't
work. Apparently my [PC] has three serial devices (two comm ports
- and an IR port), of which only two at a time can be active. I
- looked in the BIOS setup and noticed that the IR port was
- activated, but didn't realize at the time that this meant that COM2
- was thereby de-activated. I turned off the IR port and now the
- serial port works as advertised.
- ________________________________________________________________________
+ and an IR port), of which only two at a time can be active. I looked
+ in the BIOS setup and noticed that the IR port was activated, but
+ didn't realize at the time that this meant that COM2 was thereby
+ de-activated. I turned off the IR port and now the serial port works
+ as advertised.
- 3.0.2. Windows-Specific Hardware
+3.0.2. Windows-Specific Hardware
- [ [113]Top ] [ [114]Contents ] [ [115]Section Contents ] [ [116]Next ]
- [ [117]Previous ]
+ [ [125]Top ] [ [126]Contents ] [ [127]Section Contents ] [ [128]Next ]
+ [ [129]Previous ]
To complicate matters, the PC platform is becoming increasingly and
inexorably Windows-oriented. More and more add-on devices are "Windows
only" -- meaning they are incomplete and rely on proprietary
- Windows-based software drivers to do the jobs that you would expect
- the device itself to do. PCMCIA, PCI, or "Plug-n-Play" devices are
- rarely supported on PC-based Unix versions such as SCO; Winmodems,
+ Windows-based software drivers to do the jobs that you would expect the
+ device itself to do. PCMCIA, PCI, or "Plug-n-Play" devices are rarely
+ supported on PC-based Unix versions such as SCO; Winmodems,
Winprinters, and the like are not supported on any Unix variety (with
- [118]a few exceptions). The self-proclaimed Microsoft PC 97 (or later)
- standard only makes matters worse since its only purpose to ensure
- that PCs are "optimized to run Windows 95 and Windows NT 4.0 and
- future versions of these operating systems".
-
- With the exception noted (the Lucent modem, perhaps a handful of
- others by the time you read this), drivers for "Win" devices are
- available only for Windows, since the Windows market dwarfs that of
- any particular Unix brand, and for that matter all Unixes (or for that
- matter, all non-Windows operating systems) combined. If your version
- of Unix (SCO, Linux, BSDI, FreeBSD, etc) does not support a particular
+ [130]a few exceptions). The self-proclaimed Microsoft PC 97 (or later)
+ standard only makes matters worse since its only purpose to ensure that
+ PCs are "optimized to run Windows 95 and Windows NT 4.0 and future
+ versions of these operating systems".
+
+ With the exception noted (the Lucent modem, perhaps a handful of others
+ by the time you read this), drivers for "Win" devices are available
+ only for Windows, since the Windows market dwarfs that of any
+ particular Unix brand, and for that matter all Unixes (or for that
+ matter, all non-Windows operating systems) combined. If your version of
+ Unix (SCO, Linux, BSDI, FreeBSD, etc) does not support a particular
device, then C-Kermit can't use it either. C-Kermit, like any Unix
application, must access all devices through drivers and not directly
because Unix is a real operating system.
since Unix is a true multitasking operating system, realtime device
control is not possible outside the kernel. Second, the specifications
for these devices are secret and proprietary, and each one (and each
- version of each one) is potentially different. Third, a Winmodem
- driver would be enormously complex; it would take years to write and
- debug, by which time it would be obsolete.
+ version of each one) is potentially different. Third, a Winmodem driver
+ would be enormously complex; it would take years to write and debug, by
+ which time it would be obsolete.
A more recent generation of PCs (circa 1999-2000) is marketed as
- "Legacy Free". One can only speculate what that could mean. Most
- likely it means it will ONLY run the very latest versions of Windows,
- and is made exclusively of Winmodems, Winprinters, Winmemory, and
- Win-CPU-fans (Legacy Free is a concept [119]pioneered by Microsoft).
+ "Legacy Free". One can only speculate what that could mean. Most likely
+ it means it will ONLY run the very latest versions of Windows, and is
+ made exclusively of Winmodems, Winprinters, Winmemory, and Win-CPU-fans
+ (Legacy Free is a concept [131]pioneered by Microsoft).
Before you buy a new PC or add-on equipment, especially serial ports,
internal modems, or printers, make sure they are compatible with your
and/or verifying drivers for the thousands of video boards, sound
cards, network adapters, SCSI adapters, buses, etc, that spew forth in
an uncontrolled manner from all corners of the world on a daily basis.
- With very few exceptions, makers of PCs assemble the various
- components and then verify them only with Windows, which they must do
- since they are, no doubt, preloading the PC with Windows. To find a
- modern PC that is capable of running a variety of non-Windows
- operating systems (e.g. Linux, SCO OpenServer, Unixware, and Solaris)
- is a formidable challenge requiring careful study of each vendor's
- "compatibility lists" and precise attention to exact component model
- numbers and revision levels.
- ________________________________________________________________________
+ With very few exceptions, makers of PCs assemble the various components
+ and then verify them only with Windows, which they must do since they
+ are, no doubt, preloading the PC with Windows. To find a modern PC that
+ is capable of running a variety of non-Windows operating systems (e.g.
+ Linux, SCO OpenServer, Unixware, and Solaris) is a formidable challenge
+ requiring careful study of each vendor's "compatibility lists" and
+ precise attention to exact component model numbers and revision levels.
- 3.0.3. Modems
+3.0.3. Modems
- [ [120]Top ] [ [121]Contents ] [ [122]Section Contents ] [ [123]Next ]
- [ [124]Previous ]
+ [ [132]Top ] [ [133]Contents ] [ [134]Section Contents ] [ [135]Next ]
+ [ [136]Previous ]
External modems are recommended:
software will know how to control it.) For more about Unix compatible
modems, see:
- [125]http://www.idir.net/~gromitkc/winmodem.html
+ [137]http://www.idir.net/~gromitkc/winmodem.html
Remember that PCs, even now -- more than two decades after they were
first introduced -- are not (in general) capable of supporting more
than 2 serial devices. Here's a short success story from a recent
newsgroup posting: "I have a Diamond SupraSonic II dual modem in my
- machine. What I had to end up doing is buying a PS/2 mouse and port
- and install it. Had to get rid of my serial mouse. I also had to
- disable PnP in my computer bios. I was having IRQ conflicts between my
- serial mouse and 'com 3'. Both modems work fine for me. My first modem
- is ttyS0 and my second is ttyS1." Special third-party multiport boards
- such as [126]DigiBoard are available for certain Unix platforms
+ machine. What I had to end up doing is buying a PS/2 mouse and port and
+ install it. Had to get rid of my serial mouse. I also had to disable
+ PnP in my computer bios. I was having IRQ conflicts between my serial
+ mouse and 'com 3'. Both modems work fine for me. My first modem is
+ ttyS0 and my second is ttyS1." Special third-party multiport boards
+ such as [138]DigiBoard are available for certain Unix platforms
(typically SCO, maybe Linux) that come with special platform-specific
drivers.
- ________________________________________________________________________
- 3.0.4. Character Sets
+3.0.4. Character Sets
- [ [127]Top ] [ [128]Contents ] [ [129]Section Contents ] [ [130]Next ]
- [ [131]Previous ]
+ [ [139]Top ] [ [140]Contents ] [ [141]Section Contents ] [ [142]Next ]
+ [ [143]Previous ]
PCs generally have PC code pages such as CP437 or CP850, and these are
often used by PC-based Unix operating systems, particularly on the
in progress to support Unicode UTF8 in Linux.)
Certain Windows code pages are not supported directly by C-Kermit, but
- since they are ISO Latin Alphabets with nonstandard "extensions" in
- the C1 control range, you can substitute the corresponding Latin
- alphabet (or other character set) in any C-Kermit character-set
- related commands:
+ since they are ISO Latin Alphabets with nonstandard "extensions" in the
+ C1 control range, you can substitute the corresponding Latin alphabet
+ (or other character set) in any C-Kermit character-set related
+ commands:
Windows Code Page Substitution
CP 1004 Latin-1
Other Windows code pages are mostly (or totally) incompatible with
their Latin Alphabet counterparts (e.g. CP1250 and Latin-2), and
- several of these are already supported by C-Kermit 7.0 and later
- (1250, 1251, and 1252).
- ________________________________________________________________________
+ several of these are already supported by C-Kermit 7.0 and later (1250,
+ 1251, and 1252).
- 3.0.5. Keyboard, Screen, and Mouse Access
+3.0.5. Keyboard, Screen, and Mouse Access
- [ [132]Top ] [ [133]Contents ] [ [134]Section Contents ] [ [135]Next ]
- [ [136]Previous ]
+ [ [144]Top ] [ [145]Contents ] [ [146]Section Contents ] [ [147]Next ]
+ [ [148]Previous ]
Finally, note that as a real operating system, Unix (unlike Windows)
does not provide the intimate connection to the PC keyboard, screen,
c. even though it might be possible for an application that actually
is running on the PC's keyboard and screen to access these devices
directly, there are no APIs (outside of X) for this.
- ________________________________________________________________________
- 3.0.6. Laptops
+3.0.6. Laptops
- [ [137]Top ] [ [138]Contents ] [ [139]Section Contents ] [
- [140]Previous ]
+ [ [149]Top ] [ [150]Contents ] [ [151]Section Contents ] [
+ [152]Previous ]
(To be filled in . . .)
- ________________________________________________________________________
- 3.1. C-KERMIT AND AIX
+3.1. C-KERMIT AND AIX
- [ [141]Top ] [ [142]Contents ] [ [143]Section Contents ] [ [144]Next ]
- [ [145]Previous ]
+ [ [153]Top ] [ [154]Contents ] [ [155]Section Contents ] [ [156]Next ]
+ [ [157]Previous ]
SECTION CONTENTS
- 3.1.1. [146]AIX: General
- 3.1.2. [147]AIX: Network Connections
- 3.1.3. [148]AIX: Serial Connections
- 3.1.4. [149]AIX: File Transfer
- 3.1.5. [150]AIX: Xterm Key Map
+ 3.1.1. [158]AIX: General
+ 3.1.2. [159]AIX: Network Connections
+ 3.1.3. [160]AIX: Serial Connections
+ 3.1.4. [161]AIX: File Transfer
+ 3.1.5. [162]AIX: Xterm Key Map
For additional information see:
- * [151]http://www.emerson.emory.edu/services/aix-faq/
- * [152]http://www.faqs.org/faqs/by-newsgroup/comp/comp.unix.aix.html
- * [153]http://www.cis.ohio-state.edu/hypertext/faq/usenet/aix-faq/to
- p.html
- * [154]http://aixpdslib.seas.ucla.edu/
- * [155]http://www.rootvg.net (AIX history)
- * [156]ftp://rtfm.mit.edu/pub/usenet/news.answers/aix-faq/part1
- * [157]ftp://mirrors.aol.com/pub/rtfm/usenet-by-hierarchy/comp/unix/
- aix
+ * [163]http://www.emerson.emory.edu/services/aix-faq/
+ * [164]http://www.faqs.org/faqs/by-newsgroup/comp/comp.unix.aix.html
+ * [165]http://www.cis.ohio-state.edu/hypertext/faq/usenet/aix-faq/top
+ .html
+ * [166]http://aixpdslib.seas.ucla.edu/
+ * [167]http://www.rootvg.net (AIX history)
+ * [168]ftp://rtfm.mit.edu/pub/usenet/news.answers/aix-faq/part1
+ * [169]ftp://mirrors.aol.com/pub/rtfm/usenet-by-hierarchy/comp/unix/a
+ ix
- and/or read the [158]comp.unix.aix newsgroup.
- ______________________________________________________________________
+ and/or read the [170]comp.unix.aix newsgroup.
+ ________________________________________________________________________
- 3.1.1. AIX: General
+3.1.1. AIX: General
- [ [159]Top ] [ [160]Contents ] [ [161]Section Contents ] [ [162]Next ]
+ [ [171]Top ] [ [172]Contents ] [ [173]Section Contents ] [ [174]Next ]
About AIX version numbers: "uname -a" tells the two-digit version
number, such as 3.2 or 4.1. The three-digit form can be seen with the
- "oslevel" command (this information is unavailable at the API level
- and is reportedly obtained by scanning the installed patch list).
+ "oslevel" command (this information is unavailable at the API level and
+ is reportedly obtained by scanning the installed patch list).
Supposedly all three-digit versions within the same two-digit version
(e.g. 4.3.1, 4.3.2) are binary compatible; i.e. a binary built on any
- one of them should run on all others, but who knows. Most AIX
- advocates tell you that any AIX binary will run on any AIX version
- greater than or equal to the one under which it was built, but
- experience with C-Kermit suggests otherwise. It is always best to run
- a binary built under your exact same AIX version, down to the third
- decimal place, if possible. Ideally, build it from source code
- yourself. Yes, this advice would be easier to follow if AIX came with
- a C compiler.
- ______________________________________________________________________
+ one of them should run on all others, but who knows. Most AIX advocates
+ tell you that any AIX binary will run on any AIX version greater than
+ or equal to the one under which it was built, but experience with
+ C-Kermit suggests otherwise. It is always best to run a binary built
+ under your exact same AIX version, down to the third decimal place, if
+ possible. Ideally, build it from source code yourself. Yes, this advice
+ would be easier to follow if AIX came with a C compiler.
+ ________________________________________________________________________
- 3.1.2. AIX: Network Connections
+3.1.2. AIX: Network Connections
- [ [163]Top ] [ [164]Contents ] [ [165]Section Contents ] [ [166]Next ]
- [ [167]Previous ]
+ [ [175]Top ] [ [176]Contents ] [ [177]Section Contents ] [ [178]Next ]
+ [ [179]Previous ]
File transfers into AIX 4.2 or 4.3 through the AIX Telnet or Rlogin
server have been observed to fail (or accumulate huge numbers of
removed from the picture; e.g, by using "set host * 3000" on AIX.
The problem can be completely cured by replacing the IBM Telnet server
- with [168]MIT's Kerberos Telnet server -- even if you don't actually
+ with [180]MIT's Kerberos Telnet server -- even if you don't actually
use the Kerberos part. Diagnosis: AIX pseudoterminals (which are
controlled by the Telnet server to give you a login terminal for your
session) have quirks that not even IBM knows about. The situation with
REDUCE SYSTEM LOAD.
REDUCE SERIAL PORT BAUD RATE
- Before leaving the topic of AIX pseudoterminals, it is very likely
- that Kermit's PTY and SSH commands do not work well either, for the
- same reason that Telnet connections into AIX don't work well. A brief
- test with "pty rlogin somehost" got a perfectly usable terminal
- (CONNECT) session, but file-transfer problems like those just
- described.
+ Before leaving the topic of AIX pseudoterminals, it is very likely that
+ Kermit's PTY and SSH commands do not work well either, for the same
+ reason that Telnet connections into AIX don't work well. A brief test
+ with "pty rlogin somehost" got a perfectly usable terminal (CONNECT)
+ session, but file-transfer problems like those just described.
Reportedly, telnet from AIX 4.1-point-something to non-Telnet ports
- does not work unless the port number is in the /etc/services file;
- it's not clear from the report whether this is a problem with AIX
- Telnet (in which case it would not affect Kermit), or with the sockets
- library (in which case it would). The purported fix is IBM APAR
- IX61523.
+ does not work unless the port number is in the /etc/services file; it's
+ not clear from the report whether this is a problem with AIX Telnet (in
+ which case it would not affect Kermit), or with the sockets library (in
+ which case it would). The purported fix is IBM APAR IX61523.
C-Kermit SET HOST or TELNET from one AIX 3.1 (or earlier) system to
another won't work right unless you set your local terminal type to
TELNET sends two escapes whenever you type one, and the AIX telnet
server swallows one of them. This has something to do with the "hft"
device. This behavior seems to be removed in AIX 3.2 and later.
- ______________________________________________________________________
+ ________________________________________________________________________
- 3.1.3. AIX: Serial Connections
+3.1.3. AIX: Serial Connections
- [ [169]Top ] [ [170]Contents ] [ [171]Section Contents ] [ [172]Next ]
- [ [173]Previous ]
+ [ [181]Top ] [ [182]Contents ] [ [183]Section Contents ] [ [184]Next ]
+ [ [185]Previous ]
In AIX 3, 4, or 5, C-Kermit won't be able to "set line /dev/tty0" (or
any other dialout device) if you haven't installed "cu" or "uucp" on
- your system, because installing these is what creates the UUCP
- lockfile directory. If SET LINE commands always result in "Sorry,
- access to lock denied", even when C-Kermit has been given the same
- owner, group, and permissions as cu:
+ your system, because installing these is what creates the UUCP lockfile
+ directory. If SET LINE commands always result in "Sorry, access to lock
+ denied", even when C-Kermit has been given the same owner, group, and
+ permissions as cu:
-r-sr-xr-x 1 uucp uucp 67216 Jul 27 1999 cu
According to IBM's "From Strength to Strength" document (21 April
1998), in AIX 4.2 and later "Async supports speeds on native serial
- ports up to 115.2kbps". However, no API is documented to achieve
- serial speeds higher than 38400 bps. Apparently the way to do this --
- which might or might not work only on the IBM 128-port multiplexer --
- is:
+ ports up to 115.2kbps". However, no API is documented to achieve serial
+ speeds higher than 38400 bps. Apparently the way to do this -- which
+ might or might not work only on the IBM 128-port multiplexer -- is:
cxma-stty fastbaud /dev/tty0
Presumably (but not certainly) this extrapolates to 110 "baud" becomes
76800 bps, and 150 becomes 115200 bps. So to use high serial speeds in
AIX 4.2 or 4.3, the trick would be to give the "cxma-stty fastbaud"
- command for the desired tty device before starting Kermit, and then
- use "set speed 50", "set speed 110", or "set speed 150" to select
- 56700, 76800, or 115200 bps. It is not known whether cxma-stty
- requires privilege.
+ command for the desired tty device before starting Kermit, and then use
+ "set speed 50", "set speed 110", or "set speed 150" to select 56700,
+ 76800, or 115200 bps. It is not known whether cxma-stty requires
+ privilege.
According to one report, "Further investigation with IBM seems to
indicate that the only hardware capable of doing this is the 128-port
- multiplexor with one (or more) of the 16 port breakout cables
- (Enhanced Remote Async Node 16-Port EIA-232). We are looking at about
- CDN$4,000 in hardware just to hang a 56kb modem on there. Of course,
- we can then hang 15 more, if we want. This hardware combo is described
- to be good to 230.4kbps."
+ multiplexor with one (or more) of the 16 port breakout cables (Enhanced
+ Remote Async Node 16-Port EIA-232). We are looking at about CDN$4,000
+ in hardware just to hang a 56kb modem on there. Of course, we can then
+ hang 15 more, if we want. This hardware combo is described to be good
+ to 230.4kbps."
Another report says (quote from AIX newsgroup, March 1999):
The machine type and the adapter determine the speed that one can
actually run at. The older microchannel machines have much slower
- crystal frequencies and may not go beyond 76,800. A feature put
- into AIX 421 allows one to key in non-POSIX baud rates and if the
- uart can support that speed, it will get set. this applies also to
- 43p's and beyond. 115200 is the max for the 43P's native serial
- port. As crytal frequencies continue to increase, the built-in
- serial ports speeds will improve. To use 'uucp' or 'ate' at the
- higher baud rates, configure the port for the desired speed, but
- set the speed of uucp or ate to 50. Any non-POSIX speeds set in the
- ttys configuration will the be used. In the case of the 128-port
- adapters or the ISA 8-port or PCI 8-port adapter, there are only a
- few higher baud rates.
+ crystal frequencies and may not go beyond 76,800. A feature put into
+ AIX 421 allows one to key in non-POSIX baud rates and if the uart
+ can support that speed, it will get set. this applies also to 43p's
+ and beyond. 115200 is the max for the 43P's native serial port. As
+ crytal frequencies continue to increase, the built-in serial ports
+ speeds will improve. To use 'uucp' or 'ate' at the higher baud
+ rates, configure the port for the desired speed, but set the speed
+ of uucp or ate to 50. Any non-POSIX speeds set in the ttys
+ configuration will the be used. In the case of the 128-port adapters
+ or the ISA 8-port or PCI 8-port adapter, there are only a few higher
+ baud rates.
a. Change the port to enable high baud rates:
+ B50 for 57600
gives 9600 bps, but SET SPEED 19200 gives 19200 (on the built-in S1
port).
- Note that some RS/6000s (e.g. the IBM PowerServer 320) have
- nonstandard rectangular 10-pin serial ports; the DB-25 connector is
- NOT a serial port; it is a parallel printer port. IBM cables are
- required for the serial ports, (The IBM RT PC also had rectangular
- serial ports -- perhaps the same as these, perhaps different.)
+ Note that some RS/6000s (e.g. the IBM PowerServer 320) have nonstandard
+ rectangular 10-pin serial ports; the DB-25 connector is NOT a serial
+ port; it is a parallel printer port. IBM cables are required for the
+ serial ports, (The IBM RT PC also had rectangular serial ports --
+ perhaps the same as these, perhaps different.)
If you dial in to AIX through a modem that is connected directly to an
- AIX port (e.g. on the 128-port multiplexer) and find that data is
- lost, especially when uploading files to the AIX system (and system
- error logs report buffer overruns on the port):
+ AIX port (e.g. on the 128-port multiplexer) and find that data is lost,
+ especially when uploading files to the AIX system (and system error
+ logs report buffer overruns on the port):
1. Make sure the port and modem are BOTH configured for hardware
(RTS/CTS) flow control. The port is configured somewhere in the
2. Tell C-Kermit to "set flow keep"; experimentation shows that SET
FLOW RTS/CTS has no effect when used in remote mode (i.e. on
/dev/tty, as opposed to a specify port device).
- 3. Fixes for bugs in the original AIX 4.2 tty (serial i/o) support
- and other AIX bugs are available from IBM at:
- [174]http://service.software.ibm.com/rs6000/
- Downloads -> Software Fixes -> Download FixDist gets an
- application for looking up known problems.
+ 3. Fixes for bugs in the original AIX 4.2 tty (serial i/o) support and
+ other AIX bugs are available from IBM at:
+ [186]http://service.software.ibm.com/rs6000/
+
+ Downloads -> Software Fixes -> Download FixDist gets an application
+ for looking up known problems.
Many problems reported with bidirectional terminal lines on AIX 3.2.x
on the RS/6000. Workaround: don't use bidirectional terminal lines, or
LINE. (But note: These problems MIGHT be fixed in C-Kermit 6.0 and
later.) The commands for turning getty off and on (respectively) are
/usr/sbin/pdisable and /usr/sbin/penable.
- ______________________________________________________________________
+ ________________________________________________________________________
- 3.1.4. AIX: File Transfer
+3.1.4. AIX: File Transfer
- [ [175]Top ] [ [176]Contents ] [ [177]Section Contents ] [ [178]Next ]
- [ [179]Previous ]
+ [ [187]Top ] [ [188]Contents ] [ [189]Section Contents ] [ [190]Next ]
+ [ [191]Previous ]
Evidently AIX 4.3 (I don't know about earlier versions) does not allow
open files to be overwritten. This can cause Kermit transfers to fail
varieties or earlier AIX versions.
Transfer of binary -- and maybe even text -- files can fail in AIX if
- the AIX terminal has particular port can have character-set
- translation done for it by the tty driver. The following advice from a
+ the AIX terminal has particular port can have character-set translation
+ done for it by the tty driver. The following advice from a
knowledgeable AIX user:
[This feature] has to be checked (and set/cleared) with a separate
However, I seem to recall that with some versions of AIX before
3.2.5, only root could change the setting. I'm not sure what
- versions - it might have only been under AIX 3.1 that this was
- true. At least with AIX 3.2.5 an ordinary user can set or clear the
- maps.
+ versions - it might have only been under AIX 3.1 that this was true.
+ At least with AIX 3.2.5 an ordinary user can set or clear the maps.
On the same problem, another knowledgeable AIX user says:
sign, "none" being the value we want for C-Kermit. Of course, the
above can also be changed by using the SMIT utility and selecting
devices - tty. (...end quote)
- ______________________________________________________________________
- 3.1.5. AIX: Xterm Key Map
+ In 2007 I noticed the following on high-speed SSH connections (local
+ network) into AIX 5.3: streaming transfers into AIX just don't work.
+ The same might be true for Telnet connections; I have no way to check.
+ It appears that the AIX pty driver and/or the SSH (and possibly Telnet)
+ server are not capable of receiving a steady stream of incoming data at
+ high speed. Solution: unknown. Workaround: put "set streaming off" in
+ your .kermrc or .mykermrc file, since streaming is the default for
+ network connections.
+ ________________________________________________________________________
+
+3.1.5. AIX: Xterm Key Map
- [ [180]Top ] [ [181]Contents ] [ [182]Section Contents ] [
- [183]Previous ]
+ [ [192]Top ] [ [193]Contents ] [ [194]Section Contents ] [
+ [195]Previous ]
Here is a sample configuration for setting up an xterm keyboard for
VT220 or higher terminal emulation on AIX, courtesy of Bruce Momjian,
*cursesemul: true
*scrollKey: true
*scrollBar: true
- ________________________________________________________________________
- 3.2. C-KERMIT AND HP-UX
+3.2. C-KERMIT AND HP-UX
- [ [184]Top ] [ [185]Contents ] [ [186]Section Contents ] [ [187]Next ]
- [ [188]Previous ]
+ [ [196]Top ] [ [197]Contents ] [ [198]Section Contents ] [ [199]Next ]
+ [ [200]Previous ]
SECTION CONTENTS
- 3.2.0. [189]Common Problems
- 3.2.1. [190]Building C-Kermit on HP-UX
- 3.2.2. [191]File Transfer
- 3.2.3. [192]Dialing Out and UUCP Lockfiles in HP-UX
- 3.2.4. [193]Notes on Specific HP-UX Releases
- 3.2.5. [194]HP-UX and X.25
+ 3.2.0. [201]Common Problems
+ 3.2.1. [202]Building C-Kermit on HP-UX
+ 3.2.2. [203]File Transfer
+ 3.2.3. [204]Dialing Out and UUCP Lockfiles in HP-UX
+ 3.2.4. [205]Notes on Specific HP-UX Releases
+ 3.2.5. [206]HP-UX and X.25
REFERENCES
- For further information, read the [195]comp.sys.hp.hpux newsgroup.
+ For further information, read the [207]comp.sys.hp.hpux newsgroup.
C-Kermit is included as part of the HP-UX operating system by contract
between Hewlett Packard and Columbia University for HP-UX 10.00 and
the problem. The true fix in each situation is to install the current
release of C-Kermit.
- 3.2.0. Common Problems
+3.2.0. Common Problems
- [ [196]Top ] [ [197]Contents ] [ [198]Section Contents ] [ [199]Next ]
+ [ [208]Top ] [ [209]Contents ] [ [210]Section Contents ] [ [211]Next ]
Some HP workstations have a BREAK/RESET key. If you hit this key while
C-Kermit is running, it might kill or suspend the C-Kermit process.
BREAK/RESET key is -- at least in some circumstances, on certain HP-UX
versions -- too powerful to be caught. (Some report that the first
BREAK/RESET shows up as SIGINT and is caught by C-Kermit's former
- SIGINT handler even when SIGINT is currently set to SIG_IGN; the
- second kills Kermit; other reports suggest the first BREAK/RESET sends
- a SIGTSTP (suspend signal) to Kermit, which it catches and suspends
+ SIGINT handler even when SIGINT is currently set to SIG_IGN; the second
+ kills Kermit; other reports suggest the first BREAK/RESET sends a
+ SIGTSTP (suspend signal) to Kermit, which it catches and suspends
itself. You can tell C-Kermit to ignore suspend signals with SET
SUSPEND OFF. You can tell C-Kermit to ignore SIGINT with SET COMMAND
INTERRUPTION OFF. It is not known whether these commands also grant
2. If it causes HP-UX to kill C-Kermit, there is nothing C-Kermit can
do to prevent it.
- When HP-UX is on the remote end of the connection, it is essential
- that HP-UX C-Kermit be configured for Xon/Xoff flow control (this is
- the default, but in case you change it and then experience
- file-transfer failures, this is a likely reason).
- ________________________________________________________________________
+ When HP-UX is on the remote end of the connection, it is essential that
+ HP-UX C-Kermit be configured for Xon/Xoff flow control (this is the
+ default, but in case you change it and then experience file-transfer
+ failures, this is a likely reason).
- 3.2.1. Building C-Kermit on HP-UX
+3.2.1. Building C-Kermit on HP-UX
- [ [200]Top ] [ [201]Contents ] [ [202]Section Contents ] [ [203]Next ]
- [ [204]Previous ]
+ [ [212]Top ] [ [213]Contents ] [ [214]Section Contents ] [ [215]Next ]
+ [ [216]Previous ]
- This section applies mainly to old (pre-10.20) HP-UX version on
- old, slow, and/or memory-constrained hardware.
+ This section applies mainly to old (pre-10.20) HP-UX version on old,
+ slow, and/or memory-constrained hardware.
- During the C-Kermit 6.0 Beta cycle, something happened to ckcpro.w
- (or, more precisely, the ckcpro.c file that is generated from it)
- which causes HP optimizing compilers under HP-UX versions 7.0 and 8.0
+ During the C-Kermit 6.0 Beta cycle, something happened to ckcpro.w (or,
+ more precisely, the ckcpro.c file that is generated from it) which
+ causes HP optimizing compilers under HP-UX versions 7.0 and 8.0
(apparently on all platforms) as well as under HP-UX 9.0 on Motorola
platforms only, to blow up. In versions 7.0 and 8.0 the problem has
spread to other modules.
The symptoms vary from the system grinding to a halt, to the compiler
crashing, to the compilation of the ckcpro.c module taking very long
- periods of time, like 9 hours. This problem is handled by compiling
- the modules that tickle it without optimization; the new C-Kermit
- makefile takes care of this, and shows how to do it in case the same
- thing begins happening with other modules.
-
- On HP-UX 9.0, a kernel parameter, maxdsiz (maximum process data
- segment size), seems to be important. On Motorola systems, it is 16MB
- by default, whereas on RISC systems the default is much bigger.
- Increasing maxdsiz to about 80MB seems to make the problem go away,
- but only if the system also has a lot of physical memory -- otherwise
- it swaps itself to death.
+ periods of time, like 9 hours. This problem is handled by compiling the
+ modules that tickle it without optimization; the new C-Kermit makefile
+ takes care of this, and shows how to do it in case the same thing
+ begins happening with other modules.
+
+ On HP-UX 9.0, a kernel parameter, maxdsiz (maximum process data segment
+ size), seems to be important. On Motorola systems, it is 16MB by
+ default, whereas on RISC systems the default is much bigger. Increasing
+ maxdsiz to about 80MB seems to make the problem go away, but only if
+ the system also has a lot of physical memory -- otherwise it swaps
+ itself to death.
The optimizing compiler might complain about "some optimizations
skipped" on certain modules, due to lack of space available to the
optimizer. You can increase the space (the incantation depends on the
- particular compiler version -- see the [205]makefile), but doing so
+ particular compiler version -- see the [217]makefile), but doing so
tends to make the compilations take a much longer time. For example,
the "hpux0100o+" makefile target adds the "+Onolimit" compiler flag,
and about an hour to the compile time on an HP-9000/730. But it *does*
In the makefile, all HP-UX entries automatically skip optimization of
problematic modules.
- ________________________________________________________________________
- 3.2.2. File Transfer
+3.2.2. File Transfer
- [ [206]Top ] [ [207]Contents ] [ [208]Section Contents ] [ [209]Next ]
- [ [210]Previous ]
+ [ [218]Top ] [ [219]Contents ] [ [220]Section Contents ] [ [221]Next ]
+ [ [222]Previous ]
Telnet connections into HP-UX versions up to and including 11.11 (and
possibly 11.20) tend not to lend themselves to file transfer due to
and/or pseudoterminal (pty) driver.
In C-Kermit 6.0 (1996) an unexpected slowness was noted when
- transferring files over local Ethernet connections when an HP-UX
- system (9.05 or 10.00) was on the remote end. The following experiment
- was conducted to determine the cause. C-Kermit 6.0 was used; the
- situation is slightly better using C-Kermit 7.0's streaming feature
- and HP-UX 10.20 on the far end.
-
- The systems were HP-UX 10.00 (on 715/33) and SunOS 4.1.3 (on
- Sparc-20), both on the same local 10Mbps Ethernet, packet length 4096,
- parity none, control prefixing "cautious", using only local disks on
- each machine -- no NFS. In the C-Kermit 6.0 (ACK/NAK) case, the window
- size was 20; in the streaming case there is no window size (i.e. it is
- infinite). The test file was C-Kermit executable, transferred in
- binary mode. Conditions were relatively poor: the Sun and the local
- net heavily loaded; the HP system is old, slow, and
- memory-constrained.
+ transferring files over local Ethernet connections when an HP-UX system
+ (9.05 or 10.00) was on the remote end. The following experiment was
+ conducted to determine the cause. C-Kermit 6.0 was used; the situation
+ is slightly better using C-Kermit 7.0's streaming feature and HP-UX
+ 10.20 on the far end.
+
+ The systems were HP-UX 10.00 (on 715/33) and SunOS 4.1.3 (on Sparc-20),
+ both on the same local 10Mbps Ethernet, packet length 4096, parity
+ none, control prefixing "cautious", using only local disks on each
+ machine -- no NFS. In the C-Kermit 6.0 (ACK/NAK) case, the window size
+ was 20; in the streaming case there is no window size (i.e. it is
+ infinite). The test file was C-Kermit executable, transferred in binary
+ mode. Conditions were relatively poor: the Sun and the local net
+ heavily loaded; the HP system is old, slow, and memory-constrained.
C-Kermit 6.0... C-Kermit 7.0...
Local Remote ACK/NAK........ Streaming......
HP Sun 57 85 155 105
Sun Sun 57 50 321 314
- Therefore the HP-UX telnet server or pty driver seems to be adding
- more overhead than the SunOS one, and most others. When going through
- this type of connection (a remote telnet server) there is little
- Kermit can do improve matters, since the telnet server and pty driver
- are between the two Kermits, and neither Kermit program can have any
- influence over them (except putting the Telnet connection in binary
- mode, but that doesn't help).
+ Therefore the HP-UX telnet server or pty driver seems to be adding more
+ overhead than the SunOS one, and most others. When going through this
+ type of connection (a remote telnet server) there is little Kermit can
+ do improve matters, since the telnet server and pty driver are between
+ the two Kermits, and neither Kermit program can have any influence over
+ them (except putting the Telnet connection in binary mode, but that
+ doesn't help).
(The numbers for the HP-HP transfers are lower than the others since
both Kermit processes are running on the same slow 33MHz CPU.)
Matters seem to have deteriorated in HP-UX 11. Now file transfers over
- Telnet connections fail completely, rather than just being slow. In
- the following trial, a Telnet connection was made from Kermit 95 to
- HP-UX 11.11 on an HP-9000/785/B2000 over local 10Mbps Ethernet running
+ Telnet connections fail completely, rather than just being slow. In the
+ following trial, a Telnet connection was made from Kermit 95 to HP-UX
+ 11.11 on an HP-9000/785/B2000 over local 10Mbps Ethernet running
C-Kermit 8.00 in server mode (under the HP-UX Telnet server):
Text........ Binary......
And in this case, transfer rates were approximately 900,000 cps. To
verify that the behavior reported here is not caused by the new Kermit
release, the same experiment was performed on a Telnet connection from
- the same PC over the same network to the old 715/33 running HP-UX
- 10.20 and C-Kermit 8.00. Text and binary uploads and downloads worked
+ the same PC over the same network to the old 715/33 running HP-UX 10.20
+ and C-Kermit 8.00. Text and binary uploads and downloads worked
perfectly (albeit slowly) with all the default settings -- streaming,
4K packets, etc.
- ________________________________________________________________________
- 3.2.3. Dialing Out and UUCP Lockfiles in HP-UX
+3.2.3. Dialing Out and UUCP Lockfiles in HP-UX
- [ [211]Top ] [ [212]Contents ] [ [213]Section Contents ] [ [214]Next ]
- [ [215]Previous ]
+ [ [223]Top ] [ [224]Contents ] [ [225]Section Contents ] [ [226]Next ]
+ [ [227]Previous ]
HP workstations do not come with dialout devices configured; you have
to do it yourself (as root). First look in /dev to see what's there;
the port is not configured for dialout (go into SAM as described above
and make sure "Use device for calling out" is selected), or else that
speed you have given (such as 460800) is supported by the operating
- system but not by the physical device (in which case, use a lower
- speed like 57600).
+ system but not by the physical device (in which case, use a lower speed
+ like 57600).
In HP-UX 9.0, serial device names began to change. The older names
looked like "/dev/cua00", "/dev/tty01", etc (sometimes with only one
- digit). The newer names have two digits with the letter "p" in
- between. HP-UX 8.xx and earlier have the older form, HP-UX 10.00 and
- later have the newer form. HP-UX 9.xx has the newer form on Series 800
- machines, and the older form on other hardware models. The situation
- is summarized in the following table (the Convio 10.0 column applies
- to HP-UX 10 and 11).
+ digit). The newer names have two digits with the letter "p" in between.
+ HP-UX 8.xx and earlier have the older form, HP-UX 10.00 and later have
+ the newer form. HP-UX 9.xx has the newer form on Series 800 machines,
+ and the older form on other hardware models. The situation is
+ summarized in the following table (the Convio 10.0 column applies to
+ HP-UX 10 and 11).
Converged HP-UX Serial I/O Filenames : TTY Mux Naming
---------------------------------------------------------------------
<X>= LU (Logical Unit) <D>= Devspec (decimal card instance)
<Y> or <YY> = Port <p>= Port
- For dialing out, you should use the cua or cul devices. When
- C-Kermit's CARRIER setting is AUTO or ON, C-Kermit should pop back to
- its prompt automatically if the carrier signal drops, e.g. when you
- log out from the remote computer or service. If you use the tty<D>p<d>
- (e.g. tty0p0) device, the carrier signal should be ignored. The
- tty<D>p<d> device should be used for direct connections where the
- carrier signal does not follow RS-232 conventions (use the cul device
- for hardwired connections through a true null modem). Do not use the
- ttyd<D>p<d> device for dialing out.
+ For dialing out, you should use the cua or cul devices. When C-Kermit's
+ CARRIER setting is AUTO or ON, C-Kermit should pop back to its prompt
+ automatically if the carrier signal drops, e.g. when you log out from
+ the remote computer or service. If you use the tty<D>p<d> (e.g. tty0p0)
+ device, the carrier signal should be ignored. The tty<D>p<d> device
+ should be used for direct connections where the carrier signal does not
+ follow RS-232 conventions (use the cul device for hardwired connections
+ through a true null modem). Do not use the ttyd<D>p<d> device for
+ dialing out.
Kermit's access to serial devices is controlled by "UUCP lockfiles",
which are intended to prevent different users using different software
programs (Kermit, cu, etc, and UUCP itself) from accessing the same
- serial device at the same time. When a device is in use by a
- particular user, a file with a special name is created in:
+ serial device at the same time. When a device is in use by a particular
+ user, a file with a special name is created in:
/var/spool/locks (HP-UX 10.00 and later)
/usr/spool/uucp (HP-UX 9.xx and earlier)
The file's name indicates the device that is in use, and its contents
- indicates the process ID (pid) of the process that is using the
- device. Since serial devices and the locks directory are not both
- publicly readable and writable, Kermit and other communication
- software must be installed setuid to the owner (bin) of the serial
- device and setgid to the group (daemon) of the /var/spool/locks
- directory. Kermit's setuid and setgid privileges are enabled only when
- opening the device and accessing the lockfiles.
+ indicates the process ID (pid) of the process that is using the device.
+ Since serial devices and the locks directory are not both publicly
+ readable and writable, Kermit and other communication software must be
+ installed setuid to the owner (bin) of the serial device and setgid to
+ the group (daemon) of the /var/spool/locks directory. Kermit's setuid
+ and setgid privileges are enabled only when opening the device and
+ accessing the lockfiles.
Let's say "unit" means a string of decimal digits (the interface
instance number) followed (in HP-UX 10.00 and later) by the letter "p"
"00", "01", "10", "0", etc (HP-UX 8.xx and earlier)
Then a normal serial device (driver) name consists of a prefix ("tty",
- "ttyd", "cua", "cul", or possibly "cuad" or "culd") followed by a
- unit, e.g. "cua0p0". Kermit's treatment of UUCP lockfiles is as close
- as possible to that of the HP-UX "cu" program. Here is a table of the
+ "ttyd", "cua", "cul", or possibly "cuad" or "culd") followed by a unit,
+ e.g. "cua0p0". Kermit's treatment of UUCP lockfiles is as close as
+ possible to that of the HP-UX "cu" program. Here is a table of the
lockfiles that Kermit creates for unit 0p0:
- Selection Lockfile 1 Lockfile 2
+ Selection Lockfile 1 Lockfile 2
/dev/tty0p0 LCK..tty0p0 (none)
* /dev/ttyd0p0 LCK..ttyd0p0 (none)
/dev/cua0p0 LCK..cua0p0 LCK..ttyd0p0
If any of these files are found, Kermit opens them to find out the ID
(pid) of the process that created them; if the pid is still valid, the
- process is still active, and so the SET LINE command fails and the
- user is informed of the pid so s/he can use "ps" to find out who is
- using the device.
+ process is still active, and so the SET LINE command fails and the user
+ is informed of the pid so s/he can use "ps" to find out who is using
+ the device.
If the pid is not valid, the file is deleted. If all such files (i.e.
with same "unit" designation) are successfully removed, then the SET
LINE command succeeds; up to six messages are printed telling the user
which "stale lockfiles" are being removed.
- When the "set line" command succeeds in HP-UX 10.00 and later,
- C-Kermit also creates a Unix System V R4 "advisory lock" as a further
- precaution (but not guarantee) against any other process obtaining
- access to the device while you are using it.
+ When the "set line" command succeeds in HP-UX 10.00 and later, C-Kermit
+ also creates a Unix System V R4 "advisory lock" as a further precaution
+ (but not guarantee) against any other process obtaining access to the
+ device while you are using it.
If the selected device was in use by "cu", Kermit can't open it,
because "cu" has changed its ownership, so we never get as far as
- looking at the lockfiles. In the normal case, we can't even look at
- the device to see who the owner is because it is visible only to its
+ looking at the lockfiles. In the normal case, we can't even look at the
+ device to see who the owner is because it is visible only to its
(present) owner. In this case, Kermit says (for example):
/dev/cua0p0: Permission denied
If Kermit is killed with a device open, the lockfile(s) are left
behind. The next Kermit program that tries to assign the device, under
any of its various names, will automatically clean up the stale
- lockfiles because the pids they contain are invalid. The behavior of
- cu and other communication programs under these conditions should be
- the same.
+ lockfiles because the pids they contain are invalid. The behavior of cu
+ and other communication programs under these conditions should be the
+ same.
Here, by the way, is a summary of the differences between the HP-UX
port driver types from John Pezzano of HP:
The ttydXXX device file is designed to work as follows:
- 1. The process that opens it does NOT get control of the port until
- CD is asserted. This was intentional (over 15 years ago) to allow
+ 1. The process that opens it does NOT get control of the port until CD
+ is asserted. This was intentional (over 15 years ago) to allow
getty to open the port but not control it until someone called in.
If a process wants to use the direct or callout device files
(ttyXXX and culXXX respectively), they will then get control and
getty would be blocked. This eliminated the need to use uugetty
- (and its inherent problems with lock files) for modems. You can
- see this demonstrated by the fact that "ps -ef" shows a ? in the
- tty column for the getty process as getty does not have the port
- yet.
+ (and its inherent problems with lock files) for modems. You can see
+ this demonstrated by the fact that "ps -ef" shows a ? in the tty
+ column for the getty process as getty does not have the port yet.
2. Once CD is asserted, the port is controlled by getty (or the
process handling an incoming call) if there was no process using
the port. The ? in the "ps" command now shows the port. At this
The ttydXXX device should be used only for callin and my
recommendation is to use it only for getty and uugetty.
- ________________________________________________________________________
- 3.2.4 Notes on Specific HP-UX Releases
+3.2.4 Notes on Specific HP-UX Releases
SECTION CONTENTS
- 3.2.4.1. [216]HP-UX 11
- 3.2.4.2. [217]HP-UX 10
- 3.2.4.3. [218]HP-UX 9
- 3.2.4.4. [219]HP-UX 8
- 3.2.4.5. [220]HP-UX 7 and Earlier
+ 3.2.4.1. [228]HP-UX 11
+ 3.2.4.2. [229]HP-UX 10
+ 3.2.4.3. [230]HP-UX 9
+ 3.2.4.4. [231]HP-UX 8
+ 3.2.4.5. [232]HP-UX 7 and Earlier
- 3.2.4.1. HP-UX 11
+3.2.4.1. HP-UX 11
- [ [221]Top ] [ [222]Contents ] [ [223]Section Contents ] [ [224]Next ]
+ [ [233]Top ] [ [234]Contents ] [ [235]Section Contents ] [ [236]Next ]
- As noted in [225]Section 3.2.2, the HP-UX 11 Telnet server and/or
+ As noted in [237]Section 3.2.2, the HP-UX 11 Telnet server and/or
pseudoterminal driver are a serious impediment to file transfer over
Telnet connections into HP-UX. If you have a Telnet connection into
HP-UX 11, tell your desktop Kermit program to:
the connection and the Kermit partner on the far end.
PA-RISC binaries for HP-UX 10.20 or later should run on any PA-RISC
- system, S700 or S800, as long as the binary was not built under a
- later HP-UX version than the host operating system. HP-UX 11.00 and
- 11.11 are only for PA-RISC systems. HP-UX 11.20 is only for IA64
- (subsequent HP-UX releases will be for both PA-RISC and IA64). To
- check binary compatibility, the following C-Kermit 8.0 binaries were
- run successfully on an HP-9000/785 with HP-UX 11.11:
+ system, S700 or S800, as long as the binary was not built under a later
+ HP-UX version than the host operating system. HP-UX 11.00 and 11.11 are
+ only for PA-RISC systems. HP-UX 11.20 is only for IA64 (subsequent
+ HP-UX releases will be for both PA-RISC and IA64). To check binary
+ compatibility, the following C-Kermit 8.0 binaries were run
+ successfully on an HP-9000/785 with HP-UX 11.11:
* Model 7xx HP-UX 10.20
* Model 8xx HP-UX 10.20
Binaries built under some of the earlier HP-UX releases, such as 9.05,
might also work, but only if built for the same hardware family (e.g.
s700).
- ________________________________________________________________________
- 3.2.4.2. HP-UX 10
+3.2.4.2. HP-UX 10
- [ [226]Top ] [ [227]Contents ] [ [228]Section Contents ] [ [229]Next ]
- [ [230]Previous ]
+ [ [238]Top ] [ [239]Contents ] [ [240]Section Contents ] [ [241]Next ]
+ [ [242]Previous ]
Beginning in HP-UX 10.10, libcurses is linked to libxcurses, the new
UNIX95 (X/Open) version of curses, which has some serious bugs; some
routines, when called, would hang and never return, some would dump
core. Evidently libxcurses contains a select() routine, and whenever
C-Kermit calls what it thinks is the regular (sockets) select(), it
- gets the curses one, causing a segmentation fault. There is a patch
- for this from HP, PHCO_8086, "s700_800 10.10 libcurses patch", "shared
- lib curses program hangs on 10.10", "10.10 enhanced X/Open curses core
+ gets the curses one, causing a segmentation fault. There is a patch for
+ this from HP, PHCO_8086, "s700_800 10.10 libcurses patch", "shared lib
+ curses program hangs on 10.10", "10.10 enhanced X/Open curses core
dumps due to using wrong select call", 96/08/02 (you can tell if the
patch is installed with "what /usr/lib/libxcurses.1"; the unpatched
version is 76.20, the patched one is 76.20.1.2). It has been verified
To ensure that C-Kermit works even on non-patched HP-UX 10.10 systems,
separate makefile entries are provided for HP-UX 10.00/10.01, 10.10,
10.20, etc, in which the entries for 10.10 and above link with
- libHcurses, which is "HP curses", the one that was used in
- 10.00/10.01. HP-UX 11.20 and later, however, link with libcurses, as
- libHcurses disappeared in 11.20.
- ________________________________________________________________________
+ libHcurses, which is "HP curses", the one that was used in 10.00/10.01.
+ HP-UX 11.20 and later, however, link with libcurses, as libHcurses
+ disappeared in 11.20.
- 3.2.4.3. HP-UX 9
+3.2.4.3. HP-UX 9
- [ [231]Top ] [ [232]Contents ] [ [233]Section Contents ] [ [234]Next ]
- [ [235]Previous ]
+ [ [243]Top ] [ [244]Contents ] [ [245]Section Contents ] [ [246]Next ]
+ [ [247]Previous ]
HP-UX 9.00 and 9.01 need patch PHNE_10572 (note: this replaces
PHNE_3641) for hptt0.o, asio0.o, and ttycomn.o in libhp-ux.a. Contact
return an error like "device busy". (There are also equivalent patches
for s700 9.03 9.05 9.07 (PHNE_10573) and s800 9.00 9.04 (PHNE_10416).
- When C-Kermit is in server mode, it might have trouble executing
- REMOTE HOST commands. This problem happens under HP-UX 9.00 (Motorola)
- and HP-UX 9.01 (RISC) IF the C-Shell is the login shell AND with the
+ When C-Kermit is in server mode, it might have trouble executing REMOTE
+ HOST commands. This problem happens under HP-UX 9.00 (Motorola) and
+ HP-UX 9.01 (RISC) IF the C-Shell is the login shell AND with the
C-Shell Revision 70.15. Best thing is to install HP's Patch PHCO_4919
for Series 300/400 and PHCO_5015 for the Series 700/800. PHCO_5015 is
called "s700_800 9.X cumulative csh(1) patch with memory leak fix"
which works for HP-UX 9.00, 9.01, 9.03, 9.04, 9.05 and 9.07. At least
you need C-Shell Revision 72.12!
- C-Kermit works fine -- including its curses-based file-transfer
- display -- on the console terminal, in a remote session (e.g. when
- logged in to the HP 9000 on a terminal port or when telnetted or
- rlogin'd), and in an HP-VUE hpterm window or an xterm window.
- ________________________________________________________________________
+ C-Kermit works fine -- including its curses-based file-transfer display
+ -- on the console terminal, in a remote session (e.g. when logged in to
+ the HP 9000 on a terminal port or when telnetted or rlogin'd), and in
+ an HP-VUE hpterm window or an xterm window.
- 3.2.4.4. HP-UX 8
+3.2.4.4. HP-UX 8
- [ [236]Top ] [ [237]Contents ] [ [238]Section Contents ] [ [239]Next ]
- [ [240]Previous ]
+ [ [248]Top ] [ [249]Contents ] [ [250]Section Contents ] [ [251]Next ]
+ [ [252]Previous ]
To make C-Kermit work on HP-UX 8.05 on a model 720, obtain and install
HP-UX patch PHNE_0899. This patch deals with a lot of driver issues,
On HP-UX 8 DON'T install 'tty patch' PHKL_4656, install PHKL_3047
instead! Yesterday I tried this latest tty patch PHKL_4656 and had
- terrible problems. This patch should fix RTS/CTS problems. With
- text transver all looks nice. But when I switched over to binary
- files the serial interface returned only rubish to C-Kermit. All
- sorts of protocol, CRC and packed errors I had. After several tests
- and after uninstalling that patch, all transvers worked fine. MB's
- of data without any errors. So keep your fingers away from that
- patch. If anybody needs the PHKL_3047 patch I have it here. It is
- no longer availabel from HP's patch base.
- ________________________________________________________________________
-
- 3.2.4.5. HP-UX 7 and Earlier
-
- [ [241]Top ] [ [242]Contents ] [ [243]Section Contents ] [
- [244]Previous ]
-
- When transferring files into HP-UX 5 or 6 over a Telnet connection,
- you must not use streaming, and you must not use a packet length
- greater than 512. However, you can use streaming and longer packets
- when sending files from HP-UX on a Telnet connection. In C-Kermit 8.0,
- the default receive packet length for HP-UX 5 and 6 was changed to 500
- (but you can still increase it with SET RECEIVE PACKET-LENGTH if you
- wish, e.g. for non-Telnet connections). Disable streaming with SET
- STREAMING OFF.
+ terrible problems. This patch should fix RTS/CTS problems. With text
+ transfer all looks nice. But when I switched over to binary files
+ the serial interface returned only rubish to C-Kermit. All sorts of
+ protocol, CRC and packed errors I had. After several tests and after
+ uninstalling that patch, all transfers worked fine. MB's of data
+ without any errors. So keep your fingers away from that patch. If
+ anybody needs the PHKL_3047 patch I have it here. It is no longer
+ available from HP's patch base.
+
+3.2.4.5. HP-UX 7 and Earlier
+
+ [ [253]Top ] [ [254]Contents ] [ [255]Section Contents ] [
+ [256]Previous ]
+
+ When transferring files into HP-UX 5 or 6 over a Telnet connection, you
+ must not use streaming, and you must not use a packet length greater
+ than 512. However, you can use streaming and longer packets when
+ sending files from HP-UX on a Telnet connection. In C-Kermit 8.0, the
+ default receive packet length for HP-UX 5 and 6 was changed to 500 (but
+ you can still increase it with SET RECEIVE PACKET-LENGTH if you wish,
+ e.g. for non-Telnet connections). Disable streaming with SET STREAMING
+ OFF.
The HP-UX 5.00 version of C-Kermit does not include the fullscreen
file-transfer because of problems with the curses library.
the HP-9000 series 500 computers. It only occurs when the controlling
terminal is using an HP-27140 six-port modem mux. The problem is not
present if the controlling terminal is logged into an HP-27130
- eight-port mux. The symptom is that just after dialing successfully
- and connecting Kermit locks up and the port is unusable until both
- forks of Kermit and the login shell are killed." (This report predates
- C-Kermit 6.0 and might no longer apply.)
- ________________________________________________________________________
+ eight-port mux. The symptom is that just after dialing successfully and
+ connecting Kermit locks up and the port is unusable until both forks of
+ Kermit and the login shell are killed." (This report predates C-Kermit
+ 6.0 and might no longer apply.)
- 3.2.5. HP-UX and X.25
+3.2.5. HP-UX and X.25
- [ [245]Top ] [ [246]Contents ] [ [247]Section Contents ] [
- [248]Previous ]
+ [ [257]Top ] [ [258]Contents ] [ [259]Section Contents ] [
+ [260]Previous ]
- Although C-Kermit presently does not include built-in support for
- HP-UX X.25 (as it does for the Sun and IBM X.25 products), it can
- still be used to make X.25 connections as follows: start Kermit and
- then telnet to localhost. After logging back in, start padem as you
- would normally do to connect over X.25. Padem acts as a pipe between
- Kermit and X.25. In C-Kermit 7.0, you might also be able to avoid the
- "telnet localhost" step by using:
+ Although C-Kermit presently does not include built-in support for HP-UX
+ X.25 (as it does for the Sun and IBM X.25 products), it can still be
+ used to make X.25 connections as follows: start Kermit and then telnet
+ to localhost. After logging back in, start padem as you would normally
+ do to connect over X.25. Padem acts as a pipe between Kermit and X.25.
+ In C-Kermit 7.0, you might also be able to avoid the "telnet localhost"
+ step by using:
C-Kermit> pty padem address
This works if padem uses standard i/o (who knows?).
- ________________________________________________________________________
- 3.3. C-KERMIT AND LINUX
+3.3. C-KERMIT AND LINUX
- [ [249]Top ] [ [250]Contents ] [ [251]Section Contents ] [ [252]Next ]
- [ [253]Previous ]
+ [ [261]Top ] [ [262]Contents ] [ [263]Section Contents ] [ [264]Next ]
+ [ [265]Previous ]
SECTION CONTENTS
- 3.3.1. [254]Problems Building C-Kermit for Linux
- 3.3.2. [255]Problems with Serial Devices in Linux
- 3.3.3. [256]Terminal Emulation in Linux
- 3.3.4. [257]Dates and Times
- 3.3.5. [258]Startup Errors
- 3.3.6. [259]The Fullscreen File Transfer Display
+ 3.3.1. [266]Problems Building C-Kermit for Linux
+ 3.3.2. [267]Problems with Serial Devices in Linux
+ 3.3.3. [268]Terminal Emulation in Linux
+ 3.3.4. [269]Dates and Times
+ 3.3.5. [270]Startup Errors
+ 3.3.6. [271]The Fullscreen File Transfer Display
+
+ (August 2010) Reportedly C-Kermit packages for certain Linux
+ distributions such as Centos and Ubuntu have certain features
+ disabled, for example the SSH command, SET HOST PTY /SSH, and
+ perhaps anything else to do with SSH and/or pseudoterminals and who
+ knows what else. If you download the regular package ("tarball")
+ from the Kermit Project and build from it ("make linux"), everything
+ is fine.
+
+ C-Kermit in Ubuntu 10.04 and 9.10 was reported slow to start because
+ it was trying to resolve the IP address 255.255.255.255. Later, also
+ in recent Debian versions. The following is seen in the strace:
+
+write(3, "RESOLVE-ADDRESS 255.255.255.255\n", 32)
+
+ This is not Kermit Project code. Turns out to be something in
+ glibc's resolver, and can be fixed by changing /etc/nsswitch.conf,
+ but it might break other software, such as [272]Avahi or anything
+ (such as Gnome, Java, or Cups) that depends on it. I'm not sure
+ where it happens; I don't think Kermit tries to get its IP address
+ at startup time, only when it's needed or asked for, e.g. when
+ making a connection or evaluating \v(ipaddress).
REFERENCES
- For further information, read the [260]comp.os.linux.misc,
- [261]comp.os.linux.answers, and other Linux-oriented newsgroups, and
+ For further information, read the [273]comp.os.linux.misc,
+ [274]comp.os.linux.answers, and other Linux-oriented newsgroups, and
see:
The Linux Document Project (LDP)
- [262]http://www.tldp.org/
+ [275]http://www.tldp.org/
The Linux FAQ
- [263]http://www.tldp.org/FAQ/Linux-FAQ.html
+ [276]http://www.tldp.org/FAQ/Linux-FAQ.html
The Linux HOWTOs (especially the Serial HOWTO)
- [264]http://www.tldp.org/HOWTO/Serial-HOWTO.html
+ [277]http://www.tldp.org/HOWTO/Serial-HOWTO.html
- [265]http://tldp.org/HOWTO/Modem-HOWTO.html
+ [278]http://tldp.org/HOWTO/Modem-HOWTO.html
- [266]ftp://sunsite.unc.edu/pub/Linux/docs/HOWTO
+ [279]ftp://sunsite.unc.edu/pub/Linux/docs/HOWTO
- [267]ftp://tsx-11.mit.edu/pub/linux/docs/HOWTO
+ [280]ftp://tsx-11.mit.edu/pub/linux/docs/HOWTO
- [268]http://www.tldp.org/HOWTO/
+ [281]http://www.tldp.org/HOWTO/
- [269]http://www.tldp.org/hmirrors.html
+ [282]http://www.tldp.org/hmirrors.html
Linux Vendor Tech Support Pages:
- [270]http://www.redhat.com/apps/support/
+ [283]http://www.redhat.com/apps/support/
- [271]http://www.debian.org/support
+ [284]http://www.debian.org/support
- [272]http://www.slackware.com/support/
+ [285]http://www.slackware.com/support/
- [273]http://www.caldera.com/support/
+ [286]http://www.caldera.com/support/
- [274]http://www.suse.com/support/
+ [287]SUSE Linux Support
- [275]http://www.mandrake.com/support/
+ [288]http://www.mandrake.com/support/
- [276]http://www.turbolinux.com/support/
+ [289]http://www.turbolinux.com/support/
Linux Winmodem Support
- [277]http://www.linmodems.org/
+ [290]http://www.linmodems.org/
- Also see general comments on PC-based Unixes in [278]Section 3.0.
+ Also see general comments on PC-based Unixes in [291]Section 3.0.
What Linux version is it? -- "uname -a" supplies only kernel
- information, but these days it's the distribution that matters: Red
- Hat 7.3, Debian 2.2, Slackware 8.0, etc. Unfortunately there's no
+ information, but these days it's the distribution that matters: Red Hat
+ 7.3, Debian 2.2, Slackware 8.0, etc. Unfortunately there's no
consistent way to get the distribution version. Usually it's in a
distribution-specific file:
Did you know: DECnet is available for Linux? See:
- [279]http://linux.dreamtime.org/decnet/
+ [292]http://linux.dreamtime.org/decnet/
(But there is no support for it in C-Kermit -- anybody interested in
- adding it, please [280]let us know).
+ adding it, please [293]let me know).
Before proceeding, let's handle the some of the most frequently asked
question in the Linux newsgroups:
- 1. Neither C-Kermit nor any other Linux application can use
- Winmodems, except in the [281]rare cases where Linux drivers have
- been written for them. See [282]Section 3.0.2 for details.
+ 1. Neither C-Kermit nor any other Linux application can use Winmodems,
+ except in the [294]rare cases where Linux drivers have been written
+ for them. See [295]Section 3.0.2 for details.
2. "Why does it take such a long time to make a telnet connection to
(or from) my Linux PC?" (this applies to C-Kermit and to regular
- Telnet). Most telnet servers these days perform reverse DNS
- lookups on the client (for security and/or logging reasons). If
- the Telnet client's address cannot be found by the server's local
- DNS server, the DNS request goes out to the Internet at large, and
- this can take quite some time. The solution to this problem is to
- make sure that both client and host are registered in DNS, and
- that the registrations are exported. C-Kermit itself performs
- reverse DNS lookups unless you tell it not to; this is to allow
- C-Kermit to let you know which host it is actually connected to in
- case you have made a connection to a host pool (multihomed host).
- You can disable C-Kermit's reverse DNS lookup with SET TCP
- REVERSE-DNS-LOOKUP OFF.
+ Telnet). Most telnet servers these days perform reverse DNS lookups
+ on the client (for security and/or logging reasons). If the Telnet
+ client's address cannot be found by the server's local DNS server,
+ the DNS request goes out to the Internet at large, and this can
+ take quite some time. The solution to this problem is to make sure
+ that both client and host are registered in DNS, and that the
+ registrations are exported. C-Kermit itself performs reverse DNS
+ lookups unless you tell it not to; this is to allow C-Kermit to let
+ you know which host it is actually connected to in case you have
+ made a connection to a host pool (multihomed host). You can disable
+ C-Kermit's reverse DNS lookup with SET TCP REVERSE-DNS-LOOKUP OFF.
3. (Any question that has the word "Telnet" in it...) The knee-jerk
- reaction is "don't use Telnet, use SSH!" There's nothing wrong
- with Telnet. In fact it's far superior to SSH as a protocol in
- terms of features and extensibility, not to mention platform
- neutrality. The issue lurking behind the knee-jerk reaction is
- security. SSH is thought to be secure, whereas Telnet is thought
- to be insecure. This is true for clear-text Telnet (because
- passwords travel in the clear across the network), but apparently
- few people realize that [283]secure Telnet clients and servers
- have been available for years, and these are more secure than SSH
- (for reasons explained [284]HERE.
+ reaction is "don't use Telnet, use SSH!" There's nothing wrong with
+ Telnet. In fact it's far superior to SSH as a protocol in terms of
+ features and extensibility, not to mention platform neutrality. The
+ issue lurking behind the knee-jerk reaction is security. SSH is
+ thought to be secure, whereas Telnet is thought to be insecure.
+ This is true for clear-text Telnet (because passwords travel in the
+ clear across the network), but apparently few people realize that
+ [296]secure Telnet clients and servers have been available for
+ years, and these are more secure than SSH (for reasons explained
+ [297]HERE).
4. (Any question that has the word "FTP" in it...) The knee-jerk
reaction being "Don't use FTP, use SCP!" (or SFTP). Same answer as
above, but moreso. SCP and SFTP are not only not platform neutral,
- they're diversity-hostile. They transfer files only in binary
- mode, which mangles text files across different platforms, to the
- same degree the platform's text-file record format and character
- set differ. An extreme example would be an Variable-Block format
- EBCDIC text file on an IBM mainframe, binary transfer of which to
- Unix would do you little good indeed. FTP was designed with
- diversity in mind and secure versions are available.
- ________________________________________________________________________
+ they're diversity-hostile. They transfer files only in binary mode,
+ which mangles text files across different platforms, to the same
+ degree the platform's text-file record format and character set
+ differ. An extreme example would be an Variable-Block format EBCDIC
+ text file on an IBM mainframe, binary transfer of which to Unix
+ would do you little good indeed. FTP was designed with diversity in
+ mind and secure versions are available.
- 3.3.1. Problems Building C-Kermit for Linux
+3.3.1. Problems Building C-Kermit for Linux
- [ [285]Top ] [ [286]Contents ] [ [287]Section Contents ] [ [288]Next ]
+ [ [298]Top ] [ [299]Contents ] [ [300]Section Contents ] [ [301]Next ]
Modern Linux distributions like Red Hat give you a choice at
- installation whether to include "developer tools". Obviously, you
- can't build C-Kermit or any other C program from source code if you
- have not installed the developer tools. But to confuse matters, you
- might also have to choose (separately) to install the "curses" or
- "ncurses" terminal control library; thus it is possible to install the
- C compiler and linker, but omit the (n)curses library and headers. If
- curses is not installed, you will not be able to build a version of
- C-Kermit that supports the fullscreen file-transfer display, in which
- case you'll need to use the "linuxnc" makefile target (nc = No Curses)
- or else install ncurses before building.
+ installation whether to include "developer tools". Obviously, you can't
+ build C-Kermit or any other C program from source code if you have not
+ installed the developer tools. But to confuse matters, you might also
+ have to choose (separately) to install the "curses" or "ncurses"
+ terminal control library; thus it is possible to install the C compiler
+ and linker, but omit the (n)curses library and headers. If curses is
+ not installed, you will not be able to build a version of C-Kermit that
+ supports the fullscreen file-transfer display, in which case you'll
+ need to use the "linuxnc" makefile target (nc = No Curses) or else
+ install ncurses before building.
There are all sorts of confusing issues caused by the many and varied
Linux distributions. Some of the worst involve the curses library and
- header files: where are they, what are they called, which ones are
- they really? Other vexing questions involve libc5 vs libc6 vs glibc vs
+ header files: where are they, what are they called, which ones are they
+ really? Other vexing questions involve libc5 vs libc6 vs glibc vs
glibc2 (C libraries), gcc vs egcs vs lcc (compilers), plus using or
avoiding features that were added in a certain version of Linux or a
library or a distribution, and are not available in others. As of
C-Kermit 8.0, these questions should be resolved by the "linux"
makefile target itself, which does a bit of looking around to see
what's what, and then sets the appropriate CFLAGS.
- ________________________________________________________________________
- 3.3.2. Problems with Serial Devices in Linux
+3.3.2. Problems with Serial Devices in Linux
- [ [289]Top ] [ [290]Contents ] [ [291]Section Contents ] [ [292]Next ]
- [ [293]Previous ]
+ [ [302]Top ] [ [303]Contents ] [ [304]Section Contents ] [ [305]Next ]
+ [ [306]Previous ]
Also see: "man setserial", "man irqtune".
- And: [294]Sections 3.0, [295]6, [296]7, and [297]8 of this
- document.
+ And: [307]Sections 3.0, [308]6, [309]7, and [310]8 of this document.
NOTE: Red Hat Linux 7.2 and later include a new API that allows
- serial-port arbitration by non-setuid/gid programs. This API has
- not yet been added to C-Kermit. If C-Kermit is to be used for
- dialing out on Red Hat 7.2 or later, it must still be installed as
- described in in Sections [298]10 and [299]11 of the
- [300]Installation Instructions.
+ serial-port arbitration by non-setuid/gid programs. This API has not
+ yet been added to C-Kermit. If C-Kermit is to be used for dialing
+ out on Red Hat 7.2 or later, it must still be installed as described
+ in in Sections [311]10 and [312]11 of the [313]Installation
+ Instructions.
Don't expect it to be easy. Queries like the following are posted to
the Linux newsgroups almost daily:
I have <some recent SuSE distribution>, kernel 2.0.35. Using the
Compaq tells me that the modem (which is internal) is on COM2, with
the usual IRQ and port numbers. Running various Windows diagnostics
- show me AT-style commands exchanged so I have no reason to beleive
+ show me AT-style commands exchanged so I have no reason to believe
that it is a Winmodem. Also, the diagnostics under Win98 tell me
that I am talking to an NS 16550AN.
[Editor's note: This does not necessarily mean it isn't a Winmodem.]
- Under Linux, no joy trying to talk to the modem on /dev/cua1
- whether via minicom, kppp, or chat; kppp at least tells me that
- tcgetattr() failed.
+ Under Linux, no joy trying to talk to the modem on /dev/cua1 whether
+ via minicom, kppp, or chat; kppp at least tells me that tcgetattr()
+ failed.
Usage of setserial:
setserial -g /dev/cua1
tells me that the uart is 'unknown'. I have tried setting the UART
- manullay via. setserial to 16550A, 16550, and the other one (8550?)
+ manually via. setserial to 16550A, 16550, and the other one (8550?)
(I didn't try 16540). None of these manual settings resulted in any
success.
A look at past articles leads me to investigate PNP issues by
- calling pnpdump but pnpdump returns "no boards found". I have
- looked around on my BIOS (Phoenix) and there is not much evidence
- of it being PNP aware. However for what it calls "Serial port A",
- it offers a choice of Auto, Disabled or Manual settings (currently
- set to Auto), but using the BIOS interface I tried to change to
- 'manual' and saw the default settings offered to be were 0x3F8 and
- IRQ 4 (COM1). The BIOS menus did not give me any chance to
- configure COM2 or any "modem". I ended up not saving any BIOS
- changes in the course of my investigations.
+ calling pnpdump but pnpdump returns "no boards found". I have looked
+ around on my BIOS (Phoenix) and there is not much evidence of it
+ being PNP aware. However for what it calls "Serial port A", it
+ offers a choice of Auto, Disabled or Manual settings (currently set
+ to Auto), but using the BIOS interface I tried to change to 'manual'
+ and saw the default settings offered to be were 0x3F8 and IRQ 4
+ (COM1). The BIOS menus did not give me any chance to configure COM2
+ or any "modem". I ended up not saving any BIOS changes in the course
+ of my investigations.
You can also find out a fair amount about your PC's hardware
configuration in the text files in /proc, e.g.:
-r--r--r-- 1 root 0 Sep 4 14:00 /proc/ioports
-r--r--r-- 1 root 0 Sep 4 14:00 /proc/pci
- From the directory listing they look like empty files, but in fact
- they are text files that you "cat":
+ From the directory listing they look like empty files, but in fact they
+ are text files that you "cat":
$ cat /proc/pci
Bus 0, device 14, function 0:
15: 6 XT-PIC ide1
Watch out for PCI, PCMCIA and Plug-n-Play devices, Winmodems, and the
- like (see cautions in [301]Section 3.0 Linux supports Plug-n-Play
+ like (see cautions in [314]Section 3.0 Linux supports Plug-n-Play
devices to some degree via the isapnp and pnpdump programs; read the
man pages for them. (If you don't have them, look on your installation
CD for isapnptool or download it from sunsite or a sunsite mirror or
real computer like other Unix workstations -- it is generally pieced
together from whatever random components were the best bargain on the
commodity market the week it was built. Once it's assembled and boxed,
- not even the manufacturer will remember what it's made of or how it
- was put together because they've moved on to a new model. Their job is
- to get it (barely) working with Windows; for Linux and other OS's you
- are on your own.
+ not even the manufacturer will remember what it's made of or how it was
+ put together because they've moved on to a new model. Their job is to
+ get it (barely) working with Windows; for Linux and other OS's you are
+ on your own.
"set line /dev/modem" or "set line /dev/ttyS2", etc, results in an
- error, "/dev/modem is not a tty". Cause unknown, but obviously a
- driver issue, not a Kermit one (Kermit uses "isatty()" to check that
- the device is a tty, so it knows it will be able to issue all the
+ error, "/dev/modem is not a tty". Cause unknown, but obviously a driver
+ issue, not a Kermit one (Kermit uses "isatty()" to check that the
+ device is a tty, so it knows it will be able to issue all the
tty-related ioctl's on it, like setting the speed & flow control). Try
a different name (i.e. driver) for the same port, e.g. "set line
/dev/cua2" or whatever.
line /dev/ttyS2", etc, hangs (but can be interrupted with Ctrl-C).
Experimentation shows that if the modem is configured to always assert
carrier (&C0) the same command does not hang. Again, a driver issue.
- Use /dev/cua2 (or whatever) instead. (Or not -- hopefully none of
- these symptoms occurs in C-Kermit 7.0 or later.)
+ Use /dev/cua2 (or whatever) instead. (Or not -- hopefully none of these
+ symptoms occurs in C-Kermit 7.0 or later.)
"set line /dev/cua0" reports "Device is busy", but "set line
/dev/ttyS0" works OK.
In short: If the cua device doesn't work, try the corresponding ttyS
device. If the ttyS device doesn't work, try the corresponding cua
- device -- but note that Linux developers do not recommend this, and
- are phasing out the cua devices. From /usr/doc/faq/howto/Serial-HOWTO:
+ device -- but note that Linux developers do not recommend this, and are
+ phasing out the cua devices. From /usr/doc/faq/howto/Serial-HOWTO:
12.4. What's The Real Difference Between the /dev/cuaN And /dev/ttySN
Devices?
The only difference is the way that the devices are opened. The
dialin devices /dev/ttySN are opened in blocking mode, until CD
- is asserted (ie someone connects). So, when someone wants to
- use the /dev/cuaN device, there is no conflict with a program
+ is asserted (ie someone connects). So, when someone wants to use
+ the /dev/cuaN device, there is no conflict with a program
watching the /dev/ttySN device (unless someone is connected of
course). The multiple /dev entries, allow operation of the same
physical device with different operating characteristics. It
also allows standard getty programs to coexist with any other
- serial program, without the getty being retrofitted with
- locking of some sort. It's especially useful since standard
- Unix kernel file locking, and UUCP locking are both advisory
- and not mandatory.
+ serial program, without the getty being retrofitted with locking
+ of some sort. It's especially useful since standard Unix kernel
+ file locking, and UUCP locking are both advisory and not
+ mandatory.
It was discovered during development of C-Kermit 7.0 that rebuilding
C-Kermit with -DNOCOTFMC (No Close/Open To Force Mode Change) made the
March 1998, this option has been added to the CFLAGS in the makefile
entries for Linux ("make linux").
- Note that the cua device is now "deprecated", and new editions of
- Linux will phase (have phased) it out in favor of the ttyS device. See
- (if it's still there):
+ Note that the cua device is now "deprecated", and new editions of Linux
+ will phase (have phased) it out in favor of the ttyS device. See (if
+ it's still there):
- [302]http://linuxwww.db.erau.edu/mail_archives/linux-kernel/Mar_98/1441.html
+ [315]http://linuxwww.db.erau.edu/mail_archives/linux-kernel/Mar_98/1441.html
- (no, of course it isn't; you'll have to use your imagination). One
- user reported that C-Kermit 7.0, when built with egcs 1.1.2 and run on
- Linux 2.2.6 with glibc 2.1 (hardware unknown but probably a PC) dumps
- core when given a "set line /dev/ttyS1" command. When rebuilt with
- gcc, it works fine.
+ (no, of course it isn't; you'll have to use your imagination). One user
+ reported that C-Kermit 7.0, when built with egcs 1.1.2 and run on Linux
+ 2.2.6 with glibc 2.1 (hardware unknown but probably a PC) dumps core
+ when given a "set line /dev/ttyS1" command. When rebuilt with gcc, it
+ works fine.
All versions of Linux seem to have the following deficiency: When a
- modem call is hung up and CD drops, Kermit can no longer read the
- modem signals; SHOW COMMUNICATIONS says "Modem signals not available".
- The TIOCMGET ioctl() returns -1 with errno 5 ("I/O Error").
+ modem call is hung up and CD drops, Kermit can no longer read the modem
+ signals; SHOW COMMUNICATIONS says "Modem signals not available". The
+ TIOCMGET ioctl() returns -1 with errno 5 ("I/O Error").
The Linux version of POSIX tcsendbreak(), which is used by C-Kermit to
send regular (275msec) and long (1.5sec) BREAK signals, appears to
ignore its argument (despite its description in the man page and info
topic), and always sends a regular 275msec BREAK. This has been
observed in Linux versions ranging from Debian 2.1 to Red Hat 7.1.
- ________________________________________________________________________
- 3.3.3. Terminal Emulation in Linux
+3.3.3. Terminal Emulation in Linux
- [ [303]Top ] [ [304]Contents ] [ [305]Section Contents ] [ [306]Next ]
- [ [307]Previous ]
+ [ [316]Top ] [ [317]Contents ] [ [318]Section Contents ] [ [319]Next ]
+ [ [320]Previous ]
C-Kermit is not a terminal emulator. For a brief explanation of why
- not, see [308]Section 3.0.5. For a fuller explanation, [309]ClICK
- HERE.
+ not, see [321]Section 3.0.5. For a fuller explanation, [322]ClICK HERE.
In Unix, terminal emulation is supplied by the Window in which you run
Kermit: the regular console screen, which provides Linux Console
"emulation" via the "console" termcap entry, or under X-Windows in an
- xterm window, which gives VTxxx emulation. An xterm that includes
- color ANSI and VT220 emulation is available with Xfree86:
+ xterm window, which gives VTxxx emulation. An xterm that includes color
+ ANSI and VT220 emulation is available with Xfree86:
- [310]http://dickey.his.com/xterm/xterm.html
+ [323]http://dickey.his.com/xterm/xterm.html
- Before starting C-Kermit in an xterm window, you might need to tell
- the xterm window's shell to "stty sane".
+ Before starting C-Kermit in an xterm window, you might need to tell the
+ xterm window's shell to "stty sane".
To set up your PC console keyboard to send VT220 key sequences when
using C-Kermit as your communications program in an X terminal window
Console-mode keys are mapped separately using loadkeys, and different
keycodes are used. Find out what they are with showkey.
- For a much more complete VT220/320 key mapping for [311]Xfree86 xterm,
- [312]CLICK HERE.
- ________________________________________________________________________
+ For a much more complete VT220/320 key mapping for [324]Xfree86 xterm,
+ [325]CLICK HERE.
- 3.3.4. Dates and Times
+3.3.4. Dates and Times
- [ [313]Top ] [ [314]Contents ] [ [315]Section Contents ] [ [316]Next ]
- [ [317]Previous ]
+ [ [326]Top ] [ [327]Contents ] [ [328]Section Contents ] [ [329]Next ]
+ [ [330]Previous ]
If C-Kermit's date-time (e.g. as shown by its DATE command) differs
from the system's date and time:
a. Make sure the libc to which Kermit is linked is set to GMT or is
not set to any time zone. Watch out for mixed libc5/libc6 systems;
- each must be set indpendently.
+ each must be set independently.
b. If you have changed your TZ environment variable, make sure it is
exported. This is normally done in /etc/profile or /etc/TZ.
- ________________________________________________________________________
- 3.3.5. Startup Errors
+3.3.5. Startup Errors
- [ [318]Top ] [ [319]Contents ] [ [320]Section Contents ] [ [321]Next ]
- [ [322]Previous ]
+ [ [331]Top ] [ [332]Contents ] [ [333]Section Contents ] [ [334]Next ]
+ [ [335]Previous ]
C-Kermit should work on all versions of Linux current through March
- 2003, provided it was built on the same version you have, with the
- same libraries and header files (just get the source code and "make
- linux"). Binaries tend not to travel well from one Linux machine to
- another, due to their many differences. There is no guarantee that a
- particular C-Kermit binary will not stop working at a later date,
- since Linux tends to change out from under its applications. If that
- happens, rebuild C-Kermit from source. If something goes wrong with
- the build process, look on the [323]C-Kermit website for a newer
- version. If you have the latest version, then [324]report the problem
- to us.
+ 2003, provided it was built on the same version you have, with the same
+ libraries and header files (just get the source code and "make linux").
+ Binaries tend not to travel well from one Linux machine to another, due
+ to their many differences. There is no guarantee that a particular
+ C-Kermit binary will not stop working at a later date, since Linux
+ tends to change out from under its applications. If that happens,
+ rebuild C-Kermit from source. If something goes wrong with the build
+ process, look on the [336]C-Kermit website for a newer version. If you
+ have the latest version, then [337]report the problem to us.
Inability to transfer files in Red Hat 7.2: the typical symptom would
- be if you start Kermit and tell it to RECEIVE, it fails right away
- with "?/dev/tty: No such device or address" or "?Bad file descriptor".
- One report says this is because of csh, and if you change your shell
- to bash or other shell, it doesn't happen. Another report cite bugs in
- Red Hat 7.2 Telnetd "very seldom (if ever) providing a controlling
- tty, and lots of other people piled on saying they have the same
- problem.") A third theory is that this happens only when Linux has
- been installed without "virtual terminal support".
+ be if you start Kermit and tell it to RECEIVE, it fails right away with
+ "?/dev/tty: No such device or address" or "?Bad file descriptor". One
+ report says this is because of csh, and if you change your shell to
+ bash or other shell, it doesn't happen. Another report cite bugs in Red
+ Hat 7.2 Telnetd "very seldom (if ever) providing a controlling tty, and
+ lots of other people piled on saying they have the same problem.") A
+ third theory is that this happens only when Linux has been installed
+ without "virtual terminal support".
A search of RedHat's errata pages shows a bug advisory (RHBA-2001-153)
issued 13 November 2001, but updated 6 December, about this same
assigning a controlling TTY for the session, which would make most use
of "/dev/tty" somewhat less than useful.
- [325]http://www.redhat.com/support/errata/RHBA-2001-153.html
+ [338]http://www.redhat.com/support/errata/RHBA-2001-153.html
Quoting: "Due to terminal handling problems in /bin/login, tcsh would
- not find the controlling terminal correctly, and a shell in single
- user mode would exhibit strange terminal input characteristics. This
- update fixes both of these problems."
+ not find the controlling terminal correctly, and a shell in single user
+ mode would exhibit strange terminal input characteristics. This update
+ fixes both of these problems."
Since the Red Hat 5.1 release (circa August 1998), there have been
numerous reports of prebuilt Linux executables, and particularly the
Kermit RPM for Red Hat Linux, not working; either it won't start at
all, or it gives error messages about "terminal type unknown" and
refuses to initialize its curses support. The following is from the
- [326]Kermit newsgroup:
+ [339]Kermit newsgroup:
From: rchandra@hal9000.buf.servtech.com
Newsgroups: comp.protocols.kermit.misc
terminal type on many Linux systems.
1. Your program, or the libraries it linked with (if statically
- linked), or the libraries it dynamically links with at runtime,
- are looking for an entry in /etc/termcap that isn't there. (not
- likely, but possible... I believe but am not certain that this is
- a very old practice in very old [n]curses library implementations
- to use a single file for all terminal descriptions.)
+ linked), or the libraries it dynamically links with at runtime, are
+ looking for an entry in /etc/termcap that isn't there. (not likely,
+ but possible... I believe but am not certain that this is a very
+ old practice in very old [n]curses library implementations to use a
+ single file for all terminal descriptions.)
2. Your program, or the libraries...are looking for a terminfo file
- that just plain isn't there. (also not so likely, since many
- people in other recent message threads said that other programs
- work OK).
+ that just plain isn't there. (also not so likely, since many people
+ in other recent message threads said that other programs work OK).
3. Your program, or the libraries...are looking for a terminfo file
that is stored at a pathname that isn't expected by your program,
- the libraries--and so on. I forgot if I read this in the errata
- Web page or where exactly I discovered this (Netscape install?
- Acrobat install?), but it may just be that one libc (let's say for
- sake of argument, libc5, but I don't know this to be true) expects
- your terminfo to be in /usr/share/terminfo, and the other (let's
- say libc6/glibc) expects /usr/lib/terminfo. I remember that the
+ the libraries--and so on. I forgot if I read this in the errata Web
+ page or where exactly I discovered this (Netscape install? Acrobat
+ install?), but it may just be that one libc (let's say for sake of
+ argument, libc5, but I don't know this to be true) expects your
+ terminfo to be in /usr/share/terminfo, and the other (let's say
+ libc6/glibc) expects /usr/lib/terminfo. I remember that the
specific instructions in this bugfix/workaround were to do the
following or equivalent:
cd /usr/lib
ln -s ../share/terminfo ./terminfo
+
or:
ln -s /usr/share/terminfo /usr/lib/terminfo
/usr/share/terminfo, which is where it really resides on your
system. I personally prefer wherever possible to use relative
symlinks, because they still hold, more often than break, across
- mount points, particularly NFS mounts, where the directory
- structure may be different on the different systems.
+ mount points, particularly NFS mounts, where the directory structure
+ may be different on the different systems.
Evidently the terminfo file moved between Red Hat 5.0 and 5.1, but Red
Hat did not include a link to let applications built prior to 5.1 find
it. Users reported that installing the link fixes the problem.
- ________________________________________________________________________
- 3.3.6. The Fullscreen File Transfer Display
+3.3.6. The Fullscreen File Transfer Display
- [ [327]Top ] [ [328]Contents ] [ [329]Section Contents ] [
- [330]Previous ]
+ [ [340]Top ] [ [341]Contents ] [ [342]Section Contents ] [
+ [343]Previous ]
Starting with ncurses versions dated 1998-12-12 (about a year before
ncurses 5.0), ncurses sets the terminal for buffered i/o, but
unfortunately is not able to restore it upon exit from curses (via
endwin()). Thus after a file transfer that uses the fullscreen file
- transfer display, the terminal no longer echos nor responds
- immediately to Tab, ?, and other special command characters. The same
- thing happens on other platforms that use ncurses, e.g. FreeBSD.
- Workarounds:
+ transfer display, the terminal no longer echos nor responds immediately
+ to Tab, ?, and other special command characters. The same thing happens
+ on other platforms that use ncurses, e.g. FreeBSD. Workarounds:
* Use SET XFER DISPLAY BRIEF, CRT, SERIAL, or NONE instead of
FULLSCREEN; or:
In Red Hat 7.1, when using C-Kermit in a Gnome terminal window, it was
noticed that when the fullscreen file transfer display exits (via
- endwin()), the previous (pre-file-transfer-display) screen is
- restored. Thus you can't look at the completed display to see what
- happened. This is a evidently a new feature of xterm. I can only
- speculate that initscreen() and endwin() must send some kind of
- special escape sequences that command xterm to save and restore the
- screen. To defeat this effect, tell Linux you have a vt100 or other
- xterm-compatible terminal that is not actually an xterm, or else tell
- Kermit to SET TRANSFER DISPLAY to something besides FULLSCREEN.
- ________________________________________________________________________
-
- 3.4. C-KERMIT AND NEXTSTEP
+ endwin()), the previous (pre-file-transfer-display) screen is restored.
+ Thus you can't look at the completed display to see what happened. This
+ is a evidently a new feature of xterm. I can only speculate that
+ initscreen() and endwin() must send some kind of special escape
+ sequences that command xterm to save and restore the screen. To defeat
+ this effect, tell Linux you have a vt100 or other xterm-compatible
+ terminal that is not actually an xterm, or else tell Kermit to SET
+ TRANSFER DISPLAY to something besides FULLSCREEN.
- [ [331]Top ] [ [332]Contents ] [ [333]Section Contents ] [ [334]Next ]
- [ [335]Previous ]
+3.4. C-KERMIT AND NEXTSTEP
+
+ [ [344]Top ] [ [345]Contents ] [ [346]Section Contents ] [ [347]Next ]
+ [ [348]Previous ]
Run C-Kermit in a Terminal, Stuart, or xterm window, or when logged in
remotely through a serial port or TELNET connection. C-Kermit does not
don't work on the little window that NeXTSTEP pops up for non-NeXTSTEP
applications like Kermit. CBREAK and No-ECHO settings do not take
effect in the command parser -- commands are parsed strictly line at a
- time. "set line /dev/cua" works. During CONNECT mode, the console
- stays in cooked mode, so characters are not transmitted until carriage
- return or linefeed is typed, and you can't escape back. If you want to
- run Kermit directly from the File Viewer, then launch it from a shell
+ time. "set line /dev/cua" works. During CONNECT mode, the console stays
+ in cooked mode, so characters are not transmitted until carriage return
+ or linefeed is typed, and you can't escape back. If you want to run
+ Kermit directly from the File Viewer, then launch it from a shell
script that puts it in the desired kind of window, something like this
(for "Terminal"):
The SET CARRIER command has no effect on the NeXT -- this is a
limitation of the NeXTSTEP serial-port device drivers.
- Hardware flow control on the NeXT is selected not by "set flow
- rts/cts" in Kermit (since NeXTSTEP offers no API for this), but
- rather, by using a specially-named driver for the serial device:
- /dev/cufa instead /dev/cua; /dev/cufb instead of /dev/cub. This is
- available only on 68040-based NeXT models (the situation for Intel
- NeXTSTEP implementations is unknown).
+ Hardware flow control on the NeXT is selected not by "set flow rts/cts"
+ in Kermit (since NeXTSTEP offers no API for this), but rather, by using
+ a specially-named driver for the serial device: /dev/cufa instead
+ /dev/cua; /dev/cufb instead of /dev/cub. This is available only on
+ 68040-based NeXT models (the situation for Intel NeXTSTEP
+ implementations is unknown).
NeXT-built 68030 and 68040 models have different kinds of serial
interfaces; the 68030 has a Macintosh-like RS-422 interface, which
lacks RTS and CTS signals; the 68040 has an RS-423 (RS-232 compatible)
- interface, which supports the commonly-used modem signals. WARNING:
- the connectors look exactly the same, but the pins are used in
- completely DIFFERENT ways -- different cables are required for the two
- kinds of interfaces.
+ interface, which supports the commonly-used modem signals. WARNING: the
+ connectors look exactly the same, but the pins are used in completely
+ DIFFERENT ways -- different cables are required for the two kinds of
+ interfaces.
IF YOU GET LOTS OF RETRANSMISSIONS during file transfer, even when
using a /dev/cuf* device and the modem is correctly configured for
there is no DMA channel for the NeXT serial port, so the port must
interrupt the kernel for each character in or out.
- One user reported trouble running C-Kermit on a NeXT from within
- NeXT's Subprocess class under NeXTstep 3.0, and/or when rlogin'd from
- one NeXT to another: Error opening /dev/tty:, congm: No such device or
- address. Diagnosis: Bug in NeXTSTEP 3.0, cure unknown.
- ________________________________________________________________________
+ One user reported trouble running C-Kermit on a NeXT from within NeXT's
+ Subprocess class under NeXTstep 3.0, and/or when rlogin'd from one NeXT
+ to another: Error opening /dev/tty:, congm: No such device or address.
+ Diagnosis: Bug in NeXTSTEP 3.0, cure unknown.
- 3.5. C-KERMIT AND QNX
+3.5. C-KERMIT AND QNX
- [ [336]Top ] [ [337]Contents ] [ [338]Section Contents ] [ [339]Next ]
- [ [340]Previous ]
+ [ [349]Top ] [ [350]Contents ] [ [351]Section Contents ] [ [352]Next ]
+ [ [353]Previous ]
- See also: The [341]comp.os.qnx newsgroup.
+ See also: The [354]comp.os.qnx newsgroup.
Support for QNX 4.x was added in C-Kermit 5A(190). This is a
full-function implementation, thoroughly tested on QNX 4.21 and later,
successfully (after stripping most most features, I succeeded in
getting it to compile and link without complaint, but the executable
just beeps when you run it); for 16-bit QNX 4.2x, use C-Kermit 6.0 or
- earlier, or else [342]G-Kermit.
+ earlier, or else [355]G-Kermit.
The 32-bit version (and the 16-bit version prior to C-Kermit 7.0)
supports most of C-Kermit's advanced features including TCP/IP, high
number) opens the first available /dev/sern device.
Like all other Unix C-Kermit implementations, QNX C-Kermit does not
- provide any kind of terminal emulation. Terminal specific functions
- are provided by your terminal, terminal window (e.g. QNX Terminal or
+ provide any kind of terminal emulation. Terminal specific functions are
+ provided by your terminal, terminal window (e.g. QNX Terminal or
xterm), or emulator.
QNX C-Kermit, as distributed, does not include support for UUCP
-DNOUUCP switch. This is because QNX, as distributed, does not include
UUCP, and its own communications software (e.g. qterm) does not use
UUCP line locking. If you have a UUCP product installed on your QNX
- system, remove the -DNOUUCP switch from the makefile entry and
- rebuild. Then check to see that Kermit's UUCP lockfile conventions are
- the same as those of your UUCP package; if not, read the [343]UUCP
- lockfile section of the [344]Installation Instructions and make the
- necessary changes to the makefile entry (e.g. add -DHDBUUCP).
+ system, remove the -DNOUUCP switch from the makefile entry and rebuild.
+ Then check to see that Kermit's UUCP lockfile conventions are the same
+ as those of your UUCP package; if not, read the [356]UUCP lockfile
+ section of the [357]Installation Instructions and make the necessary
+ changes to the makefile entry (e.g. add -DHDBUUCP).
QNX does, however, allow a program to get the device open count. This
- can not be a reliable form of locking unless all applications do it,
- so by default, Kermit uses this information only for printing a
- warning message such as:
+ can not be a reliable form of locking unless all applications do it, so
+ by default, Kermit uses this information only for printing a warning
+ message such as:
C-Kermit>set line /dev/ser1
WARNING - "/dev/ser1" looks busy...
As of C-Kermit 8.0, C-Kermit's "open-count" form of line locking works
only in QNX4, not in QNX6 (this might change in a future C-Kermit
release).
- ________________________________________________________________________
- 3.6. C-KERMIT AND SCO
+3.6. C-KERMIT AND SCO
- [ [345]Top ] [ [346]Contents ] [ [347]Section Contents ] [ [348]Next ]
- [ [349]Previous ]
+ [ [358]Top ] [ [359]Contents ] [ [360]Section Contents ] [ [361]Next ]
+ [ [362]Previous ]
SECTION CONTENTS
-3.6.1. [350]SCO XENIX
-3.6.2. [351]SCO UNIX and OSR5
-3.6.3. [352]Unixware
-3.6.4. [353]Open UNIX 8
+3.6.1. [363]SCO XENIX
+3.6.2. [364]SCO UNIX and OSR5
+3.6.3. [365]Unixware
+3.6.4. [366]Open UNIX 8
REFERENCES
* The comp.unix.sco.* newsgroups.
- * [354]Section 3.10 below for Unixware.
+ * [367]Section 3.10 below for Unixware.
* The following FAQs:
The comp.sco.misc FAQ:
- [355]http://aplawrence.com/SCOFAQ/
+ [368]http://aplawrence.com/SCOFAQ/
Caldera (SCO) comp.unix.sco.programmer FAQ:
- [356]http://www.zenez.com/cgi-bin/scoprogfaq/faq.pl
+ [369]http://www.zenez.com/cgi-bin/scoprogfaq/faq.pl
The UnixWare 7/OpenUNIX 8 FAQ:
- [357]http://www.zenez.com/cgi-bin/scouw7faq/faq.pl
- [358]http://zenez.pcunix.com/cgi-bin/scouw7faq/faq.pl
+ [370]http://www.zenez.com/cgi-bin/scouw7faq/faq.pl
+ [371]http://zenez.pcunix.com/cgi-bin/scouw7faq/faq.pl
High Speed Modems for SCO Unix:
- [359]http://pcunix.com/Unixart/modems.html
+ [372]http://pcunix.com/Unixart/modems.html
The UnixWare FAQ
- [360]http://www.freebird.org/faq/
+ [373]http://www.freebird.org/faq/
The UnixWare 1.x and 2.0 Programmer FAQ
- [361]http://www.freebird.org/faq/developer.html
+ [374]http://www.freebird.org/faq/developer.html
Caldera Support Knowledge Base
- [362]http://support.caldera.com/caldera
+ [375]http://support.caldera.com/caldera
- [363]http://stage.caldera.com/ta/
+ [376]http://stage.caldera.com/ta/
Caldera (SCO) Technical Article Search Center
- [364]http://aplawrence.com/newtosco.html
+ [377]http://aplawrence.com/newtosco.html
New to SCO (Tony Lawrence)
- The same comments regarding terminal emulation and key mapping apply
- to SCO operating systems as to all other Unixes. C-Kermit is not a
- terminal emulator, and you can't use it to map F-keys, Arrow keys,
- etc. The way to do this is with xmodmap (xterm) or loadkeys (console).
- For a brief explanation, see [365]Section 3.0.5. For a fuller
- explanation, [366]ClICK HERE.
+ The same comments regarding terminal emulation and key mapping apply to
+ SCO operating systems as to all other Unixes. C-Kermit is not a
+ terminal emulator, and you can't use it to map F-keys, Arrow keys, etc.
+ The way to do this is with xmodmap (xterm) or loadkeys (console). For a
+ brief explanation, see [378]Section 3.0.5. For a fuller explanation,
+ [379]ClICK HERE.
- Also see general comments on PC-based Unixes in [367]Section 3.0.
+ Also see general comments on PC-based Unixes in [380]Section 3.0.
- 3.6.1. SCO XENIX
+3.6.1. SCO XENIX
- [ [368]Top ] [ [369]Contents ] [ [370]Section Contents ] [ [371]Next ]
+ [ [381]Top ] [ [382]Contents ] [ [383]Section Contents ] [ [384]Next ]
Old Xenix versions... Did you know: Xenix 3.0 is *older* than Xenix
2.0?
DTR to hang up a modem does not work. DTR goes down but does not come
up again. Workaround: Use SET MODEM HANGUP-METHOD MODEM-COMMAND.
Anybody who would like to fix this is welcome to take a look at
- tthang() in [372]ckutio.c. Also: modem signals can not be read in
+ tthang() in [385]ckutio.c. Also: modem signals can not be read in
Xenix, and the maximum serial speed is 38400.
There is all sorts of confusion among SCO versions, particularly when
- third- party communications boards and drivers are installed,
- regarding lockfile naming conventions, as well as basic functionality.
- As far as lockfiles go, all bets are off if you are using a
- third-party multiport board. At least you have the source code.
- Hopefully you also have a C compiler :-)
-
- Xenix 2.3.0 and later claim to support RTSFLOW and CTSFLOW, but this
- is not modern bidirectional hardware flow control; rather it
- implements the original RS-232 meanings of these signals for
- unidirectional half-duplex line access: If both RTSFLOW and CTSFLOW
- bits are set, Xenix asserts RTS when it wants to send data and waits
- for CTS assertion before it actually starts sending data (also,
- reportedly, even this is broken in Xenix 2.3.0 and 2.3.1).
- ________________________________________________________________________
-
- 3.6.2. SCO UNIX AND OSR5
-
- [ [373]Top ] [ [374]Contents ] [ [375]Section Contents ] [ [376]Next ]
- [ [377]Previous ]
+ third- party communications boards and drivers are installed, regarding
+ lockfile naming conventions, as well as basic functionality. As far as
+ lockfiles go, all bets are off if you are using a third-party multiport
+ board. At least you have the source code. Hopefully you also have a C
+ compiler :-)
+
+ Xenix 2.3.0 and later claim to support RTSFLOW and CTSFLOW, but this is
+ not modern bidirectional hardware flow control; rather it implements
+ the original RS-232 meanings of these signals for unidirectional
+ half-duplex line access: If both RTSFLOW and CTSFLOW bits are set,
+ Xenix asserts RTS when it wants to send data and waits for CTS
+ assertion before it actually starts sending data (also, reportedly,
+ even this is broken in Xenix 2.3.0 and 2.3.1).
+
+3.6.2. SCO UNIX AND OSR5
+
+ [ [386]Top ] [ [387]Contents ] [ [388]Section Contents ] [ [389]Next ]
+ [ [390]Previous ]
SCO systems tend to use different names (i.e. drivers) for the same
device. Typically /dev/tty1a refers to a terminal device that has no
- modem control; open, read, write, and close operations do not depend
- on carrier. On the other hand, /dev/tty1A (same name, but with final
+ modem control; open, read, write, and close operations do not depend on
+ carrier. On the other hand, /dev/tty1A (same name, but with final
letter upper case), is the same device with modem control, in which
carrier is required (the SET LINE command does not complete until
carrier appears, read/write operations fail if there is no carrier,
signals. Thus "show comm" does not list modem signals, and C-Kermit
does not automatically pop back to its prompt when the modem hangs up
the connection (drops CD). The ioctl() call for this is simply not
- implmented, at least not in the standard drivers. OSR5.0.6 attempts to
+ implemented, at least not in the standard drivers. OSR5.0.6 attempts to
deal with modem signals but fails; however OSR5.0.6a appears to
function properly.
- Dialing is likely not to work well in SCO OpenServer 5.0.x because
- many of the serial-port APIs simply do not operate when using the
- standard drivers. For example, if DTR is dropped by the recommended
- method (setting speed to 0 for half a seconds, then restoring the
- speed), DTR and RTS go down but never come back up. When in doubt SET
- MODEM HANGUP-METHOD MODEM-COMMAND or SET DIAL HANGUP OFF.
-
- On the other hand, certain functions that might not (do not) work
- right or at all when using SCO drivers (e.g. high serial speeds,
- hardware flow control, and/or reading of modem signals) might work
- right when using third-party drivers. (Example: hardware flow control
- works, reportedly, only on uppercase device like tty1A -- not tty1a --
- and only when CLOCAL is clear when using the SCO sio driver, but there
- are no such restrictions in, e.g., [378]Digiboard drivers).
-
- One user reports that he can't transfer large files with C-Kermit
- under SCO OSR5.0.0 and 5.0.4 -- after the first 5K, everything falls
- apart. Same thing without Kermit -- e.g. with ftp over a PPP
- connection. Later, he said that replacing SCO's SIO driver with FAS,
- an alternative communications driver, made the problem go away:
-
- [379]ftp://ftp.fu-berlin.de/pub/unix/driver/fas
+ Dialing is likely not to work well in SCO OpenServer 5.0.x because many
+ of the serial-port APIs simply do not operate when using the standard
+ drivers. For example, if DTR is dropped by the recommended method
+ (setting speed to 0 for half a seconds, then restoring the speed), DTR
+ and RTS go down but never come back up. When in doubt SET MODEM
+ HANGUP-METHOD MODEM-COMMAND or SET DIAL HANGUP OFF.
+
+ On the other hand, certain functions that might not (do not) work right
+ or at all when using SCO drivers (e.g. high serial speeds, hardware
+ flow control, and/or reading of modem signals) might work right when
+ using third-party drivers. (Example: hardware flow control works,
+ reportedly, only on uppercase device like tty1A -- not tty1a -- and
+ only when CLOCAL is clear when using the SCO sio driver, but there are
+ no such restrictions in, e.g., [391]Digiboard drivers).
+
+ One user reports that he can't transfer large files with C-Kermit under
+ SCO OSR5.0.0 and 5.0.4 -- after the first 5K, everything falls apart.
+ Same thing without Kermit -- e.g. with ftp over a PPP connection.
+ Later, he said that replacing SCO's SIO driver with FAS, an alternative
+ communications driver, made the problem go away:
+
+ [392]ftp://ftp.fu-berlin.de/pub/unix/driver/fas
With regard to bidirectional serial ports on OpenServer 5.0.4, the
following advice appeared on an SCO-related newsgroup:
- No amount of configuration information is going to help you on
- 5.0.4 unless it includes the kludge for the primary problem. With
- almost every modem, the 5.0.4 getty will barf messages and may or
- may not connect. There are 2 solutions and only one works on 5.0.4.
- Get the atdialer binary from a 5.0.0 system and substitute it for
- the native 5.0.4 atdialer. The other solution is to upgrade to
- 5.0.5. And, most of all, on any OpenServer products, do NOT run the
- badly broken Modem Manager. Configure the modems in the time
- honored way that dates back to Xenix.
+ No amount of configuration information is going to help you on 5.0.4
+ unless it includes the kludge for the primary problem. With almost
+ every modem, the 5.0.4 getty will barf messages and may or may not
+ connect. There are 2 solutions and only one works on 5.0.4. Get the
+ atdialer binary from a 5.0.0 system and substitute it for the native
+ 5.0.4 atdialer. The other solution is to upgrade to 5.0.5. And, most
+ of all, on any OpenServer products, do NOT run the badly broken
+ Modem Manager. Configure the modems in the time honored way that
+ dates back to Xenix.
Use SCO-provided utilities for switching the directionality of a modem
- line, such as "enable" and "disable" commands. For example, to dial
- out on tty1a, which is normally set up for logins:
+ line, such as "enable" and "disable" commands. For example, to dial out
+ on tty1a, which is normally set up for logins:
disable tty1a
kermit -l /dev/tty1a
enabled, getty resets the ownership and permissions to uucp.uucp and
640 every time the device is released. If you want to use the device
only for dialout, and you want to specify other owners or permissions,
- you should disable it in /usr/lib/uucp/Devices; this will prevent
- getty from doing things to it. You should also changes the device's
- file modes in /etc/conf/node.d/sio by changing fields 5-7 for the
- desired device(s); this determines how the devices are set if you
- relink the kernel.
+ you should disable it in /usr/lib/uucp/Devices; this will prevent getty
+ from doing things to it. You should also changes the device's file
+ modes in /etc/conf/node.d/sio by changing fields 5-7 for the desired
+ device(s); this determines how the devices are set if you relink the
+ kernel.
One SCO user of C-Kermit 5A(190) reported that only one copy of Kermit
can run at a time when a Stallion Technologies multiport boards are
- installed. Cause, cure, and present status unknown (see [380]Section
- 14 for more info regarding Stallion).
+ installed. Cause, cure, and present status unknown (see [393]Section 14
+ for more info regarding Stallion).
Prior to SCO OpenServer 5.0.4, the highest serial port speed supported
by SCO was 38400. However, in some SCO versions (e.g. OSR5) it is
possible to map rarely-used lower speeds (like 600 and 1800) to higher
ones like 57600 and 115200. To find out how, go to
- [381]http://www.sco.com/ and search for "115200". In OSR5.0.4, serial
- speeds up to 921600 are supported through the POSIX interface;
- C-Kermit 6.1.193 or later, when built for OSR5.0.4 using /bin/cc (NOT
- the UDK, which hides the high-speed definitions from CPP), supports
- these speeds, but you might be able to run this binary on earlier
- releases to get the high serial speeds, depending on various factors,
- described by Bela Lubkin of SCO:
+ [394]http://www.sco.com/ and search for "115200". In OSR5.0.4, serial
+ speeds up to 921600 are supported through the POSIX interface; C-Kermit
+ 6.1.193 or later, when built for OSR5.0.4 using /bin/cc (NOT the UDK,
+ which hides the high-speed definitions from CPP), supports these
+ speeds, but you might be able to run this binary on earlier releases to
+ get the high serial speeds, depending on various factors, described by
+ Bela Lubkin of SCO:
Serial speeds under SCO Unix / Open Desktop / OpenServer
========================================================
SCO OpenServer Release 5.0.4 or later
SCO Internet FastStart Release 1.0.0 or later
- SCO supplements are at [382]ftp://ftp.sco.com/; the "rs40" series are
+ SCO supplements are at [395]ftp://ftp.sco.com/; the "rs40" series are
under directory /Supplements/internet
Kermit includes the high serial speeds in all OSR5 builds, but that
- does not necessarily mean they work. For example, on our in-house
- 5.0.5 system, SET SPEED 57600 or higher seems to succeed (no error
- occurs) but when we read the speed back the driver says it is 50.
- Similarly, 76800 becomes 75, and 115200 becomes 110. Testing shows the
- resulting speed is indeed the low one we read back, not the high one
- we asked for. Moral: Use speeds higher than 38400 with caution on SCO
- OSR5.
+ does not necessarily mean they work. For example, on our in-house 5.0.5
+ system, SET SPEED 57600 or higher seems to succeed (no error occurs)
+ but when we read the speed back the driver says it is 50. Similarly,
+ 76800 becomes 75, and 115200 becomes 110. Testing shows the resulting
+ speed is indeed the low one we read back, not the high one we asked
+ for. Moral: Use speeds higher than 38400 with caution on SCO OSR5.
Reportedly, if you have a script that makes a TCP/IP SET HOST (e.g.
Telnet) connection to SCO 3.2v4.2 with TCP/IP 1.2.1, and then does the
script $ exit
hangup
- this causes a pseudoterminal (pty) to be consumed on the SCO system;
- if you do it enough times, it will run out of ptys. An "exit" command
- is being sent to the SCO shell, and a HANGUP command is executed
- locally, so the chances are good that both sides are trying to close
- the connection at once, perhaps inducing a race condition in which the
+ this causes a pseudoterminal (pty) to be consumed on the SCO system; if
+ you do it enough times, it will run out of ptys. An "exit" command is
+ being sent to the SCO shell, and a HANGUP command is executed locally,
+ so the chances are good that both sides are trying to close the
+ connection at once, perhaps inducing a race condition in which the
remote pty is not released. It was speculated that this would be fixed
by applying SLS net382e, but it did not. Meanwhile, the workaround is
to insert a "pause" between the SCRIPT and HANGUP commands. (The
SCO UNIX and OpenServer allow their console and/or terminal drivers to
be configured to translate character sets for you. DON'T DO THIS WHEN
USING KERMIT! First of all, you don't need it -- Kermit itself already
- does this for you. And second, it will (a) probably ruin the
- formatting of your screens (depending on which emulation you are
- using); and (b) interfere with all sorts of other things -- legibility
- of non-ASCII text on the terminal screen, file transfer, etc. Use:
+ does this for you. And second, it will (a) probably ruin the formatting
+ of your screens (depending on which emulation you are using); and (b)
+ interfere with all sorts of other things -- legibility of non-ASCII
+ text on the terminal screen, file transfer, etc. Use:
mapchan -n
Note that there is a multitude of SCO entries in the makefile, many of
them exhibiting an unusually large number of compiler options. Some
- people actually understand all of this. Reportedly, things are
- settling down with SCO OpenServer 5.x and Unixware 7 (and Open UNIX 8
- and who knows what the next one will be -- Linux probably) -- the SCO
- UDK compiler is said to generate binaries that will run on either
- platform, by default, automatically. When using gcc or egcs, on the
- other hand, differences persist, plus issues regarding the type of
- binary that is generated (COFF, ELF, etc), and where and how it can
- run. All of this could stand further clarification by SCO experts.
- ________________________________________________________________________
+ people actually understand all of this. Reportedly, things are settling
+ down with SCO OpenServer 5.x and Unixware 7 (and Open UNIX 8 and who
+ knows what the next one will be -- Linux probably) -- the SCO UDK
+ compiler is said to generate binaries that will run on either platform,
+ by default, automatically. When using gcc or egcs, on the other hand,
+ differences persist, plus issues regarding the type of binary that is
+ generated (COFF, ELF, etc), and where and how it can run. All of this
+ could stand further clarification by SCO experts.
- 3.6.3. Unixware
+3.6.3. Unixware
- [ [383]Top ] [ [384]Contents ] [ [385]Section Contents ] [ [386]Next ]
- [ [387]Previous ]
+ [ [396]Top ] [ [397]Contents ] [ [398]Section Contents ] [ [399]Next ]
+ [ [400]Previous ]
Unixware changed hands several times before landing at SCO, and so has
- its [388]own section in this document. (Briefly: AT&T UNIX Systems
+ its [401]own section in this document. (Briefly: AT&T UNIX Systems
Laboratories sold the rights to the UNIX name and to System V R4 (or
R5?) to Novell; later Novell spun its UNIX division off into a new
company called Univel, which eventually was bought by SCO, which later
was bought by Caldera, which later sort of semi-spun-off SCO...)
- ________________________________________________________________________
- 3.6.4. Open UNIX 8
+3.6.4. Open UNIX 8
- [ [389]Top ] [ [390]Contents ] [ [391]Section Contents ] [
- [392]Previous ]
+ [ [402]Top ] [ [403]Contents ] [ [404]Section Contents ] [
+ [405]Previous ]
- SCO was bought by Caldera in 2000 or 2001 and evolved Unixware 7.1
- into Caldera Open UNIX 8.00. It's just like Unixware 7.1 as far as
- Kermit is concerned (the Unixware 7.1 makefile target works for Open
- UNIX 8.00, and in fact a Unixware 7.1 Kermit binary built on Unixware
- 7.1 runs under OU8; a separate OU8 makefile target exists simply to
- generate an appropriate program startup herald). Open Unix is now
- defunct; subsequent releases are called UnixWare again (e.g. UnixWare
- 7.1.3).
- ________________________________________________________________________
+ SCO was bought by Caldera in 2000 or 2001 and evolved Unixware 7.1 into
+ Caldera Open UNIX 8.00. It's just like Unixware 7.1 as far as Kermit is
+ concerned (the Unixware 7.1 makefile target works for Open UNIX 8.00,
+ and in fact a Unixware 7.1 Kermit binary built on Unixware 7.1 runs
+ under OU8; a separate OU8 makefile target exists simply to generate an
+ appropriate program startup herald). Open Unix is now defunct;
+ subsequent releases are called UnixWare again (e.g. UnixWare 7.1.3).
- 3.7. C-KERMIT AND SOLARIS
+3.7. C-KERMIT AND SOLARIS
- [ [393]Top ] [ [394]Contents ] [ [395]Section Contents ] [ [396]Next ]
- [ [397]Previous ]
+ [ [406]Top ] [ [407]Contents ] [ [408]Section Contents ] [ [409]Next ]
+ [ [410]Previous ]
SECTION CONTENTS
-3.7.1. [398]Serial Port Configuration
-3.7.2. [399]Serial Port Problems
-3.7.3. [400]SunLink X.25
-3.7.4. [401]Sun Workstation Keyboard Mapping
-3.7.5. [402]Solaris 2.4 and Earlier
+3.7.1. [411]Serial Port Configuration
+3.7.2. [412]Serial Port Problems
+3.7.3. [413]SunLink X.25
+3.7.4. [414]Sun Workstation Keyboard Mapping
+3.7.5. [415]Solaris 2.4 and Earlier
REFERENCES
- * The [403]comp.unix.solaris newsgroup
- * [404]http://access1.sun.com/
- * [405]http://docs.sun.com/
- * [406]http://www.sunhelp.com/
- * [407]http://www.wins.uva.nl/pub/solaris/solaris2/
- * [408]http://www.wins.uva.nl/cgi-bin/sfaq.cgi
- * [409]ftp://ftp.wins.uva.nl/pub/solaris
- * [410]http://www.science.uva.nl/pub/solaris/solaris2.html
+ * The [416]comp.unix.solaris newsgroup
+ * [417]http://access1.sun.com/
+ * [418]http://docs.sun.com/
+ * [419]http://www.sunhelp.com/
+ * [420]http://www.wins.uva.nl/pub/solaris/solaris2/
+ * [421]http://www.wins.uva.nl/cgi-bin/sfaq.cgi
+ * [422]ftp://ftp.wins.uva.nl/pub/solaris
+ * [423]http://www.science.uva.nl/pub/solaris/solaris2.html
And about serial communications in particular, see "Celeste's Tutorial
on Solaris 2.x Modems and Terminals":
- [411]http://www.stokely.com/
+ [424]http://www.stokely.com/
In particular:
- [412]http://www.stokely.com/unix.sysadm.resources/faqs.sun.html
+ [425]http://www.stokely.com/unix.sysadm.resources/faqs.sun.html
For PC-based Solaris, also see general comments on PC-based Unixes in
- [413]Section 3.0. Don't expect Solaris or any other kind of Unix to
+ [426]Section 3.0. Don't expect Solaris or any other kind of Unix to
work right on a PC until you resolve all interrupt conflicts. Don't
expect to be able to use COM3 or COM4 (or even COM2) until you have
configured their addresses and interrupts.
- ________________________________________________________________________
- 3.7.1. Serial Port Configuration
+3.7.1. Serial Port Configuration
- [ [414]Top ] [ [415]Contents ] [ [416]Section Contents ] [
- [417]Section Contents ] [ [418]Next ]
+ [ [427]Top ] [ [428]Contents ] [ [429]Section Contents ] [ [430]Section
+ Contents ] [ [431]Next ]
- Your serial port can't be used -- or at least won't work right --
- until it is enabled in Solaris. For example, you get a message like
- "SERIAL: Operation would block" when attempting to dial. This probably
- indicates that the serial port has not been enabled for use with
- modems. You'll need to follow the instructions in your system setup or
- management manual, such as (e.g.) the Desktop SPARC Sun System &
- Network Manager's Guide, which should contain a section "Setting up
- Modem Software"; read it and follow the instructions. These might (or
- might not) include running a program called "eeprom", editing some
- system configuration file (such as, for example:
+ Your serial port can't be used -- or at least won't work right -- until
+ it is enabled in Solaris. For example, you get a message like "SERIAL:
+ Operation would block" when attempting to dial. This probably indicates
+ that the serial port has not been enabled for use with modems. You'll
+ need to follow the instructions in your system setup or management
+ manual, such as (e.g.) the Desktop SPARC Sun System & Network Manager's
+ Guide, which should contain a section "Setting up Modem Software"; read
+ it and follow the instructions. These might (or might not) include
+ running a program called "eeprom", editing some system configuration
+ file (such as, for example:
/platform/i86pc/kernel/drv/asy.conf
fuser -f /dev/term/3
In some cases, however (according to Sun support, May 2001) "It is
- still possible that a zombie process has hold of the port EVEN IF
- there is no lock file and the fuser command comes up empty. In that
- case, the only way to resolve the problem is by rebooting."
+ still possible that a zombie process has hold of the port EVEN IF there
+ is no lock file and the fuser command comes up empty. In that case, the
+ only way to resolve the problem is by rebooting."
If you can't establish communication through a serial port to a device
that is not asserting CD (Carrier Detect), try setting the environment
variable "ttya-ignore-cd" to "true" (replace "ttya" with the port
name).
- ________________________________________________________________________
- 3.7.2. Serial Port Problems
+3.7.2. Serial Port Problems
- [ [419]Top ] [ [420]Contents ] [ [421]Section Contents ] [ [422]Next ]
- [ [423]Previous ]
+ [ [432]Top ] [ [433]Contents ] [ [434]Section Contents ] [ [435]Next ]
+ [ [436]Previous ]
- Current advice from Sun is to always the /dev/cua/x devices for
- dialing out, rather than the /dev/term/x. Nevertheless, if you have
- trouble dialing out with one, try the other.
+ Current advice from Sun is to always the /dev/cua/x devices for dialing
+ out, rather than the /dev/term/x. Nevertheless, if you have trouble
+ dialing out with one, try the other.
Reportedly, if you start C-Kermit and "set line" to a port that has a
modem connected to it that is not turned on, and then "set flow
rts/cts", there might be some (unspecified) difficulties closing the
device because the CTS signal is not coming in from the modem.
- ________________________________________________________________________
- 3.7.3. SunLink X.25
+3.7.3. SunLink X.25
- [ [424]Top ] [ [425]Contents ] [ [426]Section Contents ] [ [427]Next ]
- [ [428]Previous ]
+ [ [437]Top ] [ [438]Contents ] [ [439]Section Contents ] [ [440]Next ]
+ [ [441]Previous ]
The built-in SunLink X.25 support for Solaris 2.3/2.4./25 and SunLink
8.01 or 9.00 works OK provided the X.25 system has been installed and
initialized properly. Packet sizes might need to be reduced to 256,
maybe even less, depending on the configuration of the X.25
installation. On one connection where C-Kermit 6.0 was tested, very
- large packets and window sizes could be used in one direction, but
- only very small ones would work in the other.
+ large packets and window sizes could be used in one direction, but only
+ very small ones would work in the other.
In any case, according to Sun, C-Kermit's X.25 support is superfluous
with SunLink 8.x / Solaris 2.3. Quoting an anonymous Sun engineer:
why we only claim support from 8.0.1 onwards.
When configuring X.25, on the "Advanced Configuration->Parameters"
- screen of the x25tool you can select a number of XTY devices. If
- you set this to be > 1, press Apply, and reboot, you will get a
- number of /dev/xty entries created.
+ screen of the x25tool you can select a number of XTY devices. If you
+ set this to be > 1, press Apply, and reboot, you will get a number
+ of /dev/xty entries created.
Ignore /dev/xty0, it is a special case. All the others can be used
- exactly as if they were a serial line (e.g. /dev/tty) connected to
- a modem, except that instead of using Hayes-style commands, you use
+ exactly as if they were a serial line (e.g. /dev/tty) connected to a
+ modem, except that instead of using Hayes-style commands, you use
PAD commands.
- From kermit you can do a 'set line' command to, say, /dev/xty1,
- then set your dialing command to be "CALL 12345678", etc. All the
- usual PAD commands will work (SET, PAR, etc).
+ From kermit you can do a 'set line' command to, say, /dev/xty1, then
+ set your dialing command to be "CALL 12345678", etc. All the usual
+ PAD commands will work (SET, PAR, etc).
I know of one customer in Australia who is successfully using this,
- with kermit scripts, to manage some X.25-connected switches. He
- used standard kermit, compiled for Solaris 2, with X.25 8.0 xty
- devices.
- ________________________________________________________________________
+ with kermit scripts, to manage some X.25-connected switches. He used
+ standard kermit, compiled for Solaris 2, with X.25 8.0 xty devices.
- 3.7.4. Sun Workstation Keyboard Mapping
+3.7.4. Sun Workstation Keyboard Mapping
- [ [429]Top ] [ [430]Contents ] [ [431]Section Contents ] [ [432]Next ]
- [ [433]Previous ]
+ [ [442]Top ] [ [443]Contents ] [ [444]Section Contents ] [ [445]Next ]
+ [ [446]Previous ]
Hints for using a Sun workstation keyboard for VT emulation when
- accessing VMS, from the [434]comp.os.vms newsgroup:
+ accessing VMS, from the [447]comp.os.vms newsgroup:
From: Jerry Leichter <leichter@smarts.com>
Newsgroups: comp.os.vms
The "+" key will play the role of the DEC "," key. The Sun "-" key
will be like the DEC "-" key, though it's in a physically different
position - where the DEC PF4 key is. The PF4 key is ... damn, I'm
- not sure where "key 105" is. I *think* it may be on the leftmost
- key of the group of four just above the "calculator" key cluster.
+ not sure where "key 105" is. I *think* it may be on the leftmost key
+ of the group of four just above the "calculator" key cluster.
I also execute the following (this is all in my xinitrc file):
xmodmap -e 'add mod1 = Meta_R'
xmodmap -e 'add mod1 = Meta_L'
- Beware of one thing about xmodmap: Keymap changes are applied to
- the *whole workstation*, not just to individual windows. There is,
- in fact, no way I know of to apply them to individual windows.
- These definitions *may* confuse some Unix programs (and/or some
- Unix users).
+ Beware of one thing about xmodmap: Keymap changes are applied to the
+ *whole workstation*, not just to individual windows. There is, in
+ fact, no way I know of to apply them to individual windows. These
+ definitions *may* confuse some Unix programs (and/or some Unix
+ users).
If you're using Motif, you may also need to apply bindings at the
Motif level. If just using xmodmap doesn't work, I can try and dig
that stuff up for you.
- ________________________________________________________________________
- 3.7.5. Solaris PPP Connections
+3.7.5. Solaris PPP Connections
- [ [435]Top ] [ [436]Contents ] [ [437]Section Contents ] [ [438]Next ]
- [ [439]Previous ]
+ [ [448]Top ] [ [449]Contents ] [ [450]Section Contents ] [ [451]Next ]
+ [ [452]Previous ]
The following is a report from a user of C-Kermit 8.0 on Solaris 8 and
- 9, who had complained that while Kermit file transfers worked
- perfectly on direct (non-PPP) dialout connections, they failed
- miserably on PPP connections. We suggested that the PPP dialer
- probably was not setting the port and/or modem up in the same way that
- Kermit did:
+ 9, who had complained that while Kermit file transfers worked perfectly
+ on direct (non-PPP) dialout connections, they failed miserably on PPP
+ connections. We suggested that the PPP dialer probably was not setting
+ the port and/or modem up in the same way that Kermit did:
- I want to get back on this and tell you what the resolution was.
- You pointed me in the direction of flow control, which turned out
- to be the key.
+ I want to get back on this and tell you what the resolution was. You
+ pointed me in the direction of flow control, which turned out to be
+ the key.
Some discussion on the comp.unix.solaris newsgroup led to some
comments from Greg Andrews about the need to use the uucp driver to
talk to the modem (/dev/cua/a). I had to remind Greg that no matter
what the manpages for the zs and se drivers say, the ppp that Sun
- released with Solaris 8 7/01, and has in Solaris 9, is a setuid
- root program, and simply trying to make a pppd call from user space
+ released with Solaris 8 7/01, and has in Solaris 9, is a setuid root
+ program, and simply trying to make a pppd call from user space
specifying /dev/cua/a would fail because of permissions. Greg
finally put the question to the ppp people, who came back with
information that is not laid out anywhere in the docs available for
- Solaris users. Namely, put /dev/cua/a in one of the priviledged
+ Solaris users. Namely, put /dev/cua/a in one of the privileged
options files in the /etc/ppp directory. That, plus resetting the
OBP ttya-ignore-cd flag (this is Sun hardware) to false, seems to
have solved the problems.
/dev/term/a. Not so with pppd.
With this change in place, I seem to be able to upload and download
- through telnet run on Kermit with the maximum length packets. I
- note that the window allocation display does show STREAMING, using
+ through telnet run on Kermit with the maximum length packets. I note
+ that the window allocation display does show STREAMING, using
telnet. Running ssh on Kermit, I see the standard 1 of 30 windows
display, and note that there appears to be a buffer length limit
between 1000 and 2000 bytes. Run with 1000, and it's tick-tock,
solid as a rock. With 2000 I see timeout errors and RTS/CTS action
on the modem.
- Kermit's packet-length and other controls let you make adjustments
- like this to get around whatever obstacles might be thrown up -- in
- this case (running Kermit over ssh), the underling Solaris PTY driver.
- ________________________________________________________________________
+ Kermit's packet-length and other controls let you make adjustments like
+ this to get around whatever obstacles might be thrown up -- in this
+ case (running Kermit over ssh), the underling Solaris PTY driver.
- 3.7.6. Solaris 2.4 and Earlier
+3.7.6. Solaris 2.4 and Earlier
- [ [440]Top ] [ [441]Contents ] [ [442]Section Contents ] [
- [443]Previous ]
+ [ [453]Top ] [ [454]Contents ] [ [455]Section Contents ] [
+ [456]Previous ]
C-Kermit can't be compiled successfully under Solaris 2.3 using
SUNWspro cc 2.0.1 unless at least some of the following patches are
* 100961-05 SPARCcompilers C 2.0.1: conditional expression with
function returning structure gives wrong value
* 100974-01 SparcWorks 2.0.1: dbx jumbo patch
- * 101424-01 SPARCworks 2.0.1 maketool SEGV's instantly on Solaris
- 2.3
+ * 101424-01 SPARCworks 2.0.1 maketool SEGV's instantly on Solaris 2.3
With unpatched cc 2.0.1, the symptom is that certain modules generate
- truncated object files, resulting in many unresolved references at
- link time.
+ truncated object files, resulting in many unresolved references at link
+ time.
The rest of the problems in this section have to do with
bidirectional terminal ports and the Solaris Port Monitor. A bug in
C-Kermit 5A ticked a bug in Solaris. The C-Kermit bug was fixed in
- version 6.0, and the Solaris bug was fixed in 2.4 (I think, or
- maybe 2.5).
+ version 6.0, and the Solaris bug was fixed in 2.4 (I think, or maybe
+ 2.5).
Reportedly, "C-Kermit ... causes a SPARCstation running Solaris 2.3 to
panic after the modem connects. I have tried compiling C-Kermit with
Sun's unbundled C compiler, with GCC Versions 2.4.5 and 2.5.3, with
make targets 'sunos51', 'sunos51tcp', 'sunos51gcc', and even 'sys5r4',
and each time it compiles and starts up cleanly, but without fail, as
- soon as I dial the number and get a 'CONNECT' message from the modem,
- I get:
+ soon as I dial the number and get a 'CONNECT' message from the modem, I
+ get:
BAD TRAP
kermit: Data fault
ATDTnnnnnnn, the system panics as soon as the modem issues its CONNECT
message. (Clearly, when you are dialing manually, C-Kermit does not
know a thing about the CONNECT message, and so the panic is almost
- certainly caused by the transition of the Carrier Detect (CD) line
- from off to on.) This problem was reported by many users, all of whom
- say that C-Kermit worked fine on Solaris 2.1 and 2.2. If the
- speculation about CD is true, then a possible workaround might be to
- configure the modem to leave CD on (or off) all the time. Perhaps by
- the time you read this, a patch will have been issued for Solaris 2.3.
+ certainly caused by the transition of the Carrier Detect (CD) line from
+ off to on.) This problem was reported by many users, all of whom say
+ that C-Kermit worked fine on Solaris 2.1 and 2.2. If the speculation
+ about CD is true, then a possible workaround might be to configure the
+ modem to leave CD on (or off) all the time. Perhaps by the time you
+ read this, a patch will have been issued for Solaris 2.3.
The following is from Karl S. Marsh, Systems & Networks Administrator,
AMBIX Systems Corp, Rochester, NY:
C-Kermit, get Bad Trap on receiving prompt from remote system").
Another user reported "So, I have communicated with the Sun tech
support person that submitted this bug report [1150457]. Apparently,
- this bug was fixed under one of the jumbo kernel patches. It would
- seem that the fix did not live on into 101318-45, as this is EXACTLY
- the error that I see when I attempt to use kermit on my system."
+ this bug was fixed under one of the jumbo kernel patches. It would seem
+ that the fix did not live on into 101318-45, as this is EXACTLY the
+ error that I see when I attempt to use kermit on my system."
Later (Aug 94)... C-Kermit dialout successfully tested on a Sun4m with
a heavily patched Solaris 2.3. The patches most likely to have been
relevant:
- * 101318-50: SunOS 5.3: Jumbo patch for kernel (includes libc,
- lockd)
- * 101720-01: SunOS 5.3: ttymon - prompt not always visible on a
- modem connection
+ * 101318-50: SunOS 5.3: Jumbo patch for kernel (includes libc, lockd)
+ * 101720-01: SunOS 5.3: ttymon - prompt not always visible on a modem
+ connection
* 101815-01: SunOS 5.3: Data fault in put() NULL queue passed from
ttycommon_qfull()
- * 101328-01: SunOS 5.3: Automation script to properly setup tty
- ports prior to PCTS execution
+ * 101328-01: SunOS 5.3: Automation script to properly setup tty ports
+ prior to PCTS execution
Still later (Nov 94): another user (Bo Kullmar in Sweden) reports that
after using C-Kermit to dial out on a bidirectional port, the port
kermit
sleep 2
surun pmadm -e -p zsmon -s a
- ________________________________________________________________________
- 3.8. C-KERMIT AND SUNOS
+3.8. C-KERMIT AND SUNOS
- [ [444]Top ] [ [445]Contents ] [ [446]Section Contents ] [ [447]Next ]
- [ [448]Previous ]
+ [ [457]Top ] [ [458]Contents ] [ [459]Section Contents ] [ [460]Next ]
+ [ [461]Previous ]
For additional information, see "Celeste's Tutorial on SunOS 4.1.3+
Modems and Terminals":
- [449]http://www.stokely.com/
+ [462]http://www.stokely.com/
For FAQs, etc, from Sun, see:
- * [450]http://access1.sun.com/
+ * [463]http://access1.sun.com/
For history of Sun models and SunOS versions, see (should be all the
same):
- * [451]http://www.ludd.luth.se/~bear/project/sun/sun.hardware.txt
- * [452]ftp://ftp.netcom.com/pub/ru/rubicon/sun.hdwr.ref
- * [453]ftp://ftp.intnet.net/pub/SUN/Sun-Hardware-Ref
+ * [464]http://www.ludd.luth.se/~bear/project/sun/sun.hardware.txt
+ * [465]ftp://ftp.netcom.com/pub/ru/rubicon/sun.hdwr.ref
+ * [466]ftp://ftp.intnet.net/pub/SUN/Sun-Hardware-Ref
Sun SPARCstation users should read the section "Setting up Modem
- Software" in the Desktop SPARC Sun System & Network Manager's Guide.
- If you don't set up your serial ports correctly, Kermit (and other
+ Software" in the Desktop SPARC Sun System & Network Manager's Guide. If
+ you don't set up your serial ports correctly, Kermit (and other
communications software) won't work right.
Also, on certain Sun models like IPC, the serial port hardware might
vttool) under SunView (this might be fixed in later SunOS releases).
On the Sun with Open Windows, an additional symptom has been reported:
- outbound SunLink X.25 connections "magically" translate CR typed at
- the keyboard into LF before transmission to the remote host. This
- doesn't happen under SunView.
+ outbound SunLink X.25 connections "magically" translate CR typed at the
+ keyboard into LF before transmission to the remote host. This doesn't
+ happen under SunView.
SET CARRIER ON, when used on the SunOS 4.1 version of C-Kermit
(compiled in the BSD universe), causes the program to hang
uninterruptibly when SET LINE is issued for a device that is not
asserting carrier. When Kermit is built in the Sys V universe on the
- same computer, there is no problem (it can be interrupted with
- Ctrl-C). This is apparently a limitation of the BSD-style tty driver.
+ same computer, there is no problem (it can be interrupted with Ctrl-C).
+ This is apparently a limitation of the BSD-style tty driver.
SunOS 4.1 C-Kermit has been observed to dump core when running a
complicated script program under cron. The dump invariably occurs in
ttoc(), while trying to output a character to a TCP/IP TELNET
connection. ttoc() contains a write() call, and when the system or the
network is very busy, the write() call can get stuck for long periods
- of time. To break out of deadlocks caused by stuck write() calls,
- there is an alarm around the write(). It is possible that the core
- dump occurs when this alarm signal is caught. (This one has not been
+ of time. To break out of deadlocks caused by stuck write() calls, there
+ is an alarm around the write(). It is possible that the core dump
+ occurs when this alarm signal is caught. (This one has not been
observed recently -- possibly fixed in edit 190.)
On Sun computers with SunOS 4.0 or 4.1, SET FLOW RTS/CTS works only if
- the carrier signal is present from the communication device at the
- time when C-Kermit enters packet mode or CONNECT mode. If carrier is
- not sensed (e.g. when dialing), C-Kermit does not attempt to turn on
+ the carrier signal is present from the communication device at the time
+ when C-Kermit enters packet mode or CONNECT mode. If carrier is not
+ sensed (e.g. when dialing), C-Kermit does not attempt to turn on
RTS/CTS flow control. This is because the SunOS serial device driver
does not allow characters to be output if RTS/CTS is set (CRTSCTS) but
carrier (and DSR) are not present. Workaround (maybe): SET CARRIER OFF
eeprom ttya-ignore-cd=false
eeprom ttya-rts-dtr-off=true
- There have been reports of file transfer failures on Sun-3 systems
- when using long packets and/or large window sizes. One user says that
- when this happens, the console issues many copies of this message:
+ There have been reports of file transfer failures on Sun-3 systems when
+ using long packets and/or large window sizes. One user says that when
+ this happens, the console issues many copies of this message:
chaos vmunix: zs1: ring buffer overflow
This means that SunOS is not scheduling Kermit frequently enough to
service interrupts from the zs serial device (Zilog 8350 SCC serial
communication port) before its input silo overflows. Workaround: use
- smaller packets and/or a smaller window size, or use "nice" to
- increase Kermit's priority. Use hardware flow control if available, or
- remove other active processes before running Kermit.
+ smaller packets and/or a smaller window size, or use "nice" to increase
+ Kermit's priority. Use hardware flow control if available, or remove
+ other active processes before running Kermit.
SunLink X.25 support in C-Kermit 5A(190) was built and tested
successfully under SunOS 4.1.3b and SunLink X.25 7.00.
- ________________________________________________________________________
- 3.9. C-KERMIT AND ULTRIX
+3.9. C-KERMIT AND ULTRIX
- [ [454]Top ] [ [455]Contents ] [ [456]Section Contents ] [ [457]Next ]
- [ [458]Previous ]
+ [ [467]Top ] [ [468]Contents ] [ [469]Section Contents ] [ [470]Next ]
+ [ [471]Previous ]
- See also: The [459]comp.unix.ultrix and [460]comp.sys.dec newsgroups.
+ See also: The [472]comp.unix.ultrix and [473]comp.sys.dec newsgroups.
There is no hardware flow control in Ultrix. That's not a Kermit
deficiency, but an Ultrix one.
Reportedly, DEC ULTRIX 4.3 is immune to C-Kermit's disabling of
SIGQUIT, which is the signal that is generated when the user types
- Ctrl-\, which kills the current process (i.e. C-Kermit) and dumps
- core. Diagnosis and cure unknown. Workaround: before starting C-Kermit
- -- or for that matter, when you first log in because this applies to
- all processes, not just Kermit -- give the following Unix command:
+ Ctrl-\, which kills the current process (i.e. C-Kermit) and dumps core.
+ Diagnosis and cure unknown. Workaround: before starting C-Kermit -- or
+ for that matter, when you first log in because this applies to all
+ processes, not just Kermit -- give the following Unix command:
stty quit undef
The maximum serial speed on the DECstation 5000 is normally 19200, but
various tricks are available (outside Kermit) to enable higher rates.
- For example, on the 5000/200, 19200 can be remapped (somehow,
- something to do with "a bit in the SIR", whatever that is) to 38400,
- but in software you must still refer to this speed as 19200; you can't
- have 19200 and 38400 available at the same time.
+ For example, on the 5000/200, 19200 can be remapped (somehow, something
+ to do with "a bit in the SIR", whatever that is) to 38400, but in
+ software you must still refer to this speed as 19200; you can't have
+ 19200 and 38400 available at the same time.
19200, reportedly, is also the highest speed supported by Ultrix, but
NetBSD reportedly supports speeds up to 57600 on the DECstation,
In any case, given the lack of hardware flow control in Ultrix, high
serial speeds are problematic at best.
- ________________________________________________________________________
- 3.10. C-KERMIT AND UNIXWARE
+3.10. C-KERMIT AND UNIXWARE
- [ [461]Top ] [ [462]Contents ] [ [463]Section Contents ] [ [464]Next ]
- [ [465]Previous ]
+ [ [474]Top ] [ [475]Contents ] [ [476]Section Contents ] [ [477]Next ]
+ [ [478]Previous ]
See also:
* The Freebird Project (Unixware software repository)
- [466]http://www.freebird.org/
- * The UnixWare FAQ: [467]http://www.freebird.org/faq/
+ [479]http://www.freebird.org/
+ * The UnixWare FAQ: [480]http://www.freebird.org/faq/
* The following newsgroups:
- + [468]comp.unix.unixware.misc
- + [469]comp.unix.sco.misc.
+ + [481]comp.unix.unixware.misc
+ + [482]comp.unix.sco.misc.
- Also see general comments on PC-based Unixes in [470]Section 3.0. By
+ Also see general comments on PC-based Unixes in [483]Section 3.0. By
the way, this section is separate from the SCO (Caldera) section
because at the time this section was started, Unixware was owned by a
company called Univel. Later it was sold to Novell, and then to SCO.
are /dev/term/00 (etc), rather than /dev/tty00 (etc). Note the
following correspondence of device names and driver characteristics:
- New name Old name Description
+ New name Old name Description
/dev/term/00 /dev/tty00 ???
/dev/term/00h /dev/tty00h Modem signals and hardware flow control
/dev/term/00m /dev/tty00m Modem signals(?)
all of the different names for the same physical device (e.g. all of
those shown in the table above) interlock effectively.
- Prior to UnixWare 7, serial speeds higher than 38400 are not
- supported. In UnixWare 7, we also support 57600 and 115200, plus some
- unexpected ones like 14400, 28800, and 76800, by virtue of a strange
- new interface, evidently peculiar to UnixWare 7, discovered while
- digging through the header files: tcsetspeed(). Access to this
- interface is allowed only in POSIX builds, and thus the UnixWare 7
- version of C-Kermit is POSIX-based, unlike C-Kermit for Unixware 1.x
- and 2.x (since the earlier UnixWare versions did not support high
- serial speeds, period).
+ Prior to UnixWare 7, serial speeds higher than 38400 are not supported.
+ In UnixWare 7, we also support 57600 and 115200, plus some unexpected
+ ones like 14400, 28800, and 76800, by virtue of a strange new
+ interface, evidently peculiar to UnixWare 7, discovered while digging
+ through the header files: tcsetspeed(). Access to this interface is
+ allowed only in POSIX builds, and thus the UnixWare 7 version of
+ C-Kermit is POSIX-based, unlike C-Kermit for Unixware 1.x and 2.x
+ (since the earlier UnixWare versions did not support high serial
+ speeds, period).
HOWEVER, turning on POSIX features engages all of the "#if
(!_POSIX_SOURCE)" clauses in the UnixWare header files, which in turn
the irony. And so C-Kermit must be shamelessly butchered -- as it has
been so many times before -- to allow us to have the needed features
from the POSIX and non-POSIX worlds. See the UNIXWAREPOSIX sections of
- [471]ckutio.c.
+ [484]ckutio.c.
After the butchery, we wind up with Unixware 2.x having full
modem-signal capability, but politically-correct Unixware 7.x lacking
In C-Kermit 8.0 testing, it was noticed that the POSIX method for
hanging up the phone by dropping DTR (set speed 0, pause, restore
speed) did not actually drop DTR. The APIs do not return any error
- indication, but nothing happens. I changed tthang() to skip the
- special case I had made for Unixware and instead follow the normal
- path: if TIOCSDTR is defined use that, otherwise blah blah... It turns
- out TIOCSDTR *is* defined, and it works.
+ indication, but nothing happens. I changed tthang() to skip the special
+ case I had made for Unixware and instead follow the normal path: if
+ TIOCSDTR is defined use that, otherwise blah blah... It turns out
+ TIOCSDTR *is* defined, and it works.
- So in Unixware (at least in 2.1.3) we can read modem signals, hangup
- by toggling DTR, and so on, BUT... But once the remote hangs up and
+ So in Unixware (at least in 2.1.3) we can read modem signals, hangup by
+ toggling DTR, and so on, BUT... But once the remote hangs up and
Carrier drops, the API for reading modem signals ceases to function;
although the device is still open, the TIOCMGET ioctl always raises
errno 6 = ENXIO, "No such device or address".
This is using a Stallion EasyIO card installed as board 0 on IRQ 12 on
a Gateway 386 with the Stallion-supplied driver. The problem was
reported to Novell and Stallion and (reportedly) is now fixed.
- ________________________________________________________________________
- 3.11. C-KERMIT AND APOLLO SR10
+3.11. C-KERMIT AND APOLLO SR10
- [ [472]Top ] [ [473]Contents ] [ [474]Section Contents ] [ [475]Next ]
- [ [476]Previous ]
+ [ [485]Top ] [ [486]Contents ] [ [487]Section Contents ] [ [488]Next ]
+ [ [489]Previous ]
Reportedly, version 5A(190), when built under Apollo SR10 using "make
sr10-bsd", compiles, links, and executes OK, but leaves the terminal
kermit @*
stty sane
- ________________________________________________________________________
- 3.12. C-KERMIT AND TANDY XENIX 3.0
+3.12. C-KERMIT AND TANDY XENIX 3.0
- [ [477]Top ] [ [478]Contents ] [ [479]Section Contents ] [ [480]Next ]
- [ [481]Previous ]
+ [ [490]Top ] [ [491]Contents ] [ [492]Section Contents ] [ [493]Next ]
+ [ [494]Previous ]
C-Kermit 7.0 was too big to be built on Tandy Xenix, even in a minimum
configuration; version 6.0 is the last one that fits.
is reading the directory (it seems to occur during the SET PROMPT
[\v(dir)] ... sequence). Cure: unknown. Workaround: don't interrupt
C-Kermit while it is executing its init file on the Tandy 16/6000.
- ________________________________________________________________________
- 3.13. C-KERMIT AND OSF/1 (DIGITAL UNIX) (TRU64 UNIX)
+3.13. C-KERMIT AND OSF/1 (DIGITAL UNIX) (TRU64 UNIX)
- [ [482]Top ] [ [483]Contents ] [ [484]Section Contents ] [ [485]Next ]
- [ [486]Previous ]
+ [ [495]Top ] [ [496]Contents ] [ [497]Section Contents ] [ [498]Next ]
+ [ [499]Previous ]
- While putting together and testing C-Kermit 8.0, it was discovered
- that binaries built for one version of Tru64 Unix (e.g. 4.0G) might
- exhibit very strange behavior if run on a different version of Tru64
- Unix (e.g. 5.1A). The typical symptom was that a section of the
- initialization file would be skipped, notably locating the dialing
- and/or network directory as well as finding and executing the
- customization file, ~/.mykermrc. This problem also is reported to
- occur on Tru64 Unix 5.0 (Rev 732) even when running a C-Kermit binary
- that was built there. However, the Tru64 5.1A binary works correctly
- on 5.0. Go figure.
+ While putting together and testing C-Kermit 8.0, it was discovered that
+ binaries built for one version of Tru64 Unix (e.g. 4.0G) might exhibit
+ very strange behavior if run on a different version of Tru64 Unix (e.g.
+ 5.1A). The typical symptom was that a section of the initialization
+ file would be skipped, notably locating the dialing and/or network
+ directory as well as finding and executing the customization file,
+ ~/.mykermrc. This problem also is reported to occur on Tru64 Unix 5.0
+ (Rev 732) even when running a C-Kermit binary that was built there.
+ However, the Tru64 5.1A binary works correctly on 5.0. Go figure.
When making Telnet connections to a Digital Unix or Tru64 system, and
- your Telnet client forwards your user name, the Telnet server
- evidently stuffs the username into login's standard input, and you
- see:
+ your Telnet client forwards your user name, the Telnet server evidently
+ stuffs the username into login's standard input, and you see:
login: ivan
Password:
"login:". Workaround (when Kermit is your Telnet client): SET LOGIN
USER to nothing, to prevent Kermit from sending your user ID.
- Before you can use a serial port on a new Digital Unix system, you
- must run uucpsetup to enable or configure the port. Evidently the
- /dev/tty00 and 01 devices that appear in the configuration are not
- usable; uucpsetup turns them into /dev/ttyd00 and 01, which are. Note
- that uucpsetup and other uucp-family programs are quite primitive --
- they only know about speeds up to 9600 bps and their selection of
- modems dates from the early 1980s. None of this affects Kermit, though
- -- with C-Kermit, you can use speeds up to 115200 bps (at least in
- DU4.0 and later) and modern modems with hardware flow control and all
- the rest.
+ Before you can use a serial port on a new Digital Unix system, you must
+ run uucpsetup to enable or configure the port. Evidently the /dev/tty00
+ and 01 devices that appear in the configuration are not usable;
+ uucpsetup turns them into /dev/ttyd00 and 01, which are. Note that
+ uucpsetup and other uucp-family programs are quite primitive -- they
+ only know about speeds up to 9600 bps and their selection of modems
+ dates from the early 1980s. None of this affects Kermit, though -- with
+ C-Kermit, you can use speeds up to 115200 bps (at least in DU4.0 and
+ later) and modern modems with hardware flow control and all the rest.
Reportedly, if a modem is set for &S0 (assert DSR at all times), the
- system resets or drops DTR every 30 seconds; reportedly DEC says to
- set &S1.
+ system resets or drops DTR every 30 seconds; reportedly DEC says to set
+ &S1.
Digital Unix 3.2 evidently wants to believe your terminal is one line
longer than you say it is, e.g. when a "more" or "man" command is
given. This is has nothing to do with C-Kermit, but tends to annoy
- those who use Kermit or other terminal emulators to access Digital
- Unix systems. Workaround: tell Unix to "stty rows 23" (or whatever).
+ those who use Kermit or other terminal emulators to access Digital Unix
+ systems. Workaround: tell Unix to "stty rows 23" (or whatever).
- Reportedly, there is some bizarre behavior when trying to use a
- version of C-Kermit built on one Digital Unix 4.0 system on another
- one, possibly due to differing OS or library revision levels; for
- example, the inability to connect to certain TCP/IP hosts. Solution:
- rebuild C-Kermit from source code on the system where you will be
- using it.
+ Reportedly, there is some bizarre behavior when trying to use a version
+ of C-Kermit built on one Digital Unix 4.0 system on another one,
+ possibly due to differing OS or library revision levels; for example,
+ the inability to connect to certain TCP/IP hosts. Solution: rebuild
+ C-Kermit from source code on the system where you will be using it.
Digital Unix tgetstr() causes a segmentation fault. C-Kermit 7.0 added
- #ifdefs to avoid calling this routine in Digital Unix. As a result,
- the SCREEN commands always send ANSI escape sequences -- even though
- curses knows your actual terminal type.
+ #ifdefs to avoid calling this routine in Digital Unix. As a result, the
+ SCREEN commands always send ANSI escape sequences -- even though curses
+ knows your actual terminal type.
- Reportedy the Tru64 Unix 4.0E 1091 Telnet server does not tolerate
+ Reportedly the Tru64 Unix 4.0E 1091 Telnet server does not tolerate
streaming transfers into itself, at least not when the sending Kermit
is on the same local network. Solution: tell one Kermit or the other
(or both) to "set streaming off". This might or might be the case with
earlier and/or later Tru64, Digital Unix, and OSF/1 releases.
- ________________________________________________________________________
- 3.14. C-KERMIT AND SGI IRIX
+3.14. C-KERMIT AND SGI IRIX
- [ [487]Top ] [ [488]Contents ] [ [489]Section Contents ] [ [490]Next ]
- [ [491]Previous ]
+ [ [500]Top ] [ [501]Contents ] [ [502]Section Contents ] [ [503]Next ]
+ [ [504]Previous ]
See also:
- * The [492]comp.sys.sgi.misc and [493]comp.sys.sgi.admin newsgroups.
- [494]The SGI website
+ * The [505]comp.sys.sgi.misc and [506]comp.sys.sgi.admin newsgroups.
+ [507]The SGI website
* The SGI FAQ:
- + [495]http://www-viz.tamu.edu/~sgi-faq/
- + [496]ftp://viz.tamu.edu/pub/sgi/faq/
+ + [508]http://www-viz.tamu.edu/~sgi-faq/
+ + [509]ftp://viz.tamu.edu/pub/sgi/faq/
About IRIX version numbers: "uname -a" tells the "two-digit" version
number, such as "5.3" or "6.5". The three-digit form can be seen with
one of them should run on all others. The "m" suffix denotes just
patches; the "f" suffix indicates that features were added.
- An IRIX binary built on lower MIPS model (Instruction Set
- Architecture, ISA) can run on higher models, but not vice versa:
+ An IRIX binary built on lower MIPS model (Instruction Set Architecture,
+ ISA) can run on higher models, but not vice versa:
MIPS1 R3000 and below
MIPS2 R4000
MIPS3 R4x00
MIPS4 R5000 and above
- Furthermore, there are different Application Binary Inferfaces (ABIs):
+ Furthermore, there are different Application Binary Interfaces (ABIs):
COFF 32 bits, IRIX 5.3, 5.2, 5.1, 4.x and below
o32 ELF 32 bits, IRIX 5.3, 6.0 - 6.5
Thus a prebuilt IRIX binary works on a particular machine only if (a)
the machine's IRIX version (to one decimal place) is equal to or
greater than the version under which the binary was built; (b) the
- machine's MIPS level is greater or equal to that of the binary; and
- (c) the machine supports the ABI of the binary. If all three
- conditions are not satisfied, of course, you can build a binary
- yourself from source code since, unlike some other Unix vendors, SGI
- does supply a C compiler and libraries.
+ machine's MIPS level is greater or equal to that of the binary; and (c)
+ the machine supports the ABI of the binary. If all three conditions are
+ not satisfied, of course, you can build a binary yourself from source
+ code since, unlike some other Unix vendors, SGI does supply a C
+ compiler and libraries.
SGI did not supply an API for hardware flow control prior to IRIX 5.2.
C-Kermit 6.1 and higher for IRIX 5.2 and higher supports hardware flow
control in the normal way, via "set flow rts/cts".
- For hardware flow control on earlier IRIX and/or C-Kermit versions,
- use the ttyf* (modem control AND hardware flow control) devices and
- not the ttyd* (direct) or ttym* (modem control but no hardware flow
- control) ones, and obtain the proper "hardware handshaking" cable from
- SGI, which is incompatible with the ones for the Macintosh and NeXT
- even though they look the same ("man serial" for further info) and
- tell Kermit to "set flow keep" and "set modem flow rts/cts".
+ For hardware flow control on earlier IRIX and/or C-Kermit versions, use
+ the ttyf* (modem control AND hardware flow control) devices and not the
+ ttyd* (direct) or ttym* (modem control but no hardware flow control)
+ ones, and obtain the proper "hardware handshaking" cable from SGI,
+ which is incompatible with the ones for the Macintosh and NeXT even
+ though they look the same ("man serial" for further info) and tell
+ Kermit to "set flow keep" and "set modem flow rts/cts".
- Serial speeds higher than 38400 are available in IRIX 6.2 and later,
- on O-class machines (e.g. Origin, Octane) only, and are supported by
+ Serial speeds higher than 38400 are available in IRIX 6.2 and later, on
+ O-class machines (e.g. Origin, Octane) only, and are supported by
C-Kermit 7.0 and later. Commands such as "set speed 115200" may be
given on other models (e.g. Iris, Indy, Indigo) but will fail because
the OS reports an invalid speed for the device.
- Experimentation with both IRIX 5.3 and 6.2 shows that when logged in
- to IRIX via Telnet, that remote-mode C-Kermit can't send files if the
+ Experimentation with both IRIX 5.3 and 6.2 shows that when logged in to
+ IRIX via Telnet, that remote-mode C-Kermit can't send files if the
packet length is greater than 4096; the Telnet server evidently has
this restriction (or bug), since there is no problem sending long
packets on serial or rlogin connections. However, it can receive files
with no problem if the packet length is greater than 4096. As a
workaround, the FAST macro for IRIX includes "set send packet-length
- 4000". IRIX 6.5.1 does not have this problem, so evidently it was
- fixed some time after IRIX 6.2. Tests show file-transfer speeds are
- better (not worse) with 8K packets than with 4K packets from IRIX
- 6.5.1.
+ 4000". IRIX 6.5.1 does not have this problem, so evidently it was fixed
+ some time after IRIX 6.2. Tests show file-transfer speeds are better
+ (not worse) with 8K packets than with 4K packets from IRIX 6.5.1.
Reportedly some Indys have bad serial port hardware. IRIX 5.2, for
example, needs patch 151 to work around this; or upgrade to a later
- release. Similarly, IRIX 5.2 has several problems with serial i/o,
- flow control, etc. Again, patch or upgrade.
+ release. Similarly, IRIX 5.2 has several problems with serial i/o, flow
+ control, etc. Again, patch or upgrade.
Reportedly on machines with IRIX 4.0, Kermit cannot be suspended by
- typing the suspend ("swtch") character if it was started from csh,
- even though other programs can be suspended this way, and even though
- the Z and SUSPEND commands still work correctly. This is evidently
- because IRIX's csh does not deliver the SIGTSTP signal to Kermit. The
- reason other programs can be suspended in the same environment is
- probably that they do not trap SIGTSTP themselves, so the shell is
- doing the suspending rather than the application.
-
- Also see notes about IRIX 3.x in the [497]C-Kermit for Unix
+ typing the suspend ("swtch") character if it was started from csh, even
+ though other programs can be suspended this way, and even though the Z
+ and SUSPEND commands still work correctly. This is evidently because
+ IRIX's csh does not deliver the SIGTSTP signal to Kermit. The reason
+ other programs can be suspended in the same environment is probably
+ that they do not trap SIGTSTP themselves, so the shell is doing the
+ suspending rather than the application.
+
+ Also see notes about IRIX 3.x in the [510]C-Kermit for Unix
Installation Instructions.
If you have problems making TCP/IP connections in versions of IRIX
built with GCC 2.95.2, see the bugs section of:
- [498]http://freeware.sgi.com/Installable/gcc-2.95.2.html.
+ [511]http://freeware.sgi.com/Installable/gcc-2.95.2.html.
Reportedly, if you allow gcc to compile C-Kermit on Irix you should be
aware that there might be problems with some of the network code. The
specifics are at
- [499]http://freeware.sgi.com/Installable/gcc-2.95.2.html; scroll down
+ [512]http://freeware.sgi.com/Installable/gcc-2.95.2.html; scroll down
to the "known bugs" section at the end of the document.
- ________________________________________________________________________
- 3.15. C-KERMIT AND THE BEBOX
+3.15. C-KERMIT AND THE BEBOX
- [ [500]Top ] [ [501]Contents ] [ [502]Section Contents ] [ [503]Next ]
- [ [504]Previous ]
+ [ [513]Top ] [ [514]Contents ] [ [515]Section Contents ] [ [516]Next ]
+ [ [517]Previous ]
- See also: The [505]comp.sys.be newsgroup.
+ See also: The [518]comp.sys.be newsgroup.
- The BeBox has been discontinued and BeOS repositioned for PC
- platforms. The POSIX parts of BeOS are not finished, nor is the
- sockets library, therefore a fully functional version of C-Kermit is
- not possible. In version 6.0 of C-Kermit, written for BeOS DR7, it was
- possible to:
+ The BeBox has been discontinued and BeOS repositioned for PC platforms.
+ The POSIX parts of BeOS are not finished, nor is the sockets library,
+ therefore a fully functional version of C-Kermit is not possible. In
+ version 6.0 of C-Kermit, written for BeOS DR7, it was possible to:
* set line /dev/serial2 (and probably the other serial ports)
* set speed 115200 (and at least some of the lower baud rates)
* Using other protocols (x/y/zmodem)
* TCP networking interface (Be's TCP/IP API has a ways to go, still)
- C-Kermit does not work on BeOS DR8 because of changes in the
- underlying APIs. Unfortunately not enough changes were made to allow
- the regular POSIX-based C-Kermit to work either. Note: the lack of a
- fork() service requires the select()-based CONNECT module, but there
- is no select(). There is a select() in DR8, but it doesn't work.
+ C-Kermit does not work on BeOS DR8 because of changes in the underlying
+ APIs. Unfortunately not enough changes were made to allow the regular
+ POSIX-based C-Kermit to work either. Note: the lack of a fork() service
+ requires the select()-based CONNECT module, but there is no select().
+ There is a select() in DR8, but it doesn't work.
C-Kermit 7.0 was built for BeOS 4.5 and works in remote mode. It does
not include networking support since the APIs are still not there. It
is not known if dialing out works, but probably not. Be experts are
welcome to lend a hand.
- ________________________________________________________________________
- 3.16. C-KERMIT AND DG/UX
+3.16. C-KERMIT AND DG/UX
- [ [506]Top ] [ [507]Contents ] [ [508]Section Contents ] [ [509]Next ]
- [ [510]Previous ]
+ [ [519]Top ] [ [520]Contents ] [ [521]Section Contents ] [ [522]Next ]
+ [ [523]Previous ]
Somebody downloaded the C-Kermit 6.0 binary built under DG/UX 5.40 and
ran it under DG/UX 5.4R3.10 -- it worked OK except that file dates for
incoming files were all written as 1 Jan 1970. Cause and cure unknown.
Workaround: SET ATTRIBUTE DATE OFF. Better: Use a version of C-Kermit
built under and for DG/UX 5.4R3.10.
- ________________________________________________________________________
- 3.17. C-KERMIT AND SEQUENT DYNIX
+3.17. C-KERMIT AND SEQUENT DYNIX
- [ [511]Top ] [ [512]Contents ] [ [513]Section Contents ] [ [514]Next ]
- [ [515]Previous ]
+ [ [524]Top ] [ [525]Contents ] [ [526]Section Contents ] [ [527]Next ]
+ [ [528]Previous ]
Reportedly, when coming into a Sequent Unix (DYNIX) system through an
X.25 connection, Kermit doesn't work right because the Sequent's
FIONREAD ioctl returns incorrect data. To work around, use the
1-character-at-a-time version of myread() in ckutio.c (i.e. undefine
MYREAD in ckutio.c and rebuild the program). This is unsatisfying
- because two versions of the program would be needed -- one for use
- over X.25, and the other for serial and TCP/IP connections.
- ________________________________________________________________________
+ because two versions of the program would be needed -- one for use over
+ X.25, and the other for serial and TCP/IP connections.
- 3.18. C-KERMIT AND {FREE,OPEN,NET}BSD
+3.18. C-KERMIT AND FREEBSD, OPENBSD, and NETBSD
- [ [516]Top ] [ [517]Contents ] [ [518]Section Contents ] [ [519]Next ]
- [ [520]Previous ]
+ [ [529]Top ] [ [530]Contents ] [ [531]Section Contents ] [ [532]Next ]
+ [ [533]Previous ]
Some NebBSD users have reported difficulty escaping back from CONNECT
mode, usually when running NetBSD on non-PC hardware. Probably a
keyboard issue.
NetBSD users have also reported that C-Kermit doesn't pop back to the
- prompt if the modem drops carrier. This needs to be checked out &
- fixed if possible.
+ prompt if the modem drops carrier. This needs to be checked out & fixed
+ if possible.
(All the above seems to work properly in C-Kermit 7.0 and later.)
- ________________________________________________________________________
- 3.19. C-KERMIT AND MAC OS X (Rhapsody, Darwin, Jaguar, Panther)
+3.19. C-KERMIT AND MAC OS X
- [ [521]Top ] [ [522]Contents ] [ [523]Section Contents ] [ [524]Next ]
- [ [525]Previous ]
+ [ [534]Top ] [ [535]Contents ] [ [536]Section Contents ] [ [537]Next ]
+ [ [538]Previous ]
Mac OS X is Apple's 4.4BSD Unix variety, closely related to FreeBSD,
but different. "uname -a" is singularly uninformative, as in Linux,
- giving only the Darwin kernel version number. As far as I can tell,
- there is no way to find out the Mac OS X version number, such as 10.3
- (in Linux you can find the distribution version in a
- distribution-dependent file). Here are some points to be aware of:
-
- * The biggest gotcha for Kermit users is that Mac OS X does not
- support serial ports and, as far as I can tell, doesn't support
- its built-in modem either, for anything other than making Internet
+ giving only the Darwin kernel version number. The way to find out the
+ actual Mac OS X version is with
+
+ /usr/bin/sw_vers -productName
+ /usr/bin/sw_vers -productVersion
+
+ or:
+
+ fgrep -A 1 'ProductVersion'
+ /System/Library/CoreServices/SystemVersion.plist
+
+ Here are some points to be aware of:
+
+ * A big gotcha for Kermit users is that Mac OS X does not support
+ serial ports and, as far as I can tell, doesn't support its
+ built-in modem either, for anything other than making Internet
connections. Macintoshes capable of running Mac OS X, such as the
- G5, some without serial ports and without any APIs to support
- them, and also without the UUCP family of programs (including cu),
- nor any standard for serial-port lockfile directory.
- * At least early versions of Mac OS X came without Curses, Termlib,
- or Terminfo libraries. Later versions seem to have ncurses. Kermit
- uses curses for its file-transfer display. See elsewhere about
- curses-vs-ncurses confusion.
- * In the HFS+ file system, filenames are case-folded. Thus
- "makefile" and "Makefile" are the same file. The UFS file system
- is, like normal Unix, case-sensitive.
- * Files that are composed of a resource fork and a data fork... I
- doubt that C-Kermit does anything useful with them. There is no
- code in C-Kermit for traditional two-forked Macintosh files, but
- it could be added if there is any demand.
+ G5 and later, come without serial ports and without any APIs to
+ support them, and also without the UUCP family of programs
+ (including cu), nor any standard for serial-port lockfile
+ directory.
+ * Early versions of Mac OS X came without Curses, Termlib, or
+ Terminfo libraries. Later versions seem to have ncurses (it would
+ seem that Mac OS X 10.3.9 was the first mature and complete version
+ of Mac OS X). Kermit uses curses for its file-transfer display. See
+ elsewhere about curses-vs-ncurses confusion.
+ * In the HFS+ file system, filenames are case-folded. Thus "makefile"
+ and "Makefile" are the same file. So, for example, suppose you are
+ sending two distinct files, Foo and FOO, from (say) Linux to Mac OS
+ X. This will produce a file collision that will be handled
+ according to Mac OS X C-Kermit's FILE COLLISION setting, which by
+ default is BACKUP, so the Mac will wind up with files called FOO
+ and Foo.~1~.
+ * HSF+ files that are composed of a resource fork and a data fork...
+ I doubt that C-Kermit does anything useful with them. There is no
+ code in C-Kermit for traditional two-forked Macintosh files, but it
+ could be added if there is any demand (code for this existed in
+ [539]Mac Kermit, the old pre-Mac-OS-X Macintosh version of
+ C-Kermit).
* In case you want to transfer a traditional Macintosh text file (or
- data fork of a file that is plain text), you can use these
- C-Kermit commands:
+ data fork of a file that is plain text), you can use these C-Kermit
+ commands:
set file eol cr
set file character-set apple-quickdraw
* File or pathnames that include spaces must be enclosed in either
doublequotes or curly braces in C-Kermit commands.
- * Mac OS X has its own package format for applications, called
- "fink". Various fink packages for C-Kermit are floating around
- that are not standard releases. For example, there's a C-Kermit
- 8.0.201 package in which C-Kermit was modifed (at least) to use a
- UUCP lockfile directory that does not exist on vanilla Mac OS X
- systems.
+ * Mac OS X can use a third-party package manager called "fink".
+ Various fink packages for C-Kermit are floating around that are not
+ standard releases. For example, there's a C-Kermit 8.0.201 package
+ in which C-Kermit was modified (at least) to use a UUCP lockfile
+ directory that does not exist on vanilla Mac OS X systems.
- Mac OS X and Serial Ports
+Mac OS X and Serial Ports
Apple is in the forefront of companies that believe serial ports have
no use in the modern world and so has simply eliminated all traces of
them from its machines and OS. But of course serial ports are still
needed to connect not only to external modems, but also to the control
ports of hubs, routers, terminal servers, PBXs, and similar devices,
- not to mention barcode readers, POS systems and components, automated
- factory-floor equipment, and scientific, medical, and lab equipment
- (to name a few). Among workers in these areas, there is a need to add
- serial ports back onto this platform, which is being filled by
- third-party products such as the [526]Keyspan USB Serial Adapter. To
- use the Keyspan device, you must install the accompanying device
- drivers, which wind up giving you serial ports with names like
- /dev/cu.USA19H3b1P1.1.
-
- To configure your Mac OS X system to allow C-Kermit to use these (or
- any other) serial devices:
-
- 1. su
+ not to mention barcode readers, POS systems and components, speaking
+ devices, hand calculators such as the HP48, automated factory-floor
+ equipment, and scientific, medical, and lab equipment (to name a few).
+ Among workers in these areas, there is a need to add serial ports back
+ onto this platform, which is being filled by third-party products such
+ as the [540]Keyspan High Speed USB Serial Adapter USA-19HS, which has a
+ DB-9 male connector. To use the Keyspan device, you must install the
+ accompanying device drivers, which winds up giving you serial ports
+ with names like /dev/cu.USA19H3b1P1.1, /dev/cu.KeySerial1,
+ /dev/tty.KeySerial1.
+
+ C-Kermit 9.0 works "out of the box" with third-party serial ports on
+ Mac OS X, because it is built by default ("make macosx") without the
+ "UUCP lockfile" feature. If you have C-Kermit 9.0 on a personal
+ Macintosh, you can skip the next section.
+
+Mac OS X Serial Ports with C-Kermit 8.0 and earlier
+
+ In earlier versions of C-Kermit, you'll need to either build a special
+ -DNOUUCP version, or deal with the UUCP port contention sytem in
+ [541]all its glory (this is usually an exercise in futility because any
+ other applications on your Mac that use the serial port will not
+ necessarily follow the same conventions):
+
+ 1. su (or sudo -s)
chgrp xxxx /var/spool/lock
chmod g+w /var/spool/lock
chgrp xxxx /dev/cu.*
In the absence of official guidance from Apple or anyone else, we
choose /var/spool/lock as the lockfile directory because this
directory (a) already exists on vanilla Mac OS X installations, and
- (b) it is the directory used for serial-port lockfiles on many
- other platforms.
- 2. Put all users who need access to the serial port in the same
- group.
+ (b) it is the directory used for serial-port lockfiles on many other
+ platforms.
+ 2. Put all users who need access to the serial port in the same group.
3. Make sure the serial device files that are to be used by C-Kermit
have group read-write permission and (if you care) lack world
read-write permission, e.g.:
- chmod g+rw,o-rw /dev/cu.*
- If you do the above, then there's no need to become root to use
- Kermit, or to make Kermit suid or sgid. Just do this:
+ chmod g+rw,o-rw /dev/cu.*
+
+ If you do the above, then there's no need to become root to use Kermit,
+ or to make Kermit suid or sgid. Just do this:
chmod 775 wermit
-mv wermit /usr/local/bin/kermit
-
- (or whatever spot is more appropriate). For greater detail about
- installation (man page, etc), [527]CLICK HERE.
-
- Back when Macs had serial ports, they were not RS-232 (the standard
- for connecting computers with nearby modems) but rather RS-422 or -423
- (a standard for connecting serial devices over longer distances).
- Macintosh serial ports do not support modems well because they do not
- have enough wires (or more properly in the case RS-422/423, wire
- pairs) to convey a useful subset of modem signals. The Keyspan USB
- adapter gives you two Mini-Din8 RS-422 ports, that are no better (or
- worse) for communicating with modems or serial devices than a real Mac
- Din-8 port was. In essense, you get Data In, Data Out, and two modem
- signals. It looks to me as if the signals chosen by Keyspan are RTS
- and CTS. This gives you hardware flow control, but at the expense of
- Carrier Detect. Thus to use C-Kermit with a Keyspan USB serial port,
- you must tell C-Kermit to:
+mv wermit /usr/local/kermit
+
+ (or whatever spot is more appropriate, e.g. /usr/bin/). For greater
+ detail about installation, [542]CLICK HERE.
+
+ Alternatively, to build a pre-9.0 version of C-Kermit without UUCP
+ lockfile support, set the NOUUCP flag; e.g. (for Mac OS 10.4):
+
+ make macosx10.4 KFLAGS=-DNOUUCP
+
+ This circumvents the SET PORT failure "?Access to lockfile directory
+ denied". But it also sacrifices Kermit's ability to ensure that only
+ one copy of Kermit can have the device open at a time, since Mac OS X
+ is the same as all other varieties of Unix in that exclusive access to
+ serial ports is not enforced in any way. But if it's for your own
+ desktop machine that nobody else uses, a -DNOUUCP version might be
+ adequate and preferable to the alternatives.
+
+ To build C-Kermit 9.0 with UUCP support, do:
+
+ make macosx KFLAGS=-UNOUUCP
+
+ (note: "-U", not "-D).
+
+RS-232 versus RS-422
+
+ Meanwhile, back when Macs had serial ports, they were not RS-232 (the
+ standard for connecting computers with nearby modems) but rather RS-422
+ or -423 (a standard for connecting serial devices over longer
+ distances). Macintosh serial ports do not support modems well because
+ they do not have enough wires (or more properly in the case RS-422/423,
+ wire pairs) to convey a useful subset of modem signals.
+
+ Keyspan also sells a [543]USB Twin Serial Adapter that gives you two
+ Mini-Din8 RS-422 ports, that are no better (or worse) for communicating
+ with modems or serial devices than a real Mac Din-8 port was. In
+ essence, you get Data In, Data Out, and two modem signals. It looks to
+ me as if the signals chosen by Keyspan are RTS and CTS. This gives you
+ hardware flow control, but at the expense of Carrier Detect. Thus to
+ use C-Kermit with a Keyspan USB serial port, you must tell C-Kermit to:
set modem type none ; (don't expect a modem)
set carrier-watch off ; (ignore carrier signal)
set port /dev/cu.USA19H3b1P1.1 ; (open the port)
set flow rts/cts ; (this is the default)
set speed 57600 ; (or whatever)
-connect ; (or whatever)
+connect ; (or DIAL or whatever)
Use Ctrl-\C in the normal manner to escape back to the C-Kermit>
prompt. Kermit can't pop back to its prompt automatically when Carrier
- drops because there is no Carrier signal.
+ drops because there is no Carrier signal in the physical interface.
+
+ Here's a typical sequence for connecting to Cisco devices (using a
+ mixture of command-line options and interactive commands at the
+ prompt):
- Instructions for the built-in modem remain to be written.
+$ ckermit -l /dev/cu.USA19H3b1P1.1 -b 9600
+C-Kermit> set carrier-watch off
+C-Kermit> connect
- Links:
- * [528]Unix tips for Mac OS X (Jerry Stratton)
- ________________________________________________________________________
+ Instructions for the built-in modem (if any) remain to be written due
+ to lack of knowledge. If you can contribute instructions, hints, or
+ tips, please [544]send them in.
- 3.20. C-KERMIT AND COHERENT
+3.20. C-KERMIT AND COHERENT
- [ [529]Top ] [ [530]Contents ] [ [531]Section Contents ] [
- [532]Previous ]
+ [ [545]Top ] [ [546]Contents ] [ [547]Section Contents ] [
+ [548]Previous ]
Also see:
- [533]http://www.uni-giessen.de/faq/archiv/coherent-faq.general/msg00
- 000.html
+ [549]http://www.uni-giessen.de/faq/archiv/coherent-faq.general/msg000
+ 00.html
Mark Williams COHERENT was perhaps the first commercial Unix-based
operating system for PCs, first appearing about 1983 or -84 for the
link in the floating-point emulation library. Also I'm not sure why
-DNOLEARN is included, since it depends on select(), which COHERENT
has.
- ________________________________________________________________________
- 4. GENERAL UNIX-SPECIFIC HINTS, LIMITATIONS, AND BUGS
+4. GENERAL UNIX-SPECIFIC HINTS, LIMITATIONS, AND BUGS
- [ [534]Top ] [ [535]Contents ] [ [536]Next ] [ [537]Previous ]
+ [ [550]Top ] [ [551]Contents ] [ [552]Next ] [ [553]Previous ]
- 4.1. Modem Signals
+4.1. Modem Signals
- There seems to be an escalating demand for the ability to control
- "dumb serial devices" (such as "smartcard readers", barcode readers,
- etc) by explicitly manipulating modem signals, particularly RTS. This
- might have been easy to do in DOS, where there is no operating system
+ There seems to be an escalating demand for the ability to control "dumb
+ serial devices" (such as "smartcard readers", barcode readers, etc) by
+ explicitly manipulating modem signals, particularly RTS. This might
+ have been easy to do in DOS, where there is no operating system
standing between the application and the serial device, but it is
problematic in Unix, where modem signals are controlled by the serial
device driver. If the driver does not provide an API for doing this,
to be totally different on each Unix platform, since there is no
standard for this.
- 4.2. NFS Troubles
+4.2. NFS Troubles
Beginning with C-Kermit 6.0, the default C-Kermit prompt includes your
current (working) directory; for example:
to avoid conflicts with ISO 646 national character sets.)
If that directory is on an NFS-mounted disk, and NFS stops working or
- the disk becomes unavailable, C-Kermit will hang waiting for NFS
- and/or the disk to come back. Whether you can interrupt C-Kermit when
- it is hung this way depends on the specific OS. Kermit has called the
- operating systems's getcwd() function, and is waiting for it to
- return. Some versions of Unix (e.g. HP-UX 9.x) allow this function to
- be interrupted with SIGINT (Ctrl-C), others (such as HP-UX 8.x) do
- not. To avoid this effect, you can always use SET PROMPT to change
- your prompt to something that does not involve calling getcwd(), but
- if NFS is not responding, C-Kermit will still hang any time you give a
- command that refers to an NFS-mounted directory. Also note that in
- some cases, the uninterruptibility of NFS-dependent system or library
- calls is considered a bug, and sometimes there are patches. For HP-UX,
- for example:
+ the disk becomes unavailable, C-Kermit will hang waiting for NFS and/or
+ the disk to come back. Whether you can interrupt C-Kermit when it is
+ hung this way depends on the specific OS. Kermit has called the
+ operating systems's getcwd() function, and is waiting for it to return.
+ Some versions of Unix (e.g. HP-UX 9.x) allow this function to be
+ interrupted with SIGINT (Ctrl-C), others (such as HP-UX 8.x) do not. To
+ avoid this effect, you can always use SET PROMPT to change your prompt
+ to something that does not involve calling getcwd(), but if NFS is not
+ responding, C-Kermit will still hang any time you give a command that
+ refers to an NFS-mounted directory. Also note that in some cases, the
+ uninterruptibility of NFS-dependent system or library calls is
+ considered a bug, and sometimes there are patches. For HP-UX, for
+ example:
replaced by:
HP-UX 10.20 libc PHCO_8764 PHCO_14891/PHCO_16723
HP-UX 9.x libc PHCO_7747 S700 PHCO_13095
HP-UX 9.x libc PHCO_6779 S800 PHCO_11162
- 4.3. C-Kermit as Login Shell
+4.3. C-Kermit as Login Shell
You might have reason to make C-Kermit the login shell for a specific
user, by entering the pathname of Kermit (possibly with command-line
switches, such as -x to put it in server mode) into the shell field of
the /etc/passwd file. This works pretty well. In some cases, for
"ultimate security", you might want to use a version built with
- -DNOPUSH (see the [538]Configurations Options document for this, but
+ -DNOPUSH (see the [554]Configurations Options document for this, but
even if you don't, then PUSHing or shelling out from C-Kermit just
brings up a new copy of C-Kermit (but warning: this does not prevent
the user from explicitly running a shell; e.g. "run /bin/sh"; use
NOPUSH to prevent this).
- 4.4. C-Kermit versus screen and splitvt
+4.4. C-Kermit versus screen and splitvt
- C-Kermit file transfers will probably not work if attemped through the
+ C-Kermit file transfers will probably not work if attempted through the
"splitvt" or GNU "screen" programs because the screen optimization (or
at least, line wrapping, control-character absorption) done by this
package interferes with Kermit's packets.
- The same can apply to any other environment in which the user's
- session is captured, monitored, recorded, or manipulated. Examples
- include the 'script' program (for making a typescript of a session),
- the Computronics PEEK package and pksh (at least versions of it prior
- to 1.9K), and so on.
+ The same can apply to any other environment in which the user's session
+ is captured, monitored, recorded, or manipulated. Examples include the
+ 'script' program (for making a typescript of a session), the
+ Computronics PEEK package and pksh (at least versions of it prior to
+ 1.9K), and so on.
You might try the following -- what we call "doomsday Kermit" --
settings to push packets through even the densest and most obstructive
If it works, it will be slow.
- 4.5. C-Kermit versus DOS Emulators
+4.5. C-Kermit versus DOS Emulators
- On Unix workstations equipped with DOS emulators like SoftPC, watch
- out for what these emulators do to the serial port drivers. After
- using a DOS emulator, particularly if you use it to run DOS
- communications software, you might have to reconfigure the serial
- ports for use by Unix.
+ On Unix workstations equipped with DOS emulators like SoftPC, watch out
+ for what these emulators do to the serial port drivers. After using a
+ DOS emulator, particularly if you use it to run DOS communications
+ software, you might have to reconfigure the serial ports for use by
+ Unix.
- 4.6. C-Kermit versus Job Control
+4.6. C-Kermit versus Job Control
Interruption by Ctrl-Z makes Unix C-Kermit try to suspend itself with
kill(0,SIGTSTP), but only on platforms that support job control, as
determined by whether the symbol SIGTSTP is defined (or on POSIX or
SVR4 systems, if syconf(_SC_JOB_CONTROL) or _POSIX_JOB_CONTROL in
- addition to SIGTSTP). However, if Kermit is running under a login
- shell (such as the original Bourne shell) that does not support job
- control, the user's session hangs and must be logged out from another
- terminal, or hung up on. There is no way Kermit can defend itself
- against this. If you use a non-job control shell on a computer that
- supports job control, give a command like "stty susp undef" to fix it
- so the suspend signal is not attached to any particular key, or give
- the command SET SUSPEND OFF to C-Kermit, or build C-Kermit with
- -DNOJC.
-
- 4.7. Dates and Times
+ addition to SIGTSTP). However, if Kermit is running under a login shell
+ (such as the original Bourne shell) that does not support job control,
+ the user's session hangs and must be logged out from another terminal,
+ or hung up on. There is no way Kermit can defend itself against this.
+ If you use a non-job control shell on a computer that supports job
+ control, give a command like "stty susp undef" to fix it so the suspend
+ signal is not attached to any particular key, or give the command SET
+ SUSPEND OFF to C-Kermit, or build C-Kermit with -DNOJC.
+
+4.7. Dates and Times
Unix time conversion functions typically apply locale rules to return
local time in terms of any seasonal time zone change in effect for the
given date. The diffdate function assumes that the same timezone rules
- are in effect for both dates, but a date with timezone information
- will be converted to the local time zone in effect at the given time,
- e.g., a GMT specification will produce either a Standard Time or
- Daylight Savings Time, depending on which applies at the given time.
- An example using the 2001 seasonal change from EDT (-0400) to EST
- (-0500):
+ are in effect for both dates, but a date with timezone information will
+ be converted to the local time zone in effect at the given time, e.g.,
+ a GMT specification will produce either a Standard Time or Daylight
+ Savings Time, depending on which applies at the given time. An example
+ using the 2001 seasonal change from EDT (-0400) to EST (-0500):
C-Kermit> DATE 20011028 05:01:02 GMT ; EDT
20011028 01:01:02
subsequent releases.
On some platforms, files downloaded with HTTP receive the current
- timestamp, rather than the HTTP "Last Modified" time (this can be
- fixed by including utime.h, e.g. in SunOS and Tru64...).
+ timestamp, rather than the HTTP "Last Modified" time (this can be fixed
+ by including utime.h, e.g. in SunOS and Tru64...).
- 4.8. Pseudoterminals
+4.8. Pseudoterminals
- The SSH and PTY commands work by assigning a pseudoterminal and
- reading and writing from it. Performance varies according to the
- specific platform ranging from very fast to very flow.
+ The SSH and PTY commands work by assigning a pseudoterminal and reading
+ and writing from it. Performance varies according to the specific
+ platform ranging from very fast to very flow.
- SSH and PTY commands can fail if (a) all pseudoterminals are in use;
- or (b) you do not have read/write access to the pseudoterminal that
- was assigned. An example of (b) was reported with the Zipslack
- Slackware Linux distribution, in which the pseudoterminals were
- created with crw-r--r-- permission, instead of crw-rw-rw-.
+ SSH and PTY commands can fail if (a) all pseudoterminals are in use; or
+ (b) you do not have read/write access to the pseudoterminal that was
+ assigned. An example of (b) was reported with the Zipslack Slackware
+ Linux distribution, in which the pseudoterminals were created with
+ crw-r--r-- permission, instead of crw-rw-rw-.
- 4.9. Miscellaneous
+4.9. Miscellaneous
* Reportedly, the Unix C-Kermit server, under some conditions, on
- certain particular systems, fails to log out its login session
- upon receipt of a BYE command. Before relying on the BYE command
+ certain particular systems, fails to log out its login session upon
+ receipt of a BYE command. Before relying on the BYE command
working, test it a few times to make sure it works on your system:
there might be system configuration or security mechanisms to
prevent an inferior process (like Kermit) from killing a superior
in the background such that it must be explicitly fg'd. This is
reportedly fixed in version 1.07 of bash (and definitely in modern
bash versions).
- ________________________________________________________________________
- 5. INITIALIZATION AND COMMAND FILES
+5. INITIALIZATION AND COMMAND FILES
- [ [539]Top ] [ [540]Contents ] [ [541]Next ] [ [542]Previous ]
+ [ [555]Top ] [ [556]Contents ] [ [557]Next ] [ [558]Previous ]
C-Kermit's initialization file for Unix is .kermrc (lowercase, starts
with period) in your home directory, unless Kermit was built with the
- system-wide initialization-file option (see the [543]C-Kermit for Unix
+ system-wide initialization-file option (see the [559]C-Kermit for Unix
Installation Instructions).
C-Kermit identifies your home directory based on the environment
variable, HOME. Most Unix systems set this variable automatically when
- you log in. If C-Kermit can't find your initialization file, check
- your HOME variable:
+ you log in. If C-Kermit can't find your initialization file, check your
+ HOME variable:
echo $HOME (at the Unix prompt)
directory. This feature was removed from 5A(190) because it was a
security risk. Some people, however, liked this behavior and had
.kermrc files in all their directories that would set up things
- appropriately for the files therein. If you want this behavior, you
- can accomplish it in various ways, for example:
+ appropriately for the files therein. If you want this behavior, you can
+ accomplish it in various ways, for example:
* Create a shell alias, for example:
alias kd="kermit -Y ./.kermrc"
+
* Create a .kermrc file in your home directory, whose contents are:
take ./.kermrc
Suppose you need to pass a password from the Unix command line to a
- C-Kermit script program, in such a way that it does not show up in
- "ps" or "w" listings. Here is a method (not guaranteed to be 100%
- secure, but definitely more secure than the more obvious methods):
+ C-Kermit script program, in such a way that it does not show up in "ps"
+ or "w" listings. Here is a method (not guaranteed to be 100% secure,
+ but definitely more secure than the more obvious methods):
echo mypassword | kermit myscript
The "myscript" file contains all the commands that need to be executed
during the Kermit session, up to and including EXIT, and also includes
an ASK or ASKQ command to read the password from standard input, which
- has been piped in from the Unix 'echo' command, but it must not
- include a CONNECT command. Only "kermit myscript" shows up in the ps
- listing.
- ________________________________________________________________________
+ has been piped in from the Unix 'echo' command, but it must not include
+ a CONNECT command. Only "kermit myscript" shows up in the ps listing.
- 6. COMMUNICATION SPEED SELECTION
+6. COMMUNICATION SPEED SELECTION
- [ [544]Top ] [ [545]Contents ] [ [546]Next ] [ [547]Previous ]
+ [ [560]Top ] [ [561]Contents ] [ [562]Next ] [ [563]Previous ]
- Version-7 based Unix implementations, including 4.3 BSD and earlier
- and Unix systems based upon BSD, use a 4-bit field to record a serial
+ Version-7 based Unix implementations, including 4.3 BSD and earlier and
+ Unix systems based upon BSD, use a 4-bit field to record a serial
device's terminal speed. This leaves room for 16 speeds, of which the
first 14 are normally:
The remaining two are usually called EXTA and EXTB, and are defined by
the particular Unix implementation. C-Kermit determines which speeds
are available on your system based on whether symbols for them are
- defined in your terminal device header files. EXTA is generally
- assumed to be 19200 and EXTB 38400, but these assumptions might be
- wrong, or they might not apply to a particular device that does not
- support these speeds. Presumably, if you try to set a speed that is
- not legal on a particular device, the driver will return an error, but
- this can not be guaranteed.
-
- On these systems, it is usually not possible to select a speed of
- 14400 bps for use with V.32bis modems. In that case, use 19200 or
- 38400 bps, configure your modem to lock its interface speed and to use
- RTS/CTS flow control, and tell C-Kermit to SET FLOW RTS/CTS and SET
- DIAL SPEED-MATCHING OFF.
+ defined in your terminal device header files. EXTA is generally assumed
+ to be 19200 and EXTB 38400, but these assumptions might be wrong, or
+ they might not apply to a particular device that does not support these
+ speeds. Presumably, if you try to set a speed that is not legal on a
+ particular device, the driver will return an error, but this can not be
+ guaranteed.
+
+ On these systems, it is usually not possible to select a speed of 14400
+ bps for use with V.32bis modems. In that case, use 19200 or 38400 bps,
+ configure your modem to lock its interface speed and to use RTS/CTS
+ flow control, and tell C-Kermit to SET FLOW RTS/CTS and SET DIAL
+ SPEED-MATCHING OFF.
The situation is similar, but different, in System V. SVID Third
Edition lists the same speeds, 0 through 38400.
Some versions of Unix, and/or terminal device drivers that come with
certain third-party add-in high-speed serial communication interfaces,
use the low "baud rates" to stand for higher ones. For example, SET
- SPEED 50 gets you 57600 bps; SET SPEED 75 gets you 76800; SET SPEED
- 110 gets 115200.
+ SPEED 50 gets you 57600 bps; SET SPEED 75 gets you 76800; SET SPEED 110
+ gets 115200.
SCO ODT 3.0 is an example where a "baud-rate-table patch" can be
applied that can rotate the tty driver baud rate table such that
incorporates a new mechanism for finding out (at compile time) which
serial speeds are supported by the operating system that does not
involve editing of source code by hand; on systems like Solaris 5.1,
- IRIX 6.2, and SCO OSR5.0.4, "set speed ?" will list speeds up to
- 460800 or 921600. In C-Kermit 7.0 and later:
+ IRIX 6.2, and SCO OSR5.0.4, "set speed ?" will list speeds up to 460800
+ or 921600. In C-Kermit 7.0 and later:
1. If a symbol for a particular speed (say B230400 for 230400 bps)
appears in whatever header file defines acceptable serial speeds
(e.g. <termbits.h> or <sys/termios.h> or <sys/ttydev.h>, etc), the
corresponding speed will appear in C-Kermit's "set speed ?" list.
2. The fact that a given speed is listed in the header files and
- appears in C-Kermit's list does not mean the driver will accept
- it. For example, a computer might have some standard serial ports
- plus some add-on ones with different drivers that accept a
- different repertoire of speeds.
+ appears in C-Kermit's list does not mean the driver will accept it.
+ For example, a computer might have some standard serial ports plus
+ some add-on ones with different drivers that accept a different
+ repertoire of speeds.
3. The fact that a given speed is accepted by the driver does not
guarantee the underlying hardware can accept it.
- When Kermit is given a "set speed" command for a particular device,
- the underlying system service is called to set the speed; its return
- code is checked and the SET SPEED command fails if the return code
- indicates failure. Regardless of the system service return status, the
- device's speed is then read back and if it does not match the speed
- that was requested, an error message is printed and the command fails.
+ When Kermit is given a "set speed" command for a particular device, the
+ underlying system service is called to set the speed; its return code
+ is checked and the SET SPEED command fails if the return code indicates
+ failure. Regardless of the system service return status, the device's
+ speed is then read back and if it does not match the speed that was
+ requested, an error message is printed and the command fails.
Even when the command succeeds, this does not guarantee successful
- operation at a particular speed, especially a high one. That depends
- on electricity, information theory, etc. How long is the cable, what
- is its capacitance, how well is it shielded, etc, not to mention that
+ operation at a particular speed, especially a high one. That depends on
+ electricity, information theory, etc. How long is the cable, what is
+ its capacitance, how well is it shielded, etc, not to mention that
every connection has two ends and its success depends on both of them.
(With the obvious caveats about internal modems, is the cable really
connected, interrupt conflicts, etc etc etc).
Note, in particular, that there is a certain threshold above which
modems can not "autobaud" -- i.e. detect the serial interface speed
when you type AT (or whatever else the modem's recognition sequence
- might be). Such modems need to be engaged at a lower speed (say 2400
- or 9600 or even 115200 -- any speed below their autobaud threshold)
- and then must be given a modem-specific command (which can be found in
- the modem manual) to change their interface speed to the desired
- higher speed, and then the software must also be told to change to the
- new, higher speed.
+ might be). Such modems need to be engaged at a lower speed (say 2400 or
+ 9600 or even 115200 -- any speed below their autobaud threshold) and
+ then must be given a modem-specific command (which can be found in the
+ modem manual) to change their interface speed to the desired higher
+ speed, and then the software must also be told to change to the new,
+ higher speed.
- For additional information, read [548]Section 9.5 of the Installation
- Instructions, plus any platform-specific notes in [549]Section 3
- above.
- ________________________________________________________________________
+ For additional information, read [564]Section 9.5 of the Installation
+ Instructions, plus any platform-specific notes in [565]Section 3 above.
- 7. COMMUNICATIONS AND DIALING
+7. COMMUNICATIONS AND DIALING
- [ [550]Top ] [ [551]Contents ] [ [552]Next ] [ [553]Previous ]
+ [ [566]Top ] [ [567]Contents ] [ [568]Next ] [ [569]Previous ]
- 7.1. Serial Ports and Modems
+7.1. Serial Ports and Modems
If you SET LINE to a serial port modem-control device that has nothing
- plugged in to it, or has a modem connected that is powered off, and
- you have not given a prior SET MODEM TYPE or SET CARRIER-WATCH OFF
- command, the SET LINE command is likely to hang. In most cases, you
- can Ctrl-C out. If not, you'll have to kill C-Kermit from another
- terminal.
+ plugged in to it, or has a modem connected that is powered off, and you
+ have not given a prior SET MODEM TYPE or SET CARRIER-WATCH OFF command,
+ the SET LINE command is likely to hang. In most cases, you can Ctrl-C
+ out. If not, you'll have to kill C-Kermit from another terminal.
Similarly, if you give a SET MODEM TYPE HAYES (or USR, or any other
modem type besides DIRECT, NONE, or UNKNOWN) and then SET LINE to an
crashing is inside a system call such as cfsetospeed() or close()).
The SET CARRIER-WATCH command works as advertised only if the
- underlying operating system and device drivers support this feature;
- in particular only if a read() operation returns immediately with an
- error code if the carrier signal goes away or, failing that, if
- C-Kermit can obtain the modem signals from the device driver (you can
- tell by giving a "set line" command to a serial device, and then a
- "show communications" command -- if modem signals are not listed,
- C-Kermit won't be able to detect carrier loss, the WAIT command will
- not work, etc). Of course, the device itself (e.g. modem) must be
- configured appropriately and the cables convey the carrier and other
- needed signals, etc.
+ underlying operating system and device drivers support this feature; in
+ particular only if a read() operation returns immediately with an error
+ code if the carrier signal goes away or, failing that, if C-Kermit can
+ obtain the modem signals from the device driver (you can tell by giving
+ a "set line" command to a serial device, and then a "show
+ communications" command -- if modem signals are not listed, C-Kermit
+ won't be able to detect carrier loss, the WAIT command will not work,
+ etc). Of course, the device itself (e.g. modem) must be configured
+ appropriately and the cables convey the carrier and other needed
+ signals, etc.
If you dial out from Unix system, but then notice a lot of weird
character strings being stuck into your session at random times
(especially if they look like +++ATQ0H0 or login banners or prompts),
- that means that getty is also trying to control the same device.
- You'll need to dial out on a device that is not waiting for a login,
- or else disable getty on the device.
+ that means that getty is also trying to control the same device. You'll
+ need to dial out on a device that is not waiting for a login, or else
+ disable getty on the device.
As of version 7.0, C-Kermit makes explicit checks for the Carrier
Detect signal, and so catches hung-up connections much better than 6.0
and earlier. However, it still can not be guaranteed to catch every
ever CD on-to-off transition. For example, when the HP-UX version of
- C-Kermit is in CONNECT mode on a dialed connection and CARRIER-WATCH
- ON or AUTO, and you turn off the modem, HP-UX is stuck in a read()
- that never returns. (C-Kermit does not pop back to its prompt
- automatically, but you can still escape back.)
-
- If, on the other hand, you log out from the remote system, and it
- hangs up, and CD drops on the local modem, C-Kermit detects this and
- pops back to the prompt as it should. (Evidently there can be a
- difference between CD and DSR turning off at the same time, versus CD
- turning off while DSR stays on; experimentation with &S0/&S1/&S2 on
- your modem might produce the desired results).
-
- When Unix C-Kermit exits, it closes (and must close) the
- communications device. If you were dialed out, this will most likely
- hang up the connection. If you want to get out of Kermit and still use
- Kermit's communication device, you have several choices:
+ C-Kermit is in CONNECT mode on a dialed connection and CARRIER-WATCH ON
+ or AUTO, and you turn off the modem, HP-UX is stuck in a read() that
+ never returns. (C-Kermit does not pop back to its prompt automatically,
+ but you can still escape back.)
+
+ If, on the other hand, you log out from the remote system, and it hangs
+ up, and CD drops on the local modem, C-Kermit detects this and pops
+ back to the prompt as it should. (Evidently there can be a difference
+ between CD and DSR turning off at the same time, versus CD turning off
+ while DSR stays on; experimentation with &S0/&S1/&S2 on your modem
+ might produce the desired results).
+
+ When Unix C-Kermit exits, it closes (and must close) the communications
+ device. If you were dialed out, this will most likely hang up the
+ connection. If you want to get out of Kermit and still use Kermit's
+ communication device, you have several choices:
1. Shell out from Kermit or suspend Kermit, and refer to the device
literally (as in "term -blah -blah < /dev/cua > /dev/cua").
If you are having trouble dialing:
- 1. Make sure the dialout line is configured correctly. More about
- this below.
+ 1. Make sure the dialout line is configured correctly. More about this
+ below.
2. Make sure all necessary patches are installed for your operating
system.
3. If you can't dial on a "bidirectional" line, then configure it for
outbound-only (remove the getty) and try again. (The mechanisms --
if any -- for grabbing bidirectional lines for dialout vary wildly
- among Unix implementations and releases, and C-Kermit -- which
- runs on well over 300 different Unix variations -- makes no effort
- to keep up with them; the recommended method for coping with this
+ among Unix implementations and releases, and C-Kermit -- which runs
+ on well over 300 different Unix variations -- makes no effort to
+ keep up with them; the recommended method for coping with this
situation is to wrap C-Kermit in a shell script that takes the
appropriate actions.)
4. Make sure C-Kermit's SET DIAL and SET MODEM parameters agree with
- the modem you are actually using -- pay particular attention to
- SET DIAL SPEED-MATCHING.
+ the modem you are actually using -- pay particular attention to SET
+ DIAL SPEED-MATCHING.
5. If MODEM HANGUP-METHOD is set to RS232-SIGNAL, change it to
MODEM-COMMAND. Or vice-versa.
6. Try SET DIAL HANGUP OFF before the DIAL command. Also, SET DIAL
- DISPLAY ON to watch what's happening. See [554]Section 8 of the
- [555]Installation Instructions.
- 7. Read pages 50-67 of [556]Using C-Kermit.
+ DISPLAY ON to watch what's happening. See [570]Section 8 of the
+ [571]Installation Instructions.
+ 7. Read pages 50-67 of [572]Using C-Kermit.
8. As a last resort, don't use the DIAL command at all; SET CARRIER
OFF and CONNECT to the modem and dial interactively, or write a
script program to dial the modem.
- Make sure your dialout line is correctly configured for dialing out
- (as opposed to login). The method for doing this is different for each
- kind of Unix system. Consult your system documentation for configuring
- lines for dialing out (for example, Sun SparcStation IPC users should
- read the section "Setting up Modem Software" in the Desktop SPARC Sun
- System & Network Manager's Guide; HP-9000 workstation users should
- consult the manual Configuring HP-UX for Peripherals, etc).
+ Make sure your dialout line is correctly configured for dialing out (as
+ opposed to login). The method for doing this is different for each kind
+ of Unix system. Consult your system documentation for configuring lines
+ for dialing out (for example, Sun SparcStation IPC users should read
+ the section "Setting up Modem Software" in the Desktop SPARC Sun System
+ & Network Manager's Guide; HP-9000 workstation users should consult the
+ manual Configuring HP-UX for Peripherals, etc).
Symptom: DIAL works, but a subsequent CONNECT command does not.
Diagnosis: the modem is not asserting Carrier Detect (CD) after the
(at least in System-V based Unix versions).
For Berkeley-Unix-based systems (4.3BSD and earlier), Kermit includes
- code to use LPASS8 mode when parity is none, which is supposed to
- allow 8-bit data and Xon/Xoff flow control at the same time. However,
- as of edit 174, this code is entirely disabled because it is
- unreliable: even though the host operating system might (or might not)
- support LPASS8 mode correctly, the host access protocols (terminal
- servers, telnet, rlogin, etc) generally have no way of finding out
- about it and therefore render it ineffective, causing file transfer
- failures. So as of edit 174, Kermit once again uses rawmode for 8-bit
- data, and so there is no Xon/Xoff flow control during file transfer or
- terminal emulation in the Berkeley-based versions (4.3 and earlier,
- not 4.4).
+ code to use LPASS8 mode when parity is none, which is supposed to allow
+ 8-bit data and Xon/Xoff flow control at the same time. However, as of
+ edit 174, this code is entirely disabled because it is unreliable: even
+ though the host operating system might (or might not) support LPASS8
+ mode correctly, the host access protocols (terminal servers, telnet,
+ rlogin, etc) generally have no way of finding out about it and
+ therefore render it ineffective, causing file transfer failures. So as
+ of edit 174, Kermit once again uses rawmode for 8-bit data, and so
+ there is no Xon/Xoff flow control during file transfer or terminal
+ emulation in the Berkeley-based versions (4.3 and earlier, not 4.4).
Also on Berkeley-based systems (4.3 and earlier), there is apparently
no way to configure a dialout line for proper carrier handling, i.e.
error on any attempt to read from the device after carrier drops (this
is handled nicely in System V by manipulation of the CLOCAL flag). The
symptom is that carrier loss does not make C-Kermit pop back to the
- prompt automatically. This is evident on the NeXT, for example, but
- not on SunOS, which supports the CLOCAL flag. This is not a Kermit
- problem, but a limitation of the underlying operating system. For
- example, the cu program on the NeXT doesn't notice carrier loss
- either, whereas cu on the Sun does.
-
- On certain AT&T Unix systems equipped with AT&T modems, DIAL and
- HANGUP don't work right. Workarounds: (1) SET DIAL HANGUP OFF before
+ prompt automatically. This is evident on the NeXT, for example, but not
+ on SunOS, which supports the CLOCAL flag. This is not a Kermit problem,
+ but a limitation of the underlying operating system. For example, the
+ cu program on the NeXT doesn't notice carrier loss either, whereas cu
+ on the Sun does.
+
+ On certain AT&T Unix systems equipped with AT&T modems, DIAL and HANGUP
+ don't work right. Workarounds: (1) SET DIAL HANGUP OFF before
attempting to dial; (2) If HANGUP doesn't work, SET LINE, and then SET
LINE <device> to totally close and reopen the device. If all else
fails, SET CARRIER OFF.
In some BSD-based Unix C-Kermit versions, SET LINE to a port that has
nothing plugged in to it with SET CARRIER ON will hang the program (as
- it should), but it can't be interrupted with Ctrl-C. The interrupt
- trap is correctly armed, but apparently the Unix open() call cannot be
- interrupted in this case. When SET CARRIER is OFF or AUTO, the SET
- LINE will eventually return, but then the program hangs
- (uninterruptibly) when the EXIT or QUIT command (or, presumably,
- another SET LINE command) is given. The latter is probably because of
- the attempt to hang up the modem. (In edit 169, a timeout alarm was
- placed around this operation.)
+ it should), but it can't be interrupted with Ctrl-C. The interrupt trap
+ is correctly armed, but apparently the Unix open() call cannot be
+ interrupted in this case. When SET CARRIER is OFF or AUTO, the SET LINE
+ will eventually return, but then the program hangs (uninterruptibly)
+ when the EXIT or QUIT command (or, presumably, another SET LINE
+ command) is given. The latter is probably because of the attempt to
+ hang up the modem. (In edit 169, a timeout alarm was placed around this
+ operation.)
With SET DIAL HANGUP OFF in effect, the DIAL command might work only
once, but not again on the same device. In that case, give a CLOSE
In general, the hangup operation on a serial communication device is
prone to failure. C-Kermit tries to support many, many different kinds
- of computers, and there seems to be no portable method for hanging up
- a modem connection (i.e. turning off the RS-232 DTR signal and then
+ of computers, and there seems to be no portable method for hanging up a
+ modem connection (i.e. turning off the RS-232 DTR signal and then
turning it back on again). If HANGUP, DIAL, and/or Ctrl-\H do not work
for you, and you are a programmer, look at the tthang() function in
- ckutio.c and see if you can add code to make it work correctly for
- your system, and send the code to the address above. (NOTE: This
- problem has been largely sidestepped as of edit 188, in which Kermit
- first attempts to hang up the modem by "escaping back" via +++ and
- then giving the modem's hangup command, e.g. ATH0, when DIAL
- MODEM-HANGUP is ON, which is the default setting.)
+ ckutio.c and see if you can add code to make it work correctly for your
+ system, and send the code to the address above. (NOTE: This problem has
+ been largely sidestepped as of edit 188, in which Kermit first attempts
+ to hang up the modem by "escaping back" via +++ and then giving the
+ modem's hangup command, e.g. ATH0, when DIAL MODEM-HANGUP is ON, which
+ is the default setting.)
Even when Kermit's modem-control software is configured correctly for
your computer, it can only work right if your modem is also configured
- to assert the CD signal when it is connected to the remote modem and
- to hang up the connection when your computer drops the DTR signal. So
+ to assert the CD signal when it is connected to the remote modem and to
+ hang up the connection when your computer drops the DTR signal. So
before deciding Kermit doesn't work with your modem, check your modem
configuration AND the cable (if any) connecting your modem to the
- computer -- it should be a straight-through modem cable conducting the
- signals FG, SG, TD, RD, RTS, CTS, DSR, DTR, CD, and RI.
+ computer -- it should be a straight-through [573]modem cable conducting
+ the signals FG, SG, TD, RD, RTS, CTS, DSR, DTR, CD, and RI.
Many Unix systems keep aliases for dialout devices; for example,
/dev/acu might be an alias for /dev/tty00. But most of these Unix
systems also use UUCP lockfile conventions that do not take this
aliasing into account, so if one user assigns (e.g.) /dev/acu, then
- another user can still assign the same device by referring to its
- other name. This is not a Kermit problem -- Kermit must follow the
- lockfile conventions used by the vendor-supplied software (cu, tip,
- uucp).
+ another user can still assign the same device by referring to its other
+ name. This is not a Kermit problem -- Kermit must follow the lockfile
+ conventions used by the vendor-supplied software (cu, tip, uucp).
The SET FLOW-CONTROL KEEP option should be given *before* any
communication (dialing, terminal emulation, file transfer,
all of the device's preexisting flow-control related settings. The
default flow-control setting is XON/XOFF, and it will take effect when
the first communication-related command is given, and a subsequent SET
- FLOW KEEP command will not necessarily know how to restore *all* of
- the device's original flow-control settings.
+ FLOW KEEP command will not necessarily know how to restore *all* of the
+ device's original flow-control settings.
- 7.2. Network Connections
+7.2. Network Connections
C-Kermit tries to use the 8th bit for data when parity is NONE, and
this generally works on real Unix terminal (tty) devices, but it often
The Encore TELNET server does not allow long bursts of input. When you
have a TELNET connection to an Encore, tell C-Kermit on the Encore to
SET RECEIVE PACKET-LENGTH 200 or thereabouts.
- ________________________________________________________________________
- 8. HARDWARE FLOW CONTROL
+8. HARDWARE FLOW CONTROL
- [ [557]Top ] [ [558]Contents ] [ [559]Next ] [ [560]Previous ]
+ [ [574]Top ] [ [575]Contents ] [ [576]Next ] [ [577]Previous ]
- SET FLOW RTS/CTS is available in Unix C-Kermit only when the
- underlying operating system provides an Application Program Interface
- (API) for turning this feature on and off under program control, which
- turns out to be a rather rare feature among Unix systems. To see if
- your Unix C-Kermit version supports hardware flow control, type "set
- flow ?" at the C-Kermit prompt, and look for "rts/cts" among the
- options. Other common situations include:
+ SET FLOW RTS/CTS is available in Unix C-Kermit only when the underlying
+ operating system provides an Application Program Interface (API) for
+ turning this feature on and off under program control, which turns out
+ to be a rather rare feature among Unix systems. To see if your Unix
+ C-Kermit version supports hardware flow control, type "set flow ?" at
+ the C-Kermit prompt, and look for "rts/cts" among the options. Other
+ common situations include:
1. The API is available, so "set flow rts/cts" appears as a valid
C-Kermit command, but it doesn't do anything because the device
3. The API is available, doesn't work, but a workaround as in (2) can
be used.
4. The API is available, but Kermit doesn't know about it. In these
- cases, you can usually use an stty command to enable RTS/CTS on
- the device, e.g. "stty crtscts" or "stty ctsflow", "stty rtsflow",
+ cases, you can usually use an stty command to enable RTS/CTS on the
+ device, e.g. "stty crtscts" or "stty ctsflow", "stty rtsflow",
before starting Kermit, and then tell Kermit to SET FLOW KEEP.
5. No API and no special device drivers. Hardware flow control is
completely unavailable.
in /usr/include/sys rather than /usr/include (where SVID clearly
specifies it should be; see SVID, Third Edition, V1, termiox(BA_DEV).
Thus if you build C-Kermit with any of the makefile entries that
- contain -DTERMIOX or -DSTERMIOX (the latter to select
- <sys/termiox.h>), C-Kermit will have "set flow rts/cts" and possibly
- other hardware flow-control related commands. BUT... That does not
- necessarily mean that they will work. In some cases, the underlying
- functions are simply not coded into the operating system.
+ contain -DTERMIOX or -DSTERMIOX (the latter to select <sys/termiox.h>),
+ C-Kermit will have "set flow rts/cts" and possibly other hardware
+ flow-control related commands. BUT... That does not necessarily mean
+ that they will work. In some cases, the underlying functions are simply
+ not coded into the operating system.
WARNING: When hardware flow control is available, and you enable in
Kermit on a device that is not receiving the CTS signal, Kermit can
hang waiting for CTS to come up. This is most easily seen when the
local serial port has nothing plugged in to it, or is connected to an
external modem that is powered off.
- ________________________________________________________________________
- 9. TERMINAL CONNECTION AND KEY MAPPING
+9. TERMINAL CONNECTION AND KEY MAPPING
- [ [561]Top ] [ [562]Contents ] [ [563]Next ] [ [564]Previous ]
+ [ [578]Top ] [ [579]Contents ] [ [580]Next ] [ [581]Previous ]
- C-Kermit is not a terminal emulator. Refer to page 147 of [565]Using
- C-Kermit, 2nd Edition: "Most versions of C-Kermit -- Unix, VMS,
- AOS/VS, VOS, etc -- provide terminal connection without emulation.
- These versions act as a 'semitransparent pipe' between the remote
- computer and your terminal, terminal emulator, console driver, or
- window, which in turn emulates (or is) a specific kind of terminal."
- The environment in which you run C-Kermit is up to you.
+ C-Kermit is not a terminal emulator. Refer to page 147 of [582]Using
+ C-Kermit, 2nd Edition: "Most versions of C-Kermit -- Unix, VMS, AOS/VS,
+ VOS, etc -- provide terminal connection without emulation. These
+ versions act as a 'semitransparent pipe' between the remote computer
+ and your terminal, terminal emulator, console driver, or window, which
+ in turn emulates (or is) a specific kind of terminal." The environment
+ in which you run C-Kermit is up to you.
If you are an X Windows user, you should be aware of an alternative to
xterm that supports VT220 emulation, from Thomas E. Dickey:
- [566]http://dickey.his.com/xterm/xterm.html
+ [583]http://dickey.his.com/xterm/xterm.html
Unix C-Kermit's SET KEY command currently can not be used with keys
that generate "wide" scan codes or multibyte sequences, such as
- workstation function or arrow keys, because Unix C-Kermit does not
- have direct access to the keyboard.
+ workstation function or arrow keys, because Unix C-Kermit does not have
+ direct access to the keyboard.
However, many Unix workstations and/or console drivers provide their
- own key mapping feature. With xterm, for example, you can use
- 'xmodmap' ("man xmodmap" for details); here is an xterm mapping to map
- the Sun keyboard to DEC VT200 values for use with VT-terminal oriented
+ own key mapping feature. With xterm, for example, you can use 'xmodmap'
+ ("man xmodmap" for details); here is an xterm mapping to map the Sun
+ keyboard to DEC VT200 values for use with VT-terminal oriented
applications like VMS EVE:
keycode 101=KP_0
Users of Linux consoles can use loadkeys ("man dumpkeys loadkeys
keytables" for details. The format used by loadkeys is compatible with
that used by Xmodmap, although it is not definitely certain that the
- keycodes are compatible for different keyboard types (e.g. Sun vs HP
- vs PC, etc).
- ________________________________________________________________________
+ keycodes are compatible for different keyboard types (e.g. Sun vs HP vs
+ PC, etc).
+
+10. FILE TRANSFER
- 10. FILE TRANSFER
+ [ [584]Top ] [ [585]Contents ] [ [586]Next ] [ [587]Previous ]
- [ [567]Top ] [ [568]Contents ] [ [569]Next ] [ [570]Previous ]
+ On most platforms, C-Kermit can not handle files longer than 2^31 or
+ 2^32 bytes long, because it uses the traditional file i/o APIs that use
+ 32-bit words to represent the file size. To accommodate longer files,
+ we would have to switch to a new and different API. Unfortunately, each
+ platform has a different one, a nightmare to handle in portable code.
+ The C-Kermit file code was written in the days long before files longer
+ than 2GB were supported or even contemplated in the operating systems
+ where C-Kermit ran.
If uploads (or downloads) fail immediately, give the CAUTIOUS command
to Kermit and try again. If they still fail, then try SET PREFIXING
ROBUST.
If reception (particularly of large files and/or binary files) begins
- successfully but then fail constently after a certain amount of bytes
+ successfully but then fail consistently after a certain amount of bytes
have been sent, check:
* Your ulimit ("ulimit -a")
.")
* Your personal disk quota (platform- and site-dependent)
* The maximum file size on the receiver's file system (e.g. 2GB in
- old verions the Linux VFS file system, and/or in applications that
+ old versions the Linux VFS file system, and/or in applications that
have not been recoded to use new "large file" APIs).
* If it's an NFS-mounted disk (if so, try uploading to a local disk)
* Is there an "idle limit" on the receiving end?
second Kermit is using the original name, the first Kermit changes the
modtime and permissions of the second Kermit's file, not its own.
Although there might be a way to work around this in the code, e.g.
- using inode numbers to keep track of which file is which, this would
- be tricky and most likely not very portable. It's better to set up
- your application to prevent such things from happening, which is easy
- enough using the script language, filename templates, etc.
+ using inode numbers to keep track of which file is which, this would be
+ tricky and most likely not very portable. It's better to set up your
+ application to prevent such things from happening, which is easy enough
+ using the script language, filename templates, etc.
Suppose you start C-Kermit with a command-line argument to send or
receive a file (e.g. "kermit -r") and then type Ctrl-\c immediately
afterwards to escape back and initiate the other end of the transfer,
BUT your local Kermit's escape character is not Ctrl-\. In this case,
- the local Kermit passes the Ctrl-\ to the remote system, and if this
- is Unix, Ctrl-\ is likely to be its SIGQUIT character, which causes
- the current program to halt and dump core. Well, just about the first
- thing C-Kermit does when it starts is to disable the SIGQUIT signal.
- However, it is still possible for SIGQUIT to cause Kermit to quit and
- dump core if it is delivered while Kermit is being loaded or started,
- before the signal can be disabled. There's nothing Kermit itself can
- do about this, but you can prevent it from happening by disabling
- SIGQUIT in your Unix session. The command is usually something like:
+ the local Kermit passes the Ctrl-\ to the remote system, and if this is
+ Unix, Ctrl-\ is likely to be its SIGQUIT character, which causes the
+ current program to halt and dump core. Well, just about the first thing
+ C-Kermit does when it starts is to disable the SIGQUIT signal. However,
+ it is still possible for SIGQUIT to cause Kermit to quit and dump core
+ if it is delivered while Kermit is being loaded or started, before the
+ signal can be disabled. There's nothing Kermit itself can do about
+ this, but you can prevent it from happening by disabling SIGQUIT in
+ your Unix session. The command is usually something like:
stty quit undef
advance how much disk space is available, either on the device, or
(when quotas or other limits are involved) to the user.
- Unix C-Kermit discards all carriage returns from incoming files when
- in text mode.
+ Unix C-Kermit discards all carriage returns from incoming files when in
+ text mode.
- If C-Kermit has problems creating files in writable directories when
- it is installed setuid or setgid on BSD-based versions of Unix such as
+ If C-Kermit has problems creating files in writable directories when it
+ is installed setuid or setgid on BSD-based versions of Unix such as
NeXTSTEP 3.0, it probably needs to be rebuilt with the -DSW_ACC_ID
compilation switch.
If you SET FILE DISPLAY FULLSCREEN, and C-Kermit complains "Sorry,
terminal type not supported", it means that the terminal library
- (termcap or termlib) that C-Kermit was built with does not know about
- a terminal whose name is the current value of your TERM environment
+ (termcap or termlib) that C-Kermit was built with does not know about a
+ terminal whose name is the current value of your TERM environment
variable. If this happens, but you want to have the fullscreen file
transfer display, EXIT from C-Kermit and set a Unix terminal type from
among the supported values that is also supported by your terminal
includes the newterm() function, then try rebuilding your version of
C-Kermit with -DCK_NEWTERM. Similarly if it echoes doubly, which might
even happen during a subsequent CONNECT session. If rebuilding with
- -DCK_NEWTERM doesn't fix it, then there is something very strange
- about your system's curses library, and you should probably not use
- it. Tell C-Kermit to SET FILE DISPLAY CRT, BRIEF, or anything else
- other than FULLSCREEN, and/or rebuild without -DCK_CURSES, and without
- linking with (termlib and) curses. Note: This problem seemed to have
- escalated in C-Kermit 7.0, and -DCK_NEWTERM had to be added to many
- builds that previously worked without it: Linux, AIX 4.1, DG/UX, etc.
- In the Linux case, it is obviously because of changes in the (n)curses
- library; the cause in the other cases is not known.
+ -DCK_NEWTERM doesn't fix it, then there is something very strange about
+ your system's curses library, and you should probably not use it. Tell
+ C-Kermit to SET FILE DISPLAY CRT, BRIEF, or anything else other than
+ FULLSCREEN, and/or rebuild without -DCK_CURSES, and without linking
+ with (termlib and) curses. Note: This problem seemed to have escalated
+ in C-Kermit 7.0, and -DCK_NEWTERM had to be added to many builds that
+ previously worked without it: Linux, AIX 4.1, DG/UX, etc. In the Linux
+ case, it is obviously because of changes in the (n)curses library; the
+ cause in the other cases is not known.
C-Kermit creates backup-file names (such as "oofa.txt.~1~") based on
its knowledge of the maximum filename length on the platform where it
is running, which is learned at compile time, based on MAXNAMLEN or
equivalent symbols from the system header files. But suppose C-Kermit
- is receiving files on a Unix platform that supports long filenames,
- but the incoming files are being stored on an NFS-mounted file system
- that supports only short names. NFS maps the external system to the
- local APIs, so C-Kermit has no way of knowing that long names will be
+ is receiving files on a Unix platform that supports long filenames, but
+ the incoming files are being stored on an NFS-mounted file system that
+ supports only short names. NFS maps the external system to the local
+ APIs, so C-Kermit has no way of knowing that long names will be
truncated. Or that C-Kermit is running on a version of Unix that
supports both long-name and short-name file systems simultaneously
(such as HP-UX 7.00). This can cause unexpected behavior when creating
whose names are differentiated only by characters past the point at
which they would be truncated, each file will overwrite the previous
one upon arrival.
- ________________________________________________________________________
- 11. EXTERNAL FILE TRANSFER PROTOCOLS
+11. EXTERNAL FILE TRANSFER PROTOCOLS
- [ [571]Top ] [ [572]Contents ] [ [573]Next ] [ [574]Previous ]
+ [ [588]Top ] [ [589]Contents ] [ [590]Next ] [ [591]Previous ]
SECTION CONTENTS
- 11.1. [575]C-Kermit as an External Protocol
- 11.2. [576]Invoking External Protocols from C-Kermit
+ 11.1. [592]C-Kermit as an External Protocol
+ 11.2. [593]Invoking External Protocols from C-Kermit
Unix C-Kermit can be used in conjunction with other communications
software in various ways. C-Kermit can be invoked from another
- communications program as an "external protocol", and C-Kermit can
- also invoke other communication software to perform external
- protocols.
+ communications program as an "external protocol", and C-Kermit can also
+ invoke other communication software to perform external protocols.
This sort of operation makes sense only when you are dialing out from
your Unix system (or making a network connection from it). If the Unix
tricks. Just run the desired software on your Unix system instead of
Kermit. When dialing out from a Unix system, the difficulty is getting
two programs to share the same communication device in spite of the
- Unix UUCP lockfile mechanism, which would normally prevent any
- sharing, and preventing the external protocol from closing (and
- therefore hanging up) the device when it exits back to the program
- that invoked it.
+ Unix UUCP lockfile mechanism, which would normally prevent any sharing,
+ and preventing the external protocol from closing (and therefore
+ hanging up) the device when it exits back to the program that invoked
+ it.
- 11.1. C-KERMIT AS AN EXTERNAL PROTOCOL
+11.1. C-KERMIT AS AN EXTERNAL PROTOCOL
- [ [577]Top ] [ [578]Contents ] [ [579]Section Contents ] [ [580]Next ]
+ [ [594]Top ] [ [595]Contents ] [ [596]Section Contents ] [ [597]Next ]
- (This section deleted; see [581]Using C-Kermit, 2nd Ed, Chapter 14.)
+ (This section deleted; see [598]Using C-Kermit, 2nd Ed, Chapter 14.)
"pcomm" is a general-purpose terminal program that provides file
- transfer capabilities itself (X- and YMODEM variations) and the
- ability to call on external programs to do file transfers (ZMODEM and
- Kermit, for example). You can tell pcomm the command to send or
- receive a file with an external protocol:
- Send Receive
+ transfer capabilities itself (X- and YMODEM variations) and the ability
+ to call on external programs to do file transfers (ZMODEM and Kermit,
+ for example). You can tell pcomm the command to send or receive a file
+ with an external protocol:
+ Send Receive
ZMODEM sz filename rz
Kermit kermit -s filename kermit -r
it:
- Send Receive
+ Send Receive
Kermit kermit -l 0 -s filename kermit -l 0 -r
The "-l 0" option means to use file descriptor 0 for the communication
r - receive
s - send
- 11.2. INVOKING EXTERNAL PROTOCOLS FROM C-KERMIT
+11.2. INVOKING EXTERNAL PROTOCOLS FROM C-KERMIT
- [ [582]Top ] [ [583]Contents ] [ [584]Section Contents ] [
- [585]Previous ]
+ [ [599]Top ] [ [600]Contents ] [ [601]Section Contents ] [
+ [602]Previous ]
(This section is obsolete, but not totally useless. See Chapter 14
- of [586]Using C-Kermit, 2nd Edition).
+ of [603]Using C-Kermit, 2nd Edition).
After you have opened a communication link with C-Kermit's SET LINE
(SET PORT) or SET HOST (TELNET) command, C-Kermit makes its file
C-Kermit> redirect sz oofa.zip
- A complete set of rz,sz,rb,sb,rx,sx macros for Unix C-Kermit is
- defined in the file ckurzsz.ini. It automatically chooses the best
- redirection method (but is redundant since C-Kermit 6.0, which now has
- built-in support for external protocols via its SET PROTOCOL command).
+ A complete set of rz,sz,rb,sb,rx,sx macros for Unix C-Kermit is defined
+ in the file ckurzsz.ini. It automatically chooses the best redirection
+ method (but is redundant since C-Kermit 6.0, which now has built-in
+ support for external protocols via its SET PROTOCOL command).
Note that external protocols can be used on C-Kermit SET LINE or SET
HOST connections only if they operate through standard input and
standard output. If they open their own connections, Kermit can't
redirect them over its own connection.
- ________________________________________________________________________
- 12. SECURITY
+12. SECURITY
- [ [587]Top ] [ [588]Contents ] [ [589]Next ] [ [590]Previous ]
+ [ [604]Top ] [ [605]Contents ] [ [606]Next ] [ [607]Previous ]
As of version 7.0, C-Kermit supports a wide range of security options
for authentication and encryption: Kerberos 4, Kerberos 5 / GSSAPI,
- SSL/TLS, and SRP. See the separate [591]security document for details.
- ________________________________________________________________________
+ SSL/TLS, and SRP. See the separate [608]security document for details.
- 13. MISCELLANEOUS USER REPORTS
+13. MISCELLANEOUS USER REPORTS
- [ [592]Top ] [ [593]Contents ] [ [594]Next ] [ [595]Previous ]
+ [ [609]Top ] [ [610]Contents ] [ [611]Next ] [ [612]Previous ]
Date: Thu, 12 Mar 92 1:59:25 MEZ
From: Walter Mecky <walter@rent-a-guru.de>
fail if they call it often enough. One important program is
uucico which calls ttyname for every file it transfers.
+
Here is a little test program if your system has the bug:
#include <stdlib.h>
> You must set line
> Not a tty
> No more processes.
-> One of the following three actions clears the peoblem:
+> One of the following three actions clears the problem:
> shutdown -y -g0 -i6
> kill -9 the ttymon with the highest PID
> Invoke sysadm and disable then enable the line you want to use.
------------------------------
- (Note: the following problem also occurs on SGI and probably many
- other Unix systems):
+ (Note: the following problem also occurs on SGI and probably many other
+ Unix systems):
From: James Spath <spath@jhunix.hcf.jhu.edu>
To: Info-Kermit-Request@cunixf.cc.columbia.edu
The problem concerning uucp ownership and permissions is worse than I
thought at first. Apparently init or uugetty changes the file
permissions after each session. So I wrote the following C program to
- open a set of requested tty lines. I run this for any required
- outgoing line prior to a Kermit session.
+ open a set of requested tty lines. I run this for any required outgoing
+ line prior to a Kermit session.
------ cut here -------
/* opentty.c -- force allow read on tty lines for modem i/o */
}
exit (0);
}
- ________________________________________________________________________
- 14. THIRD-PARTY DRIVERS
+14. THIRD-PARTY DRIVERS
- [ [596]Top ] [ [597]Contents ] [ [598]Next ] [ [599]Previous ]
+ [ [613]Top ] [ [614]Contents ] [ [615]Next ] [ [616]Previous ]
Unix versions, especially those for PCs (SCO, Unixware, etc) might be
augmented by third-party communication-board drivers from Digiboard,
implemented all of the other TIOMC functions, eg DTR, DCD, RTS and
CTS, but not DSR. Our driver should report the actual state of DSR
on those of our cards that have a DSR signal. That the driver
- always reports DSR as not asserted (0), is a bug in the driver.
- The driver should be either reporting the state of DSR correctly
- on those cards that support DSR or as always asserted (1) on those
- cards that do not have a DSR signal. This will be fixed in a
- future version of our drivers; at this time I cannot say when this
- will be." And later, "As far as I can tell, we don't support the
+ always reports DSR as not asserted (0), is a bug in the driver. The
+ driver should be either reporting the state of DSR correctly on
+ those cards that support DSR or as always asserted (1) on those
+ cards that do not have a DSR signal. This will be fixed in a future
+ version of our drivers; at this time I cannot say when this will
+ be." And later, "As far as I can tell, we don't support the
termios/termiox ioctls that relate specifically to DSR and RI; all
- the rest are supported. This will, as I mentioned earlier, be
- fixed in the next release of our ATA software."
+ the rest are supported. This will, as I mentioned earlier, be fixed
+ in the next release of our ATA software."
- World Wide Escalation Support, Stallion Technologies, Toowong
- QLD, [600]support@stallion.oz.au.
+ QLD, [617]support@stallion.oz.au.
Later (December 1997, from the same source):
* We have now released a new version of the ATA software, version
5.4.0. This version fixes the problem with the states of the DSR
- and RI signals and how they were being reported by the driver.
- This is the problem that you reported in October. The DSR signal
- is reported correctly on those cards that support the DSR signal,
- such as the early revision of the EasyIO card and the
- EasyConnection 8D4 panel, and as always asserted on those cards
- that do not support the DSR signal in the hardware. The new driver
- is available from our Web site, [601]www.stallion.com, in the
- /drivers/ata5/UnixWare directory.
-
- [ [602]Top ] [ [603]Contents ] [ [604]C-Kermit Home ] [ [605]C-Kermit
- 8.0 Overview ] [ [606]Kermit Home ]
- _________________________________________________________________
-
- C-Kermit 8.0 Unix Hints and Tips / [607]The Kermit Project /
- [608]Columbia University / [609]kermit@columbia.edu
+ and RI signals and how they were being reported by the driver. This
+ is the problem that you reported in October. The DSR signal is
+ reported correctly on those cards that support the DSR signal, such
+ as the early revision of the EasyIO card and the EasyConnection 8D4
+ panel, and as always asserted on those cards that do not support
+ the DSR signal in the hardware. The new driver is available from
+ our Web site, [618]www.stallion.com, in the /drivers/ata5/UnixWare
+ directory.
+
+ [ [619]Top ] [ [620]Contents ] [ [621]C-Kermit Home ] [ [622]C-Kermit
+ 8.0 Overview ] [ [623]Kermit Home ]
+ __________________________________________________________________
+
+ C-Kermit 8.0 Unix Hints and Tips / [624]The Kermit Project /
+ [625]Columbia University / [626]kermit@columbia.edu
References
- 1. http://www.columbia.edu/kermit/
- 2. http://www.columbia.edu/
- 3. http://www.columbia.edu/kermit/ckubwr.html
- 4. mailto:kermit-support@columbia.edu
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
5. http://www.columbia.edu/kermit/ckermit.html
- 6. http://www.columbia.edu/kermit/ckuins.html
- 7. http://www.columbia.edu/kermit/ckututor.html
- 8. http://www.columbia.edu/kermit/ckubwr.html#x1
- 9. http://www.columbia.edu/kermit/ckubwr.html#x2
- 10. http://www.columbia.edu/kermit/ckubwr.html#x3
- 11. http://www.columbia.edu/kermit/ckubwr.html#x4
- 12. http://www.columbia.edu/kermit/ckubwr.html#x5
- 13. http://www.columbia.edu/kermit/ckubwr.html#x6
- 14. http://www.columbia.edu/kermit/ckubwr.html#x7
- 15. http://www.columbia.edu/kermit/ckubwr.html#x8
- 16. http://www.columbia.edu/kermit/ckubwr.html#x9
- 17. http://www.columbia.edu/kermit/ckubwr.html#x10
- 18. http://www.columbia.edu/kermit/ckubwr.html#x11
- 19. http://www.columbia.edu/kermit/ckubwr.html#x12
- 20. http://www.columbia.edu/kermit/ckubwr.html#x13
- 21. http://www.columbia.edu/kermit/ckubwr.html#x14
- 22. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 23. http://www.columbia.edu/kermit/ckubwr.html#x3.18
- 24. http://www.columbia.edu/kermit/ckubwr.html#x3.19
- 25. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 26. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 27. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 28. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 29. http://www.columbia.edu/kermit/ckubwr.html#x3.13
- 30. http://www.columbia.edu/kermit/ckubwr.html#top
- 31. http://www.columbia.edu/kermit/ckubwr.html#contents
- 32. http://www.columbia.edu/kermit/ckubwr.html#x2
- 33. http://www.columbia.edu/kermit/ckubwr.html#x1.1
- 34. http://www.columbia.edu/kermit/ckubwr.html#x1.2
- 35. http://www.columbia.edu/kermit/ckubwr.html#x1.3
- 36. http://www.columbia.edu/kermit/ckubwr.html#x1.4
- 37. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 38. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 39. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 40. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 41. http://www.columbia.edu/kermit/ckcbwr.html
- 42. mailto:kermit-support@columbia.edu
- 43. http://www.columbia.edu/kermit/ckubwr.html#top
- 44. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/
+ 12. http://www.columbia.edu/
+ 13. http://www.columbia.edu/kermit/ckubwr.html
+ 14. http://www.columbia.edu/kermit/ckdaily.html
+ 15. http://www.columbia.edu/kermit/ckdaily.html
+ 16. http://www.columbia.edu/kermit/ckdaily.html
+ 17. http://www.columbia.edu/kermit/ckermit.html
+ 18. http://www.columbia.edu/kermit/ckuins.html
+ 19. http://www.columbia.edu/kermit/ckututor.html
+ 20. http://www.columbia.edu/kermit/ckubwr.html#x1
+ 21. http://www.columbia.edu/kermit/ckubwr.html#x2
+ 22. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 23. http://www.columbia.edu/kermit/ckubwr.html#x4
+ 24. http://www.columbia.edu/kermit/ckubwr.html#x5
+ 25. http://www.columbia.edu/kermit/ckubwr.html#x6
+ 26. http://www.columbia.edu/kermit/ckubwr.html#x7
+ 27. http://www.columbia.edu/kermit/ckubwr.html#x8
+ 28. http://www.columbia.edu/kermit/ckubwr.html#x9
+ 29. http://www.columbia.edu/kermit/ckubwr.html#x10
+ 30. http://www.columbia.edu/kermit/ckubwr.html#x11
+ 31. http://www.columbia.edu/kermit/ckubwr.html#x12
+ 32. http://www.columbia.edu/kermit/ckubwr.html#x13
+ 33. http://www.columbia.edu/kermit/ckubwr.html#x14
+ 34. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 35. http://www.columbia.edu/kermit/ckubwr.html#x3.18
+ 36. http://www.columbia.edu/kermit/ckubwr.html#x3.19
+ 37. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 38. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 39. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 40. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 41. http://www.columbia.edu/kermit/ckubwr.html#top
+ 42. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 43. http://www.columbia.edu/kermit/ckubwr.html#x2
+ 44. http://www.columbia.edu/kermit/ckubwr.html#x1.1
45. http://www.columbia.edu/kermit/ckubwr.html#x1.2
- 46. http://www.columbia.edu/kermit/ck60manual.html
- 47. http://www.columbia.edu/kermit/ckermit70.html
- 48. http://www.columbia.edu/kermit/ckermit80.html
- 49. http://www.columbia.edu/kermit/ckubwr.html#top
- 50. http://www.columbia.edu/kermit/ckubwr.html#contents
- 51. http://www.columbia.edu/kermit/ckubwr.html#x1
- 52. http://www.columbia.edu/kermit/ckubwr.html#x1.3
- 53. http://www.columbia.edu/kermit/ckubwr.html#x1.1
- 54. http://www.columbia.edu/kermit/support.html
- 55. http://www.columbia.edu/kermit/ckubwr.html#top
- 56. http://www.columbia.edu/kermit/ckubwr.html#contents
- 57. http://www.columbia.edu/kermit/ckubwr.html#x1
- 58. http://www.columbia.edu/kermit/ckubwr.html#x1.4
- 59. http://www.columbia.edu/kermit/ckubwr.html#x1.2
- 60. http://www.columbia.edu/kermit/ckubwr.html#top
- 61. http://www.columbia.edu/kermit/ckubwr.html#contents
- 62. http://www.columbia.edu/kermit/ckubwr.html#x1
- 63. http://www.columbia.edu/kermit/ckubwr.html#x1.3
- 64. http://www.columbia.edu/kermit/ckubwr.html#top
- 65. http://www.columbia.edu/kermit/ckubwr.html#contents
- 66. http://www.columbia.edu/kermit/ckubwr.html#x3
- 67. http://www.columbia.edu/kermit/ckubwr.html#x1
- 68. http://www.columbia.edu/kermit/ckubwr.html#top
- 69. http://www.columbia.edu/kermit/ckubwr.html#contents
- 70. http://www.columbia.edu/kermit/ckubwr.html#x4
- 71. http://www.columbia.edu/kermit/ckubwr.html#x2
- 72. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 73. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 74. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 75. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 76. http://www.columbia.edu/kermit/ckubwr.html#x3.4
- 77. http://www.columbia.edu/kermit/ckubwr.html#x3.5
- 78. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 79. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 80. http://www.columbia.edu/kermit/ckubwr.html#x3.8
- 81. http://www.columbia.edu/kermit/ckubwr.html#x3.9
- 82. http://www.columbia.edu/kermit/ckubwr.html#x3.10
- 83. http://www.columbia.edu/kermit/ckubwr.html#x3.11
- 84. http://www.columbia.edu/kermit/ckubwr.html#x3.12
- 85. http://www.columbia.edu/kermit/ckubwr.html#x3.13
- 86. http://www.columbia.edu/kermit/ckubwr.html#x3.14
- 87. http://www.columbia.edu/kermit/ckubwr.html#x3.15
- 88. http://www.columbia.edu/kermit/ckubwr.html#x3.16
- 89. http://www.columbia.edu/kermit/ckubwr.html#x3.17
- 90. http://www.columbia.edu/kermit/ckubwr.html#x3.18
- 91. http://www.columbia.edu/kermit/ckubwr.html#x3.19
- 92. http://www.columbia.edu/kermit/ckubwr.html#x3.20
- 93. http://www.faqs.org/
- 94. http://aplawrence.com/Unixart/newtounix.html
- 95. http://www.columbia.edu/kermit/x3
- 96. mailto:kermit-support@columbia.edu
- 97. http://www.columbia.edu/kermit/support.html
- 98. http://www.columbia.edu/kermit/ckubwr.html#top
- 99. http://www.columbia.edu/kermit/ckubwr.html#contents
- 100. http://www.columbia.edu/kermit/ckubwr.html#x3
- 101. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 102. http://www.pcunix.com/
- 103. http://www.columbia.edu/kermit/ckubwr.html#x3.0.1
- 104. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
- 105. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
- 106. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
- 107. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
- 108. http://www.columbia.edu/kermit/ckubwr.html#x3.0.6
- 109. http://www.columbia.edu/kermit/ckubwr.html#top
- 110. http://www.columbia.edu/kermit/ckubwr.html#contents
- 111. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 112. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
- 113. http://www.columbia.edu/kermit/ckubwr.html#top
- 114. http://www.columbia.edu/kermit/ckubwr.html#contents
- 115. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 116. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
- 117. http://www.columbia.edu/kermit/ckubwr.html#x3.0.1
- 118. http://www.linmodems.org/
- 119. http://www.microsoft.com/hwdev/platform/PCdesign/LR/default.asp
- 120. http://www.columbia.edu/kermit/ckubwr.html#top
- 121. http://www.columbia.edu/kermit/ckubwr.html#contents
- 122. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 123. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
+ 46. http://www.columbia.edu/kermit/ckubwr.html#x1.3
+ 47. http://www.columbia.edu/kermit/ckubwr.html#x1.4
+ 48. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 49. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 50. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 51. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 52. http://www.columbia.edu/kermit/ckcbwr.html
+ 53. mailto:kermit-support@columbia.edu
+ 54. http://www.columbia.edu/kermit/ckubwr.html#top
+ 55. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 56. http://www.columbia.edu/kermit/ckubwr.html#x1.2
+ 57. http://www.columbia.edu/kermit/ck60manual.html
+ 58. http://www.columbia.edu/kermit/ckermit70.html
+ 59. http://www.columbia.edu/kermit/ckermit80.html
+ 60. http://www.columbia.edu/kermit/ckermit90.html
+ 61. http://www.columbia.edu/kermit/ckubwr.html#top
+ 62. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 63. http://www.columbia.edu/kermit/ckubwr.html#x1
+ 64. http://www.columbia.edu/kermit/ckubwr.html#x1.3
+ 65. http://www.columbia.edu/kermit/ckubwr.html#x1.1
+ 66. http://www.columbia.edu/kermit/support.html
+ 67. http://www.columbia.edu/kermit/ckubwr.html#top
+ 68. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 69. http://www.columbia.edu/kermit/ckubwr.html#x1
+ 70. http://www.columbia.edu/kermit/ckubwr.html#x1.4
+ 71. http://www.columbia.edu/kermit/ckubwr.html#x1.2
+ 72. http://www.columbia.edu/kermit/ckubwr.html#top
+ 73. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 74. http://www.columbia.edu/kermit/ckubwr.html#x1
+ 75. http://www.columbia.edu/kermit/ckubwr.html#x1.3
+ 76. http://www.columbia.edu/kermit/ckubwr.html#top
+ 77. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 78. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 79. http://www.columbia.edu/kermit/ckubwr.html#x1
+ 80. http://www.columbia.edu/kermit/ckubwr.html#top
+ 81. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 82. http://www.columbia.edu/kermit/ckubwr.html#x4
+ 83. http://www.columbia.edu/kermit/ckubwr.html#x2
+ 84. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 85. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 86. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 87. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 88. http://www.columbia.edu/kermit/ckubwr.html#x3.4
+ 89. http://www.columbia.edu/kermit/ckubwr.html#x3.5
+ 90. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 91. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 92. http://www.columbia.edu/kermit/ckubwr.html#x3.8
+ 93. http://www.columbia.edu/kermit/ckubwr.html#x3.9
+ 94. http://www.columbia.edu/kermit/ckubwr.html#x3.10
+ 95. http://www.columbia.edu/kermit/ckubwr.html#x3.11
+ 96. http://www.columbia.edu/kermit/ckubwr.html#x3.12
+ 97. http://www.columbia.edu/kermit/ckubwr.html#x3.13
+ 98. http://www.columbia.edu/kermit/ckubwr.html#x3.14
+ 99. http://www.columbia.edu/kermit/ckubwr.html#x3.15
+ 100. http://www.columbia.edu/kermit/ckubwr.html#x3.16
+ 101. http://www.columbia.edu/kermit/ckubwr.html#x3.17
+ 102. http://www.columbia.edu/kermit/ckubwr.html#x3.18
+ 103. http://www.columbia.edu/kermit/ckubwr.html#x3.19
+ 104. http://www.columbia.edu/kermit/ckubwr.html#x3.20
+ 105. http://www.faqs.org/
+ 106. http://aplawrence.com/Unixart/newtounix.html
+ 107. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 108. mailto:kermit-support@columbia.edu
+ 109. http://www.columbia.edu/kermit/support.html
+ 110. http://www.columbia.edu/kermit/ckubwr.html#top
+ 111. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 112. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 113. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 114. http://www.pcunix.com/
+ 115. http://www.columbia.edu/kermit/ckubwr.html#x3.0.1
+ 116. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
+ 117. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
+ 118. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
+ 119. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
+ 120. http://www.columbia.edu/kermit/ckubwr.html#x3.0.6
+ 121. http://www.columbia.edu/kermit/ckubwr.html#top
+ 122. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 123. http://www.columbia.edu/kermit/ckubwr.html#x3.0
124. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
- 125. http://www.idir.net/~gromitkc/winmodem.html
- 126. http://www.digi.com/
- 127. http://www.columbia.edu/kermit/ckubwr.html#top
- 128. http://www.columbia.edu/kermit/ckubwr.html#contents
- 129. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 130. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
- 131. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
+ 125. http://www.columbia.edu/kermit/ckubwr.html#top
+ 126. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 127. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 128. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
+ 129. http://www.columbia.edu/kermit/ckubwr.html#x3.0.1
+ 130. http://www.linmodems.org/
+ 131. http://www.microsoft.com/hwdev/platform/PCdesign/LR/default.asp
132. http://www.columbia.edu/kermit/ckubwr.html#top
133. http://www.columbia.edu/kermit/ckubwr.html#contents
134. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 135. http://www.columbia.edu/kermit/ckubwr.html#x3.0.6
- 136. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
- 137. http://www.columbia.edu/kermit/ckubwr.html#top
- 138. http://www.columbia.edu/kermit/ckubwr.html#contents
- 139. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 140. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
- 141. http://www.columbia.edu/kermit/ckubwr.html#top
- 142. http://www.columbia.edu/kermit/ckubwr.html#contents
- 143. http://www.columbia.edu/kermit/ckubwr.html#x3
- 144. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 145. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 146. http://www.columbia.edu/kermit/ckubwr.html#x3.1.1
- 147. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
- 148. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
- 149. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
- 150. http://www.columbia.edu/kermit/ckubwr.html#x3.1.5
- 151. http://www.emerson.emory.edu/services/aix-faq/
- 152. http://www.faqs.org/faqs/by-newsgroup/comp/comp.unix.aix.html
- 153. http://www.cis.ohio-state.edu/hypertext/faq/usenet/aix-faq/top.html
- 154. http://aixpdslib.seas.ucla.edu/
- 155. http://www.rootvg.net (AIX history)/
- 156. ftp://rtfm.mit.edu/pub/usenet/news.answers/aix-faq/part1
- 157. ftp://mirrors.aol.com/pub/rtfm/usenet-by-hierarchy/comp/unix/aix
- 158. news:comp.unix.aix
- 159. http://www.columbia.edu/kermit/ckubwr.html#top
- 160. http://www.columbia.edu/kermit/ckubwr.html#contents
- 161. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 162. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
- 163. http://www.columbia.edu/kermit/ckubwr.html#top
- 164. http://www.columbia.edu/kermit/ckubwr.html#contents
- 165. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 166. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
- 167. http://www.columbia.edu/kermit/ckubwr.html#x3.1.1
- 168. http://www.columbia.edu/kermit/security.html#servers
- 169. http://www.columbia.edu/kermit/ckubwr.html#top
- 170. http://www.columbia.edu/kermit/ckubwr.html#contents
- 171. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 172. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
- 173. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
- 174. http://service.software.ibm.com/rs6000/
+ 135. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
+ 136. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
+ 137. http://www.idir.net/~gromitkc/winmodem.html
+ 138. http://www.digi.com/
+ 139. http://www.columbia.edu/kermit/ckubwr.html#top
+ 140. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 141. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 142. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
+ 143. http://www.columbia.edu/kermit/ckubwr.html#x3.0.3
+ 144. http://www.columbia.edu/kermit/ckubwr.html#top
+ 145. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 146. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 147. http://www.columbia.edu/kermit/ckubwr.html#x3.0.6
+ 148. http://www.columbia.edu/kermit/ckubwr.html#x3.0.4
+ 149. http://www.columbia.edu/kermit/ckubwr.html#top
+ 150. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 151. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 152. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
+ 153. http://www.columbia.edu/kermit/ckubwr.html#top
+ 154. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 155. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 156. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 157. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 158. http://www.columbia.edu/kermit/ckubwr.html#x3.1.1
+ 159. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
+ 160. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
+ 161. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
+ 162. http://www.columbia.edu/kermit/ckubwr.html#x3.1.5
+ 163. http://www.emerson.emory.edu/services/aix-faq/
+ 164. http://www.faqs.org/faqs/by-newsgroup/comp/comp.unix.aix.html
+ 165. http://www.cis.ohio-state.edu/hypertext/faq/usenet/aix-faq/top.html
+ 166. http://aixpdslib.seas.ucla.edu/
+ 167. http://www.rootvg.net(AIXhistory)/
+ 168. ftp://rtfm.mit.edu/pub/usenet/news.answers/aix-faq/part1
+ 169. ftp://mirrors.aol.com/pub/rtfm/usenet-by-hierarchy/comp/unix/aix
+ 170. news:comp.unix.aix
+ 171. http://www.columbia.edu/kermit/ckubwr.html#top
+ 172. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 173. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 174. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
175. http://www.columbia.edu/kermit/ckubwr.html#top
176. http://www.columbia.edu/kermit/ckubwr.html#contents
177. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 178. http://www.columbia.edu/kermit/ckubwr.html#x3.1.5
- 179. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
- 180. http://www.columbia.edu/kermit/ckubwr.html#top
- 181. http://www.columbia.edu/kermit/ckubwr.html#contents
- 182. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 183. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
- 184. http://www.columbia.edu/kermit/ckubwr.html#top
- 185. http://www.columbia.edu/kermit/ckubwr.html#contents
- 186. http://www.columbia.edu/kermit/ckubwr.html#x3
- 187. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 188. http://www.columbia.edu/kermit/ckubwr.html#x3.1
- 189. http://www.columbia.edu/kermit/ckubwr.html#x3.2.0
- 190. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
- 191. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
- 192. http://www.columbia.edu/kermit/ckubwr.html#x3.2.3
- 193. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 194. http://www.columbia.edu/kermit/ckubwr.html#x3.2.5
- 195. news:comp.sys.hp.hpux
+ 178. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
+ 179. http://www.columbia.edu/kermit/ckubwr.html#x3.1.1
+ 180. http://www.columbia.edu/kermit/security.html#servers
+ 181. http://www.columbia.edu/kermit/ckubwr.html#top
+ 182. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 183. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 184. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
+ 185. http://www.columbia.edu/kermit/ckubwr.html#x3.1.2
+ 186. http://service.software.ibm.com/rs6000/
+ 187. http://www.columbia.edu/kermit/ckubwr.html#top
+ 188. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 189. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 190. http://www.columbia.edu/kermit/ckubwr.html#x3.1.5
+ 191. http://www.columbia.edu/kermit/ckubwr.html#x3.1.3
+ 192. http://www.columbia.edu/kermit/ckubwr.html#top
+ 193. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 194. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 195. http://www.columbia.edu/kermit/ckubwr.html#x3.1.4
196. http://www.columbia.edu/kermit/ckubwr.html#top
197. http://www.columbia.edu/kermit/ckubwr.html#contents
- 198. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 199. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
- 200. http://www.columbia.edu/kermit/ckubwr.html#top
- 201. http://www.columbia.edu/kermit/ckubwr.html#contents
- 202. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 198. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 199. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 200. http://www.columbia.edu/kermit/ckubwr.html#x3.1
+ 201. http://www.columbia.edu/kermit/ckubwr.html#x3.2.0
+ 202. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
203. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
- 204. http://www.columbia.edu/kermit/ckubwr.html#x3.2.0
- 205. ftp://kermit.columbia.edu/kermit/f/makefile
- 206. http://www.columbia.edu/kermit/ckubwr.html#top
- 207. http://www.columbia.edu/kermit/ckubwr.html#contents
- 208. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 209. http://www.columbia.edu/kermit/ckubwr.html#x3.2.3
- 210. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
- 211. http://www.columbia.edu/kermit/ckubwr.html#top
- 212. http://www.columbia.edu/kermit/ckubwr.html#contents
- 213. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 214. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 204. http://www.columbia.edu/kermit/ckubwr.html#x3.2.3
+ 205. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 206. http://www.columbia.edu/kermit/ckubwr.html#x3.2.5
+ 207. news:comp.sys.hp.hpux
+ 208. http://www.columbia.edu/kermit/ckubwr.html#top
+ 209. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 210. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 211. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
+ 212. http://www.columbia.edu/kermit/ckubwr.html#top
+ 213. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 214. http://www.columbia.edu/kermit/ckubwr.html#x3.2
215. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
- 216. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.1
- 217. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
- 218. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
- 219. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
- 220. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.5
- 221. http://www.columbia.edu/kermit/ckubwr.html#top
- 222. http://www.columbia.edu/kermit/ckubwr.html#contents
- 223. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 224. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
- 225. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
- 226. http://www.columbia.edu/kermit/ckubwr.html#top
- 227. http://www.columbia.edu/kermit/ckubwr.html#contents
- 228. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 229. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
- 230. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.1
- 231. http://www.columbia.edu/kermit/ckubwr.html#top
- 232. http://www.columbia.edu/kermit/ckubwr.html#contents
- 233. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 234. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
- 235. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
- 236. http://www.columbia.edu/kermit/ckubwr.html#top
- 237. http://www.columbia.edu/kermit/ckubwr.html#contents
- 238. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 239. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.5
- 240. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
- 241. http://www.columbia.edu/kermit/ckubwr.html#top
- 242. http://www.columbia.edu/kermit/ckubwr.html#contents
- 243. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 244. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
- 245. http://www.columbia.edu/kermit/ckubwr.html#top
- 246. http://www.columbia.edu/kermit/ckubwr.html#contents
- 247. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 248. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
- 249. http://www.columbia.edu/kermit/ckubwr.html#top
- 250. http://www.columbia.edu/kermit/ckubwr.html#contents
- 251. http://www.columbia.edu/kermit/ckubwr.html#x3
- 252. http://www.columbia.edu/kermit/ckubwr.html#x3.4
- 253. http://www.columbia.edu/kermit/ckubwr.html#x3.2
- 254. http://www.columbia.edu/kermit/ckubwr.html#x3.3.1
- 255. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
- 256. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
- 257. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
- 258. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
- 259. http://www.columbia.edu/kermit/ckubwr.html#x3.3.6
- 260. news:comp.os.linux.misc
- 261. news:comp.os.linux.answers
- 262. http://www.tldp.org/
- 263. http://www.tldp.org/FAQ/Linux-FAQ.html
- 264. http://www.tldp.org/HOWTO/Serial-HOWTO.html
- 265. http://tldp.org/HOWTO/Modem-HOWTO.html
- 266. ftp://sunsite.unc.edu/pub/Linux/docs/HOWTO
- 267. ftp://tsx-11.mit.edu/pub/linux/docs/HOWTO
- 268. http://www.tldp.org/HOWTO/
- 269. http://www.tldp.org/hmirrors.html
- 270. http://www.redhat.com/apps/support/
- 271. http://www.debian.org/support
- 272. http://www.slackware.com/support/
- 273. http://www.caldera.com/support/
- 274. http://www.suse.com/support/
- 275. http://www.mandrake.com/support/
- 276. http://www.turbolinux.com/support/
- 277. http://www.linmodems.org/
- 278. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 279. http://linux.dreamtime.org/decnet/
- 280. mailto:kermit-support@columbia.edu
- 281. http://www.linmodems.org/
- 282. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
- 283. http://www.columbia.edu/kermit/security.html#servers
- 284. http://www.columbia.edu/kermit/sshclient.html
- 285. http://www.columbia.edu/kermit/ckubwr.html#top
- 286. http://www.columbia.edu/kermit/ckubwr.html#contents
- 287. http://www.columbia.edu/kermit/ckubwr.html#x3
- 288. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
- 289. http://www.columbia.edu/kermit/ckubwr.html#top
- 290. http://www.columbia.edu/kermit/ckubwr.html#contents
- 291. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 292. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
- 293. http://www.columbia.edu/kermit/ckubwr.html#x3.3.1
- 294. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 295. http://www.columbia.edu/kermit/ckubwr.html#x6
- 296. http://www.columbia.edu/kermit/ckubwr.html#x7
- 297. http://www.columbia.edu/kermit/ckubwr.html#x8
- 298. http://www.columbia.edu/kermit/ckuins.html#x10
- 299. http://www.columbia.edu/kermit/ckuins.html#x11
- 300. http://www.columbia.edu/kermit/ckuins.html
- 301. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 302. http://linuxwww.db.erau.edu/mail_archives/linux-kernel/Mar_98/1441.html
- 303. http://www.columbia.edu/kermit/ckubwr.html#top
- 304. http://www.columbia.edu/kermit/ckubwr.html#contents
- 305. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 306. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
- 307. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
- 308. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
- 309. http://www.columbia.edu/kermit/ckfaq.html#term
- 310. http://dickey.his.com/xterm/xterm.html
- 311. http://dickey.his.com/xterm/xterm.html
- 312. ftp://kermit.columbia.edu/kermit/f/xmodmap.txt
- 313. http://www.columbia.edu/kermit/ckubwr.html#top
- 314. http://www.columbia.edu/kermit/ckubwr.html#contents
- 315. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 316. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
- 317. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
- 318. http://www.columbia.edu/kermit/ckubwr.html#top
- 319. http://www.columbia.edu/kermit/ckubwr.html#contents
- 320. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 321. http://www.columbia.edu/kermit/ckubwr.html#x3.3.6
- 322. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
- 323. http://www.columbia.edu/kermit/ckermit.html
- 324. mailto:kermit-support@columbia.edu
- 325. http://www.redhat.com/support/errata/RHBA-2001-153.html
- 326. news:comp.protocols.kermit.misc
- 327. http://www.columbia.edu/kermit/ckubwr.html#top
- 328. http://www.columbia.edu/kermit/ckubwr.html#contents
- 329. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 330. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
+ 216. http://www.columbia.edu/kermit/ckubwr.html#x3.2.0
+ 217. ftp://kermit.columbia.edu/kermit/f/makefile
+ 218. http://www.columbia.edu/kermit/ckubwr.html#top
+ 219. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 220. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 221. http://www.columbia.edu/kermit/ckubwr.html#x3.2.3
+ 222. http://www.columbia.edu/kermit/ckubwr.html#x3.2.1
+ 223. http://www.columbia.edu/kermit/ckubwr.html#top
+ 224. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 225. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 226. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 227. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
+ 228. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.1
+ 229. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
+ 230. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
+ 231. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
+ 232. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.5
+ 233. http://www.columbia.edu/kermit/ckubwr.html#top
+ 234. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 235. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 236. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
+ 237. http://www.columbia.edu/kermit/ckubwr.html#x3.2.2
+ 238. http://www.columbia.edu/kermit/ckubwr.html#top
+ 239. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 240. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 241. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
+ 242. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.1
+ 243. http://www.columbia.edu/kermit/ckubwr.html#top
+ 244. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 245. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 246. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
+ 247. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.2
+ 248. http://www.columbia.edu/kermit/ckubwr.html#top
+ 249. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 250. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 251. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.5
+ 252. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.3
+ 253. http://www.columbia.edu/kermit/ckubwr.html#top
+ 254. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 255. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 256. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4.4
+ 257. http://www.columbia.edu/kermit/ckubwr.html#top
+ 258. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 259. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 260. http://www.columbia.edu/kermit/ckubwr.html#x3.2.4
+ 261. http://www.columbia.edu/kermit/ckubwr.html#top
+ 262. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 263. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 264. http://www.columbia.edu/kermit/ckubwr.html#x3.4
+ 265. http://www.columbia.edu/kermit/ckubwr.html#x3.2
+ 266. http://www.columbia.edu/kermit/ckubwr.html#x3.3.1
+ 267. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
+ 268. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
+ 269. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
+ 270. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
+ 271. http://www.columbia.edu/kermit/ckubwr.html#x3.3.6
+ 272. http://en.wikipedia.org/wiki/Avahi_(software)
+ 273. news:comp.os.linux.misc
+ 274. news:comp.os.linux.answers
+ 275. http://www.tldp.org/
+ 276. http://www.tldp.org/FAQ/Linux-FAQ.html
+ 277. http://www.tldp.org/HOWTO/Serial-HOWTO.html
+ 278. http://tldp.org/HOWTO/Modem-HOWTO.html
+ 279. ftp://sunsite.unc.edu/pub/Linux/docs/HOWTO
+ 280. ftp://tsx-11.mit.edu/pub/linux/docs/HOWTO
+ 281. http://www.tldp.org/HOWTO/
+ 282. http://www.tldp.org/hmirrors.html
+ 283. http://www.redhat.com/apps/support/
+ 284. http://www.debian.org/support
+ 285. http://www.slackware.com/support/
+ 286. http://www.caldera.com/support/
+ 287. http://www.novell.com/support/microsites/microsite.do
+ 288. http://www.mandrake.com/support/
+ 289. http://www.turbolinux.com/support/
+ 290. http://www.linmodems.org/
+ 291. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 292. http://linux.dreamtime.org/decnet/
+ 293. mailto:kermit-support@columbia.edu
+ 294. http://www.linmodems.org/
+ 295. http://www.columbia.edu/kermit/ckubwr.html#x3.0.2
+ 296. http://www.columbia.edu/kermit/security.html#servers
+ 297. http://www.columbia.edu/kermit/sshclient.html
+ 298. http://www.columbia.edu/kermit/ckubwr.html#top
+ 299. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 300. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 301. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
+ 302. http://www.columbia.edu/kermit/ckubwr.html#top
+ 303. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 304. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 305. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
+ 306. http://www.columbia.edu/kermit/ckubwr.html#x3.3.1
+ 307. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 308. http://www.columbia.edu/kermit/ckubwr.html#x6
+ 309. http://www.columbia.edu/kermit/ckubwr.html#x7
+ 310. http://www.columbia.edu/kermit/ckubwr.html#x8
+ 311. http://www.columbia.edu/kermit/ckuins.html#x10
+ 312. http://www.columbia.edu/kermit/ckuins.html#x11
+ 313. http://www.columbia.edu/kermit/ckuins.html
+ 314. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 315. http://linuxwww.db.erau.edu/mail_archives/linux-kernel/Mar_98/1441.html
+ 316. http://www.columbia.edu/kermit/ckubwr.html#top
+ 317. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 318. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 319. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
+ 320. http://www.columbia.edu/kermit/ckubwr.html#x3.3.2
+ 321. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
+ 322. http://www.columbia.edu/kermit/ckfaq.html#term
+ 323. http://dickey.his.com/xterm/xterm.html
+ 324. http://dickey.his.com/xterm/xterm.html
+ 325. ftp://kermit.columbia.edu/kermit/f/xmodmap.txt
+ 326. http://www.columbia.edu/kermit/ckubwr.html#top
+ 327. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 328. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 329. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
+ 330. http://www.columbia.edu/kermit/ckubwr.html#x3.3.3
331. http://www.columbia.edu/kermit/ckubwr.html#top
332. http://www.columbia.edu/kermit/ckubwr.html#contents
- 333. http://www.columbia.edu/kermit/ckubwr.html#x3
- 334. http://www.columbia.edu/kermit/ckubwr.html#x3.5
- 335. http://www.columbia.edu/kermit/ckubwr.html#x3.3
- 336. http://www.columbia.edu/kermit/ckubwr.html#top
- 337. http://www.columbia.edu/kermit/ckubwr.html#contents
- 338. http://www.columbia.edu/kermit/ckubwr.html#x3
- 339. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 340. http://www.columbia.edu/kermit/ckubwr.html#x3.4
- 341. news:comp.os.qnx
- 342. http://www.columbia.edu/kermit/gkermit.html
- 343. http://www.columbia.edu/kermit/ckuins.html#x10
- 344. http://www.columbia.edu/kermit/ckuins.html
- 345. http://www.columbia.edu/kermit/ckubwr.html#top
- 346. http://www.columbia.edu/kermit/ckubwr.html#contents
- 347. http://www.columbia.edu/kermit/ckubwr.html#x3
- 348. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 349. http://www.columbia.edu/kermit/ckubwr.html#x3.5
- 350. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
- 351. http://www.columbia.edu/kermit/ckubwr.html#x3.6.2
- 352. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
- 353. http://www.columbia.edu/kermit/ckubwr.html#x3.6.4
- 354. http://www.columbia.edu/kermit/ckubwr.html#x3.10
- 355. http://aplawrence.com/SCOFAQ/
- 356. http://www.zenez.com/cgi-bin/scoprogfaq/faq.pl
- 357. http://www.zenez.com/cgi-bin/scouw7faq/faq.pl
- 358. http://zenez.pcunix.com/cgi-bin/scouw7faq/faq.pl
- 359. http://pcunix.com/Unixart/modems.html
- 360. http://www.freebird.org/faq/
- 361. http://www.freebird.org/faq/developer.html
- 362. http://support.caldera.com/caldera
- 363. http://stage.caldera.com/ta/
- 364. http://aplawrence.com/newtosco.html
- 365. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
- 366. http://www.columbia.edu/kermit/ckfaq.html#term
- 367. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 368. http://www.columbia.edu/kermit/ckubwr.html#top
- 369. http://www.columbia.edu/kermit/ckubwr.html#contents
- 370. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 371. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
- 372. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 373. http://www.columbia.edu/kermit/ckubwr.html#top
- 374. http://www.columbia.edu/kermit/ckubwr.html#contents
- 375. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 376. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
- 377. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
- 378. http://www.digi.com/
- 379. ftp://ftp.fu-berlin.de/pub/unix/driver/fas
- 380. http://www.columbia.edu/kermit/ckubwr.html#x14
- 381. http://www.sco.com/
- 382. ftp://ftp.sco.com/
- 383. http://www.columbia.edu/kermit/ckubwr.html#top
- 384. http://www.columbia.edu/kermit/ckubwr.html#contents
- 385. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 386. http://www.columbia.edu/kermit/ckubwr.html#x3.6.4
- 387. http://www.columbia.edu/kermit/ckubwr.html#x3.6.2
- 388. http://www.columbia.edu/kermit/ckubwr.html#x3.10
- 389. http://www.columbia.edu/kermit/ckubwr.html#top
- 390. http://www.columbia.edu/kermit/ckubwr.html#contents
- 391. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 392. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
- 393. http://www.columbia.edu/kermit/ckubwr.html#top
- 394. http://www.columbia.edu/kermit/ckubwr.html#contents
- 395. http://www.columbia.edu/kermit/ckubwr.html#x3
- 396. http://www.columbia.edu/kermit/ckubwr.html#x3.8
- 397. http://www.columbia.edu/kermit/ckubwr.html#x3.6
- 398. http://www.columbia.edu/kermit/ckubwr.html#x3.7.1
- 399. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
- 400. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
- 401. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
- 402. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
- 403. news:comp.unix.solaris
- 404. http://access1.sun.com/
- 405. http://docs.sun.com/
- 406. http://www.sunhelp.com/
- 407. http://www.wins.uva.nl/pub/solaris/solaris2/
- 408. http://www.wins.uva.nl/cgi-bin/sfaq.cgi
- 409. ftp://ftp.wins.uva.nl/pub/solaris
- 410. http://www.science.uva.nl/pub/solaris/solaris2.html
- 411. http://www.stokely.com/
- 412. http://www.stokely.com/unix.sysadm.resources/faqs.sun.html
- 413. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 414. http://www.columbia.edu/kermit/ckubwr.html#top
- 415. http://www.columbia.edu/kermit/ckubwr.html#contents
- 416. http://www.columbia.edu/kermit/ckubwr.html#x3
- 417. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 418. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
- 419. http://www.columbia.edu/kermit/ckubwr.html#top
- 420. http://www.columbia.edu/kermit/ckubwr.html#contents
- 421. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 422. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
- 423. http://www.columbia.edu/kermit/ckubwr.html#x3.7.1
- 424. http://www.columbia.edu/kermit/ckubwr.html#top
- 425. http://www.columbia.edu/kermit/ckubwr.html#contents
- 426. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 427. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
- 428. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
- 429. http://www.columbia.edu/kermit/ckubwr.html#top
- 430. http://www.columbia.edu/kermit/ckubwr.html#contents
- 431. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 432. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
- 433. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
- 434. news:comp.os.vms
- 435. http://www.columbia.edu/kermit/ckubwr.html#top
- 436. http://www.columbia.edu/kermit/ckubwr.html#contents
- 437. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 438. http://www.columbia.edu/kermit/ckubwr.html#x3.7.6
- 439. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
- 440. http://www.columbia.edu/kermit/ckubwr.html#top
- 441. http://www.columbia.edu/kermit/ckubwr.html#contents
- 442. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 443. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
- 444. http://www.columbia.edu/kermit/ckubwr.html#top
- 445. http://www.columbia.edu/kermit/ckubwr.html#contents
- 446. http://www.columbia.edu/kermit/ckubwr.html#x3
- 447. http://www.columbia.edu/kermit/ckubwr.html#x3.9
- 448. http://www.columbia.edu/kermit/ckubwr.html#x3.7
- 449. http://www.stokely.com/
- 450. http://access1.sun.com/
- 451. http://www.ludd.luth.se/~bear/project/sun/sun.hardware.txt
- 452. ftp://ftp.netcom.com/pub/ru/rubicon/sun.hdwr.ref
- 453. ftp://ftp.intnet.net/pub/SUN/Sun-Hardware-Ref
- 454. http://www.columbia.edu/kermit/ckubwr.html#top
- 455. http://www.columbia.edu/kermit/ckubwr.html#contents
- 456. http://www.columbia.edu/kermit/ckubwr.html#x3
- 457. http://www.columbia.edu/kermit/ckubwr.html#x3.10
- 458. http://www.columbia.edu/kermit/ckubwr.html#x3.8
- 459. news:comp.unix.ultrix
- 460. news:comp.sys.dec
- 461. http://www.columbia.edu/kermit/ckubwr.html#top
- 462. http://www.columbia.edu/kermit/ckubwr.html#contents
- 463. http://www.columbia.edu/kermit/ckubwr.html#x3
- 464. http://www.columbia.edu/kermit/ckubwr.html#x3.11
- 465. http://www.columbia.edu/kermit/ckubwr.html#x3.9
- 466. http://www.freebird.org/
- 467. http://www.freebird.org/faq/
- 468. news:comp.unix.unixware.misc
- 469. news:comp.unix.sco.misc
- 470. http://www.columbia.edu/kermit/ckubwr.html#x3.0
- 471. ftp://kermit.columbia.edu/kermit/f/ckutio.c
- 472. http://www.columbia.edu/kermit/ckubwr.html#top
- 473. http://www.columbia.edu/kermit/ckubwr.html#contents
- 474. http://www.columbia.edu/kermit/ckubwr.html#x3
- 475. http://www.columbia.edu/kermit/ckubwr.html#x3.12
- 476. http://www.columbia.edu/kermit/ckubwr.html#x3.10
- 477. http://www.columbia.edu/kermit/ckubwr.html#top
- 478. http://www.columbia.edu/kermit/ckubwr.html#contents
- 479. http://www.columbia.edu/kermit/ckubwr.html#x3
- 480. http://www.columbia.edu/kermit/ckubwr.html#x3.13
- 481. http://www.columbia.edu/kermit/ckubwr.html#x3.11
- 482. http://www.columbia.edu/kermit/ckubwr.html#top
- 483. http://www.columbia.edu/kermit/ckubwr.html#contents
- 484. http://www.columbia.edu/kermit/ckubwr.html#x3
- 485. http://www.columbia.edu/kermit/ckubwr.html#x3.14
- 486. http://www.columbia.edu/kermit/ckubwr.html#x3.12
- 487. http://www.columbia.edu/kermit/ckubwr.html#top
- 488. http://www.columbia.edu/kermit/ckubwr.html#contents
- 489. http://www.columbia.edu/kermit/ckubwr.html#x3
- 490. http://www.columbia.edu/kermit/ckubwr.html#x3.15
- 491. http://www.columbia.edu/kermit/ckubwr.html#x3.13
- 492. news:comp.sys.sgi.misc
- 493. news:comp.sys.sgi.admin
- 494. http://www.sgi.com/
- 495. http://www-viz.tamu.edu/~sgi-faq/
- 496. ftp://viz.tamu.edu/pub/sgi/faq/
- 497. http://www.columbia.edu/kermit/ckuins.html
- 498. http://freeware.sgi.com/Installable/gcc-2.95.2.html
- 499. http://freeware.sgi.com/Installable/gcc-2.95.2.html
+ 333. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 334. http://www.columbia.edu/kermit/ckubwr.html#x3.3.6
+ 335. http://www.columbia.edu/kermit/ckubwr.html#x3.3.4
+ 336. http://www.columbia.edu/kermit/ckermit.html
+ 337. mailto:kermit-support@columbia.edu
+ 338. http://www.redhat.com/support/errata/RHBA-2001-153.html
+ 339. news:comp.protocols.kermit.misc
+ 340. http://www.columbia.edu/kermit/ckubwr.html#top
+ 341. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 342. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 343. http://www.columbia.edu/kermit/ckubwr.html#x3.3.5
+ 344. http://www.columbia.edu/kermit/ckubwr.html#top
+ 345. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 346. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 347. http://www.columbia.edu/kermit/ckubwr.html#x3.5
+ 348. http://www.columbia.edu/kermit/ckubwr.html#x3.3
+ 349. http://www.columbia.edu/kermit/ckubwr.html#top
+ 350. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 351. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 352. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 353. http://www.columbia.edu/kermit/ckubwr.html#x3.4
+ 354. news:comp.os.qnx
+ 355. http://www.columbia.edu/kermit/gkermit.html
+ 356. http://www.columbia.edu/kermit/ckuins.html#x10
+ 357. http://www.columbia.edu/kermit/ckuins.html
+ 358. http://www.columbia.edu/kermit/ckubwr.html#top
+ 359. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 360. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 361. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 362. http://www.columbia.edu/kermit/ckubwr.html#x3.5
+ 363. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
+ 364. http://www.columbia.edu/kermit/ckubwr.html#x3.6.2
+ 365. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
+ 366. http://www.columbia.edu/kermit/ckubwr.html#x3.6.4
+ 367. http://www.columbia.edu/kermit/ckubwr.html#x3.10
+ 368. http://aplawrence.com/SCOFAQ/
+ 369. http://www.zenez.com/cgi-bin/scoprogfaq/faq.pl
+ 370. http://www.zenez.com/cgi-bin/scouw7faq/faq.pl
+ 371. http://zenez.pcunix.com/cgi-bin/scouw7faq/faq.pl
+ 372. http://pcunix.com/Unixart/modems.html
+ 373. http://www.freebird.org/faq/
+ 374. http://www.freebird.org/faq/developer.html
+ 375. http://support.caldera.com/caldera
+ 376. http://stage.caldera.com/ta/
+ 377. http://aplawrence.com/newtosco.html
+ 378. http://www.columbia.edu/kermit/ckubwr.html#x3.0.5
+ 379. http://www.columbia.edu/kermit/ckfaq.html#term
+ 380. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 381. http://www.columbia.edu/kermit/ckubwr.html#top
+ 382. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 383. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 384. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
+ 385. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 386. http://www.columbia.edu/kermit/ckubwr.html#top
+ 387. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 388. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 389. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
+ 390. http://www.columbia.edu/kermit/ckubwr.html#x3.6.1
+ 391. http://www.digi.com/
+ 392. ftp://ftp.fu-berlin.de/pub/unix/driver/fas
+ 393. http://www.columbia.edu/kermit/ckubwr.html#x14
+ 394. http://www.sco.com/
+ 395. ftp://ftp.sco.com/
+ 396. http://www.columbia.edu/kermit/ckubwr.html#top
+ 397. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 398. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 399. http://www.columbia.edu/kermit/ckubwr.html#x3.6.4
+ 400. http://www.columbia.edu/kermit/ckubwr.html#x3.6.2
+ 401. http://www.columbia.edu/kermit/ckubwr.html#x3.10
+ 402. http://www.columbia.edu/kermit/ckubwr.html#top
+ 403. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 404. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 405. http://www.columbia.edu/kermit/ckubwr.html#x3.6.3
+ 406. http://www.columbia.edu/kermit/ckubwr.html#top
+ 407. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 408. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 409. http://www.columbia.edu/kermit/ckubwr.html#x3.8
+ 410. http://www.columbia.edu/kermit/ckubwr.html#x3.6
+ 411. http://www.columbia.edu/kermit/ckubwr.html#x3.7.1
+ 412. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
+ 413. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
+ 414. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
+ 415. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
+ 416. news:comp.unix.solaris
+ 417. http://access1.sun.com/
+ 418. http://docs.sun.com/
+ 419. http://www.sunhelp.com/
+ 420. http://www.wins.uva.nl/pub/solaris/solaris2/
+ 421. http://www.wins.uva.nl/cgi-bin/sfaq.cgi
+ 422. ftp://ftp.wins.uva.nl/pub/solaris
+ 423. http://www.science.uva.nl/pub/solaris/solaris2.html
+ 424. http://www.stokely.com/
+ 425. http://www.stokely.com/unix.sysadm.resources/faqs.sun.html
+ 426. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 427. http://www.columbia.edu/kermit/ckubwr.html#top
+ 428. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 429. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 430. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 431. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
+ 432. http://www.columbia.edu/kermit/ckubwr.html#top
+ 433. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 434. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 435. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
+ 436. http://www.columbia.edu/kermit/ckubwr.html#x3.7.1
+ 437. http://www.columbia.edu/kermit/ckubwr.html#top
+ 438. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 439. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 440. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
+ 441. http://www.columbia.edu/kermit/ckubwr.html#x3.7.2
+ 442. http://www.columbia.edu/kermit/ckubwr.html#top
+ 443. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 444. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 445. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
+ 446. http://www.columbia.edu/kermit/ckubwr.html#x3.7.3
+ 447. news:comp.os.vms
+ 448. http://www.columbia.edu/kermit/ckubwr.html#top
+ 449. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 450. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 451. http://www.columbia.edu/kermit/ckubwr.html#x3.7.6
+ 452. http://www.columbia.edu/kermit/ckubwr.html#x3.7.4
+ 453. http://www.columbia.edu/kermit/ckubwr.html#top
+ 454. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 455. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 456. http://www.columbia.edu/kermit/ckubwr.html#x3.7.5
+ 457. http://www.columbia.edu/kermit/ckubwr.html#top
+ 458. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 459. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 460. http://www.columbia.edu/kermit/ckubwr.html#x3.9
+ 461. http://www.columbia.edu/kermit/ckubwr.html#x3.7
+ 462. http://www.stokely.com/
+ 463. http://access1.sun.com/
+ 464. http://www.ludd.luth.se/~bear/project/sun/sun.hardware.txt
+ 465. ftp://ftp.netcom.com/pub/ru/rubicon/sun.hdwr.ref
+ 466. ftp://ftp.intnet.net/pub/SUN/Sun-Hardware-Ref
+ 467. http://www.columbia.edu/kermit/ckubwr.html#top
+ 468. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 469. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 470. http://www.columbia.edu/kermit/ckubwr.html#x3.10
+ 471. http://www.columbia.edu/kermit/ckubwr.html#x3.8
+ 472. news:comp.unix.ultrix
+ 473. news:comp.sys.dec
+ 474. http://www.columbia.edu/kermit/ckubwr.html#top
+ 475. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 476. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 477. http://www.columbia.edu/kermit/ckubwr.html#x3.11
+ 478. http://www.columbia.edu/kermit/ckubwr.html#x3.9
+ 479. http://www.freebird.org/
+ 480. http://www.freebird.org/faq/
+ 481. news:comp.unix.unixware.misc
+ 482. news:comp.unix.sco.misc
+ 483. http://www.columbia.edu/kermit/ckubwr.html#x3.0
+ 484. ftp://kermit.columbia.edu/kermit/f/ckutio.c
+ 485. http://www.columbia.edu/kermit/ckubwr.html#top
+ 486. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 487. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 488. http://www.columbia.edu/kermit/ckubwr.html#x3.12
+ 489. http://www.columbia.edu/kermit/ckubwr.html#x3.10
+ 490. http://www.columbia.edu/kermit/ckubwr.html#top
+ 491. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 492. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 493. http://www.columbia.edu/kermit/ckubwr.html#x3.13
+ 494. http://www.columbia.edu/kermit/ckubwr.html#x3.11
+ 495. http://www.columbia.edu/kermit/ckubwr.html#top
+ 496. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 497. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 498. http://www.columbia.edu/kermit/ckubwr.html#x3.14
+ 499. http://www.columbia.edu/kermit/ckubwr.html#x3.12
500. http://www.columbia.edu/kermit/ckubwr.html#top
501. http://www.columbia.edu/kermit/ckubwr.html#contents
502. http://www.columbia.edu/kermit/ckubwr.html#x3
- 503. http://www.columbia.edu/kermit/ckubwr.html#x3.16
- 504. http://www.columbia.edu/kermit/ckubwr.html#x3.14
- 505. news:comp.sys.be
- 506. http://www.columbia.edu/kermit/ckubwr.html#top
- 507. http://www.columbia.edu/kermit/ckubwr.html#contents
- 508. http://www.columbia.edu/kermit/ckubwr.html#x3
- 509. http://www.columbia.edu/kermit/ckubwr.html#x3.17
- 510. http://www.columbia.edu/kermit/ckubwr.html#x3.15
- 511. http://www.columbia.edu/kermit/ckubwr.html#top
- 512. http://www.columbia.edu/kermit/ckubwr.html#contents
- 513. http://www.columbia.edu/kermit/ckubwr.html#x3
- 514. http://www.columbia.edu/kermit/ckubwr.html#x3.18
- 515. http://www.columbia.edu/kermit/ckubwr.html#x3.16
- 516. http://www.columbia.edu/kermit/ckubwr.html#top
- 517. http://www.columbia.edu/kermit/ckubwr.html#contents
- 518. http://www.columbia.edu/kermit/ckubwr.html#x3
- 519. http://www.columbia.edu/kermit/ckubwr.html#x3.19
- 520. http://www.columbia.edu/kermit/ckubwr.html#x3.17
- 521. http://www.columbia.edu/kermit/ckubwr.html#top
- 522. http://www.columbia.edu/kermit/ckubwr.html#contents
- 523. http://www.columbia.edu/kermit/ckubwr.html#x3
- 524. http://www.columbia.edu/kermit/ckubwr.html#x3.20
- 525. http://www.columbia.edu/kermit/ckubwr.html#x3.18
- 526. http://www.keyspan.com/products/usb/adapter/
- 527. http://www.columbia.edu/kermit/ckuins.html
- 528. http://cerebus.sandiego.edu/~jerry/UnixTips/
+ 503. http://www.columbia.edu/kermit/ckubwr.html#x3.15
+ 504. http://www.columbia.edu/kermit/ckubwr.html#x3.13
+ 505. news:comp.sys.sgi.misc
+ 506. news:comp.sys.sgi.admin
+ 507. http://www.sgi.com/
+ 508. http://www-viz.tamu.edu/~sgi-faq/
+ 509. ftp://viz.tamu.edu/pub/sgi/faq/
+ 510. http://www.columbia.edu/kermit/ckuins.html
+ 511. http://freeware.sgi.com/Installable/gcc-2.95.2.html
+ 512. http://freeware.sgi.com/Installable/gcc-2.95.2.html
+ 513. http://www.columbia.edu/kermit/ckubwr.html#top
+ 514. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 515. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 516. http://www.columbia.edu/kermit/ckubwr.html#x3.16
+ 517. http://www.columbia.edu/kermit/ckubwr.html#x3.14
+ 518. news:comp.sys.be
+ 519. http://www.columbia.edu/kermit/ckubwr.html#top
+ 520. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 521. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 522. http://www.columbia.edu/kermit/ckubwr.html#x3.17
+ 523. http://www.columbia.edu/kermit/ckubwr.html#x3.15
+ 524. http://www.columbia.edu/kermit/ckubwr.html#top
+ 525. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 526. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 527. http://www.columbia.edu/kermit/ckubwr.html#x3.18
+ 528. http://www.columbia.edu/kermit/ckubwr.html#x3.16
529. http://www.columbia.edu/kermit/ckubwr.html#top
530. http://www.columbia.edu/kermit/ckubwr.html#contents
531. http://www.columbia.edu/kermit/ckubwr.html#x3
532. http://www.columbia.edu/kermit/ckubwr.html#x3.19
- 533. http://www.uni-giessen.de/faq/archiv/coherent-faq.general/msg00000.html
+ 533. http://www.columbia.edu/kermit/ckubwr.html#x3.17
534. http://www.columbia.edu/kermit/ckubwr.html#top
535. http://www.columbia.edu/kermit/ckubwr.html#contents
- 536. http://www.columbia.edu/kermit/ckubwr.html#x5
- 537. http://www.columbia.edu/kermit/ckubwr.html#x3
- 538. http://www.columbia.edu/kermit/ckccfg.html
- 539. http://www.columbia.edu/kermit/ckubwr.html#top
- 540. http://www.columbia.edu/kermit/ckubwr.html#contents
- 541. http://www.columbia.edu/kermit/ckubwr.html#x6
- 542. http://www.columbia.edu/kermit/ckubwr.html#x4
- 543. http://www.columbia.edu/kermit/ckuins.html
- 544. http://www.columbia.edu/kermit/ckubwr.html#top
- 545. http://www.columbia.edu/kermit/ckubwr.html#contents
- 546. http://www.columbia.edu/kermit/ckubwr.html#x7
- 547. http://www.columbia.edu/kermit/ckubwr.html#x5
- 548. http://www.columbia.edu/kermit/ckuins.html#9.5
- 549. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 536. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 537. http://www.columbia.edu/kermit/ckubwr.html#x3.20
+ 538. http://www.columbia.edu/kermit/ckubwr.html#x3.18
+ 539. http://www.columbia.edu/kermit/mac.html
+ 540. http://www.amazon.com/gp/product/B0000VYJRY?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=390957&creativeASIN=B0000VYJRY
+ 541. http://www.columbia.edu/kermit/ckuins.html#x10
+ 542. http://www.columbia.edu/kermit/ckuins.html
+ 543. http://www.amazon.com/gp/product/B000FX61MS?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=390957&creativeASIN=B000FX61MS
+ 544. mailto:kermit@columbia.edu
+ 545. http://www.columbia.edu/kermit/ckubwr.html#top
+ 546. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 547. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 548. http://www.columbia.edu/kermit/ckubwr.html#x3.19
+ 549. http://www.uni-giessen.de/faq/archiv/coherent-faq.general/msg00000.html
550. http://www.columbia.edu/kermit/ckubwr.html#top
551. http://www.columbia.edu/kermit/ckubwr.html#contents
- 552. http://www.columbia.edu/kermit/ckubwr.html#x8
- 553. http://www.columbia.edu/kermit/ckubwr.html#x6
- 554. http://www.columbia.edu/kermit/ckuins.html#x8
- 555. http://www.columbia.edu/kermit/ckuins.html
- 556. http://www.columbia.edu/kermit/ck60manual.html
- 557. http://www.columbia.edu/kermit/ckubwr.html#top
- 558. http://www.columbia.edu/kermit/ckubwr.html#contents
- 559. http://www.columbia.edu/kermit/ckubwr.html#x9
- 560. http://www.columbia.edu/kermit/ckubwr.html#x7
- 561. http://www.columbia.edu/kermit/ckubwr.html#top
- 562. http://www.columbia.edu/kermit/ckubwr.html#contents
- 563. http://www.columbia.edu/kermit/ckubwr.html#x10
- 564. http://www.columbia.edu/kermit/ckubwr.html#x8
- 565. http://www.columbia.edu/kermit/ck60manual.html
- 566. http://dickey.his.com/xterm/xterm.html
- 567. http://www.columbia.edu/kermit/ckubwr.html#top
- 568. http://www.columbia.edu/kermit/ckubwr.html#contents
- 569. http://www.columbia.edu/kermit/ckubwr.html#x11
- 570. http://www.columbia.edu/kermit/ckubwr.html#x9
- 571. http://www.columbia.edu/kermit/ckubwr.html#top
- 572. http://www.columbia.edu/kermit/ckubwr.html#contents
- 573. http://www.columbia.edu/kermit/ckubwr.html#x12
- 574. http://www.columbia.edu/kermit/ckubwr.html#x10
- 575. http://www.columbia.edu/kermit/ckubwr.html#x11.1
- 576. http://www.columbia.edu/kermit/ckubwr.html#x11.2
- 577. http://www.columbia.edu/kermit/ckubwr.html#top
- 578. http://www.columbia.edu/kermit/ckubwr.html#contents
- 579. http://www.columbia.edu/kermit/ckubwr.html#x11
- 580. http://www.columbia.edu/kermit/ckubwr.html#x11.2
- 581. http://www.columbia.edu/kermit/ck60manual.html
- 582. http://www.columbia.edu/kermit/ckubwr.html#top
- 583. http://www.columbia.edu/kermit/ckubwr.html#contents
- 584. http://www.columbia.edu/kermit/ckubwr.html#x11
- 585. http://www.columbia.edu/kermit/ckubwr.html#x11.1
- 586. http://www.columbia.edu/kermit/ck60manual.html
- 587. http://www.columbia.edu/kermit/ckubwr.html#top
- 588. http://www.columbia.edu/kermit/ckubwr.html#contents
- 589. http://www.columbia.edu/kermit/ckubwr.html#x13
- 590. http://www.columbia.edu/kermit/ckubwr.html#x11
- 591. http://www.columbia.edu/kermit/security.html
- 592. http://www.columbia.edu/kermit/ckubwr.html#top
- 593. http://www.columbia.edu/kermit/ckubwr.html#contents
- 594. http://www.columbia.edu/kermit/ckubwr.html#x14
- 595. http://www.columbia.edu/kermit/ckubwr.html#x12
- 596. http://www.columbia.edu/kermit/ckubwr.html#top
- 597. http://www.columbia.edu/kermit/ckubwr.html#contents
- 598. http://www.columbia.edu/kermit/ckubwr.html#x15
- 599. http://www.columbia.edu/kermit/ckubwr.html#x14
- 600. mailto:support@stallion.oz.au
- 601. http://www.stallion.com/
- 602. http://www.columbia.edu/kermit/ckubwr.html#top
- 603. http://www.columbia.edu/kermit/ckubwr.html#contents
- 604. http://www.columbia.edu/kermit/ckermit.html
- 605. http://www.columbia.edu/kermit/ck80.html
- 606. http://www.columbia.edu/kermit/index.html
- 607. http://www.columbia.edu/kermit/index.html
- 608. http://www.columbia.edu/
- 609. mailto:kermit@columbia.edu
+ 552. http://www.columbia.edu/kermit/ckubwr.html#x5
+ 553. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 554. http://www.columbia.edu/kermit/ckccfg.html
+ 555. http://www.columbia.edu/kermit/ckubwr.html#top
+ 556. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 557. http://www.columbia.edu/kermit/ckubwr.html#x6
+ 558. http://www.columbia.edu/kermit/ckubwr.html#x4
+ 559. http://www.columbia.edu/kermit/ckuins.html
+ 560. http://www.columbia.edu/kermit/ckubwr.html#top
+ 561. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 562. http://www.columbia.edu/kermit/ckubwr.html#x7
+ 563. http://www.columbia.edu/kermit/ckubwr.html#x5
+ 564. http://www.columbia.edu/kermit/ckuins.html#9.5
+ 565. http://www.columbia.edu/kermit/ckubwr.html#x3
+ 566. http://www.columbia.edu/kermit/ckubwr.html#top
+ 567. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 568. http://www.columbia.edu/kermit/ckubwr.html#x8
+ 569. http://www.columbia.edu/kermit/ckubwr.html#x6
+ 570. http://www.columbia.edu/kermit/ckuins.html#x8
+ 571. http://www.columbia.edu/kermit/ckuins.html
+ 572. http://www.columbia.edu/kermit/ck60manual.html
+ 573. http://www.columbia.edu/kermit/cable.html
+ 574. http://www.columbia.edu/kermit/ckubwr.html#top
+ 575. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 576. http://www.columbia.edu/kermit/ckubwr.html#x9
+ 577. http://www.columbia.edu/kermit/ckubwr.html#x7
+ 578. http://www.columbia.edu/kermit/ckubwr.html#top
+ 579. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 580. http://www.columbia.edu/kermit/ckubwr.html#x10
+ 581. http://www.columbia.edu/kermit/ckubwr.html#x8
+ 582. http://www.columbia.edu/kermit/ck60manual.html
+ 583. http://dickey.his.com/xterm/xterm.html
+ 584. http://www.columbia.edu/kermit/ckubwr.html#top
+ 585. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 586. http://www.columbia.edu/kermit/ckubwr.html#x11
+ 587. http://www.columbia.edu/kermit/ckubwr.html#x9
+ 588. http://www.columbia.edu/kermit/ckubwr.html#top
+ 589. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 590. http://www.columbia.edu/kermit/ckubwr.html#x12
+ 591. http://www.columbia.edu/kermit/ckubwr.html#x10
+ 592. http://www.columbia.edu/kermit/ckubwr.html#x11.1
+ 593. http://www.columbia.edu/kermit/ckubwr.html#x11.2
+ 594. http://www.columbia.edu/kermit/ckubwr.html#top
+ 595. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 596. http://www.columbia.edu/kermit/ckubwr.html#x11
+ 597. http://www.columbia.edu/kermit/ckubwr.html#x11.2
+ 598. http://www.columbia.edu/kermit/ck60manual.html
+ 599. http://www.columbia.edu/kermit/ckubwr.html#top
+ 600. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 601. http://www.columbia.edu/kermit/ckubwr.html#x11
+ 602. http://www.columbia.edu/kermit/ckubwr.html#x11.1
+ 603. http://www.columbia.edu/kermit/ck60manual.html
+ 604. http://www.columbia.edu/kermit/ckubwr.html#top
+ 605. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 606. http://www.columbia.edu/kermit/ckubwr.html#x13
+ 607. http://www.columbia.edu/kermit/ckubwr.html#x11
+ 608. http://www.columbia.edu/kermit/security.html
+ 609. http://www.columbia.edu/kermit/ckubwr.html#top
+ 610. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 611. http://www.columbia.edu/kermit/ckubwr.html#x14
+ 612. http://www.columbia.edu/kermit/ckubwr.html#x12
+ 613. http://www.columbia.edu/kermit/ckubwr.html#top
+ 614. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 615. http://www.columbia.edu/kermit/ckubwr.html#x15
+ 616. http://www.columbia.edu/kermit/ckubwr.html#x14
+ 617. mailto:support@stallion.oz.au
+ 618. http://www.stallion.com/
+ 619. http://www.columbia.edu/kermit/ckubwr.html#top
+ 620. http://www.columbia.edu/kermit/ckubwr.html#contents
+ 621. http://www.columbia.edu/kermit/ckermit.html
+ 622. http://www.columbia.edu/kermit/ck80.html
+ 623. http://www.columbia.edu/kermit/index.html
+ 624. http://www.columbia.edu/kermit/index.html
+ 625. http://www.columbia.edu/
+ 626. mailto:kermit@columbia.edu
#include "ckcsym.h"
-char *cmdv = "Command package 8.0.157, 11 May 2003";
+char *cmdv = "Command package 9.0.168, 12 March 2010";
/* C K U C M D -- Interactive command package for Unix */
+/* (In reality, it's for all platforms, not just Unix) */
+
/*
Author: Frank da Cruz (fdc@columbia.edu),
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifndef NOSPL
_PROTOTYP( int chkvar, (char *) );
-extern int askflag;
+extern int askflag, echostars;
#endif /* NOSPL */
#ifdef CKROOT
int cmfldflgs = 0; /* Flags for cmfld() */
int cmkwflgs = 0; /* Flags from last keyword parse */
+static int nomsg = 0;
static int blocklvl = 0; /* Block nesting level */
static int linebegin = 0; /* Flag for at start of a line */
static int quoting = 1; /* Quoting is allowed */
#endif /* CK_ANSIC */
#endif /* OSF13 */
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
#ifdef OS2
#ifndef NT
#include <io.h>
#endif /* OS2 */
-#ifdef NT
-#define stricmp _stricmp
-#endif /* NT */
-
#ifdef OSK
#define cc ccount /* OS-9/68K compiler bug */
#endif /* OSK */
inword = 0; /* In the middle of getting a word */
char *dfprom = "Command? "; /* Default prompt */
+#ifndef NOLASTFILE
+char *lastfile = NULL; /* Last filespec */
+static char *tmplastfile = NULL; /* Last filespec candidate */
+#endif /* NOLASTFILE */
int cmflgs; /* Command flags */
int cmfsav; /* A saved version of them */
char *savbuf = NULL; /* Buffer to save copy of command */
char *atmbuf = NULL; /* Atom buffer - for current field */
char *atxbuf = NULL; /* For expanding the atom buffer */
+char *prevcmd = NULL;
static char *atybuf = NULL; /* For copying atom buffer */
static char *filbuf = NULL; /* File name buffer */
static char *cmprom = NULL; /* Program's prompt */
char savbuf[CMDBL+4]; /* Buffer to save copy of command */
char atmbuf[ATMBL+4]; /* Atom buffer */
char atxbuf[CMDBL+4]; /* For expanding the atom buffer */
+char prevcmd[CMDBL+4]; /* For displaying the last command */
static char atybuf[ATMBL+4]; /* For copying atom buffer */
static char filbuf[ATMBL+4]; /* File name buffer */
static char cmprom[PROMPTL+1]; /* Program's prompt */
/* Command buffer pointers */
-#define PPVLEN 24
+#define PPVLEN VNAML /* 20080305 Wolfram Sang (was 24) */
char ppvnambuf[PPVLEN+1] = { NUL, NUL };
char * cmbptr = NULL; /* Current position (for export) */
return;
}
-/* F I L H E L P -- Given a file list, print names in columns. */
+/* X F I L H E L P -- Given a file list, print names in columns. */
/*
Call with:
n - number of entries
post - suffix to add to each filename
off - offset on first screenful, allowing room for introductory text
cmdirflg - 1 if only directory names should be listed, 0 to list all files
+ fs - call fileselect() to decide whether to include each file.
+ The rest of the args are the same as for fileselect().
Arranges filenames in columns with width based on longest filename.
Does "more?" prompting at end of screen.
*/
int
-filhelp(n,pre,post,off,cmdirflg) int n, off; char *pre, *post; int cmdirflg; {
+#ifdef CK_ANSIC
+xfilhelp(
+ int n, char *pre, char *post, int off, int cmdirflag,
+ int fs, char *sa, char *sb, char *sna, char *snb,
+ CK_OFF_T minsiz, CK_OFF_T maxsiz,
+ int nbu, int nxlist,
+ char ** xlist
+)
+#else
+xfilhelp(n,pre,post,off,cmdirflg,
+ fs,sa,sb,sna,snb,minsiz,maxsiz,nbu,nxlist,xlist)
+ int n, off; char *pre, *post; int cmdirflg;
+ int fs; char *sa,*sb,*sna,*snb; CK_OFF_T minsiz,maxsiz;
+ int nbu,nxlist; char ** xlist;
+#endif /* CK_ANSIC */
+ {
char filbuf[CKMAXPATH + 1]; /* Temp buffer for one filename */
int width = 0;
int cols, height, i, j, k, lc, n2 = 0, rc = 0, itsadir = 0;
if (cmdirflg && !itsadir) /* No, listing directories only? */
continue; /* So skip this one. */
#endif /* COMMENT */
+ if (fs) if (fileselect(filbuf,
+ sa,sb,sna,snb,
+ minsiz,maxsiz,nbu,nxlist,xlist) < 1) {
+ continue;
+ }
#ifdef VMS
ckstrncpy(filbuf,zrelname(filbuf,cdp),CKMAXPATH);
#endif /* VMS */
}
}
+/*
+ Simpler front end for xfilhelp() with shorter arg list when no
+ file selection is needed.
+*/
+int
+filhelp(n,pre,post,off,cmdirflg) int n, off; char *pre, *post; int cmdirflg; {
+ return(xfilhelp(n,pre,post,off,cmdirflg,
+ 0,NULL,NULL,NULL,NULL,
+ (CK_OFF_T)0,(CK_OFF_T)0,0,0,(char **)NULL));
+}
+
/* C M S E T U P -- Set up command buffers */
#ifdef DCMDBUF
if (!(cmdbuf = malloc(CMDBL + 4))) return(-1);
if (!(savbuf = malloc(CMDBL + 4))) return(-1);
savbuf[0] = '\0';
+ if (!(prevcmd = malloc(CMDBL + 4))) return(-1);
+ prevcmd[0] = '\0';
if (!(atmbuf = malloc(ATMBL + 4))) return(-1);
if (!(atxbuf = malloc(CMDBL + 4))) return(-1);
if (!(atybuf = malloc(ATMBL + 4))) return(-1);
sx = cmprxx; /* Unevaluated copy */
if (f) { /* If conversion function given */
sy = cmprom; /* Evaluate it */
+#ifdef COMMENT
debug(F101,"prompt sx","",sx);
debug(F101,"prompt sy","",sy);
+#endif /* COMMENT */
n = PROMPTL;
if ((*f)(sx,&sy,&n) < 0) /* If evaluation failed */
sx = cmprxx; /* revert to unevaluated copy */
-1 if reparse needed,
0 otherwise, with argument n set to the number that was parsed
*/
+/* This is the traditional cmnum() that gets an int */
int
cmnum(xhlp,xdef,radix,n,f) char *xhlp, *xdef; int radix, *n; xx_strp f; {
+ CK_OFF_T z = (CK_OFF_T)0, check;
+ int x;
+ x = cmnumw(xhlp,xdef,radix,&z,f);
+ *n = z;
+ check = *n;
+ if (check != z) {
+ printf("?Magnitude of result too large for integer - %s\n",ckfstoa(z));
+ return(-9);
+ }
+ return(x);
+}
+
+/*
+ This is the new cmnum() that gets a "wide" result, whatever CK_OFF_T
+ is defined to be, normally 32 or 64 bits, depending on the platform.
+ fdc, 24 Dec 2005.
+*/
+int
+cmnumw(xhlp,xdef,radix,n,f)
+ char *xhlp, *xdef; int radix; CK_OFF_T *n; xx_strp f; {
int x; char *s, *zp, *zq;
#ifdef COMMENT
char lbrace, rbrace;
if (!strcmp(zp,"-1")) return(-2);
}
errno = 0; /* Got one, we're done. */
- *n = atoi(zp);
+ *n = ckatofs(zp);
if (errno) {
perror(zp);
return(-9);
if (!strcmp(zp,"-1")) return(-2);
}
errno = 0;
- *n = atoi(zp);
+ *n = ckatofs(zp);
if (errno) {
perror(zp);
return(-9);
if (!strcmp(zp,"-1")) return(-2);
}
errno = 0;
- *n = atoi(p);
+ *n = ckatofs(p);
if (errno) {
perror(p);
return(-9);
wild = 1 if name contains '*' or '?', 0 otherwise.
*/
+#ifdef COMMENT /* This horrible hack has been replaced - see further down */
/*
C M I O F I -- Parse an input file OR the name of a nonexistent file.
nomsg = msgsave;
return(x);
}
+#endif /* COMMENT */
int
cmifi(xhlp,xdef,xp,wild,f) char *xhlp, *xdef, **xp; int *wild; xx_strp f; {
int i, x, itsadir, xc, expanded = 0, nfiles = 0, children = -1;
int qflag = 0;
long y;
+ CK_OFF_T filesize;
char *sp = NULL, *zq, *np = NULL;
char *sv = NULL, *p = NULL;
#ifdef DTILDE
if (!xhlp) xhlp = "";
if (!xdef) xdef = "";
+#ifndef NOLASTFILE
+ makestr(&tmplastfile,NULL);
+#endif /* NOLASTFILE */
nzxopts = 0; /* zxpand() options */
debug(F101,"cmifi d","",d);
if (d & 2) { /* d & 2 means don't follow symlinks */
case 0: /* SP */
if (xc == 0) /* If no input... */
*xp = xdef; /* substitute the default */
+#ifndef NOLASTFILE
+ makestr(&tmplastfile,*xp); /* Make a copy before bstripping */
+#endif /* #ifndef NOLASTFILE */
*xp = brstrip(*xp); /* Strip braces */
if (**xp == NUL) { /* 12 mar 2001 */
if (np) free(np);
if (itsadir && d && !dirflg) { /* It's a directory and not wild */
if (sv) free(sv); /* and it's ok to parse directories */
if (np) free(np);
+#ifndef NOLASTFILE
+ makestr(&lastfile,tmplastfile);
+#endif /* NOLASTFILE */
return(x);
}
if (y == 0) { /* File was not found */
printf("?Off Limits: %s\n",sv);
else
#endif /* CKROOT */
- printf("?No %s match - %s\n",
+ if (!quiet)
+ printf("?No %s match - %s\n",
dirflg ? "directories" : "files", sv);
}
if (sv) free(sv);
} else if (*wild || y > 1) {
if (sv) free(sv);
if (np) free(np);
+#ifndef NOLASTFILE
+ makestr(&lastfile,tmplastfile);
+#endif /* NOLASTFILE */
return(x);
}
znext(*xp); /* Get first (only?) matching file */
if (dirflg) /* Maybe wild and expanded */
itsadir = isdir(*xp); /* so do this again. */
- y = dirflg ? itsadir : zchki(*xp); /* Now check accessibility */
+ filesize = dirflg ? itsadir : zchki(*xp); /* Check accessibility */
if (expanded) {
#ifdef ZXREWIND
nfiles = zxrewind(); /* Rewind so next znext() gets 1st */
#endif /* ZXREWIND */
}
debug(F111,"cmifi nfiles",*xp,nfiles);
+ debug(F101,"cmifi filesize","",filesize);
free(sv); /* done with this */
sv = NULL;
- if (dirflg && y == 0) {
+ if (dirflg && !filesize) {
printf("?Not a directory - %s\n",*xp);
#ifdef CKCHANNELIO
z_error = FX_ACC;
#endif /* CKCHANNELIO */
return(-9);
- } else if (y == -3) {
+ } else if (filesize == (CK_OFF_T)-3) {
if (!xcmfdb) {
if (diractive)
/* Don't show filename if we're not allowed to see it */
z_error = FX_ACC;
#endif /* CKCHANNELIO */
return(xcmfdb ? -6 : -9);
- } else if (y == -2) {
+ } else if (filesize == (CK_OFF_T)-2) {
if (!recursive) {
if (np) free(np);
- if (d) return(0);
+ if (d) {
+#ifndef NOLASTFILE
+ makestr(&lastfile,tmplastfile);
+#endif /* NOLASTFILE */
+ return(0);
+ }
if (!xcmfdb)
printf("?File not readable - %s\n",*xp);
#ifdef CKCHANNELIO
#endif /* CKCHANNELIO */
return(xcmfdb ? -6 : -9);
}
- } else if (y < 0) {
+ } else if (filesize < (CK_OFF_T)0) {
if (np) free(np);
if (!nomsg && !xcmfdb)
printf("?File not found - %s\n",*xp);
return(xcmfdb ? -6 : -9);
}
if (np) free(np);
+#ifndef NOLASTFILE
+ makestr(&lastfile,tmplastfile);
+#endif /* NOLASTFILE */
return(x);
#ifndef MAC
return(-9);
}
if (np) free(np);
+#ifndef NOLASTFILE
+ makestr(&lastfile,tmplastfile);
+#endif /* NOLASTFILE */
return(0);
#ifndef VMS
#ifdef CK_TMPDIR
fflush(stdout);
break;
#endif /* MAC */
- }
+ }
#ifdef BS_DIRSEP
dirnamflg = 1;
x = gtword(0); /* No, get a word */
#else
x = gtword(0); /* No, get a word */
#endif /* BS_DIRSEP */
- *xp = atmbuf;
+ *xp = atmbuf;
}
}
}
}
*xp = atmbuf; /* Point to what we got. */
- debug(F111,"cmfld 2",atmbuf,(f) ? 1 : 0);
+ debug(F111,"cmfld 2",atmbuf,((f) ? 1 : 0));
if (f) { /* If a conversion function is given */
zq = atxbuf; /* employ it now. */
atxn = CMDBL;
char * sx = atxbuf;
zq = atxbuf; /* Point to the expansion buffer */
atxn = CMDBL; /* specify its length */
- debug(F111,"cmtxt calling (*f)",*xp,atxbuf);
+ /* debug(F111,"cmtxt calling (*f)",*xp,atxbuf); */
if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
sx = atxbuf;
#ifndef COMMENT
n -- number of entries in table;
xhlp -- pointer to help string;
xdef -- pointer to default keyword;
- f -- processing function (e.g. to evaluate variables)
+ f -- string preprocessing function (e.g. to evaluate variables)
pmsg -- 0 = don't print error messages
1 = print error messages
2 = include CM_HLP keywords even if invisible
3 = 1+2
4 = parse a switch (keyword possibly ending in : or =)
+ 8 = don't strip comments (used, e.g., for "help #")
Returns:
-3 -- no input supplied and no default available
-2 -- input doesn't uniquely match a keyword in the table
-1 -- user deleted too much, command reparse required
n >= 0 -- value associated with keyword
*/
+
+/*
+ Front ends for cmkey2():
+ cmkey() - The normal keyword parser
+ cmkeyx() - Like cmkey() but suppresses error messages
+ cmswi() - Switch parser
+*/
int
cmkey(table,n,xhlp,xdef,f)
/* cmkey */ struct keytab table[]; int n; char *xhlp, *xdef; xx_strp f; {
return(-9);
}
rtimer(); /* Reset timer */
- } else {
+ } else { /* Otherwise get a command word */
rtimer(); /* Reset timer */
- zz = gtword((pmsg == 4) ? 1 : 0);/* Otherwise get a command word */
+ if (pmsg & 8) /* 8 is for parsing HELP tokens */
+ zz = gtword(4);
+ else
+ zz = gtword((pmsg == 4) ? 1 : 0);
}
debug(F101,"cmkey table length","",n);
switch (zz) {
case -10: /* Timeout */
if (gtimer() < timelimit) {
- zz = gtword((pmsg == 4) ? 1 : 0);
+ if (pmsg & 8) /* 8 is for parsing HELP tokens */
+ zz = gtword(4);
+ else
+ zz = gtword((pmsg == 4) ? 1 : 0);
continue;
} else {
#ifdef IKSD
}
#endif /* M_UNGW */
}
+#ifdef COMMENT /* ^^^ */
if (cmswitch && *atmbuf != '/') {
if (pmsg & 1) {
bleep(BP_FAIL);
cmflgs = -2;
return(-6);
}
+#endif /* COMMENT */
if (cmswitch) {
int i;
for (i = 0; i < wordlen; i++) {
printf("\n%d - Unexpected return code from gtword\n",zz);
return(cmflgs = -2);
}
- zz = gtword((pmsg == 4) ? 1 : 0);
+ zz = (pmsg & 8) ? gtword(4) : gtword((pmsg == 4) ? 1 : 0);
debug(F111,"cmkey gtword zz",atmbuf,zz);
}
}
debug(F101,"cmdelta hh","",hh);
debug(F101,"cmdelta mm","",mm);
debug(F101,"cmdelta ss","",ss);
- debug(F101,"cmdelta sin","",sign);
+ debug(F101,"cmdelta sign","",sign);
debug(F101,"cmdelta dyy","",dyy);
debug(F101,"cmdelta dmo","",dmo);
debug(F101,"cmdelta ddd","",ddd);
}
sign = (sign < 0) ? -1 : 1;
if (dmo != 0) {
- mo += (sign * dmo);
- if (mo > 12 || mo < 0) {
- yy += mo / 12;
- mo = mo % 12;
- }
+ if (sign > 0) {
+ mo += (sign * dmo);
+ if (mo > 12) {
+ yy += mo / 12;
+ mo = mo % 12;
+ }
+ } else if (sign < 0) {
+ while (dmo > 12) {
+ yy--;
+ dmo -= 12;
+ }
+ if (dmo < mo) {
+ mo -= dmo;
+ } else {
+ yy--;
+ mo = 12 - (dmo - mo);
+ }
+ }
}
if (dyy != 0) {
yy += (sign * dyy);
p = s;
goto delta;
}
+#ifdef COMMENT
+/*
+ What is the purpose of this? It breaks parsing of email dates like
+ "Wed, 13 Feb 2002 17:43:02 -0800 (PST)". Removing this code fixes the
+ problem and Kermit still passes the 'dates' script.
+ - fdc, Sat Nov 26 10:52:45 2005.
+*/
if (dow > -1) {
/* Day of week given followed by something that is not a time */
/* or a delta so it can't be valid */
debug(F111,"cmcvtdate fail",cmdatemsg,-1);
return(NULL);
}
+#endif /* COMMENT */
/* Handle "today", "yesterday", "tomorrow", and +/- n units */
isgmt++; /* All dates are GMT from here down */
if (zone != 0) { /* But not this one so make it GMT */
hh += zone; /* RFC 822 timezone: EST etc */
+ debug(F101,"cmcvtdate hh + zone","",hh);
if (hh > 23) { /* Offset crosses date boundary */
+ int i;
long jd;
jd = mjd(yyyymmdd); /* Get MJD */
jd += hh / 24; /* Add new day(s) */
hh = hh % 24; /* and convert back to yyyymmdd */
ckstrncpy(yyyymmdd,mjd2date(jd),YYYYMMDD);
+ debug(F111,"cmcvtdate zone-adjusted date",yyyymmdd,hh);
+ for (i = 0; i < 4; i++)
+ yearbuf[i] = yyyymmdd[i];
+ yearbuf[4] = NUL;
+ monbuf[0] = yyyymmdd[4];
+ monbuf[1] = yyyymmdd[5];
+ monbuf[2] = NUL;
+ daybuf[0] = yyyymmdd[6];
+ daybuf[1] = yyyymmdd[7];
+ daybuf[2] = NUL;
+ day = daybuf;
+ nday = atoi(daybuf);
+ month = monbuf;
+ year = yearbuf;
}
}
p = p3; /* Put back whatever we poked above */
p++;
}
}
- debug(F110,"cmcvtdate after timezone",p,0);
+ debug(F110,"cmcvtdate source string after timezone",p,0);
if (*p) { /* Anything left? */
p2 = p;
return((char *)result);
}
+#ifndef NOSPL
/* s h u f f l e d a t e -- Rearrange date string */
/*
1: Reformat date to yyyy-mmm-dd (mmm = English month abbreviation).
2: Reformat date to dd-mmm-yyyy (mmm = English month abbreviation).
3: Reformat as numeric yyyymmddhhmmss.
+ 4: Reformat in asctime() format Sat Nov 26 11:10:34 2005
Returns:
Pointer to result if args valid, otherwise original arg pointer.
*/
char *
shuffledate(p,opt) char * p; int opt; {
+ extern char * wkdays[];
int len;
char ibuf[32];
static char obuf[48];
if (!p) p = "";
if (!*p) p = ckdate();
- if (opt < 1 || opt > 3)
+ if (opt < 1 || opt > 4)
return(p);
len = strlen(p);
if (len < 8 || len > 31) return(p);
+ if (opt == 4) { /* Asctime format (26 Nov 2005) */
+ char c, * s;
+ long z; int k;
+ ckstrncpy(ibuf,p,31);
+ k = len;
+ while (k >= 0 && ibuf[k] == CR || ibuf[k] == LF)
+ ibuf[k--] = NUL;
+ while (k >= 0 && ibuf[k] == SP || ibuf[k] == HT)
+ ibuf[k--] = NUL;
+ if (k < 9) ckstrncpy(&ibuf[8]," 00:00:00",9);
+ p = ibuf;
+ z = mjd(p); /* Convert to modified Julian date */
+ z = z % 7L;
+ if (z < 0) {
+ z = 0 - z;
+ k = 6 - ((int)z + 3) % 7;
+ } else {
+ k = ((int)z + 3) % 7; /* Day of week */
+ }
+ s = wkdays[k];
+ obuf[0] = s[0]; /* Day of week */
+ obuf[1] = s[1];
+ obuf[2] = s[2];
+ obuf[3] = SP; /* Space */
+ c = p[6];
+ p[6] = NUL;
+ mm = atoi(&ibuf[4]); /* Month */
+ s = moname[mm-1]; /* Name of month */
+ p[6] = c;
+
+ obuf[4] = s[0]; /* Month */
+ obuf[5] = s[1];
+ obuf[6] = s[2];
+ obuf[7] = SP; /* Space */
+ if (p[6] == '0') /* Date of month */
+ obuf[8] = SP;
+ else
+ obuf[8] = p[6];
+ obuf[9] = p[7];
+ ckstrncpy(&obuf[10],&p[8],10); /* Time */
+ obuf[19] = SP; /* Space */
+ obuf[20] = p[0]; /* Year */
+ obuf[21] = p[1];
+ obuf[22] = p[2];
+ obuf[23] = p[3];
+ obuf[24] = NUL;
+ return((char *)obuf);
+ }
if (opt == 3) {
ckstrncpy(obuf,p,48);
/* yyyymmdd hh:mm:ss */
}
return((char *)obuf);
}
+#endif /* NOSPL */
/* C K C V T D A T E -- Like cmcvtdate(), but returns string. */
/* For use by date-related functions */
/* See ckucmd.h for FDB and OFDB definitions. */
struct OFDB cmresult = { /* Universal cmfdb result holder */
- NULL,
- 0,
- NULL,
- 0
+ NULL, /* Address of succeeding FDB struct */
+ 0, /* Function code */
+ NULL, /* String result */
+ 0, /* Integer result */
+ (CK_OFF_T)0 /* Wide result */
};
VOID
struct FDB * in = fdbin;
struct OFDB * out = &cmresult;
int x = 0, n, r;
+ CK_OFF_T w = (CK_OFF_T)0;
char *s, *xp, *m = NULL;
int errbits = 0;
debug(F101,"cmfdb cmnum","",x);
if (x < 0) errbits |= 1;
break;
+ case _CMNUW: /* Wide cmnum - 24 Dec 2005 */
+ r = in->ndata1;
+ if (r != 10 && r != 8) r = 10;
+#ifndef NOSPL
+ x_ifnum = 1; /* Disables warning messages */
+#endif /* NOSPL */
+ x = cmnumw(in->hlpmsg,in->dflt,r,&w,in->spf);
+#ifndef NOSPL
+ x_ifnum = 0;
+#endif /* NOSPL */
+ debug(F101,"cmfdb cmnumw","",w);
+ if (x < 0) errbits |= 1;
+ break;
case _CMOFI:
x = cmofi(in->hlpmsg,in->dflt,&s,in->spf);
debug(F101,"cmfdb cmofi","",x);
out->fdbaddr = in;
out->sresult = s;
out->nresult = (in->fcode == _CMKEY) ? x : n;
+ out->wresult = w;
out->kflags = (in->fcode == _CMKEY) ? cmkwflgs : 0;
debug(F111,"cmfdb out->nresult",out->sresult,out->nresult);
+ debug(F111,"cmfdb out->wresult",out->sresult,out->wresult);
nomsg = 0;
xcmfdb = 0;
/* debug(F111,"cmfdb cmdbuf & crflag",cmdbuf,crflag); */
pp = np = bp = xp; /* Back up pointers */
cmflgs = -1; /* Force a reparse */
-
#ifndef NOSPL
if (!askflag) { /* If not executing ASK-class cmd... */
#endif /* NOSPL */
}
}
+/*
+ C M I O F I -- Parse an input file OR the name of a nonexistent file.
+
+ Replaces the commented-out version above. This one actually works and
+ has the expected straightforward interface.
+*/
+int
+cmiofi(xhlp,xdef,xp,wild,f) char *xhlp, *xdef, **xp; int *wild; xx_strp f; {
+ int x;
+ struct FDB f1, f2;
+ cmfdbi(&f1,_CMIFI,xhlp,xdef,"",0,0,f,NULL,&f2);
+ cmfdbi(&f2,_CMOFI,"","","",0,0,f,NULL,NULL);
+ x = cmfdb(&f1);
+ if (x < 0) {
+ if (x == -3) {
+ x = -9;
+ printf("?Filename required\n");
+ }
+ }
+ *wild = cmresult.nresult;
+ *xp = cmresult.sresult;
+ return(x);
+}
/* G T W O R D -- Gets a "word" from the command input stream */
brk = 1 to add ':' and '=' (for parsing switches). These characters
act as break characters only if the first character of the field
is slash ('/'), i.e. switch introducer.
+ brk = 4 to not strip comments (used only for "help #" and "help ;").
Returns:
-10 Timelimit set and timed out
if (con_reads_mt) connoi_mt(); /* Task would interfere w/cons read */
#endif /* datageneral */
-
#ifdef COMMENT
#ifdef DEBUG
if (deblog) {
c = *bp;
if (!c) { /* If no char waiting in reparse buf */
- if (dpx && (!pushc
+ if ((dpx
+#ifndef NOSPL
+ || echostars
+#endif /* NOSPL */
+ ) && (!pushc
#ifndef NOSPL
|| askflag
#endif /* NOSPL */
break;
case ';': /* Trailing comment */
case '#':
- if (inword == 0 && quoting) { /* If not in a word */
- comment = 1; /* start a comment. */
- cp = bp; /* remember where it starts. */
+ if (! (brk & 4) ) { /* If not keeping comments */
+ if (inword == 0 && quoting) { /* If not in a word */
+ comment = 1; /* start a comment. */
+ cp = bp; /* remember where it starts. */
+ }
}
break;
}
/* debug(F101,"gtword echof 2","",echof); */
#ifdef BEBOX
if (echof) {
- putchar(c); /* echo it. */
+ cmdecho((char) c, 0); /* Echo what was typed. */
fflush(stdout);
fflush(stderr);
}
#else
- if (echof) { /* echo it. */
- putchar((CHAR)c);
+ if (echof) {
+ cmdecho((char) c, 0); /* Echo what was typed. */
if (timelimit)
fflush(stdout);
}
blocklvl--;
}
if ((c == '=' || c == ':') &&
- !kstartactive && !comment && brk && (firstnb == '/')
+ /* ^^^ */
+ !kstartactive && !comment && brk /* && (firstnb == '/') */
) {
*bp++ = (char) c; /* Switch argument separator */
/* debug(F111,"gtword switch argsep",cmdbuf,brk); */
#ifdef BEBOX
if (echof) {
- putchar(c); /* Echo it. */
+ cmdecho((char) c, 0); /* Echo what was typed. */
fflush(stdout);
fflush(stderr);
}
#else
if (echof) {
- putchar((CHAR)c);
+ cmdecho((char) c, 0); /* Echo what was typed. */
if (timelimit)
fflush(stdout);
}
if ((*pp != lbrace) || (bracelvl == 0)) {
np = bp;
cmbptr = np;
- if (setatm(pp,0) < 0) {
+ if (setatm(pp,2) < 0) { /* ^^^ */
printf("?Field too long error 1\n");
debug(F111,"gtword too long #1",pp,strlen(pp));
return(-9);
&& !kstartactive
&& !comment
) {
- putchar((CHAR)c);
+ cmdecho((char) c, 0);
*bp = NUL;
if (setatm(pp,0) < 0) {
debug(F111,"gtword too long ?",pp,strlen(pp));
printf("\n%s",cmprom);
cpx = cmdbuf;
while ((cx = *cpx++)) {
-#ifdef isprint
- putchar((CHAR) (isprint(cx) ? cx : '^'));
-#else
- putchar((CHAR) ((cx >= SP && cx < DEL) ? cx : '^'));
-#endif /* isprint */
+ cmdecho(cx,0);
}
fflush(stdout);
continue;
}
+#ifndef NOLASTFILE
+ case VT:
+ if (lastfile) {
+ printf("%s ",lastfile);
+#ifdef GEMDOS
+ fflush(stdout);
+#endif /* GEMDOS */
+ inword = cmflgs = 0;
+ addbuf(lastfile); /* Supply default. */
+ if (setatm(lastfile,0) < 0) {
+ printf("Last name too long\n");
+ if (np) free(np);
+ return(-9);
+ }
+ } else { /* No default */
+ bleep(BP_WARN);
+ }
+ return(0);
+#endif /* NOLASTFILE */
}
-
#ifdef CK_RECALL
if (on_recall && /* Reading commands from keyboard? */
(cm_recall > 0) && /* Saving commands? */
fflush(stderr);
}
#else
- if (echof) cmdecho((char) c, 0); /* Echo what was typed. */
+#ifdef NOSPL
+ if (echof || chsrc)
+#else
+ if (echof || (echostars && chsrc))
+#endif /* NOSPL */
+ cmdecho((char) c, 0); /* Echo what was typed. */
#endif /* BEBOX */
} else { /* This character was quoted. */
int qf = 1;
static VOID
cmdchardel() { /* Erase a character from the screen */
- if (!dpx) return;
+#ifndef NOSPL
+ if (!echostars)
+#endif /* NOSPL */
+ if (!dpx) return;
#ifdef datageneral
/* DG '\b' is EM (^y or \031) */
if (termtype == 1)
cmdecho(c,quote) char c; int quote;
#endif /* CK_ANSIC */
{ /* cmdecho */
+#ifdef NOSPL
if (!dpx) return;
+#else
+ if (!echostars) {
+ if (!dpx) return;
+ } else {
+ c = (char)echostars;
+ }
+#endif /* NOSPL */
/* Echo tty input character c */
if (quote) {
putchar(BS);
#else
putchar((CHAR) ((c >= SP && c < DEL) ? c : '^'));
#endif /* isprint */
- } else putchar(c);
+ } else {
+ putchar(c);
+ }
#ifdef OS2
if (quote==1 && c==CR) putchar((CHAR) NL);
#endif /* OS2 */
if (!ckstrcmp(table[n-1].kwd,cmd,cmdlen,0)) {
if (x) *x = n-1;
- debug(F111,"lookup",table[i].kwd,table);
+ /* debug(F111,"lookup",table[i].kwd,table); */
return(table[n-1].kwval);
} else return(-1);
}
Author: Frank da Cruz <fdc@columbia.edu>
Columbia University Kermit Project, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
struct FDB * fdbaddr; /* Address of succeeding FDB struct */
int fcode; /* Function code */
char * sresult; /* String result */
- int nresult; /* Numeric result */
+ int nresult; /* Integer result */
int kflags; /* Keyword flags if any */
+ CK_OFF_T wresult; /* Long integer ("wide") result */
} ofdb;
#ifndef CKUCMD_C
#define _CMKEY 5 /* Keyword */
#define _CMCFM 6 /* Confirmation */
#define _CMDAT 7 /* Date/time */
+#define _CMNUW 8 /* Wide version of cmnum */
/* Function prototypes */
_PROTOTYP( int cmrini, (int) );
_PROTOTYP( VOID cmsetp, (char *) );
_PROTOTYP( VOID cmsavp, (char [], int) );
-_PROTOTYP( char * cmgetp, () );
+_PROTOTYP( char * cmgetp, (void) );
_PROTOTYP( VOID prompt, (xx_strp) );
_PROTOTYP( VOID pushcmd, (char *) );
_PROTOTYP( VOID cmres, (void) );
_PROTOTYP( int cmpop, (void) );
_PROTOTYP( VOID untab, (char *) );
_PROTOTYP( int cmnum, (char *, char *, int, int *, xx_strp ) );
+_PROTOTYP( int cmnumw, (char *, char *, int, CK_OFF_T *, xx_strp ) );
_PROTOTYP( int cmofi, (char *, char *, char **, xx_strp ) );
_PROTOTYP( int cmifi, (char *, char *, char **, int *, xx_strp ) );
_PROTOTYP( int cmiofi, (char *, char *, char **, int *, xx_strp ) );
#ifdef CK_RECALL
_PROTOTYP( char * cmgetcmd, (char *) );
_PROTOTYP( VOID addcmd, (char *) );
-_PROTOTYP( VOID cmaddnext, () );
+_PROTOTYP( VOID cmaddnext, (void) );
#endif /* CK_RECALL */
_PROTOTYP( char * cmcvtdate, (char *, int) );
_PROTOTYP( char * cmdiffdate, (char *, char *) );
int,int,int,int,int,int,int,int,int,int,int,int ));
_PROTOTYP( char * shuffledate, (char *, int) );
_PROTOTYP( int filhelp, (int, char *, char *, int, int) );
+_PROTOTYP( int xfilhelp, (int, char *, char *, int, int,
+ int,
+ char *, char *, char *, char *,
+ CK_OFF_T, CK_OFF_T,
+ int, int,
+ char **) );
+_PROTOTYP( int delta2sec, (char *, long *) );
#ifdef DCMDBUF
_PROTOTYP( int cmsetup, (void) );
#include "ckcsym.h"
-char *connv = "CONNECT Command for UNIX:select(), 8.0.135, 29 Nov 2002";
+char *connv = "CONNECT Command for UNIX:select(), 9.0.139, 1 Mar 2010";
/* C K U C N S -- Terminal connection to remote system, for UNIX */
/*
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern int local, escape, duplex, parity, flow, seslog, sessft, debses,
mdmtyp, ttnproto, cmask, cmdmsk, network, nettype, sosi, tnlm,
- xitsta, what, ttyfd, ttpipe, quiet, backgrd, pflag, tt_crd, tn_nlm, ttfdflg,
+ xitsta, what, ttyfd, ttpipe, quiet, backgrd, pflag, tt_crd, tt_lfd,
+ tn_nlm, ttfdflg,
tt_escape, justone, carrier, ttpty, hwparity;
#ifndef NODIAL
#endif /* NOCSETS */
#endif /* NOESCSEQ */
+/* inesc[] and oldesc[] made global 2010/03/01 for INPUT command */
+
static int escseq = 0; /* 1 = Recognizer is active */
-static int inesc[2] = { 0, 0 }; /* State of sequence recognizer */
-static int oldesc[2] = { -1, -1 }; /* Previous state of recognizer */
+/* static */ int inesc[2] = { 0, 0 }; /* State of sequence recognizer */
+/* static */ int oldesc[2] = { -1, -1 }; /* Previous state of recognizer */
#ifdef NOESCSEQ
+#define ES_NORMAL 0 /* Normal, not in an escape sequence */
#define chkaes(x,y) 0
#else
/*
As of C-Kermit 5A(178), the CONNECT command skips past ANSI escape sequences
to avoid translating the characters within them. This allows the CONNECT
command to work correctly with a host that uses a 7-bit ISO 646 national
- character set, in which characters like '[' would normally be translated
- into accented characters, ruining the terminal's interpretation (and
- generation) of escape sequences.
+ character set, in which characters like '[' would normally be converted to
+ accented letters, ruining the terminal's interpretation (and generation)
+ of escape sequences.
As of 5A(190), the CONNECT command responds to APC escape sequences
(ESC _ text ESC \) if the user SETs TERMINAL APC ON or UNCHECKED, and the
}
#endif /* NOESCSEQ */
+VOID
+#ifdef CK_ANSIC
+LOGCHAR(char c)
+#else
+LOGCHAR(c) char c;
+#endif /* CK_ANSIC */
+/* LOGCHAR */ { /* Log character c to session log */
+ /* but skip over escape sequences if session log is text */
+ if (escseq) {
+ if ((sessft == XYFT_T) && (debses == 0) &&
+ (inesc[0] != ES_NORMAL || oldesc[0] != ES_NORMAL))
+ return;
+ }
+ logchar(c);
+}
+
/* C K C P U T C -- C-Kermit CONNECT Put Character to Screen */
/*
Output is buffered to avoid slow screen writes on fast connections.
default:
s = "binary";
}
- printf("Session Log: %s, %s\r\n",sesfil,s);
+ printf("Session Log: %s, %s (%d) \r\n",sesfil,s,sessft);
}
if (debses) printf("Debugging Display...)\r\n");
}
/*
We need to activate the escape-sequence recognition feature when:
(a) translation is elected, AND
- (b) the local and/or remote set is a 7-bit set other than US ASCII.
+ (b) the local and/or remote set is a 7-bit set other than US ASCII;
+ Or:
+ SET SESSION-LOG is TEXT (so we can strip escape sequences out of the log);
Or:
SET TERMINAL APC is not OFF (handled in the next statement).
*/
#endif /* NOCSETS */
#ifndef NOESCSEQ
+ if (!escseq) { /* 2009/10/22 */
+ if (seslog && !sessft)
+ escseq = 1;
+ }
#ifdef CK_APC
escseq = escseq || (apcstatus & APC_ON);
apcactive = 0; /* An APC command is not active */
#ifdef XPRINT
escseq |= tt_print;
#endif /* XPRINT */
- inesc[0] = ES_NORMAL; /* Initial state of recognizer */
- inesc[1] = ES_NORMAL;
+ /* Initial state of recognizer */
+ inesc[0] = ES_NORMAL; /* Remote to screen */
+ inesc[1] = ES_NORMAL; /* Keyboard to remote */
debug(F101,"CONNECT escseq","",escseq);
#endif /* NOESCSEQ */
if (deblog) {
debug(F101,"CONNECT gotkbd","",gotkbd);
debug(F101,"CONNECT kbc","",kbc);
+#ifdef COMMENT
#ifndef NOSETKEY
debug(F101,"CONNECT kmptr","",kmptr);
#endif /* NOSETKEY */
+#endif /* COMMENT */
}
#endif /* DEBUG */
}
if (escseq)
apcrc = chkaes((char)c,1);
-#else
+#else /* NOCSETS */
outxbuf[0] = c;
outxcount = 1;
outxbuf[outxcount] = NUL;
c2 = csave;
if (sessft == 0 && csave == '\r')
c2 = '\n';
- logchar((char)c2);
+ LOGCHAR((char)c2);
}
}
} else {
gotnet = 0;
prev = c;
c = ckcgetc(0); /* Get next character */
- /* debug(F101,"CONNECT c","",c); */
if (c < 0) { /* Failed... */
ckcputf(); /* Flush CONNECT output buffer */
if (msgflg) {
if (debses) { /* Output character to screen */
char *s; /* Debugging display... */
- s = dbchr(c);
- while (*s)
- ckcputc(*s++);
+ s = dbchr(c); /* Make char into string */
+ while (*s) { /* Output each char from string */
+ ckcputc(*s);
+ if (seslog) /* And maybe log it. */
+ LOGCHAR((char)*s);
+ s++;
+ }
} else { /* Regular display ... */
c &= cmask; /* Apply Kermit-to-remote mask */
if (seslog && sessft) /* If binary session log */
- logchar((char)c); /* log the character now. */
+ LOGCHAR((char)c); /* log the character now. */
#ifndef NOXFER
#ifdef CK_AUTODL
/*
continue;
else if (oldesc[0] == ES_GOTESC && !apcactive) {
ckcputc(ESC); /* Write saved ESC */
- if (seslog && !sessft) logchar((char)ESC);
+ if (seslog && !sessft) LOGCHAR((char)ESC);
} else if (apcrc) { /* We have an APC */
debug(F111,"CONNECT APC complete",apcbuf,apclength);
ckcputf(); /* Force screen update */
) {
c &= cmdmsk; /* Apply command mask. */
+
+ /* Handle bare carriage returns and linefeeds */
+
if (c == CR && tt_crd) { /* SET TERM CR-DISPLA CRLF? */
ckcputc(c); /* Yes, output CR */
- if (seslog && !sessft) logchar((char)c);
+ if (seslog && !sessft) LOGCHAR((char)c);
c = LF; /* and insert a linefeed */
}
+ if (c == LF && tt_lfd) { /* SET TERM CR-DISPLA CRLF? */
+ ckcputc(CR); /* Yes, output CR */
+ if (seslog && !sessft) LOGCHAR((char)CR);
+ }
+#ifndef NOESCSEQ
if (dontprint) { /* Do transparent printing. */
dontprint = 0;
continue;
} else
-
+#endif /* NOESCSEQ */
ckcputc(c); /* Write character to screen */
}
- if (seslog && !sessft) /* Handle session log. */
- logchar((char)c);
+ if (seslog && !sessft) { /* Handle session log. */
+ LOGCHAR((char)c);
+ }
#ifdef XPRINT
if (printing && !inesc[0]) {
/* zchout() can't be used because */
#include "ckcsym.h"
-char *connv = "CONNECT Command for UNIX:fork(), 8.0.114, 29 Nov 2002";
+char *connv = "CONNECT Command for UNIX:fork(), 9.0.117, 14 Jul 2011";
/* C K U C O N -- Terminal connection to remote system, for UNIX */
/*
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#endif /* NEXT */
#include <signal.h> /* Signals */
-#include <errno.h> /* Error numbers */
+
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
+#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
#ifdef ZILOG /* Longjumps */
#include <setret.h>
extern int local, escape, duplex, parity, flow, seslog, sessft, debses,
mdmtyp, ttnproto, cmask, cmdmsk, network, nettype, deblog, sosi, tnlm,
- xitsta, what, ttyfd, ttpipe, quiet, backgrd, pflag, tt_crd, tn_nlm, ttfdflg,
+ xitsta, what, ttyfd, ttpipe, quiet, backgrd, pflag, tt_crd, tt_lfd,
+ tn_nlm, ttfdflg,
tt_escape, justone, carrier, hwparity;
extern long speed;
static int unicode = 0;
-static int
- escseq = 0, /* 1 = Recognizer is active */
- inesc = 0, /* State of sequence recognizer */
- oldesc = -1; /* Previous state of recognizer */
+static int escseq = 0; /* 1 = Recognizer is active */
+int inesc = 0; /* State of sequence recognizer */
+int oldesc = -1; /* Previous state of recognizer */
#define OUTXBUFSIZ 15
static CHAR inxbuf[OUTXBUFSIZ+1]; /* Host-to-screen expansion buffer */
logchar((char)c);
c = LF; /* and insert a linefeed */
}
+ if (c == LF && tt_lfd) { /* SET TERM CR-DISPLA CRLF? */
+ ckcputc(CR); /* Yes, output CR */
+ if (seslog && !sessft) logchar((char)CR);
+ }
ckcputc(c); /* Write character to screen */
}
if (seslog && !sessft) /* Handle session log */
#include "ckcsym.h"
-char *dialv = "Dial Command, 8.0.160, 29 Apr 2002";
+char *dialv = "Dial Command, 9.0.160, 16 Oct 2009";
/* C K U D I A -- Module for automatic modem dialing. */
/*
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
);
#endif /* COMMENT */
}
- debug(F101,"ckudia xx_ok","",xx_ok);
+ /* debug(F101,"ckudia xx_ok","",xx_ok); */
if (x && xx_ok) { /* Look for OK response */
debug(F100,"ckudia calling xx_ok for EC","",0);
x = (*xx_ok)(5,1);
#define CK_NONBLOCK /* See zoutdump() */
#ifdef aegis
-char *ckzv = "Aegis File support, 8.0.200, 4 Mar 2004";
+char *ckzv = "Aegis File support, 9.0.216, 20 Aug 2011";
#else
#ifdef Plan9
-char *ckzv = "Plan 9 File support, 8.0.200, 4 Mar 2004";
+char *ckzv = "Plan 9 File support, 9.0.216, 20 Aug 2011";
#else
-char *ckzv = "UNIX File support, 8.0.200, 4 Mar 2004";
+char *ckzv = "UNIX File support, 9.0.216, 20 Aug 2011";
#endif /* Plan9 */
#endif /* aegis */
/*
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City,
and others noted in the comments below. Note: CUCCA = Previous name of
- Columbia University Academic Information Systems.
+ Columbia University Academic Information Systems. Note: AcIS = Previous
+ of Columbia University Information Technology.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#include "ckcxla.h"
#endif /* NOCSETS */
+/* To avoid pulling in all of ckuusr.h so we copy the few needed prototypes */
+
+struct mtab { /* Macro table, like keyword table */
+ char *kwd; /* But with pointers for vals */
+ char *mval; /* instead of ints. */
+ short flgs;
+};
+_PROTOTYP( int mlook, (struct mtab [], char *, int) );
+_PROTOTYP( int dodo, (int, char *, int) );
+_PROTOTYP( int parser, ( int ) );
+
#ifdef COMMENT
/* This causes trouble in C-Kermit 8.0. I don't remember the original */
/* reason for this being here but it must have been needed at the time... */
#endif /* OSF13 */
#endif /* COMMENT */
-#include <errno.h>
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
+#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
+
#include <signal.h>
#ifdef MINIX2
#include <sys/stat.h>
#endif /* CIE */
+
+
/* Macro to alleviate isdir() calls internal to this module */
static struct stat STATBUF;
static char guestpass[GUESTPASS] = { NUL, NUL }; /* Anonymous "password" */
static int logged_in = 0; /* Set when user is logged in */
static int askpasswd = 0; /* Have OK user, must ask for passwd */
+#ifdef CK_PAM
+extern int gotemptypasswd;
+#endif /* CK_PAM */
#endif /* CK_LOGIN */
#ifdef CKROOT
_PROTOTYP( VOID ignorsigs, (void) );
_PROTOTYP( VOID restorsigs, (void) );
+#ifdef SELECT
+_PROTOTYP( int ttwait, (int, int) ); /* ckutio.c */
+#endif /* SELECT */
/*
Change argument to "(const char *)" if this causes trouble.
#include <shadow.h>
#endif /* CK_SHADOW */
#ifdef CK_PAM /* PAM... */
+#ifdef MACOSX
+#include <pam/pam_appl.h>
+#else /* MACOSX */
#include <security/pam_appl.h>
+#endif /* MACOSX */
#ifndef PAM_SERVICE_TYPE /* Defines which PAM service we are */
#define PAM_SERVICE_TYPE "kermit"
#endif /* PAM_SERVICE_TYPE */
#endif /* PROVX1 */
static char sspace[SSPACE]; /* Buffer for generating filenames */
#else /* is DYNAMIC */
+#ifdef CK_64BIT
+#define SSPACE 2000000000 /* Two billion bytes */
+#else
#ifdef BIGBUFOK
-#define SSPACE 500000
+#define SSPACE 10000000 /* Ten million */
#else
-#define SSPACE 10000
+#define SSPACE 10000 /* Ten thousand */
#endif /* BIGBUFOK */
+#endif /* CK_64BIT */
char *sspace = (char *)0;
#endif /* DYNAMIC */
static int ssplen = SSPACE; /* Length of string space buffer */
#endif /* IRIX60 */
#endif /* SOLARIS */
#endif /* HAVEUTMPX */
+
#ifdef HAVEUTMPX
#include <utmpx.h>
#else
#endif /* HAVEUTMPX */
#endif /* UTMPBUG */
+#ifdef HAVEUTMPX
+#define UTMPSTRUCT utmpx
+#else
+#define UTMPSTRUCT utmp
+#endif /* HAVEUTMPX */
+
#ifndef WTMPFILE
#ifdef QNX
#define WTMPFILE "/usr/adm/wtmp.1"
logwtmp(line, name, host) char *line, *name, *host;
#endif /* CK_ANSIC */
/* logwtmp */ {
-#ifdef HAVEUTMPX
- struct utmpx ut; /* Needed for ut_host[] */
-#else
- struct utmp ut;
-#endif /* HAVEUTMPX */
+ struct UTMPSTRUCT ut;
struct stat buf;
/* time_t time(); */
}
if (!fstat(wtmpfd, &buf)) {
ckstrncpy(ut.ut_line, line, sizeof(ut.ut_line));
+#ifdef FREEBSD9
+ ckstrncpy(ut.ut_user, name, sizeof(ut.ut_user));
+#else
ckstrncpy(ut.ut_name, name, sizeof(ut.ut_name));
+#endif /* FREEBSD9 */
#ifdef HAVEUTHOST
/* Not portable */
ckstrncpy(ut.ut_host, host, sizeof(ut.ut_host));
ut.ut_time = zz;
}
#else
+#ifdef CK_64BIT
+ {
+ /* Now (Jan 2006) we can do this for any 64-bit build */
+ time_t zz;
+ time(&zz);
+ ut.ut_time = zz;
+ }
+#else
time(&ut.ut_time);
+#endif /* CK_64BIT */
#endif /* LINUX */
#endif /* HAVEUTMPX */
- if (write(wtmpfd, (char *)&ut, sizeof(struct utmp)) !=
- sizeof(struct utmp)) {
+ if (write(wtmpfd, (char *)&ut, sizeof(struct UTMPSTRUCT)) !=
+ sizeof(struct UTMPSTRUCT)) {
#ifndef NOFTRUNCATE
#ifndef COHERENT
ftruncate(wtmpfd, buf.st_size); /* Error, undo any partial write */
#endif /* DYNAMIC */
extern char *zinptr, *zoutptr;
extern int zincnt, zoutcnt;
-extern int wildxpand;
+extern int wildxpand, wildena; /* Wildcard handling */
-static long iflen = -1L; /* Input file length */
+static CK_OFF_T iflen = (CK_OFF_T)-1; /* Input file length */
static PID_T pid = 0; /* pid of child fork */
static int fcount = 0; /* Number of files in wild group */
}
#endif /* CKROOT */
fp[n] = fopen(name,"r"); /* Real file, open it. */
- debug(F111,"zopeni fopen", name, fp[n]);
+ /* debug(F111,"zopeni fopen", name, fp[n]); */
#ifdef ZDEBUG
- printf("ZOPENI fp[%d]=%ld\n",n,fp[n]);
+ /* printf("ZOPENI fp[%d]=%ld\n",n,fp[n]); */
#endif /* ZDEBUG */
ispipe[n] = 0;
char p[8];
int append = 0;
+ int istty = 0, filefd = 0;
/* As of Version 5A, the attribute structure and the file information */
/* structure are included in the arglist. */
fp[n] = stdout;
ispipe[n] = 0;
#endif /* COMMENT */
+#ifdef COMMENT
#ifdef DEBUG
if (n != ZDFILE)
debug(F101,"zopeno fp[n]=stdout","",fp[n]);
#endif /* DEBUG */
+#endif /* COMMENT */
zoutcnt = 0;
zoutptr = zoutbuffer;
return(1);
append = 1;
}
}
-
if (xferlog
#ifdef CKSYSLOG
|| ((ckxsyslog >= SYSLG_FC) && ckxlogging)
getfullname(name);
debug(F110,"zopeno fullname",fullname,0);
}
+ {
+ /* Allow tty devices to opened as output files 2009/10/20 */
+ int fd, mode = 0;
+ debug(F110,"zopeno attempting to open",name,0);
+#ifdef O_NONBLOCK
+ mode = O_NONBLOCK;
+#else
+#ifdef O_NDELAY
+ mode = O_NDELAY;
+#else
+#ifdef FNDELAY
+ mode = FNDELAY;
+#endif /* FNDELAY */
+#endif /* O_NDELAY */
+#endif /* O_NONBLOCK */
+ debug(F111,"zopeno open mode",name,mode);
+ fd = open(name,O_WRONLY,mode);
+ debug(F111,"zopeno open",name,fd);
+ if (fd > -1) {
+ if (isatty(fd)) {
+ filefd = fd;
+ istty++;
+ }
+ }
+ }
+ debug(F111,"zopeno istty",name,istty);
debug(F110,"zopeno fopen arg",p,0);
- fp[n] = fopen(name,p); /* Try to open the file */
+ if (istty)
+ fp[n] = fdopen(filefd,p);
+ else
+ fp[n] = fopen(name,p); /* Try to open the file */
ispipe[ZIFILE] = 0;
#ifdef ZDEBUG
if (fp[n] == NULL) { /* Failed */
debug(F101,"zopeno failed errno","",errno);
+ if (istty) close(filefd);
#ifdef CKSYSLOG
if (ckxsyslog >= SYSLG_FC && ckxlogging)
syslog(LOG_INFO, "file[%d] %s: %s failed (%m)",
int
zclose(n) int n; {
int x = 0, x2 = 0;
- extern long ffc;
+ extern CK_OFF_T ffc;
debug(F101,"zclose file number","",n);
if (chkfn(n) < 1) return(0); /* Check range of n */
x = EOF;
#endif /* NOPUSH */
debug(F101,"zclose zclosf","",x);
- debug(F101,"zclose zclosf fp[n]","",fp[n]);
+ /* debug(F101,"zclose zclosf fp[n]","",fp[n]); */
} else {
if ((fp[n] != stdout) && (fp[n] != stdin))
x = fclose(fp[n]);
"%.24s [BUFFER WOULD OVERFLOW]\n",ctime(&timenow));
else
sprintf(iksdmsg, /* SAFE */
- "%.24s %d %s %ld %s %c %s %c %c %s %s %d %s\n",
+ "%.24s %d %s %s %s %c %s %c %c %s %s %d %s\n",
ctime(&timenow), /* date/time */
gtimer(), /* elapsed secs */
s, /* peer name */
- ffc, /* byte count */
+ ckfstoa(ffc), /* byte count */
fnam, /* full pathname of file */
(binary ? 'b' : 'a'), /* binary or ascii */
"_", /* options = none */
}
#endif /* USE_MEMCPY */
ckstrncpy(zinbuffer,"zinbuffer is a valid buffer",INBUFSIZE);
- debug(F111,"ZINFILL about to call fread",zinbuffer,zinbuffer);
+ /* debug(F111,"ZINFILL about to call fread",zinbuffer,zinbuffer); */
}
#endif /* DEBUG */
/* Z S O U T -- Write a string out to the given file, buffered. */
+/* Returns 0 on success, -1 on failure */
+
int
zsout(n,s) int n; char *s; {
int rc = 0;
}
#endif /* IKSD */
- if (n == ZSFILE)
- return(write(fileno(fp[n]),s,(int)strlen(s)));
+ if (n == ZSFILE) {
+ int k;
+ k = strlen(s);
+ rc = write(fileno(fp[n]),s,k);
+ return((rc == k) ? 0 : -1);
+ }
rc = fputs(s,fp[n]) == EOF ? -1 : 0;
if (n == ZWFILE)
fflush(fp[n]);
/* Z S O U T L -- Write string to file, with line terminator, buffered */
+/* Returns 0 on success, -1 on failure */
+
int
zsoutl(n,s) int n; char *s; {
if (zsout(n,s) < 0)
#endif /* IKSD */
if (n == ZSFILE) /* Session log is unbuffered */
- return(write(fileno(fp[n]),"\n",1));
+ return(write(fileno(fp[n]),"\n",1) == 1 ? 0 : -1);
else if (fputs("\n",fp[n]) == EOF)
return(-1);
if (n == ZDIFIL || n == ZWFILE) /* Flush connection log records */
/* Z S O U T X -- Write x characters to file, unbuffered. */
+/* Returns number of characters written on success, -1 on failure */
+
int
zsoutx(n,s,x) int n, x; char *s; {
+ int k;
+ if (!s) return(0);
+ if (!*s) return(0);
+
#ifdef IKSD
if (inserver && !local && (n == ZCTERM || n == ZSTDIO)) {
#ifdef COMMENT
}
#endif /* IKSD */
+ if ((k = (int)strlen(s)) > x) x = k; /* Nothing else would make sense */
#ifdef COMMENT
if (chkfn(n) < 1) return(-1);
return(write(fp[n]->_file,s,x));
#endif /* _IFLNK */
#endif /* CKSYMLINK */
-long
+CK_OFF_T
zgetfs(name) char *name; {
struct stat buf;
char fnam[CKMAXPATH+4];
- long size = -1L;
+ CK_OFF_T size = (CK_OFF_T)-1;
int x;
int needrlink = 0;
char * s;
For Berkeley Unix, a file must be of type "regular" to be readable.
Directory files, special files, and symbolic links are not readable.
*/
-long
+CK_OFF_T
zchki(name) char *name; {
struct stat buf;
char * s;
int
zchko(name) char *name; {
int i, x, itsadir = 0;
- char *s;
+ char *s = NULL;
char * oname;
extern int zchkod; /* Used by IF WRITEABLE */
zchkod is a global flag meaning we're checking not to see if the directory
file is writeable, but if it's OK to create files IN the directory.
*/
- if (!zchkod && isdir(name)) /* Directories are not writeable */
- return(-1);
-
+ if (!zchkod && isdir(name)) { /* Directories are not writeable */
+ debug(F111,"zchko isdir",name,1);
+ return(-1);
+ }
s = malloc(x+3); /* Must copy because we can't */
if (!s) { /* write into our argument. */
fprintf(stderr,"zchko: Malloc error 46\n");
return(-1);
}
ckstrncpy(s,name,x+3);
-
+#ifdef UNIX
+#ifdef NOUUCP
+ { /* 2009/10/20 */
+ /* Allow tty devices to opened as output files */
+ int fd, istty = 0, mode = 0;
+ debug(F110,"zchko attempting to open",name,0);
+ /* Don't block on lack of Carrier or other modem signals */
+#ifdef O_NONBLOCK
+ mode = O_NONBLOCK;
+#else
+#ifdef O_NDELAY
+ mode = O_NDELAY;
+#else
+#ifdef FNDELAY
+ mode = FNDELAY;
+#endif /* FNDELAY */
+#endif /* O_NDELAY */
+#endif /* O_NONBLOCK */
+ debug(F111,"zchko open mode",name,mode);
+ fd = open(name,O_WRONLY,mode); /* Must attempt to open it */
+ debug(F111,"zchko open",name,fd);
+ if (fd > -1) { /* to get a file descriptor */
+ if (isatty(fd)) /* for isatty() */
+ istty++;
+ debug(F111,"zchko isatty",name,istty);
+ fd = close(fd);
+ if (istty) {
+ goto doaccess;
+ }
+ } else {
+ debug(F101,"zchko open errno","",errno);
+ x = -1;
+ }
+ }
+#endif /* NOUUCP */
+#endif /* UNIX */
for (i = x; i > 0; i--) { /* Strip filename from right. */
if (ISDIRSEP(s[i-1])) {
itsadir = 1;
if (!s[0])
ckstrncpy(s,".",x+3);
+ doaccess:
+
#ifdef SW_ACC_ID
debug(F100,"zchko swapping ids for access()","",0);
priv_on();
debug(F111,"zchko access failed:",s,errno);
else
debug(F111,"zchko access ok:",s,x);
- free(s); /* Free temporary storage */
+ if (s) free(s); /* Free temporary storage */
return((x < 0) ? -1 : 0); /* and return. */
}
shpath = getenv("SHELL"); /* What shell? */
if (shpath == NULL) {
p = getpwuid( real_uid() ); /* Get login data */
- debug(F111,"zxcmd shpath","getpwuid()",p);
+ /* debug(F111,"zxcmd shpath","getpwuid()",p); */
if (p == (struct passwd *)NULL || !*(p->pw_shell))
shpath = defshell;
else shpath = p->pw_shell;
return((x != 0) ? -1 : 1);
}
#endif /* NOPOPEN */
- debug(F101,"zclosf fp[filnum]","", fp[filnum]);
- debug(F101,"zclosf fp[ZSYSFN]","", fp[ZSYSFN]);
+ /* debug(F101,"zclosf fp[filnum]","", fp[filnum]); */
+ /* debug(F101,"zclosf fp[ZSYSFN]","", fp[ZSYSFN]); */
if (pid != (PID_T) 0) {
debug(F101,"zclosf killing pid","",pid);
fp[filnum] = fp[ZSYSFN] = NULL;
ispipe[filnum] = 0;
- debug(F101,"zclosf fp[filnum]","",fp[filnum]);
+ /* debug(F101,"zclosf fp[filnum]","",fp[filnum]); */
#ifdef CK_CHILD
return(pexitstat == 0 ? 1 : -1);
#else
Depends on external variable wildxpand: 0 means we expand wildcards
internally, nonzero means we call the shell to do it.
+
+ AND in C-Kermit 8.0.212 and later, on extern wildena: 1 means wildcards
+ are enabled, 0 means disabled, the characters are taken literally.
*/
static int xdironly = 0;
static int xfilonly = 0;
fn[x] = '\0';
}
}
- debug(F111,"zxpand fn 3",fn,haveonedir);
+ debug(F111,"zxpand fn 3 haveonedir",fn,haveonedir);
/*
The following allows us to parse a single directory name without opening
the directory and looking at its contents. The diractive flag is a horrible
hack (especially since DIR /NORECURSIVE turns it off), but otherwise we'd
have to change the API.
*/
+ debug(F111,"zxpand fn 3 diractive",fn,diractive);
if (!diractive && haveonedir) {
-#ifdef COMMENT
- fcount = (mtchs == NULL &&
- (mtchs = (char **)malloc(maxnames * sizeof(*mtchs))) == NULL)
- ? 0 : 1;
-#else
fcount = 0;
if (!mtchs) {
mtchs = (char **)malloc(maxnames * sizeof(*mtchs));
- if (mtchs)
- fcount = 1;
- if (!fcount)
+ if (!mtchs)
return(nxpand = fcount);
}
-#endif /* COMMENT */
+ fcount = 1;
debug(F110,"zxpand haveonedir A1",fnarg,0);
initspace(mtchs,ssplen);
addresult(fnarg,1);
if (numfnd < 0) return(-1);
mtchptr = mtchs; /* Save pointer for next. */
- debug(F110,"zxpand haveonedir A2",*mtchptr,0);
+ debug(F111,"zxpand haveonedir A2",*mtchptr,numfnd);
return(nxpand = fcount);
}
/*ARGSUSED*/
int
#ifdef CK_ANSIC
-zchkspa(char *f, long n)
+zchkspa(char *f, CK_OFF_T n)
#else
-zchkspa(f,n) char *f; long n;
+zchkspa(f,n) char *f; CK_OFF_T n;
#endif /* CK_ANSIC */
/* zchkspa() */ {
/* In UNIX there is no good (and portable) way. */
int
zsattr(xx) struct zattr *xx; {
- long k; int x;
+ CK_OFF_T k; int x;
struct stat buf;
- k = iflen % 1024L; /* File length in K */
- if (k != 0L) k = 1L;
- xx->lengthk = (iflen / 1024L) + k;
+ k = iflen % 1024; /* File length in K */
+ if (k) k = 1L;
+ xx->lengthk = (iflen / 1024) + k;
xx->type.len = 0; /* File type can't be filled in here */
xx->type.val = "";
if (*nambuf) {
}
#else
#ifndef BSD44
+#ifndef NOTIMEZONE
tmx += timezone;
+#endif /* NOTIMEZONE */
#endif /* BSD44 */
#endif /* Plan9 */
#endif /* ultrix */
if (!*f) return(-1);
if (!yy) return(-1);
- debug(F110,"zstime",f,0);
- debug(F111,"zstime date",yy->date.val,yy->date.len);
-
#ifdef CKROOT
debug(F111,"zstime setroot",ckroot,ckrootset);
if (ckrootset) if (!zinroot(f)) {
while (*p) {
cur = (struct path *) malloc(sizeof (struct path));
- debug(F101,"splitpath malloc","",cur);
+ /* debug(F101,"splitpath malloc","",cur); */
if (cur == NULL) {
debug(F100,"splitpath malloc failure","",0);
prv -> fwd = NULL;
debug(F111,"traverse sofar 2",sofar,0);
segisdir = ((pl -> fwd) == NULL) ? 0 : 1;
- itswild = iswild(pl -> npart);
+ itswild = wildena ? (iswild(pl -> npart)) : 0; /* 15 Jun 2005 */
debug(F111,"traverse segisdir",sofar,segisdir);
debug(F111,"traverse itswild ",pl -> npart,itswild);
debug(F101,"traverse directory open() failed","",errno);
return;
}
- while (read(fd, (char *)dirbuf, sizeof dir_entry))
+ while (read(fd, (char *)dirbuf, sizeof dir_entry) > 0)
#endif /* OPENDIR */
{ /* Read each entry in this directory */
int exists;
struct passwd *p;
_PROTOTYP(extern char * getlogin, (void) );
+ debug(F111,"whoami ruid A",realname,ruid);
+
if (ruid != -1)
return(realname);
ruid = real_uid(); /* get our uid */
+ debug(F101,"whoami ruid B","",ruid);
+ if (ruid < 0) ruid = getuid();
+ debug(F101,"whoami ruid C","",ruid);
/* how about $USER or $LOGNAME? */
if ((c = getenv(NAMEENV)) != NULL) { /* check the env variable */
ckstrncpy(envname, c, 255);
+ debug(F110,"whoami envname",envname,0);
if ((p = getpwnam(envname)) != NULL) {
if (p->pw_uid == ruid) { /* get passwd entry for envname */
ckstrncpy(realname, envname, UIDBUFLEN); /* uid's are same */
+ debug(F110,"whoami realname",realname,0);
return(realname);
}
}
if ((c = getlogin()) != NULL) { /* name from utmp file */
ckstrncpy (loginname, c, UIDBUFLEN);
+ debug(F110,"whoami loginname",loginname,0);
if ((p = getpwnam(loginname)) != NULL) /* get passwd entry */
if (p->pw_uid == ruid) /* for loginname */
ckstrncpy(realname, envname, UIDBUFLEN); /* if uid's are same */
/* Use first name we get for ruid */
if ((p = getpwuid(ruid)) == NULL) { /* name for uid */
+ debug(F101,"whoami no username for ruid","",ruid);
realname[0] = '\0'; /* no user name */
ruid = -1;
return(NULL);
}
ckstrncpy(realname, p->pw_name, UIDBUFLEN);
+ debug(F110,"whoami realname from getpwuid",realname,0);
return(realname);
#else
return(NULL);
debug(F111,"tilde_expand",dirname,dirname[0]);
- if (dirname[0] != '~') /* Not a tilde...return param */
- return(dirname);
+ if (dirname[0] != '~') { /* Not a tilde...return param */
+ debug(F000,"tilde_expand NOT TILDE","",dirname[0]);
+ return(dirname);
+ }
if (!strcmp(olddir,dirname)) { /* Same as last time */
- return(oldrealdir); /* so return old answer. */
+ debug(F110,"tilde_expand same as previous",oldrealdir,0);
+ return(oldrealdir); /* so return old answer. */
} else {
+ debug(F110,"tilde_expand working...","",0);
j = (int)strlen(dirname);
for (i = 0; i < j; i++) /* find username part of string */
if (!ISDIRSEP(dirname[i]))
temp[i] = dirname[i];
else break;
temp[i] = '\0'; /* tie off with a NULL */
+ debug(F111,"tilde_expand first part",temp,i);
if (i == 1) { /* if just a "~" */
#ifdef IKSD
if (inserver)
#endif /* IKSD */
{
char * p = whoami();
- if (p)
- user = getpwnam(p);
- else
- user = NULL;
+ debug(F110,"tilde_expand p",p,0);
+ if (p) {
+ user = getpwnam(p);
+ debug(F110,"tilde_expand getpwpam ~",user,0);
+ } else {
+ user = NULL;
+ }
}
} else {
+ debug(F110,"tilde_expand ~user",&temp[1],0);
user = getpwnam(&temp[1]); /* otherwise on the specified user */
+ debug(F110,"tilde_expand getpwpam user",user,0);
}
+
}
if (user != NULL) { /* valid user? */
ckstrncpy(olddir, dirname, BUFLEN); /* remember the directory */
return(0);
#else
if (nopush) return(-1);
+ if (!s) return(-1);
+ while (*s == ' ') s++;
+
debug(F110,"zshcmd command",s,0);
#ifdef aegis
/* This allows user to specify a different shell. */
shpath = getenv("SHELL"); /* What shell? */
debug(F110,"zshcmd SHELL",shpath,0);
- if (shpath == NULL) {
- p = getpwuid( real_uid() ); /* Get login data */
- if (p == (struct passwd *)NULL || !*(p->pw_shell))
- shpath = defshell;
- else shpath = p->pw_shell;
- debug(F110,"zshcmd shpath",shpath,0);
+ {
+ int x = 0;
+ if (!shpath) {
+ x++;
+ } else if (!*shpath) {
+ x++;
+ }
+ if (x) {
+ debug(F100,"zshcmd SHELL not defined","",0);
+ p = getpwuid( real_uid() ); /* Get login data */
+ if (p == (struct passwd *)NULL || !*(p->pw_shell)) {
+ shpath = defshell;
+ } else {
+ shpath = p->pw_shell;
+ }
+ debug(F110,"zshcmd shpath from getpwuid",shpath,0);
+ }
}
#endif /* COMMENT */
#endif /* aegis */
if (*shptr++ == DIRSEP)
shname = shptr;
restorsigs(); /* Restore ignored signals */
- debug(F110,"zshcmd shname",shname,0);
+ debug(F110,"zshcmd execl shpath",shpath,0);
+ debug(F110,"zshcmd execl shname",shname,0);
if (s == NULL || *s == '\0') { /* Interactive shell requested? */
+ debug(F100,"zshcmd execl interactive","",0);
execl(shpath,shname,"-i",NULL); /* Yes, do that */
} else { /* Otherwise, */
+ debug(F110,"zshcmd execl command",s,0);
execl(shpath,shname,"-c",s,NULL); /* exec the given command */
} /* If execl() failed, */
+ debug(F101,"zshcmd errno","",errno);
+ perror(shpath); /* print reason and */
exit(BAD_EXIT); /* return bad return code. */
} else { /* Parent */
istat = signal(SIGINT,SIG_IGN); /* Let the fork handle keyboard */
qstat = signal(SIGQUIT,SIG_IGN); /* interrupts itself... */
+ debug(F110,"zshcmd parent waiting for child",s,0);
#ifdef CK_CHILD
while (((wstat = wait(&child)) != pid) && (wstat != -1))
#else
/*
Returns:
- 0 if argument is empty or is the name of a single file;
+ 0 wildcards disabled or argument is empty or is the name of a single file;
1 if it contains wildcard characters.
Note: must match the algorithm used by match(), hence no [a-z], etc.
*/
iswild(filespec) char *filespec; {
char c, *p, *f; int x;
int quo = 0;
- if (!filespec)
+ if (!filespec) /* Safety */
+ return(0);
+ if (!wildena) /* Wildcards disabled - 12 Jun 2005 */
return(0);
f = filespec;
if (wildxpand) { /* Shell handles wildcarding */
#endif /* ISDIRCACHE */
int
+isalink(s) char *s; {
+#ifndef CKSYMLINK
+ return(0);
+#else
+ int r = 0;
+ char filbuf[CKMAXPATH+4];
+ if (readlink(s,filbuf,CKMAXPATH) > -1)
+ r = 1;
+ debug(F110,"isalink readlink",s,r);
+ return(r);
+#endif /* CKSYMLINK */
+}
+
+int
isdir(s) char *s; {
int x, needrlink = 0, islink = 0;
struct stat statbuf;
char fnam[CKMAXPATH+4];
if (!s) return(0);
+ debug(F110,"isdir entry",s,0);
+#ifdef DTILDE /* 2005-08-13 */
+ if (*s == '~') { /* Starts with tilde? */
+ s = tilde_expand(s); /* Attempt to expand tilde */
+ if (!s) s = "";
+ debug(F110,"isdir tilde_expand",s,0);
+ }
+#endif /* DTILDE */
if (!*s) return(0);
#ifdef ISDIRCACHE
/* Z F S E E K -- Position input file pointer */
/*
Call with:
- Long int, 0-based, indicating desired position.
+ CK_OFF_T (32 or 64 bits), 0-based, indicating desired position.
Returns:
0 on success.
-1 on failure.
#ifndef NORESEND
int
#ifdef CK_ANSIC
-zfseek(long pos)
+zfseek(CK_OFF_T pos)
#else
-zfseek(pos) long pos;
+zfseek(pos) CK_OFF_T pos;
#endif /* CK_ANSIC */
/* zfseek */ {
zincnt = -1; /* Must empty the input buffer */
debug(F101,"zfseek","",pos);
- return(fseek(fp[ZIFILE], pos, 0)?-1:0);
+ return(CKFSEEK(fp[ZIFILE], pos, 0)?-1:0);
}
#endif /* NORESEND */
/* Z F N Q F P -- Convert filename to fully qualified absolute pathname */
+/*
+ Given a possibly unqualified or relative file specification fn, zfnqfp()
+ returns the fully qualified filespec for the same file, returning a struct
+ that contains the length (len) of the result, a pointer (fpath) to the
+ whole result, and a pointer (fname) to where the filename starts.
+*/
static struct zfnfp fnfp = { 0, NULL, NULL };
struct zfnfp *
#ifdef CK_SHADOW
sp = getspnam(name);
- debug(F111,"sgetpwnam","getspnam()",sp);
- if (sp == NULL)
- return (NULL);
+ if (sp == NULL) {
+ debug(F110,"sgetpwnam","getspnam() fails",0);
+ return (NULL);
+ }
#endif /* CK_SHADOW */
#ifdef HPUX10_TRUSTED
#endif /* HPUX10_TRUSTED */
p = getpwnam(name);
- debug(F111,"sgetpwnam","getpwnam()",p);
+ /* debug(F111,"sgetpwnam","getpwnam()",p); */
if (p == NULL)
return(NULL);
if (save.pw_name) {
int x;
char *shell;
#ifdef GETUSERSHELL
- char *getusershell();
+_PROTOTYP(char * getusershell, (void) );
#endif /* GETUSERSHELL */
+#ifndef NODCLENDUSERSHELL
+_PROTOTYP(VOID endusershell, (void) );
+#endif /* NODCLENDUSERSHELL */
#ifdef CK_PAM
int pam_status;
#ifdef GETUSERSHELL
while ((cp = getusershell()) != NULL) {
debug(F110,"zvuser getusershell",cp,0);
- if (strcmp(cp, shell) == 0)
+ if ((int)strcmp(cp, shell) == 0)
break;
}
debug(F100,"zvuser endusershell 1","",0);
+#ifndef NODCLENDUSERSHELL
+ (VOID) endusershell();
+#else
endusershell();
+#endif /* NODCLENDUSERSHELL */
debug(F100,"zvuser endusershell 2","",0);
#else /* GETUSERSHELL */
cp = ""; /* Do not refuse if we cannot check */
return(1);
fd = fopen(userfile ? userfile : _PATH_FTPUSERS, "r");
- debug(F111,"checkuser userfile",userfile,fd);
+ /* debug(F111,"checkuser userfile",userfile,fd); */
if (fd) {
line[0] = '\0';
while (fgets(line, sizeof(line), fd)) {
#define AUTH_VALID 4
#endif /* AUTH_VALID */
+#ifdef __FreeBSD__ /* 299 This was necessary in */
+#ifndef NODCLINITGROUPS /* FreeBSD 4.4, don't know */
+#define NODCLINITGROUPS /* about other versions... */
+#endif /* NODCLINITGROUPS */
+#endif /* __FreeBSD__ */
+
int
zvpass(p) char *p; {
+#ifndef NODCLINITGROUPS
+_PROTOTYP(int initgroups, (const char *, gid_t) );
+#endif /* NODCLINITGROUPS */
+
char *xpasswd, *salt;
char * dir = NULL;
#ifdef CK_PAM
}
}
debug(F110,"zvpass","calling pam_authenticate",0);
+#ifdef COMMENT
if (*p)
pam_pw = p;
+#else
+/*
+ Make IKSD authentication (using PAM) ask for a password when an
+ invalid username has been given, to avoid disclosing which account
+ names are valid. See #417247 (Debian).
+*/
+ if (*p
+#ifdef CK_LOGIN
+ || gotemptypasswd
+#endif /* CK_LOGIN */
+ )
+ pam_pw = p;
+#endif /* COMMENT */
if ((pam_status = pam_authenticate(pamh, 0)) != PAM_SUCCESS) {
reply = pam_strerror(pamh, pam_status);
debug(F110,"zvpass PAM failure",reply,0);
-C-Kermit 8.0 Unix Installation Instructions
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
- [ [1]Contents ] [ [2]C-Kermit ] [ [3]Kermit Home ]
+C-Kermit 9.0 Installation Instructions and Options for Unix
+
+ [ [11]Contents ] [ [12]C-Kermit ] [ [13]Kermit Home ]
Frank da Cruz
The Kermit Project
Columbia University
- As of C-Kermit version: 8.0.211, 10 April 2004
- This file last updated: Tue Apr 13 10:14:33 2004 (New York City
+ As of C-Kermit version: 9.0.302, 20 August 2011
+ This file last updated: Sun Aug 21 12:08:29 2011 (New York City
time)
- IF YOU ARE READING A PLAIN-TEXT version of this document, note that
- this file is a plain-text dump of a Web page. You can visit the
- original (and possibly more up-to-date) Web page here:
+ IF YOU ARE READING A PLAIN-TEXT version of this document, it is a
+ plain-text copy of a Web page. You can visit the original (and possibly
+ more up-to-date) Web page here:
-[4]http://www.columbia.edu/kermit/ckuins.html
- __________________________________________________________________________
+[14]http://www.columbia.edu/kermit/ckuins.html
CONTENTS
- [5]OVERVIEW
-
- 1. [6]INTERNET QUICK START
- 2. [7]INSTALLING FROM PACKAGES
- 3. [8]INSTALLING PREBUILT BINARIES
- 4. [9]BUILDING FROM SOURCE CODE
- 5. [10]INSTALLING THE KERMIT FILES
- 6. [11]INSTALLING UNIX C-KERMIT FROM DOS-FORMAT DISKETTES
- 7. [12]CHECKING THE RESULTS
- 8. [13]REDUCING THE SIZE OF THE EXECUTABLE PROGRAM IMAGE
- 9. [14]UNIX VERSIONS
- 10. [15]DIALING OUT AND COORDINATING WITH UUCP
- 11. [16]RUNNING UNIX C-KERMIT SETUID OR SETGID
- 12. [17]CONFIGURING UNIX WORKSTATIONS
- 13. [18]BIZARRE BEHAVIOR AT RUNTIME
- 14. [19]CRASHES AND CORE DUMPS
- 15. [20]SYSLOGGING
- 16. [21]BUILDING SECURE VERSIONS OF C-KERMIT 8.0
- 17. [22]INSTALLING C-KERMIT AS AN SSH SERVER SUBSYSTEM
- __________________________________________________________________________
+ [15]OVERVIEW
+ 1. [16]INTERNET QUICK START
+ 2. [17]INSTALLING FROM PACKAGES
+ 3. [18]INSTALLING PREBUILT BINARIES
+ 4. [19]BUILDING FROM SOURCE CODE
+ 5. [20]INSTALLING THE KERMIT FILES
+ 6. [21]INSTALLING UNIX C-KERMIT FROM DOS-FORMAT DISKETTES
+ 7. [22]CHECKING THE RESULTS
+ 8. [23]REDUCING THE SIZE OF THE EXECUTABLE PROGRAM IMAGE
+ 9. [24]UNIX VERSIONS
+ 10. [25]DIALING OUT AND COORDINATING WITH UUCP
+ 11. [26]RUNNING UNIX C-KERMIT SETUID OR SETGID
+ 12. [27]CONFIGURING UNIX WORKSTATIONS
+ 13. [28]BIZARRE BEHAVIOR AT RUNTIME
+ 14. [29]CRASHES AND CORE DUMPS
+ 15. [30]SYSLOGGING
+ 16. [31]BUILDING SECURE VERSIONS OF C-KERMIT 9.0
+ 17. [32]INSTALLING C-KERMIT AS AN SSH SERVER SUBSYSTEM
OVERVIEW
- [ [23]Top ] [ [24]Contents ] [ [25]Next ]
+ [ [33]Top ] [ [34]Contents ] [ [35]Next ]
WARNING: This document contains notes that have been accumulating
- since the early 1980s. Many of the products and Unix versions
- mentioned here have not been heard of in a long while, but that
- does not necessarily mean they are not still running in some
- obscure nook.
+ since the mid 1980s. Many of the products and Unix versions
+ mentioned here have not been heard of in a long while, but that does
+ not necessarily mean they are not still running in some obscure
+ nook.
This file contains Unix-specific information. A lot of it. Unlike most
other packages, C-Kermit tries very hard to be portable to every Unix
certain things might have changed that C-Kermit depended upon.
This file concentrates on installation. For a description of general
- configuration options for C-Kermit, please read the [26]Configurations
+ configuration options for C-Kermit, please read the [36]Configurations
Options document. For troubleshooting after installation, see the
- [27]General Hints and Tips and [28]Unix-Specific Hints and Tips
+ [37]General Hints and Tips and [38]Unix-Specific Hints and Tips
documents. The latter, in particular, contains lots of information on
lots of specific Unix platforms. If you want to work on the source
- code, see the [29]C-Kermit Program Logic Manual
+ code, see the [39]C-Kermit Program Logic Manual
You may install C-Kermit:
- * From an "[30]install package", if one is available.
- * As a [31]prebuilt binary, if available, plus accompanying text
+ * From an "[40]install package", if one is available.
+ * As a [41]prebuilt binary, if available, plus accompanying text
files.
- * By building from [32]source code.
- __________________________________________________________________________
+ * By building from [42]source code.
1. INTERNET QUICK START
- [ [33]Top ] [ [34]Contents ] [ [35]Next ] [ [36]Previous ]
+ [ [43]Top ] [ [44]Contents ] [ [45]Next ] [ [46]Previous ]
If your Unix computer is on the Internet and it has a C compiler,
here's how to download, build, and install C-Kermit directly from the
1. Make a fresh directory and cd to it.
2. Download the C-Kermit source code:
- [37]ftp://kermit.columbia.edu/kermit/archives/cku211.tar.Z
- (compress format) or
- [38]ftp://kermit.columbia.edu/kermit/archives/cku211.tar.gz
- (gunzip format).
+ [47]ftp://www.columbia.edu/kermit/archives/cku211.tar.Z (compress
+ format) or [48]ftp://www.columbia.edu/kermit/archives/cku211.tar.gz
+ (gunzip format). If those links don't work, FTP transfers are being
+ blocked; try these HTTP links instead:
+ [49]http://kermit.columbia.edu/ftp/archives/cku211.tar.Z (compress
+ format) or
+ [50]http://kermit.columbia.edu/ftp/archives/cku211.tar.gz (gunzip
+ format).
3. Uncompress the compressed tar file with "uncompress" or "gunzip",
according to which type of compressed file you downloaded. (If you
don't understand this, you could download a (much larger)
uncompressed tar archive directly:
- [39]ftp://kermit.columbia.edu/kermit/archives/cku211.tar
+ [51]ftp://www.columbia.edu/kermit/archives/cku211.tar or
+ [52]http://kermit.columbia.edu/ftp/archives/cku211.tar
4. Now type "tar xvf cku211.tar" to unpack the individual files from
the tar archive.
5. Type "rm cku211.tar" to get rid of the tar archive, which is no
longer needed.
6. Read the comments at the top of the makefile to find out which
- target to use and then type the appropriate "make" command, such
- as "make linux", "make solaris8", etc.
+ target to use and then type the appropriate "make" command, such as
+ "make linux", "make solaris8", etc.
7. This produces a binary in your current directory called "wermit".
- Start it by typing "./wermit" and [40]try it out to make sure it
- works. Then read [41]Section 5 for how to install it, or simply
+ Start it by typing "./wermit" and [53]try it out to make sure it
+ works. Then read [54]Section 5 for how to install it, or simply
copy the wermit binary to the desired public directory, rename it
to kermit, and give it the needed permissions (and, if it is going
to be used to dial out, give it the same group and owner and
permissions as the cu, tip, or minicom program).
- For secure installations, see [42]Sections 5 and [43]16.
- __________________________________________________________________________
+ For secure installations, see [55]Sections 5 and [56]16.
2. INSTALLING FROM PACKAGES
- [ [44]Top ] [ [45]Contents ] [ [46]Next ] [ [47]Previous ]
+ [ [57]Top ] [ [58]Contents ] [ [59]Next ] [ [60]Previous ]
Various Unix varieties -- Linux, Solaris, AIX, etc -- now incorporate
the idea of "install packages", and many users expect to find all new
to the builder of install packages:
a. Since C-Kermit is portable to many non-Unix platforms (VMS, VOS,
- AOS/VS, etc), some of the files in the C-Kermit distribution do
- not fit into the Unix application model. In particular, C-Kermit
- includes some plain text files (described in [48]Section 5) and
+ AOS/VS, etc), some of the files in the C-Kermit distribution do not
+ fit into the Unix application model. In particular, C-Kermit
+ includes some plain text files (described in [61]Section 5) and
Unix has no standard place to put such files. Typical Unix package
managers do not allow for them. Where should they go, and how will
the user know where to find them?
requires some important decisions from the installer regarding
security and privilege.
- Item (b) is discussed at length in [49]Sections 10 and [50]11 of this
+ Item (b) is discussed at length in [62]Sections 10 and [63]11 of this
document, but the package-related aspects are also given here. The
basic problem is that Unix dialout devices and the UUCP "lock files"
- that regulate contention for them (described in [51]Section 10) are
+ that regulate contention for them (described in [64]Section 10) are
usually protected against "world". Therefore, the install procedure
- must either run as root in order to give the Kermit binary the
- required permissions, group, and/or owner, or else the dialout devices
- and associated directories must be open for group or world reading and
- writing. Otherwise, the Kermit program just installed WILL NOT WORK
- for dialing out.
+ must either run as root in order to give the Kermit binary the required
+ permissions, group, and/or owner, or else the dialout devices and
+ associated directories must be open for group or world reading and
+ writing. Otherwise, the Kermit program just installed WILL NOT WORK for
+ dialing out.
Thus, a well-crafted installation procedure should present the options
and allow the installer to choose the method, if any, for regulating
install Kermit with privileges."
c. "If you wish to install Kermit with privileges, it will be given
the same owner, group, and permissions as the cu program so it can
- use the dialout devices."
+ use the dialout devices." (This is increasingly problematic as some
+ newer Unix systems like Mac OS X don't have a cu program, or even a
+ serial port!)
d. If they choose (c) but the user is not root, give a message that
the install procedure can be run only by root and then quit.
It should go without saying, of course, that any binaries that are to
be included in an install package should be built fresh on the exact
- platform (e.g. Red Hat 8.0 on Intel) for which the package is
- targeted; prebuilt binaries ([52]next section) from other sites are
- likely to have library mismatches. [53]CLICK HERE for more about
- building C-Kermit install packages.
+ platform (e.g. Red Hat 8.0 on Intel) for which the package is targeted;
+ prebuilt binaries ([65]next section) from other sites are likely to
+ have library mismatches. [66]CLICK HERE for more about building
+ C-Kermit install packages.
- The Kermit Project does not have the resources or the expertise to
- make install packages for every platform. Most install packages,
- therefore, are contributed by others, and they do not necessarily
- follow the guidelines given above. Pay attention to what they do.
+ The Kermit Project does not have the resources or the expertise to make
+ install packages for every platform. Most install packages, therefore,
+ are contributed by others, and they do not necessarily follow the
+ guidelines given above. Pay attention to what they do.
If you are an end user who has obtained a C-Kermit install package for
a particular platform, you should be aware that some additional steps
- might needed if you want to use Kermit to dial out. Read [54]Section
- 10 for details.
- __________________________________________________________________________
+ might needed if you want to use Kermit to dial out. Read [67]Section 10
+ for details.
3. INSTALLING PREBUILT BINARIES
- [ [55]Top ] [ [56]Contents ] [ [57]Next ] [ [58]Previous ]
+ [ [68]Top ] [ [69]Contents ] [ [70]Next ] [ [71]Previous ]
Hundreds of prebuilt C-Kermit binaries are available on the CDROM in
the BINARY tree [NOTE: The C-Kermit CDROM is still for version 7.0],
- and at our ftp site in the [59]kermit/bin area (with names starting
- with "ck"), also accessible on the [60]C-Kermit website. To install a
+ and at our ftp site in the [72]kermit/bin area (with names starting
+ with "ck"), also accessible on the [73]C-Kermit website. To install a
prebuilt binary:
a. Rename the binary to "wermit".
- b. Make sure it works; some tests are suggested in [61]Section 7.
- c. Follow steps (b) through (e) in [62]Section 4.
- d. Install related files as described in [63]Section 5.
+ b. Make sure it works; some tests are suggested in [74]Section 7.
+ c. Follow steps (b) through (e) in [75]Section 4.
+ d. Install related files as described in [76]Section 5.
But first... Please heed the following cautions:
a. If you pick the wrong binary, it won't work (or worse).
b. Even when you pick the appropriate binary, it still might not work
- due to shared-library mismatches, etc. (see [64]Section 4.0).
+ due to shared-library mismatches, etc. (see [77]Section 4.0).
c. Don't expect a binary built on or for version n of your OS to work
- on version n - x (where x > 0). However, it is usually safe to run
- a binary built on (or for) an older OS release on a newer one.
-
- Therefore, it is better to build your own binary from source code
- ([65]next section) if you can. But since it is increasingly for Unix
- systems (not to mention VMS and other OS's) to be delivered without C
- compilers, it is often impractical. In such cases, try the most
- appropriate prebuilt binary or binaries, and if none of them work,
- [66]contact us and we'll see what we can do to help.
- __________________________________________________________________________
+ on version n - x (where x > 0). However, it is supposed to be safe
+ to run a binary built on (or for) an older OS release on a newer
+ one (but is [78]increasingly less so as time-honored principles of
+ stability and backwards compatibility go fading into obscurity).
+
+ Therefore, it is always better to build your own binary from source
+ code ([79]next section) if you can. But since it is increasingly common
+ for Unix systems (not to mention VMS and other OS's) to be delivered
+ without C compilers, it is sometimes not possible. In such cases, try
+ the most appropriate prebuilt binary or binaries, and if none of them
+ work, [80]contact us and we'll see what we can do to help.
4. BUILDING FROM SOURCE CODE
- [ [67]Top ] [ [68]Contents ] [ [69]Next ] [ [70]Previous ]
+ [ [81]Top ] [ [82]Contents ] [ [83]Next ] [ [84]Previous ]
- Also see: [71]Section 8 and [72]Section 9.
+ Also see: [85]Section 8 and [86]Section 9.
C-Kermit is designed to be built and used on as many platforms as
- possible: Unix and non-Unix, old and new (and ancient), ANSI C and
- K&R. The Unix version does not use or depend on any external tools for
- building except the "make" utility, the C compiler, and the linker. It
- does not use any automated configuration tools such as configure,
- autoconf, automake, libtool, etc. Everything in C-Kermit has been
- built by hand based on direct experience or reports or contributions
- from users of each platform.
-
- The [73]C-Kermit makefile contains the rules for building the program
+ possible: Unix and non-Unix, old and new (and ancient), ANSI C and K&R.
+ The Unix version does not use or depend on any external tools for
+ building except the "make" utility, the C compiler, the linker, and the
+ shell. It does not use any external automated configuration tools such
+ as configure, autoconf, automake, libtool, etc. Everything in C-Kermit
+ has been built by hand based on direct experience or reports or
+ contributions from users of each platform.
+
+ The [87]C-Kermit makefile contains the rules for building the program
for each of the hundreds of different kinds of Unix systems that
- C-Kermit attempts to support. It covers all Unix variations since
- about 1980 -- pretty much everything after Unix V6. Separate makefiles
- are used for [74]Plan 9 and [75]2.x BSD.
+ C-Kermit attempts to support. It covers all Unix variations since about
+ 1980 -- pretty much everything after Unix V6. Separate makefiles are
+ used for [88]Plan 9 and [89]2.x BSD.
Prerequisites:
* The C compiler, linker, and make program must be installed.
* The C libraries and header files must be installed (*).
* The C-Kermit source code and makefile in your current directory.
- * The C-Kermit text files ([76]Section 5) in your current directory.
+ * The C-Kermit text files ([90]Section 5) in your current directory.
* This is becoming problematic in this new age of "selective
installs" e.g. of Linux packages. C-Kermit builds will often fail
* Many and varied security libraries for building a secure version
(Kerberos, SSL/TLS, SRP, Zlib,...) These are required only if you
select a secure target.
- * For the curses-based fullscreen file-ransfer display, the curses
+ * For the curses-based fullscreen file-transfer display, the curses
or ncurses header file(s) and library, and probably also the
termcap and/or termlib library. Note that the names and locations
- of these files and libraries are likely to change capriciously
- with every new release of your Unix product. If you discover that
- the C-Kermit build procedure fails because your curses and/or
- termxxx headers or libraries are not named or located as expected,
- please [77]let us know. In the meantime, work around by installing
+ of these files and libraries are likely to change capriciously with
+ every new release of your Unix product. If you discover that the
+ C-Kermit build procedure fails because your curses and/or termxxx
+ headers or libraries are not named or located as expected, please
+ [91]let us know. In the meantime, work around by installing
symlinks.
* IMPORTANT: Modern Linux distributions might give you the choice
during installation of whether to install the "ncurses development
package" (perhaps called "ncurses-devel"). If you did not install
it, you won't be able to build C-Kermit with curses support
- included. In this case, either go back and install ncurses, or
- else choose (or create) a non-curses makefile target for your
- platform. To install the ncurses developers tools in Red Hat
- Linux, do:
+ included. In this case, either go back and install ncurses, or else
+ choose (or create) a non-curses makefile target for your platform.
+ To install the ncurses developers tools in Red Hat Linux, do
+ "apt-get install ncurses-developer" or if you have the CD:
mount redhat cdrom
goto RedHat/RPMS
from the first installation CD.
- The makefile might need to be renamed from ckuker.mak to makefile.
- Directions:
+ Depending on where you got it, the makefile might need to be renamed
+ from ckuker.mak to makefile. Directions:
a. Type "make xxx" where xxx is the name of the makefile target most
- appropriate to your platform, e.g. "make linux", "make aix43",
- etc. Read the [78]comments at the top of the makefile for a
- complete list of available targets (it's a long list).
- b. Test the resulting 'wermit' file (see [79]Section 7 for
- suggestions). If it's OK, proceed; otherwise [80]notify us.
+ appropriate to your platform, e.g. "make linux", "make aix43", etc.
+ Read the [92]comments at the top of the makefile for a complete
+ list of available targets (it's a long list).
+ b. Test the resulting 'wermit' file (see [93]Section 7 for
+ suggestions). If it's OK, proceed; otherwise [94]notify us.
NOTE: steps (c) through (e) can be accomplished using the
- [81]makefile 'install' target as described in [82]Section 5.4.
- c. Rename the 'wermit' file to 'kermit', copy it to the desired
- binary directory (such as /usr/local/bin or /opt/something), and
- if it is to be used for dialing out, give it the same owner,
- group, and permissions as the 'cu' program (IMPORTANT: read
- [83]Sections 10 and [84]11 for details).
+ [95]makefile 'install' target as described in [96]Section 5.4.
+ c. Rename the 'wermit' file to 'kermit', copy it to the desired binary
+ directory (such as /usr/local/bin or /opt/something), and if it is
+ to be used for dialing out, give it the same owner, group, and
+ permissions as the 'cu' program (IMPORTANT: read [97]Sections 10
+ and [98]11 for details).
d. Install the man page, ckuker.nr, with your other man pages.
- e. Install the accompanying text files (see [85]Section 5).
+ e. Install the accompanying text files (see [99]Section 5).
f. If you want C-Kermit to also offer a Telnet command-line
personality, make a symbolic link as follows:
cd directory-where-kermit-binary-is
ln -s kermit telnet
- If you want C-Kermit to be the default Telnet client, make sure
- the directory in which you created the symlink is in the PATH
- ahead of the where the regular Telnet client is.
- g. If you want C-Kermit to also offer an FTP command-line
- personality, make a symlink called "ftp" as in (f).
+ If you want C-Kermit to be the default Telnet client, make sure the
+ directory in which you created the symlink is in the PATH ahead of
+ the where the regular Telnet client is.
+ g. If you want C-Kermit to also offer an FTP command-line personality,
+ make a symlink called "ftp" as in (f).
h. If you want C-Kermit to also offer an FTTP command-line
personality, make a symlink called "http" as in (f).
i. If you want to offer an Internet Kermit Service, follow the
- directions in the [86]IKSD Administrator's Guide.
- ________________________________________________________________________
+ directions in the [100]IKSD Administrator's Guide.
- 4.0. Special Considerations for C-Kermit 8.0
+4.0. Special Considerations for C-Kermit 8.0-9.0
- [ [87]Top ] [ [88]Contents ] [ [89]Next ]
+ [ [101]Top ] [ [102]Contents ] [ [103]Next ]
- Also see: [90]C-Kermit Configuration Options
+ Also see: [104]C-Kermit Configuration Options
SECTION CONTENTS
-4.1. [91]The Unix Makefile
-4.2. [92]The C-Kermit Initialization File
-4.3. [93]The 2.x BSD Makefile
-4.4. [94]The Plan 9 Makefile
-4.5. [95]Makefile Failures
+4.1. [105]The Unix Makefile
+4.2. [106]The C-Kermit Initialization File
+4.3. [107]The 2.x BSD Makefile
+4.4. [108]The Plan 9 Makefile
+4.5. [109]Makefile Failures
- (Also see the [96]Configurations Options document, [97]Section 8).
+ (Also see the [110]Configurations Options document, [111]Section 8).
Lots of new features have been added in versions 7.0 and 8.0 that
require access to new symbols, APIs, libraries, etc, and this will no
what we know as of the date of this file.
The first category concerns the new Kermit Service Daemon (IKSD; see
- the [98]IKSD Administrator's Guide for details):
+ the [112]IKSD Administrator's Guide for details):
The wtmp File
When C-Kermit is started as an IKSD (under inetd), it makes
The code assumes the wtmp log is /var/log/wtmp on Linux and
/usr/adm/wtmp elsewhere. No doubt this assumption will need
adjustment. Use -DWTMPFILE=path to override at compile time
- (there is also a runtime override). See [99]iksd.html for
+ (there is also a runtime override). See [113]iksd.html for
details.
UTMP, utsname(), etc
- C-Kermit 7.0 gets as much info as it can about its job --
- mainly for IKSD logging -- from utmp. But of course utmp
- formats and fields differ, and for that matter, there can be
- two different header files, <utmp.h> and <utmpx.h>. Look for
- HAVEUTMPX and HAVEUTHOST in [100]ckufio.c and let me know of
- any needed adjustments.
+ C-Kermit 7.0 gets as much info as it can about its job -- mainly
+ for IKSD logging -- from utmp. But of course utmp formats and
+ fields differ, and for that matter, there can be two different
+ header files, <utmp.h> and <utmpx.h>. Look for HAVEUTMPX and
+ HAVEUTHOST in [114]ckufio.c and let me know of any needed
+ adjustments.
Password lookup
IKSD needs to authenticate incoming users against the password
- list. In some cases, this requires the addition of -lcrypt
- (e.g. in Unixware 2.x). In most others, the crypt functions are
- in the regular C library. If you get "crypt" as an unresolved
- symbol at link time, add -lcrypt to LIBS. If your site has
- local replacement libraries for authentication, you might need
- a special LIBS clause such as "LIBS=-L/usr/local/lib -lpwent".
+ list. In some cases, this requires the addition of -lcrypt (e.g.
+ in Unixware 2.x). In most others, the crypt functions are in the
+ regular C library. If you get "crypt" as an unresolved symbol at
+ link time, add -lcrypt to LIBS. If your site has local
+ replacement libraries for authentication, you might need a
+ special LIBS clause such as "LIBS=-L/usr/local/lib -lpwent".
These days most Unix systems take advantage of shadow password
- files or Plugable Authentication Modules (PAM). If your system
+ files or Pluggable Authentication Modules (PAM). If your system
uses shadow passwords you must add -DCK_SHADOW to the CFLAGS
list. If your system requires PAM you must add -DCK_PAM to the
CFLAGS and -lpam -ldl to LIBS.
-DNOGETUSERSHELL.
initgroups()
- This is called by IKSD after successful authentication. But
- some platforms do not have this function, so obviously it can't
- be called there, in which case add -DNOINITGROUPS.
+ This is called by IKSD after successful authentication. But some
+ platforms do not have this function, so obviously it can't be
+ called there, in which case add -DNOINITGROUPS.
setreuid(), setreuid(), setregid() not found or "deprecated"
Find out what your Unix variety wants you to use instead, and
make appropriate substitutions in routine zvpass(), module
- [101]ckufio.c, and [102]let us know.
+ [115]ckufio.c, and [116]let us know.
printf()
IKSD installs a printf() substitute to allow redirection of
- printf-like output to the connection. However, this can
- conflict with some curses libraries. In this case, separate
- binaries must be built for IKSD and non-IKSD use.
+ printf-like output to the connection. However, this can conflict
+ with some curses libraries. In this case, separate binaries must
+ be built for IKSD and non-IKSD use.
If you encounter difficulties with any of the above, and you are not
interested in running C-Kermit as an IKSD, then simply add NOIKSD to
Some non-IKSD things to watch out for:
Return type of main()
- The main() routine is in [103]ckcmai.c. If you get complaints
- about "main: return type is not blah", define MAINTYPE on the
- CC command line, e.g.:
+ The main() routine is in [117]ckcmai.c. If you get complaints
+ about "main: return type is not blah", define MAINTYPE on the CC
+ command line, e.g.:
make xxx "KFLAGS=-DMAINTYPE=blah
appropriate socket for the requested service; e.g. if C-Kermit
requests service "telnet" and the host offers Telnet service on
port 999 rather than the customary port 23. If you get
- compile-time complaints about not being able to find
- <resolv.h>, <netdb.h>, or <arpa/nameser.h>, add -DNO_DNS_SRV to
- CFLAGS. If you get link-time complaints about unresolved
- symbols res_search or dn_expand, try adding -lresolve to LIBS.
+ compile-time complaints about not being able to find <resolv.h>,
+ <netdb.h>, or <arpa/nameser.h>, add -DNO_DNS_SRV to CFLAGS. If
+ you get link-time complaints about unresolved symbols res_search
+ or dn_expand, try adding -lresolve to LIBS.
\v(ipaddress)
If "echo \v(ipaddress)" shows an empty string rather than your
local IP address, add -DCKGHNLHOST to CFLAGS and rebuild.
<sys/wait.h>
- If this file can't be found at compile time, add -DNOREDIRECT
- to CFLAGS. This disables the REDIRECT and PIPE commands and
+ If this file can't be found at compile time, add -DNOREDIRECT to
+ CFLAGS. This disables the REDIRECT and PIPE commands and
anything else that needs the wait() system service.
syslog()
C-Kermit can now write syslog records. Some older platforms
might not have the syslog facility. In that case, add
-DNOSYSLOG. Others might have it, but require addition of
- -lsocket to LIBS (SCO OSR5 is an example). See [104]Section 15.
+ -lsocket to LIBS (SCO OSR5 is an example). See [118]Section 15.
putenv()
If "_putenv" comes up as an undefined symbol, add -DNOPUTENV to
"Passing arg1 of 'time' from incompatible pointer"
This is a mess. See the mass of #ifdefs in the appropriate
- module, [105]ckutio.c or [106]ckufio.c.
+ module, [119]ckutio.c or [120]ckufio.c.
gettimeofday()
Wrong number of arguments. On most platforms, gettimeofday()
takes two arguments, but on a handful of others (e.g. Motorola
System V/88 V4, SNI Reliant UNIX 5.43, etc) it takes one. If
- your version of gettimeofday() is being called with two args
- but wants one, add -DGTODONEARG.
+ your version of gettimeofday() is being called with two args but
+ wants one, add -DGTODONEARG.
"Assignment makes pointer from integer without a cast"
- This warning might appear in [107]ckutio.c or [108]ckufio.c.
- (or elsewhere), and usually can be traced to the use of a
- system or library function that returns a pointer but that is
- not declared in the system header files even though it should
- be. Several functions are commonly associated with this error:
+ This warning might appear in [121]ckutio.c or [122]ckufio.c. (or
+ elsewhere), and usually can be traced to the use of a system or
+ library function that returns a pointer but that is not declared
+ in the system header files even though it should be. Several
+ functions are commonly associated with this error:
+ getcwd(): Add -DDCLGETCWD to CFLAGS and rebuild.
+ popen() : Add -DDCLPOPEN to CFLAGS and rebuild.
"Operands of = have incompatible types"
"Incompatible types in assignment"
- If this comes from [109]ckcnet.c and comes from a statement
+ If this comes from [123]ckcnet.c and comes from a statement
involving inet_addr(), try adding -DINADDRX to CFLAGS. If that
doesn't help, then try adding -DNOMHHOST.
- Complaints about args to get/setsockopt(), getpeername(),
- getsockname()
- These are all in [110]ckcnet.c. Different platforms and OS's
- and versions of the same OS change this all the time: int,
- size_t, unsigned long, etc. All the affected variables are
- declared according to #ifdefs within ckcnet.c, so find the
- declarations and adjust the #ifdefs accordingly.
+ Complaints about args to get/setsockopt(), getpeername(), getsockname()
+ These are all in [124]ckcnet.c. Different platforms and OS's and
+ versions of the same OS change this all the time: int, size_t,
+ unsigned long, etc. All the affected variables are declared
+ according to #ifdefs within ckcnet.c, so find the declarations
+ and adjust the #ifdefs accordingly.
size_t
In case of complaints about "unknown type size_t", add
'tz' undefined
Use of undefined enum/struct/union 'timezone'
Left of 'tv_sec' specifies undefined struct/union 'timeval' And
- similar complaints in [111]ckutio.c: Add -DNOGFTIMER and/or
+ similar complaints in [125]ckutio.c: Add -DNOGFTIMER and/or
-DNOTIMEVAL.
Symlinks
- The new built-in DIRECTORY command should show symlinks like
- "ls -l" does. If it does not, check to see if your platform has
- the lstat() and readlink() functions. If so, add -DUSE_LSTAT
- and -DCKSYMLINK to CFLAGS and rebuild. On the other hand, if
- lstat() is unresolved at link time, add -DNOLSTAT to CFLAGS. If
+ The new built-in DIRECTORY command should show symlinks like "ls
+ -l" does. If it does not, check to see if your platform has the
+ lstat() and readlink() functions. If so, add -DUSE_LSTAT and
+ -DCKSYMLINK to CFLAGS and rebuild. On the other hand, if lstat()
+ is unresolved at link time, add -DNOLSTAT to CFLAGS. If
readlink() is also unresolved, add -DNOSYMLINK.
realpath()
"Can't find shared library libc.so.2.1"
"Can't find shared library libncurses.so.3.0", etc...
- You are trying to run a binary that was built on a computer
- that has different library versions than your computer, and
- your computer's loader is picky about library version numbers.
+ You are trying to run a binary that was built on a computer that
+ has different library versions than your computer, and your
+ computer's loader is picky about library version numbers.
Rebuild from source on your computer.
Time (struct tm) related difficulties:
-DSYSTIMEBH Include <sys/timeb.h>
-DNOSYSTIMEBH Don't include <sys/timeb.h>
- Note that <sys/timeb.h> is relatively scarce in the System V
- and POSIX environments; the only platform of recent vintage
- where it was/is used is OSF/1 and its derivatives (Digital Unix
- and Tru64 Unix).
+ Note that <sys/timeb.h> is relatively scarce in the System V and
+ POSIX environments; the only platform of recent vintage where it
+ was/is used is OSF/1 and its derivatives (Digital Unix and Tru64
+ Unix).
Struct timeval and/or timezone not declared:
In some cases, merely including the appropriate time.h header
files is still not enough. POSIX.1 does not define the timeval
struct, and so the items we need from the header are protected
against us by #ifndef _POSIX_SOURCE or somesuch. In this case,
- we have to declare the timeval (and timezone) structs
- ourselves. To force this, include -DDCLTIMEVAL in CFLAGS.
+ we have to declare the timeval (and timezone) structs ourselves.
+ To force this, include -DDCLTIMEVAL in CFLAGS.
Warnings about dn_expand() Argument #4
WARNING: argument is incompatible with prototyp. It's the old
compiler switch like GCC's "-funsigned-char". Failing that, add
-DCKQUERYTYPE=xxx to CFLAGS, where xxx is whatever 'man
dn_expand' tells you the type of the 4th argument should be
- (presumably either char or unsigned char; in the latter case
- use CHAR to avoid confusion caused by multiple words.
+ (presumably either char or unsigned char; in the latter case use
+ CHAR to avoid confusion caused by multiple words.
- Switch Table Overflow (in [112]ckcuni.c)
+ Switch Table Overflow (in [126]ckcuni.c)
Add -DNOUNICODE to CFLAGS.
Compile-time warnings about ck_out() or tgetstr() or tputs():
-DTPUTSARGTYPE=char -DTPUTSFNTYPE=int
-DTPUTSARGTYPE=int -DTPUTSFNTYPE=void
- Until the warnings go away, except maybe "ck_outc: return with
- a value in a function returning void", and in that case also
- add -DTPUTSISVOID.
+ Until the warnings go away, except maybe "ck_outc: return with a
+ value in a function returning void", and in that case also add
+ -DTPUTSISVOID.
"Passing arg 1 of to tputs() makes pointer from integer without a
cast":
Add -DNOHTERMCAP to CFLAGS.
Other difficulties are generally of the "where is curses.h and what is
- it called this week?" variety (most easily solved by making symlinks
- in the include and lib directories), or overzealous complaints
- regarding type mismatches in function calls because of the totally
- needless and silly signed versus unsigned char conflict (*), etc. In
- any case, please send any compilation or linking warnings or errors to
- the author, preferably along with fixes.
-
- * C-Kermit does not use the signed property of chars at all
- anywhere, ever. So if all chars and char *'s can be made unsigned
- at compile time, as they can in gcc with "-funsigned-char", they
- should be.
+ it called this week?" variety (most easily solved by making symlinks in
+ the include and lib directories), or overzealous complaints regarding
+ type mismatches in function calls because of the totally needless and
+ silly signed versus unsigned char conflict (*), etc. In any case,
+ please send any compilation or linking warnings or errors to the
+ author, preferably along with fixes.
+
+ * C-Kermit does not use the signed property of chars at all anywhere,
+ ever. So if all chars and char *'s can be made unsigned at compile
+ time, as they can in gcc with "-funsigned-char", they should be.
IMPORTANT: If you find any of these hints necessary for a particular
make target (or you hit upon others not listed here), PLEASE SEND A
REPORT TO:
-[113]kermit-support@columbia.edu
- ________________________________________________________________________
+[127]kermit-support@columbia.edu
- 4.1. The Unix Makefile
+4.1. The Unix Makefile
- [ [114]Top ] [ [115]Contents ] [ [116]Section Contents ] [ [117]Next ]
- [ [118]Previous ]
+ [ [128]Top ] [ [129]Contents ] [ [130]Section Contents ] [ [131]Next ]
+ [ [132]Previous ]
If your distribution does not contain a file with the name "makefile"
or "Makefile", then rename the file called ckuker.mak to makefile:
mv ckuker.mak makefile
Then type "make xxx", where xxx is the platform you want to build
- C-Kermit for. These are listed in the [119]comments at the top of the
+ C-Kermit for. These are listed in the [133]comments at the top of the
makefile. For example, to build C-Kermit for Linux, type:
make linux
hpux1100 HP-UX 11-point-anything
The makefile is quite long, and at least two versions of Unix, SCO
- Xenix/286 and 2.x BSD, cannot cope with its length. An attempt to
- "make sco286" gives the message "Make: Cannot alloc mem for env..
- Stop". Solution: edit away some or all of the nonrelevant material
- from the makefile. (A separate version of the makefile is provided for
- BSD 2.x: ckubs2.mak but C-Kermit 8.0 can't be built for BSD 2.x -- it
- has simply grown too large.)
+ Xenix/286 and 2.x BSD, cannot cope with its length. An attempt to "make
+ sco286" gives the message "Make: Cannot alloc mem for env.. Stop".
+ Solution: edit away some or all of the nonrelevant material from the
+ makefile. (A separate version of the makefile is provided for BSD 2.x:
+ ckubs2.mak but C-Kermit 8.0 can't be built for BSD 2.x -- it has simply
+ grown too large.)
Some make programs reportedly cannot handle continued lines (lines
ending in backslash (\)). If you have a problem with the makefile, try
Similarly, carriage returns might have been added to the end of each
line, which also proves confusing to most Unix versions of make.
- Check to see if there are comments about your particular version in
- its makefile target itself. In a text editor such as EMACS or VI,
- search for the make entry name followed by a colon, e.g. "linux:" (if
- you really are building C-Kermit for Linux, do this now).
+ Check to see if there are comments about your particular version in its
+ makefile target itself. In a text editor such as EMACS or VI, search
+ for the make entry name followed by a colon, e.g. "linux:" (if you
+ really are building C-Kermit for Linux, do this now).
- Check to see if there are comments about your particular version in
- the [120]ckubwr.txt file ([121]CLICK HERE for the Web version).
+ Check to see if there are comments about your particular version in the
+ [134]ckubwr.txt file ([135]CLICK HERE for the Web version).
- If you have trouble with building [122]ckwart.c, or running the
- resulting wart preprocessor program on [123]ckcpro.w:
+ If you have trouble with building [136]ckwart.c, or running the
+ resulting wart preprocessor program on [137]ckcpro.w:
- 1. Just "touch" the [124]ckcpro.c file that comes in the distribution
+ 1. Just "touch" the [138]ckcpro.c file that comes in the distribution
and then give the "make" command again, or:
2. Compile ckwart.c "by hand": cc -o wart ckwart.c, or:
3. Try various other tricks. E.g. one Linux user reported that that
wart: ckwart.$(EXT)
$(CC) -static -o wart ckwart.$(EXT) $(LIBS)
- If your compiler supports a compile-time option to treat ALL chars
- (and char *'s, etc) as unsigned, by all means use it -- and send me
- email to let me know what it is (I already know about gcc
- -funsigned-char).
+ If your compiler supports a compile-time option to treat ALL chars (and
+ char *'s, etc) as unsigned, by all means use it -- and send me email to
+ let me know what it is (I already know about gcc -funsigned-char).
- To add compilation options (which are explained later in this
- document) to your makefile target without editing the makefile,
- include "KFLAGS=..." on the make command line, for example:
+ To add compilation options (which are explained later in this document)
+ to your makefile target without editing the makefile, include
+ "KFLAGS=..." on the make command line, for example:
make linux KFLAGS=-DNODEBUG
make bsd "KFLAGS=-DKANJI -DNODEBUG -DNOTLOG -DDYNAMIC -UTCPSOCKET"
"-DTCPSOCKET" option that is included in the makefile target.)
WARNING: Be careful with KFLAGS. If you build C-Kermit, change some
- files, and then run make again using the same make entry but
- specifying different KFLAGS than last time, make won't detect it and
- you could easily wind up with inconsistent object modules, e.g. some
- of them built with a certain option, others not. When in doubt, "make
- clean" first to make sure all your object files are consistent.
- Similarly, if you change CFLAGS, LIBS, or any other items in the
- makefile, or you rebuild using a different makefile target, "make
- clean" first.
+ files, and then run make again using the same make entry but specifying
+ different KFLAGS than last time, make won't detect it and you could
+ easily wind up with inconsistent object modules, e.g. some of them
+ built with a certain option, others not. When in doubt, "make clean"
+ first to make sure all your object files are consistent. Similarly, if
+ you change CFLAGS, LIBS, or any other items in the makefile, or you
+ rebuild using a different makefile target, "make clean" first.
If you create a new makefile target, use static linking if possible.
Even though this makes your C-Kermit binary bigger, the resulting
others, invocation tends to fail with a message like:
Can't find shared library "libc.so.2.1"
- ________________________________________________________________________
- 4.2. The C-Kermit Initialization File
+4.2. The C-Kermit Initialization File
- [ [125]Top ] [ [126]Contents ] [ [127]Section Contents ] [ [128]Next ]
- [ [129]Previous ]
+ [ [139]Top ] [ [140]Contents ] [ [141]Section Contents ] [ [142]Next ]
+ [ [143]Previous ]
- (This section is obsolete.) Read [130]Section 5 about the
+ (This section is obsolete.) Read [144]Section 5 about the
initialization file.
- ________________________________________________________________________
- 4.3. The 2.x BSD Makefile
+4.3. The 2.x BSD Makefile
- [ [131]Top ] [ [132]Contents ] [ [133]Section Contents ] [ [134]Next ]
- [ [135]Previous ]
+ [ [145]Top ] [ [146]Contents ] [ [147]Section Contents ] [ [148]Next ]
+ [ [149]Previous ]
This section is obsolete. C-Kermit 6.0 was the last release that
could be built on PDP-11 based BSD versions.
- ________________________________________________________________________
- 4.4. The Plan 9 Makefile
+4.4. The Plan 9 Makefile
- [ [136]Top ] [ [137]Contents ] [ [138]Section Contents ] [ [139]Next ]
- [ [140]Previous ]
+ [ [150]Top ] [ [151]Contents ] [ [152]Section Contents ] [ [153]Next ]
+ [ [154]Previous ]
- Use the separate makefile [141]ckpker.mk. NOTE: The Plan 9 version of
+ Use the separate makefile [155]ckpker.mk. NOTE: The Plan 9 version of
C-Kermit 8.0 has not yet been built. There should be no impediment to
building it. However, even when built successfully, certain key
features are missing, notably TCP/IP networking.
- ________________________________________________________________________
- 4.5. Makefile Failures
+4.5. Makefile Failures
- [ [142]Top ] [ [143]Contents ] [ [144]Section Contents ] [
- [145]Previous ]
+ [ [156]Top ] [ [157]Contents ] [ [158]Section Contents ] [
+ [159]Previous ]
First, be sure the source files are stored on your current disk and
directory with the right names (in lowercase). Second, make sure that
indented lines must all start with horizontal TAB, and no spaces.
Then make sure that your Unix PATH is defined to find the appropriate
- compiler for your makefile target. For example, on SunOS systems,
- "make sunos41" builds C-Kermit for the BSD environment, and assumes
- that /usr/ucb/cc will be used for compilation and linking. If your
- PATH has /usr/5bin ahead of /usr/ucb, you can have problems at compile
- or link time (a commonly reported symptom is the inability to find
- "ftime" during linking). Fix such problems by redefining your Unix
- PATH, or by specifying the appropriate "cc" in CC= and CC2= statements
- in your makefile target.
+ compiler for your makefile target. For example, on SunOS systems, "make
+ sunos41" builds C-Kermit for the BSD environment, and assumes that
+ /usr/ucb/cc will be used for compilation and linking. If your PATH has
+ /usr/5bin ahead of /usr/ucb, you can have problems at compile or link
+ time (a commonly reported symptom is the inability to find "ftime"
+ during linking). Fix such problems by redefining your Unix PATH, or by
+ specifying the appropriate "cc" in CC= and CC2= statements in your
+ makefile target.
During edits 166-167, considerable effort went into making C-Kermit
compilable by ANSI C compilers. This includes prototyping all of
C-Kermit's functions, and including the ANSI-defined system header
files for system and library functions, as defined in K&R, second
- edition: <string.h>, <stdlib.h>, <unistd.h> (except in NeXTSTEP this
- is <libc.h>), and <sys/stdtypes.h>. If you get warnings about any of
- these header files not being found, or about argument mismatches
- involving pid_t, uid_t, or gid_t, look in ckcdeb.h and make
- amendments. C-Kermit assumes it is being compiled by an ANSI-compliant
- C compiler if __STDC__ is defined, normally defined by the compiler
- itself. You can force ANSI compilation without defining __STDC__
- (which some compilers won't let you define) by including -DCK_ANSIC on
- the cc command line.
+ edition: <string.h>, <stdlib.h>, <unistd.h> (except in NeXTSTEP this is
+ <libc.h>), and <sys/stdtypes.h>. If you get warnings about any of these
+ header files not being found, or about argument mismatches involving
+ pid_t, uid_t, or gid_t, look in ckcdeb.h and make amendments. C-Kermit
+ assumes it is being compiled by an ANSI-compliant C compiler if
+ __STDC__ is defined, normally defined by the compiler itself. You can
+ force ANSI compilation without defining __STDC__ (which some compilers
+ won't let you define) by including -DCK_ANSIC on the cc command line.
On the other hand, if your compiler defines __STDC__ but still
complains about the syntax of Kermit's function prototypes, you can
the command line.
For SCO OpenServer, UNIX, ODT, and XENIX compilations, be sure to pick
- the most appropriate [146]makefile target, and be sure you have
+ the most appropriate [160]makefile target, and be sure you have
installed an SCO development system that is keyed to your exact SCO
operating system release, down to the minor version (like 2.3.1).
- Also note that SCO distributes some of its libraries in encrypted
- form, and they must be decrypted before C-Kermit can be linked with
- them. If not, you might see a message like:
+ Also note that SCO distributes some of its libraries in encrypted form,
+ and they must be decrypted before C-Kermit can be linked with them. If
+ not, you might see a message like:
ld: file /usr/lib/libsocket.a is of unknown type: magic number = 6365
To decrypt, you must supply a key (password) that came with your
license. Call SCO for further info.
- If your compiler uses something other than int for the pid (process
- id) data type, put -DPID_T=pid_t or whatever in your CFLAGS.
+ If your compiler uses something other than int for the pid (process id)
+ data type, put -DPID_T=pid_t or whatever in your CFLAGS.
If you get complaints about unknown data types uid_t and gid_t, put
-DUID_T=xxx -DGID_T=yyy in your CFLAGS, where xxx and yyy are the
CFLAGS. If that doesn't work, then add -DDCGPWNAM to your CFLAGS (see
ckufio.c around line 440).
- If the compiler complains about the declaration of getpwnam() during
- an ANSI C compilation, remove the declaration from ckufio.c or change
- the argument in the prototype from (char *) to (const char *).
+ If the compiler complains about the declaration of getpwnam() during an
+ ANSI C compilation, remove the declaration from ckufio.c or change the
+ argument in the prototype from (char *) to (const char *).
If you get complaints that getpwuid() is being called with an improper
type, put -DPWID_T=xx in your CFLAGS.
CFLAGS to make C-Kermit read the right <types.h>-kind-of-file to pick
up these definitions.
- If you get a message that _popen is undefined, add -DNOPOPEN to
- CFLAGS.
+ If you get a message that _popen is undefined, add -DNOPOPEN to CFLAGS.
- If you get a complaint at compile time about an illegal
- pointer-integer combination in ckufio.c involving popen(), or at link
- time that _popen is an undefined symbol, add the declaration "FILE
- *popen();" to the function zxcmd() in ckufio.c (this declaration is
- supposed to be in <stdio.h>). If making this change does not help,
- then apparently your Unix does not have the popen() function, so you
- should add -DNOPOPEN to your make entry, in which case certain
- functions involving "file" i/o to the standard input and output of
- subprocesses will not be available.
+ If you get a complaint at compile time about an illegal pointer-integer
+ combination in ckufio.c involving popen(), or at link time that _popen
+ is an undefined symbol, add the declaration "FILE *popen();" to the
+ function zxcmd() in ckufio.c (this declaration is supposed to be in
+ <stdio.h>). If making this change does not help, then apparently your
+ Unix does not have the popen() function, so you should add -DNOPOPEN to
+ your make entry, in which case certain functions involving "file" i/o
+ to the standard input and output of subprocesses will not be available.
If your linker complains that _getcwd is undefined, you can add a
getcwd() function to ckufio.c, or add it to your libc.a library using
Some of C-Kermit's modules are so large, or contain so many character
string constants, or are so offensive in some other way, that some C
compilers give up and refuse to compile them. This is usually because
- the -O (optimize) option is included in the make entry. If this
- happens to you, you can (a) remove the -O option from the make entry,
- which will turn off the optimizer for ALL modules; or (b) compile the
- offending module(s) by hand, including all the switches from make
- entry except for -O, and then give the appropriate "make" command
- again; or (c) increase the value of the -Olimit option, if your
- compiler supports this option; or (d) change the [147]makefile target
- to first compile each offending module explicitly without
- optimization, then compile the others normally (with optimization),
- for example:
+ the -O (optimize) option is included in the make entry. If this happens
+ to you, you can (a) remove the -O option from the make entry, which
+ will turn off the optimizer for ALL modules; or (b) compile the
+ offending module(s) by hand, including all the switches from make entry
+ except for -O, and then give the appropriate "make" command again; or
+ (c) increase the value of the -Olimit option, if your compiler supports
+ this option; or (d) change the [161]makefile target to first compile
+ each offending module explicitly without optimization, then compile the
+ others normally (with optimization), for example:
#Fortune 32:16, For:Pro 2.1 (mostly like 4.1bsd)
ft21:
Speaking of wart, it is unavoidable that some picky compilers might
generate "statement unreachable" messages when compiling ckcpro.c.
Unreachable statements can be generated by the wart program, which
- generates ckcpro.c automatically from [148]ckcpro.w, which translates
- lex-like state/input constructions into a big switch/case
- construction.
+ generates ckcpro.c automatically from [162]ckcpro.w, which translates
+ lex-like state/input constructions into a big switch/case construction.
Some function in Kermit wreaks havoc when it is called. Change all
invocations of the function into a macro that evaluates to the
appropriate return code that would have been returned by the function
- had it been called and failed, for example: -Dzkself()=0. Obviously
- not a good idea if the function is really needed.
+ had it been called and failed, for example: -Dzkself()=0. Obviously not
+ a good idea if the function is really needed.
If you have just installed SunOS 4.1.2 or 4.1.3, you might find that
C-Kermit (and any other C program) fails to link because of unresolved
Makefile so that the "ld" lines have "-ldl" at the end. Change the
README file to say "mv xccs.multibyte. xccs.multibyte.o" and follow
that instruction.
- __________________________________________________________________________
5. INSTALLING THE KERMIT FILES
- [ [149]Top ] [ [150]Contents ] [ [151]Next ] [ [152]Previous ]
+ [ [163]Top ] [ [164]Contents ] [ [165]Next ] [ [166]Previous ]
SECTION CONTENTS
-5.1. [153]The C-Kermit Initialization File
-5.2. [154]Text Files
-5.3. [155]Installing the Kermit Files
-5.4. [156]The Makefile Install Target
+5.1. [167]The C-Kermit Initialization File
+5.2. [168]Text Files
+5.3. [169]Installing the Kermit Files
+5.4. [170]The Makefile Install Target
The C-Kermit executable does not need any external files to run.
Unlike, say, the cu program, which on most platforms is useless unless
undocumented syntax is required to match some supposedly user-friendly
mnemonic to the real pathname of whatever device you want to use,
Kermit runs on its own without needing any external configuration
- files, and lets you refer to device (and network hosts and services)
- by their own natural undisguised names.
+ files, and lets you refer to device (and network hosts and services) by
+ their own natural undisguised names.
Nevertheless, a number of external files can be installed along with
the C-Kermit executable if you wish. These include configuration and
files to be read by people. All of this material is (a) optional, and
(b) available on the Kermit website:
-[157]http://www.columbia.edu/kermit/
+[171]http://www.columbia.edu/kermit/
- and usually in a more pleasant form, perhaps also with updated
- content. So if your computer is on the Internet, there is no need to
- install anything but the Kermit executable if users know how to find
- the Kermit website (and if they don't, Kermit's "help" command tells
- them).
+ and usually in a more pleasant form, perhaps also with updated content.
+ So if your computer is on the Internet, there is no need to install
+ anything but the Kermit executable if users know how to find the Kermit
+ website (and if they don't, Kermit's "help" command tells them).
- 5.1. The C-Kermit Initialization File
+5.1. The C-Kermit Initialization File
- In C-Kermit 7.0 and earlier, the standard initialization file was a
- key C-Kermit component because:
+ In C-Kermit 7.0 and earlier, the standard initialization file was a key
+ C-Kermit component because:
a. It "loaded" the dialing and network directories.
- b. It defined all the macros and variables for the services
- directory.
+ b. It defined all the macros and variables for the services directory.
c. It defined macros for quickly changing Kermit's file-transfer
performance tuning.
The standard initialization file is quite long (more than 600 lines)
and requires noticeable processing time (the slower the computer, the
more noticeable), yet few people actually use the services directory,
- whose definition takes up most of its bulk. Meanwhile, in C-Kermit
- 8.0, many of the remaining functions of the standard initialization
- file are now built in; for example, the FAST, CAUTIOUS, and ROBUST
- commands.
+ whose definition takes up most of its bulk. Meanwhile, in C-Kermit 8.0,
+ many of the remaining functions of the standard initialization file are
+ now built in; for example, the FAST, CAUTIOUS, and ROBUST commands.
More to the point, many of the settings that could be made only in the
initialization and customization files can now be picked up from
overrides the built-in search for $HOME/.kermrc.
K_CHARSET
- The character set used for encoding local text files.
- Equivalent to SET FILE CHARACTER-SET.
+ The character set used for encoding local text files. Equivalent
+ to SET FILE CHARACTER-SET.
K_DIAL_DIRECTORY
- The full pathname of one or more Kermit dialing directory
- files. Equivalent to SET DIAL DIRECTORY.
+ The full pathname of one or more Kermit dialing directory files.
+ Equivalent to SET DIAL DIRECTORY.
K_NET_DIRECTORY
- The full pathname of one or more Kermit network directory
- files. Equivalent to SET NETWORK DIRECTORY.
+ The full pathname of one or more Kermit network directory files.
+ Equivalent to SET NETWORK DIRECTORY.
K_INFO_DIRECTORY
K_INFO_DIR
for North America or 39 for Italy. It is recommended that this
one be set for all users, system-wide. Not only is it used to
process portable-format dialing directory entries, but it is
- also compared against Kermit's built-in list of "tone
- countries" to see if tone dialing can be used. Equivalent to
- Kermit's SET DIAL COUNTRY-CODE command.
+ also compared against Kermit's built-in list of "tone countries"
+ to see if tone dialing can be used. Equivalent to Kermit's SET
+ DIAL COUNTRY-CODE command.
K_AREACODE
- The telephonic numeric area code for this location, e.g. 212
- for Manhattan, New York, USA. Recommend this one also be set
+ The telephonic numeric area code for this location, e.g. 212 for
+ Manhattan, New York, USA. Recommend this one also be set
system-wide, so shared portable-format dialing directories will
work automatically for everybody. Equivalent to Kermit's SET
DIAL AREA-CODE command.
K_PBX_XCH
The telephonic numeric PBX exchange (first part of the
- subscriber number). Equivalent to Kermit's SET DIAL
- PBX-EXCHANGE command.
+ subscriber number). Equivalent to Kermit's SET DIAL PBX-EXCHANGE
+ command.
K_TF_AREACODE
A list of one or more telephonic numeric toll-free area codes.
different from the long-distance prefix. Equivalent to Kermit's
SET DIAL TF-PREFIX command.
- The final group includes well-known environment variables that are
- also used by Kermit:
+ The final group includes well-known environment variables that are also
+ used by Kermit:
CDPATH
Where the CD command should look for relative directory names.
rather than 600 lines of "standard" setups.
* If you still want the services directory, you can either TAKE the
standard initialization file (which must be named anything other
- than $HOME/.kermrc to avoid being executed automatically every
- time you start Kermit), or you can make it a kerbang script and
- execute it "directly" (the [158]makefile install target does this
- for you by putting ckermit.ini in the same directory as the Kermit
- binary, adding the appropriate Kerbang line to the top, and giving
- it execute permission).
+ than $HOME/.kermrc to avoid being executed automatically every time
+ you start Kermit), or you can make it a kerbang script and execute
+ it "directly" (the [172]makefile install target does this for you
+ by putting ckermit.ini in the same directory as the Kermit binary,
+ adding the appropriate Kerbang line to the top, and giving it
+ execute permission).
In fact, you can put any number of kerbang scripts in your PATH to
- start up C-Kermit in different ways, to have it adopt certain
- settings, make particular connections, execute complicated scripts,
- whatever you want.
+ start up C-Kermit in different ways, to have it adopt certain settings,
+ make particular connections, execute complicated scripts, whatever you
+ want.
+
+ And in C-Kermit 9.0 the initialization has indeed been "retired" by
+ renaming it to okermit.ini, and replaced by a stub ckermit.ini that
+ doesn't do anything but print a message. Ditto for ckermod.ini.
- 5.2. Text Files
+5.2. Text Files
- These are entirely optional. Many of them are to be found at the
- Kermit website in HTML form (i.e. as Web pages with clickable links,
- etc), and very likely also more up to date. Plain-text files that
- correspond to Web pages were simply "dumped" by Lynx from the website
- to plain ASCII text. The format is whatever Lynx uses for this
- purpose. If you wish, you can install them on your computer as
- described in the [159]next section.
+ These are entirely optional. Many of them are to be found at the Kermit
+ website in HTML form (i.e. as Web pages with clickable links, etc), and
+ very likely also more up to date. Plain-text files that correspond to
+ Web pages were simply "dumped" by Lynx from the website to plain ASCII
+ text. The format is whatever Lynx uses for this purpose. If you wish,
+ you can install them on your computer as described in the [173]next
+ section.
- [160]COPYING.TXT
+ [174]COPYING.TXT
Copyright notice, permissions, and disclaimer.
- [161]ckermit.ini
+ [175]ckermit.ini
The standard initialization file, intended more for reference
- (in most cases) than actual use; see [162]Section 5.1.
+ (in most cases) than actual use; see [176]Section 5.1.
- [163]ckermod.ini
+ [177]ckermod.ini
A sample customization file.
- [164]ckermit70.txt
- Supplement to [165]Using C-Kermit for version 7.0. Available on
+ [178]ckermit70.txt
+ Supplement to [179]Using C-Kermit for version 7.0. Available on
the Kermit website as:
- [166]http://www.columbia.edu/kermit/ckermit70.html
+ [180]http://www.columbia.edu/kermit/ckermit70.html
- [167]ckermit80.txt
- Supplement to [168]Using C-Kermit for version 8.0. Available on
+ [181]ckermit80.txt
+ Supplement to [182]Using C-Kermit for version 8.0. Available on
the Kermit website as:
- [169]http://www.columbia.edu/kermit/ckermit80.html
+ [183]http://www.columbia.edu/kermit/ckermit80.html
- [170]ckcbwr.txt
+ [184]ckermit90.txt
+ Supplement to [185]Using C-Kermit for version 9.0. Available on
+ the Kermit website as:
+ [186]http://www.columbia.edu/kermit/ckermit90.html
+
+ [187]ckcbwr.txt
The general C-Kermit hints and tips ("beware") file. Available
on the Kermit website as:
- [171]http://www.columbia.edu/kermit/ckcbwr.html
+ [188]http://www.columbia.edu/kermit/ckcbwr.html
- [172]ckubwr.txt
- The Unix-specific C-Kermit hints and tips file. Available on
- the Kermit website as:
- [173]http://www.columbia.edu/kermit/ckubwr.html
+ [189]ckubwr.txt
+ The Unix-specific C-Kermit hints and tips file. Available on the
+ Kermit website as:
+ [190]http://www.columbia.edu/kermit/ckubwr.html
- [174]ckuins.txt
+ [191]ckuins.txt
Unix C-Kermit Installation Instructions (this file). Available
on the Kermit website as:
- [175]http://www.columbia.edu/kermit/ckuins.html
+ [192]http://www.columbia.edu/kermit/ckuins.html
- [176]ckccfg.txt
+ [193]ckccfg.txt
C-Kermit compile-time configuration options. Available on the
Kermit website as:
- [177]http://www.columbia.edu/kermit/ckccfg.html
+ [194]http://www.columbia.edu/kermit/ckccfg.html
- [178]ckcplm.txt
+ [195]ckcplm.txt
The C-Kermit program logic manual. Available on the Kermit
website as:
- [179]http://www.columbia.edu/kermit/ckcplm.html
+ [196]http://www.columbia.edu/kermit/ckcplm.html
- [180]ca_certs.pem
+ [197]ca_certs.pem
Certificate Authority certificates for secure connections (see
- [181]Section 16).
+ [198]Section 16).
- 5.3. Installing the Kermit Files
+5.3. Installing the Kermit Files
- There is an "install" target in the [182]makefile that you can use if
+ There is an "install" target in the [199]makefile that you can use if
you wish. However, since every site has its own layout and
requirements, it is often better to install the Kermit files by hand.
You don't have to use the makefile install target to install C-Kermit.
- This is especially true since not all sites build C-Kermit from
- source, and therefore might not even have the makefile. But you should
- read this section in any case.
-
- If your computer already has an older version of C-Kermit
- installed, you should rename it (e.g. to "kermit6" or "kermit7") so
- in case you have any trouble with the new version, the old one is
- still available.
-
- In most cases, you need to be root to install C-Kermit, if only to
- gain write access to directories in which the binary and manual page
- are to be copied. The C-Kermit binary should be installed in a
- directory that is in the users' PATH, but that is not likely to be
- overwritten when you install a new version of the operating system. A
- good candidate would be the /usr/local/bin/ directory, but the
- specific choice is site dependent. Example (assuming the appropriate
- Kermit binary is stored in your current directory as "wermit", e.g.
- because you just built it from source and that's the name the makefile
- gave it):
+ This is especially true since not all sites build C-Kermit from source,
+ and therefore might not even have the makefile. But you should read
+ this section in any case.
+
+ If your computer already has an older version of C-Kermit installed,
+ you should rename it (e.g. to "kermit6" or "kermit7") so in case you
+ have any trouble with the new version, the old one is still
+ available.
+
+ In most cases, you need to be root to install C-Kermit, if only to gain
+ write access to directories in which the binary and manual page are to
+ be copied. The C-Kermit binary should be installed in a directory that
+ is in the users' PATH, but that is not likely to be overwritten when
+ you install a new version of the operating system. A good candidate
+ would be the /usr/local/bin/ directory, but the specific choice is site
+ dependent. Example (assuming the appropriate Kermit binary is stored in
+ your current directory as "wermit", e.g. because you just built it from
+ source and that's the name the makefile gave it):
mv wermit /usr/local/bin/kermit
chmod 755 /usr/local/bin/kermit
directories. The 'install' target does not attempt to set Kermit's
owner, group, and permissions to allow dialing out. This requires
privileges, open eyes, and human decision-making. Please read
- [183]Sections 10 and [184]11 below, make the necessary decisions, and
+ [200]Sections 10 and [201]11 below, make the necessary decisions, and
then implement them by hand as described in those sections.
- You should also install the man page, which is called ckuker.nr, in
- the man page directory for local commands, such as /usr/man/man1/,
- renamed appropriately, e.g. to kermit.1. This is also taken care of by
- "make install".
+ You should also install the man page, which is called ckuker.nr, in the
+ man page directory for local commands, such as /usr/man/man1/, renamed
+ appropriately, e.g. to kermit.1. This is also taken care of by "make
+ install".
- Optionally, the text files listed in the [185]previous section can be
- placed in a publicly readable directory. Suggested directory names
- are:
+ Optionally, the text files listed in the [202]previous section can be
+ placed in a publicly readable directory. Suggested directory names are:
/usr/local/doc/kermit/
/usr/local/lib/kermit/
K_INFO_DIRECTORY
K_INFO_DIR
- If either of these is defined, C-Kermit checks for the existence of
- the ckubwr.txt file (Unix C-Kermit Hints and Tips). If not found, it
- checks the directories listed above (both with and without the
- "/kermit") plus several others to see if they contain the ckubwr.txt
- file. If found, various C-Kermit messages can refer the user to this
- directory.
+ If either of these is defined, C-Kermit checks for the existence of the
+ ckubwr.txt file (Unix C-Kermit Hints and Tips). If not found, it checks
+ the directories listed above (both with and without the "/kermit") plus
+ several others to see if they contain the ckubwr.txt file. If found,
+ various C-Kermit messages can refer the user to this directory.
Finally, if you want to put the source code files somewhere for people
to look at, you can do that too.
- 5.4. The Makefile Install Target
+5.4. The Makefile Install Target
The makefile "install" target does almost everything for you if you
give it the information it needs by setting the variables described
below. You can use this target if:
- * You downloaded the [186]complete C-Kermit archive and built
+ * You downloaded the [203]complete C-Kermit archive and built
C-Kermit from source; or:
- * You downloaded an [187]individual C-Kermit binary and the
- [188]C-Kermit text-file archive, and your computer has a "make"
+ * You downloaded an [204]individual C-Kermit binary and the
+ [205]C-Kermit text-file archive, and your computer has a "make"
command.
Here are the parameters you need to know:
"wermit".
prefix
- (lower case) If you define this variable, its value is
- prepended to all the following xxxDIR variables (8.0.211 and
- later).
+ (lower case) If you define this variable, its value is prepended
+ to all the following xxxDIR variables (8.0.211 and later).
DESTDIR
- If you want to install the Kermit files in a directory
- structure like /opt/kermit/bin/, /opt/kermit/doc/,
- /opt/kermit/src/, then define DESTIR as the root of this
- structure; for example, /opt/kermit. The DESTDIR string should
- not end with a slash. By default, DESTDIR is not defined. If it
- is defined, but the directory does not exist, the makefile
- attempts to create it, which might require you to be root. Even
- so, this can fail if any segments in the path except the last
- one do not already exist. WARNING: If the makefile creates any
- directories, it gives them a mode of 755, and the default owner
- and group. Modify these by hand if necessary.
+ If you want to install the Kermit files in a directory structure
+ like /opt/kermit/bin/, /opt/kermit/doc/, /opt/kermit/src/, then
+ define DESTIR as the root of this structure; for example,
+ /opt/kermit. The DESTDIR string should not end with a slash. By
+ default, DESTDIR is not defined. If it is defined, but the
+ directory does not exist, the makefile attempts to create it,
+ which might require you to be root. Even so, this can fail if
+ any segments in the path except the last one do not already
+ exist. WARNING: If the makefile creates any directories, it
+ gives them a mode of 755, and the default owner and group.
+ Modify these by hand if necessary.
BINDIR
Directory in which to install the Kermit binary (and the
standard C-Kermit initialization file, if it is found, as a
- Kerbang script). If DESTDIR is defined, BINDIR must start with
- a slash. BINDIR must not end with a slash. If DESTDIR is
- defined, BINDIR is a subdirectory of DESTDIR. If BINDIR does
- not exist, the makefile attempts to create it as with DESTDIR.
- Default: /usr/local/bin.
+ Kerbang script). If DESTDIR is defined, BINDIR must start with a
+ slash. BINDIR must not end with a slash. If DESTDIR is defined,
+ BINDIR is a subdirectory of DESTDIR. If BINDIR does not exist,
+ the makefile attempts to create it as with DESTDIR. Default:
+ /usr/local/bin.
MANDIR
Directory in which to install the C-Kermit manual page as
"kermit" followed by the manual-chapter extension (next item).
- Default: /usr/man/man1. If MANDIR is defined, the directory
- must already exist.
+ Default: /usr/man/man1. If MANDIR is defined, the directory must
+ already exist.
MANEXT
Extension for the manual page. Default: 1 (digit one).
Examples:
make install
- Installs "wermit" as /usr/local/bin/kermit with permissions
- 755, the default owner and group, and no special privileges.
- The manual page is installed as /usr/man/man1/kermit.1. Text
- files are not copied anywhere, nor are the sources.
+ Installs "wermit" as /usr/local/bin/kermit with permissions 755,
+ the default owner and group, and no special privileges. The
+ manual page is installed as /usr/man/man1/kermit.1. Text files
+ are not copied anywhere, nor are the sources.
make MANDIR= install
Just like "make install" but does not attempt to install the
make DESTDIR=/opt/kermit BINDIR=/bin SRCDIR=/src INFODIR=/doc install
Installs the Kermit binary "wermit" as /opt/kermit/bin/kermit,
- puts the source code in /opt/kermit/src, and puts the text
- files in /opt/kermit/doc, creating the directories if they
- don't already exist, and puts the man page in the default
- location.
+ puts the source code in /opt/kermit/src, and puts the text files
+ in /opt/kermit/doc, creating the directories if they don't
+ already exist, and puts the man page in the default location.
make BINDIR=/usr/local/bin CERTDIR=/usr/local/ssl install
Installs the Kerberized Kermit binary "wermit" as
SRCDIR =
INFODIR =
CERTDIR =
- __________________________________________________________________________
6. INSTALLING UNIX C-KERMIT FROM DOS-FORMAT DISKETTES
- [ [189]Top ] [ [190]Contents ] [ [191]Next ] [ [192]Previous ]
+ [ [206]Top ] [ [207]Contents ] [ [208]Next ] [ [209]Previous ]
This section is obsolete. We don't distribute C-Kermit on diskettes
- any more because (a)there is no demand, and (b) it no longer fits.
+ any more because (a)there is no demand, and (b) it no longer fits.
If you received a DOS-format diskette containing a binary executable
C-Kermit program plus supporting text files, be sure to chmod +x the
5A(189) and earlier or to other DOS-format diskettes you might have
obtained from other sources.
- If you have received C-Kermit on MS-DOS format diskettes (such as
- those distributed by Columbia University), you should make sure that
- your DOS-to-Unix conversion utility (such as "dosread") both: (1)
- changes line terminators in all files from carriage-return linefeed
- (CRLF) to just linefeed (LF) (such as "dosread -a") and remove any
- Ctrl-Z's, and (2) that all filenames are converted from uppercase to
- lowercase. If these conversions were not done, you can use the
- following shell script on your Unix system to do them:
+ If you have received C-Kermit on MS-DOS format diskettes (such as those
+ distributed by Columbia University), you should make sure that your
+ DOS-to-Unix conversion utility (such as "dosread") both: (1) changes
+ line terminators in all files from carriage-return linefeed (CRLF) to
+ just linefeed (LF) (such as "dosread -a") and remove any Ctrl-Z's, and
+ (2) that all filenames are converted from uppercase to lowercase. If
+ these conversions were not done, you can use the following shell script
+ on your Unix system to do them:
---(cut here)---
#!/bin/sh
Cut out this shell script, save it as "convert.sh" (or any other name
you prefer), then "chmod +x convert.sh". Then, create a new, empty
directory to put the converted files in, and then "convert.sh /xxx
- /yyy" where /xxx is the name of the directory where the PC-format
- files are, and /yyy is the name of the new, empty directory. The
- converted files will appear in the new directory.
- __________________________________________________________________________
+ /yyy" where /xxx is the name of the directory where the PC-format files
+ are, and /yyy is the name of the new, empty directory. The converted
+ files will appear in the new directory.
7. CHECKING THE RESULTS
- [ [193]Top ] [ [194]Contents ] [ [195]Next ] [ [196]Previous ]
+ [ [210]Top ] [ [211]Contents ] [ [212]Next ] [ [213]Previous ]
First some quick checks for problems that can be easily corrected by
recompiling with different options:
rebuild.
Here is a more thorough checklist can use to tell whether your version
- of C-Kermit was built correctly for your Unix system, with hints on
- how to fix or work around problems:
-
- a. Start C-Kermit (usually by typing "./wermit" in the directory
- where you ran the makefile). Do you see the C-Kermit> prompt? If
- not, C-Kermit incorrectly deduced that it was running in the
- background. The test is in conbgt() in [197]ckutio.c. If you can
- fix it for your system, please send in the fix (Hint: read about
- "PID_T" below). Otherwise, you can force C-Kermit to foreground
- mode by starting it with the -z command line option, as in "kermit
- -z", or giving the interactive command SET BACKGROUND OFF.
+ of C-Kermit was built correctly for your Unix system, with hints on how
+ to fix or work around problems:
+
+ a. Start C-Kermit (usually by typing "./wermit" in the directory where
+ you ran the makefile). Do you see the C-Kermit> prompt? If not,
+ C-Kermit incorrectly deduced that it was running in the background.
+ The test is in conbgt() in [214]ckutio.c. If you can fix it for
+ your system, please send in the fix (Hint: read about "PID_T"
+ below). Otherwise, you can force C-Kermit to foreground mode by
+ starting it with the -z command line option, as in "kermit -z", or
+ giving the interactive command SET BACKGROUND OFF.
b. When you type characters at the C-Kermit prompt, do they echo
immediately? If not, something is wrong with concb() and probably
- the other terminal mode settings routines in [198]ckutio.c. Be
- sure you have used the most appropriate make entry.
+ the other terminal mode settings routines in [215]ckutio.c. Be sure
+ you have used the most appropriate make entry.
c. At the C-Kermit> prompt, type "send ./?". C-Kermit should list all
the files in the current directory. If not, it was built for the
- wrong type of Unix file system. Details below. In the meantime,
- try SET WILDCARD-EXPANSION SHELL as a workaround.
+ wrong type of Unix file system. Details below. In the meantime, try
+ SET WILDCARD-EXPANSION SHELL as a workaround.
d. CD to a directory that contains a variety of files, symlinks, and
subdirectories and give a DIRECTORY command at the C-Kermit>
prompt. Do the permissions, size, and date appear correct? If not
- see [199]Section 4.0.
- e. Assuming your platform supports long file names, create a file
- with a long name in your current directory, e.g.:
+ see [216]Section 4.0.
+ e. Assuming your platform supports long file names, create a file with
+ a long name in your current directory, e.g.:
$ touch thisisafilewithaveryveryveryveryveryveryveryverylooooooooongname
- (you might need to make it longer than this, perhaps as long as
- 257 or even 1025 characters).
+ (you might need to make it longer than this, perhaps as long as 257
+ or even 1025 characters).
Check with ls to see if your version of Unix truncated the name.
Now start C-Kermit and type "send thisis<ESC>". Does Kermit
complete the name, showing the same name as ls did? If not, wrong
f. Make sure that Kermit has the maximum path length right. Just type
SHOW FILE and see what it says about this. If it is too short,
there could be some problems at runtime. To correct, look in
- [200]ckcdeb.h to see how the symbol CKMAXPATH is set and make any
+ [217]ckcdeb.h to see how the symbol CKMAXPATH is set and make any
needed adjustments.
g. Send a file to your new Kermit program from a different Kermit
program that is known to work. Is the date/timestamp of the new
file identical to the original? If not, adjustments are needed in
- zstrdt() in [201]ckufio.c.
+ zstrdt() in [218]ckufio.c.
h. Go to another computer (Computer B) from which you can send files
to C-Kermit. Connect Computer B to the computer (A) where you are
testing C-Kermit. Then:
i. Send a file from B to A. Make sure it transferred OK and was
- created with the the right name.
- j. Send a file from B to A, specifying an "as-name" that is very,
- very long (longer than the maximum name length on computer A).
- Check to make sure that the file was received OK and that its name
- was truncated to Computer A's maximum length. If not, check the
- MAXNAMLEN definition in [202]ckufio.c.
- k. Tell C-Kermit on Computer A to "set receive pathnames relative"
- and then send it a file from Computer B specifying an as-name that
+ created with the right name.
+ j. Send a file from B to A, specifying an "as-name" that is very, very
+ long (longer than the maximum name length on computer A). Check to
+ make sure that the file was received OK and that its name was
+ truncated to Computer A's maximum length. If not, check the
+ MAXNAMLEN definition in [219]ckufio.c.
+ k. Tell C-Kermit on Computer A to "set receive pathnames relative" and
+ then send it a file from Computer B specifying an as-name that
contains several directory segments:
send foo dir1/dir2/dir3/foo
n. Type Ctrl-Z (or whatever your Unix suspend character is) to put
C-Kermit in the background. Did it work? If nothing happened, then
(a)your version of Unix does not support job control, or (b) your
- version of C-Kermit was probably built with -DNOJC. If your
- session became totally frozen, then you are probably running
- C-Kermit on a Unix version that supports job control, but under a
- shell that doesn't. If that's not the case, look in the congm()
- and psuspend() routines in [203]ckutio.c and see if you can figure
- out what's wrong. If you can't, rebuild with -DNOJC.
+ version of C-Kermit was probably built with -DNOJC. If your session
+ became totally frozen, then you are probably running C-Kermit on a
+ Unix version that supports job control, but under a shell that
+ doesn't. If that's not the case, look in the congm() and psuspend()
+ routines in [220]ckutio.c and see if you can figure out what's
+ wrong. If you can't, rebuild with -DNOJC.
o. Give a SET LINE command for a dialout device, e.g. "set line
/dev/tty00". If you got some kind of permission or access denied
- message, go read [204]Section 10 and then come back here.
- p. After giving a successful SET LINE command, type "show comm" to
- see the communication parameters. Do they make sense?
+ message, go read [221]Section 10 and then come back here.
+ p. After giving a successful SET LINE command, type "show comm" to see
+ the communication parameters. Do they make sense?
q. Type "set speed ?" and observe the list of available speeds. Is it
- what you expected? If not, see [205]Section 2) of the
- [206]Configurations Options document.
- r. Give a SET SPEED command to change the device's speed. Did it
- work? (Type "show comm" again to check.)
+ what you expected? If not, see [222]Section 2) of the
+ [223]Configurations Options document.
+ r. Give a SET SPEED command to change the device's speed. Did it work?
+ (Type "show comm" again to check.)
s. Try dialing out: SET MODEM TYPE , SET LINE , SET SPEED , DIAL . If
it doesn't work, keep reading. After dialing, can you REDIAL?
t. If your version was built with TCP/IP network support, try the
(direct or dialed) and transfer some files. If you have network
support, do the same with a network connection.
w. If your version was built with fullscreen file transfer display
- support, check that it works during local-mode file transfer.
- Also, check C-Kermit's operation afterwards: is the echoing funny?
- etc etc. If there are problems, see [207]Section 4.
- x. If your version was built with script programming language
- support, TAKE the ckedemo.ksc file to give it a workout.
+ support, check that it works during local-mode file transfer. Also,
+ check C-Kermit's operation afterwards: is the echoing funny? etc
+ etc. If there are problems, see [224]Section 4.
+ x. If your version was built with script programming language support,
+ TAKE the ckedemo.ksc file to give it a workout.
y. Does C-Kermit interlock correctly with UUCP-family programs (cu,
- tip, uucp, etc)? If not, read the section [208]DIALING OUT AND
+ tip, uucp, etc)? If not, read the section [225]DIALING OUT AND
COORDINATING WITH UUCP below.
z. Modem signals... Give a SET LINE command to a serial device and
then type the SHOW MODEM command. If it says "Modem signals
- unavailable in this version of Kermit", then you might want to
- look at the ttgmdm() routine in [209]ckutio.c and add the needed
- code -- if indeed your version of Unix provides a way to get modem
- signals (some don't; e.g. modem signals are a foreign concept to
- POSIX, requiring politically incorrect workarounds).
+ unavailable in this version of Kermit", then you might want to look
+ at the ttgmdm() routine in [226]ckutio.c and add the needed code --
+ if indeed your version of Unix provides a way to get modem signals
+ (some don't; e.g. modem signals are a foreign concept to POSIX,
+ requiring politically incorrect workarounds).
aa. If it says "Modem signals unavailable", then it is likely that the
API for getting modem signals is provided, but it doesn't actually
do anything (e.g. ioctl(ttyfd,TIOCMGET,&x) returns EINVAL).
To test, SET LINE , SET MODEM NONE, and HANGUP. The DTR light
should go out momentarily. If it doesn't, see if you can add the
needed code for your system to the tthang() routine in
- [210]ckutio.c.
+ [227]ckutio.c.
ac. If your version of Kermit has the SET FLOW RTS/CTS command, check
to see if it works: give Kermit this command, set your modem for
RTS/CTS, transfer some files (using big packet and window sizes)
and watch the RTS and CTS lights on the modem. If they go on and
- off (and Kermit does not get packet errors), then it works. If
- your version of Kermit does not have this command, but your
- version of Unix does support hardware flow control, take a look at
- the tthflow() command in [211]ckutio.c and see if you can add the
- needed code (see the section on [212]HARDWARE FLOW CONTROL below).
- (And please [213]send back any added code, so that others can
+ off (and Kermit does not get packet errors), then it works. If your
+ version of Kermit does not have this command, but your version of
+ Unix does support hardware flow control, take a look at the
+ tthflow() command in [228]ckutio.c and see if you can add the
+ needed code (see the section on [229]HARDWARE FLOW CONTROL below).
+ (And please [230]send back any added code, so that others can
benefit from it and it can be carried forward into future
releases.)
ad. If C-Kermit starts normally and issues its prompt, echoing is
normal, etc, but then after returning from a CONNECT session, the
prompt no longer appears, try rebuilding with -DCKCONINTB4CB.
ae. (8.0.206 or later) Type some commands at the C-Kermit prompt. Can
- you use the Up-arrow and Down-arrow keys on your keyboard to
- access Kermit's command history? If not, and you're a programmer,
- take a look at the USE_ARROWKEYS sections of ckucmd.c.
- __________________________________________________________________________
+ you use the Up-arrow and Down-arrow keys on your keyboard to access
+ Kermit's command history? If not, and you're a programmer, take a
+ look at the USE_ARROWKEYS sections of ckucmd.c.
8. REDUCING THE SIZE OF THE EXECUTABLE PROGRAM IMAGE
- [ [214]Top ] [ [215]Contents ] [ [216]Next ] [ [217]Previous ]
+ [ [231]Top ] [ [232]Contents ] [ [233]Next ] [ [234]Previous ]
- Also see: [218]C-Kermit Configuration Options
+ Also see: [235]C-Kermit Configuration Options
a. Many of C-Kermit's options and features can be deselected at
compile time. The greatest savings at the least sacrifice in
functionality is to disable the logging of debug information by
- defining NODEBUG during compilation. See the [219]Configurations
+ defining NODEBUG during compilation. See the [236]Configurations
Options document for further information.
b. Use shared libraries rather than static linking. This is the
- default on many Unix systems anyway. However, executables built
- for dynamic linking with shared libraries are generally not
- portable away from the machine they were built on, so this is
- recommended if the binary is for your use only.
+ default on many Unix systems anyway. However, executables built for
+ dynamic linking with shared libraries are generally not portable
+ away from the machine they were built on, so this is recommended if
+ the binary is for your use only.
c. Most Unix systems have a "strip" command to remove symbol table
information from an executable program image. "man strip" for
further information. The same effect can be achieved by including
e. Many modern optimizers can be instructed to optimize for space
rather than execution efficiency. Check the CFLAGS in the makefile
target, adjust as desired.
- __________________________________________________________________________
9. UNIX VERSIONS
- [ [220]Top ] [ [221]Contents ] [ [222]Next ] [ [223]Previous ]
+ [ [237]Top ] [ [238]Contents ] [ [239]Next ] [ [240]Previous ]
SECTION CONTENTS
-9.1 [224]Standards
- 9.1.1. [225]POSIX
- 9.1.2. [226]ANSI C
- 9.1.3. [227]Other Standards
-9.2. [228]Library Issues
-9.3. [229]Unix File System Peculiarities
-9.4. [230]Hardware Flow Control
-9.5. [231]Terminal Speeds
-9.6. [232]Millisecond Sleeps
-9.7. [233]Nondestructive Input Buffer Peeking
-9.8. [234]Other System-Dependent Features
-9.9. [235]Terminal Interruption
+9.1 [241]Standards
+ 9.1.1. [242]POSIX
+ 9.1.2. [243]ANSI C
+ 9.1.3. [244]Other Standards
+9.2. [245]Library Issues
+9.3. [246]Unix File System Peculiarities
+9.4. [247]Hardware Flow Control
+9.5. [248]Terminal Speeds
+9.6. [249]Millisecond Sleeps
+9.7. [250]Nondestructive Input Buffer Peeking
+9.8. [251]Other System-Dependent Features
+9.9. [252]Terminal Interruption
There are several major varieties of Unix: Bell Laboratories Seventh
Edition, AT&T System V, Berkeley Standard Distribution (BSD), and
AT&T-based versions of Unix Kermit include the compile-time option
-DATTSV (standing for AT∓T Unix System V). This applies to System
- III and to System V up to and including Release 2. For System V
- Release 3, the flag -DSVR3 should be used instead (which also implies
- -DATTSV). This is because the data type of signal() and several other
- functions was changed between SVR2 and SVR3. For System V Release 4,
- include -DSVR4 because of changes in UUCP lockfile conventions; this
- also implies -DSVR3 and -DATTSV.
+ III and to System V up to and including Release 2. For System V Release
+ 3, the flag -DSVR3 should be used instead (which also implies -DATTSV).
+ This is because the data type of signal() and several other functions
+ was changed between SVR2 and SVR3. For System V Release 4, include
+ -DSVR4 because of changes in UUCP lockfile conventions; this also
+ implies -DSVR3 and -DATTSV.
For BSD, the flag -BSDxx must be included, where xx is the BSD version
number, for example BSD4 (for version 4.2 or later, using only 4.2
Note (circa 1997): In order to enable serial speeds higher than 38400
bps, it is generally necessary to add -DPOSIX (among other things),
- since the older terminal APIs can not accommodate the new speeds --
- out o' bits. But this often also means wholesale conversion to POSIX
- APIs. In general, just try adding -DPOSIX and then see what goes
- wrong. Be wary of features disappearing: when _POSIX_SOURCE is
- defined, all sorts of things that were perfectly OK before suddenly
- become politically incorrect -- like reading modem signals, doing
- hardware flow control, etc. POSIX was evidently not designed with
- serial communication in mind!
+ since the older terminal APIs can not accommodate the new speeds -- out
+ o' bits. But this often also means wholesale conversion to POSIX APIs.
+ In general, just try adding -DPOSIX and then see what goes wrong. Be
+ wary of features disappearing: when _POSIX_SOURCE is defined, all sorts
+ of things that were perfectly OK before suddenly become politically
+ incorrect -- like reading modem signals, doing hardware flow control,
+ etc. POSIX was evidently not designed with serial communication in
+ mind!
Case in point: In UnixWare 7.0, #define'ing POSIX causes strictness
clauses in the header files to take effect. These prevent <sys/time.h>
Similarly in SCO OpenServer R5.0.4 where, again, we must use the POSIX
APIs to get at serial speeds higher than 38400, but then doing so
removes hardware flow control -- just when we need it most! In cases
- like this, dirty tricks are the only recourse (search for SCO_OSR504
- in [236]ckutio.c for examples).
+ like this, dirty tricks are the only recourse (search for SCO_OSR504 in
+ [253]ckutio.c for examples).
For reasons like this, Unix implementations tend to be neither pure
AT&T nor pure BSD nor pure POSIX, but a mixture of two or more of
these, with "compatibility features" allowing different varieties of
- programs to be built on the same computer. In general, Kermit tries
- not to mix and match but to keep a consistent repertoire throughout.
- However, there are certain Unix implementations that only work when
- you mix and match. For example, the Silicon Graphics IRIX operating
- system (prior to version 3.3) is an AT&T Unix but with a BSD file
- system. The only way you can build Kermit successfully for this
- configuration is to include -DSVR3 plus the special option -DLONGFN,
- meaning "pretend I was built with -DBSDxx when it's time to compile
- file-related code". See the "iris" makefile target.
- ________________________________________________________________________
+ programs to be built on the same computer. In general, Kermit tries not
+ to mix and match but to keep a consistent repertoire throughout.
+ However, there are certain Unix implementations that only work when you
+ mix and match. For example, the Silicon Graphics IRIX operating system
+ (prior to version 3.3) is an AT&T Unix but with a BSD file system. The
+ only way you can build Kermit successfully for this configuration is to
+ include -DSVR3 plus the special option -DLONGFN, meaning "pretend I was
+ built with -DBSDxx when it's time to compile file-related code". See
+ the "iris" makefile target.
- 9.1. Standards
+9.1. Standards
- [ [237]Top ] [ [238]Section Contents ] [ [239]Contents ] [ [240]Next ]
+ [ [254]Top ] [ [255]Section Contents ] [ [256]Contents ] [ [257]Next ]
SUBSECTION CONTENTS
-9.1.1. [241]POSIX
-9.1.2. [242]ANSI C
-9.1.3. [243]Other Standards
+9.1.1. [258]POSIX
+9.1.2. [259]ANSI C
+9.1.3. [260]Other Standards
In edits 166-167 (1988-89), C-Kermit was heavily modified to try to
- keep abreast of new standards while still remaining compatible with
- old versions of C and Unix. There are two new standards of interest:
- ANSI C (as described in Kernighan and Ritchie, "The C Programming
- Language", Second Edition, Prentice Hall, 1988) and POSIX.1 (IEEE
- Standard 1003.1 and ISO/IEC 9945-1, 1990, "Portable Operating System
- Interface"). These two standards have nothing to do with each other:
- you can build C-Kermit with a non-ANSI compiler for a POSIX system, or
- for a non-POSIX system with with an ANSI compiler.
+ keep abreast of new standards while still remaining compatible with old
+ versions of C and Unix. There are two new standards of interest: ANSI C
+ (as described in Kernighan and Ritchie, "The C Programming Language",
+ Second Edition, Prentice Hall, 1988) and POSIX.1 (IEEE Standard 1003.1
+ and ISO/IEC 9945-1, 1990, "Portable Operating System Interface"). These
+ two standards have nothing to do with each other: you can build
+ C-Kermit with a non-ANSI compiler for a POSIX system, or for a
+ non-POSIX system with with an ANSI compiler.
- 9.1.1. POSIX
+9.1.1. POSIX
POSIX.1 defines a repertoire of system functions and header files for
use by C language programs. Most notably, the ioctl() function is not
If Kermit is built with -D_POSIX_SOURCE but not -DPOSIX, then one of
the -DBSD or -DATTSV flags (or one that implies them) must also be
- defined, but it still uses only the POSIX features in the system
- header files. This allows C-Kermit to be built on BSD or AT&T systems
- that have some degree of POSIX compliance, but still use BSD or AT&T
+ defined, but it still uses only the POSIX features in the system header
+ files. This allows C-Kermit to be built on BSD or AT&T systems that
+ have some degree of POSIX compliance, but still use BSD or AT&T
specific features.
- The dilimma is this: it is often necessary to define _POSIX_SOURCE to
+ The dilemma is this: it is often necessary to define _POSIX_SOURCE to
get at new or modern features, such as high serial speeds and the APIs
to deal with them. But defining _POSIX_SOURCE also hides other APIs
that Kermit needs, for example the ones dealing with modem signals
(others are listed just below). Thus all sorts of hideous contortions
are often required to get a full set of features.
- The POSIX standard does not define anything about uucp lockfiles.
- "make posix" uses NO (repeat, NO) lockfile conventions. If your
- POSIX-compliant Unix version uses a lockfile convention such as
- HDBUUCP (see below), use the "posix" entry, but include the
- appropriate lockfile option in your KFLAGS on the "make" command line,
- for example:
+ The POSIX standard does not define anything about uucp lockfiles. "make
+ posix" uses NO (repeat, NO) lockfile conventions. If your
+ POSIX-compliant Unix version uses a lockfile convention such as HDBUUCP
+ (see below), use the "posix" entry, but include the appropriate
+ lockfile option in your KFLAGS on the "make" command line, for example:
make posix "KFLAGS=-DHDBUUCP"
example:
* There is no defined way for an application to do wildcard matching
- of filenames. Kermit uses the inode in the directory structure,
- but POSIX.1 does not include this concept. (Later POSIX revisions
+ of filenames. Kermit uses the inode in the directory structure, but
+ POSIX.1 does not include this concept. (Later POSIX revisions
include functions named (I think) glob() and fnmatch(), but these
functions are not yet in Kermit, and might not be appropriate in
any case.)
* There is no POSIX mechanism for sensing or controlling modem
signals, nor to enable RTS/CTS or other hardware flow control.
- * There is no select() for multiplexing i/o, and therefore no
- TCP/IP.
+ * There is no select() for multiplexing i/o, and therefore no TCP/IP.
* There is no way to check if characters are waiting in a
- communications device (or console) input buffer, short of trying
- to read them -- no select(), ioctl(fd,FIONREAD,blah), rdchk(),
- etc. This is bad for CONNECT mode and bad for sliding windows.
+ communications device (or console) input buffer, short of trying to
+ read them -- no select(), ioctl(fd,FIONREAD,blah), rdchk(), etc.
+ This is bad for CONNECT mode and bad for sliding windows.
* No way to do a millisecond sleep (no nap(), usleep(), select(),
etc).
* There is no popen().
"POSIX mode". For the ancient POSIX 1003.1-1990, the symbol is
_POSIX_SOURCE. For recent revisions, it's _POSIX_C_SOURCE with an
appropriate value. POSIX 1003.1-1996 says that, to use its features
- in a portable manner, you must define _POSIX_C_SOURCE=199506L
- before including any header files.
+ in a portable manner, you must define _POSIX_C_SOURCE=199506L before
+ including any header files.
- But for Solaris, or Digital Unix, the picture is different. POSIX
- is one important but small part of the universe. Yet POSIX
+ But for Solaris, or Digital Unix, the picture is different. POSIX is
+ one important but small part of the universe. Yet POSIX
unconditionally and unambiguously REQUIRES that, when
_POSIX_C_SOURCE=199506L, ALL of the functions and definitions
required by the standard, and NO others (except in specific
restricted namespaces, specifically "_" followed by an uppercase
letter or "__" followed by a lowercase letter) shall be visible.
That kinda puts a cramp on BSD and SVID support, because those
- require names that are not in the "protected" POSIX namespaces.
- It's ILLEGAL to make those symbols visible, unless you've done
- something else that's beyond the scope of POSIX to allow the system
- to infer that you didn't really mean it.
+ require names that are not in the "protected" POSIX namespaces. It's
+ ILLEGAL to make those symbols visible, unless you've done something
+ else that's beyond the scope of POSIX to allow the system to infer
+ that you didn't really mean it.
In most cases, you should just compile, with no standards-related
macros defined. The system will make available every interface and
- definition that isn't incompatible with the "main stream". There
- may indeed be cases where two standards cross, and you really can't
- use both together. But, in general, they play nicely together as
- long as you don't do anything rash -- like telling the system that
- it's not allowed to let them.
+ definition that isn't incompatible with the "main stream". There may
+ indeed be cases where two standards cross, and you really can't use
+ both together. But, in general, they play nicely together as long as
+ you don't do anything rash -- like telling the system that it's not
+ allowed to let them.
In the area of threads, both Solaris and Digital Unix support
- incompatible thread APIs. We have POSIX and DCE, they have POSIX
- and UI. The nasty areas are in the _r routines and in some aspects
- of signal behavior. You cannot compile a single source file that
- uses both semantics. That's life. It sounds as if Solaris defaults
- to the UI variants, but allows you to define this
- _POSIX_THREAD_SEMANTICS to get around it. We default to POSIX, and
- allow you to define _PTHREAD_USE_D4 (automatically defined by the
- cc "-threads" switch) to select the DCE thread variants. That
- default, because you're operating outside of any individual
- standard, is really just a marketing decision.
- ______________________________________________________________________
-
- 9.1.2. ANSI C
-
- [ [244]Top ] [ [245]Contents ] [ [246]Section Contents ] [
- [247]Subsection Contents ] [ [248]Next ] [ [249]Previous ]
-
- The major difference between ANSI C and earlier C compilers is
- function prototyping. ANSI C allows function arguments to be checked
- for type agreement, and (when possible) type coercion in the event of
- a mismatch. For this to work, functions and their arguments must be
+ incompatible thread APIs. We have POSIX and DCE, they have POSIX and
+ UI. The nasty areas are in the _r routines and in some aspects of
+ signal behavior. You cannot compile a single source file that uses
+ both semantics. That's life. It sounds as if Solaris defaults to the
+ UI variants, but allows you to define this _POSIX_THREAD_SEMANTICS
+ to get around it. We default to POSIX, and allow you to define
+ _PTHREAD_USE_D4 (automatically defined by the cc "-threads" switch)
+ to select the DCE thread variants. That default, because you're
+ operating outside of any individual standard, is really just a
+ marketing decision.
+
+9.1.2. ANSI C
+
+ [ [261]Top ] [ [262]Contents ] [ [263]Section Contents ] [
+ [264]Subsection Contents ] [ [265]Next ] [ [266]Previous ]
+
+ The major difference between ANSI C and earlier C compilers is function
+ prototyping. ANSI C allows function arguments to be checked for type
+ agreement, and (when possible) type coercion in the event of a
+ mismatch. For this to work, functions and their arguments must be
declared before they are called. The form for function declarations is
different in ANSI C and non-ANSI C (ANSI C also accepts the earlier
form, but then does not do type checking).
internally.
On the downside, ANSI C compilation increases the
- administrative/bureacratic burden, spewing out countless unneeded
+ administrative/bureaucratic burden, spewing out countless unneeded
warnings about mismatched types, especially when we are dealing with
signed and unsigned characters, requiring casts everywhere to shut up
the mindless complaints -- there is no use for signed chars in Kermit
(or probably anywhere else). Some compilers, mercifully, include a
"treat all chars as unsigned" option, and when available it should be
- used -- not only to stop the warnings, but also to avoid unhelpful
- sign extension on high-bit characters.
+ used -- not only to stop the warnings, but also to avoid unhelpful sign
+ extension on high-bit characters.
- To force use of ANSI C prototypes, include -DCK_ANSIC on the cc
- command line. To disable the use of ANSI prototypes, include -DNOANSI.
- ______________________________________________________________________
+ To force use of ANSI C prototypes, include -DCK_ANSIC on the cc command
+ line. To disable the use of ANSI prototypes, include -DNOANSI.
- 9.1.3. Other Standards
+9.1.3. Other Standards
- [ [250]Top ] [ [251]Contents ] [ [252]Section Contents ] [
- [253]Subsection Contents ] [ [254]Next ] [ [255]Previous ]
+ [ [267]Top ] [ [268]Contents ] [ [269]Section Contents ] [
+ [270]Subsection Contents ] [ [271]Next ] [ [272]Previous ]
As the years go by, standards with-which-all-must-comply continue to
pile up: AES, XPG2, XPG3, XPG4, FIPS 151-2, successive generations of
POSIX, OSF/1, X/Open, Spec 1170, UNIX95, Open Group UNIX98, ISO/IEC
9945 parts 1-4, ISO 9899, 88Open, OS 99, Single Unix Specification
- (SUS, [256]IEEE 1003.1-2001, not to mention "mature standards" like
- V7, 4.2/4.3BSD, System V R3 and R4 (SVID2 and SVID3), 4.4BSD (the
- basis for BSDI, OpenBSD, NetBSD, FreeBSD, Mac OS X etc), /usr/group,
- plus assorted seismic pronouncements of the neverending series of
- ephemeral corporate consortia, not to mention the libc-vs-glibc
- turmoil in the Linux arena and who knows what else.
+ (SUS, [273]IEEE 1003.1-2001, not to mention "mature standards" like V7,
+ 4.2/4.3BSD, System V R3 and R4 (SVID2 and SVID3), 4.4BSD (the basis for
+ BSDI, OpenBSD, NetBSD, FreeBSD, Mac OS X etc), /usr/group, plus
+ assorted seismic pronouncements of the neverending series of ephemeral
+ corporate consortia, not to mention the libc-vs-glibc turmoil in the
+ Linux arena and who knows what else.
None of these standards simplifies life for portable applications like
C-Kermit -- each one is simply one more environment to support (or
circumvent, as in many cases these standards do more harm than good by
denying access to facilities we need, e.g. as noted in above in
- [257]9.1.1).
- ________________________________________________________________________
+ [274]9.1.1).
- 9.2. Library Issues
+9.2. Library Issues
- [ [258]Top ] [ [259]Contents ] [ [260]Section Contents ] [
- [261]Subsection Contents ] [ [262]Next ] [ [263]Previous ]
+ [ [275]Top ] [ [276]Contents ] [ [277]Section Contents ] [
+ [278]Subsection Contents ] [ [279]Next ] [ [280]Previous ]
On most modern platforms, applications are -- and often must be --
dynamically linked. This has numerous advantages (smaller executables,
ability to patch a library and thereby patch all applications that use
- it, etc), but also causes some headaches: most commonly, the library
- ID built into the executable at link time does not match the ID of the
+ it, etc), but also causes some headaches: most commonly, the library ID
+ built into the executable at link time does not match the ID of the
corresponding library on the target system, and so the loader refuses
to let the application run.
- This problem only gets worse over time. In the Linux and *BSD world,
- we also have totally different libraries (each with their own names
- and numbering systems) that cover the same territory; for example,
- curses vs ncurses, libc versus glibc. Combinations proliferate and any
- given Unix computer might have any combination. For this reason it is
- becoming increasingly difficult to produce a "Linux binary" for a
- given architecture (e.g. PC or Alpha). There has to be a separate
- binary for (at least) every combination of curses vs ncurses and libc
- vs glibc.
+ This problem only gets worse over time. In the Linux and *BSD world, we
+ also have totally different libraries (each with their own names and
+ numbering systems) that cover the same territory; for example, curses
+ vs ncurses, libc versus glibc. Combinations proliferate and any given
+ Unix computer might have any combination. For this reason it is
+ becoming increasingly difficult to produce a "Linux binary" for a given
+ architecture (e.g. PC or Alpha). There has to be a separate binary for
+ (at least) every combination of curses vs ncurses and libc vs glibc.
- In such cases, the best advice is for every user to build C-Kermit
- from source code on the system where it will run. Too bad most
- commercial Unix vendors have stopped including C compilers with the
- operating system!
- ________________________________________________________________________
+ In such cases, the best advice is for every user to build C-Kermit from
+ source code on the system where it will run. Too bad most commercial
+ Unix vendors have stopped including C compilers with the operating
+ system!
- 9.3. Unix File System Peculiarities
+9.3. Unix File System Peculiarities
- [ [264]Top ] [ [265]Contents ] [ [266]Section Contents ] [ [267]Next ]
- [ [268]Previous ]
+ [ [281]Top ] [ [282]Contents ] [ [283]Section Contents ] [ [284]Next ]
+ [ [285]Previous ]
Normally, including a BSD, System-V, POSIX, or DIRENT flag in the make
- entry selects the right file system code. But some versions of Unix
- are inconsistent in this regard, and building in the normal way either
+ entry selects the right file system code. But some versions of Unix are
+ inconsistent in this regard, and building in the normal way either
gives compiler or linker errors, or results in problems at runtime,
typically failure to properly expand wildcard file specifications when
you do something like "send *.*", or failure to recognize long
based UNIXes, particularly System V R3 and earlier, that provide long
file and directory names (longer than 14 characters). Examples include
certain releases of HP-UX, DIAB DNIX, older versions of Silicon
- Graphics IRIX, and perhaps also MIPS. In this case, try adding
- -DLONGFN to your makefile target.
-
- Another problem child is <sys/file.h>. Most Unix C-Kermit versions
- need to #include this file from within [269]ckufio.c and
- [270]ckutio.c, but some not only do not need to include it, but MUST
- not include it because (a) it doesn't exist, or (b) it has already
- been included by some other header file and it doesn't protect itself
- against multiple inclusion, or (c) some other reason that prevents
- successful compilation. If you have compilation problems that seem to
- stem from including this file, then add the following switch to CFLAGS
- in your makefile target:
+ Graphics IRIX, and perhaps also MIPS. In this case, try adding -DLONGFN
+ to your makefile target.
+
+ Another problem child is <sys/file.h>. Most Unix C-Kermit versions need
+ to #include this file from within [286]ckufio.c and [287]ckutio.c, but
+ some not only do not need to include it, but MUST not include it
+ because (a) it doesn't exist, or (b) it has already been included by
+ some other header file and it doesn't protect itself against multiple
+ inclusion, or (c) some other reason that prevents successful
+ compilation. If you have compilation problems that seem to stem from
+ including this file, then add the following switch to CFLAGS in your
+ makefile target:
-DNOFILEH
- There are a few odd cases where <sys/file.h> must be included in one
- of the cku[ft]io.c files, but not the other. In that case, add the
- aforementioned switch, but go into the file that needs <sys/file.h>
- and add something like this:
+ There are a few odd cases where <sys/file.h> must be included in one of
+ the cku[ft]io.c files, but not the other. In that case, add the
+ aforementioned switch, but go into the file that needs <sys/file.h> and
+ add something like this:
#ifdef XXX /* (where XXX is a symbol unique to your system) */
#undef NOFILEH
Kermit's SEND command expands wildcard characters "?" and "*" itself.
Before version 5A, commands like "send *" would send all regular
- (non-directory) files, including "hidden files" (whose names start
- with "."). In version 5A, the default behavior is to match like the
- Bourne shell or the ls command, and not include files whose names
- start with dot. Such files can still be sent if the dot is included
- explicitly in the SEND command: "send .oofa, send .*". To change back
- to the old way and let leading wildcard characters match dot files,
- include the following in your CFLAGS:
+ (non-directory) files, including "hidden files" (whose names start with
+ "."). In version 5A, the default behavior is to match like the Bourne
+ shell or the ls command, and not include files whose names start with
+ dot. Such files can still be sent if the dot is included explicitly in
+ the SEND command: "send .oofa, send .*". To change back to the old way
+ and let leading wildcard characters match dot files, include the
+ following in your CFLAGS:
-DMATCHDOT
* If you get compile-time complaints about data type mismatches for
getpwuid(), add -DPWID_T=uid_t (or whatever it should be).
- File creation dates: C-Kermit attempts to set the creation date/time
- of an incoming file according to the date/time given in the file's
+ File creation dates: C-Kermit attempts to set the creation date/time of
+ an incoming file according to the date/time given in the file's
attribute packet, if any. If you find that the dates are set
incorrectly, you might need to build Kermit with the -DSYSUTIMEH flag,
to tell it to include <sys/utime.h>. If that doesn't help, look at the
- code in zstrdt() in [271]ckufio.c.
- ________________________________________________________________________
+ code in zstrdt() in [288]ckufio.c.
- 9.4. Hardware Flow Control
+9.4. Hardware Flow Control
- [ [272]Top ] [ [273]Contents ] [ [274]Section Contents ] [ [275]Next ]
- [ [276]Previous ]
+ [ [289]Top ] [ [290]Contents ] [ [291]Section Contents ] [ [292]Next ]
+ [ [293]Previous ]
Hardware flow control is a problematic concept in many popular Unix
implementations. Often it is lacking altogether, and when available,
system to system. Here are some examples:
a. POSIX does not support hardware flow control.
- b. RTS/CTS flow control support MIGHT be available for System V R3
- and later if /usr/include/termiox.h exists (its successful
- operation also depends on the device driver, and the device
- itself, not to mention the cable, etc, actually supporting it). If
- your SVR3-or-later Unix system does have this file, add:
+ b. RTS/CTS flow control support MIGHT be available for System V R3 and
+ later if /usr/include/termiox.h exists (its successful operation
+ also depends on the device driver, and the device itself, not to
+ mention the [294]cable, etc, actually supporting it). If your
+ SVR3-or-later Unix system does have this file, add:
-DTERMIOX
-DSTERMIOX
- Note that the presence of this file does not guarantee that
- RTS/CTS will actually work -- that depends on the device-driver
+ Note that the presence of this file does not guarantee that RTS/CTS
+ will actually work -- that depends on the device-driver
implementation (reportedly, many Unix versions treat
hardware-flow-control related ioctl's as no-ops).
c. Search ("grep -i") through /usr/include/*.h and
/usr/include/sys/*.h for RTS or CTS and see what turns up. For
- example, in SunOS 4.x we find "CRTSCTS". Figuring out how to use
- it is another question entirely! In IBM AIX RS/6000 3.x, we have
- to "add" a new "line discipline" (and you won't find uppercase RTS
- or CTS symbols in the header files).
+ example, in SunOS 4.x we find "CRTSCTS". Figuring out how to use it
+ is another question entirely! In IBM AIX RS/6000 3.x, we have to
+ "add" a new "line discipline" (and you won't find uppercase RTS or
+ CTS symbols in the header files).
d. NeXTSTEP and IRIX, and possibly others, support hardware flow
- control, but do not furnish an API to control it, and thus on
- these systems Kermit has no command to select it -- instead, a
- special device name must be used. (NeXTSTEP: /dev/cufa instead of
- /dev/cua; IRIX: /dev/ttyf00)
+ control, but do not furnish an API to control it, and thus on these
+ systems Kermit has no command to select it -- instead, a special
+ device name must be used. (NeXTSTEP: /dev/cufa instead of /dev/cua;
+ IRIX: /dev/ttyf00)
- See the routine tthflow() in [277]ckutio.c for details. If you find
+ See the routine tthflow() in [295]ckutio.c for details. If you find
that your system offers hardware flow control selection under program
control, you can add this capability to C-Kermit as follows:
- a. See if it agrees with one of the methods already used in
- tthflow(). if not, add new code, appropriately #ifdef'd.
+ a. See if it agrees with one of the methods already used in tthflow().
+ if not, add new code, appropriately #ifdef'd.
b. Add -DCK_RTSCTS to the compiler CFLAGS in your makefile target or
- define this symbol within the appropriate #ifdefs in
- [278]ckcdeb.h.
+ define this symbol within the appropriate #ifdefs in [296]ckcdeb.h.
To illustrate the difficulties with RTS/CTS, here is a tale from Jamie
Watson <jw@adasoft.ch>, who added the RTS/CTS code for the RS/6000,
port vary between different machines and different types of serial
interfaces on each machine. This means that, for example, there are
virtually no hardware signals in or out available on the DECsystem
- 3000/3100 series; on the DECsystem 5000/2xx series all modem
- signals in/out are present on both built-in serial ports; on the
- DECsystem 5100 some ports have all signals and some only have some;
- and so on... It looks to me as if this pretty well rules out any
- attempt to use hardware flow control on these platforms, even if we
- could figure out how to do it. The confusion on the user level
- about whether or not it should work for any given platform or port
- would be tremendous. And then it isn't clear how to use the
- hardware signals even in the cases where the device supports them."
- ________________________________________________________________________
+ 3000/3100 series; on the DECsystem 5000/2xx series all modem signals
+ in/out are present on both built-in serial ports; on the DECsystem
+ 5100 some ports have all signals and some only have some; and so
+ on... It looks to me as if this pretty well rules out any attempt to
+ use hardware flow control on these platforms, even if we could
+ figure out how to do it. The confusion on the user level about
+ whether or not it should work for any given platform or port would
+ be tremendous. And then it isn't clear how to use the hardware
+ signals even in the cases where the device supports them."
9.5. Terminal Speeds
- [ [279]Top ] [ [280]Contents ] [ [281]Section Contents ] [ [282]Next ]
- [ [283]Previous ]
+ [ [297]Top ] [ [298]Contents ] [ [299]Section Contents ] [ [300]Next ]
+ [ [301]Previous ]
The allowable speeds for the SET SPEED command are defined in
- [284]ckcdeb.h. If your system supports speeds that are not listed in
+ [302]ckcdeb.h. If your system supports speeds that are not listed in
"set speed ?", you can add definitions for them to ckcdeb.h.
Then if the speed you are adding is one that was never used before in
Kermit, such as 921600, you'll also need to add the appropriate
- keywords to spdtab[] in [285]ckuus3.c, and the corresponding case to
- ttsspd() in [286]ckutio.c.
- ________________________________________________________________________
+ keywords to spdtab[] in [303]ckuus3.c, and the corresponding case to
+ ttsspd() in [304]ckutio.c.
9.6. Millisecond Sleeps
- [ [287]Top ] [ [288]Contents ] [ [289]Section Contents ] [ [290]Next ]
- [ [291]Previous ]
+ [ [305]Top ] [ [306]Contents ] [ [307]Section Contents ] [ [308]Next ]
+ [ [309]Previous ]
There is no standard for millisecond sleeps, but at least five
different functions have appeared in various Unix versions that can be
-USLEEP: Include this in CFLAGS if your system has the usleep() function.
NOTE: The nap() function is assumed to be a function that puts the
- process to sleep for the given number of milliseconds. If your
- system's nap() function does something else or uses some other units
- of time (like the NCR Tower 32, which uses clock-ticks), do not
- include -DNAP.
+ process to sleep for the given number of milliseconds. If your system's
+ nap() function does something else or uses some other units of time
+ (like the NCR Tower 32, which uses clock-ticks), do not include -DNAP.
Reportedly, all versions of System V R4 for Intel-based computers, and
possibly also SVR3.2, include nap() as a kernel call, but it's not in
compile-time option:
-DNAPHACK
- ________________________________________________________________________
9.7. Nondestructive Input Buffer Peeking
- [ [292]Top ] [ [293]Contents ] [ [294]Section Contents ] [ [295]Next ]
- [ [296]Previous ]
+ [ [310]Top ] [ [311]Contents ] [ [312]Section Contents ] [ [313]Next ]
+ [ [314]Previous ]
Some AT&T Unix versions have no way to check if input is waiting on a
tty device, but this is a very important feature for Kermit. Without
and use it, which is ideal.
If your system lacks FIONREAD but has a select() function, this can be
- used instead. If the build procedure fails to include it (SHOW
- FEATURES will list SELECT), then you can add it to your CFLAGS:
+ used instead. If the build procedure fails to include it (SHOW FEATURES
+ will list SELECT), then you can add it to your CFLAGS:
-DSELECT
- Conversely, if the build procedure tries to use select() when it
- really is not there, add:
+ Conversely, if the build procedure tries to use select() when it really
+ is not there, add:
-DNOSELECT
System V going back to at least SVR3, include:
-DCK_POLL
- ________________________________________________________________________
9.8. Other System-Dependent Features
- [ [297]Top ] [ [298]Contents ] [ [299]Section Contents ] [ [300]Next ]
- [ [301]Previous ]
+ [ [315]Top ] [ [316]Contents ] [ [317]Section Contents ] [ [318]Next ]
+ [ [319]Previous ]
Systems with <termios.h> might have the symbol IEXTEN defined. This is
used to turn "extended features" in the tty device driver on and off,
characters, etc.
In most Unix implementations, it should be turned off during Kermit
- operation, so if [302]ckutio.c finds this symbol, it uses it. This is
+ operation, so if [320]ckutio.c finds this symbol, it uses it. This is
necessary, at least, on BSDI. On some systems, however, IEXTEN is
- either misdefined or misimplemented. The symptom is that CR, when
- typed to the command processor, is echoed as LF, rather than CRLF.
- This happens (at least) on Convex/OS 9.1. The solution is to add the
+ either misdefined or misimplemented. The symptom is that CR, when typed
+ to the command processor, is echoed as LF, rather than CRLF. This
+ happens (at least) on Convex/OS 9.1. The solution is to add the
following symbol to the makefile target's CFLACS:
-DNOIEXTEN
set before hardware flow control can be used.
In edits 177 and earlier, workstation users noticed a "slow screen
- writing" phenomenon during interactive command parsing. This was
- traced to a setbuf() call in [303]ckutio.c that made console (stdout)
- writes unbuffered. This setbuf() call has been there forever, and
- could not be removed without some risk. Kermit's operation was tested
- on the NeXT in edit 178 with the setbuf() call removed, and the
- slow-writing symptom was cured, and everything else (command parsing,
- proper wakeup on ?, ESC, Ctrl-U, and other editing characters,
- terminal emulation, remote-mode and local-mode file transfer, etc)
- seemed to work as well as or better than before. In subsequent edits,
- this change was made to many other versions too, with no apparent ill
- effects. To remove the setbuf() call for your version of Kermit, add:
+ writing" phenomenon during interactive command parsing. This was traced
+ to a setbuf() call in [321]ckutio.c that made console (stdout) writes
+ unbuffered. This setbuf() call has been there forever, and could not be
+ removed without some risk. Kermit's operation was tested on the NeXT in
+ edit 178 with the setbuf() call removed, and the slow-writing symptom
+ was cured, and everything else (command parsing, proper wakeup on ?,
+ ESC, Ctrl-U, and other editing characters, terminal emulation,
+ remote-mode and local-mode file transfer, etc) seemed to work as well
+ as or better than before. In subsequent edits, this change was made to
+ many other versions too, with no apparent ill effects. To remove the
+ setbuf() call for your version of Kermit, add:
-DNOSETBUF
Later reports indicate that adding -DNOSETBUF has other beneficial
effects, like cutting down on swapping when Kermit is run on
workstations with small memories. But BEWARE: on certain small Unix
- systems, notably the AT&T 6300 and 3B1 (the very same ones that
- benefit from NOSETBUF), NOSETBUF seems to conflict with CK_CURSES. The
- program builds and runs OK, but after once using the curses display,
- echoing is messed up. In this case, we use a System-V specific
- variation in the curses code, using newterm() to prevent System V from
- altering the buffering. See makefile entries for AT&T 6300 and 3B1.
-
- The Unix version of C-Kermit includes code to switch to file
- descriptor zero (stdin) for remote-mode file transfer. This code is
- necessary to prevent Kermit from giving the impression that it is
- "idle" during file transfers, which, at some sites, can result in the
- job being logged out in the middle of an active file transfer by
- idle-job monitors.
+ systems, notably the AT&T 6300 and 3B1 (the very same ones that benefit
+ from NOSETBUF), NOSETBUF seems to conflict with CK_CURSES. The program
+ builds and runs OK, but after once using the curses display, echoing is
+ messed up. In this case, we use a System-V specific variation in the
+ curses code, using newterm() to prevent System V from altering the
+ buffering. See makefile entries for AT&T 6300 and 3B1.
+
+ The Unix version of C-Kermit includes code to switch to file descriptor
+ zero (stdin) for remote-mode file transfer. This code is necessary to
+ prevent Kermit from giving the impression that it is "idle" during file
+ transfers, which, at some sites, can result in the job being logged out
+ in the middle of an active file transfer by idle-job monitors.
However, this feature can interfere with certain setups; for example,
there is a package which substitutes a pty/tty pair for /dev/tty and
sets file descriptor 0 to be read-only, preventing Kermit from sending
- packets. Or... When a Unix shell is invoked under the PICK
- environment, file descriptor 0 is inoperative.
+ packets. Or... When a Unix shell is invoked under the PICK environment,
+ file descriptor 0 is inoperative.
To remove this feature and allow Kermit to work in such environments,
add the compile-time option:
-DNOFDZERO
- On some versions of Unix, earlier releases of C-Kermit were reported
- to render a tty device unusable after a hangup operation. Examples
- include IBM AIX on the RT PC and RS/6000. A typical symptom of this
- phenomenon is that the DIAL command doesn't work, but CONNECTing to
- the device and dialing manually do work. A further test is to SET DIAL
- HANGUP OFF, which should make dialing work once by skipping the
- pre-dial hangup. However, after the connection is broken, it can't be
- used any more: subsequent attempts to DIAL the same device don't work.
- The cure is usually to close and reopen the device as part of the
- hangup operation. To do this, include the following compile-time
- option:
+ On some versions of Unix, earlier releases of C-Kermit were reported to
+ render a tty device unusable after a hangup operation. Examples include
+ IBM AIX on the RT PC and RS/6000. A typical symptom of this phenomenon
+ is that the DIAL command doesn't work, but CONNECTing to the device and
+ dialing manually do work. A further test is to SET DIAL HANGUP OFF,
+ which should make dialing work once by skipping the pre-dial hangup.
+ However, after the connection is broken, it can't be used any more:
+ subsequent attempts to DIAL the same device don't work. The cure is
+ usually to close and reopen the device as part of the hangup operation.
+ To do this, include the following compile-time option:
-DCLSOPN
close(open()) to force the O_NDELAY mode change. On some systems, the
close(open()) is required to make the mode change take effect, and
apparently on most others it does no harm. But reportedly on at least
- one System V R4 implementation, and on SCO Xenix 3.2, the
- close(open()) operation hangs if the device lacks carrier, EVEN THOUGH
- the CLOCAL characteristic has just been set to avoid this very
- problem. If this happens to you, add this to your CFLAGS:
+ one System V R4 implementation, and on SCO Xenix 3.2, the close(open())
+ operation hangs if the device lacks carrier, EVEN THOUGH the CLOCAL
+ characteristic has just been set to avoid this very problem. If this
+ happens to you, add this to your CFLAGS:
-DNOCOTFMC
-DRENAME
C-Kermit predefines the RENAME for several Unix versions in
- [304]ckcdeb.h (SVR4, SUNOS41, BSD44, AIXRS, etc). You can tell if
+ [322]ckcdeb.h (SVR4, SUNOS41, BSD44, AIXRS, etc). You can tell if
rename() is being used if the SHOW FEATURES command includes RENAME in
the compiler options list. If the predefined RENAME symbol causes
trouble, then add NORENAME to your CFLAGS. Trouble includes:
Some Unix systems (Olivetti X/OS, Amdahl UTS/V, ICL SVR3, etc) define
the S_ISREG and S_ISDIR macros incorrectly. This is compensated for
- automatically in [305]ckufio.c. Other systems might have this same
+ automatically in [323]ckufio.c. Other systems might have this same
problem. If you get a compile-time error message regarding S_ISREG
and/or S_ISDIR, add the following to your CFLAGS:
CFLAGS or KFLAGS! Similarly, some header files have been known to
define COMMENT, in which case you must add "#undef COMMENT" to each
C-Kermit source module, after all the #includes.
- ________________________________________________________________________
9.9. Terminal Interruption
- [ [306]Top ] [ [307]Contents ] [ [308]Section Contents ] [ [309]Next ]
- [ [310]Previous ]
+ [ [324]Top ] [ [325]Contents ] [ [326]Section Contents ] [ [327]Next ]
+ [ [328]Previous ]
When C-Kermit enters interactive command mode, it sets a Control-C
(terminal keyboard interrupt = SIGINT) trap to allow it to return to
setjmp() and longjmp(). On some systems, depending on the machine
architecture and C compiler and who knows what else, you might get
"Memory fault (coredump)" or "longjmp botch" instead of the desired
- effect (this should not happen in 5A(190) and later). In that case,
- add -DNOCCTRAP to your CFLAGS and rebuild the program.
+ effect (this should not happen in 5A(190) and later). In that case, add
+ -DNOCCTRAP to your CFLAGS and rebuild the program.
Job control -- the ability to "suspend" C-Kermit on a Unix system by
- typing the "susp" character (normally Ctrl-Z) and then resume
- execution later (with the "fg" command) -- is a tricky business.
- C-Kermit must trap suspend signals so it can put the terminal back
- into normal mode when you suspend it (Kermit puts the terminal into
- various strange modes during interactive command parsing, CONNECT, and
- file transfer). Supporting code is compiled into C-Kermit
- automatically if <signal.h> includes a definition for the SIGTSTP
- signal. HOWEVER... some systems define this signal without supporting
- job control correctly. You can build Kermit to ignore SIGTSTP signals
- by including the -DNOJC option in CFLAGS. (You can also do this at
- runtime by giving the command SET SUSPEND OFF.)
+ typing the "susp" character (normally Ctrl-Z) and then resume execution
+ later (with the "fg" command) -- is a tricky business. C-Kermit must
+ trap suspend signals so it can put the terminal back into normal mode
+ when you suspend it (Kermit puts the terminal into various strange
+ modes during interactive command parsing, CONNECT, and file transfer).
+ Supporting code is compiled into C-Kermit automatically if <signal.h>
+ includes a definition for the SIGTSTP signal. HOWEVER... some systems
+ define this signal without supporting job control correctly. You can
+ build Kermit to ignore SIGTSTP signals by including the -DNOJC option
+ in CFLAGS. (You can also do this at runtime by giving the command SET
+ SUSPEND OFF.)
NOTE: As of version 5A(190), C-Kermit makes another safety check.
Even if job control is available in the operating system (according
catching of SIGTSTP signals if SIGTSTP was set to SIG_IGN at the
time C-Kermit was started.
- System V R3 and earlier systems normally do not support job control.
- If you have an SVR3 system that does, include the following option in
- your CFLAGS:
+ System V R3 and earlier systems normally do not support job control. If
+ you have an SVR3 system that does, include the following option in your
+ CFLAGS:
-DSVR3JC
POSIX signal handling symbols and functions as "stubs" only, which do
nothing. Look in <signal.h> for sigsetjmp and siglongjmp and read the
comments.
- __________________________________________________________________________
10. DIALING OUT AND COORDINATING WITH UUCP
- [ [311]Top ] [ [312]Contents ] [ [313]Next ] [ [314]Previous ]
+ [ [329]Top ] [ [330]Contents ] [ [331]Next ] [ [332]Previous ]
- NOTE: Red Hat Linux 7.2 and later include a new API that allows
- serial-port arbitration by non-setuid/gid programs. This API has
- not yet been added to C-Kermit. If C-Kermit is to be used for
- dialing out on Red Hat 7.2 or later, it must still be installed as
- described in this section and the next.
-
- The short version:
+ The short version (general):
In order for C-Kermit to be able to dial out from your Unix
- computer, you need to give it the same owner, group, and
- permissions as your other dialout programs, such as cu, tip,
- minicom, uucp, seyon, etc.
+ computer, you need to give it the same owner, group, and permissions
+ as your other dialout programs, such as cu, tip, minicom, uucp,
+ seyon, etc.
+
+ The short version for Linux only:
+
+ Since Red Hat 7.2, about 2002, Linux does not leave the lockfile
+ handling to each application, but instead provides an external
+ application, /usr/sbin/lockdev, that all applications should invoke
+ when they need to access a serial port; lockdev locks and unlocks
+ the port without requiring the application to have privileges, since
+ the privileges on the lockfile directory are assigned to lockdev.
+ C-Kermit 8.0.211 and later support this method. But C-Kermit still
+ needs to be able to open the port itself, and therefore if the
+ port's permissions do not allow read/write access to the general
+ public, the general rule must still be followed: in the most common
+ case, it must be SETGID to the group uucp (explained below). If a
+ pre-8.0.211 version of C-Kermit is to be installed for use with
+ serial ports on any version of Linux, it must still be installed as
+ described in the following sections.
The long version:
- Make sure your dialout line is correctly configured for dialing out
- (as opposed to login). The method for doing this is different for each
- kind of Unix. Consult your system documentation for configuring lines
- for dialing out (for example, Sun SPARCstation IPC users should read
- the section "Setting up Modem Software" in the Desktop SPARC Sun
- System and Network Manager's Guide, or the Terminals and Modems
- section of the HP manual, "Configuring HP-UX for Peripherals" (e.g.
- /usr/sbin/sam => Peripheral Devices => Terminals and Modems => Add
- Modem).
+ Make sure your dialout line is correctly configured for dialing out (as
+ opposed to login). The method for doing this is different for each kind
+ of Unix. Consult your system documentation for configuring lines for
+ dialing out (for example, Sun SPARCstation IPC users should read the
+ section "Setting up Modem Software" in the Desktop SPARC Sun System and
+ Network Manager's Guide, or the Terminals and Modems section of the HP
+ manual, "Configuring HP-UX for Peripherals" (e.g. /usr/sbin/sam =>
+ Peripheral Devices => Terminals and Modems => Add Modem).
Unlike most other multiuser, multitasking operating systems, Unix
allows multiple users to access the same serial device at the same
time, even though there is no earthly reason why two users should do
this. When they do, user A will read some of the incoming characters,
and user B will read the others. In all likelihood, neither user will
- see them all. Furthermore, User B can hang up User A's call, etc.
+ see them all. Furthermore, User B can hang up User A's call, and so
+ one.
Rather than change Unix to enforce exclusive access to serial devices
- such as ttys, Unix developers chose instead to use a "lock file". Any
- process that wants to open a tty device should first check to see if a
- file of a certain name exists, and if so, not to open the device. If
- the file does not exist, the process creates the file and then opens
- the device. When the process closes the device, it destroys the
- lockfile. This procedure was originated for use with Unix's UUCP, CU,
- and TIP programs, and so these lockfiles are commonly called "UUCP
- lockfiles" (UUCP = Unix-to-Unix Copy Program).
+ such as ttys, when it might still have been possible, Unix developers
+ opted for a "lock file" mechanism. Any process that wants to open a tty
+ device should first check to see if a file of a certain name exists,
+ and if so, not to open the device. If the file does not exist, the
+ process creates the file and then opens the device. When the process
+ closes the device, it destroys the lockfile. This procedure was
+ originated for use with Unix's UUCP, CU, and TIP programs, and so these
+ lockfiles are commonly called "UUCP lockfiles" (UUCP = Unix-to-Unix
+ Copy Program).
As you can imagine, this method is riddled with pitfalls:
very few Unix applications or commands handle lockfiles at all; an
original design goal of Unix was that "everything is a file", and
countless utilities operate on files directly (by opening them) or
- indirectly through redirection of standard i/o, without creating
- or looking for lockfiles.
+ indirectly through redirection of standard i/o, without creating or
+ looking for lockfiles.
* If a process crashes while it has the device open, the lockfile is
left behind, preventing further processes from using the device.
- * Various versions of Unix use different names for the lockfiles,
- put them in different directories, with different owners and
- groups and permissions, and specify their contents differently.
+ * Various versions of Unix use different names for the lockfiles, put
+ them in different directories, with different owners and groups and
+ permissions, and specify their contents differently.
* On a given platform, the lockfile conventions may change from one
- Unix release to the next (for example, SunOS 4.0 to 4.1) or, in
- the case of Linux, across different distributions.
+ Unix release to the next (for example, SunOS 4.0 to 4.1) or, in the
+ case of Linux, across different distributions.
* The same tty device might have more than one name, and most
lockfile conventions don't allow for this. Similarly for symbolic
links.
In an attempt to address the problem of "stale" lockfiles, most UUCP
- implementations put the PID (Process ID) of the creating process in
- the lockfile. Thus, another process that wants to open the
- corresponding device can check not only for the lockfile itself, but
- also can check the PID for validity. But this doesn't work well
- either:
+ implementations put the PID (Process ID) of the creating process in the
+ lockfile. Thus, another process that wants to open the corresponding
+ device can check not only for the lockfile itself, but also can check
+ the PID for validity. But this doesn't work well either:
* PIDs are stored in diverse formats that change with every new
release (short, integer, long, or string in any of various
Several techniques address the problem of multiple names for the same
device:
- * Multiple lockfiles. For example, if the user opens a device
- through a symlink, a lockfile is created for both the symlink name
- and the true name (obtained from readlink()). However, when
- multiple drivers are installed for the same device (e.g. /dev/cua,
+ * Multiple lockfiles. For example, if the user opens a device through
+ a symlink, a lockfile is created for both the symlink name and the
+ true name (obtained from readlink()). However, when multiple
+ drivers are installed for the same device (e.g. /dev/cua,
/dev/cufa, etc), this approach won't work unless all applications
*know* all the different names for the same device and make
lockfiles for all of them, which is obviously not practical.
release, since they also change their versions of the cu, uucp, tip,
etc, programs at the same time to match. And since the source code to
these programs might not be published, it is difficult for makers of
- third-party products like C-Kermit to find out what the new
- conventions are. It also forces release of new versions of C-Kermit
- whenever the OS vendor makes a change like this.
+ third-party products like C-Kermit to find out what the new conventions
+ are. It also forces release of new versions of C-Kermit whenever the OS
+ vendor makes a change like this.
Some Unix vendors have taken a small step to simplify communications
application development for their products: the inclusion of lockfile
If such routines are available, they should be used. The rest of this
section applies when they are not.
- To fit in with UUCP and other Unix-based communication software,
- C-Kermit must have the same idea as your system's uucp, cu, and tip
- programs about what the UUCP lock directory is called, what the
+ To fit in with UUCP and other Unix-based serial-port communication
+ software, C-Kermit must have the same idea as your system's uucp, cu,
+ and tip programs about what the UUCP lock directory is called, what the
lockfile itself is called, and what its contents should be. In most
- cases, C-Kermit preprocessor flags create the appropriate
- configuration at compile time if the appropriate makefile target was
- used (see [315]ckutio.c). The following CFLAGS options can be used to
- override the built-in configuration:
+ cases, C-Kermit preprocessor flags create the appropriate configuration
+ at compile time if the appropriate makefile target was used (see
+ [333]ckutio.c). The following CFLAGS options can be used to override
+ the built-in configuration:
-DLCKDIR
Tells Kermit that the UUCP lock directory is
when done.
-DHDBUUCP
- Include this if your system uses Honey DanBer UUCP, in which
- the lockfile directory and format are relatively standardized.
+ Include this if your system uses Honey DanBer UUCP, in which the
+ lockfile directory and format are relatively standardized.
-DLOCK_DIR=\\\"/xxx/yyy\\\"
Gives the lock directory name explicitly. The triple quoting is
dialout device, like /dev/cua0 or /dev/ttyS0, whose purpose is to hide
the details of the actual driver from the user. So if one user opens
/dev/modem, a lockfile called LCK..modem is created, which does not
- prevent another user from simulataneously opening the same device by
- its real name.
+ prevent another user from simultaneously opening the same device by its
+ real name.
On SCO Unix platforms, we have a slightly different problem: the same
device is, by convention, known by "lowercase" and "uppercase" names,
on.
For this reason, on platforms where the LK.inode.major.minor form is
- not used, C-Kermit also creates a secondary lockfile (which is simply
- a link to the first) if:
+ not used, C-Kermit also creates a secondary lockfile (which is simply a
+ link to the first) if:
a. The given device name is a symbolic link. The secondary link is
based on the device's real name.
b. On SCO: The device name is not a symbolic link, but it contains
- uppercase letters. The primary link is based on the lowercase
- name; the secondary link is based on the name that was given.
+ uppercase letters. The primary link is based on the lowercase name;
+ the secondary link is based on the name that was given.
c. On HP-UX: The device name starts with "cu". The primary link is
based on the name that was given; the secondary link is based on
the corresponding "ttyd" device, e.g. "LCK..cua0p0" and
NOTE: symlinks are not handled in HP-UX.
- Honey DanBer (HDB) UUCP, which is becoming increasingly popular, has
+ Honey DanBer (HDB) UUCP, the basis of many UUCP implementations, has
two characteristics:
a. Lockfiles are kept in /usr/spool/locks/ (usually).
an int.
Non-HDB selections assume the lockfile contains the pid in int form
- (or, more precisely, in PID_T form, where PID_T is either int or
- pid_t, depending on your system's C library and header files). (b), by
- the way, is subject to interpretation: the numeric ASCII string may or
- may not be terminated by a newline, it may or may not have leading
- spaces (or zeros), and the number of leading spaces or zeros can
- differ, and the differences can be significant.
+ (or, more precisely, in PID_T form, where PID_T is either int or pid_t,
+ depending on your system's C library and header files). (b), by the
+ way, is subject to interpretation: the numeric ASCII string may or may
+ not be terminated by a newline, it may or may not have leading spaces
+ (or zeros), and the number of leading spaces or zeros can differ, and
+ the differences can be significant.
Even if you build the program with the right lockfile option, you can
- still have problems when you try to open the device. Here are the
- error messages you can get from SET LINE, and what they mean:
+ still have problems when you try to open the device. Here are the error
+ messages you can get from SET LINE, and what they mean:
a. "Timed out, no carrier." This one is not related to lockfiles. It
means that you have SET CARRIER ON xx, where xx is the number of
seconds to wait for carrier, and carrier did not appear within xx
seconds. Solution: SET CARRIER AUTO or OFF.
b. "Sorry, access to lock denied." Kermit has been configured to use
- lockfiles, but (a)the lockfile directory is write-protected
- against you, or (b) it does not exist. The "access to lock denied"
- message will tell you the reason. If the directory does not exist,
- check to make sure Kermit is using the right name. Just because
- version n of your Unix used a certain lockfile directory is no
- gurantee that version n.1 does not use a different one.
- Workaround: ask the system administrator to install a symbolic
- link from the old name to the new name. Other solutions: (see
- below)
+ lockfiles, but (a)the lockfile directory is write-protected against
+ you, or (b) it does not exist. The "access to lock denied" message
+ will tell you the reason. If the directory does not exist, check to
+ make sure Kermit is using the right name. Just because version n of
+ your Unix used a certain lockfile directory is no guarantee that
+ version n.1 does not use a different one. Workaround: ask the
+ system administrator to install a symbolic link from the old name
+ to the new name. Other solutions: (see below)
c. "Sorry, access to tty device denied." The tty device that you
specified in your SET LINE command is read/write protected against
you. Solution: (see below)
d. "Sorry, device is in use." The tty device you have specified is
- currently being used by another user. A prefatory message gives
- you an "ls -l" listing of the lockfile, which should show the
- username of the person who created it, plus a message "pid = nnn"
- to show you the process id of the user's program. Solutions: try
- another device, wait until the other user is finished, ask the
- other user to hurry up, or ask the system manager for help.
- e. "Sorry, can't open connection: reason". The device cannot be
- opened for some other reason, which is listed.
+ currently being used by another user. A prefatory message gives you
+ an "ls -l" listing of the lockfile, which should show the username
+ of the person who created it, plus a message "pid = nnn" to show
+ you the process id of the user's program. Solutions: try another
+ device, wait until the other user is finished, ask the other user
+ to hurry up, or ask the system manager for help.
+ e. "Sorry, can't open connection: reason". The device cannot be opened
+ for some other reason, which is listed.
f. "sh: /usr/lib/uucp/acucntrl: not found". This means your Kermit
program was built with the -DACUCNTRL switch, but your computer
system does not have the BSD 4.3 acucntrl program. Solution:
install the acucntrl program if you have it, or rebuild Kermit
without the -DACUCNTRL switch.
- There are two solutions for problems (b) and (c), both of which
- involve intervention by your Unix system administrator (superuser):
+ There are two solutions for problems (b) and (c), both of which involve
+ intervention by your Unix system administrator (superuser):
a. Have the superuser change the permission of the lockfile directory
and to the tty devices so that everyone on the system has
make them, without having to belong to any particular group, and
this could run up your phone bill.
b. Use groups to regulate access. Normally the lockfile directory and
- and the dialout devices will have the same group (such as uucp).
- If so, then put everybody who's allowed to dial out into that
- group, and make sure that the lockfile directory and the tty
- devices have group read AND write permission. Example:
+ and the dialout devices will have the same group (such as uucp). If
+ so, then put everybody who's allowed to dial out into that group,
+ and make sure that the lockfile directory and the tty devices have
+ group read AND write permission. Example:
su% chmod 770 /usr/spool/locks (or whatever the path is)
su% chmod 660 /dev/ttyXX
User whatever tool is available on your platform to add users to
- the appropropriate group (e.g. edit the /etc/group file).
- c. Have the superuser change Kermit to run setuid and/or setgid to
- the owner and/or group of the lockfile directory and the tty
- devices if necessary), typically uucp (see [316]next section), but
- NOT root. Example:
+ the appropriate group (e.g. edit the /etc/group file).
+ c. Have the superuser change Kermit to run setuid and/or setgid to the
+ owner and/or group of the lockfile directory and the tty devices if
+ necessary), typically uucp (see [334]next section), but NOT root.
+ Example:
su% chown uucp kermit - or - chgrp uucp kermit
su% chmod u+s kermit (setuid) - or - chmod g+s kermit (setgid)
drwxrwxr-x 3 root uucp 1024 Feb 11 06:22 /var/lock
requires suid uucp to get read/write access on /dev/cua3 and sgid to
- get read/write access on /var/lock (since you can't set Kermit's uid
- or gid to root).
+ get read/write access on /var/lock (since you can't set Kermit's uid or
+ gid to root).
The reason Kermit can't be setuid or setgid to root has to do with
the fact that some Unix OS's can't switch user or group IDs in that
- case. Unfortunately, the prohibition against making Kermit setuid
- or setgid to root means that Unix C-Kermit can't be used to make
- rlogin connections by non-root users. (The rlogin port is
- privileged, which is why the regular rlogin command is setuid root
- -- which is safe because the rlogin program never has to create or
- access files like Kermit does.)
-
- For the lockfile mechanism to achieve its desired purpose --
- prevention of access to the same tty device by more than one process
- at a time -- ALL programs on a given computer that open, read or
- write, and close tty devices must use the SAME lockfile conventions.
- Unfortunately, this is often not the case. Here is a typical example
- of how this can go wrong: In SunOS 4.0 and earler, the lockfile
- directory was /usr/spool/uucp; in 4.1 it was changed to
- /var/spool/locks in the quest for political correctness. Consequently,
- any third-party programs (such as C-Kermit) that were not modified to
- account for this change, recompiled, and reinstalled, did not use the
- same lockfiles as uucp, tip, etc, and so the entire purpose of the
- lockfile is defeated.
-
- What if your Unix system does not have UUCP installed? For example,
- you have a Unix workstation, and you do not use uucp, cu, or tip, or
- UUCP was not even supplied with your version of Unix (QNX is an
- example). In this case, you have two choices:
+ case. Unfortunately, the prohibition against making Kermit setuid or
+ setgid to root means that Unix C-Kermit can't be used to make rlogin
+ connections by non-root users. (The rlogin port is privileged, which
+ is why the regular rlogin command is setuid root -- which is safe
+ because the rlogin program never has to create or access files like
+ Kermit does.)
+
+ For the lockfile mechanism to achieve its desired purpose -- prevention
+ of access to the same tty device by more than one process at a time --
+ ALL programs on a given computer that open, read or write, and close
+ tty devices must use the SAME lockfile conventions. Unfortunately, this
+ is often not the case. Here is a typical example of how this can go
+ wrong: In SunOS 4.0 and earler, the lockfile directory was
+ /usr/spool/uucp; in 4.1 it was changed to /var/spool/locks in the quest
+ for political correctness. Consequently, any third-party programs (such
+ as C-Kermit) that were not modified to account for this change,
+ recompiled, and reinstalled, did not use the same lockfiles as uucp,
+ tip, etc, and so the entire purpose of the lockfile is defeated.
+
+ What if your Unix system does not have UUCP installed? For example, you
+ have a Unix workstation, and you do not use uucp, cu, or tip, or UUCP
+ was not even supplied with your version of Unix (QNX is an example). In
+ this case, you have two choices:
a. If there may be more than one person running Kermit at the same
time, competing for the same tty device, then create a special
- lockfile directory just for Kermit, for example,
- /usr/spool/kermit, and make sure you have read/write access to it.
- Then add the following to your makefile target CFLAGS, as shown
- earlier:
+ lockfile directory just for Kermit, for example, /usr/spool/kermit,
+ and make sure you have read/write access to it. Then add the
+ following to your makefile target CFLAGS, as shown earlier:
-DLOCK_DIR=\\\"/usr/spool/kermit\\\"
processes will ever be competing with Kermit for the dialout tty
device, then add -DNOUUCP to your makefile target's CFLAGS and
rebuild Kermit.
- __________________________________________________________________________
11. RUNNING UNIX C-KERMIT SETUID OR SETGID
- [ [317]Top ] [ [318]Contents ] [ [319]Next ] [ [320]Previous ]
+ [ [335]Top ] [ [336]Contents ] [ [337]Next ] [ [338]Previous ]
Even if you don't intend to run C-Kermit setuid, somebody else might
come along and chown and chmod it after it has been built. You should
For 4.2 and 4.3 BSD-based Unix versions, you normally need not add
anything special to the makefile. The program assumes that the
setreuid() and setregid() functions are available, without which we
- cannot switch back and forth between real and effective uids. If
- "make" complains that _setreuid or _setregid is/are not defined, add
+ cannot switch back and forth between real and effective uids. If "make"
+ complains that _setreuid or _setregid is/are not defined, add
-DNOSETREU to CFLAGS. In this case it is very likely (but not certain)
- that you cannot protect ttys and lockfiles against people and have
- them run Kermit setuid.
+ that you cannot protect ttys and lockfiles against people and have them
+ run Kermit setuid.
If make does not complain about this, you should find out whether your
BSD version (4.3 or other systems like SunOS 4.x that claim to include
BSD 4.3 compatibility) includes the saved-setuid feature (see long
- notes under edit 146 in ckc178.upd). If it does, then add -DSAVEDUID
- to CFLAGS.
+ notes under edit 146 in ckc178.upd). If it does, then add -DSAVEDUID to
+ CFLAGS.
- IMPORTANT NOTE: Most Unix system documentation will not give you
- the required information. To determine whether your Unix system
- supplies the the saved-original-effective-user/group-id feature,
- use the ckuuid.c program. Read and follow the instructions in the
- comments at the beginning.
+ IMPORTANT NOTE: Most Unix system documentation will not give you the
+ required information. To determine whether your Unix system supplies
+ the saved-original-effective-user/group-id feature, use the ckuuid.c
+ program. Read and follow the instructions in the comments at the
+ beginning.
C-Kermit for 4.4BSD-based systems automatically use sete[ug]id(). See
- [321]ckutio.c.
+ [339]ckutio.c.
- If you have a version of Unix that is not BSD-based, but which
- supplies the setreuid() and setregid() functions, and these are the
- only way to switch between real and effective uid, add -DSETREUID to
- your makefile target.
+ If you have a version of Unix that is not BSD-based, but which supplies
+ the setreuid() and setregid() functions, and these are the only way to
+ switch between real and effective uid, add -DSETREUID to your makefile
+ target.
- WARNING: There are two calls to access() in [322]ckufio.c, by which
+ WARNING: There are two calls to access() in [340]ckufio.c, by which
Kermit checks to see if it can create an output file. These calls
will not work correctly when (a)you have installed C-Kermit setuid
or setgid on a BSD-based Unix system, and (b) the
- saved-original-effective-uid/gid feature is not present, and (c)
- the access() function always checks what it believes to be the real
- ID rather than the effective ID. This is the case, for example, in
+ saved-original-effective-uid/gid feature is not present, and (c) the
+ access() function always checks what it believes to be the real ID
+ rather than the effective ID. This is the case, for example, in
Olivetti X/OS and in NeXTSTEP. In such cases, you can force correct
operation of access() calls by defining the symbol SW_ACC_ID at
compile time in CFLAGS.
If you have a version of Unix that does not allow a process to switch
back and forth between its effective and real user and group ids
multiple times, you probably should not attempt to run Kermit setuid,
- because once having given up its effective uid or gid (which it must
- do in order to transfer files, fork a shell, etc) it can never get it
- back, and so it can not use the original effective uid or gid to
- create or delete uucp lockfiles. In this case, you'll either have to
- set the permissions on your lockfile directory to make them publicly
+ because once having given up its effective uid or gid (which it must do
+ in order to transfer files, fork a shell, etc) it can never get it
+ back, and so it can not use the original effective uid or gid to create
+ or delete uucp lockfiles. In this case, you'll either have to set the
+ permissions on your lockfile directory to make them publicly
read/writable, or dispense with locking altogether.
MORAL: Are you thoroughly sickened and/or frightened by all that you
with exclusive access only, enforced by the Unix kernel. Shared access
has no conceivable purpose, legitimate or otherwise, except by
privileged system programs such as getty. The original design dates
- from the late 1960s, when Unix was developed for laboratory use under
- a philosophy of trust by people within shouting distance of each other
- -- but even then, no useful purpose was served by this particular form
- of openness; it was probably more of a political statement. Since the
+ from the late 1960s, when Unix was developed for laboratory use under a
+ philosophy of trust by people within shouting distance of each other --
+ but even then, no useful purpose was served by this particular form of
+ openness; it was probably more of a political statement. Since the
emergence of Unix from the laboratory into the commercial market, we
have seen every vestige of openness -- but this one -- stripped away.
I'd like to see some influential Unix maker take the bold step of
- making the simple kernel change required to enforce exclusive access
- to serial devices. (Well, perhaps not so simple when bidirectionality
- must also be a goal -- but then other OS's like VMS solved this
- problem decades ago.)
- __________________________________________________________________________
+ making the simple kernel change required to enforce exclusive access to
+ serial devices. (Well, perhaps not so simple when bidirectionality must
+ also be a goal -- but then other OS's like VMS solved this problem
+ decades ago.)
12. CONFIGURING UNIX WORKSTATIONS
- [ [323]Top ] [ [324]Contents ] [ [325]Next ] [ [326]Previous ]
+ [ [341]Top ] [ [342]Contents ] [ [343]Next ] [ [344]Previous ]
On desktop workstations that are used by only the user at the console
keyboard, C-Kermit is always used in local mode. But as delivered,
C-Kermit runs in remote mode by default. To put it in local mode at
startup, you can put a SET LINE command in your .mykermrc.
- You can also build C-Kermit to start up in local mode by default. To
- do this, include the following in the CFLAGS in your makefile target:
+ You can also build C-Kermit to start up in local mode by default. To do
+ this, include the following in the CFLAGS in your makefile target:
-DDFTTY=\\\"/dev/ttyxx\\\"
on a NeXT by launching it directly from NeXTstep. Similarly for Sun
workstations in the Open Windows environment. Run Kermit in a terminal
window.
- __________________________________________________________________________
13. BIZARRE BEHAVIOR AT RUNTIME
- [ [327]Top ] [ [328]Contents ] [ [329]Next ] [ [330]Previous ]
+ [ [345]Top ] [ [346]Contents ] [ [347]Next ] [ [348]Previous ]
See the "beware file",
- [331]ckubwr.txt, for hints about runtime misbehavior. This section
+ [349]ckubwr.txt, for hints about runtime misbehavior. This section
lists some runtime problems that can be cured by rebuilding C-Kermit.
The program starts, but there is no prompt, and certain operations
don't work (you see error messages like "Kermit command error in
background execution"). This is because Kermit thinks it is running in
- the background. See conbgt() in [332]ckutio.c. Try rebuilding Kermit
+ the background. See conbgt() in [350]ckutio.c. Try rebuilding Kermit
with:
-DPID_T=pid_t
of agreement between the system header files and the actual kernel.
This happened because the GNU C compiler (gcc) was being used. gcc
wants to have ANSI-C-compliant header files, and so part of the
- installation procedure for gcc is (or was) to run a shell script
- called "fixincludes", which translates the system's header files into
- a separate set of headers that gcc likes. So far so good. Later, a new
+ installation procedure for gcc is (or was) to run a shell script called
+ "fixincludes", which translates the system's header files into a
+ separate set of headers that gcc likes. So far so good. Later, a new
version of the operating system is installed and nobody remembers to
run fixincludes again. From that point, any program compiled with gcc
- that makes use of header files (particularly ioctl.h) is very likely
- to misbehave. Solution: run fixincludes again, or use your system's
+ that makes use of header files (particularly ioctl.h) is very likely to
+ misbehave. Solution: run fixincludes again, or use your system's
regular C compiler, libraries, and header files instead of gcc.
- __________________________________________________________________________
14. CRASHES AND CORE DUMPS
- [ [333]Top ] [ [334]Contents ] [ [335]Next ] [ [336]Previous ]
+ [ [351]Top ] [ [352]Contents ] [ [353]Next ] [ [354]Previous ]
- If C-Kermit constitently dumps core at the beginning of a file
+ If C-Kermit consistently dumps core at the beginning of a file
transfer, look in SHOW FEATURES for CKREALPATH. If found, rebuild with
-DNOREALPATH and see if that fixes the problem (some UNIXes have
realpath() but it doesn't work).
on: run Kermit with the -d command-line option (for example, "wermit
-d") and then examine the resulting debug.log file. The last entry
should be in the vicinity of the crash. In VMS, a crash automatically
- produces a "stack dump" which shows the routine where the crash
- occurs. In some versions of Unix, you can get a stack dump with "adb"
- -- just type "adb wermit core" and then give the command "$c", then
- Ctrl-D to quit (note: replace "wermit" by "kermit" or by the full
- pathname of the executable that crashed if it is not in the current
- directory). Or use gdb to get a backtrace, etc.
+ produces a "stack dump" which shows the routine where the crash occurs.
+ In some versions of Unix, you can get a stack dump with "adb" -- just
+ type "adb wermit core" and then give the command "$c", then Ctrl-D to
+ quit (note: replace "wermit" by "kermit" or by the full pathname of the
+ executable that crashed if it is not in the current directory). Or use
+ gdb to get a backtrace, etc.
In edit 186, one implementation, UNISYS 5000/95 built with "make
sys5r3", has been reported to run out of memory very quickly (e.g.
while executing a short initialization file that contains a SET DIAL
DIRECTORY command). Debug logs show that malloc calls are failing,
reason unknown. For this and any other implementation that gives error
- messages about "malloc failure" or "memory allocation failure",
- rebuild the program *without* the -DDYNAMIC CFLAGS definition, for
- example:
+ messages about "malloc failure" or "memory allocation failure", rebuild
+ the program *without* the -DDYNAMIC CFLAGS definition, for example:
make sys5r3 KFLAGS=-UDYNAMIC
As of edit 169, C-Kermit includes a malloc() debugging package which
you may link with the Kermit program to catch runtime malloc errors.
See the makefile entries for sunos41md and nextmd for examples of how
- to select malloc debugging. Once you have linked Kermit with the
- malloc debugger, it will halt with an informative message if a
- malloc-related error occurs and, if possible, dump core. For this
- reason, malloc-debugging versions of Kermit should be built without
- the "-s" link option (which removes symbols, preventing analysis of
- the core dump). You have several ways to track down the malloc error:
- Analyze the core dump with adb. Or reproduce the problem with "log
- debug" and then look at the code around the last debug.log entry. If
- you have gcc, build the program with "-g" added to CFLAGS and then
- debug it with gdb, e.g.
+ to select malloc debugging. Once you have linked Kermit with the malloc
+ debugger, it will halt with an informative message if a malloc-related
+ error occurs and, if possible, dump core. For this reason,
+ malloc-debugging versions of Kermit should be built without the "-s"
+ link option (which removes symbols, preventing analysis of the core
+ dump). You have several ways to track down the malloc error: Analyze
+ the core dump with adb. Or reproduce the problem with "log debug" and
+ then look at the code around the last debug.log entry. If you have gcc,
+ build the program with "-g" added to CFLAGS and then debug it with gdb,
+ e.g.
gdb wermit
break main
continue
Watchpoints are especially useful for finding memory leaks, but they
- make the program run about a thousand times slower than usual, so
- don't set them until the last possible moment. When a watchpoint is
- hit, you can use the "where" command to find out which C-Kermit source
- statement triggered it.
+ make the program run about a thousand times slower than usual, so don't
+ set them until the last possible moment. When a watchpoint is hit, you
+ can use the "where" command to find out which C-Kermit source statement
+ triggered it.
If you have the Pure Software Inc "Purify" product, see the sunos41cp
makefile entry for an example of how to use it to debug C-Kermit.
- __________________________________________________________________________
15. SYSLOGGING
- [ [337]Top ] [ [338]Contents ] [ [339]Next ] [ [340]Previous ]
+ [ [355]Top ] [ [356]Contents ] [ [357]Next ] [ [358]Previous ]
- "Syslogging" means recording selected in the system log via the Unix
- syslog() facility, which is available in most Unix versions.
+ "Syslogging" means recording selected information in the system log via
+ the Unix syslog() facility, which is available in most Unix versions.
Syslogging is not done unless C-Kermit is started with:
--syslog:n
- on the command-line, where n is a number greater than 0 to indicate
- the level of syslogging. See [341]Section 4.2 of the [342]IKSD
+ on the command-line, where n is a number greater than 0 to indicate the
+ level of syslogging. See [359]Section 4.2 of the [360]IKSD
Administrator's Guide for details.
- Obviously you can't depend on users to include --syslog:3 (or
- whatever) on the command line every time they start C-Kermit, so if
- you want certain kinds of records to be recorded in the system log,
- you can build C-Kermit with forced syslogging at the desired level,
- e.g.:
+ Obviously you can't depend on users to include --syslog:3 (or whatever)
+ on the command line every time they start C-Kermit, so if you want
+ certain kinds of records to be recorded in the system log, you can
+ build C-Kermit with forced syslogging at the desired level; for
+ example, to record logins and dialouts:
make linux KFLAGS=-DSYSLOGLEVEL=2
- Levels 2 and 3 are the most likely candidates for this treatment.
- Level 2 forces logging of all successful dialout calls (e.g. for
- checking against or phone bills), and level 3 records all connections
- (SET LINE or SET HOST / TELNET / RLOGIN, etc) so you can see who is
- connecting out from your system, and to where.
+ Levels 2 and 3 are the most likely candidates for this treatment. Level
+ 2 forces logging of all successful dialout calls (e.g. for checking
+ against or phone bills), and level 3 records all connections (SET LINE
+ or SET HOST / TELNET / RLOGIN, etc) so you can see who is connecting
+ out from your system, and to where, e.g. for security auditing.
Level 2 and 3 records are equivalent to those in the connection log;
- see the [343]C-Kermit 7.0 Supplement) for a detailed description of
- the connection log.
- __________________________________________________________________________
+ see the [361]C-Kermit 7.0 Supplement) for a detailed description of the
+ connection log.
16. BUILDING SECURE VERSIONS OF C-KERMIT 8.0
- [ [344]Top ] [ [345]Contents ] [ [346]Next ] [ [347]Previous ]
+ [ [362]Top ] [ [363]Contents ] [ [364]Next ] [ [365]Previous ]
C-Kermit 7.0 and later may be built with Kerberos(TM) and/or SRP(TM)
(Secure Remote Password) and/or SSL/TLS security for strong
authentication and encryption of Internet connections. These security
methods require external libraries that, in their binary forms, are
- restricted from export by USA law. See the [348]Kermit Security
+ restricted from export by USA law. See the [366]Kermit Security
Reference) for details. C-Kermit binaries themselves are likewise
restricted; the C-Kermit binaries that are available for public
download on the Internet are not allowed to contain the security
options.
- Sample makefile entries are provided for Linux and many other
- operating systems. A list of secure makefile entries is included in
- the Makefile. Complete instructions on building C-Kermit 8.0 with MIT
- Kerberos; Secure Remote Password; and/or OpenSSL can be found in the
- [349]Kermit Security Reference.
-
- C-Kermit 8.0 comes with a current list of Certificate Authority
- certificates, including one for the Kermit Project that can be used
- for authentication to Columbia's [350]Internet Kermit Service (IKSD).
- You can use C-Kermit 7.0 or later to access Columbia's IKSD securely
- by installing the Kermit Project certificate in
- /usr/local/ssl/cert.pem (or the appropriate location based upon the
- installation of OpenSSL on your system). You can find a copy of the
- certificates file at:
-
-[351]ftp://kermit.columbia.edu/kermit/c-kermit/ca_certs.pem
- __________________________________________________________________________
+ Sample makefile entries are provided for Linux and many other operating
+ systems. A list of secure makefile entries is included in the Makefile.
+ Complete instructions on building C-Kermit 8.0 with MIT Kerberos;
+ Secure Remote Password; and/or OpenSSL can be found in the [367]Kermit
+ Security Reference.
+
+ SSL/TLS and Kerberos builds are increasingly problematic with the
+ "deprecation" of DES. There is code to detect the presence or absence
+ of DES in the OpenSSL builds, but it doesn't always work because
+ sometimes the SSL libraries are present but routines are missing from
+ them.
+
+ * First of all remember that if your SSL and/or Kerberos header files
+ and libraries are not in the default place, you'll need to override
+ the assumed paths. To find out what the default places are type
+ "make show", e.g.:
+
+[~/kermit] make show
+prefix=/usr/local
+srproot=/usr/local
+sslroot=/usr/local
+manroot=/usr/local
+K4LIB=-L/usr/kerberos/lib
+K4INC=-I/usr/kerberos/include
+K5LIB=-L/usr/kerberos/lib
+K5INC=-I/usr/kerberos/include
+SRPLIB=-L/usr/local/lib
+SRPINC=-I/usr/local/include
+SSLLIB=-L/usr/local/ssl/lib
+SSLINC=-I/usr/local/ssl/include
+[~/kermit]
+
+ * You can override any or all of these by putting assignments on the
+ 'make' command line; examples:
+
+make linux+krb5 \
+ "K5INC=-I/usr/include/" \
+ "K5LIB=-L/usr/lib64/"
+
+make solaris9g+ssl \
+ "SSLLIB=-L/opt/openssl-0.9.8q/lib" \
+ "SSLINC=-I/opt/openssl-0.9.8q/include"
+
+ Or by setting and exporting environment variables prior to giving
+ the 'make' command, as in this example in which (after Beta.01 was
+ uploaded) C-Kermit was successfully linked with OpenSSL 1.0.0d,
+ which was installed alongside OpenSSL 0.9.8r on the same computer.
+ Note the use of the '-i' option instead of '-I' to force gcc to
+ include the right header files (thanks to Nelson Beebe for this):
+
+export PATH=/usr/bin:$PATH
+export SSLINC=-isystem/usr/include
+export "SSLLIB=-L/usr/lib -Wl,-rpath,/usr/lib"
+make linux+ssl
+
+ -i is explained in 'man gcc'; there is a change in what -I does
+ that could have ramifications for many makefile targets, not just
+ Kermit. And -Wl and -rpath are explained in 'man ld'; the idea is
+ build a binary from which useful reports can be obtained with ldd.
+ * Building with OpenSSL versions prior to 0.9.7 doesn't work, even
+ though C-Kermit is designed to work with both the old and new
+ versions. This could probably be fixed if anybody cares.
+ * If a Kerberos or SSL build fails at link time because
+ des_ecb3_encrypt, des_random_seed, and/or des_set_odd_parity come
+ up missing, redo the build with -UCK_DES:
+
+make netbsd+krb5+ssl \
+ "K5INC=-I/usr/local/include" \
+ "K5LIB=-L/usr/local/kerblib" KFLAGS=-UCK_DES
+
+ I suppose all the SSL and Kerberos targets could be recoded to
+ figure this out automatically (i.e. that DES is installed but with
+ some entry points missing), but it wouldn't be pretty.
+ * Different Kerberos and OpenSSL distributions can be installed with
+ different options; certain libraries might be missing or named
+ differently (for example, libgssapi vs libgssapi_krb5). Some, but
+ not all, of the C-Kermit makefile targets have been fixed to take
+ some of these variations into account by testing for them, most
+ notably the linux ones, linux+ssl, linux+krb5, and linux+krb5+ssl.
+ Probably every target that builds with OpenSSL or Kerberos needs
+ the same treatment but I won't have time.
+ * Why doesn't C-Kermit just use Autoconf? Mainly because the makefile
+ is full of targets for platforms that don't have Autoconf or any
+ other tool like it. (Another reason is that I've always preferred
+ that Kermit have the least dependencies possible on external
+ toolsets.) Perhaps certain targets could be converted to use them,
+ especially Linux because there are so many variations among
+ distributions and versions. Anybody who wants to make, say, an
+ Autoconf-based Linux target, be my guest, but bear in mind that one
+ Linux target is supposed to work for all versions and distributions
+ of Linux on all platforms. Well, one target for Linux by itself,
+ another for Linux with OpenSSL, another for Linux with Kerberos 5,
+ and another for Linux with Kerberos 5 and OpenSSL. Each of these is
+ supposed to work on any Linux version with any version of
+ Kerberos 5 or OpenSSL.
+
+ Also note that Kerberos support is for the MIT version only, Heimdal
+ and others are not supported (never have been). Of course anybody can
+ pitch in and add or improve support for whatever they want.
17. INSTALLING C-KERMIT AS AN SSH SERVER SUBSYSTEM
- [ [352]Top ] [ [353]Contents ] [ [354]Previous ]
+ [ [368]Top ] [ [369]Contents ] [ [370]Previous ]
This requires C-Kermit 8.0.206 or later and an SSH v2 server. If you
list C-Kermit as a Subsystem in the SSH v2 server configuration file
(as, for example, SFTP is listed), users can make SSH connections
direct to a Kermit server as explained here:
-[355]http://www.columbia.edu/kermit/skermit.html
+[371]http://www.columbia.edu/kermit/skermit.html
The name and location of the SSH server configuration file depends on
- your platform, which SSH product(s) you have, etc. C-Kermit itself
- must be referred to in this file as "kermit-sshsub". On the host,
- install the C-Kermit 8.0.211 binary in the normal way. Then, in the
- same directory as the C-Kermit binary, make a symbolic link:
+ your platform, which SSH product(s) you have, etc. C-Kermit itself must
+ be referred to in this file as "kermit-sshsub". On the host, install
+ the C-Kermit 8.0.211 binary in the normal way. Then, in the same
+ directory as the C-Kermit binary, make a symbolic link:
ln -s kermit kermit-sshsub
Subsystem kermit /some/path/kermit-sshsub
(where /some/path is the fully specified directory where the symlink
- is.) This is similar to the line that sets up the SFTP susbsystem.
+ is.) This is similar to the line that sets up the SFTP subsystem.
Example:
Subsystem sftp /usr/local/libexec/sftp-server
Subsystem kermit /usr/local/bin/kermit-sshsub
- The mechanics might vary for other SSH servers; "man sshd" for
- details. The method shown here is used because the OpenSSH server does
- not permit the subsystem invocation to include command-line options.
+ The mechanics might vary for other SSH servers; "man sshd" for details.
+ The method shown here is used because the OpenSSH server does not
+ permit the subsystem invocation to include command-line options.
C-Kermit would have no way of knowing that it should enter Server mode
if it were not called by a special name.
- [ [356]Top ] [ [357]Contents ] [ [358]C-Kermit Home ] [ [359]C-Kermit
- 8.0 Overview ] [ [360]Kermit Home ]
- _________________________________________________________________
+ [ [372]Top ] [ [373]Contents ] [ [374]C-Kermit Home ] [ [375]C-Kermit
+ 9.0 Overview ] [ [376]Kermit Home ]
+ __________________________________________________________________
- C-Kermit 8.0 Unix Installation Instructions / The Kermit Project /
- Columbia University / 10 April 2004
+ C-Kermit 9.0 Unix Installation Instructions / The Kermit Project /
+ Columbia University / 30 June 2011
References
- 1. http://www.columbia.edu/kermit/ckuins.html#contents
- 2. http://www.columbia.edu/kermit/ckermit.html
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
3. http://www.columbia.edu/kermit/index.html
- 4. http://www.columbia.edu/kermit/ckuins.html
- 5. http://www.columbia.edu/kermit/ckuins.html#x0
- 6. http://www.columbia.edu/kermit/ckuins.html#x1
- 7. http://www.columbia.edu/kermit/ckuins.html#x2
- 8. http://www.columbia.edu/kermit/ckuins.html#x3
- 9. http://www.columbia.edu/kermit/ckuins.html#x4
- 10. http://www.columbia.edu/kermit/ckuins.html#x5
- 11. http://www.columbia.edu/kermit/ckuins.html#x6
- 12. http://www.columbia.edu/kermit/ckuins.html#x7
- 13. http://www.columbia.edu/kermit/ckuins.html#x8
- 14. http://www.columbia.edu/kermit/ckuins.html#x9
- 15. http://www.columbia.edu/kermit/ckuins.html#x10
- 16. http://www.columbia.edu/kermit/ckuins.html#x11
- 17. http://www.columbia.edu/kermit/ckuins.html#x12
- 18. http://www.columbia.edu/kermit/ckuins.html#x13
- 19. http://www.columbia.edu/kermit/ckuins.html#x14
- 20. http://www.columbia.edu/kermit/ckuins.html#x15
- 21. http://www.columbia.edu/kermit/ckuins.html#x16
- 22. http://www.columbia.edu/kermit/ckuins.html#x16
- 23. http://www.columbia.edu/kermit/ckuins.html#top
- 24. http://www.columbia.edu/kermit/ckuins.html#contents
- 25. http://www.columbia.edu/kermit/ckuins.html#x1
- 26. http://www.columbia.edu/kermit/ckccfg.html
- 27. http://www.columbia.edu/kermit/ckcbwr.html
- 28. http://www.columbia.edu/kermit/ckubwr.html
- 29. http://www.columbia.edu/kermit/ckcplm.html
- 30. http://www.columbia.edu/kermit/ckuins.html#x2
- 31. http://www.columbia.edu/kermit/x3
- 32. http://www.columbia.edu/kermit/ckuins.html#x4
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/faq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/ckuins.html#contents
+ 12. http://www.columbia.edu/kermit/ckermit.html
+ 13. http://www.columbia.edu/kermit/index.html
+ 14. http://www.columbia.edu/kermit/ckuins.html
+ 15. http://www.columbia.edu/kermit/ckuins.html#x0
+ 16. http://www.columbia.edu/kermit/ckuins.html#x1
+ 17. http://www.columbia.edu/kermit/ckuins.html#x2
+ 18. http://www.columbia.edu/kermit/ckuins.html#x3
+ 19. http://www.columbia.edu/kermit/ckuins.html#x4
+ 20. http://www.columbia.edu/kermit/ckuins.html#x5
+ 21. http://www.columbia.edu/kermit/ckuins.html#x6
+ 22. http://www.columbia.edu/kermit/ckuins.html#x7
+ 23. http://www.columbia.edu/kermit/ckuins.html#x8
+ 24. http://www.columbia.edu/kermit/ckuins.html#x9
+ 25. http://www.columbia.edu/kermit/ckuins.html#x10
+ 26. http://www.columbia.edu/kermit/ckuins.html#x11
+ 27. http://www.columbia.edu/kermit/ckuins.html#x12
+ 28. http://www.columbia.edu/kermit/ckuins.html#x13
+ 29. http://www.columbia.edu/kermit/ckuins.html#x14
+ 30. http://www.columbia.edu/kermit/ckuins.html#x15
+ 31. http://www.columbia.edu/kermit/ckuins.html#x16
+ 32. http://www.columbia.edu/kermit/ckuins.html#x17
33. http://www.columbia.edu/kermit/ckuins.html#top
34. http://www.columbia.edu/kermit/ckuins.html#contents
- 35. http://www.columbia.edu/kermit/ckuins.html#x2
- 36. http://www.columbia.edu/kermit/ckuins.html#x0
- 37. ftp://kermit.columbia.edu/kermit/archives/cku211.tar.Z
- 38. ftp://kermit.columbia.edu/kermit/archives/cku211.tar.gz
- 39. ftp://kermit.columbia.edu/kermit/archives/cku211.tar
- 40. http://www.columbia.edu/kermit/ckuins.html#x7
- 41. http://www.columbia.edu/kermit/ckuins.html#x5
- 42. http://www.columbia.edu/kermit/ckuins.html#x5
- 43. http://www.columbia.edu/kermit/ckuins.html#x16
- 44. http://www.columbia.edu/kermit/ckuins.html#top
- 45. http://www.columbia.edu/kermit/ckuins.html#contents
- 46. http://www.columbia.edu/kermit/ckuins.html#x3
- 47. http://www.columbia.edu/kermit/ckuins.html#x1
- 48. http://www.columbia.edu/kermit/ckuins.html#x5
- 49. http://www.columbia.edu/kermit/ckuins.html#X10
- 50. http://www.columbia.edu/kermit/ckuins.html#x11
- 51. http://www.columbia.edu/kermit/ckuins.html#x10
- 52. http://www.columbia.edu/kermit/ckuins.html#x3
- 53. http://www.columbia.edu/kermit/ck80packages.html
- 54. http://www.columbia.edu/kermit/ckuins.html#x10
- 55. http://www.columbia.edu/kermit/ckuins.html#top
- 56. http://www.columbia.edu/kermit/ckuins.html#contents
- 57. http://www.columbia.edu/kermit/ckuins.html#x4
- 58. http://www.columbia.edu/kermit/ckuins.html#x2
- 59. ftp://kermit.columbia.edu/kermit/bin/
- 60. http://www.columbia.edu/kermit/ck80binaries.html
- 61. http://www.columbia.edu/kermit/ckuins.html#x7
- 62. http://www.columbia.edu/kermit/ckuins.html#build
- 63. http://www.columbia.edu/kermit/ckuins.html#x5
- 64. http://www.columbia.edu/kermit/ckuins.html#x4
- 65. http://www.columbia.edu/kermit/ckuins.html#x4
- 66. mailto:kermit@columbia.edu
- 67. http://www.columbia.edu/kermit/ckuins.html#top
- 68. http://www.columbia.edu/kermit/ckuins.html#contents
- 69. http://www.columbia.edu/kermit/ckuins.html#x5
- 70. http://www.columbia.edu/kermit/ckuins.html#x3
- 71. http://www.columbia.edu/kermit/ckuins.html#x8
- 72. http://www.columbia.edu/kermit/ckuins.html#x9
- 73. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 74. ftp://kermit.columbia.edu/kermit/c-kermit/ckpker.mk
- 75. ftp://kermit.columbia.edu/kermit/c-kermit/ckubsd.mak
+ 35. http://www.columbia.edu/kermit/ckuins.html#x1
+ 36. http://www.columbia.edu/kermit/ckccfg.html
+ 37. http://www.columbia.edu/kermit/ckcbwr.html
+ 38. http://www.columbia.edu/kermit/ckubwr.html
+ 39. http://www.columbia.edu/kermit/ckcplm.html
+ 40. http://www.columbia.edu/kermit/ckuins.html#x2
+ 41. http://www.columbia.edu/kermit/ckuins.html#x3
+ 42. http://www.columbia.edu/kermit/ckuins.html#x4
+ 43. http://www.columbia.edu/kermit/ckuins.html#top
+ 44. http://www.columbia.edu/kermit/ckuins.html#contents
+ 45. http://www.columbia.edu/kermit/ckuins.html#x2
+ 46. http://www.columbia.edu/kermit/ckuins.html#x0
+ 47. ftp://www.columbia.edu/kermit/archives/cku211.tar.Z
+ 48. ftp://www.columbia.edu/kermit/archives/cku211.tar.gz
+ 49. http://kermit.columbia.edu/ftp/archives/cku211.tar.Z
+ 50. http://kermit.columbia.edu/ftp/archives/cku211.tar.gz
+ 51. ftp://www.columbia.edu/kermit/archives/cku211.tar
+ 52. http://kermit.columbia.edu/ftp/archives/cku211.tar
+ 53. http://www.columbia.edu/kermit/ckuins.html#x7
+ 54. http://www.columbia.edu/kermit/ckuins.html#x5
+ 55. http://www.columbia.edu/kermit/ckuins.html#x5
+ 56. http://www.columbia.edu/kermit/ckuins.html#x16
+ 57. http://www.columbia.edu/kermit/ckuins.html#top
+ 58. http://www.columbia.edu/kermit/ckuins.html#contents
+ 59. http://www.columbia.edu/kermit/ckuins.html#x3
+ 60. http://www.columbia.edu/kermit/ckuins.html#x1
+ 61. http://www.columbia.edu/kermit/ckuins.html#x5
+ 62. http://www.columbia.edu/kermit/ckuins.html#X10
+ 63. http://www.columbia.edu/kermit/ckuins.html#x11
+ 64. http://www.columbia.edu/kermit/ckuins.html#x10
+ 65. http://www.columbia.edu/kermit/ckuins.html#x3
+ 66. http://www.columbia.edu/kermit/ck80packages.html
+ 67. http://www.columbia.edu/kermit/ckuins.html#x10
+ 68. http://www.columbia.edu/kermit/ckuins.html#top
+ 69. http://www.columbia.edu/kermit/ckuins.html#contents
+ 70. http://www.columbia.edu/kermit/ckuins.html#x4
+ 71. http://www.columbia.edu/kermit/ckuins.html#x2
+ 72. ftp://www.columbia.edu/kermit/bin/
+ 73. http://www.columbia.edu/kermit/ck80binaries.html
+ 74. http://www.columbia.edu/kermit/ckuins.html#x7
+ 75. http://www.columbia.edu/kermit/ckuins.html#build
76. http://www.columbia.edu/kermit/ckuins.html#x5
- 77. mailto:kermit-support@columbia.edu
- 78. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 79. http://www.columbia.edu/kermit/ckuins.html#x7
- 80. mailto:kermit-support@columbia.edu
- 81. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 82. http://www.columbia.edu/kermit/ckuins.html#x5.4
- 83. http://www.columbia.edu/kermit/ckuins.html#x10
- 84. http://www.columbia.edu/kermit/ckuins.html#x11
- 85. http://www.columbia.edu/kermit/ckuins.html#x5
- 86. http://www.columbia.edu/kermit/iksd.html
- 87. http://www.columbia.edu/kermit/ckuins.html#top
- 88. http://www.columbia.edu/kermit/ckuins.html#contents
- 89. http://www.columbia.edu/kermit/ckuins.html#x4.1
- 90. http://www.columbia.edu/kermit/ckccfg.html
- 91. http://www.columbia.edu/kermit/ckuins.html#x4.1
- 92. http://www.columbia.edu/kermit/ckuins.html#x4.2
- 93. http://www.columbia.edu/kermit/ckuins.html#x4.3
- 94. http://www.columbia.edu/kermit/ckuins.html#x4.4
- 95. http://www.columbia.edu/kermit/ckuins.html#x4.5
- 96. http://www.columbia.edu/kermit/ckccfg.html
- 97. http://www.columbia.edu/kermit/ckccfg.html#x8
- 98. http://www.columbia.edu/kermit/iksd.html
- 99. http://www.columbia.edu/kermit/iksd.html
- 100. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 101. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 102. mailto:kermit-support@columbia.edu
- 103. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
- 104. http://www.columbia.edu/kermit/ckuins.html#x15
- 105. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 106. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 107. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 108. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 109. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
- 110. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
- 111. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 112. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.c
- 113. mailto:kermit-support@columbia.edu
- 114. http://www.columbia.edu/kermit/ckuins.html#top
- 115. http://www.columbia.edu/kermit/ckuins.html#contents
- 116. http://www.columbia.edu/kermit/ckuins.html#x4
- 117. http://www.columbia.edu/kermit/ckuins.html#x4.2
- 118. http://www.columbia.edu/kermit/ckuins.html#x4.0
- 119. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 120. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
- 121. http://www.columbia.edu/kermit/ckubwr.html
- 122. ftp://kermit.columbia.edu/kermit/c-kermit/ckwart.c
- 123. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
- 124. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.c
- 125. http://www.columbia.edu/kermit/ckuins.html#top
- 126. http://www.columbia.edu/kermit/ckuins.html#contents
- 127. http://www.columbia.edu/kermit/ckuins.html#x4
- 128. http://www.columbia.edu/kermit/ckuins.html#x4.3
- 129. http://www.columbia.edu/kermit/ckuins.html#x4.1
- 130. http://www.columbia.edu/kermit/ckuins.html#x5
- 131. http://www.columbia.edu/kermit/ckuins.html#top
- 132. http://www.columbia.edu/kermit/ckuins.html#contents
- 133. http://www.columbia.edu/kermit/ckuins.html#x4
- 134. http://www.columbia.edu/kermit/ckuins.html#x4.4
- 135. http://www.columbia.edu/kermit/ckuins.html#x4.2
- 136. http://www.columbia.edu/kermit/ckuins.html#top
- 137. http://www.columbia.edu/kermit/ckuins.html#contents
- 138. http://www.columbia.edu/kermit/ckuins.html#x4
- 139. http://www.columbia.edu/kermit/ckuins.html#x4.5
- 140. http://www.columbia.edu/kermit/ckuins.html#x4.3
- 141. ftp://kermit.columbia.edu/kermit/c-kermit/ckpker.mk
- 142. http://www.columbia.edu/kermit/ckuins.html#top
- 143. http://www.columbia.edu/kermit/ckuins.html#contents
- 144. http://www.columbia.edu/kermit/ckuins.html#x4
- 145. http://www.columbia.edu/kermit/ckuins.html#x4.4
- 146. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 147. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 148. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
- 149. http://www.columbia.edu/kermit/ckuins.html#top
- 150. http://www.columbia.edu/kermit/ckuins.html#contents
- 151. http://www.columbia.edu/kermit/ckuins.html#x6
+ 77. http://www.columbia.edu/kermit/ckuins.html#x4
+ 78. http://www.columbia.edu/kermit/ckfaq.html#version
+ 79. http://www.columbia.edu/kermit/ckuins.html#x4
+ 80. mailto:kermit@columbia.edu
+ 81. http://www.columbia.edu/kermit/ckuins.html#top
+ 82. http://www.columbia.edu/kermit/ckuins.html#contents
+ 83. http://www.columbia.edu/kermit/ckuins.html#x5
+ 84. http://www.columbia.edu/kermit/ckuins.html#x3
+ 85. http://www.columbia.edu/kermit/ckuins.html#x8
+ 86. http://www.columbia.edu/kermit/ckuins.html#x9
+ 87. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 88. ftp://kermit.columbia.edu/kermit/c-kermit/ckpker.mk
+ 89. ftp://kermit.columbia.edu/kermit/c-kermit/ckubsd.mak
+ 90. http://www.columbia.edu/kermit/ckuins.html#x5
+ 91. mailto:kermit-support@columbia.edu
+ 92. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 93. http://www.columbia.edu/kermit/ckuins.html#x7
+ 94. mailto:kermit-support@columbia.edu
+ 95. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 96. http://www.columbia.edu/kermit/ckuins.html#x5.4
+ 97. http://www.columbia.edu/kermit/ckuins.html#x10
+ 98. http://www.columbia.edu/kermit/ckuins.html#x11
+ 99. http://www.columbia.edu/kermit/ckuins.html#x5
+ 100. http://www.columbia.edu/kermit/iksd.html
+ 101. http://www.columbia.edu/kermit/ckuins.html#top
+ 102. http://www.columbia.edu/kermit/ckuins.html#contents
+ 103. http://www.columbia.edu/kermit/ckuins.html#x4.1
+ 104. http://www.columbia.edu/kermit/ckccfg.html
+ 105. http://www.columbia.edu/kermit/ckuins.html#x4.1
+ 106. http://www.columbia.edu/kermit/ckuins.html#x4.2
+ 107. http://www.columbia.edu/kermit/ckuins.html#x4.3
+ 108. http://www.columbia.edu/kermit/ckuins.html#x4.4
+ 109. http://www.columbia.edu/kermit/ckuins.html#x4.5
+ 110. http://www.columbia.edu/kermit/ckccfg.html
+ 111. http://www.columbia.edu/kermit/ckccfg.html#x8
+ 112. http://www.columbia.edu/kermit/iksd.html
+ 113. http://www.columbia.edu/kermit/iksd.html
+ 114. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 115. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 116. mailto:kermit-support@columbia.edu
+ 117. ftp://kermit.columbia.edu/kermit/c-kermit/ckcmai.c
+ 118. http://www.columbia.edu/kermit/ckuins.html#x15
+ 119. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 120. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 121. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 122. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 123. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
+ 124. ftp://kermit.columbia.edu/kermit/c-kermit/ckcnet.c
+ 125. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 126. ftp://kermit.columbia.edu/kermit/c-kermit/ckcuni.c
+ 127. mailto:kermit-support@columbia.edu
+ 128. http://www.columbia.edu/kermit/ckuins.html#top
+ 129. http://www.columbia.edu/kermit/ckuins.html#contents
+ 130. http://www.columbia.edu/kermit/ckuins.html#x4
+ 131. http://www.columbia.edu/kermit/ckuins.html#x4.2
+ 132. http://www.columbia.edu/kermit/ckuins.html#x4.0
+ 133. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 134. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
+ 135. http://www.columbia.edu/kermit/ckubwr.html
+ 136. ftp://kermit.columbia.edu/kermit/c-kermit/ckwart.c
+ 137. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
+ 138. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.c
+ 139. http://www.columbia.edu/kermit/ckuins.html#top
+ 140. http://www.columbia.edu/kermit/ckuins.html#contents
+ 141. http://www.columbia.edu/kermit/ckuins.html#x4
+ 142. http://www.columbia.edu/kermit/ckuins.html#x4.3
+ 143. http://www.columbia.edu/kermit/ckuins.html#x4.1
+ 144. http://www.columbia.edu/kermit/ckuins.html#x5
+ 145. http://www.columbia.edu/kermit/ckuins.html#top
+ 146. http://www.columbia.edu/kermit/ckuins.html#contents
+ 147. http://www.columbia.edu/kermit/ckuins.html#x4
+ 148. http://www.columbia.edu/kermit/ckuins.html#x4.4
+ 149. http://www.columbia.edu/kermit/ckuins.html#x4.2
+ 150. http://www.columbia.edu/kermit/ckuins.html#top
+ 151. http://www.columbia.edu/kermit/ckuins.html#contents
152. http://www.columbia.edu/kermit/ckuins.html#x4
- 153. http://www.columbia.edu/kermit/ckuins.html#x5.1
- 154. http://www.columbia.edu/kermit/ckuins.html#x5.2
- 155. http://www.columbia.edu/kermit/ckuins.html#x5.3
- 156. http://www.columbia.edu/kermit/ckuins.html#x5.4
- 157. http://www.columbia.edu/kermit/
- 158. http://www.columbia.edu/kermit/ckuins.html#x5.4
- 159. http://www.columbia.edu/kermit/ckuins.html#x5.3
- 160. ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
- 161. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit.ini
- 162. http://www.columbia.edu/kermit/ckuins.html#x5.1
- 163. ftp://kermit.columbia.edu/kermit/c-kermit/ckermod.ini
- 164. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit70.txt
- 165. http://www.columbia.edu/kermit/ck60manual
- 166. http://www.columbia.edu/kermit/ckermit70.html
- 167. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit80.txt
- 168. http://www.columbia.edu/kermit/ck60manual
- 169. http://www.columbia.edu/kermit/ckermit80.html
- 170. ftp://kermit.columbia.edu/kermit/c-kermit/ckcbwr.txt
- 171. http://www.columbia.edu/kermit/ckcbwr.html
- 172. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
- 173. http://www.columbia.edu/kermit/ckubwr.html
- 174. ftp://kermit.columbia.edu/kermit/c-kermit/ckuins.txt
- 175. http://www.columbia.edu/kermit/ckuins.html
- 176. ftp://kermit.columbia.edu/kermit/c-kermit/ckccfg.txt
- 177. http://www.columbia.edu/kermit/ckccfg.html
- 178. ftp://kermit.columbia.edu/kermit/c-kermit/ckcplm.txt
- 179. http://www.columbia.edu/kermit/ckcplm.html
- 180. ftp://kermit.columbia.edu/kermit/c-kermit/ca_certs.pem
- 181. http://www.columbia.edu/kermit/ckuins.html#x16"
- 182. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
- 183. http://www.columbia.edu/kermit/ckuins.html#x?
- 184. http://www.columbia.edu/kermit/ckuins.html#x11
- 185. http://www.columbia.edu/kermit/ckuins.html#x5.2
- 186. http://www.columbia.edu/kermit/ckermit.html#download
- 187. http://www.columbia.edu/kermit/ck80binaries.html
- 188. http://www.columbia.edu/kermit/ckermit.html#download
- 189. http://www.columbia.edu/kermit/ckuins.html#top
- 190. http://www.columbia.edu/kermit/ckuins.html#contents
- 191. http://www.columbia.edu/kermit/ckuins.html#x7
- 192. http://www.columbia.edu/kermit/ckuins.html#x5
- 193. http://www.columbia.edu/kermit/ckuins.html#top
- 194. http://www.columbia.edu/kermit/ckuins.html#contents
- 195. http://www.columbia.edu/kermit/ckuins.html#x8
- 196. http://www.columbia.edu/kermit/ckuins.html#x6
- 197. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 198. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 199. http://www.columbia.edu/kermit/ckuins.html#x4.0
- 200. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 201. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 202. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 203. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 204. http://www.columbia.edu/kermit/ckuins.html#x10
- 205. http://www.columbia.edu/kermit/ckccfg.html#x2
- 206. http://www.columbia.edu/kermit/ckccfg.html
- 207. http://www.columbia.edu/kermit/ckuins.html#x4
- 208. http://www.columbia.edu/kermit/ckuins.html#x10
- 209. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 210. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 211. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 212. http://www.columbia.edu/kermit/ckuins.html#x9.4
- 213. mailto:kermit-support@columbia.edu
- 214. http://www.columbia.edu/kermit/ckuins.html#top
- 215. http://www.columbia.edu/kermit/ckuins.html#contents
- 216. http://www.columbia.edu/kermit/ckuins.html#x9
- 217. http://www.columbia.edu/kermit/ckuins.html#x7
- 218. http://www.columbia.edu/kermit/ckccfg.html
- 219. http://www.columbia.edu/kermit/ckccfg.html
- 220. http://www.columbia.edu/kermit/ckuins.html#top
- 221. http://www.columbia.edu/kermit/ckuins.html#contents
- 222. http://www.columbia.edu/kermit/ckuins.html#x10
- 223. http://www.columbia.edu/kermit/ckuins.html#x8
- 224. http://www.columbia.edu/kermit/ckuins.html#x9.1
- 225. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
- 226. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
- 227. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
- 228. http://www.columbia.edu/kermit/ckuins.html#x9.2
- 229. http://www.columbia.edu/kermit/ckuins.html#x9.3
- 230. http://www.columbia.edu/kermit/ckuins.html#x9.4
- 231. http://www.columbia.edu/kermit/ckuins.html#x9.5
- 232. http://www.columbia.edu/kermit/ckuins.html#x9.6
- 233. http://www.columbia.edu/kermit/ckuins.html#x9.7
- 234. http://www.columbia.edu/kermit/ckuins.html#x9.8
- 235. http://www.columbia.edu/kermit/ckuins.html#x9.9
- 236. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 153. http://www.columbia.edu/kermit/ckuins.html#x4.5
+ 154. http://www.columbia.edu/kermit/ckuins.html#x4.3
+ 155. ftp://kermit.columbia.edu/kermit/c-kermit/ckpker.mk
+ 156. http://www.columbia.edu/kermit/ckuins.html#top
+ 157. http://www.columbia.edu/kermit/ckuins.html#contents
+ 158. http://www.columbia.edu/kermit/ckuins.html#x4
+ 159. http://www.columbia.edu/kermit/ckuins.html#x4.4
+ 160. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 161. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 162. ftp://kermit.columbia.edu/kermit/c-kermit/ckcpro.w
+ 163. http://www.columbia.edu/kermit/ckuins.html#top
+ 164. http://www.columbia.edu/kermit/ckuins.html#contents
+ 165. http://www.columbia.edu/kermit/ckuins.html#x6
+ 166. http://www.columbia.edu/kermit/ckuins.html#x4
+ 167. http://www.columbia.edu/kermit/ckuins.html#x5.1
+ 168. http://www.columbia.edu/kermit/ckuins.html#x5.2
+ 169. http://www.columbia.edu/kermit/ckuins.html#x5.3
+ 170. http://www.columbia.edu/kermit/ckuins.html#x5.4
+ 171. http://www.columbia.edu/kermit/
+ 172. http://www.columbia.edu/kermit/ckuins.html#x5.4
+ 173. http://www.columbia.edu/kermit/ckuins.html#x5.3
+ 174. ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
+ 175. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit.ini
+ 176. http://www.columbia.edu/kermit/ckuins.html#x5.1
+ 177. ftp://kermit.columbia.edu/kermit/c-kermit/ckermod.ini
+ 178. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit70.txt
+ 179. http://www.columbia.edu/kermit/ck60manual.html
+ 180. http://www.columbia.edu/kermit/ckermit70.html
+ 181. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit80.txt
+ 182. http://www.columbia.edu/kermit/ck60manual.html
+ 183. http://www.columbia.edu/kermit/ckermit80.html
+ 184. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit90.txt
+ 185. http://www.columbia.edu/kermit/ck60manual.html
+ 186. http://www.columbia.edu/kermit/ckermit90.html
+ 187. ftp://kermit.columbia.edu/kermit/c-kermit/ckcbwr.txt
+ 188. http://www.columbia.edu/kermit/ckcbwr.html
+ 189. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
+ 190. http://www.columbia.edu/kermit/ckubwr.html
+ 191. ftp://kermit.columbia.edu/kermit/c-kermit/ckuins.txt
+ 192. http://www.columbia.edu/kermit/ckuins.html
+ 193. ftp://kermit.columbia.edu/kermit/c-kermit/ckccfg.txt
+ 194. http://www.columbia.edu/kermit/ckccfg.html
+ 195. ftp://kermit.columbia.edu/kermit/c-kermit/ckcplm.txt
+ 196. http://www.columbia.edu/kermit/ckcplm.html
+ 197. ftp://kermit.columbia.edu/kermit/c-kermit/ca_certs.pem
+ 198. http://www.columbia.edu/kermit/ckuins.html#x16"
+ 199. ftp://kermit.columbia.edu/kermit/c-kermit/makefile
+ 200. http://www.columbia.edu/kermit/ckuins.html#x?
+ 201. http://www.columbia.edu/kermit/ckuins.html#x11
+ 202. http://www.columbia.edu/kermit/ckuins.html#x5.2
+ 203. http://www.columbia.edu/kermit/ckermit.html#download
+ 204. http://www.columbia.edu/kermit/ckbinaries.html
+ 205. http://www.columbia.edu/kermit/ckermit.html#download
+ 206. http://www.columbia.edu/kermit/ckuins.html#top
+ 207. http://www.columbia.edu/kermit/ckuins.html#contents
+ 208. http://www.columbia.edu/kermit/ckuins.html#x7
+ 209. http://www.columbia.edu/kermit/ckuins.html#x5
+ 210. http://www.columbia.edu/kermit/ckuins.html#top
+ 211. http://www.columbia.edu/kermit/ckuins.html#contents
+ 212. http://www.columbia.edu/kermit/ckuins.html#x8
+ 213. http://www.columbia.edu/kermit/ckuins.html#x6
+ 214. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 215. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 216. http://www.columbia.edu/kermit/ckuins.html#x4.0
+ 217. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 218. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 219. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 220. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 221. http://www.columbia.edu/kermit/ckuins.html#x10
+ 222. http://www.columbia.edu/kermit/ckccfg.html#x2
+ 223. http://www.columbia.edu/kermit/ckccfg.html
+ 224. http://www.columbia.edu/kermit/ckuins.html#x4
+ 225. http://www.columbia.edu/kermit/ckuins.html#x10
+ 226. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 227. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 228. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 229. http://www.columbia.edu/kermit/ckuins.html#x9.4
+ 230. mailto:kermit-support@columbia.edu
+ 231. http://www.columbia.edu/kermit/ckuins.html#top
+ 232. http://www.columbia.edu/kermit/ckuins.html#contents
+ 233. http://www.columbia.edu/kermit/ckuins.html#x9
+ 234. http://www.columbia.edu/kermit/ckuins.html#x7
+ 235. http://www.columbia.edu/kermit/ckccfg.html
+ 236. http://www.columbia.edu/kermit/ckccfg.html
237. http://www.columbia.edu/kermit/ckuins.html#top
- 238. http://www.columbia.edu/kermit/ckuins.html#x9
- 239. http://www.columbia.edu/kermit/ckuins.html#contents
- 240. http://www.columbia.edu/kermit/ckuins.html#x9.2
- 241. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
- 242. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
- 243. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
- 244. http://www.columbia.edu/kermit/ckuins.html#top
- 245. http://www.columbia.edu/kermit/ckuins.html#contents
- 246. http://www.columbia.edu/kermit/ckuins.html#x9
- 247. http://www.columbia.edu/kermit/ckuins.html#x9.1
- 248. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
- 249. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
- 250. http://www.columbia.edu/kermit/ckuins.html#top
- 251. http://www.columbia.edu/kermit/ckuins.html#contents
- 252. http://www.columbia.edu/kermit/ckuins.html#x9
- 253. http://www.columbia.edu/kermit/ckuins.html#x9.1
- 254. http://www.columbia.edu/kermit/ckuins.html#x9.2
- 255. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
- 256. http://www.opengroup.org/onlinepubs/007904975/
- 257. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
- 258. http://www.columbia.edu/kermit/ckuins.html#top
- 259. http://www.columbia.edu/kermit/ckuins.html#contents
- 260. http://www.columbia.edu/kermit/ckuins.html#x9
- 261. http://www.columbia.edu/kermit/ckuins.html#x9.1
- 262. http://www.columbia.edu/kermit/ckuins.html#x9.3
- 263. http://www.columbia.edu/kermit/ckuins.html#x9.1
- 264. http://www.columbia.edu/kermit/ckuins.html#top
- 265. http://www.columbia.edu/kermit/ckuins.html#contents
- 266. http://www.columbia.edu/kermit/ckuins.html#x9
- 267. http://www.columbia.edu/kermit/ckuins.html#x9.4
- 268. http://www.columbia.edu/kermit/ckuins.html#x9.2
- 269. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 270. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 271. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 272. http://www.columbia.edu/kermit/ckuins.html#top
- 273. http://www.columbia.edu/kermit/ckuins.html#contents
- 274. http://www.columbia.edu/kermit/ckuins.html#x9
- 275. http://www.columbia.edu/kermit/ckuins.html#x9.5
- 276. http://www.columbia.edu/kermit/ckuins.html#x9.3
- 277. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 278. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 279. http://www.columbia.edu/kermit/ckuins.html#top
- 280. http://www.columbia.edu/kermit/ckuins.html#contents
- 281. http://www.columbia.edu/kermit/ckuins.html#x9
- 282. http://www.columbia.edu/kermit/ckuins.html#x9.6
- 283. http://www.columbia.edu/kermit/ckuins.html#x9.4
- 284. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 285. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
- 286. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 287. http://www.columbia.edu/kermit/ckuins.html#top
- 288. http://www.columbia.edu/kermit/ckuins.html#contents
- 289. http://www.columbia.edu/kermit/ckuins.html#x9
- 290. http://www.columbia.edu/kermit/ckuins.html#x9.7
- 291. http://www.columbia.edu/kermit/ckuins.html#x9.5
- 292. http://www.columbia.edu/kermit/ckuins.html#top
- 293. http://www.columbia.edu/kermit/ckuins.html#contents
- 294. http://www.columbia.edu/kermit/ckuins.html#x9
- 295. http://www.columbia.edu/kermit/ckuins.html#x9.8
- 296. http://www.columbia.edu/kermit/ckuins.html#x9.6
+ 238. http://www.columbia.edu/kermit/ckuins.html#contents
+ 239. http://www.columbia.edu/kermit/ckuins.html#x10
+ 240. http://www.columbia.edu/kermit/ckuins.html#x8
+ 241. http://www.columbia.edu/kermit/ckuins.html#x9.1
+ 242. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
+ 243. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
+ 244. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
+ 245. http://www.columbia.edu/kermit/ckuins.html#x9.2
+ 246. http://www.columbia.edu/kermit/ckuins.html#x9.3
+ 247. http://www.columbia.edu/kermit/ckuins.html#x9.4
+ 248. http://www.columbia.edu/kermit/ckuins.html#x9.5
+ 249. http://www.columbia.edu/kermit/ckuins.html#x9.6
+ 250. http://www.columbia.edu/kermit/ckuins.html#x9.7
+ 251. http://www.columbia.edu/kermit/ckuins.html#x9.8
+ 252. http://www.columbia.edu/kermit/ckuins.html#x9.9
+ 253. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 254. http://www.columbia.edu/kermit/ckuins.html#top
+ 255. http://www.columbia.edu/kermit/ckuins.html#x9
+ 256. http://www.columbia.edu/kermit/ckuins.html#contents
+ 257. http://www.columbia.edu/kermit/ckuins.html#x9.2
+ 258. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
+ 259. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
+ 260. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
+ 261. http://www.columbia.edu/kermit/ckuins.html#top
+ 262. http://www.columbia.edu/kermit/ckuins.html#contents
+ 263. http://www.columbia.edu/kermit/ckuins.html#x9
+ 264. http://www.columbia.edu/kermit/ckuins.html#x9.1
+ 265. http://www.columbia.edu/kermit/ckuins.html#x9.1.3
+ 266. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
+ 267. http://www.columbia.edu/kermit/ckuins.html#top
+ 268. http://www.columbia.edu/kermit/ckuins.html#contents
+ 269. http://www.columbia.edu/kermit/ckuins.html#x9
+ 270. http://www.columbia.edu/kermit/ckuins.html#x9.1
+ 271. http://www.columbia.edu/kermit/ckuins.html#x9.2
+ 272. http://www.columbia.edu/kermit/ckuins.html#x9.1.2
+ 273. http://www.opengroup.org/onlinepubs/007904975/
+ 274. http://www.columbia.edu/kermit/ckuins.html#x9.1.1
+ 275. http://www.columbia.edu/kermit/ckuins.html#top
+ 276. http://www.columbia.edu/kermit/ckuins.html#contents
+ 277. http://www.columbia.edu/kermit/ckuins.html#x9
+ 278. http://www.columbia.edu/kermit/ckuins.html#x9.1
+ 279. http://www.columbia.edu/kermit/ckuins.html#x9.3
+ 280. http://www.columbia.edu/kermit/ckuins.html#x9.1
+ 281. http://www.columbia.edu/kermit/ckuins.html#top
+ 282. http://www.columbia.edu/kermit/ckuins.html#contents
+ 283. http://www.columbia.edu/kermit/ckuins.html#x9
+ 284. http://www.columbia.edu/kermit/ckuins.html#x9.4
+ 285. http://www.columbia.edu/kermit/ckuins.html#x9.2
+ 286. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 287. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 288. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 289. http://www.columbia.edu/kermit/ckuins.html#top
+ 290. http://www.columbia.edu/kermit/ckuins.html#contents
+ 291. http://www.columbia.edu/kermit/ckuins.html#x9
+ 292. http://www.columbia.edu/kermit/ckuins.html#x9.5
+ 293. http://www.columbia.edu/kermit/ckuins.html#x9.3
+ 294. http://www.columbia.edu/kermit/cable.html
+ 295. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 296. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
297. http://www.columbia.edu/kermit/ckuins.html#top
298. http://www.columbia.edu/kermit/ckuins.html#contents
299. http://www.columbia.edu/kermit/ckuins.html#x9
- 300. http://www.columbia.edu/kermit/ckuins.html#x9.9
- 301. http://www.columbia.edu/kermit/ckuins.html#x9.7
- 302. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 303. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 304. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
- 305. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 306. http://www.columbia.edu/kermit/ckuins.html#top
- 307. http://www.columbia.edu/kermit/ckuins.html#contents
- 308. http://www.columbia.edu/kermit/ckuins.html#x9
- 309. http://www.columbia.edu/kermit/ckuins.html#x10
- 310. http://www.columbia.edu/kermit/ckuins.html#x9.8
- 311. http://www.columbia.edu/kermit/ckuins.html#top
- 312. http://www.columbia.edu/kermit/ckuins.html#contents
- 313. http://www.columbia.edu/kermit/ckuins.html#x11
- 314. http://www.columbia.edu/kermit/ckuins.html#x9
- 315. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 316. http://www.columbia.edu/kermit/ckuins.html#x11
- 317. http://www.columbia.edu/kermit/ckuins.html#top
- 318. http://www.columbia.edu/kermit/ckuins.html#contents
- 319. http://www.columbia.edu/kermit/ckuins.html#x12
- 320. http://www.columbia.edu/kermit/ckuins.html#x10
+ 300. http://www.columbia.edu/kermit/ckuins.html#x9.6
+ 301. http://www.columbia.edu/kermit/ckuins.html#x9.4
+ 302. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 303. ftp://kermit.columbia.edu/kermit/c-kermit/ckuus3.c
+ 304. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 305. http://www.columbia.edu/kermit/ckuins.html#top
+ 306. http://www.columbia.edu/kermit/ckuins.html#contents
+ 307. http://www.columbia.edu/kermit/ckuins.html#x9
+ 308. http://www.columbia.edu/kermit/ckuins.html#x9.7
+ 309. http://www.columbia.edu/kermit/ckuins.html#x9.5
+ 310. http://www.columbia.edu/kermit/ckuins.html#top
+ 311. http://www.columbia.edu/kermit/ckuins.html#contents
+ 312. http://www.columbia.edu/kermit/ckuins.html#x9
+ 313. http://www.columbia.edu/kermit/ckuins.html#x9.8
+ 314. http://www.columbia.edu/kermit/ckuins.html#x9.6
+ 315. http://www.columbia.edu/kermit/ckuins.html#top
+ 316. http://www.columbia.edu/kermit/ckuins.html#contents
+ 317. http://www.columbia.edu/kermit/ckuins.html#x9
+ 318. http://www.columbia.edu/kermit/ckuins.html#x9.9
+ 319. http://www.columbia.edu/kermit/ckuins.html#x9.7
+ 320. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
321. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 322. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
- 323. http://www.columbia.edu/kermit/ckuins.html#top
- 324. http://www.columbia.edu/kermit/ckuins.html#contents
- 325. http://www.columbia.edu/kermit/ckuins.html#x13
- 326. http://www.columbia.edu/kermit/ckuins.html#x11
- 327. http://www.columbia.edu/kermit/ckuins.html#top
- 328. http://www.columbia.edu/kermit/ckuins.html#contents
- 329. http://www.columbia.edu/kermit/ckuins.html#x14
- 330. http://www.columbia.edu/kermit/ckuins.html#x12
- 331. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
- 332. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
- 333. http://www.columbia.edu/kermit/ckuins.html#top
- 334. http://www.columbia.edu/kermit/ckuins.html#contents
- 335. http://www.columbia.edu/kermit/ckuins.html#x15
- 336. http://www.columbia.edu/kermit/ckuins.html#x13
- 337. http://www.columbia.edu/kermit/ckuins.html#top
- 338. http://www.columbia.edu/kermit/ckuins.html#contents
- 339. http://www.columbia.edu/kermit/ckuins.html#x16
- 340. http://www.columbia.edu/kermit/ckuins.html#x14
- 341. http://www.columbia.edu/kermit/iksd.html#x4.2
- 342. http://www.columbia.edu/kermit/iksd.html
- 343. http://www.columbia.edu/kermit/ckermit2.html
- 344. http://www.columbia.edu/kermit/ckuins.html#top
- 345. http://www.columbia.edu/kermit/ckuins.html#contents
- 346. http://www.columbia.edu/kermit/ckuins.html#x17
- 347. http://www.columbia.edu/kermit/ckuins.html#x15
- 348. http://www.columbia.edu/kermit/security.html
- 349. http://www.columbia.edu/kermit/security80.html
- 350. http://www.columbia.edu/kermit/cuiksd.html
- 351. ftp://kermit.columbia.edu/kermit/c-kermit/ca_certs.pem
- 352. http://www.columbia.edu/kermit/ckuins.html#top
- 353. http://www.columbia.edu/kermit/ckuins.html#contents
- 354. http://www.columbia.edu/kermit/ckuins.html#x16
- 355. http://www.columbia.edu/kermit/skermit.html
- 356. http://www.columbia.edu/kermit/ckuins.html#top
- 357. http://www.columbia.edu/kermit/ckuins.html#contents
- 358. http://www.columbia.edu/kermit/ckermit.html
- 359. http://www.columbia.edu/kermit/ck80.html
- 360. http://www.columbia.edu/kermit/index.html
+ 322. ftp://kermit.columbia.edu/kermit/c-kermit/ckcdeb.h
+ 323. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 324. http://www.columbia.edu/kermit/ckuins.html#top
+ 325. http://www.columbia.edu/kermit/ckuins.html#contents
+ 326. http://www.columbia.edu/kermit/ckuins.html#x9
+ 327. http://www.columbia.edu/kermit/ckuins.html#x10
+ 328. http://www.columbia.edu/kermit/ckuins.html#x9.8
+ 329. http://www.columbia.edu/kermit/ckuins.html#top
+ 330. http://www.columbia.edu/kermit/ckuins.html#contents
+ 331. http://www.columbia.edu/kermit/ckuins.html#x11
+ 332. http://www.columbia.edu/kermit/ckuins.html#x9
+ 333. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 334. http://www.columbia.edu/kermit/ckuins.html#x11
+ 335. http://www.columbia.edu/kermit/ckuins.html#top
+ 336. http://www.columbia.edu/kermit/ckuins.html#contents
+ 337. http://www.columbia.edu/kermit/ckuins.html#x12
+ 338. http://www.columbia.edu/kermit/ckuins.html#x10
+ 339. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 340. ftp://kermit.columbia.edu/kermit/c-kermit/ckufio.c
+ 341. http://www.columbia.edu/kermit/ckuins.html#top
+ 342. http://www.columbia.edu/kermit/ckuins.html#contents
+ 343. http://www.columbia.edu/kermit/ckuins.html#x13
+ 344. http://www.columbia.edu/kermit/ckuins.html#x11
+ 345. http://www.columbia.edu/kermit/ckuins.html#top
+ 346. http://www.columbia.edu/kermit/ckuins.html#contents
+ 347. http://www.columbia.edu/kermit/ckuins.html#x14
+ 348. http://www.columbia.edu/kermit/ckuins.html#x12
+ 349. ftp://kermit.columbia.edu/kermit/c-kermit/ckubwr.txt
+ 350. ftp://kermit.columbia.edu/kermit/c-kermit/ckutio.c
+ 351. http://www.columbia.edu/kermit/ckuins.html#top
+ 352. http://www.columbia.edu/kermit/ckuins.html#contents
+ 353. http://www.columbia.edu/kermit/ckuins.html#x15
+ 354. http://www.columbia.edu/kermit/ckuins.html#x13
+ 355. http://www.columbia.edu/kermit/ckuins.html#top
+ 356. http://www.columbia.edu/kermit/ckuins.html#contents
+ 357. http://www.columbia.edu/kermit/ckuins.html#x16
+ 358. http://www.columbia.edu/kermit/ckuins.html#x14
+ 359. http://www.columbia.edu/kermit/uiksd.html#x4.2
+ 360. http://www.columbia.edu/kermit/uiksd.html
+ 361. http://www.columbia.edu/kermit/ckermit2.html
+ 362. http://www.columbia.edu/kermit/ckuins.html#top
+ 363. http://www.columbia.edu/kermit/ckuins.html#contents
+ 364. http://www.columbia.edu/kermit/ckuins.html#x17
+ 365. http://www.columbia.edu/kermit/ckuins.html#x15
+ 366. http://www.columbia.edu/kermit/security.html
+ 367. http://www.columbia.edu/kermit/security80.html
+ 368. http://www.columbia.edu/kermit/ckuins.html#top
+ 369. http://www.columbia.edu/kermit/ckuins.html#contents
+ 370. http://www.columbia.edu/kermit/ckuins.html#x16
+ 371. http://www.columbia.edu/kermit/skermit.html
+ 372. http://www.columbia.edu/kermit/ckuins.html#top
+ 373. http://www.columbia.edu/kermit/ckuins.html#contents
+ 374. http://www.columbia.edu/kermit/ckermit.html
+ 375. http://www.columbia.edu/kermit/ck90updates.html
+ 376. http://www.columbia.edu/kermit/index.html
-.\" @(#) kermit.1 8.0.211 2004/04/10 Columbia University
-.TH KERMIT 1 "APRIL 2004" "User Manuals"
+.\" @(#) kermit.1 9.0.302 2011/08/20 Columbia University
+.TH KERMIT 1 "JULY 2011" "User Manuals"
.na
.SH NAME
kermit \-
-.B C\(hyKermit 8.0:
+.B C\(hyKermit 9.0:
transport\(hy and platform\(hyindependent
interactive and scriptable communications software.
.IP
-This document is intended to give the beginner sufficient information to make
-basic (if not advanced) use of C\(hyKermit 8.0. Although it might be rather long
-for a Unix manual page, it's still far shorter than the C\(hyKermit manual, which
-should be consulted for advanced topics such as customization, character\(hysets,
-scripting, etc. We also attempt to provide a clear structural overview of
-C\(hyKermit's many capabilities, functional areas, states, and modes and their
-interrelation, that should be helpful to beginners and veterans alike, as well
-as to those upgrading to version 8.0 from earlier releases.
+This document is intended to give the beginner sufficient information to
+make basic (if not advanced) use of C\(hyKermit 9.0. Although it might be
+rather long for a Unix manual page, it's still far shorter than the
+C\(hyKermit manual, which should be consulted for advanced topics such as
+customization, character\(hysets, scripting, etc. We also attempt to provide
+a clear structural overview of C\(hyKermit's many capabilities, functional
+areas, states, and modes and their interrelation, that should be helpful to
+beginners and veterans alike, as well as to those upgrading to version 9.0
+from earlier releases.
.PP
This document is also available as a Web page at:
.IP
cross\(hyplatform transport\(hyindependent script programming language, which
happens to be identical to its interactive command language.
.PP
-This manual page offers an overview of C\(hyKermit 8.0 for Unix ("Unix" is an
+This manual page offers an overview of C\(hyKermit 9.0 for Unix ("Unix" is an
operating system family that includes AIX, DG/UX, FreeBSD, HP\(hyUX, IRIX,
Linux, Mac OS X, NetBSD, OpenBSD, Open Server, Open Unix, QNX, Solaris,
SunOS, System V R3, System V R4, Tru64 Unix, Unixware, Xenix, and many
support on a platform that does not have TCP/IP header files and
libraries (and even if Kermit does include TCP/IP support, it
can't be used to make TCP/IP connections on a computer that does
-not have a TCP/IP stack installed). If your version of lacks
-C\(hyKermit a feature mentioned here, use its SHOW FEATURES command to
+not have a TCP/IP stack installed). If your version of
+C\(hyKermit lacks a feature mentioned here, use its SHOW FEATURES command to
see what might have been excluded.
.PP
C\(hyKermit has three kinds of commands: regular single\(hyletter command\(hyline
.TP
\-8
(digit eight) Connection is 8\(hybit clean (this is the
-default in C\(hyKermit 8.0). Equivalent to the EIGHTBIT
+default in C\(hyKermit 8.0 and later). Equivalent to the EIGHTBIT
command, which in turn is a shortcut for SET TERMINAL
BYTESIZE 8, SET COMMAND BYTESIZE 8, SET PARITY NONE.
.TP
Sends all files that match.
.TP
RESEND [ options ] filespec
-Resumes an interupted SEND from the point of failure.
+Resumes an interrupted SEND from the point of failure.
.TP
RECEIVE [ options ] [ as\(hyname ]
Waits passively for files to arrive. Synonym: R.
Sends all files that match.
.TP
RESEND [ options ] filespec
-Resumes an interupted SEND from the point of failure.
+Resumes an interrupted SEND from the point of failure.
.TP
GET [ options ] remote\(hyfilespec
Asks the server to send the given files. Synonym: G.
pages, ISBN 1\-55558\-164\-1. This is a printed book. It covers C\(hyKermit 6.0.
.TP
The C\(hyKermit 7.0 Supplement
-http://www.columbia.edu/kermit/ckermit2.html
+http://www.columbia.edu/kermit/ckermit70.html
.TP
The C\(hyKermit 8.0 Supplement
-http://www.columbia.edu/kermit/ckermit3.html
+http://www.columbia.edu/kermit/ckermit80.html
+.TP
+The C\(hyKermit 9.0 Supplement
+http://www.columbia.edu/kermit/ckermit90.html
.PP
Visit C\(hyKermit home page:
.sp
world.
.TP
Documentation
-Frank da Cruz and Christine M Gianone
+Frank da Cruz
.TP
Address
.nf
+char *ckptyv = "Pseudoterminal support, 9.0.101, 13 Jun 2011";
+
/* C K U P T Y -- C-Kermit pseudoterminal control functions for UNIX */
+/* Last update: Mon Jun 13 11:32:52 2011 */
+
/*
Copyright 1995 by the Massachusetts Institute of Technology.
Jeffrey Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
November 1999
+
+ Parameterized for pty file descriptor and function code,
+ Frank da Cruz, Columbia University, New York City
+ Dec 2006 - Sep 2009
*/
/*
. HP-UX 9.00 and later
. IRIX 6.0 and later
. Linux
+ . Mac OS X 10.4
. NeXTSTEP 3.x
+ . OpenBSD
. QNX 4.25 (except PTY process termination not detected)
. SCO OSR5.0.5
. SCO Unixware 7
. Solaris 2.x and 7
. SunOS 4.1.3
- Included but not tested yet in:
- . Macintosh OSX, OpenBSD, and any other BSD44-based system not listed above
-
Failures include:
. SCO UNIX 3.2v4.2 (compile fails with syntax error in <memory.h>)
. HP-UX 8.00 and earlier (no vhangup or ptsname routines)
#else /* (rest of this module...) */
-char * ptyver = "PTY support 8.0.014, 20 Aug 2002";
+char * ptyver = "PTY support 8.0.016, 22 Aug 2007";
/* These will no doubt need adjustment... */
#define HAVE_TTYNAME
#define HAVE_WAITPID
+#ifdef SUNOS41
+#define BSD44ORPOSIX
+#endif /* SUNOS41 */
+
#ifndef USE_TERMIO
#ifdef LINUX
#define USE_TERMIO
#ifdef HAVE_TTY_H
#include <tty.h>
#endif /* HAVE_TTY_H */
+
/*
Because of the way ptyibuf is used with streams messages, we need
ptyibuf+1 to be on a full-word boundary. The following weirdness
#endif /* USE_TERMIO */
-extern int ttyfd; /* Standard Kermit usage */
+#ifdef QNX /* 299 */
+#ifndef IXANY
+#define IXANY 0
+#endif /* IXANY */
+#endif /* QNX */
+
static int msg = 0;
+/* Variables available to other modules */
+
+int pty_fork_active = 0; /* pty fork is active */
+PID_T pty_fork_pid = -1; /* pty fork pid */
+int pty_slave_fd = -1; /* pty slave file descriptor */
+int pty_master_fd = -1; /* pty master file descriptor */
+
/* termbuf routines (begin) */
/*
init_termbuf()
set_termbuf() writes the structure into the kernel.
*/
VOID
-init_termbuf() {
+init_termbuf(fd) int fd; {
+ int ttyfd;
int rc = 0;
+
+ ttyfd = fd;
+
+#ifdef HAVE_STREAMS
+ debug(F100,"init_termbuf HAVE_STREAMS","",0);
+#else
+ debug(F100,"init_termbuf HAVE_STREAMS NOT DEFINED","",0);
+#endif /* HAVE_STREAMS */
+#ifdef STREAMSPTY
+ debug(F100,"init_termbuf STREAMSPTY","",0);
+#else
+ debug(F100,"init_termbuf STREAMSPTY NOT DEFINED","",0);
+#endif /* STREAMSPTY */
+#ifdef INIT_SPTY
+ debug(F100,"init_termbuf INIT_SPTY","",0);
+#else
+ debug(F100,"init_termbuf INIT_SPTY NOT DEFINED","",0);
+#endif /* INIT_SPTY */
+
+ debug(F101,"init_termbuf ttyfd","",ttyfd);
+#ifdef INIT_SPTY
+ debug(F101,"init_termbuf spty","",spty);
+#endif /* INIT_SPTY */
+
memset(&termbuf,0,sizeof(termbuf));
memset(&termbuf2,0,sizeof(termbuf2));
#ifndef USE_TERMIO
#endif /* TIOCPKT_IOCTL */
VOID
-set_termbuf() { /* Only make the necessary changes. */
+set_termbuf(fd) int fd; { /* Only make the necessary changes. */
+ int x;
+ int ttyfd;
+ ttyfd = fd;
+
+ debug(F101,"set_termbuf ttyfd","",ttyfd);
+#ifdef INIT_SPTY
+ debug(F101,"set_termbuf spty","",spty);
+#endif /* INIT_SPTY */
+
#ifndef USE_TERMIO
+ debug(F100,"set_termbuf USE_TERMIO","",0);
if (memcmp((char *)&termbuf.sg, (char *)&termbuf2.sg, sizeof(termbuf.sg)))
ioctl(ttyfd, TIOCSETN, (char *)&termbuf.sg);
if (memcmp((char *)&termbuf.tc, (char *)&termbuf2.tc, sizeof(termbuf.tc)))
if (termbuf.lflags != termbuf2.lflags)
ioctl(ttyfd, TIOCLSET, (char *)&termbuf.lflags);
#else /* USE_TERMIO */
- if (memcmp((char *)&termbuf, (char *)&termbuf2, sizeof(termbuf))) {
+ x = memcmp((char *)&termbuf, (char *)&termbuf2, sizeof(termbuf));
+ debug(F101,"set_termbuf !USE_TERMIO memcmp","",x);
+ x = 1; /* Force this */
+ if (x) {
int x;
errno = 0;
#ifdef INIT_SPTY
+ debug(F100,"set_termbuf INIT_SPTY","",0);
x = tcsetattr(spty, TCSANOW, &termbuf);
debug(F111,"set_termbuf tcsetattr(spty)",ckitoa(x),errno);
#else
+ debug(F100,"set_termbuf !INIT_SPTY","",0);
x = tcsetattr(ttyfd, TCSANOW, &termbuf);
debug(F111,"set_termbuf tcsetattr(ttyfd)",ckitoa(x),errno);
#endif /* INIT_SPTY */
/*
This routine is called twice. It's not particularly important that the
- setsid() or TIOCSTTY ioctls succeed (they may not the second time), but
+ setsid() or TIOCSCTTY ioctls succeed (they may not the second time), but
rather that we have a controlling terminal at the end. It is assumed that
vhangup doesn't exist and confuse the process's notion of controlling
terminal on any system without TIOCNOTTY. That is, either vhangup() leaves
return errno;
case 0:
ptyint_void_association();
- if (retval = (pty_open_ctty(slave, &fd)))
+ if (retval = (pty_open_ctty(slave, &fd, -1)))
exit(retval);
ptyint_vhangup();
exit(0);
#ifdef HAVE_OPENPTY
int slavefd;
+ pty_master_fd = -1;
debug(F100,"HAVE_OPENPTY","",0);
if (openpty(fd,
&slavefd,
(struct termios *)0,
(struct winsize *)0
)
- )
- return(1);
+ ) {
+ pty_master_fd = *fd;
+ return(1);
+ }
close(slavefd);
return(0);
debug(F110,"pty_getpty()","open(/dev/pty) success",0);
have_fd:
+ /* This would be the pty master */
+ debug(F101,"pty_getpty fd(A)","",*fd);
if (*fd >= 0) {
+ pty_master_fd = *fd;
+
#ifdef HAVE_GRANTPT
#ifdef HAVE_PTMX
debug(F100,"HAVE_GRANTPT","",0);
p = ttyname(*fd);
debug(F110,"pty_getpty() ttyname()",p,0);
#else
- /* XXX If we don't have either what do we do? */
+ /* If we don't have either what do we do? */
return(PTY_GETPTY_NOPTY); /* punt */
#endif /* HAVE_TTYNAME */
#endif /* HAVE_PTSNAME */
break;
for (i = 0; i < 16; i++) {
slavebuf[sizeof("/dev/ptyp") - 1] = "0123456789abcdef"[i];
+ errno = 0;
*fd = open(slavebuf, O_RDWR|O_NDELAY);
- if (*fd < 0)
- continue;
- debug(F110,"pty_getpty() found pty master",slavebuf,0);
+ if (*fd < 0) {
+ debug(F111,"pty_getpty() pty master open error",
+ slavebuf,errno);
+ continue;
+ }
+ debug(F111,"pty_getpty() found pty master",slavebuf,*fd);
slavebuf[sizeof("/dev/") - 1] = 't'; /* got pty */
if (strlen(slavebuf) > slavelength -1) {
close(*fd);
*fd = -1;
return(PTY_GETPTY_SLAVE_TOOLONG);
}
- debug(F110,"pty_getpty() slavebuf [2]",slavebuf,0);
ckstrncpy(slave, slavebuf, slavelength);
+ debug(F110,"pty_getpty slave name",slave,0);
+ pty_master_fd = *fd;
return(0);
}
}
/*
This routine is called twice. It's not particularly important that the
- setsid() or TIOCSTTY ioctls succeed (they may not the second time), but
+ setsid() or TIOCSCTTY ioctls succeed (they may not the second time), but
rather that we have a controlling terminal at the end. It is assumed that
vhangup doesn't exist and confuse the process's notion of controlling
terminal on any system without TIOCNOTTY. That is, either vhangup() leaves
effect controlling terminals, so this condition is met.
*/
long
-pty_open_ctty(slave, fd) char * slave; int *fd; {
+pty_open_ctty(slave, fd, fc) char * slave; int *fd; int fc; {
int retval;
debug(F110,"pty_open_ctty() slave",slave,0);
);
return(retval);
}
-
#ifdef MUST_SETPGRP
/*
The Ultrix (and other BSD tty drivers) require the process group
to be zero in order to acquire the new tty as a controlling tty.
*/
setpgrp(0,0);
+ debug(F101,"pty_open_ctty MUST_SETPGRP setpgrp(0,0)","",errno);
#endif /* MUST_SETPGRP */
errno = 0;
*fd = open(slave, O_RDWR);
+ debug(F111,"pty_open_ctty open(slave) fd",slave,*fd);
if (*fd < 0) {
debug(F111,"pty_open_ctty() open failure", slave, errno);
return(PTY_OPEN_SLAVE_OPENFAIL);
}
+#ifdef SOLARIS
+ /* This forces the job to have a controlling terminal. */
+ close(*fd);
+ *fd = open(slave, O_RDWR);
+ debug(F111,"pty_open_ctty close/open(slave) fd",slave,*fd);
#ifdef DEBUG
- else if (deblog) {
- debug(F110, "pty_open_ctty() open ok", slave, 0);
+ /* This shows that /dev/tty exists */
+if (deblog) {
+ int x;
+ x = open("/dev/tty", O_RDWR);
+ debug(F111,"pty_open_ctty open(/dev/tty) fd",slave,x);
+ if (x < 0) debug(F111,"pty_open_ctty open(/dev/tty) errno","",errno);
+ debug(F110,"pty_open_ctty ttyname(/dev/tty)",ttyname(x),0);
+ if (x > -1) close(x);
}
-#endif /* DEBUG */
+#endif /* DEBUG */
+#endif /* SOLARIS */
#ifdef MUST_SETPGRP
setpgrp(0, getpid());
#endif /* MUST_SETPGRP */
#ifdef TIOCSCTTY
- errno = 0;
- retval = ioctl(*fd, TIOCSCTTY, 0); /* Don't check return.*/
- debug(F111,"pty_open_ctty() ioctl TIOCSCTTY",ckitoa(retval),errno);
-#endif /* TIOCSTTY */
+ if (
+#ifdef COMMENT
+ fc == 0
+#else
+ 1
+#endif /* COMMENT */
+ ) {
+ /* TIOCSCTTY = Make this the job's controlling terminal */
+ errno = 0;
+ retval = ioctl(*fd, TIOCSCTTY, 0); /* Don't check return.*/
+ debug(F111,"pty_open_ctty() ioctl TIOCSCTTY",ckitoa(retval),errno);
+ }
+#endif /* TIOCSCTTY */
return(0L);
}
long
-pty_open_slave(slave, fd) char *slave; int *fd; {
+pty_open_slave(slave, fd, fc) char *slave; int *fd; int fc; {
int vfd, testfd;
long retval;
#ifdef CK_POSIX_SIG
use a descriptor if we can.
*/
#ifdef VHANG_FIRST
- if ((retval = pty_open_ctty(slave, &vfd)) != 0) {
+ if ((retval = pty_open_ctty(slave, &vfd, fc)) != 0) {
debug(F111,
"pty_open_slave() VHANG_FIRST",
"pty_open_ctty() failed",
/* Open the pty for real. */
- retval = pty_open_ctty(slave, fd);
+ retval = pty_open_ctty(slave, fd, fc);
+ debug(F111,"pty_open_slave retval",slave,retval);
+ debug(F111,"pty_open_slave fd",slave,*fd);
if (retval != 0) {
debug(F111,"pty_open_slave()","pty_open_ctty() failed",retval);
return(PTY_OPEN_SLAVE_OPENFAIL);
}
+ pty_slave_fd = *fd; /* This is not visible to the upper fork */
+ debug(F111,"pty_open_slave fd ctty'd",slave,pty_slave_fd);
retval = pty_initialize_slave(*fd);
+ debug(F111,"pty_open_slave fd init'd",slave,pty_slave_fd);
if (retval) {
debug(F111,"pty_open_slave()","pty_initialize_slave() failed",retval);
return(retval);
}
-#ifndef NO_DEVTTY
- errno = 0;
- testfd = open("/dev/tty", O_RDWR|O_NDELAY);
- if (testfd < 0) {
- debug(F111,"pty_open_slave() open failed","/dev/tty",errno);
- close(*fd);
- *fd = -1;
- return(PTY_OPEN_SLAVE_NOCTTY);
- }
- close(testfd);
-#endif /* NO_DEVTTY */
- debug(F110,"pty_open_slave()","success",0);
+ /* (VOID)pty_make_raw(*fd); */
+
+ debug(F100,"pty_open_slave OK","",*fd);
return(0L);
}
close(fd);
}
#endif /* HAVE_UPDWTMP */
- return(0); /* no current failure cases; file not found is not failure!*/
+ return(0); /* no current failure cases; file not found is not failure! */
}
#endif /* WANT_UTMP */
-static char Xline[17] = { 0, 0 };
-int pty_fork_pid = -1;
+/* This is for ancient Unixes that don't have these tty symbols defined. */
+
+#ifndef PENDIN
+#define PENDIN ICANON
+#endif /* PENDIN */
+#ifndef FLUSHO
+#define FLUSHO ICANON
+#endif /* FLUSHO */
+#ifndef IMAXBEL
+#define IMAXBEL ICANON
+#endif /* IMAXBEL */
+#ifndef EXTPROC
+#define EXTPROC ICANON
+#endif /* EXTPROC */
+static char Xline[17] = { 0, 0 };
/*
getptyslave()
Open the slave side of the pty, and do any initialization that is necessary.
- The return value is a file descriptor for the slave side.
+ The return value fd is a file descriptor for the slave side.
+ fc = function code from do_pty() (q.v.)
*/
int
-getptyslave() {
+getptyslave(fd, fc) int * fd, fc; {
+ int ttyfd;
int t = -1;
long retval;
#ifdef TIOCGWINSZ
extern int cmd_rows, cmd_cols;
#endif /* TIOCGWINSZ */
- debug(F100,"getptyslave()","",0);
-
+ ttyfd = *fd;
+ debug(F111,"getptyslave()","ttyfd",ttyfd);
/*
* Opening the slave side may cause initilization of the
* kernel tty structure. We need remember the state of:
* terminal speed
* so that we can reset them if we need to.
*/
- if ((retval = pty_open_slave(Xline, &t)) != 0) {
+ if ((retval = pty_open_slave(Xline, &t, fc)) != 0) {
perror(Xline);
msg++;
debug(F111,"getptyslave()","Unable to open slave",retval);
return(-1);
}
-
- debug(F111,"getptyslave","ttyfd",ttyfd);
debug(F111,"getptyslave","t",t);
#ifdef INIT_SPTY
spty = t;
+ debug(F111,"getptyslave","spty",spty);
#endif /* INIT_SPTY */
#ifdef STREAMSPTY
if (ioctl(t,I_PUSH,"pckt") < 0) {
#endif /* STREAMSPTY */
/* Set up the tty modes as we like them to be. */
- init_termbuf();
+#ifdef COMMENT
+ /* Originally like this... But this is the master - we want the slave */
+ /* Anyway, this fails on Solaris and probably other System V OS's */
+ init_termbuf(ttyfd);
+#else
+ init_termbuf(t);
+#endif /* COMMENT */
#ifdef TIOCGWINSZ
if (cmd_rows || cmd_cols) {
memset((char *)&ws, 0, sizeof(ws));
ws.ws_col = cmd_cols;
ws.ws_row = cmd_rows;
+ debug(F101,"getptyslave() doing TIOCSWINSZ...","",t);
ioctl(t, TIOCSWINSZ, (char *)&ws);
}
#endif /* TIOCGWINSZ */
- /* Settings for sgtty based systems */
+ /* For external protocols, put the pty in no-echo mode */
+ if (fc == 1) {
+ debug(F100,"getptyslave() setting rawmode","",0);
+ /* iflags */
+ termbuf.c_iflag &= ~(PARMRK|ISTRIP|BRKINT|INLCR|IGNCR|ICRNL);
+ termbuf.c_iflag &= ~(INPCK|IGNPAR|IMAXBEL|IXANY|IXON|IXOFF);
+ termbuf.c_iflag |= IGNBRK;
+#ifdef IUCLC
+ termbuf.c_iflag &= ~IUCLC;
+#endif /* IUCLC */
+
+ /* oflags */
+ termbuf.c_oflag &= ~OPOST;
+#ifdef OXTABS
+ termbuf.c_oflag &= ~OXTABS;
+#endif /* OXTABS */
+#ifdef ONOCR
+ termbuf.c_oflag &= ~ONOCR;
+#endif /* ONOCR */
+#ifdef ONLRET
+ termbuf.c_oflag &= ~ONLRET;
+#endif /* ONLRET */
+#ifdef ONLCR
+ termbuf.c_oflag &= ~ONLCR;
+#endif /* ONLCR */
+
+ /* lflags */
+ termbuf.c_lflag &= ~ECHO;
+#ifdef ECHOE
+ termbuf.c_lflag &= ~ECHOE;
+#endif /* ECHOE */
+#ifdef ECHONL
+ termbuf.c_lflag &= ~ECHONL;
+#endif /* ECHONL */
+#ifdef ECHOPRT
+ termbuf.c_lflag &= ~ECHOPRT;
+#endif /* ECHOPRT */
+#ifdef ECHOKE
+ termbuf.c_lflag &= ~ECHOKE;
+#endif /* ECHOKE */
+#ifdef ECHOCTL
+ termbuf.c_lflag &= ~ECHOCTL;
+#endif /* ECHOCTL */
+#ifdef ALTWERASE
+ termbuf.c_lflag &= ~ALTWERASE;
+#endif /* ALTWERASE */
+#ifdef EXTPROC
+ termbuf.c_lflag &= ~EXTPROC;
+#endif /* EXTPROC */
+ termbuf.c_lflag &= ~(ICANON|ISIG|IEXTEN|TOSTOP|FLUSHO|PENDIN);
+
+#ifdef NOKERNINFO
+ termbuf.c_lflag |= NOKERNINFO;
+#endif /* NOKERNINFO */
+ /* termbuf.c_lflag |= NOFLSH; */
+ termbuf.c_lflag &= ~NOFLSH;
+
+ /* cflags */
+ termbuf.c_cflag &= ~(CSIZE|PARENB|PARODD);
+ termbuf.c_cflag |= CS8|CREAD;
+#ifdef VMIN
+ termbuf.c_cc[VMIN] = 1;
+#endif /* VMIN */
+ } else { /* Regular interactive use */
+ debug(F100,"getptyslave() setting cooked mode","",0);
+
+ /* Settings for sgtty based systems */
#ifndef USE_TERMIO
- termbuf.sg.sg_flags |= CRMOD|ANYP|ECHO|XTABS;
+ termbuf.sg.sg_flags |= CRMOD|ANYP|ECHO|XTABS;
#endif /* USE_TERMIO */
#ifndef OXTABS
#define OXTABS 0
#endif /* OXTABS */
- /* Settings for UNICOS and HPUX */
+ /* Settings for UNICOS and HPUX */
#ifdef CRAY
- termbuf.c_oflag = OPOST|ONLCR|TAB3;
- termbuf.c_iflag = IGNPAR|ISTRIP|ICRNL|IXON;
- termbuf.c_lflag = ISIG|ICANON|ECHO|ECHOE|ECHOK;
- termbuf.c_cflag = EXTB|HUPCL|CS8;
+ termbuf.c_oflag = OPOST|ONLCR|TAB3;
+ termbuf.c_iflag = IGNPAR|ISTRIP|ICRNL|IXON;
+ termbuf.c_lflag = ISIG|ICANON|ECHO|ECHOE|ECHOK;
+ termbuf.c_cflag = EXTB|HUPCL|CS8;
#else /* CRAY */
#ifdef HPUX
- termbuf.c_oflag = OPOST|ONLCR|TAB3;
- termbuf.c_iflag = IGNPAR|ISTRIP|ICRNL|IXON;
- termbuf.c_lflag = ISIG|ICANON|ECHO|ECHOE|ECHOK;
- termbuf.c_cflag = EXTB|HUPCL|CS8;
+ termbuf.c_oflag = OPOST|ONLCR|TAB3;
+ termbuf.c_iflag = IGNPAR|ISTRIP|ICRNL|IXON;
+ termbuf.c_lflag = ISIG|ICANON|ECHO|ECHOE|ECHOK;
+ termbuf.c_cflag = EXTB|HUPCL|CS8;
#else /* HPUX */
#ifdef USE_TERMIO
- /*
- Settings for all other termios/termio based systems, other than 4.4BSD.
- In 4.4BSD the kernel does the initial terminal setup.
- */
+ /*
+ Settings for all other termios/termio based systems, other than
+ 4.4BSD. In 4.4BSD the kernel does the initial terminal setup.
+ */
#ifdef BSD42
#ifndef BSD44
- termbuf.c_lflag |= ECHO|ICANON|IEXTEN|ISIG;
- termbuf.c_oflag |= ONLCR|OXTABS|OPOST;
- termbuf.c_iflag |= ICRNL|IGNPAR;
- termbuf.c_cflag |= HUPCL;
- termbuf.c_iflag &= ~IXOFF;
+ termbuf.c_lflag |= ECHO|ICANON|IEXTEN|ISIG;
+ termbuf.c_oflag |= ONLCR|OXTABS|OPOST;
+ termbuf.c_iflag |= ICRNL|IGNPAR;
+ termbuf.c_cflag |= HUPCL;
+ termbuf.c_iflag &= ~IXOFF;
#endif /* BSD44 */
#else /* BSD42 */
- termbuf.c_lflag |= ECHO|ICANON|IEXTEN|ISIG;
- termbuf.c_oflag |= ONLCR|OXTABS|OPOST;
- termbuf.c_iflag |= ICRNL|IGNPAR;
- termbuf.c_cflag |= HUPCL;
- termbuf.c_iflag &= ~IXOFF;
+ termbuf.c_lflag |= ECHO|ICANON|IEXTEN|ISIG;
+ termbuf.c_oflag |= ONLCR|OXTABS|OPOST;
+ termbuf.c_iflag |= ICRNL|IGNPAR;
+ termbuf.c_cflag |= HUPCL;
+ termbuf.c_iflag &= ~IXOFF;
#endif /* BSD42 */
#endif /* USE_TERMIO */
#endif /* HPUX */
#endif /* CRAY */
+ }
- set_termbuf(); /* Set the tty modes, and make this our controlling tty. */
+ /* Set the tty modes, and make this our controlling tty. */
+#ifdef COMMENT
+ /* But this is the master - we want the slave */
+ set_termbuf(ttyfd);
+#else
+ set_termbuf(t);
+#endif /* COMMENT */
if (t != 0)
dup2(t, 0);
if (t != 1)
dup2(t, 1);
- if (t != 2)
- dup2(t, 2);
+ if (t != 2) {
+ if (fc == 0) {
+ dup2(t, 2);
+ } else if (fc == 1) {
+ /* For external protocols, send stderr to /dev/null */
+#ifdef COMMENT
+ int xx;
+#ifndef COMMENT
+ char * s = "/dev/null";
+ errno = 0;
+ xx = open(s, O_WRONLY);
+#else
+ char * s = "pty.log";
+ errno = 0;
+ xx = open(s, O_CREAT, 0644);
+#endif /* COMMENT */
+ debug(F111,"getptyslave redirect stderr",s,errno);
+ dup2(xx,2);
+#endif /* COMMENT */
+ }
+ }
if (t > 2)
close(t);
if (ttyfd > 2) {
close(ttyfd);
ttyfd = -1;
+ *fd = ttyfd;
}
return(0);
}
if (!q) return;
args = q->a_head + 1;
+
+#ifdef DEBUG
+ {
+ int i, n;
+ n = q->a_size;
+ for (i = 0; i <= n; i++) {
+ if (!args[i]) {
+ debug(F111,"exec_cmd arg","NULL",i);
+ break;
+ } else {
+ debug(F111,"exec_cmd arg",args[i],i);
+ if (i == n && args[i]) {
+ debug(F101,"exec_cmd SUBSTITUTING NULL","",i);
+ if (strlen(args[i]) == 0)
+ makestr(&(args[i]),NULL);
+ }
+
+ }
+ }
+ }
+#endif /* DEBUG */
+
execvp(args[0],args);
}
/* Get a pty, scan input lines. */
+/* fc = 0 for interactive access; fc = 1 for running external protocols */
+
+static int pty_fc = -1; /* Global copy of fc */
int
-do_pty(cmd) char * cmd; {
+do_pty(fd, cmd, fc) int * fd; char * cmd; int fc; {
long retval;
int syncpipe[2];
- int i;
+ int i, ttyfd;
#ifdef HAVE_PTYTRAP
int x;
#endif /* HAVE_PTYTRAP */
+ debug(F101,"CKUPTY.C do_pty fc","",fc);
+
+ ttyfd = *fd;
+
+ pty_master_fd = -2;
+ pty_slave_fd = -2;
+ pty_fork_pid = -2;
+
msg = 0; /* Message counter */
pty_init(); /* Find an available pty to use. */
errno = 0;
if (msg++ == 0)
perror(Xline);
debug(F111,"do_pty()","pty_getpty() fails",retval);
+ *fd = ttyfd;
return(-1);
}
- debug(F110,"do_pty() Xline",Xline,0);
+ *fd = ttyfd;
+ debug(F111,"do_pty() Xline",Xline,ttyfd);
#ifdef SIGTTOU
/*
return(-1);
}
pty_fork_pid = i; /* So we can clean it up later */
+ pty_fork_active = 1;
debug(F101,"do_pty pty_fork_pid","",pty_fork_pid);
#ifdef HAVE_PTYTRAP
/* HPUX does not allow the master to read end of file. */
debug(F111,"do_pty()","synchronized - pty_fork_pid",pty_fork_pid);
close(syncpipe[0]);
} else {
+ int x;
+ debug(F101,"do_pty getptyslave ttyfd A","",ttyfd);
debug(F110,"do_pty()","Slave starts",0);
- if (getptyslave() == 0) {
+ x = getptyslave(&ttyfd,fc);
+ debug(F101,"do_pty getptyslave","",x);
+ if (x == 0) {
+ debug(F101,"do_pty getptyslave ttyfd B","",ttyfd);
#ifdef WANT_UTMP
pty_update_utmp(PTY_USER_PROCESS,
getpid(),
close(syncpipe[0]);
close(syncpipe[1]);
+ debug(F110,"do_pty cmd",cmd,"");
exec_cmd(cmd);
debug(F111,"do_pty()","exec_cmd() returns - why?",errno);
}
+ *fd = ttyfd;
debug(F110,"do_pty()","getptyslave() fails - exiting",0);
exit(1);
}
- return(0);
+ *fd = ttyfd;
+ pty_fc = fc;
+ return(getpid());
} /* end of do_pty() */
VOID
end_pty() {
msg = 0; /* Message counter */
+ debug(F101,"end_pty pty_fork_pid","",pty_fork_pid);
if (Xline[0] && pty_fork_pid >= 0) {
pty_cleanup(Xline,pty_fork_pid,1);
Xline[0] = '\0';
pty_fork_pid = -1;
+ pty_fork_active = 0;
+ debug(F101,"end_pty pty_fork_active","",pty_fork_active);
}
+ pty_fc = -1;
}
#endif /* NETPTY */
#include <stdio.h>
#include <sys/stat.h>
+#ifndef SUNOS41
#include <sys/ioctl.h>
+#endif /* SUNOS41 */
#include <sys/file.h>
#include <sys/time.h>
#include <ctype.h>
#endif /* HAVE_SYS_PTYVAR_H */
#endif /* HAVE_STREAMS */
+#ifdef COMMENT
+/* This block moved to ckcdeb.h */
+#ifndef NO_OPENPTY
+/* For NetBSD, see makefile */
+#ifndef HAVE_OPENPTY
+#ifdef __FreeBSD__
+#define HAVE_OPENPTY
+#else
+#ifdef MACOSX10
+#define HAVE_OPENPTY
+#endif /* MACOSX10 */
+#endif /* __FreeBSD__ */
+#endif /* HAVE_OPENPTY */
+#endif /* NO_OPENPTY */
+#endif /* COMMENT */
+
#ifdef HAVE_VHANGUP
#ifndef OPEN_CTTY_ONLY_ONCE
/*
_PROTOTYP(long pty_init,(void));
_PROTOTYP(long pty_getpty, ( int *, char *, int));
-_PROTOTYP(long pty_open_slave, (char *, int *));
-_PROTOTYP(long pty_open_ctty, (char *, int *));
+_PROTOTYP(long pty_open_slave, (char *, int *, int));
+_PROTOTYP(long pty_open_ctty, (char *, int *, int));
_PROTOTYP(long pty_initialize_slave, (int));
#ifdef WANT_UTMP
_PROTOTYP(long pty_update_utmp, (int, int, char *, char *, char *, int));
#define __LIBPTY_H__
#endif /* __LIBPTY_H__ */
+
#ifndef NOICP
#ifndef NOSCRIPT
-char *loginv = "Script Command, 8.0.032, 20 Dec 2001";
+char *loginv = "Script Command, 9.0.032, 16 Oct 2009";
/* C K U S C R -- expect-send script implementation */
/*
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
+char *ckusigv = "Signal support, 9.0.100, 16 Oct 2009";
+
/* C K U S I G -- Kermit signal handling for Unix and OS/2 systems */
/*
Author: Jeffrey Altman (jaltman@secure-endpoints.com),
Secure Endpoints Inc., New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
Author: Jeffrey E Altman (jaltman@secure-endpoints.com),
Secure Endpoints Inc., New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
+#define CKUTIO_C
+
#ifdef aegis
-char *ckxv = "Aegis Communications support, 8.0.303, 17 Apr 2004";
+char *ckxv = "Aegis Communications support, 9.0.326, 20 August 2011";
#else
#ifdef Plan9
-char *ckxv = "Plan 9 Communications support, 8.0.303, 17 Apr 2004";
+char *ckxv = "Plan 9 Communications support, 9.0.326, 20 August 2011";
#else
-char *ckxv = "UNIX Communications support, 8.0.303, 17 Apr 2004";
+char *ckxv = "UNIX Communications support, 9.0.326, 20 August 2011";
#endif /* Plan9 */
#endif /* aegis */
Author: Frank da Cruz (fdc@columbia.edu),
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
*/
extern int nettype; /* Defined in ckcmai.c */
+extern int duplex;
/* Includes */
#endif /* CK_ANSIC */
#endif /* OSF13 */
-#include <errno.h> /* System error numbers */
+#ifndef HPUXPRE65
+#include <errno.h> /* Error number symbols */
+#else
+#ifndef ERRNO_INCLUDED
+#include <errno.h> /* Error number symbols */
+#endif /* ERRNO_INCLUDED */
+#endif /* HPUXPRE65 */
#ifdef __386BSD__
#define ENOTCONN 57
#endif /* FT21 */
#endif /* MAXNAMLEN */
#endif /* BSD4 */
+
+#ifdef SUNOS41 /* From Christian Corti */
+#define BSD44ORPOSIX /* Uni Stuttgart */
+#define SVORPOSIX /* February 2010 */
+#include <termios.h>
+#include <sys/ioctl.h>
+#include <unistd.h>
+#include <limits.h>
+#endif /* SUNOS41 */
+
+#ifdef SNI542
+#include <sys/filio.h> /* 299 for FIONREAD */
+#endif /* SNI542 */
+
/*
Minix 2.0 support added by Terry McConnell,
Syracuse University <tmc@barnyard.syr.edu>
*/
#ifdef MINIX2
#define _MINIX /* Needed for some Minix header files */
-#undef MINIX /* Old minix 1.0: used sgtty interface */
#define BSD44ORPOSIX
#define SVORPOSIX
+#ifndef MINIX3
#define DCLTIMEVAL
+#endif /* MINIX3 */
#define NOFILEH
#include <sys/types.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#endif /* CIE */
+#ifdef QNX /* 299 */
+#ifndef IXANY
+#define IXANY 0
+#endif /* IXANY */
+#endif /* QNX */
+
/* UUCP lockfile material... */
#ifndef NOUUCP
#ifdef USETTYLOCK
+#ifdef HAVE_LOCKDEV /* Red Hat baudboy/lockdev */
+/*
+ Watch out: baudboy.h references open() without making sure it has been
+ declared, resulting in warnings on at least Red Hat 7.3. It's declared in
+ fcntl.h, but we don't include that until later. In this case only, we
+ include it here, and then the second include is harmless because in Red Hat
+ Linux (the only place where you find baudboy.h) fcntl.h is protected from
+ multiple inclusion by _FCNTL_H. - fdc, 10 May 2004.
+
+ NOTE: Although Linux /usr/sbin/lockdev obviates the need for setuid or
+ setgid bits to access the lockfile, C-Kermit will still need them to access
+ the serial port itself unless the port is open for world read/write.
+ Normally setgid uucp does the trick.
+
+ Extra: HAVE_LOCKDEV has been added als openSuSE >= 11.3 doesn't use baudboy
+ but ttylock. - jb, 26 Jul 2010
+*/
+#include <fcntl.h> /* This has to come before baudboy */
#ifdef HAVE_BAUDBOY /* Red Hat baudboy/lockdev */
#include <baudboy.h>
-#else
+#else /* !HAVE_BAUDBOY */ /* openSuSE lock via ttylock */
+#include <ttylock.h>
+#endif /* HAVE_BAUDBOY */
+#define LOCK_DIR "/var/lock" /* (even though we don't care) */
+
+#else /* !HAVE_LOCKDEV */
+
#ifdef USE_UU_LOCK
#ifdef __FreeBSD__
#include <libutil.h> /* FreeBSD */
#else
#include <util.h> /* OpenBSD */
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
#endif /* __FreeBSD */
#endif /* USE_UU_LOCK */
#else /* USETTYLOCK */
#endif /* XENIX */
#ifdef CK_SCOV5 /* Ditto for SCO OpenServer 5.0 */
+#ifndef SCO_OSR507 /* 299 */
#ifdef FIONREAD
#undef FIONREAD
#endif /* FIONREAD */
-#endif /* XENIX */
+#endif /* SCO_OSR507 */
+#endif /* CK_SCOV5 */
+
+#ifdef SCO_OSR507 /* 299 */
+#ifdef RDCHK
+#undef RDCHK
+#endif /* RDCHK */
+#endif /* SCO_OSR507 */
/* Whether to include <fcntl.h> */
#define O_RDONLY 000
#endif /* O_RDONLY */
+/* This is for ancient Unixes that don't have these tty symbols defined. */
+
+#ifndef PENDIN
+#define PENDIN ICANON
+#endif /* PENDIN */
+#ifndef FLUSHO
+#define FLUSHO ICANON
+#endif /* FLUSHO */
+#ifndef EXTPROC
+#define EXTPROC ICANON
+#endif /* EXTPROC */
+
#ifdef SVORPOSIX
/*
Modem signals are also forbidden in the POSIX world. But some POSIX-based
static int le_start = 0, le_end = 0, le_data = 0;
#endif /* TTLEBUF */
+#define MSGBUF_SIZE 1024 /* For debugging */
+static char msgbuf[MSGBUF_SIZE];
+
static int gotsigs = 0;
static time_t tcount = (time_t)0; /* Elapsed time counter */
int ttpipe = 0; /* NETCMD: Use pipe instead of ttyfd */
int ttpty = 0; /* NETPTY: Use pty instead of ttfyd */
+#ifdef NETPTY /* These are in ckupty.c */
+extern PID_T pty_fork_pid;
+extern int pty_master_fd, pty_slave_fd;
+#endif /* NETPTY */
+
#ifdef NETCMD
#ifdef NETCONN
static int pipe0[2], pipe1[2]; /* Pipes for net i/o */
_PROTOTYP( static int ttchkpid, (char *) );
_PROTOTYP( static int ttlock, (char *) );
_PROTOTYP( static int ttunlck, (void) );
+_PROTOTYP( static VOID sigchld_handler, (int) );
_PROTOTYP( int mygetbuf, (void) );
_PROTOTYP( int myfillbuf, (void) );
_PROTOTYP( VOID conbgt, (int) );
/*ARGSUSED*/
SIGTYP
xtimerh(foo) int foo; { /* Like timerh() but does */
-#ifdef BEOSORBEBOX /* not reset the timer itslef */
+#ifdef BEOSORBEBOX /* not reset the timer itself */
/* #ifdef BE_DR_7 */
alarm_expired();
/* #endif */ /* BE_DR_7 */
int rc = 0;
int i = 0;
CHAR * p = (CHAR *)"le_puts";
- hexdump(p,s,n);
+ ckhexdump(p,s,n);
for (i = 0; i < n; i++)
rc = le_putchar((char)s[i]);
debug(F101,"le_puts","",rc);
CHAR * p;
int rc = 0;
p = (CHAR *)"le_putstr";
- hexdump(p,s,(int)strlen((char *)s));
+ ckhexdump(p,s,(int)strlen((char *)s));
for (p = s; *p && !rc; p++)
rc = le_putchar(*p);
return(rc);
}
+#ifdef RLOGCODE
+_PROTOTYP( int rlog_naws, (void) );
+#endif /* RLOGCODE */
+
#ifndef NOSIGWINCH
#ifdef SIGWINCH
SIGTYP
winchh(foo) int foo; { /* SIGWINCH handler */
int x = 0;
-#ifdef NETPTY
- extern int pty_fork_pid;
-#endif /* NETPTY */
#ifdef CK_TTYFD
#ifndef VMS
extern int ttyfd;
#endif /* SIGWINCH */
#endif /* NOSIGWINCH */
+#ifdef SIGXFSZ
+ signal(SIGXFSZ,SIG_IGN); /* Ignore writing past file limit */
+#endif /* SIGXFSZ */
+
#ifndef NOJC
/*
Get the initial job control state.
netconn = 1; /* but we don't use network i/o */
ttpty = 1;
debug(F110,"ttopen PTY",ttname,0);
- x = do_pty(ttname);
+ x = do_pty(&ttyfd,ttname,0);
if (x > -1) {
ckstrncpy(ttnmsv,ttname,DEVNAMLEN);
xlocal = *lcl = 1; /* It's local */
x = tthang(); /* Hang up first, then... */
debug(F101,"ttclos tthang()","",x);
}
+#ifndef CK_NOHUPCL
+/*
+ Oct 2006 - Leave DTR on if SET EXIT HANGUP OFF.
+ Suggested by Soewono Effendi.
+*/
+#ifdef HUPCL
+ else {
+ ttold.c_cflag &= ~HUPCL; /* Let's see how this travels */
+#ifdef BSD44ORPOSIX
+ tcsetattr(ttyfd,TCSANOW,&ttold);
+#else /* !BSD44ORPOSIX */
+#ifdef ATTSV
+ ioctl(ttyfd,TCSETAW,&ttold);
+#else /* !ATTSV */
+ stty(ttyfd,&ttold);
+#endif /* ATTSV */
+#endif /* BSD44ORPOSIX */
+ }
+#endif /* HUPCL */
+#endif /* CK_NOHUPCL */
}
/* Put back device modes as we found them */
int x, n;
int islink = 0;
+#ifdef __FreeBSD__
+ char *devname;
+#endif /* __FreeBSD__ */
#ifdef NOUUCP
debug(F100,"ttlock NOUUCP","",0);
#ifdef USETTYLOCK
haslock = 0; /* Not locked yet. */
*flfnam = '\0'; /* Lockfile name is empty. */
+#ifdef __FreeBSD__
+ if ((devname = xxlast(ttdev,'/')) != NULL)
+#ifdef FREEBSD8
+ ckstrncat(lockname,devname+1,DEVNAMLEN-ckstrncpy(lockname,"pts",4));
+#else
+ ckstrncpy(lockname,devname+1,DEVNAMLEN);
+#endif /* FREEBSD8 */
+#else
if (!strncmp(ttdev,"/dev/",5) && ttdev[5])
ckstrncpy(lockname,ttdev+5,DEVNAMLEN);
+#endif /* __FreeBSD__ */
else
ckstrncpy(lockname,ttdev,DEVNAMLEN);
/*
x = tcsetattr(ttyfd,TCSANOW,&temp);
debug(F111,"tthflow POSIX_CRTSCTS OFF tcsetattr",
ckitoa(x),errno);
- }
+ } else { /* John Dunlap 2010-01-26 */
+ debug(F001,
+ "tthflow before forcing off attrs CRTSCTS",
+ "",
+ attrs->c_cflag&CRTSCTS
+ );
+ attrs->c_cflag &= ~CRTSCTS; /* force it off if !status */
+ debug(F001,
+ "tthflow after forcing off attrs CRTSCTS",
+ "",
+ attrs->c_cflag&CRTSCTS
+ );
+ }
} else { /* Turn hard flow on */
if (
#ifdef COMMENT
#ifdef BEOSORBEBOX
ttraw.c_cc[VMIN] = 0; /* DR7 can only poll. */
#endif /* BEOSORBEBOX */
+
+#define TESTING234
+#ifdef TESTING234
+ if (1) {
+ debug(F100,"ttpkt TESTING234 rawmode","",0);
+
+ /* iflags */
+ ttraw.c_iflag &= ~(PARMRK|ISTRIP|BRKINT|INLCR|IGNCR|ICRNL);
+ ttraw.c_iflag &= ~(INPCK|IGNPAR|IXON|IXOFF);
+ ttraw.c_iflag |= IGNBRK;
+#ifdef IMAXBEL
+ ttraw.c_iflag &= ~IMAXBEL;
+#endif /* IMAXBEL */
+#ifdef IXANY
+ ttraw.c_iflag &= ~IXANY;
+#endif /* IXANY */
+#ifdef IUCLC
+ ttraw.c_iflag &= ~IUCLC;
+#endif /* IUCLC */
+
+ /* oflags */
+ ttraw.c_oflag &= ~OPOST;
+#ifdef OXTABS
+ ttraw.c_oflag &= ~OXTABS;
+#endif /* OXTABS */
+#ifdef ONOCR
+ ttraw.c_oflag &= ~ONOCR;
+#endif /* ONOCR */
+#ifdef ONLRET
+ ttraw.c_oflag &= ~ONLRET;
+#endif /* ONLRET */
+#ifdef ONLCR
+ ttraw.c_oflag &= ~ONLCR;
+#endif /* ONLCR */
+
+ /* lflags */
+ ttraw.c_lflag &= ~ECHO;
+#ifdef ECHOE
+ ttraw.c_lflag &= ~ECHOE;
+#endif /* ECHOE */
+#ifdef ECHONL
+ ttraw.c_lflag &= ~ECHONL;
+#endif /* ECHONL */
+#ifdef ECHOPRT
+ ttraw.c_lflag &= ~ECHOPRT;
+#endif /* ECHOPRT */
+#ifdef ECHOKE
+ ttraw.c_lflag &= ~ECHOKE;
+#endif /* ECHOKE */
+#ifdef ECHOCTL
+ ttraw.c_lflag &= ~ECHOCTL;
+#endif /* ECHOCTL */
+#ifdef ALTWERASE
+ ttraw.c_lflag &= ~ALTWERASE;
+#endif /* ALTWERASE */
+#ifdef EXTPROC
+ ttraw.c_lflag &= ~EXTPROC;
+#endif /* EXTPROC */
+ ttraw.c_lflag &= ~(ICANON|ISIG|IEXTEN|TOSTOP|FLUSHO|PENDIN);
+#ifdef NOKERNINFO
+ ttraw.c_lflag |= NOKERNINFO;
+#endif /* NOKERNINFO */
+ /* ttraw.c_lflag |= NOFLSH; */
+ ttraw.c_lflag &= ~NOFLSH;
+
+ /* cflags */
+ ttraw.c_cflag &= ~(CSIZE|PARENB|PARODD);
+ ttraw.c_cflag |= CS8|CREAD;
+#ifdef VMIN
+ ttraw.c_cc[VMIN] = 1; /* Supposedly needed for AIX */
+#endif /* VMIN */
+
+ }
+#endif /* TESTING234 */
+
debug(F100,"ttpkt calling tcsetattr(TCSETAW)","",0);
x = tcsetattr(ttyfd,TCSADRAIN,&ttraw);
debug(F101,"ttpkt BSD44ORPOSIX tcsetattr","",x);
#else /* Not USETCSETSPEED */
-#ifdef MINIX2 /* Hack alert */
-#define MINIX /* Use pre-2.0 speed selection for Minix 2.0 as well */
-#endif /* MINIX2 */
-
/* First check that the given speed is valid. */
switch (cps) {
#endif /* EXTA */
#endif /* B19200 */
-#ifdef MINIX2
-/* End of hack to make MINIX2 use MINIX1 speed setting */
-#undef MINIX
-#endif /* MINIX2 */
-
#ifndef MINIX
#ifdef B38400
case B38400:
#endif /* B460800 */
#endif /* HPUX */
#ifdef B921600
- case 92160: ss = 921600L; break;
+ case B921600: ss = 921600L; break;
#endif /* B921600 */
default:
ss = -1; break;
/* myread() -- Efficient read of one character from communications line.
*
+ * NOTE: myread() and its helpers mygetbuf() and myfillbuf() return raw
+ * bytes from connection, so when the connection is encrypted, these bytes
+ * must be decrypted.
+ *
* Uses a private buffer to minimize the number of expensive read() system
* calls. Essentially performs the equivalent of read() of 1 character, which
* is then returned. By reading all available input from the system buffers
* that guarantees that there is space for at least one character. If push
* back was really needed after EOF, a small addition could provide that.
*
- * myunrd() is currently not called from anywhere inside kermit...
+ * As of 02/2007 myunrd() is used by ttinl().
*/
-#ifdef COMMENT /* not used */
-myunrd(ch) CHAR ch; {
+VOID
+#ifdef CK_ANSIC
+myunrd(CHAR ch)
+#else
+myunrd(ch) CHAR ch;
+#endif /* CK_ANSIC */
+{
if (my_item >= 0) {
mybuf[my_item--] = ch;
++my_count;
}
}
-#endif /* COMMENT */
/* T T P U S H B A C K -- Put n bytes back into the myread buffer */
#ifdef COMMENT
if (deblog) debug(F101, "mygetbuf read", "", my_count);
#else /* COMMENT */
- if (deblog) hexdump("mygetbuf read", mybuf, my_count);
+ ckhexdump("mygetbuf read", mybuf, my_count);
#endif /* COMMENT */
#endif /* DEBUG */
x = my_count;
}
#else /* BEOSORBEBOX */
errno = 0;
- debug(F100,"SVORPOSIX myfillbuf calling read()","",0);
+ /* debug(F101,"SVORPOSIX myfillbuf calling read() fd","",fd); */
#ifdef IBMX25
if (netconn && (nettype == NET_IX25)) {
/* can't use sizeof because mybuf is a pointer, and not an array! */
#ifdef CK_SSL
if (ssl_active_flag || tls_active_flag) {
int error, n = 0;
+ debug(F100,"myfillbuf calling SSL_read() fd","",0);
while (n == 0) {
if (ssl_active_flag)
n = SSL_read(ssl_con, (char *)mybuf, sizeof(mybuf));
#ifdef KRB4
#ifdef RLOGCODE
if (ttnproto == NP_EK4LOGIN) {
- if ((n = krb4_des_read(ttyfd,mybuf,sizeof(mybuf))) < 0)
+ debug(F101,"myfillbuf calling krb4_des_read() fd","",ttyfd);
+ if ((n = krb4_des_read(ttyfd,(char *)mybuf,sizeof(mybuf))) < 0)
return(-3);
else
return(n);
#ifdef KRB5
#ifdef RLOGCODE
if (ttnproto == NP_EK5LOGIN) {
- if ((n = krb5_des_read(ttyfd,mybuf,sizeof(mybuf),0)) < 0)
+ debug(F101,"myfillbuf calling krb5_des_read() fd","",ttyfd);
+ if ((n = krb5_des_read(ttyfd,(char *)mybuf,sizeof(mybuf),0)) < 0)
return(-3);
else
return(n);
#endif /* RLOGCODE */
#ifdef KRB5_U2U
if (ttnproto == NP_K5U2U) {
- if ((n = krb5_u2u_read(ttyfd,mybuf,sizeof(mybuf))) < 0)
+ debug(F101,"myfillbuf calling krb5_u2u_read() fd","",ttyfd);
+ if ((n = krb5_u2u_read(ttyfd,(char *)mybuf,sizeof(mybuf))) < 0)
return(-3);
else
return(n);
/* Special handling for HP-UX pty i/o */
ptyread:
if (ttpty && pty_trap_pending(ttyfd) > 0) {
+ debug(F101,"myfillbuf calling pty_trap_handler() fd","",ttyfd);
if (pty_trap_handler(ttyfd) > 0) {
ttclos(0);
return(-3);
}
#endif /* HAVE_PTYTRAP */
#endif /* NETPTY */
+ debug(F101,"myfillbuf calling read() fd","",ttyfd);
n = read(fd, mybuf, sizeof(mybuf));
- debug(F101,"SVORPOSIX myfillbuf","",n);
- debug(F101,"SVORPOSIX myfillbuf ttcarr","",ttcarr);
+ debug(F101,"SVORPOSIX myfillbuf read","",n);
debug(F101,"SVORPOSIX myfillbuf errno","",errno);
+ debug(F101,"SVORPOSIX myfillbuf ttcarr","",ttcarr);
if (n < 1) {
#ifdef NETPTY
#ifdef HAVE_PTYTRAP
debug(F101,"myfillbuf read","",x);
debug(F101,"myfillbuf read errno","",errno);
if (x > 0)
- hexdump("myfillbuf mybuf",mybuf,x);
+ ckhexdump("myfillbuf mybuf",mybuf,x);
}
#endif /* DEBUG */
if (x < 1) x = -3; /* read 0 == connection loss */
#endif /* MYREAD */
-#ifdef MINIX2
-#undef MINIX
-#endif /* MINIX2 */
-
/* T T _ T N O P T -- Handle Telnet negotions in incoming data */
/*
Call with the IAC that was encountered.
if (n == IAC &&
((xlocal && netconn && IS_TELNET()) ||
(!xlocal && sstelnet))) {
- extern int duplex;
extern int server;
int tx = 0;
debug(F100,"ttinl calling tn_doop()","",0);
ch = myread();
#ifdef CK_ENCRYPTION
if (TELOPT_U(TELOPT_ENCRYPTION))
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
#endif /* CK_ENCRYPTION */
if (ch == IAC)
x = tt_tnopt(ch);
#undef PGROUP_T
#endif /* MIPS */
+#ifdef MINIX
+#undef PGROUP_T
+#endif /* MINIX */
+
#ifdef PGROUP_T
/*
Semi-reliable process-group test. Check whether this process's group is
#endif /* POSIX */
#endif /* SVR3 */
-#ifdef MINIX2
-#undef BSD44ORPOSIX
-#endif /* MINIX2 */
+#ifdef MINIX
+ /* MINIX does not support job control so Kermit is always in foreground */
+ x = 0;
+
+#else /* Not MINIX */
/* Now get controlling tty's process group */
#ifdef BSD44ORPOSIX
/* debug(F101,"non-POSIX conbgt terminal process group","",(int) ctpgrp); */
#endif /* BSD44ORPOSIX */
-#ifdef MINIX2
-#define BSD44ORPOSIX
-#endif /* MINIX2 */
-
if ((mypgrp > (PID_T) 0) && (ctpgrp > (PID_T) 0))
x = (mypgrp == ctpgrp) ? 0 : 1; /* If they differ, then background. */
else x = -1; /* If error, remember. */
debug(F101,"conbgt process group test","",x);
#endif /* PGROUP_T */
+#endif /* MINIX */
/* Try to see if job control is available */
osigint = signal(SIGINT,SIG_IGN); /* What is SIGINT set to? */
sigint_ign = 1;
x = (osigint == SIG_IGN) ? 1 : 0; /* SIG_IGN? */
- debug(F101,"conbgt osigint","",osigint);
- debug(F101,"conbgt signal test","",x);
+ /* debug(F101,"conbgt osigint","",osigint); */
+ /* debug(F101,"conbgt signal test","",x); */
}
/* Also check to see if we're running with redirected stdio. */
if (ttyfd < 0) /* Not open? */
return(-3);
#ifdef DEBUG
- if (deblog) hexdump("ttol s",s,n);
+ if (deblog) {
+ /* debug(F101,"ttol ttyfd","",ttyfd); */
+ ckhexdump("ttol s",s,n);
+ }
#endif /* DEBUG */
#ifdef NETCMD
s[n] = '\0';
}
#ifdef DEBUG
- if (deblog) hexdump("ttol doubled s",s,n);
+ ckhexdump("ttol doubled s",s,n);
#endif /* DEBUG */
}
#endif /* CKXXCHAR */
#ifdef KRB5
#ifdef RLOGCODE
if (ttnproto == NP_EK5LOGIN) {
- return(krb5_des_write(ttyfd,s,n,0));
+ return(krb5_des_write(ttyfd,(char *)s,n,0));
} else
#endif /* RLOGCODE */
#ifdef KRB5_U2U
if (ttnproto == NP_K5U2U) {
- return(krb5_u2u_write(ttyfd,s,n));
+ return(krb5_u2u_write(ttyfd,(char *)s,n));
} else
#endif /* KRB5_U2U */
#endif /* KRB5 */
#ifdef KRB4
#ifdef RLOGCODE
if (ttnproto == NP_EK4LOGIN) {
- rc = (krb4_des_write(ttyfd,&c,1) == 1);
+ rc = (krb4_des_write(ttyfd,(char *)&c,1) == 1);
} else
#endif /* RLOGCODE */
#endif /* KRB4 */
/* T T I N L -- Read a record (up to break character) from comm line. */
/*
- Reads up to "max" characters from the communication line, terminating on:
+ Reads up to "max" characters from the connection, terminating on:
(a) the packet length field if the "turn" argument is zero, or
(b) on the packet-end character (eol) if the "turn" argument is nonzero
(c) a certain number of Ctrl-C's in a row
-2 on user interruption (c);
-3 on fatal error like connection lost.
- The characters that were input are copied into "dest" with their parity bits
- stripped if parity was selected. Returns the number of characters read.
- Characters after the eol are available upon the next call to this function.
+ The name of this routine dates from the early days when Kermit packets
+ were, indeed, always lines of text. That was before control-character
+ unprefixing and length-driven packet framing were introduced, which this
+ version handle. NB: this routine is ONLY for reading incoming Kermit
+ packets, nothing else. To read other kinds of incoming material, use
+ ttinc() or ttxin().
+
+ The bytes that were input are copied into "dest" with their parity bits
+ stripped if parity was selected. Returns the number of bytes read.
+ Bytes after the eol are available upon the next call to this function.
The idea is to minimize the number of system calls per packet, and also to
minimize timeouts. This function is the inner loop of the protocol and must
- be as efficient as possible. The current strategy is to use myread().
+ be as efficient as possible. The current strategy is to use myread(), a
+ macro to manage buffered (and generally nonblocking) reads.
WARNING: This function calls parchk(), which is defined in another module.
Normally, ckutio.c does not depend on code from any other module, but there
(a) to allow Kermit to be built without the automatic parity sensing feature
(b) one of each type for ANSI C, one for non-ANSI.
*/
+#ifndef NOXFER
-static int csave = -1;
+static int pushedback = 0;
-#ifndef NOXFER
int
#ifdef PARSENSE
#ifdef CK_ANSIC
ttinl(CHAR *dest, int max,int timo, CHAR eol)
#else
ttinl(dest,max,timo,eol) int max,timo; CHAR *dest, eol;
-#endif /* __SDTC__ */
+#endif /* CK_ANSIC */
#endif /* PARSENSE */
/* ttinl */ {
#endif /* STREAMING */
if (ttyfd < 0) return(-3); /* Not open. */
-
+/*
+ In February 2007 I fixed ttinl() to work better under the truly awful
+ conditions encountered by the AM-APEX oceanographic floats that gather
+ hurricane data and phone home using Iridium satellite modems, which under
+ certain conditions, can send two packets back to back after a long pause.
+ In this case the second packet would be ignored because the SOH was skipped
+ due to the ttflui() call. But the reworked lookahead/pushback logic broke
+ Kermit transfers on encrypted connections. This was fixed 12-13 August
+ 2007. All of this happened after 8.0.212 Dev.27 was released and before
+ Dev.28, so no harm done other than the delay.
+*/
debug(F101,"ttinl max","",max);
debug(F101,"ttinl timo","",timo);
while (i < max-1) {
#ifdef MYREAD
- /* debug(F101,"ttinl i","",i); */
errno = 0;
- if (csave > -1) {
- n = csave;
- debug(F101,"ttinl unsaving","",n);
- } else
-#ifdef COMMENT
- if (xlocal && conchk() > 0) {
- /* Here we could catch keyboard interruptions. */
- /* But this would be VERY expensive. */
- /* We could also do it in myread() but it would be */
- /* expensive there too -- even if done with select()... */
- }
-#endif /* COMMENT */
- if ((n = myread()) < 0) { /* Timeout or i/o error? */
+ /* On encrypted connections myread returns encrypted bytes */
+ n = myread();
+ debug(F000,"TTINL myread char","",n);
+ if (n < 0) { /* Timeout or i/o error? */
#ifdef DEBUG
if (deblog) {
debug(F101,"ttinl myread failure, n","",n);
}
#else /* not MYREAD (is this code used anywhere any more?) */
-
- if (csave > -1) /* Char saved from last time */
- ch = csave;
- else if ((n = read(fd, &ch, 1)) < 1)
+/*
+ The non-MYREAD code dates from the 1980s and was needed on certain platforms
+ where there were no nonblocking reads. -fdc, 2007/02/22.
+*/
+ if ((n = read(fd, &n, 1)) < 1)
break; /* Error - break out of while loop */
- n = ch;
#endif /* MYREAD */
/* Get here with char in n */
#ifdef CK_ENCRYPTION
- /* If csave > -1 we already decrypted this character */
- /* So don't decrypt it again */
- if (TELOPT_U(TELOPT_ENCRYPTION) && csave == -1) {
+ if (TELOPT_U(TELOPT_ENCRYPTION) && !pushedback) {
CHAR ch = n;
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
n = ch;
+ debug(F000,"TTINL decryp char","",n);
}
+ pushedback = 0;
#endif /* CK_ENCRYPTION */
- csave = -1; /* Unflag that we unsaved a char */
-
#ifdef TCPSOCKET
if (n == IAC && /* Handle Telnet options */
((xlocal && netconn && IS_TELNET()) ||
continue;
} /* Quoted IAC - keep going */
#endif /* TCPSOCKET */
+
#ifdef CKXXCHAR
if (ignflag)
if (dblt[(unsigned) n] & 1) /* Character to ignore? */
continue;
#endif /* CKXXCHAR */
-
/*
Use parity mask, rather than always stripping parity, to check for
cancellation. Otherwise, runs like \x03\x83\x03 in a packet could cancel
} else ccn = 0; /* No cancellation, reset counter, */
#ifdef PARSENSE
- if (flag == 0) { /* Find the Start-Of-Packet. */
- if ((n & sopmask) == start) { /* Got it */
- flag = 1;
- } else { /* Keep looking... */
- debug(F000,"ttinl skipping","",n);
- continue;
- }
+/*
+ Restructured code allows for a new packet to appear somewhere in the
+ middle of a previous one. -fdc, 24 Feb 2007.
+*/
+ if ((n & sopmask) == start) { /* Start of Packet */
+ debug(F101,"ttinl SOP i","",i);
+ flag = 1; /* Flag that we are in a packet */
+ havelen = 0; /* Invalidate previous length */
+ pktlen = -1; /* (if any) in case we were */
+ lplen = 0; /* alread processand a packet */
+ i = 0; /* and reset the dest buffer pointer */
+ }
+ if (flag == 0) { /* No SOP yet... */
+ debug(F000,"ttinl skipping","",n);
+ continue;
}
dest[i++] = n & ttpmsk;
/*
- If we have not been instructed to wait for a turnaround character, we
- can go by the packet length field. If turn != 0, we must wait for the
- end of line (eol) character before returning. This is an egregious
- violation of all principles of layering...
+ If we have not been instructed to wait for a turnaround character, we can go
+ by the packet length field. If turn != 0, we must wait for the end of line
+ (eol) character before returning. This is an egregious violation of all
+ principles of layering... (Less egregious in C-Kermit 9.0, in which we go
+ by the length field but also look for the eol in case it arrives early,
+ e.g. if the length field was corrupted upwards.)
*/
if (!havelen) {
if (i == 2) {
+ if ((dest[1] & 0x7f) < 32) /* Garbage in length field */
+ return(-1); /* fdc - 13 Apr 2010 */
pktlen = xunchar(dest[1] & 0x7f);
+ if (pktlen > 94) /* Rubout in length field */
+ return(-1); /* fdc - 13 Apr 2010 */
if (pktlen > 1) {
havelen = 1;
- debug(F101,"ttinl length","",pktlen);
+ debug(F101,"ttinl pktlen value","",pktlen);
}
} else if (i == 5 && pktlen == 0) {
lplen = xunchar(dest[4] & 0x7f);
/* Check for end of packet */
if (
+ ((n & ttpmsk) == eol) /* Always break on the eol char */
#ifdef PARSENSE
+ || /* fdc - see notes of 13 Apr 2010 */
/*
Purely length-driven if SET HANDSHAKE NONE (i.e. turn == 0).
This allows packet terminators and handshake characters to appear
*/
(havelen && (i > pktlen+1) &&
(!turn || (turn && (n & 0x7f) == turn))) /* (turn, not eol) */
-#else /* !PARSENSE */
-/*
- Built without PARSENSE, so just look for packet terminator.
-*/
- ((n & 0x7f) == eol)
+
#endif /* PARSENSE */
) {
+/*
+ Here we have either read the last byte of the packet based on its length
+ field, or else we have read the packet terminator (eol) or the half-duplex
+ line-turnaround char (turn).
+*/
#ifndef PARSENSE
debug(F101,"ttinl got eol","",eol); /* (or turn) */
dest[i] = '\0'; /* Yes, terminate the string, */
/* debug(F101,"ttinl i","",i); */
-#else
+
+#else /* PARSENSE */
+
#ifdef DEBUG
if (deblog) {
- if ((n & 0x7f) != eol) {
+ if ((n & ttpmsk) != eol) {
debug(F101,"ttinl EOP length","",pktlen);
- debug(F101,"ttinl i","",i);
+ debug(F000,"ttinl EOP current char","",n);
+ debug(F101,"ttinl EOP packet buf index","",i);
+ } else debug(F101,"ttinl got eol","",eol);
+ }
+#endif /* DEBUG */
+
#ifdef MYREAD
-#ifdef PARSENSE
/*
- We read a packet based on its length. This leaves the EOP character still
- unread, and so ttchk() will always return at least 1 because of this. But
- if we know it is there, we can safely get rid of it. So...
-*/
- {
- int x;
- while (my_count > 0) {
- x = ttinc(0);
- /* Start of next packet */
- if (x == start) { /* Save for next time */
- csave = (unsigned)((unsigned)x & 0xff);
- debug(F000,"ttinl csaved","",x);
- break;
- }
- debug(F000,"ttinl removed","",x);
- }
+ The packet was read based on its length. This leaves the packet terminator
+ unread, and so ttchk() will always return at least 1 because of this,
+ possibly giving a false positive to the "is there another packet waiting?"
+ test. But if we know the terminator (or any other interpacket junk) is
+ there, we can safely get rid of it.
+
+ NOTE: This code reworked to (a) execute even if the debug log isn't active;
+ and (b) actually work. -fdc, 2007/02/22. And again 2007/08/12-13 to also
+ work on encrypted connections.
+*/
+ debug(F101,"TTINL my_count","",my_count);
+ if ((n & ttpmsk) != eol) { /* Not the packet terminator */
+ int x;
+ while (my_count > 0) {
+ x = myread(); /* (was ttinc(0) */
+ debug(F000,"TTINL lkread char","",x);
+#ifdef CK_ENCRYPTION
+ if (TELOPT_U(TELOPT_ENCRYPTION)) {
+ CHAR ch = x;
+ ck_tn_decrypt((char *)&ch,1);
+ x = ch;
+ debug(F000,"TTINL lkdecr char","",x);
}
-#endif /* PARSENSE */
+#endif /* CK_ENCRYPTION */
+ /*
+ Note: while it might seem more elegant to simply
+ push back the encrypted byte, that desynchronizes
+ the decryption stream; the flag is necessary so we
+ don't try to decrypt the same byte twice.
+ */
+ if ((x & ttpmsk) == start) { /* Start of next packet */
+ myunrd(x); /* Push back the decrypted byte */
+ pushedback = 1; /* And set flag */
+ debug(F000,"TTINL lkpush char","",x);
+ break;
+ }
+ }
+ }
#endif /* MYREAD */
- } else debug(F101,"ttinl got eol","",eol); /* (or turn) */
- }
-#endif /* DEBUG */
dest[i] = '\0'; /* Terminate the string, */
if (needpchk) { /* Parity checked yet? */
if (ttprty == 0) { /* No, check. */
debug(F110,"ttinl packet after ",dest,0);
} else ttprty = 0; /* Restore if parchk error */
}
- sopmask = ttprty;
+ sopmask = ttpmsk;
needpchk = 0;
}
#endif /* PARSENSE */
- if (timo) { /* Turn off timer. */
- ttimoff();
- }
-#ifdef COMMENT
- debug(F011,"ttinl got", dest, (i < 60) ? i : -60);
-#else /* COMMENT */
- hexdump("ttinl got",dest,i);
-#endif /* COMMENT */
+
+ if (timo) /* Turn off timer if it was on */
+ ttimoff();
+ ckhexdump("ttinl got",dest,i);
+
#ifdef STREAMING
/* ttinl() was called because there was non-packet */
- /* data sitting int the channel. Ignore it. */
+ /* data sitting in the back channel. Ignore it. */
if (streaming && sndtyp == 'D')
return(-1);
#endif /* STREAMING */
/* debug(F101,"ttinc u_encrypt","",TELOPT_U(TELOPT_ENCRYPTION)); */
if (TELOPT_U(TELOPT_ENCRYPTION) && n >= 0) {
ch = n;
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
n = ch;
}
#endif /* CK_ENCRYPTION */
#ifdef CK_ENCRYPTION
if (TELOPT_U(TELOPT_ENCRYPTION) && n >= 0) {
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
}
#endif /* CK_ENCRYPTION */
if (n >= 0)
concb(esc) char esc;
#endif /* CK_ANSIC */
/* concb */ {
- int x;
+ int x, y = 0;
debug(F101,"concb constate","",constate);
debug(F101,"concb cgmf","",cgmf);
debug(F101,"concb backgrd","",backgrd);
#ifdef COHERENT
#undef SVORPOSIX
#endif /* COHERENT */
+
debug(F101,"concb x","",x);
debug(F101,"concb errno","",errno);
-#ifdef NONOSETBUF
- if (x > -1) {
- setbuf(stdout,NULL); /* Make console unbuffered. */
- debug(F100,"concb setbuf A","",0);
- }
-#else
-#ifndef aegis
-#ifndef NOSETBUF
- if (x > -1) {
- setbuf(stdout,NULL); /* Make console unbuffered. */
- debug(F100,"concb setbuf B","",0);
- }
-#endif /* NOSETBUF */
-#endif /* aegis */
-#endif /* NONOSETBUF */
#ifdef V7
#ifndef MINIX
nxpacket = 0;
}
len = len > 10240 ? len : 10240;
- xpacket = (char *)malloc(len);
+ xpacket = (CHAR *)malloc(len);
if (!xpacket) {
fprintf(stderr,"ttol malloc failure\n");
return(-1);
nxpacket = len;
}
memcpy(xpacket,s,len);
- s = xpacket;
+ s = (char *)xpacket;
ck_tn_encrypt(s,len);
}
#endif /* CK_ENCRYPTION */
#ifdef IKSD
#ifdef CK_ENCRYPTION
if (inserver && TELOPT_ME(TELOPT_ENCRYPTION))
- ck_tn_encrypt(buf,2);
+ ck_tn_encrypt((char *)buf,2);
#endif /* CK_ENCRYPTION */
#endif /* IKSD */
#ifdef CK_ENCRYPTION
debug(F100,"coninc decrypt 1","",0);
if (inserver && !local && TELOPT_U(TELOPT_ENCRYPTION))
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
#endif /* CK_ENCRYPTION */
#endif /* IKSD */
return((unsigned)(ch & 0xff)); /* return the character. */
#ifdef CK_ENCRYPTION
debug(F100,"coninc decrypt 2","",0);
if (inserver && !local && TELOPT_U(TELOPT_ENCRYPTION))
- ck_tn_decrypt(&ch,1);
+ ck_tn_decrypt((char *)&ch,1);
#endif /* CK_ENCRYPTION */
#endif /* IKSD */
return((unsigned)(ch & 0xff)); /* Return it. */
#ifndef PS2AIX10
#ifndef sequent
#ifndef HPUX9
+#ifndef HPUX10
#ifndef COHERENT
#ifndef NOGETID_PROTOS
-extern UID_T getuid(), geteuid(), getreuid();
-extern GID_T getgid(), getegid(), getregid();
+_PROTOTYP( UID_T getuid, (void) );
+_PROTOTYP( UID_T geteuid, (void) );
+_PROTOTYP( UID_T getreuid, (void) );
+_PROTOTYP( UID_T getgid, (void) );
+_PROTOTYP( UID_T getegid, (void) );
+_PROTOTYP( UID_T getregid, (void) );
#endif /* NOGETID_PROTOS */
#else
-extern UID_T getreuid();
-extern GID_T getregid();
+_PROTOTYP( UID_T getreuid, (void) );
+_PROTOTYP( UID_T getregid, (void) );
#endif /* COHERENT */
+#endif /* HPUX10 */
#endif /* HPUX9 */
#endif /* sequent */
#endif /* PS2AIX10 */
priv_ini() {
int err = 0;
-#ifndef HAVE_BAUDBOY
+#ifndef HAVE_LOCKDEV
/* Save real ID:s. */
realuid = getuid();
err &= ~1; /* System V R0 does not save UID */
#endif /* ATT7300 */
}
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
return(err);
}
*/
int
priv_on() {
-#ifndef HAVE_BAUDBOY
+#ifndef HAVE_LOCKDEV
if (privgid != (GID_T) -1)
if (switchgid(realgid,privgid))
return(2);
switchgid(privgid,realgid);
return(1);
}
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
return(0);
}
int
priv_off() {
int err = 0;
-#ifndef HAVE_BAUDBOY
+#ifndef HAVE_LOCKDEV
if (privuid != (UID_T) -1)
if (switchuid(privuid,realuid))
err |= 1;
if (privgid != (GID_T) -1)
if (switchgid(privgid,realgid))
err |= 2;
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
return(err);
}
*/
int
priv_can() {
-#ifndef HAVE_BAUDBOY
+#ifndef HAVE_LOCKDEV
#ifdef SETREUID
int err = 0;
if (privuid != (UID_T) -1)
#endif /* SETREUID */
#else
return(0);
-#endif /* HAVE_BAUDBOY */
+#endif /* HAVE_LOCKDEV */
}
/* P R I V _ O P N -- For opening protected files or devices. */
}
}
-/* T T R U N C M D -- Redirect an external command over the connection. */
+
+int
+tt_is_secure() { /* Tells whether the current connection is secure */
+
+ if (ttyfd == -1)
+ return(0);
+
+ if (0
+#ifdef SSHBUILTIN
+ || IS_SSH()
+#endif /* SSHBUILTIN */
+#ifdef CK_ENCRYPTION
+ || ck_tn_encrypting() && ck_tn_decrypting()
+#endif /* CK_ENCRYPTION */
+#ifdef CK_SSL
+ || tls_active_flag || ssl_active_flag
+#endif /* CK_SSL */
+#ifdef RLOGCODE
+#ifdef CK_KERBEROS
+#ifdef CK_ENCRYPTION
+ || ttnproto == NP_EK4LOGIN || ttnproto == NP_EK5LOGIN
+#endif /* CK_ENCRYPTION */
+#endif /* CK_KERBEROS */
+#endif /* RLOGCODE */
+ )
+ return(1);
+ return(0);
+}
#ifdef CK_REDIR
+
+/* External protocol handler parameters from ckuus3.c */
+extern int exp_handler, exp_stderr, exp_timo;
+
+#ifdef SELECT
+#ifdef NETPTY
+
+/* The right size is 24576 */
+
+#ifndef PTY_PBUF_SIZE /* Size of buffer to read from pty */
+#define PTY_PBUF_SIZE 24576 /* and write to net. */
+#endif /* PTY_PBUF_SIZE */
+
+#ifndef PTY_TBUF_SIZE /* Size of buffer to read from net */
+#define PTY_TBUF_SIZE 24576 /* and write to pty. */
+#endif /* PTY_TBUF_SIZE */
+
+#ifdef O_NDELAY /* Whether to use nonblocking */
+#ifndef PTY_NO_NDELAY /* reads on the pseudoterminal */
+#ifndef PTY_USE_NDELAY
+#define PTY_USE_NDELAY
+#endif /* PTY_USE_NDELAY */
+#endif /* PTY_NO_NDELAY */
+#endif /* O_NDELAY */
+
+#ifndef HAVE_OPENPTY
+#ifndef USE_CKUPTY_C
+#define USE_CKUPTY_C
+#endif /* USE_CKUPTY_C */
+#endif /* HAVE_OPENPTY */
+
+VOID
+pty_make_raw(fd) int fd; {
+ int x = -23, i;
+
+#ifdef BSD44ORPOSIX /* POSIX */
+ struct termios tp;
+#else
+#ifdef ATTSV /* AT&T UNIX */
+#ifdef CK_ANSIC
+ struct termio tp = {0};
+#else
+ struct termio tp;
+#endif /* CK_ANSIC */
+#else
+ struct sgttyb tp; /* Traditional */
+#endif /* ATTSV */
+#endif /* BSD44ORPOSIX */
+
+ debug(F101,"pty_make_raw fd","",fd);
+ errno = 0;
+
+#ifdef BSD44ORPOSIX /* POSIX */
+ x = tcgetattr(fd,&tp);
+ debug(F101,"pty_make_raw tcgetattr","",x);
+#else
+#ifdef ATTSV /* AT&T UNIX */
+ x = ioctl(fd,TCGETA,&tp);
+ debug(F101,"pty_make_raw TCGETA ioctl","",x);
+#else
+ x = gtty(fd,&tp);
+ debug(F101,"pty_make_raw ttty","",x);
+#endif /* ATTSV */
+#endif /* BSD44ORPOSIX */
+ debug(F101,"pty_make_raw GET errno","",errno);
+
+#ifdef USE_CFMAKERAW
+ errno = 0;
+ cfmakeraw(&tp);
+ debug(F101,"pty_make_raw cfmakeraw errno","",errno);
+#else /* USE_CFMAKERAW */
+
+#ifdef COMMENT
+
+/* This very simple version recommended by Serg Iakolev doesn't work */
+
+ tp.c_lflag &= ~(ECHO|ICANON|IEXTEN|ISIG);
+ tp.c_iflag &= ~(BRKINT|ICRNL|INPCK|ISTRIP|IXON);
+ tp.c_cflag &= ~(CSIZE|PARENB);
+ tp.c_cflag |= CS8;
+ tp.c_oflag &= ~(OPOST);
+ tp.c_cc[VMIN] = 1;
+ tp.c_cc[VTIME] = 0;
+
+ debug(F101,"pty_make_raw 1 c_cc[] NCCS","",NCCS);
+ debug(F101,"pty_make_raw 1 iflags","",tp.c_iflag);
+ debug(F101,"pty_make_raw 1 oflags","",tp.c_oflag);
+ debug(F101,"pty_make_raw 1 lflags","",tp.c_lflag);
+ debug(F101,"pty_make_raw 1 cflags","",tp.c_cflag);
+
+#else
+#ifdef COMMENT
+/*
+ In this version we unset everything and then set only the
+ bits we know we need.
+*/
+ /* iflags */
+ tp.c_iflag = 0L;
+ tp.c_iflag |= IGNBRK;
+#ifdef IMAXBEL
+ tp.c_iflag |= IMAXBEL;
+#endif /* IMAXBEL */
+
+ /* oflags */
+ tp.c_oflag = 0L;
+
+ /* lflags */
+ tp.c_lflag = 0L;
+#ifdef NOKERNINFO
+ tp.c_lflag |= NOKERNINFO;
+#endif /* NOKERNINFO */
+
+ /* cflags */
+ tp.c_cflag = 0L;
+ tp.c_cflag |= CS8|CREAD;
+
+ for (i = 0; i < NCCS; i++) { /* No special characters */
+ tp.c_cc[i] = 0;
+ }
+#ifdef VMIN
+ tp.c_cc[VMIN] = 1; /* But always wait for input */
+#endif /* VMIN */
+ debug(F101,"pty_make_raw 2 c_cc[] NCCS","",NCCS);
+ debug(F101,"pty_make_raw 2 iflags","",tp.c_iflag);
+ debug(F101,"pty_make_raw 2 oflags","",tp.c_oflag);
+ debug(F101,"pty_make_raw 2 lflags","",tp.c_lflag);
+ debug(F101,"pty_make_raw 2 cflags","",tp.c_cflag);
+
+#else /* COMMENT */
+/*
+ In this version we set or unset every single flag explicitly. It works a
+ bit better than the simple version just above, but it's still far from
+ adequate.
+*/
+ /* iflags */
+ tp.c_iflag &= ~(PARMRK|ISTRIP|BRKINT|INLCR|IGNCR|ICRNL);
+ tp.c_iflag &= ~(INPCK|IGNPAR|IXANY|IXON|IXOFF);
+ tp.c_iflag |= IGNBRK;
+#ifdef IMAXBEL
+#ifdef COMMENT
+ tp.c_iflag |= IMAXBEL;
+#else
+ tp.c_iflag &= ~IMAXBEL;
+#endif /* COMMENT */
+#endif /* IMAXBEL */
+#ifdef IUCLC
+ tp.c_iflag &= ~IUCLC;
+#endif /* IUCLC */
+
+ /* oflags */
+#ifdef BSDLY
+ tp.c_oflag &= ~BSDLY;
+#endif /* BSDLY */
+#ifdef CRDLY
+ tp.c_oflag &= ~CRDLY;
+#endif /* CRDLY */
+#ifdef FFDLY
+ tp.c_oflag &= ~FFDLY;
+#endif /* FFDLY */
+#ifdef NLDLY
+ tp.c_oflag &= ~NLDLY;
+#endif /* NLDLY */
+#ifdef TABDLY
+ tp.c_oflag &= ~TABDLY;
+#endif /* TABDLY */
+#ifdef VTDLY
+ tp.c_oflag &= ~VTDLY;
+#endif /* VTDLY */
+#ifdef OFDEL
+ tp.c_oflag &= ~OFDEL;
+#endif /* OFDEL */
+#ifdef OFILL
+ tp.c_oflag &= ~OFILL;
+#endif /* OFILL */
+#ifdef OLCUC
+ tp.c_oflag &= ~OLCUC;
+#endif /* OLCUC */
+#ifdef CMSPAR
+ tp.c_oflag &= ~CMSPAR;
+#endif /* CMSPAR */
+ tp.c_oflag &= ~OPOST;
+#ifdef OXTABS
+ tp.c_oflag &= ~OXTABS;
+#endif /* OXTABS */
+#ifdef COMMENT
+#ifdef ONOCR
+ tp.c_oflag &= ~ONOCR; /* Maybe should be |=? */
+ tp.c_oflag |= ONOCR; /* makes no difference either way */
+#endif /* ONOCR */
+#endif /* COMMENT */
+#ifdef ONOEOT
+ tp.c_oflag &= ~ONOEOT;
+#endif /* ONOEOT */
+#ifdef ONLRET
+ tp.c_oflag &= ~ONLRET;
+#endif /* ONLRET */
+#ifdef ONLCR
+ tp.c_oflag &= ~ONLCR;
+#endif /* ONLCR */
+#ifdef OCRNL
+ tp.c_oflag &= ~OCRNL;
+#endif /* OCRNL */
+
+ /* lflags */
+ tp.c_lflag &= ~ECHO;
+#ifdef ECHOE
+ tp.c_lflag &= ~ECHOE;
+#endif /* ECHOE */
+#ifdef ECHONL
+ tp.c_lflag &= ~ECHONL;
+#endif /* ECHONL */
+#ifdef ECHOPRT
+ tp.c_lflag &= ~ECHOPRT;
+#endif /* ECHOPRT */
+#ifdef ECHOKE
+ tp.c_lflag &= ~ECHOKE;
+#endif /* ECHOKE */
+#ifdef ECHOCTL
+ tp.c_lflag &= ~ECHOCTL;
+#endif /* ECHOCTL */
+#ifdef XCASE
+ tp.c_lflag &= ~XCASE;
+#endif /* XCASE */
+#ifdef ALTWERASE
+ tp.c_lflag &= ~ALTWERASE;
+#endif /* ALTWERASE */
+#ifdef EXTPROC
+ tp.c_lflag &= ~(ICANON|ISIG|IEXTEN|TOSTOP|FLUSHO|PENDIN|EXTPROC);
+#else
+ tp.c_lflag &= ~(ICANON|ISIG|IEXTEN|TOSTOP|FLUSHO|PENDIN);
+#endif /* EXTPROC */
+#ifdef NOKERNINFO
+ tp.c_lflag |= NOKERNINFO;
+#endif /* NOKERNINFO */
+#ifndef COMMENT
+ tp.c_lflag &= ~NOFLSH; /* TRY IT THE OTHER WAY? */
+#else
+ tp.c_lflag |= NOFLSH; /* No, this way is worse */
+#endif /* COMMENT */
+
+ /* cflags */
+ tp.c_cflag &= ~(CSIZE|PARENB|PARODD);
+ tp.c_cflag |= CS8|CREAD;
+
+#ifdef MDMBUF
+ tp.c_cflag &= ~(MDMBUF);
+#else
+#ifdef CCAR_OFLOW
+ tp.c_cflag &= ~(CCAR_OFLOW); /* two names for the same thing */
+#endif /* CCAR_OFLOW */
+#endif /* MDMBUF */
+
+#ifdef CCTS_OFLOW
+ tp.c_cflag &= ~(CCTS_OFLOW);
+#endif /* CCTS_OFLOW */
+#ifdef CDSR_OFLOW
+ tp.c_cflag &= ~(CDSR_OFLOW);
+#endif /* CDSR_OFLOW */
+#ifdef CDTR_IFLOW
+ tp.c_cflag &= ~(CDTR_IFLOW);
+#endif /* CDTR_IFLOW */
+#ifdef CRTS_IFLOW
+ tp.c_cflag &= ~(CRTS_IFLOW);
+#endif /* CRTS_IFLOW */
+#ifdef CRTSXOFF
+ tp.c_cflag &= ~(CRTSXOFF);
+#endif /* CRTSXOFF */
+#ifdef CRTSCTS
+ tp.c_cflag &= ~(CRTSCTS);
+#endif /* CRTSCTS */
+#ifdef CLOCAL
+ tp.c_cflag &= ~(CLOCAL);
+#endif /* CLOCAL */
+#ifdef CSTOPB
+ tp.c_cflag &= ~(CSTOPB);
+#endif /* CSTOPB */
+#ifdef HUPCL
+ tp.c_cflag &= ~(HUPCL);
+#endif /* HUPCL */
+
+ for (i = 0; i < NCCS; i++) { /* No special characters */
+ tp.c_cc[i] = 0;
+ }
+#ifdef VMIN
+ tp.c_cc[VMIN] = 1; /* But always wait for input */
+#endif /* VMIN */
+ debug(F101,"pty_make_raw 3 c_cc[] NCCS","",NCCS);
+ debug(F101,"pty_make_raw 3 iflags","",tp.c_iflag);
+ debug(F101,"pty_make_raw 3 oflags","",tp.c_oflag);
+ debug(F101,"pty_make_raw 3 lflags","",tp.c_lflag);
+ debug(F101,"pty_make_raw 3 cflags","",tp.c_cflag);
+#endif /* COMMENT */
+#endif /* COMMENT */
+
+ errno = 0;
+#ifdef BSD44ORPOSIX /* POSIX */
+ x = tcsetattr(fd,TCSANOW,&tp);
+ debug(F101,"pty_make_raw tcsetattr","",x);
+#else
+#ifdef ATTSV /* AT&T UNIX */
+ x = ioctl(fd,TCSETA,&tp);
+ debug(F101,"pty_make_raw ioctl","",x);
+#else
+ x = stty(fd,&tp); /* Traditional */
+ debug(F101,"pty_make_raw stty","",x);
+#endif /* ATTSV */
+#endif /* BSD44ORPOSIX */
+ debug(F101,"pty_make_raw errno","",errno);
+
+#endif /* __NetBSD__ */
+}
+
+static int
+pty_chk(fd) int fd; {
+ int x, n = 0;
+ errno = 0;
+#ifdef FIONREAD
+ x = ioctl(fd, FIONREAD, &n); /* BSD and most others */
+ ckmakmsg(msgbuf,500,
+ "pty_chk ioctl FIONREAD errno=",
+ ckitoa(errno),
+ " count=",
+ ckitoa(n));
+ debug(F100,msgbuf,"",0);
+#else
+#ifdef RDCHK
+ n = rdchk(fd);
+ debug(F101,"pty_chk rdchk","",n);
+#else
+ n = 1;
+#endif /* RDCHK */
+#endif /* FIONREAD */
+ return((n > -1) ? n : 0);
+}
+
+static int
+pty_get_status(fd,pid) int fd; PID_T pid; {
+ int x, status = -1;
+ PID_T w;
+
+ debug(F101,"pty_get_status fd","",fd);
+ debug(F101,"pty_get_status pid","",pid);
+
+ if (pexitstat > -1)
+ return(pexitstat);
+
+#ifdef COMMENT
+ /* Not only unnecessary but harmful */
+ errno = 0;
+ x = kill(pty_fork_pid,0);
+ debug(F101,"pty_get_status kill value","",x);
+ debug(F101,"pty_get_status kill errno","",errno);
+ if (x > -1 && errno != ESRCH)
+ return(-1); /* Fork still there */
+ /* Fork seems to be gone */
+#endif /* COMMENT */
+
+ errno = 0;
+ x = waitpid(pty_fork_pid,&status,WNOHANG);
+ debug(F111,"pty_get_status waitpid",ckitoa(errno),x);
+ if (x <= 0 && errno == 0) {
+ debug(F101,"pty_get_status waitpid return","",-1);
+ return(-1);
+ }
+ if (x > 0) {
+ if (x != pty_fork_pid)
+ debug(F101,
+ "pty_get_status waitpid pid doesn't match","",pty_fork_pid);
+ debug(F101,"pty_get_status waitpid status","",status);
+ debug(F101,"pty_get_status waitpid errno","",errno);
+ if (WIFEXITED(status)) {
+ debug(F100,"pty_get_status WIFEXITED","",0);
+ status = WEXITSTATUS(status);
+ debug(F101,"pty_get_status fork exit status","",status);
+#ifdef COMMENT
+ end_pty();
+#endif /* COMMENT */
+ close(fd);
+ pexitstat = status;
+ } else {
+ debug(F100,"pty_get_status waitpid unexpected status","",0);
+ }
+ }
+ debug(F101,"pty_get_status return status","",status);
+ return(status);
+}
+
+/* t t p t y c m d -- Run command on pty and forward to net */
+
+/*
+ Needed for running external protocols on secure connections.
+ For example, if C-Kermit has made an SSL/TLS or Kerberos Telnet
+ connection, and then needs to transfer a file with Zmodem, which is
+ an external program, this routine reads Zmodem's output, encrypts it,
+ and then forwards it out the connection, and reads the encrypted data
+ stream coming in from the connection, decrypts it, and forwards it to
+ Zmodem.
+
+ Works like a TCP/IP port forwarder except one end is a pty rather
+ than a socket, which introduces some complications:
+
+ . On most platforms, select() always indicates the output side of
+ the pty has characters waiting to be read, even when it doesn't,
+ even when the pty process has already exited.
+
+ . Nonblocking reads must be used on the pty, because there is no
+ way on certain platforms (e.g. NetBSD) to find out how many characters
+ are available to be read (the FIONREAD ioctl always says 0). The code
+ also allows for blocking reads (if O_NDELAY and O_NONBLOCK are not
+ defined, or if PTY_NO_NDELAY is defined), but on some platforms this can
+ result in single-byte reads and writes (NetBSD again).
+
+ . Testing for "EOF" on the pty is problematic. select() never gives
+ any indication. After the pty process has exited and the fork has
+ disappeared, read() can still return with 0 bytes read but without an
+ error (NetBSD); no known test on the pty file descriptor will indicate
+ that it is no longer valid. The process ID of the pty fork can be
+ tested on some platforms (NetBSD, luckily) but not others (Solaris,
+ Linux).
+
+ On the network side, we use ttinc() and ttoc(), which, for network
+ connections, handle any active security methods.
+
+ Call with s = command.
+ Returns 0 on failure, 1 on success.
+ fdc - December 2006 - August 2007.
+
+ NOTE: This code defaults to nonblocking reads if O_NDELAY or O_NONBLOCK are
+ defined in the header files, which should be true of every recent Unix
+ platform. If this causes trouble somewhere, define PTY_NO_NDELAY, e.g. when
+ building C-Kermit:
+
+ touch ckutio.c
+ make platformname KFLAGS=-DPTY_NO_NODELAY
+*/
+static int have_pty = 0; /* Do we have a pty? */
+
+static SIGTYP (*save_sigchld)() = NULL; /* For catching SIGCHLD */
+
+static VOID
+sigchld_handler(sig) int sig; {
+ have_pty = 0; /* We don't have a pty */
+#ifdef DEBUG
+ if (save_sigchld) {
+ (VOID) signal(SIGCHLD,save_sigchld);
+ save_sigchld = NULL;
+ }
+ if (deblog) {
+ debug(F100,"**************","",0);
+ debug(F100,"SIGCHLD caught","",0);
+ debug(F100,"**************","",0);
+ }
+#endif /* DEBUG */
+}
+#define HAVE_IAC 1
+#define HAVE_CR 2
+
+int
+ttptycmd(s) char *s; {
+ CHAR tbuf[PTY_TBUF_SIZE]; /* Read from net, write to pty */
+ int tbuf_avail = 0; /* Pointers for tbuf */
+ int tbuf_written = 0;
+ static int in_state = 0; /* For TELNET IAC and NVT in */
+ static int out_prev = 0; /* Simpler scheme for out */
+
+ CHAR pbuf[PTY_PBUF_SIZE]; /* Read from pty, write to net */
+ CHAR dbuf[PTY_PBUF_SIZE + PTY_PBUF_SIZE + 1]; /* Double-size buffer */
+ int pbuf_avail = 0; /* Pointers for pbuf */
+ int pbuf_written = 0;
+
+ int ptyfd = -1; /* Pty file descriptor */
+ int have_net = 0; /* We have a network connection */
+ int pty_err = 0; /* Got error on pty */
+ int net_err = 0; /* Got error on net */
+ int status = -1; /* Pty process exit status */
+ int rc = 0; /* Our return code */
+
+ int x1 = 0, x2 = 0; /* Workers... */
+ int c, n, m, t, x; /* Workers */
+
+ long seconds_to_wait = 0L; /* select() timeout */
+ struct timeval tv, *tv2; /* For select() */
+#ifdef INTSELECT
+ int in, out, err; /* For select() */
+#else
+ fd_set in, out, err;
+#endif /* INTSELECT */
+ int nfds = 0; /* For select() */
+
+ int pset = 0, tset = 0, pnotset = 0, tnotset = 0; /* stats/debuggin only */
+ int read_net_bytes = 0; /* Stats */
+ int write_net_bytes = 0; /* Stats */
+ int read_pty_bytes = 0; /* Stats */
+ int write_pty_bytes = 0; /* Stats */
+ int is_tn = 0; /* TELNET protocol is active */
+
+ int masterfd = -1;
+ int slavefd = -1;
+#ifndef USE_CKUPTY_C
+ struct termios term;
+ struct winsize twin;
+ struct stringarray * q;
+ char ** args = NULL;
+#endif /* USE_CKUPTY_C */
+
+ in_state = 0; /* No previous character yet */
+
+ if (ttyfd == -1) {
+ printf("?Sorry, communication channel is not open\n");
+ return(0);
+ } else {
+ have_net = 1;
+ }
+ if (nopush) {
+ debug(F100,"ttptycmd fail: nopush","",0);
+ return(0);
+ }
+ if (!s) s = ""; /* Defense de bogus arguments */
+ if (!*s) return(0);
+ pexitstat = -1; /* Fork process exit status */
+
+#ifdef TNCODE
+ is_tn = (xlocal && netconn && IS_TELNET()) || /* Telnet protocol active */
+ (!xlocal && sstelnet);
+#endif /* TNCODE */
+
+ debug(F110,"ttptycmd command",s,0);
+ debug(F101,"ttptycmd ttyfd","",ttyfd);
+ debug(F101,"ttptycmd is_tn","",is_tn);
+ debug(F101,"ttptycmd ckermit pid","",getpid());
+
+#ifdef USE_CKUPTY_C
+ /* Call ckupty.c module to get and set up the pty fork */
+ /* fc 1 == "run an external protocol" */
+ debug(F100,"ttptycmd using ckupty.c","",0);
+ if (do_pty(&ptyfd,s,1) < 0) { /* Start the command on a pty */
+ debug(F100,"ttptycmd do_pty fails","",0);
+ return(0);
+ }
+ masterfd = ptyfd;
+ pty_master_fd = ptyfd;
+#ifdef COMMENT
+ slavefd = pty_slave_fd; /* This is not visible to us */
+#endif /* COMMENT */
+ debug(F111,"ttptycmd ptyfd","USE_CKUPTY_C",ptyfd);
+ debug(F111,"ttptycmd masterfd","USE_CKUPTY_C",masterfd);
+ debug(F111,"ttptycmd fork pid","USE_CKUPTY_C",pty_fork_pid);
+#ifndef SOLARIS
+ /* "ioctl inappropriate on device" for pty master */
+ pty_make_raw(masterfd);
+#endif /* SOLARIS */
+
+#else /* USE_CKUPTY_C */
+
+ debug(F100,"ttptycmd OPENPTY","",0);
+ if (tcgetattr(0, &term) == -1) { /* Get controlling terminal's modes */
+ perror("tcgetattr");
+ return(0);
+ }
+ if (ioctl(0, TIOCGWINSZ, (char *) &twin) == -1) { /* and window size */
+ perror("ioctl TIOCGWINSZ");
+ return(0);
+ }
+ if (openpty(&masterfd, &slavefd, NULL, NULL, NULL) == -1) {
+ debug(F101,"ttptycmd openpty failed errno","",errno);
+ perror("opentpy");
+ return(0);
+ }
+ debug(F101,"ttptycmd openpty masterfd","",masterfd);
+ debug(F101,"ttptycmd openpty slavefd","",slavefd);
+ pty_master_fd = masterfd;
+ pty_slave_fd = slavefd;
+ debug(F101,"ttptycmd openpty pty_master_fd","",pty_master_fd);
+
+ /* Put pty master in raw mode but let forked app control the slave */
+ pty_make_raw(masterfd);
+
+#ifdef COMMENT
+#ifdef TIOCREMOTE
+ /* TIOCREMOTE,0 = disable all termio processing */
+ x = ioctl(masterfd, TIOCREMOTE, 1);
+ debug(F111,"ttptycmd ioctl TIOCREMOTE",ckitoa(x),errno);
+#endif /* TIOCREMOTE */
+#ifdef TIOCTTY
+ /* TIOCTTY,0 = disable all termio processing */
+ x = ioctl(masterfd, TIOCTTY, 0);
+ debug(F111,"ttptycmd ioctl TIOCTTY",ckitoa(x),errno);
+#endif /* TIOCTTY */
+#endif /* COMMENT */
+
+ have_pty = 1; /* We have an open pty */
+ save_sigchld = signal(SIGCHLD, sigchld_handler); /* Catch fork quit */
+
+ pty_fork_pid = fork(); /* Make fork for external protocol */
+ debug(F101,"ttptycmd pty_fork_pid","",pty_fork_pid);
+ if (pty_fork_pid == -1) {
+ perror("fork");
+ return(0);
+ } else if (pty_fork_pid == 0) { /* In new fork */
+ int x;
+ debug(F101,"ttptycmd new fork pid","",getpid());
+ close(masterfd); /* Slave quarters no masters allowed */
+ x = setsid();
+ debug(F101,"ttptycmd new fork setsid","",x);
+ if (x == -1) {
+ perror("ttptycmd setsid");
+ exit(1);
+ }
+ signal(SIGINT,SIG_IGN); /* Let upper fork catch this */
+
+#ifdef COMMENT
+#ifdef TIOCSCTTY
+ /* Make pty the controlling terminal for the process */
+ /* THIS CAUSES AN INFINITE SIGWINCH INTERRUPT LOOP */
+ x = ioctl(slavefd, TIOCSCTTY, NULL);
+ debug(F101,"ttptycmd TIOCSCTTY","",x);
+#endif /* TIOCSCTTY */
+#endif /* COMMENT */
+
+ /* Initialize slave pty modes and size to those of our terminal */
+ if (tcsetattr(slavefd, TCSANOW, &term) == -1) {
+ perror("ttptycmd tcsetattr");
+ exit(1);
+ }
+ if (ioctl(slavefd, TIOCSWINSZ, &twin) == -1) {
+ perror("ttptycmd ioctl");
+ exit(1);
+ }
+#ifdef COMMENT
+#ifdef TIOCNOTTY
+ /* Disassociate this process from its terminal */
+ /* THIS HAS NO EFFECT */
+ x = ioctl(slavefd, TIOCNOTTY, NULL);
+ debug(F101,"ttptycmd TIOCNOTTY","",x);
+#endif /* TIOCNOTTY */
+#endif /* COMMENT */
+
+#ifdef COMMENT
+#ifdef SIGTTOU
+ /* Ignore terminal output interrupts */
+ /* THIS HAS NO EFFECT */
+ debug(F100,"ttptycmd ignoring SIGTTOU","",0);
+ signal(SIGTTOU, SIG_IGN);
+#endif /* SIGTTOU */
+#ifdef SIGTSTP
+ /* Ignore terminal output interrupts */
+ /* THIS HAS NO EFFECT */
+ debug(F100,"ttptycmd ignoring SIGTSTP","",0);
+ signal(SIGTSTP, SIG_IGN);
+#endif /* SIGTSTP */
+#endif /* COMMENT */
+
+ pty_make_raw(slavefd); /* Put it in rawmode */
+
+ errno = 0;
+ if (dup2(slavefd, STDIN_FILENO) != STDIN_FILENO ||
+ dup2(slavefd, STDOUT_FILENO) != STDOUT_FILENO) {
+ debug(F101,"ttptycmd new fork dup2 error","",errno);
+ perror("ttptycmd dup2");
+ exit(1);
+ }
+ debug(F100,"ttptycmd new fork dup2 ok","",0);
+
+ /* Parse external protocol command line */
+ q = cksplit(1,0,s,NULL,"\\%[]&$+-/=*^_@!{}/<>|.#~'`:;?",7,0,0);
+ if (!q) {
+ debug(F100,"ttptycmd cksplit failed","",0);
+ exit(1);
+ } else {
+ int i, n;
+ debug(F100,"ttptycmd cksplit ok","",0);
+ n = q->a_size;
+ args = q->a_head + 1;
+ for (i = 0; i <= n; i++) {
+ if (!args[i]) {
+ break;
+ } else {
+ /* sometimes cksplit() doesn't terminate the list */
+ if ((i == n) && args[i]) {
+ if ((int)strlen(args[i]) == 0)
+ makestr(&(args[i]),NULL);
+ }
+ }
+ }
+ }
+#ifdef COMMENT
+/*
+ Putting the slave pty in rawmode should not be necessary because the
+ external protocol program is supposed to do that itself. Yet doing this
+ here cuts down on Zmodem binary-file transmission errors by 30-50% but
+ still doesn't eliminate them.
+*/
+ pty_make_raw(STDIN_FILENO);
+ pty_make_raw(STDOUT_FILENO);
+#endif /* COMMENT */
+
+ debug(F100,"ttptycmd execvp'ing external protocol","",0);
+ execvp(args[0],args);
+ perror("execvp failed");
+ debug(F101,"ttptycmd execvp failed","",errno);
+ close(slavefd);
+ exit(1);
+ }
+ /* (there are better ways to do this...) */
+ msleep(1000); /* Make parent wait for child to be ready */
+ ptyfd = masterfd; /* We talk to the master */
+
+#endif /* USE_CKUPTY_C */
+
+ debug(F101,"ttptycmd ptyfd","",ptyfd);
+ if (ptyfd < 0) {
+ printf("?Failure to get pty\n");
+ return(-9);
+ }
+ have_pty = 1; /* We have an open pty or we wouldn't he here */
+
+ debug(F101,"ttptycmd PTY_PBUF_SIZE","",PTY_PBUF_SIZE);
+ debug(F101,"ttptycmd PTY_TBUF_SIZE","",PTY_TBUF_SIZE);
+
+#ifdef PTY_USE_NDELAY
+ /*
+ NOTE: If select() and ioctl(ptyfd,FIONREAD,&n) return true indications
+ on the pty, we don't need nonblocking reads. Performance of either
+ method seems to be about the same, so use whatever works.
+ */
+ errno = 0;
+ x = fcntl(ptyfd,F_SETFL,fcntl(ptyfd,F_GETFL, 0)|O_NDELAY);
+ ckmakmsg(msgbuf,500,
+ "ttptycmd set O_NDELAY errno=",
+ ckitoa(errno),
+ " fcntl=",
+ ckitoa(x));
+ debug(F100,msgbuf,"",0);
+#endif /* PTY_USE_NDELAY */
+
+#ifdef COMMENT
+/* Not necessary, the protocol module already did this */
+
+#ifdef USE_CFMAKERAW
+ if (tcgetattr(ttyfd, &term) > -1) {
+ cfmakeraw(&term);
+ debug(F101,"ttptycmd net cfmakeraw errno","",errno);
+ x tcsetattr(ttyfd, TCSANOW, &term);
+ debug(F101,"ttptycmd net tcsetattr","",x);
+ debug(F101,"ttptycmd net tcsetattr","",errno);
+ }
+#else
+ if (local) /* Put network connection in */
+ ttpkt(ttspeed,ttflow,ttprty); /* "packet mode". */
+ else
+ conbin((char)escchr); /* OR... pty_make_raw(0) */
+#endif /* USE_CFMAKERAW */
+#endif /* COMMENT */
+
+#ifdef TNCODE
+ if (is_tn) {
+ debug(F101,"<<< ttptycmd TELOPT_ME_BINARY","",TELOPT_ME(TELOPT_BINARY));
+ debug(F101,"<<< ttptycmd TELOPT_U_BINARY","",TELOPT_U(TELOPT_BINARY));
+ }
+#endif /* TNCODE */
+
+ debug(F101,"ttptycmd entering loop - seconds_to_wait","",seconds_to_wait);
+
+ while (have_pty || have_net) {
+ FD_ZERO(&in); /* Initialize select() structs */
+ FD_ZERO(&out);
+ FD_ZERO(&err); /* (not used because useless) */
+ nfds = -1;
+
+ debug(F101,"ttptycmd loop top have_pty","",have_pty);
+ debug(F101,"ttptycmd loop top have_net","",have_net);
+
+ /* Pty is open and we have room to read from it? */
+ if (have_pty && pbuf_avail < PTY_PBUF_SIZE) {
+ debug(F100,"ttptycmd FD_SET ptyfd in","",0);
+ FD_SET(ptyfd, &in);
+ nfds = ptyfd;
+ }
+ /* Network is open and we have room to read from it? */
+ if (have_net && have_pty && tbuf_avail < PTY_TBUF_SIZE) {
+ debug(F100,"ttptycmd FD_SET ttyfd in","",0);
+ FD_SET(ttyfd, &in);
+ if (ttyfd > nfds) nfds = ttyfd;
+ }
+ /* Pty is open and we have stuff to write to it? */
+ if (have_pty && tbuf_avail - tbuf_written > 0) {
+ debug(F100,"ttptycmd FD_SET ptyfd out","",0);
+ FD_SET (ptyfd, &out);
+ if (ptyfd > nfds) nfds = ptyfd;
+ }
+ /* Net is open and we have stuff to write to it? */
+ debug(F101,"ttptycmd pbuf_avail-pbuf_written","",
+ pbuf_avail - pbuf_written);
+ if (have_net && pbuf_avail - pbuf_written > 0) {
+ debug(F100,"ttptycmd FD_SET ttyfd out","",0);
+ FD_SET (ttyfd, &out);
+ if (ttyfd > nfds) nfds = ttyfd;
+ }
+ /* We don't use err because it's not really for errors, */
+ /* but for out of band data on the TCP socket, which, if it is */
+ /* to be handled at all, is handled in the tt*() routines */
+
+ nfds++; /* 0-based to 1-based */
+ debug(F101,"ttptycmd nfds","",nfds);
+ if (!nfds) {
+ debug(F100,"ttptycmd NO FDs set for select","",0);
+ if (have_pty) {
+ /* This is not right -- sleeping won't accomplish anything */
+ debug(F101,"ttptycmd msleep","",100);
+ msleep(100);
+ } else {
+ debug(F100,"ttptycmd no pty - quitting loop","",0);
+ break;
+ }
+ }
+ errno = 0;
+
+ if (seconds_to_wait > 0L) { /* Timeout in case nothing happens */
+ tv.tv_sec = seconds_to_wait; /* for a long time */
+ tv.tv_usec = 0L;
+ tv2 = &tv;
+ } else {
+ tv2 = NULL;
+ }
+ x = select(nfds, &in, &out, NULL, tv2);
+ debug(F101,"ttptycmd select","",x);
+ if (x < 0) {
+ if (errno == EINTR)
+ continue;
+ debug(F101,"ttptycmd select error","",errno);
+ break;
+ }
+ if (x == 0) {
+ debug(F101,"ttptycmd +++ select timeout","",seconds_to_wait);
+ if (have_pty) {
+ status = pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status A","",status);
+ if (status > -1) pexitstat = status;
+ have_pty = 0;
+ }
+ break;
+ }
+ /* We want to handle any pending writes first to make room */
+ /* for new incoming. */
+
+ if (FD_ISSET(ttyfd, &out)) { /* Can write to net? */
+ CHAR * s;
+ s = pbuf + pbuf_written; /* Current spot for sending */
+#ifdef TNCODE
+ if (is_tn) { /* ttol() doesn't double IACs */
+ CHAR c; /* Rewrite string with IACs doubled */
+ int i;
+ s = pbuf + pbuf_written; /* Source */
+ x = 0; /* Count */
+ for (i = 0; i < pbuf_avail - pbuf_written; i++) {
+ c = s[i]; /* Next character */
+ if (c == IAC) { /* If it's IAC */
+ dbuf[x++] = c; /* put another one */
+ debug(F000,">>> QUOTED IAC","",c);
+ } else if (c != 0x0a && out_prev == 0x0d) { /* Bare CR */
+ if (!TELOPT_ME(TELOPT_BINARY)) { /* NVT rule */
+ c = 0x00;
+ dbuf[x++] = c;
+ debug(F000,">>> CR-NUL","",c);
+ }
+ }
+ dbuf[x++] = c; /* Copy and count it */
+ debug(F000,">>> char",ckitoa(in_state),c);
+ out_prev = c;
+ }
+ s = dbuf; /* New source */
+ } else
+#endif /* TNCODE */
+ x = pbuf_avail - pbuf_written; /* How much to send */
+
+ debug(F101,"ttptycmd bytes to send","",x);
+ x = ttol(s, x);
+ debug(F101,">>> ttol","",x);
+ if (x < 0) {
+ net_err++;
+ debug(F111,"ttptycmd ttol error",ckitoa(x),errno);
+ x = 0;
+ }
+ write_net_bytes += x;
+ pbuf_written += x;
+ }
+ if (FD_ISSET(ptyfd, &out)) { /* Can write to pty? */
+ debug(F100,"ttptycmd FD_ISSET ptyfd out","",0);
+ errno = 0;
+#ifndef COMMENT
+ x = write(ptyfd,tbuf + tbuf_written,tbuf_avail - tbuf_written);
+#else
+ /* Byte loop to rule out data overruns in the pty */
+ /* (it makes no difference) */
+ {
+ char *p = tbuf+tbuf_written;
+ int n = tbuf_avail - tbuf_written;
+ for (x = 0; x < n; x++) {
+ msleep(10);
+ if (write(ptyfd,&(p[x]),1) < 0)
+ break;
+ }
+ }
+#endif /* COMMENT */
+ debug(F111,"ttptycmd ptyfd write",ckitoa(errno),x);
+ if (x > 0) {
+ tbuf_written += x;
+ write_pty_bytes += x;
+ } else {
+ x = 0;
+ pty_err++;
+ if (pexitstat < 0) {
+ status = pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status B","",status);
+ if (status > -1) pexitstat = status;
+ have_pty = 0;
+ }
+ debug(F100,"ttptycmd +++ ptyfd write error","",0);
+ }
+ }
+ if (FD_ISSET(ttyfd, &in)) { /* Can read from net? */
+ tset++;
+ debug(F100,"ttptycmd FD_ISSET ttyfd in","",0);
+ n = in_chk(1,ttyfd);
+ debug(F101,"ttptycmd in_chk(ttyfd)","",n);
+ if (n < 0 || ttyfd == -1) {
+ debug(F101,"ttptycmd +++ ttyfd errno","",errno);
+ net_err++;
+ } else if (n > 0) {
+ if (n > PTY_TBUF_SIZE - tbuf_avail)
+ n = PTY_TBUF_SIZE - tbuf_avail;
+ debug(F101,"ttptycmd net read size adjusted","",n);
+ if (xlocal && netconn) {
+ /*
+ We have to use a byte loop here because ttxin()
+ does not decrypt or, for that matter, handle Telnet.
+ */
+ int c;
+ CHAR * p;
+ p = tbuf + tbuf_avail;
+ for (x = 0; x < n; x++) {
+ if ((c = ttinc(0)) < 0)
+ break;
+ if (!is_tn) { /* Not Telnet - keep all bytes */
+ *p++ = (CHAR)c;
+ debug(F000,"<<< char","",c);
+#ifdef TNCODE
+ } else { /* Telnet - must handle IAC and NVT */
+ debug(F000,"<<< char",ckitoa(in_state),c);
+ switch (c) {
+ case 0x00: /* NUL */
+ if (in_state == HAVE_CR) {
+ debug(F000,"<<< SKIP","",c);
+ } else {
+ *p++ = c;
+ debug(F000,"<<< Keep","",c);
+ }
+ in_state = 0;
+ break;
+ case 0x0d: /* CR */
+ if (!TELOPT_U(TELOPT_BINARY))
+ in_state = HAVE_CR;
+ *p++ = c;
+ debug(F000,"<<< Keep","",c);
+ break;
+#ifdef COMMENT
+ case 0x0f: /* Ctrl-O */
+ case 0x16: /* Ctrl-V */
+ *p++ = 0x16;
+ *p++ = c;
+ debug(F000,"<<< QUOT","",c);
+ break;
+#endif /* COMMENT */
+ case 0xff: /* IAC */
+ if (in_state == HAVE_IAC) {
+ debug(F000,"<<< KEEP","",c);
+ *p++ = c;
+ in_state = 0;
+ } else {
+ debug(F000,"<<< SKIP","",c);
+ in_state = HAVE_IAC;
+ }
+ break;
+ default: /* All others */
+ if (in_state == HAVE_IAC) {
+#ifdef COMMENT
+/*
+ tn_doop() will consume an unknown number of bytes and we'll overshoot
+ the for-loop. The only Telnet command I've ever seen arrive here is
+ a Data Mark, which comes when the remote protocol exits and the remote
+ job returns to its shell prompt. On the assumption it's a 1-byte command,
+ we don't write out the IAC or the command, and we clear the state. If
+ we called tn_doop() we'd have no way of knowing how many bytes it took
+ from the input stream.
+*/
+ int xx;
+ xx = tn_doop((CHAR)c,duplex,ttinc);
+ debug(F111,"<<< DOOP",ckctoa(c),xx);
+#else
+ debug(F101,"<<< DOOP","",c);
+#endif /* COMMENT */
+ in_state = 0;
+ } else {
+ *p++ = c;
+ debug(F000,"<<< keep","",c);
+ in_state = 0;
+ }
+ }
+#endif /* TNCODE */
+ }
+ }
+ ckmakmsg(msgbuf,500,
+ "ttptycmd read net [ttinc loop] errno=",
+ ckitoa(errno),
+ " count=",
+ ckitoa(x));
+ debug(F100,msgbuf,"",0);
+ } else {
+ x = ttxin(n,tbuf+tbuf_avail);
+ debug(F101,"ttptycmd ttxin x","",x);
+ }
+
+ if (x < 0) {
+ debug(F101,"ttptycmd read net error","",x);
+ net_err++;
+ }
+ tbuf_avail += x;
+ read_net_bytes += x;
+ }
+
+ } else
+ tnotset++;
+
+ if (FD_ISSET(ptyfd, &in)) { /* Read from pty? */
+ pset++;
+ debug(F100,"ttptycmd FD_ISSET ptyfd in","",0);
+#ifdef PTY_USE_NDELAY
+ n = PTY_PBUF_SIZE;
+#else
+ /*
+ This does not work on nonblocking channels
+ on certain platforms such as NetBSD.
+ */
+ n = pty_chk(ptyfd);
+#endif /* PTY_USE_NDELAY */
+ debug(F101,"ttptycmd pty_chk() n","",n);
+
+ if (n < 0)
+ n = 0;
+ if (n > 0) {
+ if (n > PTY_PBUF_SIZE - pbuf_avail)
+ n = PTY_PBUF_SIZE - pbuf_avail;
+ debug(F101,"ttptycmd pty read size adjusted","",n);
+ errno = 0;
+ x = read(ptyfd,pbuf+pbuf_avail,n);
+#ifdef DEBUG
+ if (deblog) {
+ ckmakmsg(msgbuf,500,
+ "ttptycmd read pty errno=",
+ ckitoa(errno),
+ " count=",
+ ckitoa(x));
+ debug(F100,msgbuf,"",0);
+ }
+#endif /* DEBUG */
+
+ if (x < 0 && errno == EAGAIN)
+ x = 0;
+
+ if (x < 0) { /* This works on Solaris and Linux */
+ pty_err++; /* but not NetBSD */
+ debug(F100,"TERMINATION TEST A","",0);
+#ifdef COMMENT
+ if (errno == EIO)
+ rc = 1;
+#endif /* COMMENT */
+ if (pexitstat < 0) {
+ status = pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status C","",status);
+ if (status > -1) pexitstat = status;
+ }
+ have_pty = 0;
+ x = 0;
+ }
+ if (x == 0 && !pty_err) { /* This works on NetBSD but */
+ debug(F100,"TERMINATION TEST B","",0);
+ status = pexitstat > -1 ? pexitstat :
+ pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status D","",status);
+ if (status > -1) {
+ pexitstat = status;
+ pty_err++;
+ have_pty = 0;
+ } else { /* Select() lied */
+ pty_err = 0; /* pty still there but has nothing */
+ msleep(100); /* sleep a bit */
+ }
+ x = 0;
+ }
+ /* Hopefully the next two are no longer needed... */
+ if (!pty_err && (
+#ifndef PTY_USE_NDELAY
+ x < 1 || errno
+#else
+ errno != 0 && errno != EAGAIN
+#endif /* PTY_USE_NDELAY */
+ )) {
+ debug(F100,"TERMINATION TEST C","",0);
+ pty_err++;
+ debug(F101,"ttptycmd SET pty_err","",pty_err);
+ if (errno == EIO) /* errno == EIO is like EOF */
+ rc = 1;
+ if (x < 0)
+ x = 0;
+ }
+#ifdef COMMENT
+#ifdef DEBUG
+ if (deblog) {
+ pbuf[pbuf_avail + x] = '\0';
+ debug(F111,"ttptycmd added to pty buffer",
+ pbuf+pbuf_avail,x);
+ }
+#endif /* DEBUG */
+#endif /* COMMENT */
+ pbuf_avail += x;
+ read_pty_bytes += x;
+ } else { /* n == 0 with blocking reads */
+ debug(F100,
+ "PTY READ RETURNED ZERO BYTES - SHOULD NOT HAPPEN",
+ "",0);
+ }
+ } else
+ pnotset++;
+
+ /* If writes have caught up to reads, reset the buffers */
+
+ if (pbuf_written == pbuf_avail)
+ pbuf_written = pbuf_avail = 0;
+ if (tbuf_written == tbuf_avail)
+ tbuf_written = tbuf_avail = 0;
+
+ /* See if we can exit */
+
+ x1 = pbuf_avail - pbuf_written;
+ x2 = tbuf_avail - tbuf_written;
+
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST pty_err","",pty_err);
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST x1 [write to net]","",x1);
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST x2 [write to pty]","",x2);
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST rc","",rc);
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST status","",status);
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST pexitstat","",pexitstat);
+
+ if (net_err) { /* Net error? */
+ debug(F101,"ttptycmd net_err LOOP EXIT TEST net_err","",net_err);
+ if (have_net) {
+ if (local) {
+ ttclos(0);
+ printf("?Connection closed\n");
+ }
+ have_net = 0;
+ }
+ debug(F101,"ttptycmd net_err LOOP EXIT TEST x1","",x1);
+ if (x1 == 0)
+ break;
+ }
+ if (pty_err) { /* Pty error? */
+ if (have_pty) {
+ if (pexitstat < 0) {
+ status = pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status E","",status);
+ if (status > -1) pexitstat = status;
+ }
+ have_pty = 0;
+ }
+ if (x1 == 0 && x2 == 0) { /* If buffers are caught up */
+ rc = 1; /* set preliminary return to success */
+ debug(F101,"ttptycmd pty_err LOOP EXIT TEST rc 2","",rc);
+ break; /* and exit the loop */
+ }
+ }
+ }
+ debug(F101,"ttptycmd +++ have_pty","",have_pty);
+ if (have_pty) { /* In case select() failed */
+#ifdef USE_CKUPTY_C
+ end_pty();
+ close(ptyfd);
+#else
+ close(slavefd);
+ close(masterfd);
+#endif /* USE_CKUPTY_C */
+ }
+ pty_master_fd = -1;
+ debug(F101,"ttptycmd +++ pexitstat","",pexitstat);
+ if (pexitstat < 0) { /* Try one last time to get status */
+ status = pty_get_status(ptyfd,pty_fork_pid);
+ debug(F101,"ttptycmd pty_get_status F","",status);
+ if (status > -1) pexitstat = status;
+ }
+ debug(F101,"ttptycmd +++ final pexitstat","",pexitstat);
+ if (deblog) { /* Stats for debug log */
+ debug(F101,"ttptycmd +++ pset ","",pset);
+ debug(F101,"ttptycmd +++ pnotset","",pnotset);
+ debug(F101,"ttptycmd +++ tset ","",tset);
+ debug(F101,"ttptycmd +++ tnotset","",tnotset);
+
+ debug(F101,"ttptycmd +++ read_pty_bytes","",read_pty_bytes);
+ debug(F101,"ttptycmd +++ write_net_bytes","",write_net_bytes);
+ debug(F101,"ttptycmd +++ read_net_bytes","",read_net_bytes);
+ debug(F101,"ttptycmd +++ write_pty_bytes","",write_pty_bytes);
+ }
+/*
+ If we got the external protocol's exit status from waitpid(), we use that
+ to set our return code. If not, we fall back on whatever rc was previously
+ set to, namely 1 (success) if the pty fork seemed to terminate, 0 otherwise.
+*/
+ if (save_sigchld) { /* Restore this if we changed it */
+ (VOID) signal(SIGCHLD,save_sigchld);
+ save_sigchld = NULL;
+ }
+ msleep(500);
+ x = kill(pty_fork_pid,SIGHUP); /* In case it's still there */
+ pty_fork_pid = -1;
+ debug(F101,"ttptycmd fork kill SIGHUP","",x);
+ if (pexitstat > -1)
+ rc = (pexitstat == 0 ? 1 : 0);
+ debug(F101,"ttptycmd +++ rc","",rc);
+ if (!local) { /* If in remote mode */
+ conres(); /* restore console to CBREAK mode */
+ concb((char)escchr);
+ }
+ return(rc);
+}
+#endif /* NETPTY */
+#endif /* SELECT */
+
+/* T T R U N C M D -- Redirect an external command over the connection. */
+
+/*
+ TTRUNCMD is the routine that was originally used for running external
+ protocols. It is very simple and works fine provided (a) the connection
+ is not encrypted, and (b) the external protocol uses standard i/o
+ (file descriptors 0 and 1) for file transfer.
+*/
+
int
ttruncmd(s) char *s; {
PID_T pid; /* pid of lower fork */
debug(F100,"ttruncmd fail: nopush","",0);
return(0);
}
+
+#ifdef NETPTY
+/***************
+ It might also be necessary to use the pty routine for other reasons,
+ e.g. because the external program does not use stdio.
+*/
+#ifdef NETCONN
+/*
+ If we have a network connection we use a different routine because
+ (a) if the connection is encrypted, the mechanism used here can't deal
+ with it; and (b) it won't handle any network protocols either, e.g.
+ Telnet, Rlogin, K5 U-to-U, etc. However, this routine works much
+ better (faster, more transparent) on serial connections and when
+ C-Kermit is in remote mode (i.e. is on the far end).
+*/
+ /* For testing always use this */
+ if (netconn)
+ return(ttptycmd(s));
+#endif /* NETCONN */
+
+/***************/
+#else /* NETPTY */
+ if (tt_is_secure()) {
+ printf("?Sorry, \
+external protocols over secure connections not supported in this OS.\n"
+ );
+ return(0);
+ }
+#endif /* NETPTY */
+
conres(); /* Make console normal */
pexitstat = -4;
if ((pid = fork()) == 0) { /* Make a child fork */
concb((char)escchr); /* Restore console to CBREAK mode */
return(statusp == 0 ? 1 : 0);
}
-#endif /* CK_REDIR */
+#endif /* CK_REDIR */
struct tm *
#ifdef CK_ANSIC
#ifdef CK_ANSIC
#include <stdarg.h>
#else /* CK_ANSIC */
+#ifdef __GNUC__
+#include <stdarg.h>
+#else
#include <varargs.h>
+#endif /* __GNUC__ */
#endif /* CK_ANSIC */
#ifdef fprintf
#undef fprintf
#ifdef MINIX2
-/* Minix doesn't have a gettimeofday call. We fake one here using time(2) */
+/* Minix doesn't have a gettimeofday call (but MINIX3 does).
+ * We fake one here using time(2)
+ */
+#ifndef MINIX3
int
gettimeofday(struct timeval *tp, struct timezone *tzp) {
tp->tv_usec = 0L; /* Close enough for horseshoes */
return(-1);
return(0);
}
+#endif /* MINIX3 */
-/* Minix does not support symbolic links. We implement a version of
- readlink that always fails */
-
+#ifndef MINIX3
int
readlink(const char *path, void *buf, size_t bufsiz) {
errno = ENOSYS;
return(-1);
}
+#endif /* MINIX3 */
+
#endif /* MINIX2 */
-C-KERMIT 8.0 UNIX MANUAL PAGE AND TUTORIAL
+ [1]The Columbia Crown The Kermit Project | Columbia University
+ 612 West 115th Street, New York NY 10025 USA o [2]kermit@columbia.edu
+ ...since 1981
+ [3]Home [4]Kermit 95 [5]C-Kermit [6]Scripts [7]Current [8]New [9]FAQ
+ [10]Support
+
+ C-KERMIT 9.0 UNIX MANUAL PAGE AND TUTORIAL
+
+ Frank da Cruz
+ [11]The Kermit Project, [12]Columbia University
+
+ [ [13]PDF version ] [ [14]Nroff version ]
- Frank da Cruz, Christine M. Gianone
- [1]The Kermit Project, [2]Columbia University
-
- [ [3]PDF version ] [ [4]Nroff version ]
-
This document is intended to give the beginner sufficient
- information to make basic (if not advanced) use of C-Kermit 8.0.
+ information to make basic (if not advanced) use of C-Kermit 9.0.
Although it might be rather long for a Unix manual page (about 1600
- lines), it's still far shorter than the C-Kermit manual, which
+ lines), it's still far shorter than the [15]C-Kermit manual, which
should be consulted for advanced topics such as customization,
character-sets, scripting, etc. We also attempt to provide a clear
structural overview of C-Kermit's many capabilities, functional
areas, states, and modes and their interrelation, that should be
helpful to beginners and veterans alike, as well as to those
- upgrading to the new release.
-
- Most recent update: 24 October 2002
- ________________________________________________________________________
-
- CONTENTS
- * [5]DESCRIPTION
- * [6]SYNOPSIS
- * [7]OPTIONS
- * [8]COMMAND LANGUAGE
- * [9]INITIALIZATION FILE
- * [10]MODES OF OPERATION
- * [11]MAKING CONNECTIONS
- * [12]TRANSFERRING FILES WITH KERMIT
- * [13]KERMIT CLIENT/SERVER CONNECTIONS
- * [14]KERMIT'S BUILT-IN FTP AND HTTP CLIENTS
- * [15]INTERNET KERMIT SERVICE
- * [16]SECURITY
- * [17]ALTERNATIVE COMMAND-LINE PERSONALITIES
- * [18]LICENSE
- * [19]OTHER TOPICS
- * [20]DOCUMENTATION AND UPDATES
- * [21]FILES
- * [22]AUTHORS
- _________________________________________________________________
-
- DESCRIPTION [ [23]Top ] [ [24]Contents ] [ [25]Next ]
-
- [26]C-Kermit is an all-purpose communications software package from
- the [27]Kermit Project at [28]Columbia University that:
-
+ upgrading to the new release. Thanks to Christine Gianone for her
+ work on this document before she was laid off in 2005.
+
+ Most recent update: Fri Jul 1 14:12:31 2011
+
+CONTENTS
+
+ * [16]DESCRIPTION
+ * [17]SYNOPSIS
+ * [18]OPTIONS
+ * [19]COMMAND LANGUAGE
+ * [20]INITIALIZATION FILE
+ * [21]MODES OF OPERATION
+ * [22]MAKING CONNECTIONS
+ * [23]TRANSFERRING FILES WITH KERMIT
+ * [24]KERMIT CLIENT/SERVER CONNECTIONS
+
+ * [25]KERMIT'S BUILT-IN FTP AND HTTP CLIENTS
+ * [26]INTERNET KERMIT SERVICE
+ * [27]SECURITY
+ * [28]ALTERNATIVE COMMAND-LINE PERSONALITIES
+ * [29]LICENSE
+ * [30]OTHER TOPICS
+ * [31]DOCUMENTATION AND UPDATES
+ * [32]FILES
+ * [33]AUTHORS
+
+DESCRIPTION
+
+ [34]Top [35]Contents [36]Next
+
+ [37]C-Kermit is an all-purpose communications software package from the
+ [38]Kermit Project at [39]Columbia University that:
+
* Is portable to many platforms, Unix and non-Unix alike.
* Can make both serial and network connections.
* Can conduct interactive terminal sessions over its connection.
* Can convert text-file character sets in terminal mode or file
transfer.
* Is customizable in every aspect of its operation.
-
+
C-Kermit is a modem program, a Telnet client, an Rlogin client, an FTP
- client, an HTTP client, and on selected platforms, also an X.25
- client. It can make its own secure Internet connections using
- IETF-approved security methods including Kerberos IV, Kerberos V,
- SSL/TLS, and SRP and it can also make SSH (Secure Shell) connections
- through your external SSH client application. It can be the far-end
- file-transfer or client/server partner of your desktop Kermit client.
- It can also accept incoming dialed and network connections. It can
- even be installed as an Internet service on its own standard TCP
- socket, 1649 [[29]RFC2839, [30]RFC2840].
-
+ client, an HTTP client, and on selected platforms, also an X.25 client.
+ It can make its own secure Internet connections using IETF-approved
+ security methods including Kerberos IV, Kerberos V, SSL/TLS, and SRP
+ and it can also make SSH (Secure Shell) connections through your
+ external SSH client application. It can be the far-end file-transfer or
+ client/server partner of your desktop Kermit client. It can also accept
+ incoming dialed and network connections. It can even be installed as an
+ Internet service on its own standard TCP socket, 1649 [[40]RFC2839,
+ [41]RFC2840].
+
And perhaps most important, everything you can do "by hand"
(interactively) with C-Kermit, can be "scripted" (automated) using its
built-in cross-platform transport-independent script programming
language, which happens to be identical to its interactive command
language.
-
- This manual page offers an overview of C-Kermit 8.0 for Unix ("Unix"
- is an operating system family that includes AIX, DG/UX, FreeBSD,
- HP-UX, IRIX, Linux, Mac OS X, NetBSD, OpenBSD, Open Server, Open Unix,
- QNX, Solaris, SunOS, System V R3, System V R4, Tru64 Unix, Unixware,
- Xenix, and many others). For thorough coverage, please consult the
- published C-Kermit manual and supplements (see [31]DOCUMENTATION
- below). For further information about C-Kermit, Kermit software for
- other platforms, and Kermit manuals, visit the Kermit Project website:
-
- [32]http://www.columbia.edu/kermit/
+
+ This manual page offers an overview of C-Kermit 9.0 for Unix ("Unix" is
+ an operating system family that includes AIX, DG/UX, FreeBSD, HP-UX,
+ IRIX, Linux, Mac OS X, NetBSD, OpenBSD, Open Server, Open Unix, QNX,
+ Solaris, SunOS, System V R3, System V R4, Tru64 Unix, Unixware, Xenix,
+ and many others). For thorough coverage, please consult the published
+ C-Kermit manual and supplements (see [42]DOCUMENTATION below). For
+ further information about C-Kermit, Kermit software for other
+ platforms, and Kermit manuals, visit the Kermit Project website:
+
+ [43]http://www.columbia.edu/kermit/
This is a longer-than-average manual page, and yet it barely scratches
- the surface. Don't be daunted. C-Kermit is a large and complex
- package, evolving over decades of practice and experience, but that
- doesn't mean it's hard to learn or use. Its most commonly used
- functions are explained here with pointers to additional information
- elsewhere.
-
- [ [33]Kermit Home ] [ [34]C-Kermit Home ] [ [35]C-Kermit FAQ ]
- ________________________________________________________________________
-
- SYNOPSIS [ [36]Top ] [ [37]Contents ] [ [38]Next ] [ [39]Previous ]
-
+ the surface. Don't be daunted. C-Kermit is a large and complex package,
+ evolving over decades of practice and experience, but that doesn't mean
+ it's hard to learn or use. Its most commonly used functions are
+ explained here with pointers to additional information elsewhere.
+
+ [44]Kermit Home [45]C-Kermit Home [46]C-Kermit FAQ
+
+SYNOPSIS
+
+ [47]Top [48]Contents [49]Next [50]Previous
+
Usage: kermit [filename] [-x arg [-x arg]...[-yyy]..] [ {=,--,+} text
] ]
Or: kermit URL
-
+
* -x is an option requiring an argument;
* -y is an option with no argument.
-
+
If the first command-line argument is the name of a file,
- interactive-mode commands are executed from the file. The '=' (or
- "--") argument tells Kermit not to parse the remainder of the command
- line, but to make the words following '=' available as \%1, \%2, ...
- \%9. The "+" argument is like "=" but for use in "kerbang scripts"
- (explained [40]below). A second command-line format allows the one and
- only argument to be a [41]Telnet, FTP, HTTP, or IKSD URL.
-
+ interactive-mode commands are executed from the file. The '=' (or "--")
+ argument tells Kermit not to parse the remainder of the command line,
+ but to make the words following '=' available as \%1, \%2, ... \%9. The
+ "+" argument is like "=" but for use in "kerbang scripts" (explained
+ [51]below). A second command-line format allows the one and only
+ argument to be a [52]Telnet, FTP, HTTP, or IKSD URL.
+
Order of execution:
-
- 1. [42]The command file (if any).
- 2. [43]The initialization file, if any, unless suppressed with -Y.
- 3. [44]The customization file (if it is executed by the
- initialization file).
- 4. [45]The command-line URL (if any, and if so, execution stops
- here).
- 5. [46]Command-line options (if any).
- 6. [47]Interactive commands.
-
+
+ 1. [53]The command file (if any).
+ 2. [54]The initialization file, if any, unless suppressed with -Y.
+ 3. [55]The customization file (if it is executed by the initialization
+ file).
+ 4. [56]The command-line URL (if any, and if so, execution stops here).
+ 5. [57]Command-line options (if any).
+ 6. [58]Interactive commands.
+
Some command-line options can cause actions (such as -s to send a
file); others just set parameters. If any action options are included
on the command line, Kermit exits when finished unless also given the
-S ("stay") option. If no action options are given, no initialization
- or command files contained an EXIT or QUIT command, and no fatal
- errors occurred, Kermit issues its prompt and waits for you to type
- commands.
-
+ or command files contained an EXIT or QUIT command, and no fatal errors
+ occurred, Kermit issues its prompt and waits for you to type commands.
+
Bear in mind that C-Kermit can be built with selected features
disabled, and also that certain features are not available on all
platforms. For example, C-Kermit can't be built with TCP/IP support
on a platform that does not have TCP/IP header files and libraries
- (and even if Kermit does include TCP/IP support, it can't be used
- to make TCP/IP connections on a computer that does not have a
- TCP/IP stack installed). If your version of C-Kermit lacks a
- feature mentioned here, use its SHOW FEATURES command to see what
- might have been excluded.
-
+ (and even if Kermit does include TCP/IP support, it can't be used to
+ make TCP/IP connections on a computer that does not have a TCP/IP
+ stack installed). If your version of C-Kermit lacks a feature
+ mentioned here, use its SHOW FEATURES command to see what might have
+ been excluded.
+
C-Kermit has three kinds of commands: regular single-letter
command-line options, extended-format command-line options, and
interactive commands.
-
- [ [48]Kermit Home ] [ [49]C-Kermit Home ] [ [50]C-Kermit FAQ ]
- ________________________________________________________________________
-
- OPTIONS [ [51]Top ] [ [52]Contents ] [ [53]Next ] [ [54]Previous ]
-
+
+ [59]Kermit Home [60]C-Kermit Home [61]C-Kermit FAQ
+
+OPTIONS
+
+ [62]Top [63]Contents [64]Next [65]Previous <- (Most people should
+ click Next to skip around this section...)
+
Like most Unix commands, C-Kermit can be be given options on the
command line. But C-Kermit also can be used interactively by giving it
- [55]commands composed of words, which are more intuitive than cryptic
+ [66]commands composed of words, which are more intuitive than cryptic
command-line options, and more flexible too. In other words, you don't
have to use C-Kermit's command-line options, but they are available if
you want to. (By the same token, you don't have to use its interactive
commands either -- you can use either or both in any combination.)
-
+
C-Kermit is generally installed in the PATH as "kermit", and therefore
- is invoked by typing the word "kermit" (lowercase) at the shell
- prompt, and then pressing the Return or Enter key. If you wish to
- include command-line options, put them after the word "kermit" but
- before pressing Return or Enter, separated by spaces, for example:
-
+ is invoked by typing the word "kermit" (lowercase) at the shell prompt,
+ and then pressing the Return or Enter key. If you wish to include
+ command-line options, put them after the word "kermit" but before
+ pressing Return or Enter, separated by spaces, for example:
+
$ kermit -s ckermit.tar.gz
('$' is the shell prompt; "kermit -s ckermit.tar.gz" is what you type,
followed by Return or Enter.)
-
+
Here is a list of C-Kermit's single-letter command-line options, which
start with a single dash (-), in ASCII ("alphabetical") order.
Alphabetic case is significant (-A is not the same as -a). The Action?
column contains Y for action options and N for non-action options.
+
Option Action? Description
-0 N (digit zero) 100% transparent Connect state for "in-the-middle"
operation: 8 bits, no parity, no escape character, everything passes
through.
-8 N (digit eight) Connection is 8-bit clean (this is the default in
- C-Kermit 8.0). Equivalent to the EIGHTBIT command, which in turn is a
+ C-Kermit 9.0). Equivalent to the EIGHTBIT command, which in turn is a
shortcut for SET TERMINAL BYTESIZE 8, SET COMMAND BYTESIZE 8, SET
PARITY NONE.
- -9 arg N (digit nine) Make a connection to an FTP server. Equivalent
- to the FTP OPEN command.
+ -9 arg N (digit nine) Make a connection to an FTP server. Equivalent to
+ the FTP OPEN command.
Argument: IP-address-or-hostname[:optional-TCP-port].
NOTE: C-Kermit also has a separate FTP command-line personality, with
- regular FTP-like command-line syntax. [56]More about this below.
+ regular FTP-like command-line syntax. [67]More about this below.
-A N Kermit is to be started as an Internet service (IKSD) (only from
inetd.conf).
-B N Kermit is running in Batch or Background (no controlling
metacharacters.
Also see: -g, -k.
-H N Suppress program startup Herald and greeting.
- -I N Tell Kermit it has a reliable connection, to force streaming to
- be used where it normally would not be. Equivalent to the SET RELIABLE
- ON command.
+ -I N Tell Kermit it has a reliable connection, to force streaming to be
+ used where it normally would not be. Equivalent to the SET RELIABLE ON
+ command.
-J arg N "Be like Telnet." Like -j but implies -E.
Argument: IP hostname/address optionally followed by service.
NOTE: C-Kermit also has a separate Telnet command-line personality,
- with regular Telnet-like command-line syntax. [57]More about this
+ with regular Telnet-like command-line syntax. [68]More about this
below.
-L N Recursive directory descent for files in -s option.
-M arg N My user name (for use with Telnet, Rlogin, FTP, etc).
Argument: Modem name as in SET MODEM TYPE command, e.g. "usrobotics".
-n Y Enter Connect state after transferring files (historical).
-p arg N Parity. Equivalent to the SET PARITY command.
- Argument: One of the following: e(ven), o(dd), m(ark), n(one),
- s(pace).
+ Argument: One of the following: e(ven), o(dd), m(ark), n(one), s(pace).
-q N Quiet (suppress most messages). Equivalent to SET QUIET ON.
-r Y Receive file(s). Equivalent to the RECEIVE command.
Argument: (none, but see -a)
-s arg N Send file(s).
- Argument: One or more local file specifications. Equivalent to the
- SEND command.
+ Argument: One or more local file specifications. Equivalent to the SEND
+ command.
Also see: -a.
-t N (Historical) Xon (Ctrl-Q) Turnaround character for half-duplex
connections (used on serial linemode connections to old mainframes).
Equivalent to SET DUPLEX HALF, SET HANDSHAKE XON.
-v arg N Window size for Kermit protocol (ignored when streaming).
- Equivalanet to SET WINDOW-SIZE.
+ Equivalent to SET WINDOW-SIZE.
Argument: Number, 1 to 32.
-w N Incoming files Write over existing files. Equivalent to SET FILE
COLLISION OVERWRITE.
- -x Y Enter server mode. Equivalent to the SERVER command. Also see:
- -O.
+ -x Y Enter server mode. Equivalent to the SERVER command. Also see: -O.
-y arg N Alternative initialization file.
Argument: Filename.
-z N Force foreground behavior. To be used in case Kermit doesn't
automatically sense its foreground status. Equivalent to the SET
BACKGROUND OFF command.
-
- Extended command-line options (necessary because single-letter ones
- are about used up) start with two dashes (--), with words rather than
+
+ Extended command-line options (necessary because single-letter ones are
+ about used up) start with two dashes (--), with words rather than
single letters as option names. If an extended option takes an
- argument, it is separated from the option word by a colon (:).
- Extended options include:
+ argument, it is separated from the option word by a colon (:). Extended
+ options include:
+
Option Description
--bannerfile:filename File to display upon startup or IKSD login.
- --cdfile:filename File to be sent for display to the client when
- server changes directory (filename is relative to the changed-to
- directory).
+ --cdfile:filename File to be sent for display to the client when server
+ changes directory (filename is relative to the changed-to directory).
--cdmessage:{on,off} Enable/disable the server CD message feature.
--help Prints usage message for extended options.
- --helpfile:filename Designates a file containing custom text to
- replace the top-level HELP command.
+ --helpfile:filename Designates a file containing custom text to replace
+ the top-level HELP command.
--nointerrupts Disables keyboard interrupts.
--noperms Disables the Kermit protocol file Permissions attribute, to
prevent transmission of file permissions (protection) from sender to
receiver.
-
- Plus several other [58]IKSD-Only options.
-
- See the [59]file-transfer section for examples of command-line
+
+ Plus several other [69]IKSD-Only options.
+
+ See the [70]file-transfer section for examples of command-line
invocation.
- ________________________________________________________________________
-
- COMMAND LANGUAGE [ [60]Top ] [ [61]Contents ] [ [62]Next ] [ [63]Previous ]
-
- * [64]Command Files, Macros, and Scripts
- * [65]Command List
-
+
+COMMAND LANGUAGE
+
+ [71]Top [72]Contents [73]Next [74]Previous
+
+ * [75]Command Files, Macros, and Scripts
+ * [76]Command List
+
C-Kermit's interactive command language is the subject of a
- [66]622-page book and another several hundred pages of updates, far
- too much for a manual page. But it's not hard to get started. At the
- shell prompt, just type "kermit" to get C-Kermit's interactive command
+ [77]622-page book and another several hundred pages of updates, far too
+ much for a manual page. But it's not hard to get started. At the shell
+ prompt, just type "kermit" to get C-Kermit's interactive command
prompt:
-
+
$ kermit
(/current/directory) C-Kermit>
should probably be "intro" (introduction). Note the prompt shows your
current directory (unless you tell Kermit to prompt you with something
else).
-
+
Interactive commands are composed mainly of regular English words,
usually in the form of imperative sentences, such as:
-
+
send oofa.txt
which tells Kermit to send (transfer) the file whose name is oofa.txt,
or:
-
+
set transfer mode automatic
which sets Kermit's "transfer mode" to "automatic" (whatever that
means).
-
+
While typing commands, you can abbreviate, ask for help (by pressing
the "?" key anywhere in a command), complete keywords or filenames
(with the Tab or Esc key), and edit your typing with Backspace or
Delete, Ctrl-W, Ctrl-U, etc. You can also recall previous commands,
save your command history, and who knows what else. Give the INTRO
command for details.
-
+
C-Kermit has hundreds of commands, and they can be issued in infinite
variety and combinations, including commands for:
-
- * Making connections (SET LINE, DIAL, TELNET, SSH, FTP, CONNECT,
- ...)
+
+ * Making connections (SET LINE, DIAL, TELNET, SSH, FTP, CONNECT, ...)
* Breaking connections (HANGUP, CLOSE)
* Transferring files (SEND, GET, RECEIVE, MOVE, RESEND, ...)
* Establishing preferences (SET)
* Interacting with a remote computer (INPUT, OUTPUT, ...)
* Interacting with local programs (RUN, EXEC, PTY, ...)
* Logging things (LOG SESSION, LOG PACKETS, LOG DEBUG, ...)
-
+
And of course QUIT or EXIT to get out and HELP to get help, and for
programmers: loops, decision making, variables, arrays, associative
arrays, integer and floating point arithmetic, macros, built-in and
C-Kermit's commands, type a question mark (?) at the prompt. To get a
description of any command, type HELP followed by the name of the
command, for example:
-
+
help send
The command interruption character is Ctrl-C (hold down the Ctrl key
and press the C key).
-
+
The command language "escape character", used to introduce variable
names, function invocations, and so on, is backslash (\). If you need
to include a literal backslash in a command, type two of them, e.g.:
-
+
get c:\\k95\\k95custom.ini
- Command Files, Macros, and Scripts
-
+Command Files, Macros, and Scripts
+
A file containing Kermit commands is called a Kermit command file or
Kermit script. It can be executed with Kermit's TAKE command:
-
+
(/current/dir) C-Kermit> take commandfile
(where "commandfile" is the name of the command file). Please don't
pipe a command file into Kermit's standard input (which might or might
not work); if you have Kermit commands in a file, tell Kermit to TAKE
the file.
-
+
In Unix only, a Kermit command file can also be executed directly by
including a "kerbang" line as the first line of the file:
-
+
#!/usr/local/bin/kermit +
That is, a top line that starts with "#!", followed immediately by the
full path of the Kermit executable, and then, if the Kermit script is
- to be given arguments on the command line, a space and a plus sign.
- The script file must also have execute permission:
-
+ to be given arguments on the command line, a space and a plus sign. The
+ script file must also have execute permission:
+
chmod +x commandfile
Except for the " +" part, this is exactly the same as you would do for
- a shell script, a Perl script, etc. Here's a simple but useless
- example script that regurgitates its arguments (up to three of them):
-
+ a shell script, a Perl script, etc. Here's a simple but useless example
+ script that regurgitates its arguments (up to three of them):
+
#!/usr/local/bin/kermit +
if defined \%1 echo "Argument 1: \%1"
if defined \%2 echo "Argument 2: \%2"
If this file is stored in your current directory as "commandfile",
then:
-
+
./commandfile one two three four five
prints:
-
+
Argument 1: one
Argument 2: two
Argument 3: three
etc...
- This illustrates the basic structure of a standalone Kermit script:
- the "kerbang line", then some commands. It should end with "exit"
- unless you want the Kermit prompt to appear when it is finished. \%1
- is the first argument, \%2 the second, and so on.
-
- You can also create your own commands by defining named macros
- composed of other Kermit commands (or macros). Here's a simple
- example:
-
+ This illustrates the basic structure of a standalone Kermit script: the
+ "kerbang line", then some commands. It should end with "exit" unless
+ you want the Kermit prompt to appear when it is finished. \%1 is the
+ first argument, \%2 the second, and so on.
+
+ You can also create your own commands by defining named macros composed
+ of other Kermit commands (or macros). Here's a simple example:
+
define mydial {
set modem type usrobotics
set port /dev/ttyS0
if success connect
}
- This shows how you can combine many commands into one command,
- "mydial" in this case (you can use any name you like, provided it does
- not clash with the name of a built-in command). When this macro
- definition is in effect, you can type commands like:
-
+ This shows how you can combine many commands into one command, "mydial"
+ in this case (you can use any name you like, provided it does not clash
+ with the name of a built-in command). When this macro definition is in
+ effect, you can type commands like:
+
mydial 7654321
and it executes all the commands in macro definition, substituting the
first operand ("7654321") for the formal parameter ("\%1") in the
definition. This saves you from having to type lots of commands every
time you want to make a modem call.
-
+
One way to have the macro definition in effect is to type the
- definition at the Kermit prompt. Another way is to store the
- definition in a file and TAKE the file. If you want the the definition
- to be in effect automatically every time you start Kermit, put the
- definition in your initialization or customization file (explained
- [67]below).
-
+ definition at the Kermit prompt. Another way is to store the definition
+ in a file and TAKE the file. If you want the definition to be in effect
+ automatically every time you start Kermit, put the definition in your
+ initialization or customization file (explained [78]below).
+
Here's a somewhat more ambitious example:
-
+
define mydelete {
local trash
assign trash \v(home)trashcan/
}
These macros are not exactly production quality (they don't handle
- filenames that include path segments, they don't handle multiple
- files, etc), but you get the idea: you can pass arguments to macros,
- they can check them and make other kinds of decisions, and the
- commands themselves are relatively intuitive and intelligible.
-
+ filenames that include path segments, they don't handle multiple files,
+ etc), but you get the idea: you can pass arguments to macros, they can
+ check them and make other kinds of decisions, and the commands
+ themselves are relatively intuitive and intelligible.
+
If you put the above lines into your initialization or customization
- file, you'll have MYDELETE and MYUNDELETE commands available every
- time you start Kermit, at least as long as you don't suppress
- execution of the initialization file. (Exercise for the reader: Make
- these macros generally useful: remove limitations, add trashcan
- display, browsing, emptying, etc.)
-
+ file, you'll have MYDELETE and MYUNDELETE commands available every time
+ you start Kermit, at least as long as you don't suppress execution of
+ the initialization file. (Exercise for the reader: Make these macros
+ generally useful: remove limitations, add trashcan display, browsing,
+ emptying, etc.)
+
Kerbang scripts execute without the initialization file. This to keep
them portable and also to make them start faster. If you want to write
Kerbang scripts that depend on the initialization file, include the
command
-
+
take \v(home).kermrc
at the desired spot in the script. By the way, \v(xxx) is a built-in
variable (xxx is the variable name, "home" in this case). To see what
- built-in variables are available, type "show variables" at the
- C-Kermit prompt. To see what else you can show, type "show ?". \m(xxx)
- is a user defined variable (strictly speaking, it is a macro used as a
- variable).
-
- Command List
-
+ built-in variables are available, type "show variables" at the C-Kermit
+ prompt. To see what else you can show, type "show ?". \m(xxx) is a user
+ defined variable (strictly speaking, it is a macro used as a variable).
+
+Command List
+
C-Kermit has more than 200 top-level commands, and some of these, such
as SET, branch off into hundreds of subcommands of their own, so it's
- not practical to describe them all here. Instead, here's a concise
- list of the most commonly used top-level commands, grouped by
- category. To learn about each command, type "help" followed by the
- command name, e.g. "help set". Terms such as Command state and Connect
- state are explained in subsequent sections.
-
+ not practical to describe them all here. Instead, here's a concise list
+ of the most commonly used top-level commands, grouped by category. To
+ learn about each command, type "help" followed by the command name,
+ e.g. "help set". Terms such as Command state and Connect state are
+ explained in subsequent sections.
+
Optional fields are shown in [ italicized brackets ]. filename means
the name of a single file. filespec means a file specification that is
allowed to contain wildcard characters like '*' to match groups of
files. options are (optional) switches like /PAGE, /NOPAGE, /QUIET,
etc, listed in the HELP text for each command. Example:
-
+
send /recursive /larger:10000 /after:-1week /except:*.txt *
which can be read as "send all the files in this directory and all the
ones underneath it that are larger than 10000 bytes, no more than one
week old, and whose names don't end with ".txt".
-
+
Basic Commands
- HELP Requests top-level help.
- HELP command Requests help about the given command.
- INTRODUCTION Requests a brief introduction to C-Kermit.
- LICENSE Displays the C-Kermit software copyright and license.
- VERSION Displays C-Kermit's version number.
- EXIT [ number ] Exits from Kermit with the given status code.
- Synonyms: QUIT, E, Q.
- TAKE filename [ parameters... ] Executes commands from the
- given file.
- LOG item [ filename ] Keeps a log of the given item in the
- given file.
- [ DO ] macro [ parameters... ] Executes commands from the
- given macro.
- SET parameter value Sets the given parameter to the given
- value.
- SHOW category Shows settings in a given category.
- STATUS Tells whether previous command succeeded or failed.
- DATE [ date-and/or-time ] Shows current date-time or interprets
- given date-time.
- RUN [ extern-command [ parameters... ] Runs the given external
- command. Synonym: !.
- EXEC [ extern-command [ params... ] Kermit overlays itself with
- the given command.
- SUSPEND Stops Kermit and puts it in the background. Synonym: Z.
-
+
+ HELP Requests top-level help.
+ HELP command Requests help about the given command.
+ INTRODUCTION Requests a brief introduction to C-Kermit.
+ LICENSE Displays the C-Kermit software copyright and license.
+ VERSION Displays C-Kermit's version number.
+ EXIT [ number ] Exits from Kermit with the given status code. Synonyms:
+ QUIT, E, Q.
+ TAKE filename [ parameters... ] Executes commands from the given file.
+ LOG item [ filename ] Keeps a log of the given item in the given file.
+ [ DO ] macro [ parameters... ] Executes commands from the given
+ macro.
+ SET parameter value Sets the given parameter to the given value.
+ SHOW category Shows settings in a given category.
+ STATUS Tells whether previous command succeeded or failed.
+ DATE [ date-and/or-time ] Shows current date-time or interprets given
+ date-time.
+ RUN [ extern-command [ parameters... ] Runs the given external command.
+ Synonym: !.
+ EXEC [ extern-command [ params... ] Kermit overlays itself with the
+ given command.
+ SUSPEND Stops Kermit and puts it in the background. Synonym: Z.
+
Local File Management
- TYPE [ options ] filename Displays the contents of the given
- file.
- MORE [ options ] filename Equivalent to TYPE /PAGE (pause after
- each screenful).
- CAT [ options ] filename Equivalent to TYPE /NOPAGE.
- HEAD [ options ] filename Displays the first few lines of a
- given file.
- TAIL [ options ] filename Displays the last few lines of a
- given file.
- GREP [ options ] pattern filespec Displays lines from files
- that match the pattern. Synonym: FIND.
- DIRECTORY [ options ] [ filespec ] Lists files (built-in, many
- options).
- LS [ options ] [ filespec ] Lists files (runs external "ls"
- command).
- DELETE [ options ] [ filespec ] Deletes files. Synonym: RM.
- PURGE [ options ] [ filespec ] Removes backup (*.~n~) files.
- COPY [ options ] [ filespecs... ] Copies files. Synonym: CP.
- RENAME [ options ] [ filespecs... ] Renames files. Synonym: MV.
- CHMOD [ options ] [ filespecs... ] Changes permissions of
- files.
- TRANSLATE filename charsets filename ] Converts file's
- character set. Synonym: XLATE.
- CD Changes your working directory to your home directory.
- CD directory Changes your working directory to the one given.
- CDUP Changes your working directory one level up.
- PWD Displays your working directory.
- BACK Returns to your previous working directory.
- MKDIR [ directory ] Creates a directory.
- RMDIR [ directory ] Removes a directory.
-
+
+ TYPE [ options ] filename Displays the contents of the given file.
+ MORE [ options ] filename Equivalent to TYPE /PAGE (pause after each
+ screenful).
+ CAT [ options ] filename Equivalent to TYPE /NOPAGE.
+ HEAD [ options ] filename Displays the first few lines of a given file.
+ TAIL [ options ] filename Displays the last few lines of a given file.
+ GREP [ options ] pattern filespec Displays lines from files that match
+ the pattern. Synonym: FIND.
+ DIRECTORY [ options ] [ filespec ] Lists files (built-in, many
+ options).
+ LS [ options ] [ filespec ] Lists files (runs external "ls" command).
+ DELETE [ options ] [ filespec ] Deletes files. Synonym: RM.
+ PURGE [ options ] [ filespec ] Removes backup (*.~n~) files.
+ COPY [ options ] [ filespecs... ] Copies files. Synonym: CP.
+ RENAME [ options ] [ filespecs... ] Renames files. Synonym: MV.
+ CHMOD [ options ] [ filespecs... ] Changes permissions of files.
+ TRANSLATE filename charsets filename ] Converts file's character set.
+ Synonym: XLATE.
+ CD Changes your working directory to your home directory.
+ CD directory Changes your working directory to the one given.
+ CDUP Changes your working directory one level up.
+ PWD Displays your working directory.
+ BACK Returns to your previous working directory.
+ MKDIR [ directory ] Creates a directory.
+ RMDIR [ directory ] Removes a directory.
+
Making Connections
- SET LINE [ options ] devicename Opens the named serial
- port. Synonym: SET PORT.
- OPEN LINE [ options ] devicename Same as SET LINE. Synonym:
- OPEN PORT.
- SET MODEM TYPE [ name ] Tells Kermit what kind of modem is on
- the port.
- DIAL [ number ] Tells Kermit to dial the given phone number
- with the modem.
- REDIAL Redials the most recently dialed phone number.
- ANSWER Waits for and answers an incoming call on the modem.
- AUTHENTICATE [ parameters... ] Performs secure authentication
- on a TCP/IP connection.
- SET NETWORK TYPE { TCP/IP, X.25, ... } Selects network type for
- subsequent SET HOST commands.
- SET HOST [ options ] host [ port ] Opens a network connection
- to the given host and port.
- SET HOST [ options ] * port Waits for an incoming TCP/IP
- connection on the given port.
- TELNET [ options ] host Opens a Telnet connection to the host
- and enters Connect state.
- RLOGIN [ options ] host Opens an Rlogin connection to the host
- and enters Connect state.
- IKSD [ options ] host Opens a connection to an Internet Kermit
- Service.
- SSH [ options ] host Opens an SSH connection to the host and
- enters Connect state.
- FTP OPEN host [ options ] Opens an FTP connection to the host.
- HTTP [ options ] OPEN host Opens an HTTP connection to the
- host.
- PTY external-command Runs the command on a pseudoterminal as if
- it were a connection.
- PIPE external-command Runs the command through a pipe as if it
- were a connection.
-
+
+ SET LINE [ options ] devicename Opens the named serial port.
+ Synonym: SET PORT.
+ OPEN LINE [ options ] devicename Same as SET LINE. Synonym: OPEN PORT.
+ SET MODEM TYPE [ name ] Tells Kermit what kind of modem is on the port.
+ DIAL [ number ] Tells Kermit to dial the given phone number with the
+ modem.
+ REDIAL Redials the most recently dialed phone number.
+ ANSWER Waits for and answers an incoming call on the modem.
+ AUTHENTICATE [ parameters... ] Performs secure authentication on a
+ TCP/IP connection.
+ SET NETWORK TYPE { TCP/IP, X.25, ... } Selects network type for
+ subsequent SET HOST commands.
+ SET HOST [ options ] host [ port ] Opens a network connection to the
+ given host and port.
+ SET HOST [ options ] * port Waits for an incoming TCP/IP connection on
+ the given port.
+ TELNET [ options ] host Opens a Telnet connection to the host and
+ enters Connect state.
+ RLOGIN [ options ] host Opens an Rlogin connection to the host and
+ enters Connect state.
+ IKSD [ options ] host Opens a connection to an Internet Kermit Service.
+ SSH [ options ] host Opens an SSH connection to the host and enters
+ Connect state.
+ FTP OPEN host [ options ] Opens an FTP connection to the host.
+ HTTP [ options ] OPEN host Opens an HTTP connection to the host.
+ PTY external-command Runs the command on a pseudoterminal as if it were
+ a connection.
+ PIPE external-command Runs the command through a pipe as if it were a
+ connection.
+
Using Connections
- CONNECT [ options ] Enters Connect
- (terminal) state. Synonym: C.
- REDIRECT command Redirects the given external command over the
- connection.
- TELOPT command Sends a Telnet protocol command (Telnet
- connections only).
- Ctrl-\C "Escapes back" from Connect state to Command state.
- Ctrl-\B (In Connect state) Sends a BREAK signal (serial or
- Telnet).
- Ctrl-\! (In Connect state) Enters inferior shell; "exit" to
- return.
- Ctrl-\? (In Connect state) Shows a menu of other escape-level
- options.
- Ctrl-\Ctrl-\ (In Connect state) Type two Ctrl-Backslashes to
- send one of them.
- SET ESCAPE [ character ] Changes Kermit's Connect-state escape
- character.
-
+
+ CONNECT [ options ] Enters Connect (terminal) state.
+ Synonym: C.
+ REDIRECT command Redirects the given external command over the
+ connection.
+ TELOPT command Sends a Telnet protocol command (Telnet connections
+ only).
+ Ctrl-\C "Escapes back" from Connect state to Command state.
+ Ctrl-\B (In Connect state) Sends a BREAK signal (serial or Telnet).
+ Ctrl-\! (In Connect state) Enters inferior shell; "exit" to return.
+ Ctrl-\? (In Connect state) Shows a menu of other escape-level options.
+ Ctrl-\Ctrl-\ (In Connect state) Type two Ctrl-Backslashes to send one
+ of them.
+ SET ESCAPE [ character ] Changes Kermit's Connect-state escape
+ character.
+
Closing Connections
- HANGUP Hangs up the currently open serial-port or network
- connection.
- CLOSE Closes the currently open serial-port or network
- connection.
- SET LINE (with no devicename) Closes the currently
- open serial-port or network connection.
- SET HOST (with no hostname) Closes the currently open
- serial-port or network connection.
- FTP CLOSE Closes the currently open FTP connection.
- HTTP CLOSE Closes the currently open HTTP connection.
- EXIT Also closes all connections. Synonym: QUIT.
- SET EXIT WARNING OFF Suppresses warning about open connections
- on exit or close.
-
+
+ HANGUP Hangs up the currently open serial-port or network connection.
+ CLOSE Closes the currently open serial-port or network connection.
+ SET LINE (with no devicename) Closes the currently open
+ serial-port or network connection.
+ SET HOST (with no hostname) Closes the currently open serial-port or
+ network connection.
+ FTP CLOSE Closes the currently open FTP connection.
+ HTTP CLOSE Closes the currently open HTTP connection.
+ EXIT Also closes all connections. Synonym: QUIT.
+ SET EXIT WARNING OFF Suppresses warning about open connections on exit
+ or close.
+
File Transfer
- SEND [ options ] filename [ as-name ] Sends the given file.
- Synonym: S.
- SEND [ options ] filespec Sends all files that match.
- RESEND [ options ] filespec Resumes an interupted SEND from the
- point of failure.
- RECEIVE [ options ] [ as-name ] Waits passively for files to
- arrive. Synonym: R.
- LOG TRANSACTIONS [ filename ] Keeps a record of file transfers.
- FAST Use fast file-transfer settings (default).
- CAUTIOUS Use cautious and less fast file-transfer settings.
- ROBUST Use ultra-conservative and slow file-transfer settings.
- STATISTICS [ options ] Gives statistics about the most recent
- file transfer.
- WHERE After transfer: "Where did my files go?".
- TRANSMIT [ options ] [ filename ] Sends file without protocol.
- Synonym: XMIT.
- LOG SESSION [ filename ] Captures remote text or files without
- protocol.
- SET PROTOCOL [ name... ] Tells Kermit to use an external
- file-transfer protocol.
- FTP { PUT, MPUT, GET, MGET, ... } FTP client commands.
- HTTP { PUT, GET, HEAD, POST, ... } HTTP client commands.
-
+
+ SEND [ options ] filename [ as-name ] Sends the given file. Synonym:
+ S.
+ SEND [ options ] filespec Sends all files that match.
+ RESEND [ options ] filespec Resumes an interrupted SEND from the point
+ of failure.
+ RECEIVE [ options ] [ as-name ] Waits passively for files to arrive.
+ Synonym: R.
+ LOG TRANSACTIONS [ filename ] Keeps a record of file transfers.
+ FAST Use fast file-transfer settings (default).
+ CAUTIOUS Use cautious and less fast file-transfer settings.
+ ROBUST Use ultra-conservative and slow file-transfer settings.
+ STATISTICS [ options ] Gives statistics about the most recent file
+ transfer.
+ WHERE After transfer: "Where did my files go?".
+ TRANSMIT [ options ] [ filename ] Sends file without protocol. Synonym:
+ XMIT.
+ LOG SESSION [ filename ] Captures remote text or files without
+ protocol.
+ SET PROTOCOL [ name... ] Tells Kermit to use an external file-transfer
+ protocol.
+ FTP { PUT, MPUT, GET, MGET, ... } FTP client commands.
+ HTTP { PUT, GET, HEAD, POST, ... } HTTP client commands.
+
Kermit Server
- ENABLE, DISABLE Controls which features
- can be used by clients.
- SET SERVER Sets parameters prior to entering Server state.
- SERVER Enters Server state.
-
+
+ ENABLE, DISABLE Controls which features can be
+ used by clients.
+ SET SERVER Sets parameters prior to entering Server state.
+ SERVER Enters Server state.
+
Client of Kermit or FTP Server
- [ REMOTE ] LOGIN [ user password ] Logs in to a Kermit server
- or IKSD that requires it.
- [ REMOTE ] LOGOUT Logs out from a Kermit server or IKSD.
- SEND [ options ] filename [ as-name ] Sends the given file to
- the server. Synonyms: S, PUT.
- SEND [ options ] filespec Sends all files that match.
- RESEND [ options ] filespec Resumes an interupted SEND from the
- point of failure.
- GET [ options ] remote-filespec Asks the server to send the
- given files. Synonym: G.
- REGET [ options ] remote-filespec Resumes an interrupted GET
- from the point of failure.
- REMOTE CD [ directory ] Asks server to change its working
- directory. Synonym: RCD.
- REMOTE PWD [ directory ] Asks server to display its working
- directory. Synonym: RPWD.
- REMOTE DIRECTORY [ filespec... ] Asks server to send a
- directory listing. Synonym: RDIR.
- REMOTE DELETE [ filespec... ] Asks server to delete files.
- Synonym: RDEL.
- REMOTE [ command... ] (Many other commands: "remote ?" for a
- list).
- MAIL [ options ] filespec Sends file(s) to be delivered as
- e-mail (Kermit only).
- FINISH Asks the server to exit server state (Kermit only).
- BYE Asks the server to log out and close the connection.
-
+
+ [ REMOTE ] LOGIN [ user password ] Logs in to a Kermit server or IKSD
+ that requires it.
+ [ REMOTE ] LOGOUT Logs out from a Kermit server or IKSD.
+ SEND [ options ] filename [ as-name ] Sends the given file to the
+ server. Synonyms: S, PUT.
+ SEND [ options ] filespec Sends all files that match.
+ RESEND [ options ] filespec Resumes an interrupted SEND from the point
+ of failure.
+ GET [ options ] remote-filespec Asks the server to send the given
+ files. Synonym: G.
+ REGET [ options ] remote-filespec Resumes an interrupted GET from the
+ point of failure.
+ REMOTE CD [ directory ] Asks server to change its working directory.
+ Synonym: RCD.
+ REMOTE PWD [ directory ] Asks server to display its working directory.
+ Synonym: RPWD.
+ REMOTE DIRECTORY [ filespec... ] Asks server to send a directory
+ listing. Synonym: RDIR.
+ REMOTE DELETE [ filespec... ] Asks server to delete files. Synonym:
+ RDEL.
+ REMOTE [ command... ] (Many other commands: "remote ?" for a list).
+ MAIL [ options ] filespec Sends file(s) to be delivered as e-mail
+ (Kermit only).
+ FINISH Asks the server to exit server state (Kermit only).
+ BYE Asks the server to log out and close the connection.
+
Script Programming
DEFINE, DECLARE, UNDEFINE, UNDECLARE, ASSIGN, EVALUATE,
- SEXPRESSION, ARRAY, SORT, INPUT, OUTPUT, IF, FOR, WHILE,
- SWITCH, GOTO, ECHO, ASK, GETC, GETOK, ASSERT, WAIT, SLEEP,
- FOPEN, FREAD, FWRITE, FCLOSE, STOP, END, RETURN, LEARN, SHIFT,
- TRACE, VOID, INCREMENT, DECREMENT, ... For these and many more
- you'll need to consult the [68]manual and supplements, and/or
- visit the [69]Kermit Script Library, which also includes a
- brief tutorial. Hint: HELP LEARN to find out how to get Kermit
- to write simple scripts for you.
-
+ SEXPRESSION, ARRAY, SORT, INPUT, OUTPUT, IF, FOR, WHILE, SWITCH,
+ GOTO, ECHO, ASK, GETC, GETOK, ASSERT, WAIT, SLEEP, FOPEN, FREAD,
+ FWRITE, FCLOSE, STOP, END, RETURN, LEARN, SHIFT, TRACE, VOID,
+ INCREMENT, DECREMENT, ... For these and many more you'll need to
+ consult the [79]manual and supplements, and/or visit the
+ [80]Kermit Script Library, which also includes a brief tutorial.
+ Hint: HELP LEARN to find out how to get Kermit to write simple
+ scripts for you.
+
Many of Kermit's commands have synonyms, variants, relatives, and so
- on. For example, MSEND is a version of SEND that accepts a list of
- file specifications to be sent, rather than just one file
- specification, and MPUT is a synonym of MSEND. MOVE means to SEND and
- then DELETE the source file if successful. MMOVE is like MOVE, but
- accepts a list of filespecs, and so on. These are described in the
- [70]full documentation.
-
- Use question mark to feel your way through an unfamiliar command, as
- in this example (the part you type is underlined):
-
+ on. For example, MSEND is a version of SEND that accepts a list of file
+ specifications to be sent, rather than just one file specification, and
+ MPUT is a synonym of MSEND. MOVE means to SEND and then DELETE the
+ source file if successful. MMOVE is like MOVE, but accepts a list of
+ filespecs, and so on. These are described in the [81]full
+ documentation.
+
+ Use question mark to feel your way through an unfamiliar command, as in
+ this example (the part you type is underlined):
+
C-Kermit> remote ? One of the following:
assign delete help login print rename space
cd directory host logout pwd rmdir type
C-Kermit>
This is called menu on demand: you get a menu when you want one, but
- menus are not forced on you even when know what you're doing. Note
- that you can also abbreviate most keywords, and you can complete them
- with the Tab or Esc key. Also note that ? works for filenames too, and
- that you can use it in the middle of a keyword or filename, not just
- at the beginning. For example, "send x?" lists all the files in the
- current directory whose names start with 'x'.
-
- [ [71]Kermit Home ] [ [72]C-Kermit Home ] [ [73]C-Kermit FAQ ]
- ________________________________________________________________________
-
- INITIALIZATION FILE [ [74]Top ] [ [75]Contents ] [ [76]Next ] [ [77]Previous
- ]
-
+ menus are not forced on you even when know what you're doing. Note that
+ you can also abbreviate most keywords, and you can complete them with
+ the Tab or Esc key. Also note that ? works for filenames too, and that
+ you can use it in the middle of a keyword or filename, not just at the
+ beginning. For example, "send x?" lists all the files in the current
+ directory whose names start with 'x'.
+
+ [82]Kermit Home [83]C-Kermit Home [84]C-Kermit FAQ
+
+INITIALIZATION FILE
+
+ [85]Top [86]Contents [87]Next [88]Previous
+
In its default configuration, C-Kermit executes commands from a file
called .kermrc in your home directory when it starts, unless it is
given the -Y or -y command-line option. Custom configurations might
initialization file "chains" to an individual customization file,
.mykermc, in the home directory, in which each user can establish
her/his own preferences, define macros, and so on.
-
+
Since execution of the initialization file (at least the standard one)
makes C-Kermit take longer to start, it might be better not to have an
initialization file, especially now that Kermit's default startup
transfers go fast. So instead of having an initialization file that is
executed every time Kermit starts, you might consider making one or
more kerbang scripts (with names other that .kermrc) that do NOT
- include an "exit" command, and invoke those when you need the
- settings, macro definitions, and/or scripted actions they contain, and
- invoke C-Kermit directly when you don't.
-
+ include an "exit" command, and invoke those when you need the settings,
+ macro definitions, and/or scripted actions they contain, and invoke
+ C-Kermit directly when you don't.
+
To put it another way... We still distribute the standard
initialization file since it's featured in the manual and backwards
compatibility is important to us. But there's no harm in not using it
if you don't need the stuff that's in it (services directory, dialing
- directory, network directory, and associated macro definitions). On
- the other hand, if there are settings or macros you want in effect
- EVERY time you use Kermit, the initialization file (or the
- customization file it chains to) is the place to put them, because
- that's the only place Kermit looks for them automatically each time
- you start it.
-
- [ [78]Kermit Home ] [ [79]C-Kermit Home ] [ [80]C-Kermit FAQ ]
- ________________________________________________________________________
-
- MODES OF OPERATION [ [81]Top ] [ [82]Contents ] [ [83]Next ] [ [84]Previous ]
-
+ directory, network directory, and associated macro definitions). On the
+ other hand, if there are settings or macros you want in effect EVERY
+ time you use Kermit, the initialization file (or the customization file
+ it chains to) is the place to put them, because that's the only place
+ Kermit looks for them automatically each time you start it.
+
+ [89]Kermit Home [90]C-Kermit Home [91]C-Kermit FAQ
+
+MODES OF OPERATION
+
+ [92]Top [93]Contents [94]Next [95]Previous
+
Kermit is said to be in Local mode if it has made a connection to
another computer, e.g. by dialing it or establishing a Telnet
- connection to it. The other computer is remote, so if you start
- another copy of Kermit on the remote computer, it is said to be in
- Remote mode (as long as it has not made any connections of its own).
- The local Kermit communicates over the communications device or
- network connection, acting as a conduit between the the remote
- computer and your keyboard and screen. The remote Kermit is the
- file-transfer partner to the local Kermit and communicates only
- through its standard input and output.
-
+ connection to it. The other computer is remote, so if you start another
+ copy of Kermit on the remote computer, it is said to be in Remote mode
+ (as long as it has not made any connections of its own). The local
+ Kermit communicates over the communications device or network
+ connection, acting as a conduit between the the remote computer and
+ your keyboard and screen. The remote Kermit is the file-transfer
+ partner to the local Kermit and communicates only through its standard
+ input and output.
+
At any moment, a Kermit program can be in any of the following states.
It's important to know what they are and how to change from one to the
other.
-
+
Command state
-
In this state, Kermit reads commands from:
-
+
+ Your keyboard; or:
+ A file, or:
+ A macro definition.
-
+
You can exit from Command state back to Unix with the EXIT or
QUIT command (same thing). You can enter Connect state with any
of various commands (CONNECT, DIAL, TELNET, etc). You can enter
The (perhaps implied) DO command tells Kermit to read and
execute commands from a macro definition. While in Command
state, you can interrupt any command, macro, or command file by
- typing Ctrl-C (hold down the Ctrl key and press the C key);
- this normally brings you back to the prompt.
-
+ typing Ctrl-C (hold down the Ctrl key and press the C key); this
+ normally brings you back to the prompt.
+
Shell state
-
You can invoke an inferior shell or external command from the
Kermit command prompt by using the PUSH, RUN (!), EDIT, or
BROWSE command. While the inferior shell or command is active,
Kermit is suspended and does nothing. Return to Kermit Command
state by exiting from the inferior shell or application.
-
+
Connect state
-
In this state, which can be entered only when in Local mode
(i.e. when Kermit has made a connection to another computer),
Kermit is acting as a terminal to the remote computer. Your
keystrokes are sent to the remote computer and characters that
arrive over the communication connection are displayed on your
screen. This state is entered when you give a CONNECT, DIAL,
- TELNET, RLOGIN, or IKSD command. You can return to command
- state by logging out of the remote computer, or by typing:
-
+ TELNET, RLOGIN, or IKSD command. You can return to command state
+ by logging out of the remote computer, or by typing:
+
Ctrl-\c
That is: Hold down the Ctrl key and press the backslash key,
escaping back. Certain other escape-level commands are also
provided; type Ctrl-\? for a list. For example, you can enter
Shell state with:
-
+
Ctrl-\!
- To send a Ctrl-\ to the host while in Connect state, type two
- of them in a row. See HELP CONNECT and HELP SET ESCAPE for more
+ To send a Ctrl-\ to the host while in Connect state, type two of
+ them in a row. See HELP CONNECT and HELP SET ESCAPE for more
info.
-
+
Local file-transfer state
-
- In this state, Kermit is sending packets back and forth with
- the other computer in order to transfer a file or accomplish
- some other file-related task. And at the same time, it is
- displaying its progress on your screen and watching your
- keyboard for interruptions. In this state, the following
- single-keystroke commands are accepted:
-
- X Interrupt the current file and go on to the next (if any).
- Z Interrupt the current file and skip all the rest.
- E Like Z but uses a "stronger" protocol (use if X or Z don't
- work).
- Ctrl-C Interrupt file-transfer mode (use if Z or E don't
- work).
-
+ In this state, Kermit is sending packets back and forth with the
+ other computer in order to transfer a file or accomplish some
+ other file-related task. And at the same time, it is displaying
+ its progress on your screen and watching your keyboard for
+ interruptions. In this state, the following single-keystroke
+ commands are accepted:
+
+ X Interrupt the current file and go on to the next (if any).
+ Z Interrupt the current file and skip all the rest.
+ E Like Z but uses a "stronger" protocol (use if X or Z don't work).
+ Ctrl-C Interrupt file-transfer mode (use if Z or E don't work).
+
Kermit returns to its previous state (Command or Connect) when
the transfer is complete or when interrupted successfully by X,
Z, E, or Ctrl-C (hold down the Ctrl key and press the C key).
-
+
Remote file-transfer state
-
In this state, Kermit is exchanging file-transfer packets with
its local partner over its standard i/o. It leaves this state
automatically when the transfer is complete. In case you find
keystrokes), you can usually return it to command state by
typing three Ctrl-C's in a row. If that doesn't work, return
your local Kermit to Command state (Ctrl-\ C) and type
- "e-packet" and then press the Return or Enter key; this forces
- a fatal Kermit protocol error.
-
+ "e-packet" and then press the Return or Enter key; this forces a
+ fatal Kermit protocol error.
+
Remote Server state
-
- This is like Remote File-transfer state, except it never
- returns automatically to Command state. Rather, it awaits
- further instructions from the client program; that is, from
- your Local Kermit program. You can return the Remote Server to
- its previous state by issuing a "finish" command to the client,
- or if you are in Connect state, by typing three Ctrl-C's in a
- row. You can tell the server job to log out and break the
- connection by issuing a "bye" command to the client.
-
+ This is like Remote File-transfer state, except it never returns
+ automatically to Command state. Rather, it awaits further
+ instructions from the client program; that is, from your Local
+ Kermit program. You can return the Remote Server to its previous
+ state by issuing a "finish" command to the client, or if you are
+ in Connect state, by typing three Ctrl-C's in a row. You can
+ tell the server job to log out and break the connection by
+ issuing a "bye" command to the client.
+
Local Server state
-
Like Remote-Server state, but in local mode, and therefore with
its file-transfer display showing, and listening for single-key
- commands, as in Local File-transfer state. Usually this state
- is entered automatically when a remote Kermit program gives a
- GET command.
-
+ commands, as in Local File-transfer state. Usually this state is
+ entered automatically when a remote Kermit program gives a GET
+ command.
+
C-Kermit, Kermit 95, and MS-DOS Kermit all can switch automatically
from Connect state to Local File-transfer state when you initiate a
file transfer from the remote computer by starting Kermit and telling
- it to send or get a file, in which case, Connect state is
- automatically resumed after the file transfer is finished.
-
+ it to send or get a file, in which case, Connect state is automatically
+ resumed after the file transfer is finished.
+
Note that C-Kermit is not a terminal emulator. It is a communications
application that you run in a terminal window (e.g. console or Xterm).
The specific emulation, such as VT100, VT220, Linux Console, or Xterm,
is provided by the terminal window in which you are running C-Kermit.
Kermit 95 and MS-DOS Kermit, on the other hand, are true terminal
- emulators. Why is C-Kermit not a terminal emulator? [85]CLICK HERE to
+ emulators. Why is C-Kermit not a terminal emulator? [96]CLICK HERE to
read about it.
-
- [ [86]Kermit Home ] [ [87]C-Kermit Home ] [ [88]C-Kermit FAQ ]
- ________________________________________________________________________
-
- MAKING CONNECTIONS [ [89]Top ] [ [90]Contents ] [ [91]Next ] [ [92]Previous ]
-
+
+ [97]Kermit Home [98]C-Kermit Home [99]C-Kermit FAQ
+
+MAKING CONNECTIONS
+
+ [100]Top [101]Contents [102]Next [103]Previous
+
Here is how to make different kinds of connections using interactive
Kermit commands (as noted above, you can also make connections with
command-line options). Note that you don't have to make connections
with Kermit. It can also be used on the far end of a connection as the
remote file transfer and management partner of your local
communications software.
-
+
Making a Telnet Connection
-
At the C-Kermit command prompt, simply type:
-
+
telnet foo.bar.com ; Substitute desired host name or address.
telnet xyzcorp.com 3000 ; You can also include a port number.
- If the connection is successful, Kermit automically enters
+ If the connection is successful, Kermit automatically enters
Connect state. When you logout from the remote host, Kermit
automatically returns to its prompt. More info: HELP TELNET,
- HELP SET TELNET, HELP SET TELOPT. Also see the [93]IKSD section
+ HELP SET TELNET, HELP SET TELOPT. Also see the [104]IKSD section
below.
-
+
Making an Rlogin connection
-
This is just like Telnet, except you have to be root to do it
because Rlogin uses a privileged TCP port:
-
+
rlogin foo.bar.com ; Substitute desired host name or address.
More info: HELP RLOGIN.
-
+
Making an SSH Connection
-
Unlike Telnet and Rlogin, SSH connections are not built-in, but
handled by running your external SSH client through a
pseudoterminal. Using C-Kermit to control the SSH client gives
you all of Kermit's features (file transfer, character-set
conversion, scripting, etc) over SSH.
-
+
ssh foo.bar.com ; Substitute desired host name or address.
More info: HELP SSH, HELP SET SSH.
-
+
Dialing with a Modem
-
- If it's an external modem, make sure it is connected to a
- usable serial port on your computer with a regular
- (straight-through) modem cable, and to the telephone jack with
- a telephone cable, and that it's turned on. Then use these
- commands:
-
+ If it's an external modem, make sure it is connected to a usable
+ serial port on your computer with a regular (straight-through)
+ [105]modem cable, and to the telephone jack with a telephone
+ cable, and that it's turned on. Then use these commands:
+
set modem type usrobotics ; Or other supported type
set line /dev/ttyS0 ; Specify device name
set speed 57600 ; Or other desired speed
succeeds, Kermit enters Connect state automatically and returns
to its prompt automatically when you log out from the remote
computer or the connection is otherwise lost.
-
+
You can also dial from a modem that is accessible by Telnet,
e.g. to a reverse terminal server. In this case the command
sequence is:
-
+
set host ts.xxx.com 2000 ; Terminal-server and port
set modem type usrobotics ; Or other supported type
set dial method tone ; (or pulse)
dial 7654321 ; Dial the desired number
If the terminal server supports the Telnet Com Port Option,
- [94]RFC 2217, you can also give serial-port related commands
- such as SET SPEED, SET PARITY, and so on, and Kermit relays
- them to the terminal server using the protocol specified in the
- RFC.
-
+ [106]RFC 2217, you can also give serial-port related commands
+ such as SET SPEED, SET PARITY, and so on, and Kermit relays them
+ to the terminal server using the protocol specified in the RFC.
+
More info: HELP SET MODEM, HELP SET LINE, HELP SET SPEED, HELP
SET FLOW, HELP DIAL, HELP SET DIAL, HELP SET MODEM, HELP SET
CARRIER-WATCH, SHOW COMMUNICATIONS, SHOW MODEM, SHOW DIAL.
-
+
Direct Serial Port
-
- Connect the two computers, A and B, with a null modem cable (or
- two modem cables interconnected with a null-modem adapter or
+ Connect the two computers, A and B, with a [107]null modem cable
+ (or two modem cables interconnected with a null-modem adapter or
modem eliminator). From Computer A:
-
+
set modem type none ; There is no modem
set line /dev/ttyS0 ; Specify device name
set carrier-watch off ; If DTR and CD are not cross-connected
This assumes Computer B is set up to let you log in. If it
isn't, you can run a copy of Kermit on Computer B and follow
- approximately the same directions. More info: As above plus
- HELP CONNECT.
-
+ approximately the same directions. More info: As above plus HELP
+ CONNECT.
+
With modems or direct serial connections, you might also have to "set
parity even" (or "mark" or "space") if it's a 7-bit connection.
-
+
Of the connection types listed above, only one can be open at a time.
- However, any one of these can be open concurrently with an [95]FTP or
+ However, any one of these can be open concurrently with an [108]FTP or
HTTP session. Each connection type can be customized to any desired
degree, scripted, logged, you name it. See the manual.
-
+
NOTE: On selected platforms, C-Kermit also can make X.25 connections.
See the manual for details.
-
- [ [96]Kermit Home ] [ [97]C-Kermit Home ] [ [98]C-Kermit FAQ ]
- ________________________________________________________________________
-
- TRANSFERRING FILES WITH KERMIT [ [99]Top ] [ [100]Contents ] [ [101]Next ] [
- [102]Previous ]
-
- * [103]Downloading Files
- * [104]Uploading Files
- * [105]Kermit Transfers the Old-Fashioned Way
- * [106]If File Transfer Fails
- * [107]Advanced Kermit File Transfer Features
- * [108]Non-Kermit File Transfer
-
- There is a [109]widespread and persistent belief that Kermit is a slow
+
+ [109]Kermit Home [110]C-Kermit Home [111]C-Kermit FAQ
+
+TRANSFERRING FILES WITH KERMIT
+
+ [112]Top [113]Contents [114]Next [115]Previous
+
+ * [116]Downloading Files
+ * [117]Uploading Files
+ * [118]Kermit Transfers the Old-Fashioned Way
+ * [119]If File Transfer Fails
+ * [120]Advanced Kermit File Transfer Features
+ * [121]Non-Kermit File Transfer
+
+ There is a [122]widespread and persistent belief that Kermit is a slow
protocol. This is because, until recently, it used conservative tuning
by default to make sure file transfers succeeded, rather than failing
because they overloaded the connection. Some extra commands (or
command-line options, like -Q) were needed to make it go fast, but
nobody bothered to find out about them. Also, it takes two to tango:
most non-Kermit-Project Kermit protocol implementations really ARE
- slow. The best file-transfer partners for C-Kermit are: another copy
- of [110]C-Kermit (7.0 or later) and [111]Kermit 95. These combinations
- work well and they work fast by default. MS-DOS Kermit is good too,
- but you have to tell it to go fast (by giving it the FAST command).
-
+ slow. The best file-transfer partners for C-Kermit are: another copy of
+ [123]C-Kermit (7.0 or later) and [124]Kermit 95. These combinations
+ work well and they work fast by default. MS-DOS Kermit is good too, but
+ you have to tell it to go fast (by giving it the FAST command).
+
Furthermore, all three of these Kermit programs support "autodownload"
and "autoupload", meaning that when they are in Connect state and a
Kermit packet comes in from the remote, they automatically switch into
file transfer mode.
-
+
And plus, C-Kermit and K95 also switch automatically between text and
binary mode for each file, so there is no need to "set file type
binary" or "set file type text", or to worry about files being
corrupted because they were transferred in the wrong mode.
-
+
What all of these words add up to is that now, when you use up-to-date
Kermit software from the Kermit Project, file transfer is not only
fast, it's ridiculously easy. You barely have to give any commands at
all.
-
+
Downloading Files
-
- Let's say you have [112]Kermit 95, [113]C-Kermit, or
- [114]MS-DOS Kermit on your desktop computer, with a connection
- to a Unix computer that has C-Kermit installed as "kermit". To
- download a file (send it from Unix to your desktop computer),
- just type the following command at your Unix shell prompt:
-
+ Let's say you have [125]Kermit 95, [126]C-Kermit, or [127]MS-DOS
+ Kermit on your desktop computer, with a connection to a Unix
+ computer that has C-Kermit installed as "kermit". To download a
+ file (send it from Unix to your desktop computer), just type the
+ following command at your Unix shell prompt:
+
kermit -s oofa.txt
(where oofa.txt is the filename). If you want to send more than
one file, you can put as many filenames as you want on the
command line, and they can be any combination of text and
binary:
-
+
kermit -s oofa.txt oofa.zip oofa.html oofa.tar.gz
and/or you can use wildcards to send groups of files:
-
+
kermit -s oofa.*
If you want to send a file under an assumed name, use:
-
+
kermit -s friday.txt -a today.txt
This sends the file friday.txt but tells the receiving Kermit
automatically to Connect state. No worries about escaping back,
re-connecting, text/binary mode switching. Almost too easy,
right?
-
+
Uploading Files
-
To upload files (send them from your desktop computer to the
remote Unix computer) do the same thing, but use the -g (GET)
option instead of -s:
-
+
kermit -g oofa.txt
This causes your local Kermit to enter server mode; then the
remote Kermit program requests the named file and the local
Kermit sends it and returns automatically to Connect state when
done.
-
+
If you want to upload multiple files, you have have use shell
quoting rules, since these aren't local files:
-
+
kermit -g "oofa.txt oofa.zip oofa.html oofa.tar.gz"
kermit -g "oofa.*"
If you want to upload a file but store it under a different
name, use:
-
+
kermit -g friday.txt -a today.txt
Kermit Transfers the Old-Fashioned Way
-
If your desktop communications software does not support
- autoupload or autodownload, or it does not include Kermit
- server mode, the procedure requires more steps.
-
+ autoupload or autodownload, or it does not include Kermit server
+ mode, the procedure requires more steps.
+
To download a file, type:
-
+
kermit -s filename
on the host as before, but if nothing happens automatically in
response to this command, you have to switch your desktop
- communications software into Kermit Receive state. This might
- be done by escaping back using keyboard characters or hot keys
+ communications software into Kermit Receive state. This might be
+ done by escaping back using keyboard characters or hot keys
(Alt-x is typical) and/or with a command (like RECEIVE) or a
- menu. When the file transfer is complete, you have to go back
- to Connect state, Terminal emulation, or whatever terminology
+ menu. When the file transfer is complete, you have to go back to
+ Connect state, Terminal emulation, or whatever terminology
applies to your desktop communications software.
-
+
To upload a file, type:
-
+
kermit -r
on the host (rather than "kermit -g"). This tells C-Kermit to
wait passively for a file to start arriving. Then regain the
attention of your desktop software (Alt-x or whatever) and
instruct it to send the desired file(s) with Kermit protocol.
- When the transfer is finished, return to the Connect or
- Terminal screen.
-
+ When the transfer is finished, return to the Connect or Terminal
+ screen.
+
If File Transfer Fails
-
- Although every aspect of Kermit's operation can be finely
- tuned, there are also three short and simple "omnibus tuning"
- commands you can use for troubleshooting:
-
+ Although every aspect of Kermit's operation can be finely tuned,
+ there are also three short and simple "omnibus tuning" commands
+ you can use for troubleshooting:
+
FAST
- Use fast file-transfer settings. This has been the
- default since C-Kermit 7.0 now that most modern computers
- and connections support it. If transfers fail with fast
+ Use fast file-transfer settings. This has been the default
+ since C-Kermit 7.0 now that most modern computers and
+ connections support it. If transfers fail with fast
settings, try . . .
-
+
CAUTIOUS
- Use cautious but not paranoid settings. File transfers,
- if they work, will go at medium speed. If not, try . . .
-
+ Use cautious but not paranoid settings. File transfers, if
+ they work, will go at medium speed. If not, try . . .
+
ROBUST
Use the most robust, resilient, conservative, safe, and
reliable settings. File transfers will almost certainly
work, but they will be quite slow (of course this is a
classic tradeoff; ROBUST was C-Kermit's default tuning in
versions 6.0 and earlier, which made everybody think
- Kermit protocol was slow). If ROBUST doesn't do the
- trick, try again with SET PARITY SPACE first in case it's
- not an 8-bit connection.
-
+ Kermit protocol was slow). If ROBUST doesn't do the trick,
+ try again with SET PARITY SPACE first in case it's not an
+ 8-bit connection.
+
Obviously the success and performance of a file transfer also
depends on C-Kermit's file transfer partner. Up-to-date, real
- [115]Kermit Project partners are recommended because they
+ [128]Kermit Project partners are recommended because they
contain the best Kermit protocol implementations and because
- [116]we can support them in case of trouble.
-
- If you still have trouble, consult Chapter 10 of [117]Using
- C-Kermit, or send email to [118]kermit-support@columbia.edu.
-
+ [129]we can support them in case of trouble.
+
+ If you still have trouble, consult Chapter 10 of [130]Using
+ C-Kermit, or send email to [131]kermit-support@columbia.edu.
+
Advanced Kermit File-Transfer Features
-
- Obviously there is a lot more to Kermit file transfer,
- including all sorts of interactive commands, preferences,
- options, logging, debugging, troubleshooting, and anything else
- you can imagine but that's what the [119]manual and updates are
- for. Here are a few topics you can explore if you're interested
- by Typing HELP for the listed commands:
-
+ Obviously there is a lot more to Kermit file transfer, including
+ all sorts of interactive commands, preferences, options,
+ logging, debugging, troubleshooting, and anything else you can
+ imagine but that's what the [132]manual and updates are for.
+ Here are a few topics you can explore if you're interested by
+ Typing HELP for the listed commands:
+
Logging transfers:
LOG TRANSACTIONS (HELP LOG)
-
+
Automatic per-file text/binary mode switching:
SET TRANSFER MODE { AUTOMATIC, MANUAL } (HELP SET
TRANSFER).
-
+
Cross-platform recursive directory tree transfer:
SEND /RECURSIVE, GET /RECURSIVE (HELP SEND, HELP GET).
-
+
File collision options:
SET FILE COLLISION { OVERWRITE, BACKUP, DISCARD, ... }
(HELP SET FILE).
-
+
Update mode (only transfer files that changed since last time):
SET FILE COLLISION UPDATE (HELP SET FILE).
-
+
Filename selection patterns:
(HELP WILDCARD).
-
+
Flexible file selection:
SEND (or GET) /BEFORE /AFTER /LARGER /SMALLER /TYPE
/EXCEPT, ...
-
+
Character-set conversion:
SET { FILE, TRANSFER } CHARACTER-SET, ASSOCIATE, ...
-
+
File/Pathname control:
SET { SEND, RECEIVE } PATHNAMES, SET FILE NAMES.
-
+
Atomic file movement:
SEND (or GET) /DELETE /RENAME /MOVE-TO
-
+
Transferring to/from standard i/o of other commands:
SEND (or GET) /COMMAND
-
+
Recovery of interrupted transfer from point of failure:
RESEND, REGET (HELP RESEND, HELP REGET).
-
+
Non-Kermit File Transfer
-
You can also use C-Kermit to transfer files with FTP or HTTP
- Internet protocols; [120]see below.
-
+ Internet protocols; [133]see below.
+
On a regular serial or Telnet connection where the other
computer doesn't support Kermit protocol at all, you have
several options. For example, if your desktop communications
software supports Zmodem, use "rz" and "sz" on the host rather
- than Kermit. But if Kermit is your desktop software, and you
- are using it to make calls or network connections to other
- computers that don't support Kermit protocol (or that don't
- have a good implementation of it), then if your computer also
- has external X, Y, or Zmodem programs that are redirectable,
- Kermit can use them as external protocols. HELP SET PROTOCOL
- for details.
-
+ than Kermit. But if Kermit is your desktop software, and you are
+ using it to make calls or network connections to other computers
+ that don't support Kermit protocol (or that don't have a good
+ implementation of it), then if your computer also has external
+ X, Y, or Zmodem programs that are redirectable, Kermit can use
+ them as external protocols. HELP SET PROTOCOL for details.
+
You can also capture "raw" data streams from the other computer
with LOG SESSION (HELP LOG and HELP SET SESSION-LOG for
details), and you can upload files without any protocol at all
with TRANSMIT (HELP TRANSMIT, HELP SET TRANSMIT).
-
- [ [121]Kermit Home ] [ [122]C-Kermit Home ] [ [123]C-Kermit FAQ ]
- ________________________________________________________________________
-
- KERMIT CLIENT/SERVER CONNECTIONS [ [124]Top ] [ [125]Contents ] [ [126]Next ]
- [ [127]Previous ]
-
+
+ [134]Kermit Home [135]C-Kermit Home [136]C-Kermit FAQ
+
+KERMIT CLIENT/SERVER CONNECTIONS
+
+ [137]Top [138]Contents [139]Next [140]Previous
+
On any kind of connection you can make with Kermit -- serial, TCP/IP,
X.25, etc -- you can set up a convenient client/server relationship
between your Kermit client (the one that made the connection) and the
Kermit program on the far end of the connection (the remote Kermit) by
putting the remote Kermit in server mode. This is normally done by
giving it a SERVER command, or by starting it with the -x command-line
- option. In some cases ([128]Internet Kermit Service, SSH connections
- to a Kermit subsystem, or specially configured hosts), there is
- already a Kermit server waiting on the far end. Here is a quick
- synopsis of the commands you can give to the client for interacting
- with the server:
-
+ option. In some cases ([141]Internet Kermit Service, SSH connections to
+ a Kermit subsystem, or specially configured hosts), there is already a
+ Kermit server waiting on the far end. Here is a quick synopsis of the
+ commands you can give to the client for interacting with the server:
+
SEND [ switches ] filename
Sends the named file to the server. The filename can include
wildcards. Lots of switches are available for file selection,
etc. Type HELP SEND at the client prompt for details.
-
+
GET [ switches ] filename
- Asks the server to send the named file. The filename can
- include wildcards. Type HELP GET at the client prompt for
- details.
-
+ Asks the server to send the named file. The filename can include
+ wildcards. Type HELP GET at the client prompt for details.
+
BYE
Terminates the server and closes your connection to it.
-
+
FINISH
Terminates the server. If you started the server yourself, this
leaves the remote host at its shell prompt. If it was a
dedicated server (such as IKSD or an SSH subsystem), FINISH is
equivalent to BYE.
-
+
SET LOCUS { LOCAL, REMOTE, AUTO }
(C-Kermit 8.0.201 and later, K95 1.1.21 and later) This tells
the client whether file-management commands like CD, PWD,
LDIRECTORY, etc. When LOCUS is LOCAL, then the remote versions
must have an R prefix: RCD, RPWD, RDIRECTORY, etc. HELP SET
LOCUS for details. SHOW COMMAND to see current locus.
-
+
The following commands are affected by SET LOCUS:
-
+
CD, LCD, RCD
- Change (working, current) directory. HELP CD for details.
-
+ Change (working, current) directory. HELP CD for details.
+
CDUP, LCDUP, RCDUP
- CD one level up.
-
+ CD one level up.
+
DIRECTORY, LDIRECTORY, RDIRECTORY
- Produce a directory listing. Many options are available for local
- listings. HELP DIRECTORY for details.
-
+ Produce a directory listing. Many options are available for
+ local listings. HELP DIRECTORY for details.
+
DELETE, LDELETE, RDELETE
- Deletes files or directories. Many options available, HELP DELETE.
-
+ Deletes files or directories. Many options available, HELP
+ DELETE.
+
RENAME, LRENAME, RRENAME
- Renames files or directories. Many options available, HELP RENAME.
-
+ Renames files or directories. Many options available, HELP
+ RENAME.
+
MKDIR, LMKDIR, RMKDIR
- Creates a directory. HELP MKDIR.
-
+ Creates a directory. HELP MKDIR.
+
RMDIR, LRMDIR, RRMDIR
- Removes a directory. HELP RMDIR. There are dozens -- maybe hundreds --
- of other commands, described in the built-in help, on the website,
- and/or in the published or online manuals. But even if you don't have
- access to documentation, you can "set locus remote" and then use
- pretty much the same commands you would use with any FTP client.
-
- [ [129]Kermit Home ] [ [130]C-Kermit Home ] [ [131]C-Kermit FAQ ]
- ________________________________________________________________________
-
- KERMIT'S BUILT-IN FTP AND HTTP CLIENTS [ [132]Top ] [ [133]Contents ] [
- [134]Next ] [ [135]Previous ]
-
+ Removes a directory. HELP RMDIR.
+
+ There are dozens -- maybe hundreds -- of other commands, described in
+ the built-in help, on the website, and/or in the published or online
+ manuals. But even if you don't have access to documentation, you can
+ "set locus remote" and then use pretty much the same commands you would
+ use with any FTP client.
+
+ [142]Kermit Home [143]C-Kermit Home [144]C-Kermit FAQ
+
+KERMIT'S BUILT-IN FTP AND HTTP CLIENTS
+
+ [145]Top [146]Contents [147]Next [148]Previous
+
Kermit's FTP client is like the regular Unix FTP client that you're
used to, but with some differences:
-
+
* It has lots more commands and features.
* You can have an FTP session and a regular Kermit serial or Telnet
session open at the same time.
* FTP sessions can be fully automated.
-
+
By default Kermit's FTP client tries its best to present the same user
interface as a regular FTP client: PUT, GET, DIR, CD, BYE, etc, should
work the same, even though some of these commands have different
etc, in Kermit act locally, whereas in FTP they are commands for the
server. This might cause some confusion, but as in all things Kermit,
you have total control:
-
- * The [136]SET LOCUS command lets you specify where file management
+
+ * The [149]SET LOCUS command lets you specify where file management
commands should be executed -- locally or remotely -- for any kind
of connection.
* Any FTP command can be prefixed with the word "FTP" to remove any
ambiguity.
-
+
Pending publication of the next edition of the manual, the Kermit FTP
client is thoroughly documented at the Kermit Project website:
-
- [137]http://www.columbia.edu/kermit/ftpclient.html
+
+ [150]http://www.columbia.edu/kermit/ftpclient.html
You also can use HELP FTP and HELP SET FTP to get descriptions of
Kermit's FTP-related commands.
-
+
The HTTP client is similar to the FTP one, except you prefix each
command with HTTP instead of FTP: HTTP OPEN, HTTP GET, HTTP PUT, HTTP
CLOSE, etc. Type HELP HTTP for details, or visit the to view the
- [138]manual supplements. HTTP connections can be open at the same time
+ [151]manual supplements. HTTP connections can be open at the same time
as regular serial or Telnet connections and FTP connections. So Kermit
can manage up to three types connections simultaneously.
-
- [ [139]Kermit Home ] [ [140]C-Kermit Home ] [ [141]C-Kermit FAQ ] [
- [142]FTP Client ] [ [143]HTTP Client ]
- ________________________________________________________________________
-
- INTERNET KERMIT SERVICE [ [144]Top ] [ [145]Contents ] [ [146]Next ] [
- [147]Previous ]
-
+
+ [152]Kermit Home [153]C-Kermit Home [154]C-Kermit FAQ [155]FTP Client
+ [156]HTTP Client
+
+INTERNET KERMIT SERVICE
+
+ [157]Top [158]Contents [159]Next [160]Previous
+
C-Kermit can be configured and run as an Internet service (called
IKSD), similar to an FTP server (FTPD) except you can (but need not)
interact with it directly, plus it does a lot more than an FTP server
can do. The TCP port for IKSD is 1649. It uses Telnet protocol.
C-Kermit can be an Internet Kermit Server, or it can be a client of an
- IKSD. You can make connections from C-Kermit to an IKSD with any of
- the following commands:
-
+ IKSD. You can make connections from C-Kermit to an IKSD with any of the
+ following commands:
+
telnet foo.bar.edu 1649
telnet foo.bar.edu kermit ; if "kermit" is listed in /etc/services
iksd foo.bar.edu
The IKSD command is equivalent to a TELNET command specifying port
1649. For more information about making and using connections to an
IKSD, see:
-
- [148]http://www.columbia.edu/kermit/cuiksd.html
-
- You can run an Internet Kermit Service on your own computer too (if
- you are the system administrator). For instructions, see:
-
- [149]http://www.columbia.edu/kermit/iksd.html
-
- [ [150]Kermit Home ] [ [151]C-Kermit Home ] [ [152]C-Kermit FAQ ]
- ________________________________________________________________________
-
- SECURITY [ [153]Top ] [ [154]Contents ] [ [155]Next ] [ [156]Previous ]
-
+
+ [161]http://www.columbia.edu/kermit/cuiksd.html
+
+ You can run an Internet Kermit Service on your own computer too (if you
+ are the system administrator). For instructions, see:
+
+ [162]http://www.columbia.edu/kermit/iksd.html
+
+ [163]Kermit Home [164]C-Kermit Home [165]C-Kermit FAQ
+
+SECURITY
+
+ [166]Top [167]Contents [168]Next [169]Previous
+
All of C-Kermit's built-in TCP/IP networking methods (Telnet, Rlogin,
IKSD, FTP, and HTTP) can be secured by one or more of the following
IETF-approved methods:
-
+
* MIT Kerberos IV
* MIT Kerberos V
* SSL/TLS
* Stanford SRP
-
+
For complete instructions see:
-
- [157]http://www.columbia.edu/kermit/security.html
+
+ [170]http://www.columbia.edu/kermit/security.html
And as noted previously, you can also make SSH connections with
C-Kermit if you already have an SSH client installed.
-
- [ [158]Kermit Home ] [ [159]C-Kermit Home ] [ [160]C-Kermit FAQ ]
- ________________________________________________________________________
-
- ALTERNATIVE COMMAND-LINE PERSONALITIES [ [161]Top ] [ [162]Contents ] [
- [163]Next ] [ [164]Previous ]
-
+
+ [171]Kermit Home [172]C-Kermit Home [173]C-Kermit FAQ
+
+ALTERNATIVE COMMAND-LINE PERSONALITIES
+
+ [174]Top [175]Contents [176]Next [177]Previous
+
When invoked as "kermit" or any other name besides any of the special
ones, C-Kermit has the command-line options described above in the
- [165]OPTIONS section. However, if you invoke C-Kermit using any of the
+ [178]OPTIONS section. However, if you invoke C-Kermit using any of the
following names:
-
+
telnet Telnet client
ftp FTP client
http HTTP client
https Secure HTTP client
-
+
Kermit's command-line personality changes to match. This can be done
(among other ways) with symbolic links (symlinks). For example, if you
- want C-Kermit to be your regular Telnet client, or the Telnet helper
- of your Web browser, you can create a link like the following in a
+ want C-Kermit to be your regular Telnet client, or the Telnet helper of
+ your Web browser, you can create a link like the following in a
directory that lies in your PATH ahead of the regular telnet program:
-
+
ln -s /usr/local/bin/kermit telnet
Now when you give a "telnet" command, you are invoking Kermit instead,
but with its Telnet command-line personality so, for example:
-
+
telnet xyzcorp.com
Makes a Telnet connection to xyzcorp.com, and Kermit exits
Telnet client). Type "telnet -h" to get a list of Kermit's
Telnet-personality command-line options, which are intended to be as
compatible as possible with the regular Telnet client.
-
+
Similarly for FTP:
-
+
ln -s /usr/local/bin/kermit ftp
And now type "ftp -h" to see its command-line options, and use command
lines just like you would give your regular FTP client:
-
+
ftp -n xyzcorp.com
but with additional options allowing an entire session to be specified
- on the command line, as explained in the C-Kermit [166]FTP client
+ on the command line, as explained in the C-Kermit [179]FTP client
documentation.
-
+
And similarly for HTTP:
-
+
ln -s /usr/local/bin/kermit http
./http -h
./http www.columbia.edu -g kermit/index.html
Finally, if Kermit's first command-line option is a Telnet, FTP, IKSD,
or HTTP URL, Kermit automatically makes the appropriate kind of
connection and, if indicated by the URL, takes the desired action:
-
+
kermit telnet:xyzcorp.com ; Opens a Telnet session
kermit telnet://olga@xyzcorp.com ; Ditto for user olga
kermit ftp://olga@xyzcorp.com/public/oofa.zip ; Downloads a file
kermit kermit://kermit.columbia.edu/kermit/f/READ.ME ; Ditto for IKSD
kermit iksd://kermit.columbia.edu/kermit/f/READ.ME ; (This works too)
kermit http://www.columbia.edu/kermit/index.html ; Grabs a web page
- kermit https://wwws.xyzcorp.com/secret/plan.html ; Grabs a secure web pag
-e
-
- [ [167]Kermit Home ] [ [168]C-Kermit Home ] [ [169]C-Kermit FAQ ]
- ________________________________________________________________________
-
- LICENSE [ [170]Top ] [ [171]Contents ] [ [172]Next ] [ [173]Previous ]
-
- C-Kermit has an unusual license, but a fair and sensible one given
- that the Kermit Project must support itself out of revenue: it's not a
- BSD license, not GPL, not Artistic, not commercial, not shareware, not
- freeware. It can be summed up like this: if you want C-Kermit for your
- own use, you can download and use it without cost or license (but we'd
- appreciate it if you would purchase the manual). But if you want to
- sell C-Kermit or bundle it with a product or otherwise distribute it
- in a commercial setting EXCEPT WITH AN OPEN-SOURCE OPERATING SYSTEM
- DISTRIBUTION such as Linux, FreeBSD, NetBSD, or OpenBSD, you must
- license it. To see the complete license, give the LICENSE command at
- the prompt, or see the COPYING.TXT file distributed with C-Kermit 7.0
- or later, or download it from
- [174]ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT. Send
- licensing inquiries to [175]kermit@columbia.edu.
-
- [ [176]Kermit Home ] [ [177]C-Kermit Home ] [ [178]C-Kermit FAQ ]
- ________________________________________________________________________
-
- OTHER TOPICS [ [179]Top ] [ [180]Contents ] [ [181]Next ] [ [182]Previous ]
-
+ kermit https://wwws.xyzcorp.com/secret/plan.html ; Grabs a secure web page
+
+ [180]Kermit Home [181]C-Kermit Home [182]C-Kermit FAQ
+
+LICENSE
+
+ [183]Top [184]Contents [185]Next [186]Previous
+
+ On or before 30 June 2011, barring unforeseen circumstances,
+ [187]C-Kermit 9.0 will be released with the [188]Revised 3-Clause BSD
+ License. This is a certified [189]Open Source license, and it means
+ that C-Kermit no longer needs to be licensed for commercial
+ redistribution. Technical support for Kermit software will not be
+ available from Columbia University after June 30th.
+
+ [190]Kermit Home [191]C-Kermit Home [192]C-Kermit FAQ
+
+OTHER TOPICS
+
+ [193]Top [194]Contents [195]Next [196]Previous
+
There's way more to C-Kermit than we've touched on here --
troubleshooting, customization, character sets, dialing directories,
sending pages, script writing, and on and on, all of which are covered
in the manual and updates and supplements. For the most up-to-date
information on documentation (or updated documentation itself) visit
the Kermit Project website:
-
- [183]http://www.columbia.edu/kermit/
-
- There you will also find [184]Kermit software packages for other
- platforms: different Unix varieties, Windows, DOS, VMS, IBM
- mainframes, and many others: 20+ years' worth.
-
- [ [185]Kermit Home ] [ [186]C-Kermit Home ] [ [187]C-Kermit FAQ ]
- ________________________________________________________________________
-
- DOCUMENTATION AND UPDATES [ [188]Top ] [ [189]Contents ] [ [190]Next ] [
- [191]Previous ]
-
+
+ [197]http://www.columbia.edu/kermit/
+
+ There you will also find [198]Kermit software packages for other
+ platforms: different Unix varieties, Windows, DOS, VMS, IBM mainframes,
+ and many others: 20+ years' worth.
+
+ [199]Kermit Home [200]C-Kermit Home [201]C-Kermit FAQ
+
+DOCUMENTATION AND UPDATES
+
+ [202]Top [203]Contents [204]Next [205]Previous
+
The manual for C-Kermit is:
-
- 1. Frank da Cruz and Christine M. Gianone, [192]Using C-Kermit,
- Second Edition, Digital Press / Butterworth-Heinemann, Woburn, MA,
- 1997, 622 pages, ISBN 1-55558-164-1. This is a printed book. It
- covers C-Kermit 6.0.
+
+ 1. Frank da Cruz and Christine M. Gianone, [206]Using C-Kermit, Second
+ Edition, Digital Press / Butterworth-Heinemann, Woburn, MA, 1997,
+ 622 pages, ISBN 1-55558-164-1. This is a printed book, now also
+ available as a [207]Kindle E-Book. It covers C-Kermit 6.0.
2. The C-Kermit 7.0 Supplement:
- [193]http://www.columbia.edu/kermit/ckermit70.html
+ [208]http://www.columbia.edu/kermit/ckermit70.html
3. The C-Kermit 8.0 Supplement:
- [194]http://www.columbia.edu/kermit/ckermit80.html
-
+ [209]http://www.columbia.edu/kermit/ckermit80.html
+ 4. The C-Kermit 9.0 Supplement:
+ [210]http://www.columbia.edu/kermit/ckermit90.html
+
The C-Kermit home page is here:
-
- [195]http://www.columbia.edu/kermit/ckermit.html
+
+ [211]http://www.columbia.edu/kermit/ckermit.html
Visit this page to learn about new versions, Beta tests, and other
news; to read case studies and tutorials; to download source code,
- install packages, and [196]prebuilt binaries for many platforms. Also
+ install packages, and [212]prebuilt binaries for many platforms. Also
visit:
-
- [197]http://www.columbia.edu/kermit/scriptlib.html
+
+ [213]http://www.columbia.edu/kermit/scriptlib.html
The Kermit script library and tutorial
-
- [198]http://www.columbia.edu/kermit/newfaq.html
+
+ [214]http://www.columbia.edu/kermit/newfaq.html
The Kermit FAQ (Frequently Asked Questions about Kermit)
-
- [199]http://www.columbia.edu/kermit/ckfaq.html
+
+ [215]http://www.columbia.edu/kermit/ckfaq.html
The C-Kermit FAQ (Frequently Asked Questions about C-Kermit)
-
- [200]http://www.columbia.edu/kermit/security.html
+
+ [216]http://www.columbia.edu/kermit/security.html
The Kermit security reference.
-
- [201]http://www.columbia.edu/kermit/telnet.html
+
+ [217]http://www.columbia.edu/kermit/telnet.html
C-Kermit Telnet client documentation.
-
- [202]http://www.columbia.edu/kermit/studies.html
+
+ [218]http://www.columbia.edu/kermit/studies.html
Case studies.
-
- [203]http://www.columbia.edu/kermit/ckcbwr.html
+
+ [219]http://www.columbia.edu/kermit/ckcbwr.html
General C-Kermit Hints and Tips.
-
- [204]http://www.columbia.edu/kermit/ckubwr.html
+
+ [220]http://www.columbia.edu/kermit/ckubwr.html
Unix C-Kermit Hints and Tips.
-
- [205]http://www.columbia.edu/kermit/ckvbwr.html
+
+ [221]http://www.columbia.edu/kermit/ckvbwr.html
VMS C-Kermit Hints and Tips.
-
- [206]http://www.columbia.edu/kermit/ckuins.html
+
+ [222]http://www.columbia.edu/kermit/ckuins.html
Unix C-Kermit Installation Instructions
-
- [207]http://www.columbia.edu/kermit/ckvins.html
+
+ [223]http://www.columbia.edu/kermit/ckvins.html
VMS C-Kermit Installation Instructions
-
- [208]http://www.columbia.edu/kermit/support.html
+
+ [224]http://www.columbia.edu/kermit/support.html
Technical support.
-
- [209]http://www.columbia.edu/kermit/k95tutorial.html
+
+ [225]http://www.columbia.edu/kermit/k95tutorial.html
Kermit 95 tutorial (this document).
-
- [210]comp.protocols.kermit.misc
+
+ [226]comp.protocols.kermit.misc
The Kermit newsgroup (unmoderated).
-
- [ [211]Kermit Home ] [ [212]C-Kermit Home ] [ [213]C-Kermit FAQ ]
- ________________________________________________________________________
-
- FILES [ [214]Top ] [ [215]Contents ] [ [216]Next ] [ [217]Previous ]
-
- [218]COPYING.TXT
+
+ [227]Kermit Home [228]C-Kermit Home [229]C-Kermit FAQ
+
+FILES
+
+ [230]Top [231]Contents [232]Next [233]Previous
+
+ [234]The Revised 3-Clause License
C-Kermit license.
-
- [219]~/.kermrc
+
+ [235]~/.kermrc
Initialization file.
-
- [220]~/.mykermrc
+
+ [236]~/.mykermrc
Customization file.
-
+
~/.kdd
Kermit dialing directory (see manual).
-
+
~/.knd
Kermit network directory (see manual).
-
+
~/.ksd
Kermit services directory (see manual).
-
- [221]ckuins.html
+
+ [237]ckuins.html
Installation instructions for Unix.
-
- [222]ckcbwr.html
+
+ [238]ckcbwr.html
General C-Kermit bugs, hints, tips.
-
- [223]ckubwr.html
+
+ [239]ckubwr.html
Unix-specific C-Kermit bugs, hints, tips.
-
- [224]ckcplm.html
+
+ [240]ckcplm.html
C-Kermit program logic manual.
-
- [225]ckccfg.html
+
+ [241]ckccfg.html
C-Kermit compile-time configuration options.
-
+
ssh
(in your PATH) SSH connection helper.
-
+
rz, sz, etc.
(in your PATH) external protocols for XYZmodem.
-
+
/var/spool/locks (or whatever)
- UUCP lockfile for dialing out (see [226]installation
+ UUCP lockfile for dialing out (see [242]installation
instructions).
-
- [ [227]Kermit Home ] [ [228]C-Kermit Home ] [ [229]C-Kermit FAQ ]
- ________________________________________________________________________
-
- AUTHORS [ [230]Top ] [ [231]Contents ] [ [232]Previous ]
-
+
+ [243]Kermit Home [244]C-Kermit Home [245]C-Kermit FAQ
+
+AUTHORS
+
+ [246]Top [247]Contents [248]Previous
+
Frank da Cruz and Jeffrey E Altman
The Kermit Project - Columbia Univerity
612 West 115th Street
New York NY 10025-7799
USA
-
+
1985-present, with contributions from hundreds of others all over the
world.
- _________________________________________________________________
-
-
- C-Kermit 8.0 Unix Manual Page and Tutorial /
- [233]kermit@columbia.edu / 24 October 2002
+ __________________________________________________________________
+
+
+ C-Kermit 9.0 Unix Manual Page and Tutorial / [249]kermit@columbia.edu
+ / 1 July 2011
References
- 1. http://www.columbia.edu/kermit/
- 2. http://www.columbia.edu/
- 3. http://www.columbia.edu/kermit/ckututor.pdf
- 4. ftp://kermit.columbia.edu/kermit/test/text/ckuker.nr
- 5. http://www.columbia.edu/kermit/ckututor.html#description
- 6. http://www.columbia.edu/kermit/ckututor.html#synopsis
- 7. http://www.columbia.edu/kermit/ckututor.html#options
- 8. http://www.columbia.edu/kermit/ckututor.html#commands
- 9. http://www.columbia.edu/kermit/ckututor.html#initfile
- 10. http://www.columbia.edu/kermit/ckututor.html#modes
- 11. http://www.columbia.edu/kermit/ckututor.html#connections
- 12. http://www.columbia.edu/kermit/ckututor.html#transfer
- 13. http://www.columbia.edu/kermit/ckututor.html#server
- 14. http://www.columbia.edu/kermit/ckututor.html#ftp
- 15. http://www.columbia.edu/kermit/ckututor.html#iksd
- 16. http://www.columbia.edu/kermit/ckututor.html#security
- 17. http://www.columbia.edu/kermit/ckututor.html#personae
- 18. http://www.columbia.edu/kermit/ckututor.html#license
- 19. http://www.columbia.edu/kermit/ckututor.html#other
- 20. http://www.columbia.edu/kermit/ckututor.html#documentation
- 21. http://www.columbia.edu/kermit/ckututor.html#files
- 22. http://www.columbia.edu/kermit/ckututor.html#authors
- 23. http://www.columbia.edu/kermit/ckututor.html#top
- 24. http://www.columbia.edu/kermit/ckututor.html#contents
- 25. http://www.columbia.edu/kermit/ckututor.html#synopsis
- 26. http://www.columbia.edu/kermit/ckermit.html
- 27. http://www.columbia.edu/kermit/
- 28. http://www.columbia.edu/
- 29. ftp://ftp.isi.edu/in-notes/rfc2839.txt
- 30. ftp://ftp.isi.edu/in-notes/rfc2840.txt
+ 1. http://www.columbia.edu/
+ 2. mailto:kermit@columbia.edu
+ 3. http://www.columbia.edu/kermit/index.html
+ 4. http://www.columbia.edu/kermit/k95.html
+ 5. http://www.columbia.edu/kermit/ckermit.html
+ 6. http://www.columbia.edu/kermit/ckscripts.html
+ 7. http://www.columbia.edu/kermit/current.html
+ 8. http://www.columbia.edu/kermit/whatsnew.html
+ 9. http://www.columbia.edu/kermit/ckfaq.html
+ 10. http://www.columbia.edu/kermit/support.html
+ 11. http://www.columbia.edu/kermit/
+ 12. http://www.columbia.edu/
+ 13. http://www.columbia.edu/kermit/ckututor.pdf
+ 14. ftp://kermit.columbia.edu/kermit/test/text/ckuker.nr
+ 15. http://www.amazon.com/gp/product/1555581641?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=9325&creativeASIN=1555581641
+ 16. http://www.columbia.edu/kermit/ckututor.html#description
+ 17. http://www.columbia.edu/kermit/ckututor.html#synopsis
+ 18. http://www.columbia.edu/kermit/ckututor.html#options
+ 19. http://www.columbia.edu/kermit/ckututor.html#commands
+ 20. http://www.columbia.edu/kermit/ckututor.html#initfile
+ 21. http://www.columbia.edu/kermit/ckututor.html#modes
+ 22. http://www.columbia.edu/kermit/ckututor.html#connections
+ 23. http://www.columbia.edu/kermit/ckututor.html#transfer
+ 24. http://www.columbia.edu/kermit/ckututor.html#server
+ 25. http://www.columbia.edu/kermit/ckututor.html#ftp
+ 26. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 27. http://www.columbia.edu/kermit/ckututor.html#security
+ 28. http://www.columbia.edu/kermit/ckututor.html#personae
+ 29. http://www.columbia.edu/kermit/ckututor.html#license
+ 30. http://www.columbia.edu/kermit/ckututor.html#other
31. http://www.columbia.edu/kermit/ckututor.html#documentation
- 32. http://www.columbia.edu/kermit/
- 33. http://www.columbia.edu/kermit/
- 34. http://www.columbia.edu/kermit/ckermit.html
- 35. http://www.columbia.edu/kermit/ckfaq.html
- 36. http://www.columbia.edu/kermit/ckututor.html#top
- 37. http://www.columbia.edu/kermit/ckututor.html#contents
- 38. http://www.columbia.edu/kermit/ckututor.html#options
- 39. http://www.columbia.edu/kermit/ckututor.html#synopsis
- 40. http://www.columbia.edu/kermit/ckututor.html#kerbang
- 41. http://www.columbia.edu/kermit/ckututor.html#personae
- 42. http://www.columbia.edu/kermit/ckututor.html#kerbang
- 43. http://www.columbia.edu/kermit/ckututor.html#initfile
- 44. http://www.columbia.edu/kermit/ckututor.html#initfile
- 45. http://www.columbia.edu/kermit/ckututor.html#personae
- 46. http://www.columbia.edu/kermit/ckututor.html#options
- 47. http://www.columbia.edu/kermit/ckututor.html#commands
- 48. http://www.columbia.edu/kermit/
- 49. http://www.columbia.edu/kermit/ckermit.html
- 50. http://www.columbia.edu/kermit/ckfaq.html
- 51. http://www.columbia.edu/kermit/ckututor.html#top
- 52. http://www.columbia.edu/kermit/ckututor.html#contents
- 53. http://www.columbia.edu/kermit/ckututor.html#commands
- 54. http://www.columbia.edu/kermit/ckututor.html#description
- 55. http://www.columbia.edu/kermit/ckututor.html#commands
+ 32. http://www.columbia.edu/kermit/ckututor.html#files
+ 33. http://www.columbia.edu/kermit/ckututor.html#authors
+ 34. http://www.columbia.edu/kermit/ckututor.html#top
+ 35. http://www.columbia.edu/kermit/ckututor.html#contents
+ 36. http://www.columbia.edu/kermit/ckututor.html#synopsis
+ 37. http://www.columbia.edu/kermit/ckermit.html
+ 38. http://www.columbia.edu/kermit/
+ 39. http://www.columbia.edu/
+ 40. ftp://ftp.isi.edu/in-notes/rfc2839.txt
+ 41. ftp://ftp.isi.edu/in-notes/rfc2840.txt
+ 42. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 43. http://www.columbia.edu/kermit/
+ 44. http://www.columbia.edu/kermit/
+ 45. http://www.columbia.edu/kermit/ckermit.html
+ 46. http://www.columbia.edu/kermit/ckfaq.html
+ 47. http://www.columbia.edu/kermit/ckututor.html#top
+ 48. http://www.columbia.edu/kermit/ckututor.html#contents
+ 49. http://www.columbia.edu/kermit/ckututor.html#options
+ 50. http://www.columbia.edu/kermit/ckututor.html#synopsis
+ 51. http://www.columbia.edu/kermit/ckututor.html#kerbang
+ 52. http://www.columbia.edu/kermit/ckututor.html#personae
+ 53. http://www.columbia.edu/kermit/ckututor.html#kerbang
+ 54. http://www.columbia.edu/kermit/ckututor.html#initfile
+ 55. http://www.columbia.edu/kermit/ckututor.html#initfile
56. http://www.columbia.edu/kermit/ckututor.html#personae
- 57. http://www.columbia.edu/kermit/ckututor.html#personae
- 58. http://www.columbia.edu/kermit/ckututor.html#iksd
- 59. http://www.columbia.edu/kermit/ckututor.html#transfer
- 60. http://www.columbia.edu/kermit/ckututor.html#top
- 61. http://www.columbia.edu/kermit/ckututor.html#contents
- 62. http://www.columbia.edu/kermit/ckututor.html#initfile
- 63. http://www.columbia.edu/kermit/ckututor.html#options
- 64. http://www.columbia.edu/kermit/ckututor.html#kerbang
- 65. http://www.columbia.edu/kermit/ckututor.html#cmdlist
- 66. http://www.columbia.edu/kermit/ckututor.html#documentation
- 67. http://www.columbia.edu/kermit/ckututor.html#initfile
- 68. http://www.columbia.edu/kermit/ckututor.html#documentation
- 69. http://www.columbia.edu/kermit/ckscripts.html
- 70. http://www.columbia.edu/kermit/ckututor.html#documentation
- 71. http://www.columbia.edu/kermit/
- 72. http://www.columbia.edu/kermit/ckermit.html
- 73. http://www.columbia.edu/kermit/ckfaq.html
- 74. http://www.columbia.edu/kermit/ckututor.html#top
- 75. http://www.columbia.edu/kermit/ckututor.html#contents
- 76. http://www.columbia.edu/kermit/ckututor.html#modes
- 77. http://www.columbia.edu/kermit/ckututor.html#commands
- 78. http://www.columbia.edu/kermit/
- 79. http://www.columbia.edu/kermit/ckermit.html
- 80. http://www.columbia.edu/kermit/ckfaq.html
- 81. http://www.columbia.edu/kermit/ckututor.html#top
- 82. http://www.columbia.edu/kermit/ckututor.html#contents
- 83. http://www.columbia.edu/kermit/ckututor.html#connections
- 84. http://www.columbia.edu/kermit/ckututor.html#initfile
- 85. http://www.columbia.edu/kermit/ckfaq.html#term
- 86. http://www.columbia.edu/kermit/
- 87. http://www.columbia.edu/kermit/ckermit.html
- 88. http://www.columbia.edu/kermit/ckfaq.html
- 89. http://www.columbia.edu/kermit/ckututor.html#top
- 90. http://www.columbia.edu/kermit/ckututor.html#contents
- 91. http://www.columbia.edu/kermit/ckututor.html#transfer
- 92. http://www.columbia.edu/kermit/ckututor.html#modes
- 93. http://www.columbia.edu/kermit/ckututor.html#iksd
- 94. ftp://ftp.isi.edu/in-notes/rfc2217.txt
- 95. http://www.columbia.edu/kermit/ckututor.html#ftp
- 96. http://www.columbia.edu/kermit/
- 97. http://www.columbia.edu/kermit/ckermit.html
- 98. http://www.columbia.edu/kermit/ckfaq.html
- 99. http://www.columbia.edu/kermit/ckututor.html#top
- 100. http://www.columbia.edu/kermit/ckututor.html#contents
- 101. http://www.columbia.edu/kermit/ckututor.html#server
- 102. http://www.columbia.edu/kermit/ckututor.html#connections
- 103. http://www.columbia.edu/kermit/ckututor.html#download
- 104. http://www.columbia.edu/kermit/ckututor.html#upload
- 105. http://www.columbia.edu/kermit/ckututor.html#oldfashioned
- 106. http://www.columbia.edu/kermit/ckututor.html#trouble
- 107. http://www.columbia.edu/kermit/ckututor.html#advanced
- 108. http://www.columbia.edu/kermit/ckututor.html#nonkermit
- 109. http://www.columbia.edu/kermit/kermit.html#notslow
+ 57. http://www.columbia.edu/kermit/ckututor.html#options
+ 58. http://www.columbia.edu/kermit/ckututor.html#commands
+ 59. http://www.columbia.edu/kermit/
+ 60. http://www.columbia.edu/kermit/ckermit.html
+ 61. http://www.columbia.edu/kermit/ckfaq.html
+ 62. http://www.columbia.edu/kermit/ckututor.html#top
+ 63. http://www.columbia.edu/kermit/ckututor.html#contents
+ 64. http://www.columbia.edu/kermit/ckututor.html#commands
+ 65. http://www.columbia.edu/kermit/ckututor.html#description
+ 66. http://www.columbia.edu/kermit/ckututor.html#commands
+ 67. http://www.columbia.edu/kermit/ckututor.html#personae
+ 68. http://www.columbia.edu/kermit/ckututor.html#personae
+ 69. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 70. http://www.columbia.edu/kermit/ckututor.html#transfer
+ 71. http://www.columbia.edu/kermit/ckututor.html#top
+ 72. http://www.columbia.edu/kermit/ckututor.html#contents
+ 73. http://www.columbia.edu/kermit/ckututor.html#initfile
+ 74. http://www.columbia.edu/kermit/ckututor.html#options
+ 75. http://www.columbia.edu/kermit/ckututor.html#kerbang
+ 76. http://www.columbia.edu/kermit/ckututor.html#cmdlist
+ 77. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 78. http://www.columbia.edu/kermit/ckututor.html#initfile
+ 79. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 80. http://www.columbia.edu/kermit/ckscripts.html
+ 81. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 82. http://www.columbia.edu/kermit/
+ 83. http://www.columbia.edu/kermit/ckermit.html
+ 84. http://www.columbia.edu/kermit/ckfaq.html
+ 85. http://www.columbia.edu/kermit/ckututor.html#top
+ 86. http://www.columbia.edu/kermit/ckututor.html#contents
+ 87. http://www.columbia.edu/kermit/ckututor.html#modes
+ 88. http://www.columbia.edu/kermit/ckututor.html#commands
+ 89. http://www.columbia.edu/kermit/
+ 90. http://www.columbia.edu/kermit/ckermit.html
+ 91. http://www.columbia.edu/kermit/ckfaq.html
+ 92. http://www.columbia.edu/kermit/ckututor.html#top
+ 93. http://www.columbia.edu/kermit/ckututor.html#contents
+ 94. http://www.columbia.edu/kermit/ckututor.html#connections
+ 95. http://www.columbia.edu/kermit/ckututor.html#initfile
+ 96. http://www.columbia.edu/kermit/ckfaq.html#term
+ 97. http://www.columbia.edu/kermit/
+ 98. http://www.columbia.edu/kermit/ckermit.html
+ 99. http://www.columbia.edu/kermit/ckfaq.html
+ 100. http://www.columbia.edu/kermit/ckututor.html#top
+ 101. http://www.columbia.edu/kermit/ckututor.html#contents
+ 102. http://www.columbia.edu/kermit/ckututor.html#transfer
+ 103. http://www.columbia.edu/kermit/ckututor.html#modes
+ 104. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 105. http://www.columbia.edu/kermit/cable.html
+ 106. ftp://ftp.isi.edu/in-notes/rfc2217.txt
+ 107. http://www.columbia.edu/kermit/cable.html
+ 108. http://www.columbia.edu/kermit/ckututor.html#ftp
+ 109. http://www.columbia.edu/kermit/
110. http://www.columbia.edu/kermit/ckermit.html
- 111. http://www.columbia.edu/kermit/k95.html
- 112. http://www.columbia.edu/kermit/k95.html
- 113. http://www.columbia.edu/kermit/ckermit.html
- 114. http://www.columbia.edu/kermit/mskermit.html
- 115. http://www.columbia.edu/kermit/
- 116. http://www.columbia.edu/kermit/support.html
- 117. http://www.columbia.edu/kermit/ckmanual.html
- 118. mailto:kermit-support@columbia.edu
- 119. http://www.columbia.edu/kermit/ckututor.html#documentation
- 120. http://www.columbia.edu/kermit/ckututor.html#ftp
- 121. http://www.columbia.edu/kermit/
- 122. http://www.columbia.edu/kermit/ckermit.html
- 123. http://www.columbia.edu/kermit/ckfaq.html
- 124. http://www.columbia.edu/kermit/ckututor.html#top
- 125. http://www.columbia.edu/kermit/ckututor.html#contents
- 126. http://www.columbia.edu/kermit/ckututor.html#ftp
- 127. http://www.columbia.edu/kermit/ckututor.html#transfer
- 128. http://www.columbia.edu/kermit/ckututor.html#iksd
- 129. http://www.columbia.edu/kermit/
- 130. http://www.columbia.edu/kermit/ckermit.html
- 131. http://www.columbia.edu/kermit/ckfaq.html
- 132. http://www.columbia.edu/kermit/ckututor.html#top
- 133. http://www.columbia.edu/kermit/ckututor.html#contents
- 134. http://www.columbia.edu/kermit/ckututor.html#iksd
- 135. http://www.columbia.edu/kermit/ckututor.html#transfer
- 136. http://www.columbia.edu/kermit/ckututor.html#server
- 137. http://www.columbia.edu/kermit/ftpclient.html
- 138. http://www.columbia.edu/kermit/ckututor.html#documentation
- 139. http://www.columbia.edu/kermit/
- 140. http://www.columbia.edu/kermit/ckermit.html
- 141. http://www.columbia.edu/kermit/ckfaq.html
- 142. http://www.columbia.edu/kermit/ckermit3.html#x3
- 143. http://www.columbia.edu/kermit/ckermit3.html#x2.2
- 144. http://www.columbia.edu/kermit/ckututor.html#top
- 145. http://www.columbia.edu/kermit/ckututor.html#contents
- 146. http://www.columbia.edu/kermit/ckututor.html#security
- 147. http://www.columbia.edu/kermit/ckututor.html#ftp
- 148. http://www.columbia.edu/kermit/cuiksd.html
- 149. http://www.columbia.edu/kermit/iksd.html
- 150. http://www.columbia.edu/kermit/
- 151. http://www.columbia.edu/kermit/ckermit.html
- 152. http://www.columbia.edu/kermit/ckfaq.html
- 153. http://www.columbia.edu/kermit/ckututor.html#top
- 154. http://www.columbia.edu/kermit/ckututor.html#contents
- 155. http://www.columbia.edu/kermit/ckututor.html#personae
- 156. http://www.columbia.edu/kermit/ckututor.html#iksd
- 157. http://www.columbia.edu/kermit/security.html
- 158. http://www.columbia.edu/kermit/
- 159. http://www.columbia.edu/kermit/ckermit.html
- 160. http://www.columbia.edu/kermit/ckfaq.html
- 161. http://www.columbia.edu/kermit/ckututor.html#top
- 162. http://www.columbia.edu/kermit/ckututor.html#contents
- 163. http://www.columbia.edu/kermit/ckututor.html#license
- 164. http://www.columbia.edu/kermit/ckututor.html#iksd
- 165. http://www.columbia.edu/kermit/ckututor.html#options
- 166. http://www.columbia.edu/kermit/ckermit3.html#x3.1.2
- 167. http://www.columbia.edu/kermit/
- 168. http://www.columbia.edu/kermit/ckermit.html
- 169. http://www.columbia.edu/kermit/ckfaq.html
- 170. http://www.columbia.edu/kermit/ckututor.html#top
- 171. http://www.columbia.edu/kermit/ckututor.html#contents
- 172. http://www.columbia.edu/kermit/ckututor.html#other
- 173. http://www.columbia.edu/kermit/ckututor.html#personae
- 174. ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
- 175. mailto:kermit@columbia.edu
- 176. http://www.columbia.edu/kermit/
- 177. http://www.columbia.edu/kermit/ckermit.html
- 178. http://www.columbia.edu/kermit/ckfaq.html
- 179. http://www.columbia.edu/kermit/ckututor.html#top
- 180. http://www.columbia.edu/kermit/ckututor.html#contents
- 181. http://www.columbia.edu/kermit/ckututor.html#documentation
- 182. http://www.columbia.edu/kermit/ckututor.html#license
- 183. http://www.columbia.edu/kermit/
- 184. http://www.columbia.edu/kermit/howtoget.html
- 185. http://www.columbia.edu/kermit/
- 186. http://www.columbia.edu/kermit/ckermit.html
- 187. http://www.columbia.edu/kermit/ckfaq.html
- 188. http://www.columbia.edu/kermit/ckututor.html#top
- 189. http://www.columbia.edu/kermit/ckututor.html#contents
- 190. http://www.columbia.edu/kermit/ckututor.html#files
- 191. http://www.columbia.edu/kermit/ckututor.html#other
- 192. http://www.columbia.edu/kermit/ckmanual.html
- 193. http://www.columbia.edu/kermit/ckermit70.html
- 194. http://www.columbia.edu/kermit/ckermit80.html
- 195. http://www.columbia.edu/kermit/ckermit.html
- 196. http://www.columbia.edu/kermit/ck80binaries.html
- 197. http://www.columbia.edu/kermit/scriptlib.html
- 198. http://www.columbia.edu/kermit/newfaq.html
- 199. http://www.columbia.edu/kermit/ckfaq.html
- 200. http://www.columbia.edu/kermit/security.html
- 201. http://www.columbia.edu/kermit/telnet.html
- 202. http://www.columbia.edu/kermit/studies.html
- 203. http://www.columbia.edu/kermit/ckcbwr.html
- 204. http://www.columbia.edu/kermit/ckubwr.html
- 205. http://www.columbia.edu/kermit/ckvbwr.html
- 206. http://www.columbia.edu/kermit/ckuins.html
- 207. http://www.columbia.edu/kermit/ckvins.html
- 208. http://www.columbia.edu/kermit/support.html
- 209. http://www.columbia.edu/kermit/k95tutorial.html
- 210. news:comp.protocols.kermit.misc
- 211. http://www.columbia.edu/kermit/
- 212. http://www.columbia.edu/kermit/ckermit.html
- 213. http://www.columbia.edu/kermit/ckfaq.html
- 214. http://www.columbia.edu/kermit/ckututor.html#top
- 215. http://www.columbia.edu/kermit/ckututor.html#contents
- 216. http://www.columbia.edu/kermit/ckututor.html#authors
- 217. http://www.columbia.edu/kermit/ckututor.html#documentation
- 218. ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
- 219. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit.ini
- 220. ftp://kermit.columbia.edu/kermit/c-kermit/ckermod.ini
- 221. http://www.columbia.edu/kermit/ckuins.html
- 222. http://www.columbia.edu/kermit/ckcbwr.html
- 223. http://www.columbia.edu/kermit/ckubwr.html
- 224. http://www.columbia.edu/kermit/ckcplm.html
- 225. http://www.columbia.edu/kermit/ckccfg.html
- 226. http://www.columbia.edu/kermit/ckuins.html
+ 111. http://www.columbia.edu/kermit/ckfaq.html
+ 112. http://www.columbia.edu/kermit/ckututor.html#top
+ 113. http://www.columbia.edu/kermit/ckututor.html#contents
+ 114. http://www.columbia.edu/kermit/ckututor.html#server
+ 115. http://www.columbia.edu/kermit/ckututor.html#connections
+ 116. http://www.columbia.edu/kermit/ckututor.html#download
+ 117. http://www.columbia.edu/kermit/ckututor.html#upload
+ 118. http://www.columbia.edu/kermit/ckututor.html#oldfashioned
+ 119. http://www.columbia.edu/kermit/ckututor.html#trouble
+ 120. http://www.columbia.edu/kermit/ckututor.html#advanced
+ 121. http://www.columbia.edu/kermit/ckututor.html#nonkermit
+ 122. http://www.columbia.edu/kermit/kermit.html#notslow
+ 123. http://www.columbia.edu/kermit/ckermit.html
+ 124. http://www.columbia.edu/kermit/k95.html
+ 125. http://www.columbia.edu/kermit/k95.html
+ 126. http://www.columbia.edu/kermit/ckermit.html
+ 127. http://www.columbia.edu/kermit/mskermit.html
+ 128. http://www.columbia.edu/kermit/
+ 129. http://www.columbia.edu/kermit/support.html
+ 130. http://www.columbia.edu/kermit/ckmanual.html
+ 131. mailto:kermit-support@columbia.edu
+ 132. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 133. http://www.columbia.edu/kermit/ckututor.html#ftp
+ 134. http://www.columbia.edu/kermit/
+ 135. http://www.columbia.edu/kermit/ckermit.html
+ 136. http://www.columbia.edu/kermit/ckfaq.html
+ 137. http://www.columbia.edu/kermit/ckututor.html#top
+ 138. http://www.columbia.edu/kermit/ckututor.html#contents
+ 139. http://www.columbia.edu/kermit/ckututor.html#ftp
+ 140. http://www.columbia.edu/kermit/ckututor.html#transfer
+ 141. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 142. http://www.columbia.edu/kermit/
+ 143. http://www.columbia.edu/kermit/ckermit.html
+ 144. http://www.columbia.edu/kermit/ckfaq.html
+ 145. http://www.columbia.edu/kermit/ckututor.html#top
+ 146. http://www.columbia.edu/kermit/ckututor.html#contents
+ 147. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 148. http://www.columbia.edu/kermit/ckututor.html#transfer
+ 149. http://www.columbia.edu/kermit/ckututor.html#server
+ 150. http://www.columbia.edu/kermit/ftpclient.html
+ 151. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 152. http://www.columbia.edu/kermit/
+ 153. http://www.columbia.edu/kermit/ckermit.html
+ 154. http://www.columbia.edu/kermit/ckfaq.html
+ 155. http://www.columbia.edu/kermit/ckermit3.html#x3
+ 156. http://www.columbia.edu/kermit/ckermit3.html#x2.2
+ 157. http://www.columbia.edu/kermit/ckututor.html#top
+ 158. http://www.columbia.edu/kermit/ckututor.html#contents
+ 159. http://www.columbia.edu/kermit/ckututor.html#security
+ 160. http://www.columbia.edu/kermit/ckututor.html#ftp
+ 161. http://www.columbia.edu/kermit/cuiksd.html
+ 162. http://www.columbia.edu/kermit/iksd.html
+ 163. http://www.columbia.edu/kermit/
+ 164. http://www.columbia.edu/kermit/ckermit.html
+ 165. http://www.columbia.edu/kermit/ckfaq.html
+ 166. http://www.columbia.edu/kermit/ckututor.html#top
+ 167. http://www.columbia.edu/kermit/ckututor.html#contents
+ 168. http://www.columbia.edu/kermit/ckututor.html#personae
+ 169. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 170. http://www.columbia.edu/kermit/security.html
+ 171. http://www.columbia.edu/kermit/
+ 172. http://www.columbia.edu/kermit/ckermit.html
+ 173. http://www.columbia.edu/kermit/ckfaq.html
+ 174. http://www.columbia.edu/kermit/ckututor.html#top
+ 175. http://www.columbia.edu/kermit/ckututor.html#contents
+ 176. http://www.columbia.edu/kermit/ckututor.html#license
+ 177. http://www.columbia.edu/kermit/ckututor.html#iksd
+ 178. http://www.columbia.edu/kermit/ckututor.html#options
+ 179. http://www.columbia.edu/kermit/ckermit3.html#x3.1.2
+ 180. http://www.columbia.edu/kermit/
+ 181. http://www.columbia.edu/kermit/ckermit.html
+ 182. http://www.columbia.edu/kermit/ckfaq.html
+ 183. http://www.columbia.edu/kermit/ckututor.html#top
+ 184. http://www.columbia.edu/kermit/ckututor.html#contents
+ 185. http://www.columbia.edu/kermit/ckututor.html#other
+ 186. http://www.columbia.edu/kermit/ckututor.html#personae
+ 187. http://www.columbia.edu/kermit/ck90.html
+ 188. http://www.columbia.edu/kermit/cu-bsd-license.html
+ 189. http://www.opensource.org/
+ 190. http://www.columbia.edu/kermit/
+ 191. http://www.columbia.edu/kermit/ckermit.html
+ 192. http://www.columbia.edu/kermit/ckfaq.html
+ 193. http://www.columbia.edu/kermit/ckututor.html#top
+ 194. http://www.columbia.edu/kermit/ckututor.html#contents
+ 195. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 196. http://www.columbia.edu/kermit/ckututor.html#license
+ 197. http://www.columbia.edu/kermit/
+ 198. http://www.columbia.edu/kermit/howtoget.html
+ 199. http://www.columbia.edu/kermit/
+ 200. http://www.columbia.edu/kermit/ckermit.html
+ 201. http://www.columbia.edu/kermit/ckfaq.html
+ 202. http://www.columbia.edu/kermit/ckututor.html#top
+ 203. http://www.columbia.edu/kermit/ckututor.html#contents
+ 204. http://www.columbia.edu/kermit/ckututor.html#files
+ 205. http://www.columbia.edu/kermit/ckututor.html#other
+ 206. http://www.columbia.edu/kermit/ckmanual.html
+ 207. http://www.amazon.com/gp/product/B002ACPF9M?ie=UTF8&tag=aleidmoreldom-20&linkCode=as2&camp=1789&creative=390957&creativeASIN=B002ACPF9M
+ 208. http://www.columbia.edu/kermit/ckermit70.html
+ 209. http://www.columbia.edu/kermit/ckermit80.html
+ 210. http://www.columbia.edu/kermit/ckermit90.html
+ 211. http://www.columbia.edu/kermit/ckermit.html
+ 212. http://www.columbia.edu/kermit/ck80binaries.html
+ 213. http://www.columbia.edu/kermit/scriptlib.html
+ 214. http://www.columbia.edu/kermit/newfaq.html
+ 215. http://www.columbia.edu/kermit/ckfaq.html
+ 216. http://www.columbia.edu/kermit/security.html
+ 217. http://www.columbia.edu/kermit/telnet.html
+ 218. http://www.columbia.edu/kermit/studies.html
+ 219. http://www.columbia.edu/kermit/ckcbwr.html
+ 220. http://www.columbia.edu/kermit/ckubwr.html
+ 221. http://www.columbia.edu/kermit/ckvbwr.html
+ 222. http://www.columbia.edu/kermit/ckuins.html
+ 223. http://www.columbia.edu/kermit/ckvins.html
+ 224. http://www.columbia.edu/kermit/support.html
+ 225. http://www.columbia.edu/kermit/k95tutorial.html
+ 226. news:comp.protocols.kermit.misc
227. http://www.columbia.edu/kermit/
228. http://www.columbia.edu/kermit/ckermit.html
229. http://www.columbia.edu/kermit/ckfaq.html
230. http://www.columbia.edu/kermit/ckututor.html#top
231. http://www.columbia.edu/kermit/ckututor.html#contents
- 232. http://www.columbia.edu/kermit/ckututor.html#files
- 233. mailto:kermit@columbia.edu
+ 232. http://www.columbia.edu/kermit/ckututor.html#authors
+ 233. http://www.columbia.edu/kermit/ckututor.html#documentation
+ 234. http://www.columbia.edu/kermit/cu-bsd-license.html
+ 235. ftp://kermit.columbia.edu/kermit/c-kermit/ckermit.ini
+ 236. ftp://kermit.columbia.edu/kermit/c-kermit/ckermod.ini
+ 237. http://www.columbia.edu/kermit/ckuins.html
+ 238. http://www.columbia.edu/kermit/ckcbwr.html
+ 239. http://www.columbia.edu/kermit/ckubwr.html
+ 240. http://www.columbia.edu/kermit/ckcplm.html
+ 241. http://www.columbia.edu/kermit/ckccfg.html
+ 242. http://www.columbia.edu/kermit/ckuins.html
+ 243. http://www.columbia.edu/kermit/
+ 244. http://www.columbia.edu/kermit/ckermit.html
+ 245. http://www.columbia.edu/kermit/ckfaq.html
+ 246. http://www.columbia.edu/kermit/ckututor.html#top
+ 247. http://www.columbia.edu/kermit/ckututor.html#contents
+ 248. http://www.columbia.edu/kermit/ckututor.html#files
+ 249. mailto:kermit@columbia.edu
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
IMPORTANT: Character string constants longer than about 250 are not portable.
Longer strings should be broken up into arrays of strings and accessed with
- hmsga() rather than hmsg().
+ hmsga() rather than hmsg(). (This statement was true in the 1980s and
+ probably is not a big concern in the 21st Century, but you never know;
+ there still might exist some 16-bit platforms and C compilers that have
+ restrictions like this.
*/
#include "ckcsym.h"
#include "ckcdeb.h"
#include "ckokey.h"
#endif /* OS2 */
+extern char * ck_cryear; /* For copyright notice */
+
extern xx_strp xxstring;
extern char * ccntab[];
/*
#ifndef OS2
#ifdef MAC
"Documentation for Command Window: \"Using C-Kermit\" by Frank da Cruz and",
-"Christine M. Gianone, Digital Press, 1997, ISBN: 1-55558-164-1. To order,",
-"call +1 212 854-3703 or +1 800 366-2665.",
+"Christine M. Gianone, Digital Press, 1997, ISBN: 1-55558-164-1",
#else
"DOCUMENTATION: \"Using C-Kermit\" by Frank da Cruz and Christine M. Gianone,",
"2nd Edition, Digital Press / Butterworth-Heinemann 1997, ISBN 1-55558-164-1,",
-"plus supplements at http://www.columbia.edu/kermit/ckermit.html.",
+"plus supplements at http://kermit.columbia.edu/ckermit.html#doc.",
#endif /* MAC */
#endif /* OS2 */
#ifdef MAC
#endif /* NOHELP */
" ",
"DOCUMENTATION: \"Using C-Kermit\" by Frank da Cruz and Christine M. Gianone,",
-"2nd Edition, Digital Press / Butterworth-Heinemann 1997, ISBN 1-55558-164-1.",
-"To order: +1 212 854-3703 or +1 800 366-2665. More info at the Kermit",
-
-"Project website, http://www.columbia.edu/kermit/.",
+"2nd Edition, Digital Press (1997), ISBN 1-55558-164-1. More info at the",
+"Kermit Project website, http://kermit.columbia.edu/.",
""
};
#endif /* NOIKSD */
#ifndef NOHELP
char *newstxt[] = {
#ifdef OS2
-"Welcome to Kermit 95 2.1.3. Major new features include:",
+"Welcome to Kermit 95 3.x.x. Major new features since 2.1.3 include:",
#else
-"Welcome to C-Kermit 8.0.206. Major new features include:",
-#endif /* OS2 */
-#ifdef NT
-#ifdef KUI
-" . Runs in GUI window",
-#else
-" . GUI version available",
-#endif /* KUI */
-#endif /* NT */
-#ifdef SSHBUILTIN
-" . New built-in SSH v1 and v2 clients",
-#endif /* SSHBUILTIN */
-#ifdef NEWFTP
-" . A new built-in FTP client",
-#endif /* NEWFTP */
-#ifndef NOHTTP
-" . A new HTTP 1.1 client",
-#endif /* NOHTTP */
-#ifdef TN_COMPORT
-" . Telnet Com Port Option for dialing from Telnet modem servers",
-#endif /* TN_COMPORT */
-" . File scanning for automatic text/binary determination",
-#ifdef CKLEARN
-#ifndef OS2
-" . Learned scripts",
+"Welcome to C-Kermit 9.0.300. New features since 8.0.211 include:",
#endif /* OS2 */
-#endif /* CKLEARN */
-#ifndef NOSPL
-#ifndef NOSEXP
-" . LISP-like S-Expressions and natural floating-point arithmetic",
-#endif /* NOSEXP */
-" . Lots of script programming improvements",
-#endif /* NOSPL */
-" . Performance improvements and bug fixes",
+" . Open Source Simplified 3-Clause BSD License",
+" . Full 64-bit memory model on platforms that support it",
+" . Large file support (64-bit file size) on most platforms",
+" . Long integer variables and constants in commands and scripts",
+" . Bigger maximum command and macro lengths",
+" . Bigger filename expansion space",
+" . New super-flexible RENAME command",
+" . New COPY and DIRECTORY command options",
+" . New TOUCH command",
+" . Raw SSL/TLS connections for connecting to POP3 and similar services",
+" . At prompt, Ctrl-K recalls most recent filename",
+" . Scripting and performance improvements and bug fixes",
" ",
"Documentation:",
-" 1. \"Using C-Kermit\", second edition (1997), current with C-Kermit 6.0.",
-" 2. http://www.columbia.edu/kermit/ckermit70.html",
+" 1. http://kermit.columbia.edu/usingckermit.html",
+" \"Using C-Kermit\", second edition (1997), current with C-Kermit 6.0.",
+" ",
+" 2. http://kermit.columbia.edu/ckermit70.html",
" which documents the new features of C-Kermit 7.0.",
-" 3. http://www.columbia.edu/kermit/ckermit80.html",
+" ",
+" 3. http://kermit.columbia.edu/ckermit80.html",
" which documents the new features of C-Kermit 8.0.",
" ",
+" 4. http://kermit.columbia.edu/ckermit90.html",
+" which documents the new features of C-Kermit 9.0.",
+" ",
"If the release date shown by the VERSION command is long past, be sure to",
-"check with the Kermit Project to see if there have been updates.",
+"check with the Kermit website to see if there have been updates:",
+" ",
+#ifdef OS2
+" http://kermit.columbia.edu/k95.html (Kermit 95 home page)",
+#else
+" http://kermit.columbia.edu/ckermit.html (C-Kermit home page)",
+#endif /* OS2 */
+" http://kermit.columbia.edu/ (Kermit Project home page)",
""
};
#endif /* NOHELP */
" . CTRL-B: Command recall - same as Ctrl-P.",
" . CTRL-N: Command recall - go forward in command recall buffer.",
#endif /* CK_RECALL */
+#ifndef NOLASTFILE
+" . CTRL-K: Insert the most recently entered local file specifiction.",
+#endif /* NOLASTFILE */
" . ? (question mark) Display a menu for the current command field."
,
-" . ESC (or TAB) Attempt to complete the current field.",
+" . ESC (or TAB or Ctrl-I) Attempt to complete the current field.",
" . \\ (backslash) include the following character literally",
#ifndef NOSPL
" or introduce a backslash code, variable, or function.",
" SHOW COMMUNICATIONS, SHOW FILE, SHOW PROTOCOL, etc.",
#endif /* NOLOCAL */
" ",
+"The manual for C-Kermit is the book \"Using C-Kermit\". For information",
+"about the manual, visit:",
+" http://kermit.columbia.edu/usingckermit.html",
+" ",
#ifdef OS2
"For a Kermit 95 tutorial, visit:",
-" http://www.columbia.edu/kermit/k95tutor.html",
+" http://kermit.columbia.edu/k95tutor.html",
" ",
#endif /* OS2 */
-"For a C-Kermit tutorial, visit:",
-" http://www.columbia.edu/kermit/ckututor.html",
+"For an online C-Kermit tutorial, visit:",
+" http://kermit.columbia.edu/ckututor.html",
" ",
"To learn about script programming and automation:",
-" Read the manual, \"Using C-Kermit\". For a brief tutorial, visit:",
-" http://www.columbia.edu/kermit/ckscripts.html",
+" http://kermit.columbia.edu/ckscripts.html",
" ",
"For further information about a particular command, type HELP xxx,",
"where xxx is the name of the command. For documentation, news of new",
-"releases, and information about other Kermit software, contact:",
+"releases, and information about other Kermit software, visit the",
+"Kermit Project website:",
" ",
-" The Kermit Project E-mail: kermit@columbia.edu",
-" Columbia University Web: http://www.columbia.edu/kermit/",
-" 612 West 115th Street Voice: +1 (212) 854-3703",
-" New York NY 10025-7799 Fax: +1 (212) 662-6442",
-" USA",
+" http://kermit.columbia.edu/",
+" ",
+"For information about technical support please visit this page:",
+" ",
+" http://kermit.columbia.edu/support.html",
""
};
""
};
+#ifndef NOSEXP
+static char * hmxysexp[] = {
+"SET SEXPRESSION { DEPTH-LIMIT, ECHO-RESULT, TRUNCATE-ALL-RESULTS }",
+" DEPTH-LIMIT sets a limit on the depth of nesting or recursion in",
+" S-Expressions to prevent the program from crashing from memory exhaustion.",
+" ECHO-RESULT tells whether S-Expression results should be displayed as",
+" a result of evaluating an expression; the default is to display only at",
+" top (interactive) level; OFF means never display; ON means always display.",
+" TRUNCATE-ALL-RESULTS ON means the results of all arithmetic operations",
+" should be forced to integers (whole numbers) by discarding any fractional",
+" part. The default is OFF. SHOW SEXPRESSION displays the current settings."
+,""
+};
+#endif /* NOSEXP */
+
#ifdef OS2
#ifdef KUI
static char * hmxygui[] = {
+"SET GUI CLOSE OFF",
+" Disables the System Menu Close and File->Exit functions which could be",
+" used to exit Kermit. Once disabled these functions cannot be re-enabled",
+" and the only way to exit Kermit is via the Kermit Script EXIT command.",
+" ",
"SET GUI DIALOGS { ON, OFF }",
" ON means that popups, alerts, use GUI dialogs; OFF means to use",
" text-mode popups or prompts. ON by default.",
" choices. The size can be a whole number or can contain a decimal point",
" and a fraction (which is rounded to the nearest half point).",
" ",
+"SET GUI MENUBAR OFF",
+" Disables menubar functions which could be used to modify the Kermit",
+" session configuration. Once disabled the menubar functions cannot be",
+" re-enabled.",
+" ",
"SET GUI RGBCOLOR colorname redvalue greenvalue bluevalue",
" Specifies the red-green-blue mixture to be used to render the given",
" color name. Type \"set gui rgbcolor\" to see a list of colornames.",
" the RGB values are whole numbers from 0 to 255.",
" ",
+"SET GUI TOOLBAR OFF",
+" Disables toolbar functions which could be used to modify the Kermit",
+" session configuration. Once disabled the toolbar functions cannot be",
+" re-enabled.",
+" ",
"SET GUI WINDOW POSITION x y",
" Moves the K95 window to the given X,Y coordinates, pixels from top left.",
" (Not yet implemented -- use command-line options to do this.)",
};
#endif /* LOCUS */
+#ifdef UNIX
+#ifndef NOPUTENV
+static char *hmxxputenv[] = {
+"Syntax: PUTENV name value",
+" Creates or modifies the environment variable with the given name to have",
+" the given value. Purpose: to pass parameters to subprocesses without",
+" having them appear on the command line. If the value is blank (empty),",
+" the variable is deleted. The result is visible to this instantiation of",
+" C-Kermit via \\$(name) and to any inferior processes by whatever method",
+" they use to access environment variables. The value may be enclosed in",
+" doublequotes or braces, but it need not be; if it is the outermost",
+" doublequotes or braces are removed.",
+" ",
+" Note the syntax:",
+" PUTENV name value",
+" not:",
+" PUTENV name=value",
+" ",
+" There is no equal sign between name and value, and the name itself may",
+" not include an equal sign.",
+"",
+};
+#endif /* NOPUTENV */
+#endif /* UNIX */
+
static char *hmxxtak[] = {
"Syntax: TAKE filename [ arguments ]",
" Tells Kermit to execute commands from the named file. Optional argument",
#ifndef NOSPL
static char *hmfword[] = {
-"\\fword(s1,n1,s2,s3,n2,n3) - Extract word from string.",
-" s1 = source string",
-" n1 = word number (1-based)",
+"Function \\fword(s1,n1,s2,s3,n2,n3) - Extracts a word from a string.",
+" s1 = source string.",
+" n1 = word number (1-based) counting from left; if negative, from right.",
" s2 = optional break set.",
-" s3 = optional include set.",
+" s3 = optional include set (or ALL, CSV, or TSV).",
" n2 = optional grouping mask.",
" n3 = optional separator flag:",
-" 0 = collapse adjacent separators",
+" 0 = collapse adjacent separators;",
" 1 = don't collapse adjacent separators.",
" ",
-" Default break set is all characters except ASCII letters and digits.",
-" ASCII (C0) control characters are always treated as break characters.",
-" Default include set is null.",
+" \\fword() returns the n1th \"word\" of the string s1, according to the",
+" criteria specified by the other parameters.",
+" ",
+" The BREAK SET is the set of all characters that separate words. The",
+" default break set is all characters except ASCII letters and digits.",
+" ASCII (C0) control characters are treated as break characters by default,",
+" as are spacing and punctuation characters, brackets, and so on, and",
+" all 8-bit characters.",
+" ",
+" The INCLUDE SET is the set of characters that are to be treated as ",
+" parts of words even though they normally would be separators. The",
+" default include set is empty. Three special symbolic include sets are",
+" also allowed:",
+" ",
+" ALL (meaning include all bytes that are not in the break set)",
+" CSV (special treatment for Comma-Separated-Value records)",
+" TSV (special treatment for Tab-Separated-Value records)",
" ",
-" If grouping mask given and nonzero, words can be grouped by quotes or",
-" brackets selected by the sum of the following:",
+" For operating on 8-bit character sets, the include set should be ALL.",
+" ",
+" If the GROUPING MASK is given and is nonzero, words can be grouped by",
+" quotes or brackets selected by the sum of the following:",
" ",
" 1 = doublequotes: \"a b c\"",
" 2 = braces: {a b c}",
" Nesting is possible with {}()[]<> but not with quotes or apostrophes.",
" ",
"Returns string:",
-" Word number n, if there is one, otherwise an empty string.",
+" Word number n1, if there is one, otherwise an empty string.",
+" ",
+"Also see:",
+" HELP FUNCTION SPLIT",
""
};
};
static char *hxxinp[] = {
-"Syntax: INPUT [ /NOMATCH ] { number-of-seconds, time-of-day } [ text ]",
-"Example: INPUT 5 Login: or INPUT 23:59:59 RING",
+"Syntax: INPUT [ /COUNT:n /CLEAR /NOMATCH /NOWRAP ] \
+{ number-of-seconds, time-of-day } [ text ]",
+" ",
+"Examples:",
+" INPUT 5 Login:",
+" INPUT 23:59:59 RING",
+" INPUT /NOMATCH 10",
+" INPUT /CLEAR 10 \\13\\10",
+" INPUT /CLEAR 10 \\13\\10$\32",
+" INPUT /COUNT:256 10",
+" INPUT 10 \\fpattern(<*@*.*>)",
+" ",
" Waits up to the given number of seconds, or until the given time of day,",
-" for the given text to arrive on the connection. If no text is given,",
-" INPUT waits for any character. If the /NOMATCH switch is included, INPUT",
-" does not attempt to match any characters, but continues reading from the",
-" communication connection until the timeout interval expires. If the",
-" timeout interval is 0, the INPUT command does not wait; i.e. the given",
-" text must already be available for reading for the INPUT command to",
-" succeed. If the interval is negative, the INPUT command waits forever.",
-" For use in script programs with IF FAILURE and IF SUCCESS. Also see",
-" MINPUT, REINPUT, SET INPUT. See HELP PAUSE for details on time-of-day",
-" format. The text, if given, can be a \\pattern() invocation, in which",
-" case it is treated as a pattern rather than a literal string (HELP",
-" PATTERNS for details).",
+" for the given text to arrive on the connection. For use in script programs",
+" with IF FAILURE or IF SUCCESS, which tell whether the desired text arrived",
+" within the given amount of time.",
+" ",
+" The text, if given, can be a regular text or it can be a \\pattern()",
+" invocation, in which case it is treated as a pattern rather than a literal",
+" string (HELP PATTERNS for details).",
+" ",
+" If the /COUNT: switch is included, INPUT waits for the given number of",
+" characters to arrive.",
+" ",
+" If no text is specified, INPUT waits for the first character that arrives",
+" and makes it available in the \\v(inchar) variable. This is equivalent to",
+" including a /COUNT: switch with an argument of 1.",
+" ",
+" If the /NOMATCH switch is included, INPUT does not attempt to match any",
+" characters, but continues reading from the communication connection until",
+" the timeout interval expires. If the timeout interval is 0, the INPUT",
+" command does not wait; i.e. the given text must already be available for",
+" reading for the INPUT command to succeed. If the interval is negative,",
+" the INPUT command waits forever.",
+" ",
+" The INPUT buffer, \\v(input), is normally circular. Incoming material is",
+" appended to it until it reaches the end, and then it wraps around to the",
+" beginning. If the /CLEAR switch is given, INPUT clears its buffer before",
+" reading from the connection.",
+" ",
+" Typical example of use:",
+" ",
+" INPUT 10 login:",
+" IF FAIL EXIT 1 \"Timed out waiting for login prompt\"",
+" LINEOUT myuserid",
+" INPUT 10 Password:",
+" IF FAIL EXIT 1 \"Timed out waiting for Password prompt\"",
+" LINEOUT xxxxxxx",
+" ",
+" The /NOWRAP switch means that INPUT should return with failure status",
+" and with \\v(instatus) set to 6 if its internal buffer fills up before",
+" any of the other completion criteria are met. This allows for capture",
+" of the complete incoming data stream (except NUL bytes, which are",
+" discarded). CAUTION: if the search target (if any) spans the INPUT buffer",
+" boundary, INPUT will not succeed.",
+" ",
+" \
+\\v(instatus) values are: 0 (success), 1 (timed out), 2 (keyboard interrupt),",
+" 3 (internal error), 4 (I/O error or connection lost), 5 (INPUT disabled),",
+" and 6 (buffer filled and /NOWRAP set); these are shown by \\v(inmessage).",
+" ",
+" Also see OUTPUT, MINPUT, REINPUT, SET INPUT and CLEAR. See HELP PAUSE for",
+" details on time-of-day format and HELP PATTERNS for pattern syntax.",
""};
static char *hxxout[] = {
"Syntax: SET PROTOCOL { KERMIT, XMODEM, YMODEM, ZMODEM } [ s1 s2 [ s3 ] ]",
" Selects protocol to use for transferring files. String s1 is a command to",
" send to the remote host prior to SENDing files with this protocol in",
-" binary mode; string s2 is the same thing but for text mode. Use \"%\" in",
+" binary mode; string s2 is the same thing but for text mode. Use \"%s\" in",
" any of these strings to represent the filename(s). If the protocol is",
" KERMIT, you may also specify a string s3, the command to start a Kermit",
" server on the remote host when you give a GET, REGET, REMOTE, or other",
" nil False (empty)",
" pi The value of Pi (3.1415926...)",
" ",
+"If SET SEXPRESSION TRUNCATE-ALL-RESULTS is ON, all results are trunctated",
+"to integer values by discarding any fractional part. Otherwise results",
+"are floating-point if there fractional part and integer otherwise.",
"If SET SEXPRESSION ECHO-RESULT is AUTO (the default), the value of the",
"S-Expression is printed if the S-Expression is given at top level; if ON,",
"it is printed at any level; if OFF it is not printed. At all levels, the",
" Ignores case of letters (ASCII only) when comparing.",
" /NOMATCH",
" Searches for lines that do NOT match the pattern.",
+" /EXCEPT:pattern",
+" Exclude lines that match the main pattern that also match this pattern.",
" ",
"Display options:",
" /COUNT:variable-name",
" /ARRAY:&a Store file list in specified array (e.g. \\%a[]).",
" /PAGE Pause after each screenful.",
" /NOPAGE Don't pause after each screenful.",
+" /TOP:n Only show the top n lines of the directory listing.",
#ifdef UNIXOROSK
" /DOTFILES Include files whose names start with dot (period).",
" /NODOTFILES + Don't include files whose names start with dot.",
" /FOLLOWLINKS Follow symbolic links.",
" /NOFOLLOWLINKS + Don't follow symbolic links.",
+" /NOLINKS Don't list symbolic links at all.",
" /BACKUP + Include backup files (names end with .~n~).",
" /NOBACKUPFILES Don't include backup files.",
#endif /* UNIXOROSK */
" /OUTPUT:file Store directory listing in the given file.",
" /HEADING Include heading and summary.",
" /NOHEADING + Don't include heading or summary.",
+" /COUNT:var Put the number of matching files in the given variable.",
" /SUMMARY Print only count and total size of matching files.",
" /XFERMODE Show pattern-based transfer mode (T=Text, B=Binary).",
" /TYPE: Show only files of the specified type (text or binary).",
" ",
"Factory defaults are marked with +. Default for paging depends on SET",
"COMMAND MORE-PROMPTING. Use SET OPTIONS DIRECTORY [ switches ] to change",
-"defaults; use SHOW OPTIONS to display customized defaults.",
+"defaults; use SHOW OPTIONS to display customized defaults. Also see",
+"WDIRECTORY.",
#else
"Syntax: DIRECTORY [ filespec ]",
" Lists the specified file or files. If no filespec is given, all files",
#endif /* DOMYDIR */
""};
+static char *hmxxtouc[] = {
+"Syntax: TOUCH [ switches ] filespec",
+" Updates the modification time of the given file or files to the current",
+" date and time. If the filespec is the name of a single file that does not",
+" exist, the file is created. The optional switches are the same as for",
+" the DIRECTORY command. TOUCH operates silently unless the /VERBOSE",
+" switch is given, in which case it lists each file it affects.",
+""};
#ifndef NOSPL
static char *hmxxkcd[] = {
#else
" with \"t\". When typing commands at the prompt, you must precede any",
" question mark to be used for matching by a backslash (\\) to override the",
-" normal function of question mark, which is providing menus and file lists.",
+" normal function of question mark in interactive commands, which is to",
+" provide menus and file lists.",
#endif /* VMS */
" ",
#ifdef OS2ORUNIX
#ifndef NOSPL
" ",
"To force a special pattern character to be taken literally, precede it with",
-"a backslash, e.g. [a\\-z] matches a, hyphen, and z rather than a through z.",
+"a backslash, e.g. [a\\-z] matches a, hyphen, or z rather than a through z.",
" ",
"A floating pattern can also include the following special characters:",
" ",
" \\fsearch(abc,xxabcxxx) succeeds because xxabcxx contains abc.",
" \\fsearch(^abc,xxabcxx) fails because xxabcxx does not start with abc.",
" ",
-"All other commands and functions that use patterns use anchored patterns,",
-"meaning that ^ and $ are not treated specially, and * is not assumed at the",
-"beginning or end of the pattern. This is true mainly of filename patterns",
-"(wildcards), since you would not want a command like \"delete x\" to delete",
-"all files whose names contained \"x\"!",
+
+"All other commands and functions use anchored patterns, meaning that ^ and $",
+"are not treated specially, and * is not assumed at the beginning or end of",
+"the pattern. This is true mainly of filename patterns (wildcards), since",
+"you would not want a command like \"delete x\" to delete all files whose",
+"names contained \"x\"!",
+
" ",
"You can use anchored patterns not only in filenames, but also in SWITCH",
"case labels, in the INPUT and MINPUT commands, and in file binary- and",
#else
" with \".c\". When typing commands at the prompt, you must precede any",
" question mark to be used for matching by a backslash (\\) to override the",
-" normal function of question mark, which is providing menus and file lists.",
+" normal function of question mark in interactive commands, which is to",
+" provide menus and file lists. You don't, however, need to quote filename",
+" question marks in command files (script programs).",
#endif /* VMS */
" ",
#ifdef OS2ORUNIX
#endif /* OS2ORUNIX */
" ",
"To force a special pattern character to be taken literally, precede it with",
-"a backslash, e.g. [a\\-z] matches a, hyphen, and z rather than a through z.",
+"a backslash, e.g. [a\\-z] matches a, hyphen, or z rather than a through z.",
+"Or tell Kermit to SET WILDCARD-EXPANSION OFF before entering or referring",
+"to the filename.",
" ",
#ifndef NOSPL
"Similar notation can be used in general-purpose string matching. Type HELP",
#ifdef CK_MINPUT
static char *hmxxminp[] = {
-"Syntax: MINPUT n [ string1 [ string2 [ ... ] ] ]",
+"Syntax: MINPUT [ switches ] n [ string1 [ string2 [ ... ] ] ]",
"Example: MINPUT 5 Login: {Username: } {NO CARRIER} BUSY RING",
" For use in script programs. Waits up to n seconds for any one of the",
" strings to arrive on the communication device. If no strings are given,",
" the command waits for any character at all to arrive. Strings are",
-" separated by spaces; use { braces } for grouping. If any of the strings",
-" is encountered within the timeout interval, the command succeeds and the",
-" \\v(minput) variable is set to the number of the string that was matched:",
-" 1, 2, 3, etc. If none of the strings arrives, the command times out,",
-" fails, and \\v(minput) is set to 0. If the timeout interval is 0 the",
-" MINPUT command does not wait; i.e. the given text must already be",
-" available for reading for the MINPUT command to succeed. If the interval",
-" is negative, the MINPUT command waits forever.",
-" ",
-"Also see: INPUT, REINPUT, SET INPUT.",
+" separated by spaces; use {braces} or \"doublequotes\" for grouping. If",
+" any of the strings is encountered within the timeout interval, the command",
+" succeeds and the \\v(minput) variable is set to the number of the string",
+" that was matched: 1, 2, 3, etc. If none of the strings arrives, the",
+" command times out, fails, and \\v(minput) is set to 0. In all other",
+" respects, MINPUT is like INPUT. See HELP INPUT for the available switches",
+" and other details of operation.",
"" };
#endif /* CK_MINPUT */
" ",
" The following shortcuts can also be used in place of dates:",
" ",
+" NOW",
+" Stands for the current date and time.",
+" ",
" TODAY",
" Today's date, optionally followed by a time; 00:00:00 if no time given.",
" ",
" Tomorrows's date, optionally followed by a time (default 00:00:00).",
" ",
" Timezone specifications are similar to those used in e-mail and HTTP",
-" headers, either a USA timezone name, e.g. EST or a signed four-digit",
+" headers, either a USA timezone name, e.g. EST, or a signed four-digit",
" timezone offset, {+,-}hhmm, e.g., -0500; it is used to convert date-time,"
,
" a local time in that timezone, to GMT which is then converted to the",
" local time at the host. If no timezone is given, the date-time is local."
-,
+," To convert local time (or a time in a specified timezone) to UTC (GMT),",
+" use the function \futcdate().",
" ",
" Delta times are given as {+,-}[number date-units][hh[:mm[:ss]]]",
" A date in the future/past relative to the date-time; date-units may be",
#ifndef NORESEND
static char *hmxxrsen = "\
Syntax: RESEND filespec [name]\n\n\
- Resend the file or files, whose previous transfer was interrupted.\n\
- Picks up from where previous transfer left off, IF the receiver was told\n\
- to SET FILE INCOMPLETE KEEP. Only works for binary-mode transfers.\n\
- Requires the other Kermit to have RESEND capability.";
+ Resends the file or files, whose previous transfer was interrupted.\n\
+ Picks up from where previous transfer left off, IF the receiver kept the\n\
+ partially received file. Works only for binary-mode transfers.\n\
+ Requires file-transfer partner to support recovery. Synonym: REPUT.";
static char *hmxxrget = "\
Syntax: REGET filespec\n\n\
""};
#endif /* NOSETKEY */
-static char *hmxychkt[] = { "Syntax: SET BLOCK-CHECK type",
+static char *hmxychkt[] = { "Syntax: SET BLOCK-CHECK number",
+" ",
+"Type of block check to be used for error detection on file-transfer",
+"packets: 1, 2, 3, 4, or 5. This command must be given to the file",
+"sender prior to the transfer.",
+" ",
+"Type 1 is standard and supported by all Kermit protocol implementations,",
+" but it's only a 6-bit checksum, represented in a single printable ASCII",
+" character. It's fine for reliable connections (error-correcting modems,",
+" TCP/IP, etc) but type 3 is recommended for connections where errors can",
+" occur.",
+" ",
+"Type 2 is a 12-bit checksum represented in two printable characters.",
" ",
-" Type of packet block check to be used for error detection, 1, 2, 3, or",
-" BLANK-FREE-2. Type 1 is standard, and catches most errors. Types 2 and 3",
-" specify more rigorous checking at the cost of higher overhead. The",
-" BLANK-FREE-2 type is the same as Type 2, but is guaranteed to contain no",
-" blanks.",
+"Type 3 is a 16-bit cyclic redundancy check, the strongest error",
+" detection method supported by Kermit protocol, represented in three",
+" printable characters.",
+" ",
+"Type 4 (alias \"BLANK-FREE-2\") is a 12-bit checksum guaranteed to",
+" contain no blanks in its representation; this is needed for connections",
+" where trailing blanks are stripped from incoming lines of text.",
+" ",
+"Type 5 (alias \"FORCE-3\") means to force a Type 3 block check on",
+" every packet, including the first packet, which normally has a type 1",
+" block check. This is for use in critical applications on noisy",
+" connections. As with types 2, 3, and 4, if the Kermit file",
+" transfer partner does not support this type, the transfer fails",
+" immediately at the beginning of the transfer.",
"" };
static char * hmxydeb[] = {
-"Syntax: SET DEBUG { SESSION, ON, OFF, TIMESTAMP }",
+"Syntax: SET DEBUG { SESSION, ON, OFF, TIMESTAMP, MESSAGES }",
" ",
"SET DEBUG ON",
#ifdef DEBUG
" ",
"SET DEBUG TIMESTAMP { ON, OFF }",
" Enables/Disables timestamps on debug log entries.",
+" ",
+"SET DEBUG MESSAGES { ON, OFF, STDERR } [C-Kermit 9.0]",
+" Enables/Disables messages printed by the DEBUG command.",
+" SET DEBUG OFF causes DEBUG messages not to be printed.",
+" SET DEBUG ON sends DEBUG messages to standard output (stdout);",
+" SET DEBUG STDERR sends DEBUG messages to standard error (stderr);",
"" };
#ifdef CK_SPEED
" ",
"SET DIAL RETRIES <number>",
" How many times to redial each number if the dialing result is busy or no",
-" no answer, until the call is succesfully answered. The default is 0",
+" no answer, until the call is successfully answered. The default is 0",
" because automatic redialing is illegal in some countries.",
" ",
"SET DIAL INTERVAL <number>",
" the incoming file under the name it was sent with.",
" OVERWRITE - Overwrite (replace) the existing file.",
" APPEND - Append the incoming file to the end of the existing file.",
-" DISCARD - Refuse and/or discard the incoming file.",
+" REJECT - Refuse and/or discard the incoming file (= DISCARD).",
" RENAME - Give the incoming file a unique name.",
" UPDATE - Accept the incoming file only if newer than the existing file.",
" ",
#ifdef CK_TMPDIR
" DIRECTORY string - The string is the name of a directory",
#endif /* CK_TMPDIR */
+#ifdef UNIX
+" LINK string - The string is a symbolic link",
+#endif /* UNIX */
" READABLE filename - Succeeds if the file is readable",
" WRITEABLE filename - Succeeds if the file is writeable",
#ifdef ZFCDAT
" ",
"Syntax: ASKQ [ switches ] variablename [ prompt ]",
"Example: ASKQ \\%p { Password:}",
-" Like ASK except the response does not echo on the screen.",
+" Like ASK except the response does not echo on the screen or, if specified",
+" it echoes as asterisks or other specified character.",
" ",
"Switches:",
" /DEFAULT:text",
" Text to supply if the user enters a blank response or the /TIMEOUT",
" limit expired with no response.",
" ",
+" /ECHO:char",
+" (ASKQ only) Character to be echoed each time the user presses a key",
+" corresponding to a printable character. This lets users see what they are",
+" doing when they are typing (e.g.) passwords, and makes editing easier.",
+" ",
#ifdef OS2
" /POPUP",
" The prompt and response dialog takes place in a text-mode popup.",
" other applications and Kermit performs dialing functions using its",
" built-in dialing and modem databases. If TAPI MODEM-DIALING is ON, TAPI",
" handles all dialing functions and the port may be shared with other",
-" applications when a call in not active. When TAPI MODEM-DIALING is OFF,",
+" applications when a call is not active. When TAPI MODEM-DIALING is OFF,",
" SET MODEM TYPE TAPI Kermit uses the TAPI modem commands imported from the",
" Windows Registry during the previous SET TAPI LINE call.",
" ",
" elements are discarded; if it is larger, new empty elements are added.",
" ",
"ARRAY COPY array1 array2",
-" Copys array1 to array2. If array2 has not been declared, it is created",
+" Copies array1 to array2. If array2 has not been declared, it is created",
" automatically. Range specifiers may be given on one or both arrays.",
" ",
"ARRAY LINK array1 arra2",
" be copied to the given directory. Switches:",
" ",
" /LIST",
-" Print the filenames and status while copying. Synonyms: /LOG, /VERBOSE",
+" Print the filenames and status while copying. Synonyms: /LOG, /VERBOSE.",
" ",
" /NOLIST",
-" Copy silently (default). Synonyms: /NOLOG, /QUIET",
+" Copy silently (default). Synonyms: /NOLOG, /QUIET.",
+" ",
+" /PRESERVE",
+" Copy timestamp and permissions from source file to destination file.",
+" ",
+" /OVERWRITE:{ALWAYS,NEVER,NEWER,OLDER}",
+" When copying from one directory to another, this tells what to do when",
+" the destination file already exists: overwrite it always; never; only if",
+" the source file is newer; or only if the source file is older.",
+" ",
+" /APPEND",
+" Append the source file to the destination file. In this case the source",
+" file specification can contain wildcards, and all the matching source",
+" files are appended, one after the other in alphabetical order by name,",
+" to the destination file.",
" ",
" /SWAP-BYTES",
-" Swap bytes while copying.",
+" Swap bytes while copying (e.g. for converting between Big-Endian and",
+" Little-Endian binary data formats).",
#ifndef NOSPL
" ",
" /FROMB64",
" this command is equivalent to REMOTE RENAME (RREN). Otherwise:",
" ",
#endif /* LOCUS */
-"Syntax: RENAME [ switches ] name1 name2",
+"Syntax: RENAME [ switches ] name1 [ name2 ]",
" Renames the source file (name1) to the target name2. If name2 is a",
" directory, name1 is allowed to contain wildcards, and the file(s) matching",
" name1 are moved to directory name2, subject to rules of the underlying",
-" operating system regarding renaming across disk boundaries, etc. If name2",
-" is not a directory, name1 may not include wildcards, and the file whose",
-" name is name1 is renamed to name2. Switches:",
+" operating system regarding renaming across disk boundaries, etc. Switches:",
" ",
" /LIST",
" Print the filenames and status while renaming. Synonyms: /LOG, /VERBOSE",
" ",
" /NOLIST",
" Rename silently (default). Synonyms: /NOLOG, /QUIET",
+" ",
+" /COLLISION:{FAIL,SKIP,OVERWRITE}",
+" Tells what to do if a file with the given (or derived) new name already",
+" exists: fail (and stop without renaming any files); skip this file",
+" without renaming it and go on to the next one, if any; or overwrite (the",
+" existing file). PROCEED is a synonym for SKIP.",
+" ",
+" /SIMULATE",
+" Show what the effects of the RENAME command would be without actually",
+" renaming any files.",
+" ",
+" When any of the following switches is given, name2 must either be the",
+" the name of a directory, or else omitted, and name1 is allowed to contain",
+" contain wildcards, allowing multiple files to be renamed at once. If name2",
+" is given, then all files matching name1 are moved to the name2 directory",
+" after being renamed.",
+" ",
+" /LOWER:{ALL,UPPER}",
+" Converts letters in the filename to lowercase. ALL means to convert",
+" all matching filenames, UPPER means to convert only those filenames",
+" that contain no lowercase letters. The switch argument can be omitted,",
+" in which case ALL filenames are converted.",
+" ",
+" /UPPER:{ALL,LOWER}",
+" Converts letters in the filename to uppercase. ALL means to convert",
+" all matching filenames, LOWER means to convert only those filenames",
+" that contain no uppercase letters. As with /LOWER, ALL is the default",
+" switch argument.",
+" ",
+" /FIXSPACES:s",
+" Replaces all spaces in each matching filename by the string s, which may",
+" be empty, a single character, or a string of characters. The default",
+" replacement (if no argument is given) is underscore (_).",
+" ",
+" /REPLACE:{{string1}{string2}{options}}",
+" Replaces all or selected occurrences of string1 with string2 in the",
+" matching filenames. The braces are part of the command. The options",
+" string can contain the following characters:",
+" A: String matching is case-sensitive.",
+" a: String matching is case-insensitive.",
+" ^: String matching is anchored to the beginning of the filename.",
+" $: String matching is anchored to the end of the filename.",
+" 1: Only the first occurrence of the string (if any) will be changed.",
+" 2: Only the second occurrence, and so on for all digits up to 9.",
+" -: (before a digit) Occurrences are counted from the right.",
+" ~: (before occurrence) All occurences BUT the one given are changed.",
+" ",
+" /CONVERT:cset1:cset1",
+" Converts each matching filename from character-set 1 to character-set 2.",
+" Character sets are the same as for SET FILE CHARACTER-SET.",
+" ",
+" Global values for /LIST and COLLISION can be set with SET RENAME and",
+" displayed with SHOW RENAME.",
""
};
#endif /* NOFRILLS */
""
};
+
#ifndef NOHELP
#ifndef NOCMDL
int
" ",
"/WRITE",
" Open the file for writing. If /READ was not also specified, this creates",
-" a new file. If /READ was specifed, the existing file is preserved, but",
+" a new file. If /READ was specified, the existing file is preserved, but",
" writing is allowed. In both cases, the read/write pointer is initially",
" at the beginning of the file.",
" ",
static char * hxxf_se[] = {
"Syntax: FILE SEEK [ switches ] <channel> { [{+,-}]<number>, EOF }",
-" Switches are /BYTE, /LINE, /RELATIVE, ABSOLUTE.",
+" Switches are /BYTE, /LINE, /RELATIVE, /ABSOLUTE, and /FIND:pattern.",
" Moves the file pointer for this file to the given position in the",
" file. Subsequent FILE READs or WRITEs will take place at that position.",
" If neither the /RELATIVE nor /ABSOLUTE switch is given, an unsigned",
" <number> is absolute; a signed number is relative. EOF means to move to",
-" the end of the file. Synonym: FSEEK. Also available as \\F_seek().",
+" the end of the file. If a /FIND: switch is included, Kermit seeks to the",
+" specified spot (e.g. 0 for the beginning) and then begins searching line",
+" by line for the first line that matches the given pattern. To start",
+" searching from the current file position specify a line number of +0.",
+" To start searching from the line after the current one, use +1 (etc).",
+" Synonym: FSEEK.",
""
};
#ifdef NOHELP
if ((x = cmcfm()) < 0)
return(x);
- printf("\n%s, Copyright (C) 1985, 2004,",versio);
+ printf("\n%s, Copyright (C) 1985, %s,",versio, ck_cryear);
#ifndef NOIKSD
if (inserver)
return(hmsga(tophlpi));
Undefines a macro or variable."));
#endif /* NOSPL */
+case XXMSG:
+ return(hmsg("Syntax: MESSAGE text-to-print-if-debugging\n\
+ Prints the given text to stdout if SET DEBUG MESSAGE is ON; prints it\n\
+ to stderr if SET DEBUG MESSAGE is STDERR; doesn't print it at all if SET\n\
+ DEBUG MESSAGE is OFF. Synonym: MSG."));
+
#ifndef NOFRILLS
case XXLDEL:
return(hmsg(
case XXDIR: /* DIRECTORY */
return(hmsga(hmxxdir));
+case XXTOUC: /* TOUCH */
+ return(hmsga(hmxxtouc));
+
+case XXWDIR: /* WDIRECTORY */
+ return(hmsg(" WDIRECTORY is shorthand for DIRECTORY /SORT:DATE /REVERSE;\n\
+ it produces a listing in reverse chronological order. See the DIRECTORY\n\
+ command for further information."));
+
+case XXHDIR: /* HDIRECTORY */
+ return(hmsg(" HDIRECTORY is shorthand for DIRECTORY /SORT:SIZE /REVERSE;\n\
+ it produces a listing showing the biggest files first. See the DIRECTORY\n\
+ command for further information."));
+
case XXLMKD: /* LMKDIR */
return(hmsg(
" LMKDIR is an alias for the MKDIR command forcing it to execute\n\
return(x);
if (helpfile) {
- printf("\n%s, Copyright (C) 1985, 2004,\n\
-Trustees of Columbia University in the City of New York.\n\n",versio);
+ printf("\n%s, Copyright (C) 1985, %s,\n\
+Trustees of Columbia University in the City of New York.\n\n",
+ versio,
+ ck_cryear
+ );
return(dotype(helpfile,xaskmore,3,0,NULL,0,NULL,0,0,NULL,0));
} else {
- printf("\n%s, Copyright (C) 1985, 2004,",versio);
+ printf("\n%s, Copyright (C) 1985, %s,",versio,ck_cryear);
return(hmsga(tophlp));
}
case XXINT:
#ifdef OS2
- return(hmsg("Give a brief introduction to C-Kermit."));
+ return(hmsg("The INTRO command gives a brief introduction to Kermit 95."));
#else
- return(hmsg("Give a brief introduction to Kermit 95."));
+ return(hmsg("The INTRO command gives a brief introduction to C-Kermit."));
#endif /* OS2 */
#ifndef NOSPL
return(hmsg(
"View the terminal emulation screen even when there is no connection."));
+#ifdef NEWFTP
case XXASC:
- return(hmsg("Synonym for SET FILE TYPE TEXT."));
-
+ return(hmsg(
+"Inhibits automatic transfer-mode switching and forces TEXT (ASCII) transfer\n\
+mode for all files in both Kermit and FTP protocols."));
case XXBIN:
- return(hmsg("Synonym for SET FILE TYPE BINARY."));
+ return(hmsg(
+"Inhibits automatic transfer-mode switching and forces BINARY transfer mode\n\
+for all files in both Kermit and FTP protocols."));
+#else
+case XXASC:
+ return(hmsg(
+"Inhibits automatic transfer-mode switching and forces TEXT (ASCII) transfer\n\
+mode for all files."));
+case XXBIN:
+ return(hmsg(
+"Inhibits automatic transfer-mode switching and forces BINARY transfer mode\n\
+for all files."));
+#endif /* NEWFTP */
case XXDATE:
return(hmsga(hmxxdate));
case XXWILD:
return(hmsga(hmxxwild));
+#ifdef LOCUS
+case XXLOCU:
+ return(hmsga(hmxylocus));
+#endif /* LOCUS */
+
case XXPAT:
return(hmsga(hmxxpat));
return(hmsg(" RKERMIT is a short form of REMOTE KERMIT."));
case XXRMKD:
return(hmsg(" RMKDIR is a short form of REMOTE MKDIR."));
+ case XXRMSG:
+ return(hmsg(" RMESSAGE and RMSG are short forms of REMOTE MESSAGE."));
case XXRPRI:
return(hmsg(" RPRINT is a short form of REMOTE PRINT."));
case XXRPWD:
return(hmsg(" In a FOR or WHILE loop: continue the loop.\n\
At the prompt: continue a script that has \"shelled out\" to the prompt."));
+ case XXREDO:
+ return(hmsg(" Syntax: REDO xxx (or) ^xxx\n\
+ Re-executes the most recent command starting with xxx."));
+
+#ifdef UNIX
+#ifndef NOPUTENV
+ case XXPUTE:
+ return(hmsga(hmxxputenv));
+#endif /* NOPUTENV */
+#endif /* UNIX */
+
case XXNOTAV:
return(hmsg(" This command is not configured in this version of Kermit."));
return(0);
}
+#ifndef NOFRILLS
+static char * supporttext[] = {
+
+"Live technical support for Kermit software is no longer available",
+"from Columbia University, as it was from mid-1981 until mid-2011 when",
+
+#ifdef OS2
+
+"the Kermit Project was cancelled. Beginning with version 3.0, Kermit 95",
+
+#else
+
+"the Kermit Project was cancelled. Beginning with version 9.0, C-Kermit",
+
+#endif /* OS2 */
+
+"is Open Source software. The Kermit website is supposed remain open",
+"indefinitely at:",
+" ",
+" http://kermit.columbia.edu/",
+" ",
+
+#ifdef OS2
+
+"The Kermit 95 page is here:",
+" ",
+" http://kermit.columbia.edu/k95.html",
+" ",
+"The Kermit 95 manual is here:",
+" ",
+" http://kermit.columbia.edu/k95manual/",
+" ",
+"The Kermit 95 Frequently Asked Questions page is here:",
+" ",
+" http://kermit.columbia.edu/k95faq.html",
+" ",
+"and many other resources are listed on the Kermit 95 home page.",
+" ",
+
+#else
+
+"The C-Kermit home page is here:",
+" ",
+" http://kermit.columbia.edu/ckermit.html",
+" ",
+"The documentation for C-Kermit is listed here:",
+" ",
+" http://kermit.columbia.edu/ckermit.html#doc",
+" ",
+"The C-Kermit Frequently Asked Questions page is here:",
+" ",
+" http://kermit.columbia.edu/ckfaq.html",
+" ",
+"and many other resources are listed on the C-Kermit home page.",
+" ",
+
+#endif /* OS2 */
+
+"Time will tell what sort of development and support structures arise",
+"in the Open Source community.",
+""
+};
+
+/* Do the BUG command */
+int
+dobug() {
+ return(hmsga(supporttext));
+}
+#endif /* NOFRILLS */
+
#ifndef NOXMIT
static char *hsetxmit[] = {
"Syntax: SET TRANSMIT parameter value",
" ",
#endif /* OS2 */
+"SET COMMAND ERROR { 0,1,2,3 }",
+" Sets the verbosity level of command error messages; the higher the number,",
+" the more verbose the message. The default is 1. Higher values are",
+" useful only for debugging scripts.",
+" ",
+
#ifdef OS2
#ifdef NT
"SET COMMAND HEIGHT <number>",
" Selects the cursor style and visibility for the terminal screen.",
#endif /* KUI */
" ",
-"SET TERMINAL DG-UNIX-MODE { ON, OFF }",
-" Specifies whether the Data General emulations should accept control",
-" sequences in Unix compatible format or in native DG format. The",
-" default is OFF, DG format.",
-" ",
#endif /* OS2 */
"SET TERMINAL DEBUG { ON, OFF }",
" ",
#ifdef OS2
"SET TERMINAL DG-UNIX-MODE { ON, OFF }",
+" Specifies whether the Data General emulations should accept control",
+" sequences in Unix compatible format or in native DG format. The",
+" default is OFF, DG format.",
" ",
#endif /* OS2 */
" CONNECT mode; if no text is given a NUL (0) character is sent.",
#ifdef TNCODE
" ",
-"And for Telnet connections:",
-" ",
"SET TERMINAL IDLE-ACTION { TELNET-NOP, TELNET-AYT }",
-" Sends the indicated Telnet protocol message: No Operation (NOP) or",
-" \"Are You There?\" (AYT).",
+" For TELNET connections only: Sends the indicated Telnet protocol message:",
+" No Operation (NOP) or \"Are You There?\" (AYT).",
#endif /* TNCODE */
" ",
#endif /* CKTIDLE */
" in a different mode than it's in, but did not send the escape sequence",
" to put it in the needed mode.",
" ",
+
+#endif /* OS2 */
+
+"SET TERMINAL LF-DISPLAY { CRLF, NORMAL }",
+" Specifies how incoming linefeed characters are to be displayed",
+" on your screen.",
+" ",
+
+#ifdef OS2
+
#ifdef KUI
"SET TERMINAL LINE-SPACING <float>",
" Specifies the line spacing used when displaying text. The default is 1.0.",
" easily switch between the National Language character set and U.S. ASCII.",
" The default is ON which means to display characters as U.S. ASCII. When",
" OFF the lanuage specified by SET TERMINAL SNI-LANUAGE is used to display",
-" characters when 7-bit character sets are in use."
+" characters when 7-bit character sets are in use.",
" ",
"SET TERMINAL SNI-FIRMWARE-VERSIONS <kbd-version> <terminal-version>",
" Specifies the Firmware Version number that should be reported to the host",
#ifdef UNIX
static char *hxywild[] = {
-"Syntax: SET WILDCARD-EXPANSION { KERMIT [ switch ], SHELL }",
+"Syntax: SET WILDCARD-EXPANSION { KERMIT [ switch ], SHELL, ON, OFF }",
" KERMIT (the default) means C-Kermit expands filename wildcards in SEND and",
" similar commands itself, and in incoming GET commands. Optional switches",
-" are /NO-MATCH-DOT-FILES (\"*\" and \"?\" should not match in initial",
+" are /NO-MATCH-DOT-FILES (\"*\" and \"?\" should not match an initial",
" period in a filename; this is the default) and /MATCH-DOT-FILES if you",
" want files whose names begin with \".\" included. SET WILDCARD SHELL",
" means that Kermit asks your preferred shell to expand wildcards (this",
" should not be necessary in C-Kermit 7.0 and later). HELP WILDCARD for",
" further information.",
+" ",
+" The ON and OFF choices allow you to disable and renable wildcard",
+" processing independent of the KERMIT / SHELL choice. Disabling wildcards",
+" allows you to process an array or list of filenames without having to",
+" consider whether the names might contain literal wildcard characters.",
+" WARNING: SET WILD OFF also disables internal filename pattern-matching,",
+" used (for example) in creating backup files.",
+"" };
+#else
+static char *hxywild[] = {
+"Syntax: SET WILDCARD-EXPANSION { ON, OFF }",
+" ON (the default) means that filenames given to Kermit commands such as",
+" SEND and DIRECTORY are automatically expanded into lists of filenames if",
+" they contain special 'wildcard characters' such as '*'. You can reference",
+" files whose names contains such characters literally by preceding each",
+" such character with a backslash '\\'. When dealing programmatically with",
+" a file list, however, you should SET WILDCARD-EXPANSION OFF to force",
+" treat each name in the list as a literal name. See HELP WILDCARDS for",
+" details about wildcard syntax.",
"" };
#endif /* UNIX */
" throughout the transfer based on the packet rate. Include the word FIXED",
" to use the \"number\" given throughout the transfer. DYNAMIC is the",
" default. After DYNAMIC you may include minimum and maximum values.",
+" SET SEND TIMEOUT -1 FIXED means no timeouts.",
#else
" retransmitting.",
#endif /* CK_TIMERS */
"" };
static char *hxyxfer[] = {
-"Syntax: SET TRANSFER (or XFER) paramater value",
+"Syntax: SET TRANSFER (or XFER) parameter value",
" ",
"Choices:",
" ",
#endif /* OS2 */
""};
+#ifdef OS2
+static char *hmxymsk[] = {
+"SET MSKERMIT FILE-RENAMING { ON, OFF }",
+" ON enables the use of MS-DOS Kermit file renaming conventions instead of",
+" C-Kermit conventions. File renaming occurs during file transfers when",
+" there is a file name collision and either BACKUP or RENAME collision",
+" options are active. C-Kermit conventions preserve the original file name",
+" while appending .~num~ to the end. MS-DOS Kermit conventions restrict",
+" filenames to 8.3 notation and preserve the extension. Unique numeric",
+" values overwrite the right most portion of the file name's left hand side.",
+" ",
+"SET MSKERMIT KEYCODES { ON, OFF }",
+" ON enables the use of MS-DOS Kermit compatible keycodes to provide script",
+" portability.",
+""};
+#endif /* OS2 */
+
static char *hmxycd[] = {
"Syntax: SET CD { HOME <path>, PATH <path>, MESSAGE { ON, OFF, FILE <list> } }"
,
return(hmsga(hsetiks));
#endif /* NOIKSD */
+case XY_REN:
+ return(hmsg("SET RENAME LIST { ON, OFF }\n\
+ Tells whether the RENAME command should list its results by default.\n\n\
+SET RENAME COLLISION { FAIL, PROCEED, OVERWRITE }\n\
+ Establishes the default action when renaming a file would destroy an\n\
+ existing file. See HELP RENAME."));
+
case XYATTR:
return(hmsga(hsetat));
return(hmsg("SET PRIORITY { REGULAR, FOREGROUND-SERVER, TIME-CRITICAL }\n\
Specifies at which priority level the communication and screen update\n\
threads should operate. The default value is FOREGROUND-SERVER."));
+
+case XYMSK:
+ return(hmsga(hmxymsk));
#endif /* OS2 */
#ifdef DYNAMIC
case XYSESS:
#ifdef UNIX
return(hmsg(
-"Syntax: SET SESSION-LOG { BINARY, DEBUG, TEXT, TIMESTAMPED-TEXT }\n\
+"Syntax:\n\
+ SET SESSION-LOG { BINARY, DEBUG, NULL-PADDED, TEXT, TIMESTAMPED-TEXT }\n\
If BINARY, record all CONNECT characters in session log. If TEXT, strip\n\
out CR, NUL, and XON/XOFF characters. DEBUG is the same as BINARY but\n\
also includes Telnet negotiations on TCP/IP connections."));
case XYMATCH:
return(hmsga(hmxymatch));
+#ifndef NOSEXP
+ case XYSEXP:
+ return(hmsga(hmxysexp));
+#endif /* NOSEXP */
+
+#ifndef NOSPL
+ case XYVAREV:
+ return(hmsg("Syntax: SET VARIABLE-EVALUATION { RECURSIVE, SIMPLE }\n\
+ Tells Kermit weather to evaluate \\%x and \\&x[] variables recursively\n\
+ (which is the default for historical reasons) or by simple string\n\
+ replacement, which lets you use these variables safely to store strings\n\
+ (such as Windows pathnames) that might contain backslashes."));
+#endif /* NOSPL */
+
default:
printf("Not available - \"%s\"\n",cmdbuf);
return(0);
}
#ifndef NOSPL
+static char * hfsplit[] = {
+"Function \\fsplit(s1,&a,s2,s3,n2,n3) - Assigns string words to an array.",
+" s1 = source string.",
+" &a = array designator.",
+" s2 = optional break set.",
+" s3 = optional include set (or ALL, CSV, or TSV).",
+" n2 = optional grouping mask.",
+" n3 = optional separator flag:",
+" 0 = collapse adjacent separators;",
+" 1 = don't collapse adjacent separators.",
+" ",
+" \\fsplit() breaks the string s1 into \"words\" as indicated by the other",
+" parameters, assigning them to given array, if any. If the specified",
+" already exists, it is recycled; if no array is specified, the count is",
+" returned but no array is created. All arguments are optional",
+" (\\fsplit() with no arguments returns 0).",
+" ",
+" The BREAK SET is the set of all characters that separate words. The",
+" default break set is all characters except ASCII letters and digits.",
+" ASCII (C0) control characters are treated as break characters by default,",
+" as are spacing and punctuation characters, brackets, and so on, and",
+" all 8-bit characters.",
+" ",
+" The INCLUDE SET is the set of characters that are to be treated as ",
+" parts of words even though they normally would be separators. The",
+" default include set is empty. Three special symbolic include sets are",
+" also allowed:",
+" ",
+" ALL (meaning include all bytes that are not in the break set)",
+" CSV (special treatment for Comma-Separated-Value records)",
+" TSV (special treatment for Tab-Separated-Value records)",
+" ",
+" For operating on 8-bit character sets, the include set should be ALL.",
+" ",
+" If the grouping mask is given and is nonzero, words can be grouped by",
+" quotes or brackets selected by the sum of the following:",
+" ",
+" 1 = doublequotes: \"a b c\"",
+" 2 = braces: {a b c}",
+" 4 = apostrophes: 'a b c'",
+" 8 = parentheses: (a b c)",
+" 16 = square brackets: [a b c]",
+" 32 = angle brackets: <a b c>",
+" ",
+" Nesting is possible with {}()[]<> but not with quotes or apostrophes.",
+" ",
+"Returns integer:",
+" Number of words in source string.",
+" ",
+"Also see:",
+" HELP FUNCTION WORD",
+""
+};
+
/* D O H F U N C -- Give help for a function */
int
switch (xx) {
case FN_IND: /* Index (of string 1 in string 2) */
case FN_RIX: /* Rindex (index from right) */
- printf("\\f%sindex(s1,s2,n1)\n\
+ printf("\\f%sindex(s1,s2,n1,n2)\n\
s1 = string to look for.\n\
s2 = string to look in.\n\
- n1 = optional 1-based starting position, default = 1.\n",
+ n1 = optional 1-based starting position, default = 1.\n\
+ n2 = optional desired occurrence number, default = 1.\n",
xx == FN_RIX ? "r" : ""
);
printf("Returns integer:\n\
xx == FN_IND ? "left" : "right"
);
break;
+ case FN_COUNT: /* Count occurrences of s1 in s2 */
+ printf("\\fcount(s1,s2,n1)\n\
+ s1 = string or character to look for.\n\
+ s2 = string to look in.\n\
+ n1 = optional 1-based starting position, default = 1.\n");
+ printf("Returns integer:\n\
+ Number of occurrences of s1 in s2, 0 or more.\n");
+ break;
+
case FN_SEARCH: /* Search for pattern */
case FN_RSEARCH: /* Search for pattern from right */
- printf("\\f%ssearch(s1,s2,n1)\n\
+ printf("\\f%ssearch(s1,s2,n1,n2)\n\
s1 = pattern to look for.\n\
s2 = string to look in.\n\
- n1 = optional 1-based offset, default = 1.\n",
+ n1 = optional 1-based offset, default = 1.\n\
+ n2 = optional desired occurrence of match, default = 1.\n",
xx == FN_RSEARCH ? "r" : ""
);
printf("Returns integer:\n\
break;
case FN_STL: /* Strip from left */
- printf("\\flop(s1,c1)\n\
+ printf("\\flop(s1[,c1[,n1]])\n\
s1 = string to look in.\n\
- c1 = character to look for, default = \".\".\n");
+ c1 = character to look for, default = \".\".\n\
+ n1 = occurrence of c1, default = 1.\n");
printf("Returns string:\n\
- The part of s1 after the leftmost occurrence of character c1.\n"
+ The part of s1 after the n1th leftmost occurrence of character c1.\n"
+ );
+ break;
+
+ case FN_LOPX: /* Strip from right */
+ printf("\\flopx(s1,c1)\n\
+ s1 = string to look in.\n\
+ c1 = character to look for, default = \".\".\n\
+ n1 = occurrence of c1, default = 1.\n");
+ printf("Returns string:\n\
+ The part of s1 after the n1th rightmost occurrence of character c1.\n"
);
break;
#endif /* NORANDOM */
case FN_SPLIT: /* Split */
+#ifdef COMMENT
printf("\\fsplit(s1,&a,s2,s3,n2,n3) - \
Assign string words to an array.\n\
s1 = source string\n &a = array designator\n s2 = optional break set.\n");
if array not specified, the count is returned but no array is created.\n");
printf("Returns integer:\n\
Number of words in source string.\n");
+#else
+ hmsga(hfsplit);
+#endif /* COMMENT */
break;
case FN_DTIM: /* CVTDATE */
printf(" If n1 is given:\n\
n1 = 1: yyyy-mmm-dd hh:mm:ss (mmm = English 3-letter month abbreviation)\n\
n1 = 2: dd-mmm-yyyy hh:mm:ss (ditto)\n\
- n1 = 3: yyyymmddhhmmss (all numeric)\n");
+ n1 = 3: yyyymmddhhmmss (all numeric)\n\
+ n1 = 4: Day Mon dd hh:mm:ss yyyy (asctime)\n\
+ Other: yyyymmdd hh:mm:dd");
break;
case FN_JDATE: /* DOY */
Returns decimal equivalent.\n");
break;
+ case FN_TOB64:
+ printf("\\b64encode(s)\n\
+ s = string containing no NUL bytes\n\
+ Returns Base-64 encoding of string.\n");
+ break;
+
+ case FN_FMB64:
+ printf("\\b64decode(s)\n\
+ s = string in Base-64 notation\n\
+ Returns the decoded string or an error code if s not valid.\n");
+ break;
+
case FN_RADIX:
printf("\\fradix(s,n1,n2)\n\
s = number in radix n1\n\
printf("\
Returns the (selected) elements of the array joined to together,\n\
separated by the separator.\n");
+ printf("\n\
+ If s is CSV (literally), that means the array is to be transformed into a\n\
+ comma-separated list. No other arguments are needed. If s is TSV, then\n\
+ a tab-separated list is created.\n");
break;
case FN_SUBST:
s2 = List of characters to be translated.\n\
s3 = List of characters to translate them to.\n");
printf(
-" Returns: s1, with each character that is in s2 translated to the\n\
+" Returns: s1, with each character that is in s2 replaced by the\n\
corresponding character in s3. s2 and s3 can contain ASCII ranges,\n\
like [a-z]. Any characters in s2 that don't have corresponding\n\
- characters in s3 (after range expansion) are removed from the result.\n");
+ characters in s3 (after range expansion) are removed from the result.\n\
+ This function works only with single-byte character-sets\n");
break;
#ifndef NOSEXP
#endif /* FN_ERRMSG */
case FN_KWVAL:
- printf("\\fkeywordvalue(s1,c1)\n\
+ printf("\\fkeywordvalue(s1[,s2])\n\
s1 = string of the form \"name=value\"\n\
- c1 = separator character (default separator is \"=\")\n");
- printf(" Assigns the value, if any, to the named macro.\n");
- printf(" If s1 contains no separator, nothing happens.\n");
- printf(
-" If s1 contains a separator but no value, the macro is undefined.\n");
+ s2 = one more separator characters (default separator is \"=\")\n");
+ printf(" Assigns the value, if any, to the named macro and sets\n");
+ printf(" the \\v(lastkeywordvalue) to the macro name.\n");
+ printf(" If no value is given, the macro is undefined.\n");
printf("Returns:\n");
- printf(" 0 on failure\n");
- printf(" 1 on success\n");
+ printf(" -1 on error\n");
+ printf(" 0 if no keyword or value were found\n");
+ printf(" 1 if a keyword was found but no value\n");
+ printf(" 2 if a keyword and a value were found\n");
+ printf("Synonym: \\kwvalue(s1[,s2])\n");
break;
#ifdef COMMENT
break;
#endif /* NT */
+ case FN_EMAIL:
+ printf("\\femailaddress(s)\n\
+ s = From: or Sender: header from an RFC2822-format email message\n");
+ printf(" Extracts and returns the email address.\n");
+ break;
+
+ case FN_PICTURE:
+ printf("\\fpictureinfo(s[,&a])\n\
+ s = File specification of a JPG or GIF picture file.\n\
+ &a = Optional array name.\n\n");
+ printf("Returns integer:\n\
+ 0 if file not found or not recognized;\n\
+ 1 if orientation is landscape;\n\
+ 2 if orientation is portrait.\n\n");
+ printf(" If an array name is included, element 1 is filled \
+in with the image width\n\
+ in pixels, and element 2 the image height.\n");
+ break;
+
+ case FN_PID:
+ printf("\\fgetpidinfo(n1)\n\
+ n1 = Numeric process ID\n");
+ printf("Returns integer:\n\
+ -1 on failure to get information;\n\
+ 1 if n1 is the ID of an active process;\n\
+ 0 if the process does not exist.\n");
+ break;
+
+ case FN_FUNC:
+ printf("\\ffunction(s1)\n\
+ s1 = name of function.\n");
+ printf("Returns integer:\n\
+ 1 if s1 is the name of an available built-in function;\n\
+ 0 otherwise.\n");
+ break;
+
+ case FN_RECURSE:
+ printf("\\frecurse(s1)\n\
+ s1 = name of \\&x or \\&x[] type variable\n");
+ printf("Returns the result of evaluating the variable recursively.\n");
+ break;
+
+ case FN_SQUEEZE:
+ printf("\\fsqueeze(s)\n\
+ s = string\n\
+ Returns string with leading and trailing whitespace removed, Tabs\n\
+ converted to Spaces, and multiple spaces converted to single spaces.\n");
+ break;
+
+#ifndef NOCSETS
+ case FN_XLATE:
+ printf("\\fcvtcset(s,cset1,cset2)\n\
+ s = string\n\
+ Returns string converted from character set cset1 to cset2, where cset1\n\
+ and cset2 are names of File Character-Sets \
+('set file char ?' for a list).\n");
+ break;
+#endif /* NOCSETS */
+
+ case FN_UNPCT:
+ printf("\\fdecodehex(s1[,s2])\n\
+ s1, s2 = strings\n\
+ Decodes a string s1 that contains prefixed hex bytes. s2 is the prefix;\n\
+ the default is %%%%. You can specify any other prefix one or two bytes\n\
+ long. If the prefix contains letters (such as 0x), case is ingored.\n\
+ Returns string s1 with hex escapes replaced by the bytes they \
+represent.\n");
+ break;
+
+ case FN_STRINGT:
+ printf("\\fstringtype(s)\n\
+ s = string\n\
+ Returns a string representing the type of its string argument s1:\n\
+ 7BIT, 8BIT, UTF8, TEXT, or BINARY. TEXT means some kind of text\n\
+ other than 7BIT, 8BIT, or UTF8 (this probably will never appear).\n");
+ break;
+
+ case FN_STRCMP:
+ printf("\\fstrcmp(s1,s2[,case[,start[,length]]])\n\
+ s1, s2 = strings\n\
+ case, start, length = numbers or arithmetic expressions.\n\
+ case = 0 [default] means to do a case-independent comparison;\n\
+ nonzero case requests a case-sensitive comparison.\n\
+ The optional start and length arguments apply to both s1 and s2\n\
+ and allow specification of substrings if it is not desired to compare\n\
+ the whole strings. Results for non-ASCII strings are implentation-\n\
+ and locale-dependent.\n\
+ Returns a number:\n\
+ -1: s1 is lexically less than s2;\n\
+ 0: s1 and s2 are lexically equal;\n\
+ 2: s1 is lexically greater than s2.\n");
+ break;
+
default:
printf("Sorry, help not available for \"%s\"\n",cmdbuf);
}
Logs out from a remote Kermit server to which you have previously logged in."
));
+case XZMSG:
+ return(hmsg("Syntax: REMOTE MESSAGE text\n\
+ Sends a short text message to the remote Kermit server."));
+
case XZPRI:
return(hmsg("Syntax: REMOTE PRINT filespec [ options ]\n\
Sends the specified file(s) to the remote Kermit and ask it to have the\n\
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern int cm_retry;
#endif /* CK_RECALL */
+#ifdef NEWFTP
+extern int ftpisopen();
+#endif /* NEWFTP */
+
extern int cmdint;
extern int srvidl;
#endif /* NOFRILLS */
#endif /* NOPUSH */
+#ifndef NOFRILLS
+#ifndef NORENAME
+_PROTOTYP(int setrename, (void));
+#endif /* NORENAME */
+#endif /* NOFRILLS */
+
/* Variables */
int cmd_quoting = 1;
+int cmd_err = 1;
extern int hints, xcmdsrc;
#ifdef CK_KERBEROS
mdmtyp, network, quiet, nettype, carrier, debses, debtim, cdtimo, nlangs,
bgset, pflag, msgflg, cmdmsk, xsuspend, techo, pacing, xitwarn, xitsta,
outesc, cmd_cols, cmd_rows, ckxech, xaskmore, haveline, didsetlin, isguest,
- mdmsav, clearrq, saveask;
+ mdmsav, clearrq, saveask, debmsg;
extern int reliable, setreliable, matchdot, matchfifo, dir_dots;
extern CHAR myrptq; /* Repeat-count prefix */
extern int protocol, size, spsiz, spmax, urpsiz, srvtim, srvcdmsg, slostart,
- srvdis, xfermode, ckdelay, keep, maxtry, unkcs, bctr, ebqflg, swcapr,
+ srvdis, xfermode, ckdelay, keep, maxtry, unkcs, bctr, bctf, ebqflg, swcapr,
wslotr, lscapr, lscapu, spsizr, rptena, rptmin, docrc, xfrcan, xfrchr,
xfrnum, xfrbel, xfrint, srvping, g_xfermode, xfrxla;
#ifndef NOLOCAL
extern int sessft; /* Session-log file type */
extern int slogts; /* Session-log timestamps on/off */
+extern int slognul; /* Lines null-terminated */
#endif /* NOLOCAL */
char * tempdir = NULL;
"1", 1, 0, /* 1 = 6-bit checksum */
"2", 2, 0, /* 2 = 12-bit checksum */
"3", 3, 0, /* 3 = 16-bit CRC */
- "4", 4, CM_INV, /* Same as B */
- "blank-free-2", 4, 0 /* B = 12-bit checksum, no blanks */
+ "4", 4, 0, /* Same as B */
+ "5", 5, 0, /* Same as F */
+ "blank-free-2", 4, CM_INV, /* B = 12-bit checksum, no blanks */
+ "force-3", 5, CM_INV /* F = Force CRC on ALL packets */
};
+static int nchkt = (sizeof(chktab) / sizeof(struct keytab));
struct keytab rpttab[] = { /* SET REPEAT */
"counts", 0, 0, /* On or Off */
"on", SET_ON, 0 /* 1 */
};
+struct keytab ooetab[] = { /* On/Off/Stderr table 2010/03/12 */
+ "off", SET_OFF, 0, /* for SET DEBUG MESSAGES */
+ "on", SET_ON, 0,
+ "s", 2, CM_ABR|CM_INV,
+ "st", 2, CM_ABR|CM_INV,
+ "std", 2, CM_ABR|CM_INV,
+ "stderr", 2, 0,
+ "stdout", SET_ON, CM_INV
+};
+static int nooetab = (sizeof(ooetab) / sizeof(struct keytab));
+
struct keytab ooktab[] = { /* On/Off/Ask table */
"ask", 2, 0, /* 2 */
"off", SET_OFF, 0, /* 0 */
#define DEB_SES 2
#define DEB_TIM 3
#define DEB_LEN 4
+#define DEB_MSG 5
struct keytab dbgtab[] = {
"linelength", DEB_LEN, CM_INV,
+ "m", DEB_MSG, CM_ABR|CM_INV,
+ "message", DEB_MSG, 0,
+ "msg", DEB_MSG, CM_INV,
"off", DEB_OFF, 0,
"on", DEB_ON, 0,
"session", DEB_SES, 0,
"ascii", XYFT_T, CM_INV,
"binary", XYFT_B, 0,
"debug", XYFT_D, 0,
+ "null-padded-lines", 998, 0,
"text", XYFT_T, 0,
"timestamped-text", 999, 0
};
#ifndef NOPUSH
extern int nopush;
+extern int wildena;
#ifdef UNIX
struct keytab wildtab[] = { /* SET WILDCARD-EXPANSION */
- "kermit", 0, 0,
- "shell", 1, 0
+#ifdef UNIX
+ "kermit", WILD_KER, 0, /* By Kermit */
+#endif /* UNIX */
+ "off", WILD_OFF, 0, /* Disabled */
+ "on", WILD_ON, 0, /* Enabled */
+#ifdef UNIX
+ "shell", WILD_SHE, 0, /* By Shell */
+#endif /* UNIX */
+ "", 0, 0
};
+int nwild = (sizeof(wildtab) / sizeof(struct keytab)) - 1;
+
struct keytab wdottab[] = { /* cont'd */
"/match-dot-files", 1, 0,
"/no-match-dot-files", 0, 0
"brief", 0, 0,
#ifdef OS2ORUNIX
"ftp", 2, 0,
+#else
+#ifdef VMS
+ "ftp", 2, 0,
+#endif /* def VMS */
#endif /* OS2ORUNIX */
"verbose", 1, 0
};
#define SCMD_DBQ 13 /* DOUBLEQUOTING */
#define SCMD_CBR 14 /* CBREAK */
#define SCMD_BFL 15 /* BUFFER-SIZE (not used) */
+#define SCMD_ERR 16 /* ERROR */
+#define SCMD_VAR 17 /* VARIABLE-EVALUATION */
static struct keytab scmdtab[] = {
#ifdef CK_AUTODL
#ifdef DOUBLEQUOTING
"doublequoting", SCMD_DBQ, 0,
#endif /* DOUBLEQUOTING */
+ "error-display", SCMD_ERR, 0,
"height", SCMD_HIG, 0,
"interruption", SCMD_INT, 0,
"more-prompting", SCMD_MOR, 0,
"statusline", SCMD_STA, 0,
#endif /* ONETERMUPD */
#endif /* OS2 */
+ "variable-evaluation", SCMD_VAR,0,
"width", SCMD_WID, 0
};
static int nbytt = (sizeof(scmdtab) / sizeof(struct keytab));
"xyzmodem", 0, 0,
#else
"xyzmodem", 1, 0,
-#endif /* NOXMIT */
+#endif /* CK_XYZ */
"", 0, 0
};
struct keytab sexptab[] = {
"depth-limit", 1, 0,
- "echo-result", 0, 0
+ "echo-result", 0, 0,
+ "truncate-all-results", 2
};
static int sexpmaxdep = 1000; /* Maximum depth */
"not", SX_NOT, SXF_ONE, /* NOT */
"mod", SX_MOD, SXF_TWO, /* Modulus */
- "<", SX_ALT, SXF_PRE|SXF_TWO, /* Comparisons */
- ">", SX_AGT, SXF_PRE|SXF_TWO,
- "<=", SX_ALE, SXF_PRE|SXF_TWO,
- "=", SX_AEQ, SXF_PRE|SXF_TWO,
- ">=", SX_AGE, SXF_PRE|SXF_TWO,
- "!=", SX_NEQ, SXF_PRE|SXF_TWO,
+ "<", SX_ALT, SXF_PRE, /* Comparisons */
+ ">", SX_AGT, SXF_PRE,
+ "<=", SX_ALE, SXF_PRE,
+ "=", SX_AEQ, SXF_PRE,
+ ">=", SX_AGE, SXF_PRE,
+ "!=", SX_NEQ, SXF_PRE,
"++", SX_INC, SXF_ONE|SXF_TWO, /* Increment */
"--", SX_DEC, SXF_ONE|SXF_TWO, /* Decrement */
"**", SX_POW, SXF_TWO, /* Common synonyms */
- "==", SX_AEQ, SXF_PRE|SXF_TWO,
+ "==", SX_AEQ, SXF_PRE,
"!", SX_NOT, SXF_ONE,
".", SX_EVA, 0,
"eval", SX_EVA, 0, /* Assorted commands */
"abs", SX_ABS, SXF_ONE,
"truncate",SX_TRU, SXF_ONE|SXF_FLO,
- "round", SX_ROU, SXF_ONE|SXF_FLO,
+ "round", SX_ROU, SXF_ONE|SXF_TWO|SXF_FLO,
"ceiling", SX_CEI, SXF_ONE|SXF_FLO,
"floor", SX_FLR, SXF_ONE|SXF_FLO,
"float", SX_FLO, SXF_ONE|SXF_FLO,
int sexprc = 0; /* S-Expression error flag */
int sexppv = -1; /* Predicate value */
+static int sexptrunc = 0; /* Flag to force all results to int */
#define SXMLEN 64 /* Macro arg list initial length */
#include <math.h> /* Floating-point functions */
_PROTOTYP( char * fpformat, (CKFLOAT, int, int) );
+_PROTOTYP( CKFLOAT ckround, (CKFLOAT, int, char *, int) );
extern char math_pi[]; /* Value of Pi */
extern int sexpecho; /* SET SEXPRESSION ECHO value */
printf(" maximum depth reached: %d\n",sexpdmax);
printf(" longest result returned: %d\n",sexprmax);
printf("\n");
+ printf(" truncate all results: %s\n",showoff(sexptrunc));
+ printf("\n");
printf(" last sexpression: %s\n",lastsexp ? lastsexp : "(none)");
printf(" last value: %s\n",sexpval ? sexpval : "(none)");
printf("\n");
/* Returns value as string (empty, numeric, or non-numeric) */
+static char sxroundbuf[32]; /* For ROUND result */
+
char *
dosexp(s) char *s; { /* s = S-Expression */
extern struct mtab *mactab; /* Macro table */
int linepos = 0;
int quote = 0; /* LISP quote flag */
char * s2; /* Workers */
- int i, j, k, n = 0, x = 0, kw, kwflags, mx = 0;
- int result = 0, not = 0, truncate = 0, builtin = 0;
+ int kw, kwflags, mx = 0, x = 0;
+ int not = 0, truncate = 0, builtin = 0;
int fpflag = 0, quit = 0, macro = 0;
+ CK_OFF_T result = 0, i, j, k, n = 0;
CKFLOAT fpj, fpresult = 0.0; /* Floating-point results */
int pflag = 0; /* Have predicate */
int presult = 0; /* Predicate result */
sexppv = -1; /* Predicate value */
s2 = ""; /* Default return value */
+ debug(F111,sexpdebug("entry 1"),s,sexprc);
+
if (++sexpdep > sexpmaxdep) { /* Keep track of depth */
printf("?S-Expression depth limit exceeded: %d\n",sexpmaxdep);
sexprc++;
if (sexprc) /* Error, quit all levels */
goto xdosexp; /* Always goto common exit point */
- debug(F111,sexpdebug("entry"),s,sexprc);
+ debug(F111,sexpdebug("entry 2"),s,sexprc);
if (!s) s = ""; /* Null or empty arg */
while (*s == SP) s++; /* Strip leading spaces */
if (!*s) /* so empty result */
goto xdosexp;
-
/*
Allocate result stack upon first use, or after it has been resized with
SET SEXP DEPTH-LIMIT.
}
/* Break result up into "words" (an SEXP counts as a word) */
- p[0] = NULL; /* (We don't use element 0) */
+ for (i = 0; i < SEXPMAX+1; i++ ) { /* Clear the operands */
+ p[i] = NULL;
+ }
if (!*(s+1) || !*(s+2)) { /* No need to call cksplit() */
n = 1; /* if it's one or two chars. */
p[1] = s; /* No need to malloc this either. */
debug(F110,sexpdebug("head"),p[1],0);
if (n == 1 && p[1]) {
- if (*(p[1]) == '\047') {
+ if (*(p[1]) == '\047') { /* Apostrophe = LISP quote character */
s2 = p[1];
goto xdosexp;
}
}
if (!x) { /* None of the above, look it up */
x = xlookup(sexpops,p[1],nsexpops,&kw);
- debug(F111,"XXX",p[1],x);
if (x > 0) {
kwflags = sexpops[kw].flgs;
builtin = 1;
}
if (n == 1) { /* Not an expression */
if (builtin) { /* Built-in operand? */
- switch (x) { /* Operators with default values */
+ switch (x) { /* Operators with default values */
case SX_EVA:
s2 = "";
goto xdosexp;
}
break;
case SXF_ONE:
- if (n != 2) {
+ if (n != 2) {
printf("?Too %s operands - \"%s\"\n",
(n > 2) ? "many" : "few", s);
sexprc++;
}
}
if (kwflags & SXF_PRE) { /* Predicate? */
+ if (n < 2) {
+ printf("?Too few operands - \"%s\"\n",s);
+ sexprc++;
+ goto xdosexp;
+ }
pflag = 1;
presult = 1;
}
if (kwflags & SXF_FLO) /* Operator requires floating point */
fpflag++; /* Force it */
+
+ if (x == SX_ROU) { /* ROUND can have 1 or 2 arguments */
+ if (n < 2 || n > 3) {
+ printf("?Too %s operands - \"%s\"\n",
+ (n > 3) ? "many" : "few", s);
+ sexprc++;
+ goto xdosexp;
+ }
+ }
+ if (x == SX_ROU) {
+ /* But they are not "cumulative" like other SEXP args */
+ /* So this case is handled specially */
+ char buf1[32], buf2[32];
+ float r;
+ char * s0, * s1;
+ char * q0, * q1;
+
+ s0 = p[2];
+ if (!s0) s0 = "";
+ if (!*s0) s0 = "0";
+ q0 = dosexp(s0);
+ ckstrncpy(buf1,q0,32);
+ q0 = buf1;
+
+ s1 = p[3];
+ if (!s1) s1 = "";
+ if (!*s1) s1 = "0";
+ q1 = dosexp(s1);
+ if (!q1) q1 = "";
+ if (!*q1) q1 = "0";
+ ckstrncpy(buf2,q1,32);
+ q1 = buf2;
+
+ r = ckround(atof(q0),(int)(atof(q1)),sxroundbuf,31);
+ s2 = sxroundbuf;
+ sexprc = 0;
+ goto xdosexp;
+ }
}
if (x == SX_SET || x == SX_LET || /* Assignment is special */
x == SX_INC || x == SX_DEC) {
goto xdosexp;
}
while (*s2 == '+') s2++;
- result = atoi(s2);
+ result = ckatofs(s2);
fpresult = floatval;
if (k > 1 || fpresult != result)
fpflag++;
goto xdosexp;
}
while (*s2 == '+') s2++;
- j = atoi(s2);
+ j = ckatofs(s2);
if (k > 1) {
fpj = floatval;
fpflag++;
result -= j;
fpresult -= fpj;
}
+#ifdef FNFLOAT
if (result != fpresult) fpflag++;
- s2 = fpflag ? fpformat(fpresult,0,0) : ckitoa(result);
+#endif /* FNFLOAT */
+ s2 = (fpflag && !sexptrunc) ?
+ fpformat(fpresult,0,0) : ckfstoa(result);
}
if (x == SX_LET && cmdlvl > 0) /* LET makes var local */
addlocal(p[i+1]);
sexprc++;
goto xdosexp;
}
- if (s2) result = atoi(s2);
+ if (s2) result = ckatofs(s2);
}
goto xdosexp;
} else if (x == SX_IFC) { /* Conditional expression */
s2 = dosexp(p[2]);
if (sexprc) goto xdosexp;
if (s2) {
- j = atoi(s2);
+ j = ckatofs(s2);
if (xxfloat(s2,0) == 2) {
fpflag++;
fpresult = (CKFLOAT)result;
} else {
s2 = dosexp(true ? p[3] : p[4]);
if (sexprc) goto xdosexp;
- j = s2 ? atoi(s2) : 0;
+ j = s2 ? ckatofs(s2) : 0;
if (xxfloat(s2,0) == 2) {
fpflag++;
fpresult = (CKFLOAT)result;
quote = 0;
s2 = p[i+1]; /* Get operand */
if (!s2) s2 = "";
+
#ifdef COMMENT
if (*s2 == '\047') { /* Is it quoted? */
debug(F110,sexpdebug("'B"),s2,0);
j = 0;
fpj = 0.0;
} else {
- j = atoi(s2);
+ j = ckatofs(s2);
/* Switch to floating-point upon encountering any f.p. arg */
/* OR... if integer is too big */
if (!fpflag) if (xxfloat(s2,0) == 2)
if (i == 1) { /* Initial result is first operand */
result = (n == 2 && x == SX_SUB) ? 0-j : j;
fpresult = (n == 2 && x == SX_SUB) ? -fpj : fpj;
- if (!(kwflags & SXF_ONE)) /* Command with single arg */
+ if ((x == SX_AND && result == 0) || /* Short circuit */
+ (x == SX_LOR && result != 0))
+ quit++;
+ if (!(kwflags & SXF_ONE)) /* Command w/single arg */
continue;
}
if (x == SX_MOD || x == SX_DIV) {
goto xdosexp;
}
}
- switch (x) { /* Accumulate result */
+ switch (x) { /* Accumulate result */
case SX_EVA: /* EVAL */
result = j;
case SX_ADD: /* + */
result += j;
fpresult += fpj;
+#ifdef FNFLOAT
if (result != fpresult)
fpflag++;
+#endif /* FNFLOAT */
break;
case SX_SUB: /* - */
result -= j;
fpresult -= fpj;
+#ifdef FNFLOAT
if (result != fpresult)
fpflag++;
+#endif /* FNFLOAT */
break;
case SX_MUL: /* * */
result *= j;
fpresult *= fpj;
+#ifdef FNFLOAT
if (result != fpresult)
fpflag++;
+#endif /* FNFLOAT */
break;
case SX_AND: /* AND */
break;
case SX_DIV: /* / */
- result /= j;
- fpresult /= fpj;
- if (result != fpresult)
- fpflag++;
+ if (j) {
+ result /= j;
+ fpresult /= fpj;
+#ifdef FNFLOAT
+ if (result != fpresult)
+ fpflag++;
+#endif /* FNFLOAT */
+ } else {
+ fpresult /= fpj;
+ result = fpj;
+#ifdef FNFLOAT
+ fpflag++;
+#endif /* FNFLOAT */
+ }
break;
case SX_AEQ: /* Test for equality */
if (j == 0) {
result = 1;
} else {
- int z, sign = 0;
+ CK_OFF_T z, sign = 0;
if (j < 0) {
if (result == 0) {
printf("?Divide by zero - \"%s\"\n",cmdbuf);
if (sign)
result = 1 / result;
}
+#ifdef FNFLOAT
if (result != fpresult)
fpflag++;
+#endif /* FNFLOAT */
break;
#ifdef FNFLOAT
truncate = 1;
break;
- case SX_ROU: /* Round */
- if (fpj > 0.0)
- fpj += 0.5;
- else if (fpj < 0.0)
- fpj -= 0.5;
- fpresult = fpj;
- fpflag = 1;
- truncate = 1;
- break;
-
case SX_ABS: /* Absolute value */
result = (j < 0) ? 0 - j : j;
+#ifdef FNFLOAT
fpresult = (fpj < 0.0) ? 0.0 - fpj : fpj;
if (result != fpresult)
fpflag++;
+#endif /* FNFLOAT */
break;
case SX_MAX: /* Max */
if (not) presult = presult ? 0 : 1;
sexppv = presult; /* So set predicate value (0 or 1) */
s2 = presult ? "1" : "0";
- } else if (fpflag) { /* Result is floating-point */
+ } else if (fpflag && !sexptrunc) { /* Result is floating-point */
if (not) fpresult = fpresult ? 0.0 : 1.0;
s2 = fpformat(fpresult,0,0);
} else if (x != SX_EVA) {
if (not) result = result ? 0 : 1;
- s2 = ckitoa(result);
+ s2 = ckfstoa(result);
}
/* Common exit point. Always come here to exit. */
if (autolocus) {
int x = locus;
#ifdef NEWFTP
- extern int ftpisconnected();
debug(F101,"dologend ftpisconnected","",ftpisconnected());
setlocus(ftpisconnected() ? 0 : 1, 1);
#else
cx_prev = t2;
p = hhmmss(t2);
debug(F110,"dologend hhmmss",p,0);
- strncat(cxlogbuf,"E=",CXLOGBUFL); /* Append to log record */
- strncat(cxlogbuf,p,CXLOGBUFL);
+ ckstrncat(cxlogbuf,"E=",CXLOGBUFL); /* Append to log record */
+ ckstrncat(cxlogbuf,p,CXLOGBUFL);
debug(F110,"dologend cxlogbuf 2",cxlogbuf,0);
} else
cx_prev = 0L;
switch (c) {
case 'T': printf(" Type: %s\n", s); break;
case 'N': printf(" To: %s\n", s); break;
+ case 'P': printf(" Port: %s\n", s); break;
case 'H': printf(" From: %s\n", s); break;
case 'D': printf(" Device: %s\n", s); break;
case 'O': printf(" Origin: %s\n", s); break;
VOID
dolognet() {
char * p, * s = "NET", * uu = uidbuf;
- int n, m;
+ char * port = "";
+ int n, m, tcp = 0;
+ char * h = NULL;
dologend(); /* Previous session not closed out? */
cx_prev = 0L;
p = ckdate();
n = ckstrncpy(cxlogbuf,p,CXLOGBUFL);
#ifdef TCPSOCKET
- if (nettype == NET_TCPB || nettype == NET_TCPA)
- s = "TCP";
+ if (nettype == NET_TCPB || nettype == NET_TCPA) {
+ tcp++;
+ s = "TCP";
+ } else if (nettype == NET_SSH) {
+ s = "SSH";
+ tcp++;
+ }
#endif /* TCPSOCKET */
#ifdef ANYX25
if (nettype == NET_SX25 || nettype == NET_VX25 || nettype == NET_IX25)
#endif /* STRATUS */
#endif /* UNIX */
}
+#ifdef TCPSOCKET
+ if (tcp) {
+ int k;
+ makestr(&h,myhost);
+ if ((k = ckindex(":",h,0,0,0)) > 0) {
+ h[k-1] = NUL;
+ port = &h[k];
+ } else {
+ int svcnum = gettcpport();
+ if (svcnum > 0)
+ port = ckitoa(svcnum);
+ else
+ port = "unk";
+ }
+ }
+#endif /* TCPSOCKET */
m = strlen(uu) + strlen(myhost) + strlen(ttname) + strlen(s) + 32;
if (n+m < CXLOGBUFL-1) { /* SAFE */
p = cxlogbuf+n;
- sprintf(p," %s %s T=%s N=%s H=%s ",
+ sprintf(p," %s %s T=%s N=%s H=%s P=%s ",
uu,
ckgetpid(),
s,
ttname,
- myhost
+ myhost,
+ port
);
} else
ckstrncpy(cxlogbuf,"LOGNET BUFFER OVERFLOW",CXLOGBUFL);
debug(F110,"dolognet cxlogbuf",cxlogbuf,0);
+ if (h) makestr(&h,NULL);
}
#endif /* NETCONN */
#endif /* CKLOGDIAL */
m = usermdm ? usermdm : mdmtyp;
p = modemp[m]; /* Point to modem info struct, and */
- debug(F101,"initmdm p","",p);
+ /* debug(F101,"initmdm p","",p); */
if (p) {
dialec = p->capas & CKD_EC; /* set DIAL ERROR-CORRECTION, */
dialdc = p->capas & CKD_DC; /* DIAL DATA-COMPRESSION, and */
#endif /* NOLOCAL */
#ifndef NOSPL
+/* Method for evaluating \%x and \&x[] variables */
+
+static struct keytab varevaltab[] = {
+ { "recursive", 1, 0 },
+ { "simple", 0, 0 }
+};
+static int nvarevaltab = (sizeof(varevaltab) / sizeof(struct keytab));
+
+int
+setvareval() {
+ int x = 0, y = 0;
+ extern int vareval;
+#ifdef DCMDBUF
+ extern int * xvarev;
+#else
+ extern int xvarev[];
+#endif /* DCMDBUF */
+
+ if ((x = cmkey(varevaltab,
+ nvarevaltab,
+ "Method for evaluating \\%x and \\&x[] variables",
+ "",
+ xxstring)) < 0)
+ return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ xvarev[cmdlvl] = x;
+ vareval = x;
+ return(success = 1);
+}
+
#ifdef CK_ANSIC /* SET ALARM */
int
setalarm(long xx)
};
int nprotos = (sizeof(protos) / sizeof(struct keytab));
+#ifndef XYZ_INTERNAL
+#ifndef NOPUSH
+#define EXP_HANDLER 1
+#define EXP_STDERR 2
+#define EXP_TIMO 3
+
+static struct keytab extprotab[] = {
+ { "handler", EXP_HANDLER, 0 },
+ { "redirect-stderr", EXP_STDERR, 0 },
+ { "timeout", EXP_TIMO, 0 }
+};
+static int nxtprotab = (sizeof(extprotab) / sizeof(struct keytab));
+#endif /* NOPUSH */
+#endif /* XYZ_INTERNAL */
+
#define XPCMDLEN 71
_PROTOTYP(static int protofield, (char *, char *, char *));
return(success = 1);
}
+#ifndef NOPUSH
+#ifndef XYZ_INTERNAL
+
+#define DEF_EXP_TIMO 12 /* Default timeout for external protocol (seconds) */
+
+int exp_handler = 0; /* These are exported */
+int exp_timo = DEF_EXP_TIMO;
+int exp_stderr = SET_AUTO;
+
+VOID
+shoextern() { /* Invoked by SHOW PROTOCOL */
+ printf("\n External-protocol handler: %s\n",
+ exp_handler ? (exp_handler == 1 ? "pty" : "system") : "automatic");
+#ifdef COMMENT
+ printf(" External-protocol redirect-stderr: %s\n", showooa(exp_stderr));
+#endif /* COMMENT */
+ printf(" External-protocol timeout: %d (sec)\n", exp_timo);
+}
+
+static struct keytab setexternhandler[] = {
+ { "automatic", 0, 0 },
+ { "pty", 1, 0 },
+ { "system", 2, 0 }
+};
+
+int
+setextern() { /* SET EXTERNAL-PROTOCOL */
+ int x, y;
+ if ((x = cmkey(extprotab,nxtprotab,"","",xxstring)) < 0)
+ return(x);
+ switch (x) {
+ case EXP_HANDLER:
+ if ((x = cmkey(setexternhandler,3,"","automatic",xxstring)) < 0)
+ return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ exp_handler = x;
+ break;
+
+#ifdef COMMENT
+ case EXP_STDERR:
+ if ((x = cmkey(ooatab,3,"","automatic",xxstring)) < 0)
+ return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ exp_stderr = x;
+ break;
+#endif /* COMMENT */
+
+ case EXP_TIMO:
+ y = cmnum("Inactivity timeout, seconds,",ckitoa(DEF_EXP_TIMO),
+ 10,&x,xxstring);
+ return(setnum(&exp_timo,x,y,-1));
+ }
+ return(success = 1);
+}
+#endif /* XYZ_INTERNAL */
+#endif /* NOPUSH */
+
int
setdest() {
int x, y;
#ifdef PRINTSWI
int c, i, n, wild, confirmed = 0; /* Workers */
int getval = 0; /* Whether to get switch value */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[PRN_MAX+1];
+ struct stringint pv[PRN_MAX+1]; /* Temporary array for switch values */
struct FDB sw, of, cm; /* FDBs for each parse function */
int haveque = 0;
int typeset = 0;
for (i = 0; i <= PRN_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = -1; /* and -1 int values */
+ pv[i].wval = (CK_OFF_T)-1; /* and -1 wide values */
}
if (xx == XYBDCP) { /* SET BPRINTER == /BIDIRECTIONAL */
pv[PRN_BID].ival = 1;
"auto-print/printscreen character-set",
"cp437",xxstring)) < 0)
goto xsetprn;
- pv[n].ival = x;
+ pv[n].ival = y;
break;
#endif /* OS2 */
case SSH2_UNH:
if ((x = cmifi("Filename","",&s,&z,xxstring)) < 0) {
if (x != -3)
- return(y);
+ return(x);
} else {
ckstrncpy(line,s,LINBUFSIZ);
if (zfnqfp(line,TMPBUFSIZ,tmpbuf))
#define GUI_DIA 4
#define GUI_TLB 5
#define GUI_MNB 6
+#define GUI_CLS 7
#define GUIW_POS 1
#define GUIW_RES 2
#define GUIWN_MAX 3
static struct keytab guitab[] = {
+ { "close", GUI_CLS, 0 },
{ "dialogs", GUI_DIA, 0 },
{ "font", GUI_FON, 0 },
{ "menubar", GUI_MNB, 0 },
KuiSetProperty(KUI_GUI_TOOLBAR, (long)x, 0L);
}
+VOID
+setguiclose(x) int x;
+{
+ KuiSetProperty(KUI_GUI_CLOSE, (long)x, 0L);
+}
+
int
setgui() {
int cx, x, rc;
if (rc >= 0)
setguimenubar(x);
return(rc);
+ case GUI_CLS:
+ rc = seton(&x);
+ if (rc >= 0)
+ setguiclose(x);
+ return(rc);
default:
return(-2);
}
/* Construct default name */
if (z == NET_PIPE) { /* Named pipe */
defnam = "kermit"; /* Default name is always "kermit" */
- } else { /* NetBIOS */
+ }
+#ifdef CK_NETBIOS
+ else { /* NetBIOS */
if (NetBiosName[0] != SP) { /* If there is already a name, */
char *p = NULL;
int n; /* use it as the default. */
else /* Otherwise use "kermit" */
defnam = "kermit";
}
- if ((y = cmtxt((z == NET_PIPE) ? "pipe name" :
+#endif /* CK_NETBIOS */
+ if ((y = cmtxt((z == NET_PIPE) ? "name of named-pipe" :
"local NETBIOS name",
defnam, &s, xxstring)) < 0)
return(y);
}
case XYCHKT: /* BLOCK-CHECK */
- if ((x = cmkey(chktab,4,"","3",xxstring)) < 0) return(x);
+ if ((x = cmkey(chktab,nchkt,"","3",xxstring)) < 0) return(x);
if ((y = cmcfm()) < 0) return(y);
+ if (x == 5) {
+ bctf = 1;
+#ifdef COMMENT
+ printf("?5 - Not implemented yet\n");
+ return(success = 0);
+#endif /* COMMENT */
+ }
bctr = x; /* Set local too even if REMOTE SET */
+
if (rmsflg) {
if (x == 4) {
tmpbuf[0] = 'B';
int i,len;
if ((y = cmtxt("Prompt string","",&s,xxstring)) < 0)
return(y);
- if (s == "") s = NULL;
- if (s) {
- s = brstrip(s);
- if (s == "") s = NULL;
- }
+ s = brstrip(s);
/* we must check to make sure there are no % fields */
len = strlen(s);
for (i = 0; i < len; i++) {
}
#endif /* DOUBLEQUOTING */
+ case SCMD_ERR:
+ y = cmnum("Error message verbosity level, 0-3","1",10,&x,xxstring);
+ return(setnum(&cmd_err,x,y,3));
+
+ case SCMD_VAR:
+ return(setvareval());
+
default:
return(-2);
}
setdebses(1);
#endif /* NOLOCAL */
return(success = 1);
+
+ case DEB_MSG: /* Debug messages 2010/03/12 */
+ if ((y = cmkey(ooetab,nooetab,"","on",xxstring)) < 0) return(y);
+ if ((x = cmcfm()) < 0) return(x);
+ debmsg = y;
+ return(1);
}
break;
if (x == 999) { /* TIMESTAMPED-TEXT */
sessft = XYFT_T; /* Implies text */
slogts = 1; /* and timestamps */
+ } else if (x == 998) { /* NULL-PADDED-LINES */
+ slognul = 1; /* adds NUL after ^J */
} else { /* A regular type */
sessft = x; /* The type */
slogts = 0; /* No timestampes */
lscapu = (y == 2) ? 2 : 0; /* FORCED: used = 1 */
return(success = 1);
-#ifdef CK_XYZ
+/* #ifdef CK_XYZ */
case XYX_PRO: /* Protocol */
#ifndef OS2
if (inserver) {
}
#endif /* OS2 */
return(setproto());
-#endif /* CK_XYZ */
+/* #endif */ /* CK_XYZ */
case XYX_MOD: /* Mode */
if ((y = cmkey(xfrmtab,2,"","automatic",xxstring)) < 0)
}
g_xfermode = y;
xfermode = y;
+#ifdef NEWFTP
+ if (ftpisopen()) { /* If an FTP connection is open */
+ extern int ftp_xfermode; /* change its transfer mode too */
+ ftp_xfermode = xfermode;
+ }
+#endif /* NEWFTP */
return(success = 1);
#ifndef NOLOCAL
#ifndef NOPUSH
#ifdef UNIX
case XYWILD: /* WILDCARD-EXPANSION */
- if ((y = cmkey(wildtab,2,
- "Who expands wildcards","kermit",xxstring)) < 0)
+ if ((y = cmkey(wildtab,nwild,
+ "Wildcard expansion option","on",xxstring)) < 0)
return(y);
if ((z = cmkey(wdottab,
2,
return(success = 0);
}
}
- wildxpand = y;
+ switch (y) {
+ case WILD_ON:
+ wildena = 1;
+ break;
+ case WILD_OFF:
+ wildena = 0;
+ break;
+ case WILD_KER:
+ wildxpand = 0; /* These are the previous */
+ break; /* hardwired values */
+ case WILD_SHE:
+ wildxpand = 1;
+ break;
+ }
matchdot = z;
return(success = 1);
#endif /* UNIX */
krb4_autodel = z;
break;
case XYKRBPRM: /* Prompt */
- if (s == "") s = NULL;
- if (s) {
- s = brstrip(s);
- if (s == "") s = NULL;
- }
+ s = brstrip(s);
switch (z) {
case KRB_PW_PRM: { /* Password */
/* Check that there are no more than */
return(y);
switch (x) { /* Copy value to right place */
case XYSRPPRM: /* Prompt */
- if (s == "") s = NULL;
- if (s) {
- s = brstrip(s);
- if (s == "") s = NULL;
- }
+ s = brstrip(s);
switch (z) {
case SRP_PW_PRM: { /* Password */
/* Check %s fields */
#ifndef NOSPL
#ifndef NOSEXP
case XYSEXP: {
- if ((x = cmkey(sexptab,2,"","", xxstring)) < 0)
+ if ((x = cmkey(sexptab,3,"","", xxstring)) < 0)
return(x);
switch (x) {
case 0:
}
break;
}
+ case 2:
+ return(seton(&sexptrunc));
}
return(success = 1);
}
return(setgui());
#endif /* KUI */
+#ifndef NOFRILLS
+#ifndef NORENAME
+ case XY_REN: /* SET RENAME */
+ return(setrename());
+#endif /* NORENAME */
+#endif /* NOFRILLS */
+
+#ifndef NOPUSH
+#ifdef CK_REDIR
+#ifndef NOXFER
+ case XYEXTRN: /* SET EXTERNAL-PROTOCOL */
+ return(setextern());
+#endif /* NOXFER */
+#endif /* CK_REDIR */
+#endif /* NOPUSH */
+
+#ifndef NOSPL
+ case XYVAREV: /* SET VARIABLE-EVALUATION */
+ return(setvareval());
+#endif /* NOSPL */
+
default:
if ((x = cmcfm()) < 0) return(x);
printf("Not implemented - %s\n",cmdbuf);
&& local
#endif /* K95G */
)) {
+ if ( !needwarn )
+ ckstrncpy(warning, "No active connections", 256);
+
#ifdef COMMENT
printf("%s",warning);
z = getyesno(x ? "OK to close? " : "OK to exit? ",0);
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
extern int tn_b_meu, tn_b_ume, tn_auth_krb5_des_bug;
#endif /* TNCODE */
+static char * lastkwval = NULL;
+
char * xferfile = NULL;
int xferlog = 0;
#endif /* MAC */
#endif /* AMIGA */
+#ifdef SV68 /* July 2006 believe it or not */
+#ifndef SEEK_CUR
+#include <unistd.h>
+#endif /* SEEK_CUR */
+#endif /* SV68 */
+
+#ifdef SCO32 /* June 2011 believe it or not... */
+#ifdef XENIX
+#ifndef SEEK_CUR
+#include <unistd.h>
+#endif /* SEEK_CUR */
+#endif /* XENIX */
+#endif /* SCO32 */
+
#ifdef STRATUS /* Stratus Computer, Inc. VOS */
#ifdef putchar
#undef putchar
extern char * floname[];
#ifndef NOSPL
+extern int vareval; /* Variable evaluation method */
extern int fndiags; /* Function diagnostics on/off */
extern int divbyzero;
-int ispattern = 0;
+int itsapattern = 0;
+int isinbuflen = 0;
int isjoin = 0;
#ifdef CK_APC
extern int apcactive; /* Nonzero = APC command was rec'd */
extern int tfline[];
-/* These need to be internationalized... */
-
-static
char *wkdays[] = {
"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
};
#endif /* RECURSIVE */
#ifdef VMS
- extern int frecl;
+extern int frecl;
#endif /* VMS */
-extern long
- ffc, filcnt, rptn, speed, tfc, tlci, tlco, ccu, ccp, vernum, xvernum;
+extern CK_OFF_T ffc, tfc, tlci, tlco;
+extern long filcnt, rptn, speed, ccu, ccp, vernum, xvernum;
#ifndef NOSPL
extern char fspec[], myhost[];
#ifndef NOCSETS
/* Translation stuff */
+extern int nfilc;
+extern struct keytab fcstab[];
extern int fcharset, tcharset, tslevel, language, nlng, tcsr, tcsl;
extern int dcset7, dcset8;
extern struct keytab lngtab[];
{ "authname", VN_AUTHN, 0}, /* 196 */
{ "authstate", VN_AUTHS, 0}, /* 195 */
{ "authtype", VN_AUTHT, 0}, /* 195 */
+ { "bits", VN_BITS, 0}, /* 212 */
{ "blockcheck",VN_BLK, 0}, /* 195 */
#ifdef BROWSER
{ "browser", VN_BROWSR,0}, /* 193 */
#endif /* NT */
#ifndef NODIAL
{ "dialcount", VN_DRTR, 0}, /* 195 */
+ { "dialmessage",VN_DMSG, 0}, /* 212 */
{ "dialnumber",VN_DNUM, 0}, /* 192 */
{ "dialresult",VN_MDMSG, 0}, /* 192 */
{ "dialstatus",VN_DIAL, 0}, /* 190 */
{ "incount", VN_ICNT, 0},
{ "inidir", VN_INI, 0}, /* 192 */
{ "inmatch", VN_MATCH, 0}, /* 196 */
+ { "inmessage", VN_INPMSG,0}, /* 212 */
{ "inscale", VN_ISCALE,0}, /* 210 */
{ "instatus", VN_ISTAT, 0}, /* 192 */
{ "intime", VN_INTIME,0}, /* 193 */
{ "krb5realm", VN_K5RLM, 0},
{ "krb5service", VN_K5SRV, 0},
#endif /* CK_KERBEROS */
- { "line", VN_LINE, 0},
- { "local", VN_LCL, 0},
+ { "lastcommand", VN_PREVCMD, 0}, /* 299 */
+#ifndef NOLASTFILE
+ { "lastfilespec", VN_LASTFIL, 0}, /* 212 */
+#endif /* NOLASTFILE */
+ { "lastkeywordvalue", VN_LASTKWV, 0}, /* 212 */
+ { "lastkwvalue", VN_LASTKWV, CM_ABR|CM_INV}, /* 212 */
+ { "line", VN_LINE, 0},
+ { "local", VN_LCL, 0},
#ifdef UNIX
- { "lockdir", VN_LCKDIR,0}, /* 195 */
- { "lockpid", VN_LCKPID,0}, /* 195 */
+ { "lockdir", VN_LCKDIR,0}, /* 195 */
+ { "lockpid", VN_LCKPID,0}, /* 195 */
#endif /* UNIX */
{ "log_connection", VN_LOG_CON, 0}, /* 206 */
{ "log_debug", VN_LOG_DEB, 0}, /* 206 */
{ "p_rpt", VN_P_RPT, 0}, /* 193 */
{ "query", VN_QUE, 0}, /* 190 */
#endif /* NOXFER */
+ { "remoteip", VN_HOSTIP,0}, /* 212 */
{ "return", VN_RET, 0},
#ifdef CK_REXX
{ "rexx", VN_REXX, 0}, /* 190 */
{ "url", VN_URL, CM_INV}, /* 193 */
#endif /* BROWSER */
{ "userid", VN_UID, 0}, /* 192 */
+ { "vareval", VN_VAREVAL, 0}, /* 212 */
{ "version", VN_VERS, 0},
#ifndef NOXFER
{ "window", VN_WINDO, 0}, /* 192 */
{ "command", FN_CMD, 0}, /* Output from a command */
#endif /* NOPUSH */
{ "contents", FN_CON, 0}, /* Definition (contents) of variable */
+ { "count", FN_COUNT, 0}, /* Occurrences of string in string */
{ "crc16", FN_CRC, 0}, /* CRC-16 */
#ifdef OS2
{ "crypt", FN_CRY, CM_INV},
#endif /* OS2 */
+ { "cvtcset", FN_XLATE, 0}, /* Convert character set */
{ "cvtdate", FN_DTIM, 0}, /* Convert free date/time to std */
#ifdef ZFCDAT
{ "date", FN_FD, 0}, /* File modification/creation date */
#endif /* ZFCDAT */
{ "day", FN_DAY, 0}, /* Day of week */
{ "dayofyear", FN_JDATE,0}, /* Date to Day of Year */
+ { "decodehex", FN_UNPCT, 0}, /* Decode string with hex escapes */
{ "definition", FN_DEF, 0}, /* Return definition of given macro */
{ "delta2secs", FN_DELSEC, 0}, /* Delta time to seconds */
{ "deltatosecs", FN_DELSEC, CM_INV}, /* Delta time to seconds */
#endif /* NODIAL */
{ "diffdates", FN_DIFDATE,0}, /* Difference of two date-times */
{ "dimension", FN_DIM, 0}, /* Dimension of array */
+ { "dir", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
+ { "dire", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
+ { "direc", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
+ { "direct", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
+ { "directo", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
+ { "director", FN_DIR, CM_INV|CM_ABR}, /* Abbreviation for direct.. */
{ "directories",FN_DIR, 0}, /* List of directories */
+ { "directory", FN_DIR, CM_INV}, /* List of directories */
{ "dirname", FN_DNAM, 0}, /* Directory part of filename */
{ "dos2unixpath",FN_PC_DU, }, /* DOS to UNIX path */
{ "dostounixpath",FN_PC_DU, CM_INV}, /* DOS to UNIX path */
{ "doy", FN_JDATE,CM_INV}, /* Date to Day of Year */
{ "doy2date", FN_DATEJ,0}, /* Day of Year to date */
{ "doytodate", FN_DATEJ,CM_INV}, /* Day of Year to date */
+ { "emailaddress",FN_EMAIL, 0}, /* Email address */
#ifdef FN_ERRMSG
{ "errstring", FN_ERRMSG,0}, /* Error code to message */
#endif /* FN_ERRMSG */
{ "fpsubtract", FN_FPSUB, 0}, /* FP subtract */
{ "fptangent", FN_FPTAN, 0}, /* FP tangent */
#endif /* FNFLOAT */
+ { "function", FN_FUNC, 0 }, /* Test for existence of a function */
+ { "getpidinfo", FN_PID, 0 }, /* Get PID info */
{ "hex2ip", FN_HEX2IP,0}, /* Hex to IP address */
{ "hextoip", FN_HEX2IP,CM_INV}, /* Hex to IP address */
{ "hex2n", FN_HEX2N, CM_INV}, /* Hex to decimal number */
{ "krbtickets", FN_KRB_TK, 0},
{ "krbtimeleft", FN_KRB_TT, 0},
#endif /* CK_KERBEROS */
+ { "kwvalue", FN_KWVAL, CM_INV}, /* Keyword=Value */
{ "left", FN_LEF, 0}, /* Leftmost n characters of string */
{ "length", FN_LEN, 0}, /* Return length of argument */
{ "literal", FN_LIT, 0}, /* Return argument literally */
{ "longpathname",FN_FFN,CM_INV},
#endif /* NT */
{ "lop", FN_STL, 0}, /* Lop */
+ { "lopx", FN_LOPX, 0}, /* Lopx */
{ "lower", FN_LOW, 0}, /* Return lowercased argument */
{ "lpad", FN_LPA, 0}, /* Return left-padded argument */
{ "ltrim", FN_LTR, 0}, /* Left-Trim */
#else
{ "permissions",FN_PERM, CM_INV}, /* Permissions of file */
#endif /* CK_PERMS */
- { "radix", FN_RADIX,0}, /* Radix conversion */
+#ifdef SEEK_CUR
+ { "pictureinfo",FN_PICTURE, 0 }, /* Picture orientation/dimensions */
+#endif /* SEEK_CUR */
+ { "radix", FN_RADIX, 0 }, /* Radix conversion */
#ifndef NORANDOM
{ "random", FN_RAND, 0}, /* Random number */
#endif /* NORANDOM */
#endif /* NOPUSH */
#ifdef RECURSIVE
{ "rdirectories", FN_RDIR, 0}, /* Recursive directory list */
+#endif /* RECURSIVE */
+ { "recurse", FN_RECURSE, 0}, /* Recursive variable evaluation */
+#ifdef RECURSIVE
{ "rfiles", FN_RFIL, 0}, /* Recursive file list */
#endif /* RECURSIVE */
{ "rep", FN_REP, CM_INV|CM_ABR},
#endif /* COMMENT */
{ "span", FN_SPN, 0}, /* Span - like Snobol */
{ "split", FN_SPLIT,0}, /* Split string into words */
+ { "squeeze", FN_SQUEEZE,0}, /* Squeeze whitespace in string */
+ { "strcmp", FN_STRCMP,0}, /* String comparison */
+ { "stringtype", FN_STRINGT,0}, /* String type (7-bit, 8-bit, UTF-8) */
{ "stripb", FN_STB, 0}, /* Strip enclosing braces/brackets */
{ "stripn", FN_STN, 0}, /* Strip n chars */
{ "stripx", FN_STX, 0}, /* Strip suffix */
ckstrncpy(kermrc,KERMRC,KERMRCL); /* Default init file name */
#endif /* NOICP */
+#ifdef OS2
+ yp = getenv("K95STARTFLAGS");
+ if (yp) {
+ startflags = atoi(yp);
+ }
+#endif /* OS2 */
#ifdef IKSD
if (howcalled == I_AM_IKSD) /* Internet Kermit Service daemon */
case 'Y':
noinit++;
break;
+
+ case 'q':
+ quiet = 1;
+ break;
+
case 'h':
noinit = 1;
#ifdef OS2
case 'Y':
noinit++;
break;
+
+ case 'q':
+ quiet = 1;
+ break;
+
case 'h':
noinit = 1;
#ifdef OS2
noinit = 1;
break;
#endif /* NOICP */
+
+ case 'q':
+ quiet = 1;
+ break;
+
case 'd': /* = SET DEBUG ON */
#ifdef DEBUG
if (debcount++ > 0)
int xlate: nonzero = charset translation for text-mode xfer, 0 = skip.
int binary: nonzero = transmit in binary mode, 0 = in text mode.
*/
-#define XBBUFSIZ 252 /* For binary blasting */
+#define XBBUFSIZ 508 /* For binary blasting */
static CHAR xbbuf[XBBUFSIZ+4];
int
} else {
line[i++] = dopar((char)c);
#ifdef TNCODE
- if (c == IAC && is_tn)
- line[i++] = IAC;
+ if (c == (CHAR)IAC && is_tn)
+ line[i++] = (CHAR)IAC;
#endif /* TNCODE */
}
}
#ifdef UNIX
extern char ** mtchs; /* zxpand() file list */
#endif /* UNIX */
- extern int nfilc;
- extern struct keytab fcstab[];
int x, y, incs, outcs, multiple = 0, wild = 0, fc = 0, len = 0;
int ofisdir = 0;
char * s, * tocs = "";
xx.lblopts = 0;
pktlog = zopeno(ZPFILE,s,NULL,&xx);
} else pktlog = zopeno(ZPFILE,s,NULL,NULL);
- if (!pktlog)
+ if (!pktlog && !quiet)
printf("?%s - %s\n",s,ck_errstr());
#ifdef OS2ORUNIX
}
tralog = zopeno(ZTFILE,s,NULL,&xx);
} else tralog = zopeno(ZTFILE,s,NULL,NULL);
}
- if (!tralog)
+ if (!tralog && !quiet)
printf("?%s - %s\n",s,ck_errstr());
if (tralog > 0 && tlogfmt > 0) {
ckstrncpy(trafil,s,CKMAXPATH);
setseslog(zopeno(ZSFILE,s,NULL,&xx));
} else
setseslog(zopeno(ZSFILE,s,NULL,NULL));
- if (!seslog)
+ if (!seslog && !quiet)
printf("?%s - %s\n",s,ck_errstr());
#ifdef OS2ORUNIX
}
deblog = zopeno(ZDFILE,s,NULL,&xx);
} else
deblog = zopeno(ZDFILE,s,NULL,NULL);
- if (!deblog)
+ if (!deblog && !quiet)
printf("?%s - %s\n",s,ck_errstr());
#ifdef OS2ORUNIX
}
#endif /* NOUUCP */
printf("\n");
} else {
- char * s, * ttglckdir();
+ char * s;
s = ttglckdir();
if (!s) s = "";
printf(" Lockfile directory: %s\n", *s ? s : "(none)");
shofil() {
char *s; int i = 0, n = 1;
extern char * ifdnam[];
+ extern int wildena;
#ifdef UNIX
extern int wildxpand;
#endif /* UNIX */
printf(" Match dot files: %s\n", matchdot ? "yes" : "no");
n++;
#ifdef UNIX
- printf(" Wildcard-expansion: %s\n", wildxpand ? "shell" : "kermit");
+ printf(" Wildcard-expansion: %s (%s)\n", showoff(wildena),
+ wildxpand ? "shell" : "kermit");
n++;
#endif /* UNIX */
#endif /* UNIXOROSK */
printf(" Autoreceive command (text): %s\n", *s ? s : "(none)");
}
#else
+#ifndef NOPUSH
if (protocol != PROTO_K) {
+ _PROTOTYP( VOID shoextern, (void) );
printf("\nExecuted by external commands:\n\n");
s = ptab[protocol].p_b_scmd;
if (!s) s = "";
s = ptab[protocol].h_t_init;
if (!s) s = "";
printf(" Autoreceive command (text): %s\n", *s ? s : "(none)");
+ (VOID) shoextern();
}
+#endif /* NOPUSH */
#endif /* XYZ_INTERNAL */
#endif /* CK_XYZ */
}
printf(" files transferred : %ld\n",filcnt - filrej);
if (!ftp)
printf(" files not transferred : %ld\n",filrej);
- printf(" characters last file : %ld\n",ffc);
- printf(" total file characters : %ld\n",tfc);
+ printf(" characters last file : %s\n",ckfstoa(ffc));
+ printf(" total file characters : %s\n",ckfstoa(tfc));
n += ftp ? 3 : 4;
if (!ftp) {
- printf(" communication line in : %ld\n",tlci);
- printf(" communication line out : %ld\n",tlco);
+ printf(" communication line in : %s\n",ckfstoa(tlci));
+ printf(" communication line out : %s\n",ckfstoa(tlco));
printf(" packets sent : %d\n", spackets);
printf(" packets received : %d\n", rpackets);
n += 4;
int instatus = -1;
long inetime = -1L;
int inwait = 0;
+int nowrap = 0;
/* For returning the input sequence that matched */
#endif /* BIGBUFOK */
static char * matchbuf = NULL;
static int matchindex = 0;
+static int burst = 0; /* Chars remaining in input burst */
/*
timo = How long to wait:
< 0 = Wait forever
- 0 = Don't wait
+ 0 = Don't wait at all - material must already have arrived
> 0 = Wait this many seconds
ms = Array of strings to wait for.
mp = Array of flags.
If mp[i] == 0, ms[i] is literal, else it's a pattern.
- flags = for now, 1 or 0. If 1, then don't match anything.
+ flags = bit mask
+ INPSW_NOM = /NOMATCH = 1
+ INPSW_CLR = /CLEAR = 2
+ INPSW_NOW = /NOWRAP = 4
+ INPSW_COU = /COUNT = 8
+ count = /COUNT: value if a /COUNT switch was given.
+
+ Returns:
+ 0 on failure, 1 on success.
*/
+#ifndef ES_NORMAL
+#define ES_NORMAL 0
+#endif /* ES_NORMAL */
+extern int inesc[], oldesc[];
+
int
-doinput(timo,ms,mp,flags) int timo; char *ms[]; int mp[]; int flags; {
+doinput(timo,ms,mp,flags,count)
+ int timo; char *ms[]; int mp[]; int flags; int count; {
extern int inintr;
#ifdef CK_AUTODL
extern int inautodl;
#endif /* CK_AUTODL */
- int x, y, i, t, rt, icn, anychar, mi[MINPMAX];
+ int x, y, i, t, rt, icn, anychar = 0, mi[MINPMAX];
#ifdef GFTIMER
CKFLOAT fpt = 0.0;
#endif /* GFTIMER */
+ int savecount = 0;
int nomatch = 0;
+ int clearfirst = 0;
int lastchar = 0;
int waiting = 0;
int imask = 0;
static int cr = 0;
#endif /* TNCODE */
int is_tn = 0;
- int wrapped = 0;
#ifdef SSHBUILTIN
extern int ssh_cas;
extern char * ssh_cmd;
#endif /* SSHBUILTIN */
+ int noescseq = 0; /* Filter escape sequences */
+
+ debug(F101,"input count","",count);
+ debug(F101,"input flags","",flags);
-#define CK_BURST
/*
- This enables the INPUT speedup code, which depends on ttchk() returning
+ CK_BURST enables the INPUT speedup code, which depends on ttchk() returning
accurate information. If INPUT fails with this code enabled, change the
above "#define" to "#undef".
*/
-#ifdef CK_BURST
- int burst = 0; /* Chars remaining in input burst */
-#endif /* CK_BURST */
+#define CK_BURST
+
+/***** CHANGE THIS TO A SET INPUT PARAMETER *****/
+
+ noescseq = (sessft == XYFT_T); /* Filter escape sequences */
imask = cmask;
if (parity) imask = 0x7f;
inwait = timo; /* For \v(inwait) */
- nomatch = flags & 1;
- makestr(&inpmatch,NULL);
+ /* Options from command switches */
+
+ nowrap = flags & INPSW_NOW; /* 4 = /NOWRAP */
+ nomatch = flags & INPSW_NOM; /* 1 = /NOMATCH */
+ clearfirst = flags & INPSW_CLR; /* 2 = /CLEAR */
+ savecount = count;
+
+ makestr(&inpmatch,NULL);
if (!matchbuf) {
matchbuf = malloc(MATCHBUFSIZ+1);
matchbuf[0] = NUL;
}
matchindex = 0;
+ /* If last time through we returned because of /NOWRAP and buffer full */
+ /* now we have to clear the buffer to make room for another load. */
+
+ if (nowrap && instatus == INP_BF)
+ clearfirst = 1;
+
+ if (clearfirst) { /* INPUT /CLEAR */
+ int i;
+ myflsh(); /* Flush screen and log buffers */
+ for (i = 0; i < inbufsize; i++)
+ inpbuf[i] = NUL;
+ inpbp = inpbuf;
+ }
is_tn =
#ifdef TNCODE
(local && network && IS_TELNET()) || (!local && sstelnet)
#endif /* TNCODE */
;
+#ifdef CK_SSL
+ if (is_tn) if (ssl_raw_flag || tls_raw_flag) is_tn = 0;
+#endif /* CK_SSL */
+
instatus = INP_IE; /* 3 = internal error */
kbchar = 0;
debug(F111,"doinput ms[0]",ms[0],waiting);
- if (!ms[0]) { /* If we were passed a NULL pointer */
- anychar = 1; /* ... */
- } else {
- y = (int)strlen(ms[0]); /* Or if search string is empty */
- anychar = (y < 1); /* any input character will do. */
+ if (!ms[0] || isemptystring(ms[0])) { /* No search string was given nor */
+ if (count < 2) /* a /COUNT: switch so we just */
+ anychar = 1; /* wait for the first character */
}
- if (flags & 1) anychar = 0; /* Don't match anything */
+ if (nomatch) anychar = 0; /* Don't match anything */
if (!anychar && waiting == 0 && timo == 0)
return(0);
-
#ifndef NODEBUG
if (deblog) {
char xbuf[24];
debug(F101,"doinput anychar","",anychar);
debug(F101,"doinput timo","",timo);
debug(F101,"doinput echo","",inecho);
+#ifdef CK_BURST
debug(F101,"doinput burst","",burst);
+#endif /* CK_BURST */
y = -1;
while (ms[++y]) {
sprintf(xbuf,"doinput string %2d",y); /* SAFE (24) */
x = 0; /* Return code, assume failure */
instatus = INP_TO; /* Status, assume timeout */
- for (y = 0; y < MINPMAX; y++)
- mi[y] = 0; /* String pattern match position */
+ for (y = 0; y < MINPMAX; y++) /* Initialize... */
+ mi[y] = 0; /* ..string pattern match position */
if (!inpcas[cmdlvl]) { /* INPUT CASE = IGNORE? */
y = -1;
-
- while ((xp = ms[++y])) {
- while (*xp) { /* Convert to lowercase */
+ while ((xp = ms[++y])) { /* Convert each target to lowercase */
+ while (*xp) {
if (isupper(*xp)) *xp = (char) tolower(*xp);
xp++;
}
continue;
#endif /* IKS_OPTION */
case 6: /* TELNET DO LOGOUT received */
- default: continue;
+ continue;
+ case 7:
+ case 3: /* A quoted IAC */
+ break;
+ default:
+ continue;
}
case CR:
cr = 1;
if (c == '\0') { /* NUL, we can't use it */
if (anychar) { /* Except if any character will do? */
x = 1; /* Yes, done. */
+ instatus = INP_OK;
incount = 1; /* This must be the first and only. */
break;
- } else goto refill; /* Otherwise continue INPUTting */
+ } else goto refill; /* Otherwise continue INPUTting */
}
*inpbp++ = c; /* Store char in circular buffer */
incount++; /* Count it for \v(incount) */
- /* Don't NUL-terminate here - it's a circular buffer. */
-
- if (inpbp >= inpbuf + inbufsize) { /* Time to wrap around? */
- wrapped++;
- *inpbp = NUL ; /* Make it null-terminated */
- inpbp = inpbuf; /* Yes. */
- }
+ if (flags & INPSW_COU) { /* INPUT /COUNT */
+ if (--count < 1) {
+ x = 1;
+ instatus = INP_OK;
+ incount = savecount;
+ break;
+ }
+ }
if (matchbuf) {
if (matchindex < MATCHBUFSIZ) {
matchbuf[matchindex++] = c;
#endif /* MAC */
#ifndef OS2
if (seslog) {
+ int dummy = 0, skip = 0;
+#ifndef NOLOCAL
+ if (noescseq) {
+ dummy = chkaes(c,0);
+ if (inesc[0] != ES_NORMAL || oldesc[0] != ES_NORMAL)
+ skip = 1;
+ }
+#endif /* NOLOCAL */
+#ifdef UNIXOROSK
+ if (sessft == XYFT_T) {
#ifdef UNIX
- if (sessft != 0 || c != '\r')
+ if (c == '\r')
#else
#ifdef OSK
- if (sessft != 0 || c != '\012')
+ if (c == '\012')
#endif /* OSK */
#endif /* UNIX */
+ skip = 1;
+ }
+#endif /* UNIXOROSK */
+ if (!skip)
sesbuf[sescnt++] = c; /* Buffer session log output */
}
#endif /* OS2 */
if (anychar) { /* Any character will do? */
x = 1;
+ instatus = INP_OK;
break;
}
if (!inpcas[cmdlvl]) { /* Ignore alphabetic case? */
for (j = 0; j < matchindex; j++) {
if (ckmatch(s,&matchbuf[j],1,1)) {
matchindex = j;
+ instatus = INP_OK;
x = 1;
break;
}
x = ckmatch(s,matchbuf,inpcas[cmdlvl],1+4);
if (x > 0) {
matchindex = x - 1;
+ instatus = INP_OK;
x = 1;
break;
}
if ((CHAR) s[i] == (CHAR) '\0') { /* Matched to end? */
ckstrncpy(matchbuf,ms[y],MATCHBUFSIZ);
matchindex = 0;
- x = 1; /* Yes, */
+ instatus = INP_OK; /* Yes, */
+ x = 1;
break; /* done. */
}
mi[y] = i; /* No, remember match-position */
}
if (x == 1) { /* Set \v(minput) result */
+ instatus = INP_OK;
m_found = y + 1;
break;
}
+ if (inpbp >= inpbuf + inbufsize) { /* Reached end of buffer? */
+ if (nowrap) { /* If /NOWRAP...*/
+ instatus = INP_BF; /* ...return indicating buffer full. */
+ *inpbp = NUL;
+ goto xinput;
+ }
+ *inpbp = NUL; /* Make it null-terminated */
+ inpbp = inpbuf; /* Yes. */
+ }
}
#ifdef CK_BURST
else if (y <= -1 && burst > 0) {
debug(F111,"doinput (y<=-1&&burst>0)","burst",burst);
- /* a timo occurred so there can't */
+ /* A timeout occurred so there can't */
burst = 0; /* be data waiting; must check timo */
}
refill:
} else {
debug(F111,"doinput (burst > 0)","burst",burst);
}
-#else
+#else /* CK_BURST */
+ refill:
myflsh(); /* Flush buffered output */
/* Did not match, timer exceeded? */
t = gtimer();
break;
#endif /* CK_BURST */
} /* Still have time left, continue. */
- if (nomatch) x = 1; /* Succeed if nomatch and timed out. */
- myflsh(); /* Flush buffered output. */
- if (x > 0 && !nomatch)
- instatus = 0;
+ xinput:
+ myflsh(); /* Flush buffered output */
+ if (instatus == INP_BF) { /* Buffer full and /NOWAIT */
+ x = 0; /* Must not succeed */
+ } else { /* Buffer full and /NOWAIT */
+ if (nomatch) x = 1; /* Succeed if nomatch and timed out */
+ if (x > 0 && !nomatch)
+ instatus = 0;
+ }
#ifndef NOLOCAL
#ifdef OS2
term_io = term_io_save;
inetime = (int)(gtimer() * 1000);
#endif /* GFTIMER */
- if (!nomatch)
+ if (x > 0)
makestr(&inpmatch,&matchbuf[matchindex]); /* \v(inmatch) */
return(x); /* Return the return code. */
}
}
}
-char *
-dokwval(s,sep) char * s, sep; {
+
+static int
+ckcindex(c,s) char c, *s; {
+ int rc;
+ if (!c || !s) return(0);
+ for (rc = 0; s[rc]; rc++) {
+ if (c == s[rc]) return(rc+1);
+ }
+ return(0);
+}
+
+static char *
+dokwval(s,sep) char * s, * sep; {
char c = '\0', * p, * kw = NULL, * vp = NULL;
- int x;
- if (!s) return("0");
- if (!*s) return("0");
+ char * rc = "0"; /* Return code */
+ int x = 0;
+ if (!s) return(rc);
+ if (!*s) return(rc);
debug(F110,"kwval arg",s,0);
- debug(F110,"kwval sep",ckctoa(sep),0);
+ debug(F110,"kwval sep",sep,0);
p = (char *)malloc((int)strlen(s)+1);
- if (!p) return("0");
+ if (!p) goto xdokwval;
strcpy(p,s); /* SAFE */
s = p;
while (*s < '!' && *s > '\0') /* Get first nonblank */
s++;
- if (!*s) return("0");
- if (*s == sep) return("0");
+ if (!*s) goto xdokwval;
+ if (ckcindex(*s,sep)) /* Separator but no keyword */
+ goto xdokwval;
kw = s; /* Keyword */
while (*s > ' ') {
- if (*s == sep) { /* keyword=... */
+ if (ckcindex(*s,sep)) { /* keyword=... */
c = *s;
break;
}
s++;
}
+ if (*kw) rc = "1"; /* Have keyword, promote return code */
*s++ = NUL; /* Terminate keyword */
while (*s < '!' && *s > '\0') /* Skip blanks */
s++;
- if (!c && *s == sep) {
+ if (!c && ckcindex(*s,sep)) {
c = *s++; /* Have separator */
while (*s < '!' && *s > '\0') /* Skip blanks */
s++;
}
if (c) {
vp = s;
+ if (*vp) rc = "2"; /* Have value, another promotion */
+#ifdef COMMENT
while (*s > ' ') /* Skip to end */
s++;
*s = NUL; /* Terminate value */
+#endif /* COMMENT */
}
debug(F110,"kwval c",ckctoa(c),0);
debug(F110,"kwval keyword",kw,0);
debug(F110,"kwval value",vp,0);
- x = c ? addmac(kw,vp) : -1;
- free(p);
- return((x < 0) ? "0" : "1");
+ makestr(&lastkwval,kw);
+ vp = brstrip(vp);
+ debug(F110,"kwval value",vp,0);
+ x = addmac(kw,vp);
+ debug(F111,"kwval addmac",kw,x);
+ xdokwval:
+ if (p) free(p);
+ return((x < 0) ? "-1" : rc);
}
static int
if (deblog) {
int j;
for (j = 0; j < argn; j++)
- debug(F111,"fneval arg",argp[j],j);
+ debug(F111,"fneval arg",argp[j],j);
}
#endif /* DEBUG */
for (j = argn-1; j >= 0; j--) { /* Uncount empty trailing args */
#endif /* COMMENT */
if (cx == FN_CON) { /* Contents of variable, unexpanded. */
char c;
+ int subscript = 0;
if (!(p = argp[0]) || !*p) {
failed = 1;
p = fnval;
sprintf(fnval,"<ERROR:ARG_BAD_ARRAY:\\fcontents()>");
goto fnend;
}
- if (chkarray(vbi,d) > 0) { /* Array is declared? */
+ subscript = chkarray(vbi,d); /* Check the array */
+ if (subscript >= 0) { /* Array is declared? */
vbi -= ARRAYBASE; /* Convert name to index */
if (a_dim[vbi] >= d) { /* If subscript in range */
char **ap;
ap = a_ptr[vbi]; /* get data pointer */
if (ap) { /* and if there is one */
- p = ap[d];
+ p = ap[d]; /* return it */
goto fnend;
}
}
- } else {
- failed = 1;
- p = fnval;
- if (fndiags)
- sprintf(fnval,"<ERROR:ARG_NOT_ARRAY:\\fcontents()>");
- goto fnend;
+ } else { /* Array not declared or element */
+ fnval[0] = NUL; /* out of range - return null string */
+ p = fnval; /* fdc 2010-12-30 */
+ goto fnend;
}
} else {
failed = 1;
p = fnval; /* Default result pointer */
fnval[0] = NUL; /* Default result = empty string */
-
for (i = 0; i < argn; i++) { /* Loop to expand each argument */
n = MAXARGLEN; /* Allow plenty of space */
bp[i] = s = malloc(n+1); /* Allocate space for this argument */
}
}
#endif /* DEBUG */
+ {
+ /* Adjust argn for empty trailing arguments. */
+ /* For example when an arg is a variable name but the */
+ /* variable has no value. July 2006. */
+ int j, old; char *p;
+ old = argn;
+ for (j = argn - 1; j >= 0; j--) {
+ p = bp[j];
+ if (!p)
+ argn--;
+ else if (!*p)
+ argn--;
+ else
+ break;
+ }
+#ifdef DEBUG
+ if (argn != old)
+ debug(F101,"fneval adjusted argn","",argn);
+#endif /* DEBUG */
+ }
+
/*
From this point on, bp[0..argn-1] are not NULL and all must be freed
before returning.
case FN_HSTNAM:
#endif /* TCPSOCKET */
case FN_DELSEC:
- case FN_KWVAL:
#ifdef COMMENT
+ case FN_KWVAL:
case FN_SLEEP:
case FN_MSLEEP:
#endif /* COMMENT */
char *p = bp[0]; /* Reuse this space */
*p = NUL; /* Make into dodo() arg list */
for (i = 1; i < argn; i++) {
- strncat(p,bp[i],MAXARGLEN);
- strncat(p," ",MAXARGLEN);
+ ckstrncat(p,bp[i],MAXARGLEN);
+ ckstrncat(p," ",MAXARGLEN);
}
s = bp[0]; /* Point to new list */
}
goto fnend;
}
if (cx == FN_DIR || cx == FN_RDIR) { /* Only list directories */
+ debug(F100,"FN_DIR or FN_RDIR","",0);
xflags |= ZX_DIRONLY;
#ifdef OS2
zxpn = 1; /* Use the alternate list */
#endif /* OS2 */
} else { /* List only files */
+ debug(F100,"Not FN_DIR or FN_RDIR","",0);
xflags |= ZX_FILONLY;
#ifdef OS2
zxpn = 1; /* Use the alternate list */
#else
if (flist) /* Others, use our own list. */
if (flist[flistn])
- p = flist[flistn++];
+ p = flist[flistn++];
#endif /* OS2 */
goto fnend;
} /* Break up big switch... */
switch (cx) {
- case FN_IND: /* \findex(s1,s2,start) */
- case FN_RIX: /* \frindex(s1,s2,start) */
- case FN_SEARCH: /* \fsearch(pat,string,start) */
- case FN_RSEARCH: { /* \frsearch(pat,string,start) */
- int i = 0, right = 0, search = 0;
+ case FN_IND: /* \findex(s1,s2,start,occurrence) */
+ case FN_RIX: /* \frindex(s1,s2,start,occurrence) */
+ case FN_SEARCH: /* \fsearch(pat,string,start,occ) */
+ case FN_RSEARCH: /* \frsearch(pat,string,start,occ) */
+ case FN_COUNT: { /* \fcount(s1,s2,start) */
+ int i = 0, right = 0, search = 0, count = 0;
+ int desired = 1;
right = (cx == FN_RIX || cx == FN_RSEARCH);
search = (cx == FN_SEARCH || cx == FN_RSEARCH);
+ count = (cx == FN_COUNT);
p = "0";
if (argn > 1) { /* Only works if we have 2 or 3 args */
int start = 0;
start = right ? -1 : 0; /* Default starting position */
if (argn > 2) {
val1 = *(bp[2]) ? evalx(bp[2]) : "1";
+ if (argn > 3) {
+ val2 = *(bp[3]) ? evalx(bp[3]) : "1";
+ if (chknum(val2)) desired = atoi(val2);
+ if (desired * len1 > len2) goto fnend;
+ }
if (chknum(val1)) {
int t;
t = atoi(val1);
goto fnend;
}
}
- if (search) { /* \fsearch() or \frsearch() */
+ if (count) { /* \fcount() */
+ int j;
+ for (i = 0; start < len2; i++) {
+ j = ckindex(pat,bp[1],start,0,inpcas[cmdlvl]);
+ if (j == 0) break;
+ start = j;
+ }
+
+ } else if (search) { /* \fsearch() or \frsearch() */
+
if (right && pat[0] == '^') {
right = 0;
start = 0;
}
- if (right) {
- if (start < 0) start = len2 - 1;
- for (i = start;
- i >= 0 && !ckmatch(pat,s+i,inpcas[cmdlvl],1+4);
- i--) ;
- if (i < 0) i = 0; else i++;
- } else {
- i = ckmatch(pat,&s[start],inpcas[cmdlvl],1+4);
- if (start > 0) i += start;
+ if (right) { /* From right */
+ int k, j = 1;
+ if (start < 0)
+ start = len2 - 1;
+ i = 0;
+ while (start >= 0 && j <= desired) {
+ for (i = start;
+ (i >= 0) &&
+ !(k = ckmatch(pat,s+i,inpcas[cmdlvl],1+4));
+ i--) ;
+ if (k < 1) { /* No match */
+ i = 0;
+ break;
+ }
+ if (j == desired) { /* The match we want? */
+ i += k; /* Yes, return string index */
+ break;
+ }
+ j++; /* No, count this match */
+ s[i] = NUL; /* null it out */
+ start = i-1; /* move left and look again */
+ }
+
+ } else { /* From left */
+ int j;
+ i = 0;
+ for (j = 1; j <= desired && start < len2; j++) {
+ i = ckmatch(pat,&s[start],inpcas[cmdlvl],1+4);
+ if (i == 0 || j == desired) break;
+ start += i + 1;
+ }
+ if (j == desired && i != 0)
+ i += start;
+ else
+ i = 0;
}
- } else {
- i = ckindex(pat,bp[1],start,right,inpcas[cmdlvl]);
+ } else { /* index or rindex */
+ int j = 0;
+ i = 0;
+ for (j = 1; j <= desired && start < len2; j++) {
+ i = ckindex(pat,bp[1],start,right,inpcas[cmdlvl]);
+ if (i == 0 || j == desired) break;
+ start = (right) ? len2 - i + 1 : i;
+ }
+ if (j != desired)
+ i = 0;
}
sprintf(fnval,"%d",i); /* SAFE */
p = fnval;
} /* Break up big switch... */
switch (y) {
- case FN_FS: /* \fsize(filename) */
- p = fnval;
- z = zchki(bp[0]);
- if (z < 0) {
- failed = 1;
- if (fndiags) {
- if (z == -1)
- ckmakmsg(fnval,FNVALL,
- "<ERROR:FILE_NOT_FOUND:\\f",fn,"()>",NULL);
- else if (z == -2)
- ckmakmsg(fnval,FNVALL,
- "<ERROR:FILE_NOT_READABLE:\\f",fn,"()>",NULL);
- else if (z == -3)
- ckmakmsg(fnval,FNVALL,
- "<ERROR:FILE_NOT_ACCESSIBLE:\\f",fn,"()>",NULL);
- else
- ckmakmsg(fnval,FNVALL,
- "<ERROR:FILE_ERROR:\\f",fn,"()>",NULL);
- }
- goto fnend;
- }
- sprintf(fnval,"%ld",z); /* SAFE */
- goto fnend;
-
+ case FN_FS: { /* \fsize(filename) */
+ CK_OFF_T z;
+ p = fnval;
+ z = zchki(bp[0]);
+ if (z < (CK_OFF_T)0) {
+ failed = 1;
+ if (fndiags) {
+ if (z == (CK_OFF_T)-1)
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:FILE_NOT_FOUND:\\f",fn,"()>",NULL);
+ else if (z == (CK_OFF_T)-2)
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:FILE_NOT_READABLE:\\f",fn,"()>",NULL);
+ else if (z == (CK_OFF_T)-3)
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:FILE_NOT_ACCESSIBLE:\\f",fn,"()>",NULL);
+ else
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:FILE_ERROR:\\f",fn,"()>",NULL);
+ }
+ goto fnend;
+ }
+ ckstrncpy(fnval,ckfstoa(z),FNVALL);
+ goto fnend;
+ }
case FN_VER: /* \fverify() */
p = "-1";
if (argn == 1) /* No second arg */
goto fnend;
case FN_STL: /* \flop(string,c) */
- if (!(s = bp[0])) /* Make sure there is a string */
- goto fnend;
- c = '.'; /* Character to strip to */
- if (argn > 1) if (*bp[1]) c = *bp[1];
- x = 0;
- while (*s++) {
- if (*(s-1) == c) {
- x = 1;
- break;
- }
- }
- if (!x) s = bp[0];
- ckstrncpy(fnval,s,FNVALL);
- p = fnval;
- goto fnend;
-
+ case FN_LOPX: { /* \flopx(string,c) */
+ int n = 1;
+ if (!(s = bp[0])) /* Make sure there is a string */
+ goto fnend;
+ c = '.'; /* Character to strip to */
+ if (argn > 1) if (*bp[1]) c = *bp[1];
+ if (argn > 2) if (*bp[2]) {
+#ifndef NOFLOAT
+ n = 0;
+ if (isfloat(bp[2],0)) {
+ n = (int)floatval;
+ if (n < 0) n = 0;
+ } else
+#endif /* NOFLOAT */
+ n = atoi(bp[2]);
+ }
+ x = 0;
+ if (cx == FN_LOPX) { /* Lopx (from right) */
+ if (n == 0)
+ goto fnend;
+ s += strlen(s) - 1; /* We already know it's > 0 */
+ while (s-- >= bp[0]) {
+ if (*s == c) {
+ n--;
+ if (n == 0) {
+ s++;
+ x = 1;
+ break;
+ }
+ }
+ }
+ if (!x) s = "";
+ } else { /* Lop (from left) */
+ if (n == 0) {
+ p = bp[0];
+ goto fnend;
+ }
+ while (*s++) {
+ if (*(s-1) == c) {
+ if (--n == 0) {
+ x = 1;
+ break;
+ }
+ }
+ }
+ if (!x) s = bp[0];
+ }
+ ckstrncpy(fnval,s,FNVALL);
+ p = fnval;
+ goto fnend;
+ }
case FN_STN: /* \fstripn(string,n) */
if (argn < 1) /* Remove n chars from right */
goto fnend;
}
}
}
- c = *bp[1];
+ c = !bp[1] ? 0 : *bp[1];
if (!c) c = s[0];
if (argn > 2) if (*bp[2]) c2 = *bp[2];
if (*s == c) {
struct stringarray * q = NULL;
splitting = (cx == FN_SPLIT); /* Our job */
+ debug(F101,"FN_SPLIT splitting","",splitting);
fnval[0] = splitting ? '0' : NUL; /* Initial return value */
fnval[1] = NUL;
if (s[1] >= 64 && s[1] < 91) /* Convert upper to lower */
s[1] += 32;
if (s[1] < 95 || s[1] > 122) { /* Check for a-z */
- goto fnend; /* Bad */
+ goto fnend; /* Bad */
}
- if ((max = chkarray(s[1],1)) < 1)
+ if ((max = chkarray(s[1],1)) < 1) /* (second arg was 1) */
max = 0;
failed = 0; /* Unset failure flag */
sprintf(fnval,"%d",max); /* SAFE */
p = ckdate(); /* None, get today's date */
else /* Some */
p = bp[0]; /* Use first */
+ {
+ char * s;
+ s = p;
+ while (*s) {
+ if (*s < 32) {
+ *s = NUL;
+ break;
+ }
+ s++;
+ }
+ /* do { if (*s < '!') *s = NUL; break; } while (*s++); */
+ }
p = ckcvtdate(p,2); /* Convert to standard form */
if (*p == '<') {
failed = 1;
p = fnval;
goto fnend;
}
- if (argn > 1) {
+ if (argn > 1) { /* Format code */
s = bp[1];
if (!s) s = "";
if (!*s) s = "0";
goto fnend;
}
x = atoi(s);
- if (x) p = shuffledate(p,x);
+ /* if (x) */ p = shuffledate(p,x);
}
if (cx == FN_TIME) {
p += 9;
if ((x = dclarray(s[1],k)) < 0) /* Declare array to size */
goto fnend;
ap = a_ptr[x]; /* Point to array we just declared */
- debug(F111,"aaconvert array 1",abuf,ap);
+ /* debug(F111,"aaconvert array 1",abuf,ap); */
abuf[0] = NUL;
if (argn > 2) {
ckstrncpy(abuf,bp[2],16); /* Get value array reference */
goto fnend;
vp = a_ptr[x]; /* Point to array we just declared */
}
- debug(F111,"aaconvert array 2",abuf,vp);
+ /* debug(F111,"aaconvert array 2",abuf,vp); */
makestr(&ap[0],ckitoa(k));
if (vp) makestr(&vp[0],ckitoa(k));
if (fndiags)
goto fnend;
}
if (argn < 1) { /* All file functions need channel */
- if (fndiags)
- ckmakmsg(fnval,FNVALL,"<ERROR:MISSING_ARG:\\f",fn,"()>",NULL);
+ if (cx == FN_FSTAT) { /* Except f_status(), e.g. when */
+ fnval[0] = '0'; /* called with a variable that */
+ fnval[1] = NUL; /* hasn't been defined yet. */
+ failed = 0;
+ } else {
+ if (fndiags)
+ ckmakmsg(fnval,FNVALL,"<ERROR:MISSING_ARG:\\f",fn,"()>",NULL);
+ }
goto fnend;
}
if (rdigits(bp[0])) { /* Channel must be numeric */
}
switch (y) { /* Do the requested function */
case FN_FPOS: /* Get position */
- z = z_getpos(channel);
+ z = z_getpos(channel); /* FIX THIS */
sprintf(fnval,"%ld",z); /* SAFE */
goto fnend;
case FN_NLINE: /* Get line number */
- z = z_getline(channel);
+ z = z_getline(channel); /* FIX THIS */
sprintf(fnval,"%ld",z); /* SAFE */
goto fnend;
}
#endif /* CKCHANNELIO */
- if (cx == FN_PATTERN) { /* \fpattern() */
- ispattern = 1;
+ if (cx == FN_SQUEEZE) { /* String function \fsqueeze() */
+ /* Squeeze out whitespace */
+ /* Add options later for whether to trim leading and trailing blanks */
+ /* and what to do about control characters, 8-bit whitespace, etc */
+ int started = 0; /* Flag for first non-whitespace */
+ int n = 0; /* Blank/Tab counter */
+ s = bp[0] ? bp[0] : "";
+ p = fnval; /* Result buffer */
+ while (*s) { /* While there is input */
+ if (!started && (*s == ' ' || *s == '\011')) {
+ s++; /* Skip past leading whitespace */
+ continue;
+ }
+ started++; /* Leading whitespace was skipped */
+ if (*s != ' ' && *s != '\011') { /* Have a nonspace char */
+ n = 0; /* reset space counter */
+ *p++ = *s++; /* copy char to destination */
+ continue;
+ }
+ if (n++ > 0) { /* Have blank or tab */
+ s++; /* don't copy more than one */
+ continue;
+ }
+ *p++ = ' '; /* Deposit one space */
+ s++; /* and go to next source char */
+ }
+ if (*(p-1) == ' ') p--; /* Remove trailing space */
+ *p = NUL; /* Terminate string */
+ p = fnval; /* point to beginning */
+ goto fnend; /* Done. */
+ }
+ if (cx == FN_PATTERN) { /* \fpattern() for INPUT */
+ itsapattern = 1;
if (argn > 0) {
p = fnval;
ckstrncpy(fnval,bp[0],FNVALL);
} else p = "";
goto fnend;
}
-
if (cx == FN_HEX2N || cx == FN_OCT2N) { /* \fhex2n(), \foct2n() */
p = "0";
if (argn < 1)
goto fnend;
}
if (cx == FN_JOIN) {
- int i, x, y, z, flag, hi, lo, max, seplen, grouping = 0;
+ int i, x, y, z, flag, flag2, hi, lo, max, seplen, grouping = 0;
char abuf[16], c, *s, *q, *sep = NULL;
char * gr_opn = "\"{'([<"; /* Group open brackets */
char * gr_cls = "\"}')]>"; /* Group close brackets */
char lb[2], rb[2]; /* Selected left and right brackets */
+ int csv = 0, tsv = 0; /* Function flags */
+ char specialchar = 0; /* Field char that triggers grouping */
+ char *s2 = NULL; /* Address of malloc'd storage */
failed = 1; /* Assume failure */
fnval[0] = NUL;
if (max < 1)
goto fnend;
sep = " "; /* Separator */
- if (argn > 1)
- if (bp[1])
- if (*bp[1])
- sep = bp[1];
- lb[0] = NUL;
+ lb[0] = NUL; /* Group start char (as string) */
rb[0] = NUL;
- lb[1] = NUL;
+ lb[1] = NUL; /* Group end char as string */
rb[1] = NUL;
- if (argn > 2) { /* Grouping? */
+
+ if (argn > 1) {
+ if (bp[1]) if (*bp[1]) { /* If arg1 given and not empty */
+ if (!strcmp(bp[1],"CSV")) { /* Special "CSV" symbolic arg */
+ csv++; /* Make a comma separated list */
+ sep = ","; /* Comma */
+ specialchar = *sep; /* Separator is special character */
+ grouping = 1; /* Group with doublequotes */
+ lb[0] = '"'; /* and here */
+ rb[0] = '"'; /* they are */
+ } else if (!strcmp(bp[1],"TSV")) { /* "TSV" symbolic arg */
+ tsv++; /* Make a Tab separated list */
+ sep = "\011"; /* Tab */
+ specialchar = *sep;
+ grouping = 0; /* No grouping */
+ } else /* Normal case */
+ sep = bp[1]; /* use the separator char specified */
+ }
+ }
+ if (argn > 2 && !csv && !tsv) { /* Grouping? */
char * bp2 = bp[2];
if (!bp2) bp2 = "0";
if (!*bp2) bp2 = "0";
}
}
}
- if (argn > 3) /* Nonzero 4th arg for no separator */
- if (chknum(bp[3]))
- if (atoi(bp[3]) > 0)
- sep = NULL;
- if (!sep) {
- sep = "";
- seplen = 0;
- } else
- seplen = strlen(sep);
+ if (!csv && !tsv) { /* Normal case, not CSV or TSV */
+ specialchar = SP; /* Special character is space */
+ if (argn > 3) /* Nonzero 4th arg for no separator */
+ if (chknum(bp[3]))
+ if (atoi(bp[3]) > 0)
+ sep = NULL;
+ if (!sep) {
+ sep = "";
+ seplen = 0;
+ } else
+ seplen = strlen(sep);
+ }
for (i = lo; i <= hi; i++) { /* Loop thru selected array elements */
s = a_ptr[x][i]; /* Get next element */
if (!s)
s = "";
- flag = 0; /* Buffer overrun flag */
+ flag = 0; /* Flag to indicate grouping needed */
+ flag2 = 0; /* Flag for internal doublequotes */
if (grouping) { /* Does this element need quoting? */
- q = s; /* Look for spaces */
- while ((c = *q++)) { if (c == SP) { flag++; break; } }
+ q = s; /* Look for special character */
+ while ((c = *q++)) { /* If found */
+ if (c == specialchar) /* grouping is required */
+ flag++;
+ if (csv && (c == '"')) /* Character that needs doubling */
+ flag2++; /* in comma-separated list */
+ if (flag && !csv) /* Exit early if no more to do */
+ break;
+ }
}
y = strlen(s); /* Get length of this element */
- if (cx == 0 && grouping) /* If empty it might need quoting */
- flag = 1;
- if (flag) { /* Add grouping if needed */
- char * s2 = NULL;
- y += 2;
- if ((q = (char *)malloc(y+1))) {
- ckmakmsg(q,y+1,(char *)lb,s,(char *)rb,NULL);
- makestr(&s2,q);
- free(q);
- s = s2;
- }
- }
+ if ((y > 0) && csv && !flag) { /* CSV item needs grouping */
+ if (s[0] == SP || s[y-1] == SP || /* if it has leading */
+ s[0] == HT || s[y-1] == HT) /* or trailing whitespace */
+ flag++; /* then it needs grouping */
+ }
+ if (flag || flag2) { /* String needs grouping or quoting */
+ char *ss = s;
+ q = (char *)malloc(y + flag2 + 3); /* Make new buffer */
+ if (q) {
+ s2 = q; /* and this is what to free */
+ if (flag) /* If grouping */
+ *q++ = lb[0]; /* put opening group quote */
+ while (*ss) { /* Loop through string */
+ if (flag2 && (*ss == '"')) /* If CSV and this a '"' */
+ *q++ = *ss; /* double it. */
+ *q++ = *ss++; /* Copy the character */
+ }
+ if (flag) /* If grouping */
+ *q++ = rb[0]; /* add closing group quote */
+ *q = NUL; /* terminate the result. */
+ s = s2;
+ y = strlen(s);
+ }
+ }
z = 0; /* Number of chars copied */
flag = 0; /* flag is now buffer-overrun flag */
if (y > 0) /* If this string is not empty */
z = ckstrncat(fnval,s,FNVALL); /* copy it. */
- if (z < y) /* Check for buffer overrun. */
+ if (s2) free(s2); /* Free temp storage */
+ if (z < y) /* Now check for buffer overrun. */
flag++;
if (!flag && *sep && i < hi) { /* If buffer still has room */
z = ckstrncat(fnval,sep,FNVALL); /* copy delimiter */
goto fnend;
}
if (cx == FN_KWVAL) { /* Keyword=Value */
- p = dokwval(bp[0],bp[1]?*(bp[1]):'=');
+ p = dokwval(bp[0],bp[1]?bp[1]:"=");
goto fnend;
}
#ifdef COMMENT
}
#endif /* NT */
+/*
+ \femailaddress():
+ Picks the email address out of an RFC 2822 From: or Sender: header.
+ Added 26 Nov 2005. Handles all common, and some uncommon, cases but
+ doesn't totally bother about nested comments. Needed this for fetching
+ email from a POP server and then constructing the BSD "From " line.
+ Works with or without the "From: " or "Sender: " tag.
+*/
+ if (cx == FN_EMAIL) {
+ char c, * s = bp[0], * s2, * s3, * ap = "";
+ int k, state = 0, quote = 0, infield = 0;
+ int pc = 0; /* For nested comments */
+ if (!s) s = "";
+ if (!*s) goto xemail;
+
+ if (ckindex("From: ",s,0,0,0) == 1) s += 5;
+ if (ckindex("Sender: ",s,0,0,0) == 1) s += 7;
+
+ k = strlen(s); /* Strip junk from end */
+ if (k < 1) goto xemail;
+ k--;
+ while (k >= 0 && s[k] == CR || s[k] == LF)
+ s[k--] = NUL;
+ while (k >= 0 && s[k] == SP || s[k] == HT)
+ s[k--] = NUL;
+ if (k == 0)
+ goto xemail;
+
+#ifndef COMMENT /* Simple method if not 100% foolproof */
+ k = 0;
+ for (s2 = s; *s2; s2++) { /* Find at-sign */
+ if (*s2 == '@') {
+ k++; /* If more than one use rightmost */
+ s3 = s2;
+ }
+ }
+ if (k < 1) /* No at-sign */
+ goto xemail;
+
+ for (ap = s3-1; ap >= s; ap--) { /* Back up to beginning of address */
+ if (isspace(*ap) || *ap == '<') {
+ ap++;
+ break;
+ }
+ if (ap == s)
+ break;
+ }
+ for (s2 = s3+1; *s2; s2++) { /* Find end of address */
+ if (isspace(*s2) || *s2 == '>')
+ break;
+ }
+ *s2-- = NUL;
+ if (*ap == '[' && *s2 == ']') { /* Handle [blah@blah.blah] */
+ ap++;
+ *s2 = NUL;
+ }
+ if (!ckstrcmp(ap,"mailto:",7,0)) /* Handle mailto: URLs */
+ ap += 7;
+
+#else /* Too complicated and error-prone */
+
+ k = 0;
+ for (s2 = s; *s2; s2++) { /* Strip leading whitespace */
+ if (*s2 == SP || *s2 == HT) {
+ k = 1;
+ break;
+ }
+ }
+ if (!k) { /* Simple address */
+ ap = s;
+ goto xemail;
+ }
+ do { /* Not simple, have to extract it */
+ if (quote) {
+ quote = 0;
+ continue;
+ } else if (*s == '\\') {
+ quote = 1;
+ continue;
+ }
+ switch (state) {
+ case 0:
+ if (!infield && *s == '"') { /* Quoted string */
+ infield = 1;
+ c = '"';
+ state = 1;
+ } else if (!infield && *s == '(') { /* Comment in parens */
+ pc++;
+ infield = 1;
+ c = ')';
+ if (*ap) *s = NUL;
+ state = 1;
+ } else if (!infield && *s == '<') { /* Address */
+ infield = 1;
+ c = '>';
+ ap = s+1;
+ state = 2;
+ } else if (infield && (*s == SP || *s == HT)) {
+ infield = 0;
+ } else { /* One or more bare words */
+ infield = 1; /* Could be an address */
+ if (!*ap) ap = s; /* Could be comments */
+ }
+ continue;
+ case 1: /* In Quoted string or Comment */
+ if (infield && *s == c) { /* Look for end */
+ infield = 0;
+ *s++ = NUL;
+ while (*s == SP || *s == HT) s++;
+ if (!*ap)
+ ap = s;
+ state = 0;
+ }
+ continue;
+ case 2: /* In address */
+ if (infield && *s == c) { /* Looking for end */
+ infield = 0;
+ *s = NUL;
+ break;
+ }
+ }
+ } while (*s++);
+
+ xemail:
+ if (*ap) {
+ while (*ap == SP || *ap == HT) ap++;
+ }
+ k = strlen(ap) - 1;
+ while (k >= 0 && (ap[k] == SP || ap[k] == HT))
+ ap[k--] = NUL;
+ if (*ap) {
+ failed = 0;
+ if (*ap == '<') {
+ k = strlen(ap);
+ if (*(ap+k-1) == '>') {
+ ap[k-1] = NUL;
+ ap++;
+ }
+ }
+ } else
+ failed = 1;
+ /* Here we might also want check against "*@*.*" */
+#endif /* COMMENt */
+ xemail:
+ ckstrncpy(fnval,ap,FNVALL);
+ goto fnend;
+ }
+
+#ifdef SEEK_CUR
+/*
+ \fpicture(): Get dimensions of GIF or JPG image.
+ fdc June 2006
+*/
+ if (cx == FN_PICTURE) {
+ FILE *fp = NULL;
+ int c, x, w = 0, h = 0, eof = 0;
+ unsigned int i, j, k;
+ unsigned char buf[1024];
+ char abuf[16], * p, * s;
+ char ** ap = NULL;
+
+ p = fnval; /* Point to result */
+ failed = 1; /* Assume failure */
+ if (argn > 1) {
+ int xi;
+ ckstrncpy(abuf,bp[1],16); /* Get array reference */
+ s = abuf;
+ if (*s == CMDQ) s++;
+ if (fndiags) /* Default is this error message */
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:ARG_BAD_ARRAY:\\f",fn,"()>",NULL);
+ if (s[0] != '&') /* "Address" of array */
+ goto fnend;
+ if (s[2])
+ if (s[2] != '[' || s[3] != ']')
+ goto fnend;
+ if (s[1] >= 64 && s[1] < 91) /* Convert upper to lower */
+ s[1] += 32;
+ if ((xi = dclarray(s[1],2)) < 0) /* Two elements */
+ goto fnend;
+ ap = a_ptr[xi]; /* Point to array we just declared */
+ }
+ s = bp[0]; /* Filename */
+ failed = 0; /* From here on we don't fail */
+ p[0] = '0'; /* Default return value */
+ p[1] = NUL;
+ if (!ckmatch("*.{jpg,jpeg,gif}$",s,0,1+4)) /* Appropriate name? */
+ goto fnend; /* No, fail */
+ fp = fopen(s, "r"); /* Open it */
+ if (fp == NULL) { /* Can't, fail */
+ p[0] = '-';
+ p[1] = '1';
+ p[2] = NUL; /* Return -1 */
+ goto fnend;
+ }
+ k = strlen(s);
+ if (!ckstrcmp(&s[k-4],".gif",4,0)) { /* GIF file */
+ if (fread(buf,1,10,fp) != 10) {
+ fclose(fp);
+ goto fnend;
+ }
+ /* Check signature */
+ if (ckstrcmp((char *)buf,"GIF87a",6,0) &&
+ ckstrcmp((char *)buf,"GIF89a",6,0)) {
+ fclose(fp);
+ goto fnend;
+ }
+ w = buf[6] + 256 * buf[7];
+ h = buf[8] + 256 * buf[9];
+ goto picend;
+ } else if (!ckstrcmp(&s[k-4],".jpg",4,0) || /* JPEG file */
+ !ckstrcmp(&s[k-5],".jpeg",5,0)) {
+ if (fread(buf,1,2,fp) != 2) {
+ fclose(fp);
+ goto fnend;
+ }
+ if (buf[0] != 0xff || buf[1] != 0xd8) { /* Check signature */
+ fclose(fp);
+ goto fnend;
+ }
+ eof = 0;
+ while (!eof) { /* Loop for each marker */
+ while (!eof) { /* Find next marker */
+ c = getc(fp);
+ if (c == (unsigned int)EOF) {
+ eof++;
+ break;
+ }
+ if (c == 0xff) {
+ buf[0] = c;
+ c = getc(fp);
+ if (c == (unsigned int)EOF) {
+ eof++;
+ break;
+ }
+ buf[1] = c;
+ if (c == 0xd9)
+ eof++;
+ if (c >= 0xc0 && c <= 0xfe)
+ break;
+ }
+ }
+ if (eof) break;
+ x = buf[1];
+ if (x == 0xc0 || x == 0xc1 || x == 0xc2 || x == 0xc3 ||
+ x == 0xc9 || x == 0xca || x == 0xcb) {
+ if (fread(buf,1,7,fp) != 7) {
+ fclose(fp);
+ goto fnend;
+ }
+ h = buf[3] * 256 + buf[4];
+ w = buf[5] * 256 + buf[6];
+ goto picend;
+ } else { /* Not a desired field */
+ if (feof(fp)) {
+ eof++;
+ break;
+ }
+ if (fread(buf,1,2,fp) != 2) { /* Length of this field */
+ fclose(fp);
+ goto fnend;
+ }
+ j = 256 * buf[0] + buf[1] - 2; /* Skip next field */
+ if (CKFSEEK(fp,(CK_OFF_T)j,SEEK_CUR) != 0) {
+ fclose(fp);
+ goto fnend;
+ }
+ }
+ }
+ }
+ picend:
+ fclose(fp);
+ if (ap) {
+ makestr(&(ap[0]),"2");
+ makestr(&(ap[1]),ckitoa(w));
+ makestr(&(ap[2]),ckitoa(h));
+ }
+ if (w > 0 && h > 0) {
+ if (w > h) p[0] = '1';
+ if (h >= w) p[0] = '2';
+ }
+ goto fnend;
+ }
+#endif /* SEEK_CUR */
+
+ if (cx == FN_PID) {
+ int x = -1;
+ if (chknum(bp[0])) { /* Need numeric argument */
+ int pid;
+ pid = atoi(bp[0]); /* Convert to int */
+#ifdef UNIX
+ if (kill(pid,0) < 0) { /* Test it */
+ if (errno ==
+#ifdef ESRCH
+ ESRCH /* No such process */
+#else
+ 3
+#endif /* ESRCH */
+ )
+ x = 0;
+ } else /* Process exists */
+ x = 1;
+#endif /* UNIX */
+ }
+ sprintf(fnval,"%d",x); /* SAFE */
+ goto fnend;
+ }
+
+ if (cx == FN_FUNC) {
+ char * s = bp[0];
+ p = "0";
+ debug(F111,"ffunc",s,argn);
+ if (argn > 0) {
+ int x, y;
+ for (p = s; *p; p++) { /* Chop off trailing parens if any */
+ if (*p == '(') {
+ *p = NUL;
+ break;
+ }
+ }
+ /* Chop off leading "\\f" or "\f" or "f" */
+ p = s;
+ if (*p == CMDQ) /* Allow for \\f... */
+ p++;
+ if (*p == CMDQ && (*(p+1) == 'f' || *(p+1) == 'F')) { /* or \f */
+ p += 2;
+ } else if (*p == 'f' || *p == 'F') { /* or just f */
+ p++;
+ }
+ y = lookup(fnctab,p,nfuncs,&x); /* Look up the result */
+ debug(F111,"ffunc",p,y);
+ p = (y > -1) ? "1" : "0";
+ }
+ goto fnend;
+ }
+ if (cx == FN_RECURSE) {
+ int t, n;
+ char * s;
+ fnval[0] = NUL; /* Default result is empty string */
+ s = bp[0]; /* Check for null argument */
+ if (!s) s = ""; /* or empty argument */
+ if (!*s) goto fnend; /* in which case return empty string */
+ n = FNVALL; /* Not empty, max size for result */
+ s = fnval; /* Location of result */
+ {
+ /* Force VARIABLE-EVALUATION SIMPLE RECURSIVE */
+ /* NOTE: This is vulnerable to SIGINT and whatnot... */
+ int tmp = vareval; /* Save VARIABLE-EVALUATION setting */
+ vareval = 1; /* Force it to RECURSIVE */
+ zzstring(bp[0],&s,&n); /* Expand arg into result space */
+ vareval = tmp; /* Restore VARIABLE-EVALUATION */
+ }
+ goto fnend;
+ }
+
+ if (cx == FN_XLATE) { /* f_cvtcset() */
+#ifdef NOFRILLS
+ ckstrncpy(fnval,bp[0],FNVALL);
+#else
+#ifndef NOUNICODE
+ _PROTOTYP( char * cvtstring, (char *, int, int) );
+ char * string, * cset1, * cset2;
+ int id1, id2;
+#endif /* NOUNICODE */
+ fnval[0] = NUL;
+#ifdef NOUNICODE
+ ckstrncpy(fnval,bp[0],FNVALL);
+#else
+ string = bp[0] ? bp[0] : ""; /* String to convert */
+ if (!*string) goto fnend; /* It's empty */
+
+ cset1 = bp[1] ? bp[1] : "ascii"; /* Current charset of string */
+ cset2 = bp[2] ? bp[2] : "ascii"; /* Charset to convert to */
+
+ id1 = lookup(fcstab,cset1,nfilc,NULL); /* Lookup 'from' set */
+ if (id1 < 0) {
+ failed = 1;
+ ckmakmsg(fnval,FNVALL,"<ERROR:UNKNOWN_CHARSET:\\f",fn,"()>",NULL);
+ goto fnend;
+ }
+ id2 = lookup(fcstab,cset2,nfilc,NULL); /* Lookup 'to' set */
+ if (id2 < 0) {
+ failed = 1;
+ ckmakmsg(fnval,FNVALL,"<ERROR:UNKNOWN_CHARSET:\\f",fn,"()>",NULL);
+ goto fnend;
+ }
+ string = cvtstring(string,id1,id2);
+ ckstrncpy(fnval,string,FNVALL);
+#endif /* NOUNICODE */
+#endif /* NOFRILLS */
+ goto fnend;
+ }
+
+/* Decode strings containing hex escapes */
+
+ if (cx == FN_UNPCT) { /* \fdecodehex() */
+ char *s1, *s2;
+ char *prefix; /* Can be 1 or 2 chars */
+ char buf[3];
+ int n = 0, k;
+
+ p = fnval;
+ *p = NUL;
+ if (argn < 1) goto fnend; /* Empty string */
+
+ s1 = bp[0] ? bp[0] : ""; /* Original string */
+ prefix = bp[1] ? bp[1] : "%%"; /* Hex byte prefix */
+ n = (int)strlen(prefix); /* Length of prefix */
+ if (n < 1 || n > 2) { /* must be 1 or 2 */
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:INVALID_HEX_PREFIX:\\f",fn,"()>",NULL);
+ goto xunpct;
+ }
+ while (*s1) {
+ if (!ckstrcmp(s1,prefix,n,0)) { /* Case-independent */
+ if (!*(s1+n)) {
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:INCOMPLETE_SEQUENCE:\\f",fn,"()>",NULL);
+ goto xunpct;
+ }
+ buf[0] = *(s1+n); /* First hex character */
+ buf[1] = *(s1+n+1); /* Second hex character */
+ buf[2] = NUL;
+ if ((k = ckhexbytetoint((char *)buf)) > -1) {
+ *p++ = (char) k; /* Deposit decoded result */
+ s1 += 2+n; /* and advance the source pointer */
+ } else { /* Fail on conversion error */
+ ckmakmsg(fnval,FNVALL,
+ "<ERROR:NON_HEX_CHARS:\\f",fn,"()>",NULL);
+ goto xunpct;
+ }
+ } else { /* Not a hex escape sequence */
+ *p++ = *s1++; /* Just copy the character */
+ }
+ }
+ *p = NUL; /* Terminate the result string */
+ failed = 0; /* Say we didn't fail */
+ p = fnval; /* Set up result pointer */
+ goto fnend; /* and finish */
+
+ xunpct: /* Error exit */
+ p = fnval;
+ failed = 1;
+ goto fnend;
+ }
+
+/* Check a string for encoding family */
+
+ if (cx == FN_STRINGT) { /* \fstringtype() */
+ p = "UNK";
+ switch (scanstring(bp[0])) {
+ case FT_7BIT: p = "7BIT"; break;
+ case FT_8BIT: p = "8BIT"; break;
+ case FT_UTF8: p = "UTF8"; break;
+ case FT_UCS2: p = "UCS2"; break;
+ case FT_TEXT: p = "TEXT"; break;
+ case FT_BIN: p = "BINARY"; break;
+ }
+ ckstrncpy(fnval,p,FNVALL);
+ p = fnval;
+ goto fnend;
+ }
+
+/* String compare s1, s2, [ case ], [ start ] , [ len ] */
+
+ if (cx == FN_STRCMP) {
+ int docase = 0; /* Case matters or not */
+ int start = 0; /* Start of substring */
+ int len = -1; /* Length of substring to compare */
+ int x; char * s1, * s2; /* workers */
+
+ p = "0"; /* Return value */
+ if (argn == 0) { /* Two null strings are equal */
+ ckstrncpy(fnval,p,FNVALL);
+ p = fnval;
+ goto fnend;
+ }
+ if (argn == 1) { /* Non-null string > null string */
+ p = "1";
+ ckstrncpy(fnval,p,FNVALL);
+ p = fnval;
+ goto fnend;
+ }
+ if (argn > 2) {
+ s = *(bp[2]) ? evalx(bp[2]) : "0"; /* 0 = caseless */
+ if (chknum(s)) docase = atoi(s);
+ if (argn > 3) {
+ s = *(bp[3]) ? evalx(bp[3]) : "1"; /* start is 1-based */
+ if (chknum(s)) start = atoi(s);
+ if (argn > 4) {
+ s = *(bp[4]) ? evalx(bp[4]) : "-1"; /* -1 = whole thing */
+ if (chknum(s)) len = atoi(s);
+ }
+ }
+ }
+ if (start > 0) start--; /* start is 0-based internally */
+ s1 = bp[0]; /* Get length of first arg */
+ x = (int)strlen(s1);
+ if (x > start) /* Point to start position of s1 */
+ s1 += start;
+ else
+ s1 = "";
+ s2 = bp[1]; /* Get length of second arg */
+ x = (int)strlen(s2);
+ if (x > start) /* Point to start position of s2 */
+ s2 += start;
+ else
+ s2 = "";
+ x = ckstrcmp(s,s2,len,docase);
+ p = ckitoa(x);
+ ckstrncpy(fnval,p,FNVALL);
+ p = fnval;
+ goto fnend;
+ }
+
/* Note: when adding new functions remember to update dohfunc in ckuus2.c. */
failed = 1;
return(p);
case VN_FFC: /* Size of most recent file */
- sprintf(vvbuf, "%ld", ffc); /* SAFE */
+ sprintf(vvbuf, "%s", ckfstoa(ffc)); /* SAFE */
return(vvbuf);
case VN_TFC: /* Size of most recent file group */
- sprintf(vvbuf, "%ld", tfc); /* SAFE */
+ sprintf(vvbuf, "%s", ckfstoa(tfc)); /* SAFE */
return(vvbuf);
case VN_CPU: /* CPU type */
return((char *)unm_mch);
}
#else
+ p = getenv("HOSTTYPE"); /* 20091116 */
+ if (p) if (*p) return(p);
return("unknown");
#endif /* CK_UTSNAME */
#endif /* CKCPU */
);
return(vvbuf);
+#ifndef NODIAL
+ case VN_DMSG:
+#ifdef BIGBUFOK
+ ckstrncpy(vvbuf,dialmsg[dialsta],VVBUFL); /* Safe if src == NULL */
+#endif /* BIGBUFOK */
+ return((char *)vvbuf);
+#endif /* NODIAL */
+
#ifdef OS2
case VN_KEYB:
ckstrncpy(vvbuf,conkbg(),VVBUFL);
if (ttnproto == NP_TELNET)
ckstrncpy(vvbuf,"tcp/ip_telnet",VVBUFL);
#ifdef CK_SSL
- else if (ttnproto == NP_SSL)
+ else if (ttnproto == NP_SSL || ttnproto == NP_SSL_RAW)
ckstrncpy(vvbuf,"tcp/ip_ssl",VVBUFL);
- else if (ttnproto == NP_TLS)
+ else if (ttnproto == NP_TLS || ttnproto == NP_SSL_RAW)
ckstrncpy(vvbuf,"tcp/ip_tls",VVBUFL);
#endif /* CK_SSL */
else
case VN_UID:
#ifdef UNIX
{
- extern char * whoami(); /* From ckufio.c... */
#ifdef IKSD
if (inserver)
return((char *)uidbuf);
return((char *)vvbuf);
}
case VN_K4ENO: {
- extern char * krb4_errno;
+ extern int krb4_errno;
sprintf(vvbuf,"%d",krb4_errno); /* SAFE */
return((char *)vvbuf);
}
case VN_K5ENO: {
- extern char * krb5_errno;
+ extern int krb5_errno;
sprintf(vvbuf,"%d",krb5_errno); /* SAFE */
return((char *)vvbuf);
}
} /* Break up long switch statements... */
switch(y) {
+#ifndef NOLASTFILE
+ case VN_LASTFIL: {
+ extern char * lastfile;
+ return(lastfile ? lastfile : "");
+ }
+#endif /* NOLASTFILE */
#ifndef NOXFER
case VN_XF_BC:
sprintf(vvbuf,"%d",crunched); /* SAFE */
return(ftp_host ? ftp_host : "");
}
case VN_FTP_X: { /* FTP Connected */
- extern int ftpisconnected();
return(ftpisconnected() ? "1" : "0");
}
case VN_FTP_L: { /* FTP Logged in */
- extern int ftpisloggedin();
return(ftpisloggedin() ? "1" : "0");
}
case VN_FTP_G: { /* FTP GET-PUT-REMOTE */
vvbuf[2] = NUL;
return(vvbuf); /* and return it */
+ case VN_BITS: /* Bits (16, 32, 64) */
+ if (sizeof(long) > 4)
+ return(ckitoa(8*sizeof(long)));
+ else
+ return(ckitoa(8*sizeof(int)));
+
+ case VN_LASTKWV: /* 212 */
+ return(lastkwval ? lastkwval : "");
+
+ case VN_HOSTIP: { /* 212 */
+#ifdef TCPSOCKET
+ extern char hostipaddr[];
+ return((char *)hostipaddr);
+#else
+ return("");
+#endif /* TCPSOCKET */
+ }
+ case VN_INPMSG:
+ switch (instatus) {
+ case INP_OK: return("SUCCESS");
+ case INP_TO: return("Timed out");
+ case INP_UI: return("Keyboard interrupt");
+ case INP_IE: return("Internal error");
+ case INP_IO: return("I/O error or connection lost");
+ case INP_IKS: return("INPUT disabled");
+ case INP_BF: return("Buffer filled and /NOWRAP set");
+ default: return("Unknown");
+ }
+
+ case VN_VAREVAL: /* 212 */
+ return(vareval ? "recursive" : "simple");
+
case VN_LOG_CON: /* \v(...) for log files */
#ifdef CKLOGDIAL
return(diafil);
#else
return("");
#endif
+ case VN_PREVCMD: {
+ extern char * prevcmd;
+ return(prevcmd ? prevcmd : "");
+ }
}
#ifndef NODIAL
fnsuccess = 0;
}
if (fndiags) {
- if (!embuf)
+ if (!embuf[0])
ckstrncpy(embuf,"<ERROR:NO_SUCH_VARIABLE>",EMBUFLEN);
printf("?%s\n",embuf);
return((char *)embuf);
Returns -1 on failure, 0 on success,
with destination string null-terminated and s2 pointing to the
terminating null, so that subsequent characters can be added.
+ Failure reasons include destination buffer is filled up.
*/
#define XXDEPLIM 100 /* Recursion depth limit */
d, /* Array dimension */
vbi, /* Variable id (integer form) */
argl, /* String argument length */
- nx; /* Save original length */
+ nx, /* Save original length */
+ quoting = 0; /* 299 */
char vb, /* Variable id (char form) */
*vp, /* Pointer to variable definition */
n2 = *n; /* Make local copies of args */
nx = n2;
+#ifdef COMMENT
+ /* This is always 32K in BIGBUFOK builds */
+ if (depth == 0)
+ debug(F101,"zzstring top-level n","",n2);
+#endif /* COMMENT */
+
new = *s2; /* for one less level of indirection */
#ifdef COMMENT
old = new;
#endif /* COMMENT */
#ifndef NOSPL
- ispattern = 0; /* For \fpattern() */
+ itsapattern = 0; /* For \fpattern() */
isjoin = 0; /* For \fjoin() */
#endif /* NOSPL */
depth++; /* Sink to a new depth */
#ifdef COMMENT
if (vp) { /* If definition not empty */
#endif /* COMMENT */
- debug(F010,"zzstring %n vp",vp,0);
- if (zzstring(vp,&new,&n2) < 0) { /* call self to evaluate it */
- debug(F101,"zzstring fail 6","",depth);
+ if (vareval) {
+ debug(F010,"zzstring %n vp",vp,0);
+ /* call self to evaluate it */
+ if (zzstring(vp,&new,&n2) < 0) {
+ debug(F101,"zzstring fail 6","",depth);
#ifdef DVNAMBUF
- if (vnambuf) free(vnambuf);
+ if (vnambuf) free(vnambuf);
#endif /* DVNAMBUF */
- return(-1); /* Pass along failure */
- }
+ return(-1); /* Pass along failure */
+ }
+ } else {
+ while ((*new++ = *vp++)) /* copy it to output string. */
+ if (--n2 < 0) {
+ if (q) free(q);
+ debug(F101,"zzstring overflow 4.5","",depth);
+#ifdef DVNAMBUF
+ if (vnambuf) free(vnambuf);
+#endif /* DVNAMBUF */
+ return(-1);
+ }
+ new--; /* Back up over terminating null */
+ n2++; /* to allow for further deposits. */
+ }
#ifdef COMMENT
} else {
debug(F110,"zzstring %n vp","(NULL)",0);
x = chkarray(vbi,d); /* Array is declared? */
debug(F101,"zzstring chkarray","",x);
- if (x > 0) {
+ if (x > -1) {
#ifdef COMMENT
char * s1 = NULL;
#endif /* COMMENT */
vbi -= ARRAYBASE; /* Convert name to index */
-#ifdef COMMENT
- if (vbi == 0) { /* Argument vector array */
- extern char ** toparg, ** m_xarg[];
- extern int n_xarg[];
- if (maclvl < 0) {
- if (topargc >= d) {
- s1 = toparg[d];
- }
- } else {
- if (n_xarg[maclvl] >= d) {
- s1 = m_xarg[maclvl][d];
- }
- }
- if (s1) {
- if (zzstring(s1,&new,&n2) < 0) { /* evaluate */
- debug(F101,"zzstring fail 7.5","",depth);
-#ifdef DVNAMBUF
- if (vnambuf) free(vnambuf);
-#endif /* DVNAMBUF */
- return(-1); /* Pass along failure */
- }
- } else {
- /* old = new; */
- n2 = nx;
- }
- } else
-#endif /* COMMENT */
if (a_dim[vbi] >= d) { /* If subscript in range */
char **ap;
-#ifndef COMMENT
- debug(F110,"zzstring a_ptr[vbi]",a_ptr[vbi],0);
- debug(F110,"zzstring a_ptr[vbi][d]",a_ptr[vbi][d],0);
-#endif /* COMMENT */
ap = a_ptr[vbi]; /* get data pointer */
if (ap) { /* and if there is one */
if (ap[d]) { /* If definition not empty */
debug(F111,"zzstring ap[d]",ap[d],d);
- if (zzstring(ap[d],&new,&n2) < 0) { /* evaluate */
- debug(F101,"zzstring fail 8","",depth);
+ if (vareval) {
+ if (zzstring(ap[d],&new,&n2) < 0) {
+ debug(F101,"zzstring fail 8","",depth);
#ifdef DVNAMBUF
- if (vnambuf) free(vnambuf);
+ if (vnambuf) free(vnambuf);
#endif /* DVNAMBUF */
- return(-1); /* Pass along failure */
- }
- }
+ return(-1); /* Pass along failure */
+ }
+ } else {
+ vp = ap[d];
+ while ((*new++ = *vp++)) /* copy to result */
+ if (--n2 < 0) {
+ if (q) free(q);
+ debug(F101,
+ "zzstring overflow 8.5","",depth);
+#ifdef DVNAMBUF
+ if (vnambuf) free(vnambuf);
+#endif /* DVNAMBUF */
+ return(-1);
+ }
+ new--; /* Back up over terminating null */
+ n2++; /* to allow for further deposits. */
+ }
+ }
+
} else {
/* old = new; */
n2 = nx;
}
}
#endif /* DEBUG */
+ {
+ /* In case the function name itself is constructed */
+ char buf[64]; char * p = buf; int n = 64;
+ if (zzstring(vnambuf,&p,&n) > -1)
+ ckstrncpy(vnambuf,buf,64);
+ }
vp = fneval(vnambuf,argp,argn,r3); /* Evaluate the function. */
if (vp) { /* If definition not empty */
while ((*new++ = *vp++)) { /* copy it to output string */
if (r2) { free(r2); r2 = NULL; }
if (r3) { free(r3); r3 = NULL; }
break;
+ case 'q': /* 299 String to be take literally */
+ quoting = 1; /* 299 */
case '$': /* An environment variable */
case 'v': /* Or a named builtin variable. */
case 'm': /* Or a macro /long variable */
p++; /* Point to 1st char of name */
q = vnambuf; /* Copy the name */
y = 0; /* into a separate buffer */
+ debug(F110,">>>> \\q(ARG)",p,0);
while (y++ < VNAML) { /* Watch out for name too long */
if (*p == '(') { /* Parens can be nested... */
- pp++;
+ if (*(p-1) != CMDQ) /* 299 */
+ pp++;
} else if (*p == ')') { /* Name properly terminated with ')' */
- pp--;
+ if (*(p-1) != CMDQ) /* 299 */
+ pp--;
if (pp == 0) {
p++; /* Move source pointer past ')' */
break;
x3 = 0;
while (*s3++) x3++;
p = malloc(x3 + 1); /* Make temporary space */
- if (p) { /* If we got the space */
+ if (p && !quoting) { /* If we got the space */
vp = vnambuf; /* Point to original */
strcpy(p,vp); /* (safe) Make a copy of it */
y = VNAML; /* Length of name buffer */
}
debug(F110,"zzstring vname",vnambuf,0);
q = NULL;
- if (x == '$') { /* Look up its value */
+ if (x == 'q') { /* 299 Quoting this string */
+ vp = vnambuf; /* 299 */
+ debug(F110,">>> VP",vp,0);
+ } else if (x == '$') { /* Look up its value */
vp = getenv(vnambuf); /* This way for environment variable */
} else if (x == 'm' || x == 's' || x == ':') { /* Macro / substr */
int k, x1 = -1, x2 = -1;
+ char c = NUL;
k = strlen(vnambuf);
/* \s(name[n:m]) -- Compact substring notation */
if ((x == 's' || x == ':') && (k > 1)) { /* Substring wanted */
+ int bprc;
if (vnambuf[k-1] == ']') {
int i;
- for (i = k-1; i > 0; i--) {
+ for (i = 0; i < k-1; i++) {
if (vnambuf[i] == '[') {
- char * p = NULL;
- p = (char *)malloc(k - i + 8);
- if (p) {
- /* Now this is a dirty trick... */
- ckmakmsg(p,
- k-i+8,
- "\\&a",
- &vnambuf[i],
- NULL,
- NULL
- );
- arraybounds(p,&x1,&x2);
- if (x1 < 1) x1 = 1;
- x1--; /* Adjust to 0-base */
- free(p);
- vnambuf[i] = NUL;
- }
+ bprc = boundspair(vnambuf,":_.",&x1,&x2,&c);
+ debug(F111,"zzstring boundspair",vnambuf,bprc);
+ debug(F000,"zzstring boundspair c","",c);
+ if (bprc > -1) {
+ vnambuf[i] = NUL;
+ if (x1 < 1)
+ x1 = 1;
+ x1--; /* Adjust to 0-base */
+ }
+ break;
}
}
- }
+ }
}
- if (x == ':') {
+ if (x == ':') { /* Variable type (s or :) */
vp = vnambuf;
} else {
y = isaarray(vnambuf) ?
vp = NULL;
}
}
+ debug(F111,"zzstring vp",vp,(vp==NULL)?0:strlen(vp));
+
if (vp) {
if ((x == 's' || x == ':') && (k > 1)) {
/* Compact substring notation */
vp = NULL;
} else if (x1 > -1) { /* Start */
k = strlen(vp);
- if (x1 > k) { /* If it's off the end, */
- vp = NULL; /* result is empty */
+ debug(F101,">>> k","",k);
+ /* If it's off the end, result is empty */
+ if (x1 > k) {
+ vp = NULL;
} else if (k > 0) {
+ /* Stay in bounds */
+ if (c == '_' && x2 > k) /* startpos_endpos */
+ x2 = k;
+ if (c == ':' && x1 + x2 > k) /* start:length */
+ x2 = -1;
+ debug(F101,">>> x2","",x2);
+ debug(F000,">>> c","",c);
if ((q = malloc(k+1))) {
strcpy(q,vp); /* safe */
- if ((x2 > -1) && ((x1 + x2) <= k)) {
- q[x1+x2] = NUL;
- }
- vp = q+x1;
- } else vp = NULL;
+ if (c == '.') {
+ q[x1+1] = NUL;
+ debug(F000,"XXX. q",q,c);
+ }
+ if (c == ':') { /* start:length */
+ if ((x2 > -1) && ((x1 + x2) <= k)) {
+ q[x1+x2] = NUL;
+ }
+ debug(F000,"XXX: q",q,c);
+ } else if (c == '_') { /* start_endpos */
+ if (x1 >= x2) {
+ q[x1 = 0] = NUL;
+ } else if (x2 < k && x2 > -1) {
+ q[x2] = NUL;
+ }
+ debug(F000,"XXX_ q",q,c);
+ }
+ vp = q+x1;
+ } else vp = NULL;
} else vp = NULL;
}
+
+ debug(F110,"XXX vnambuf",vnambuf,0);
+ debug(F000,"XXX c","",c);
+ debug(F101,"XXX x1","",x1);
+ debug(F101,"XXX x2","",x2);
+ debug(F110,"XXX result",vp,0);
#ifdef DEBUG
if (deblog) {
if (!vp) {
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#include "ck_ssl.h"
#endif /* CK_SSL */
+extern char * ck_cryear; /* (ckcmai.c) Latest C-Kermit copyright year */
+
#ifdef OS2
#include "ckoetc.h"
#ifndef NT
extern bool cursorena[] ;
#endif /* OS2 */
+/* 2010-03-09 SMS. VAX C V3.1-051 needs <stat.h> for off_t. */
+#ifdef VMS
+#include <stat.h>
+#endif /* def VMS */
+
/* For formatted screens, "more?" prompting, etc. */
#ifdef FT18
inserver, diractive, tlevel, cwdf, nfuncs, msgflg, remappd, hints, mdmtyp,
zincnt, cmask, rcflag, success, xitsta, pflag, tnlm, tn_nlm, xitwarn,
debses, xaskmore, parity, saveask, wasclosed, whyclosed, cdactive,
- rcdactive, keepallchars;
+ rcdactive, keepallchars, cmd_err;
#ifdef LOCUS
extern int locus, autolocus;
#endif /* NOFRILLS */
#endif /* NOPUSH */
+#ifndef NOFRILLS
+#ifndef NORENAME
+_PROTOTYP(VOID shorename, (void));
+#endif /* NORENAME */
+#endif /* NOFRILLS */
+
#ifndef NOSERVER
extern char * x_user, * x_passwd, * x_acct;
#endif /* NOSERVER */
#endif /* CKROOT */
#ifndef NOSPL
-extern int cfilef, xxdot;
+extern int cfilef, xxdot, vareval;
extern char cmdfil[];
struct localvar * localhead[CMDSTKL];
_PROTOTYP( static VOID simple, (void) );
_PROTOTYP( static VOID simpler, (void) );
_PROTOTYP( static VOID simplest, (void) );
-_PROTOTYP( static long xparse, (void) );
+_PROTOTYP( static CK_OFF_T xparse, (void) );
#endif /* NOSPL */
#ifndef NOSHOW
_PROTOTYP( int sho_iks, (void) );
#endif /* CK_TMPDIR */
#ifndef NOLOCAL
-extern int tt_crd, tt_escape;
+extern int tt_crd, tt_lfd, tt_escape;
#endif /* NOLOCAL */
#ifndef NOCSETS
#ifdef DCMDBUF
int *xquiet = NULL;
+int *xvarev = NULL;
#else
int xquiet[CMDSTKL];
+int xvarev[CMDSTKL];
#endif /* DCMDBUF */
char * prstring[CMDSTKL];
{ "lockdir", VN_LCKDIR, 0 },
#endif /* UNIX */
#ifdef NT
- { "personal", VN_PERSONAL, 0 },
+ { "my_documents",VN_PERSONAL, 0 },
+ { "personal", VN_PERSONAL, CM_INV },
#endif /* NT */
{ "startup", VN_STAR, 0 },
{ "textdir", VN_TXTDIR, 0 },
#ifndef NOSPL
_PROTOTYP( VOID freelocal, (int) );
-_PROTOTYP( static long expon, (long, long) );
-_PROTOTYP( static long gcd, (long, long) );
-_PROTOTYP( static long fact, (long) );
+_PROTOTYP( static CK_OFF_T expon, (CK_OFF_T, CK_OFF_T) );
+_PROTOTYP( static CK_OFF_T gcd, (CK_OFF_T, CK_OFF_T) );
+_PROTOTYP( static CK_OFF_T fact, (CK_OFF_T) );
int /* Initialize macro data structures. */
macini() { /* Allocate mactab and preset the first element. */
#ifndef NOSPL
/* Allocate INPUT command buffer */
if (!inpbuf) {
- if (!(inpbuf = (char *) malloc(INPBUFSIZ+1)))
+ if (!(inpbuf = (char *) malloc(INPBUFSIZ+8)))
fatal("cmdini: no memory for INPUT buffer");
}
for (x = 0; x < INPBUFSIZ; x++) /* Initialize it */
fatal("cmdini: no memory for merror");
if (!(xquiet = (int *) malloc(sizeof(int)*CMDSTKL)))
fatal("cmdini: no memory for xquiet");
+ if (!(xvarev = (int *) malloc(sizeof(int)*CMDSTKL)))
+ fatal("cmdini: no memory for xvarev");
if (!kermrc)
if (!(kermrc = (char *) malloc(KERMRCL+1)))
fatal("cmdini: no memory for kermrc");
takerr[0] = 0;
merror[0] = 0;
xquiet[0] = quiet;
+ xvarev[0] = vareval;
#endif /* NOSPL */
#ifndef NOSPL
takerr[cmdlvl] = takerr[cmdlvl-1];
merror[cmdlvl] = merror[cmdlvl-1];
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
#endif /* NOSPL */
debug(F110,"doinit init file",line,0);
} else {
#ifdef USE_CUSTOM
/* If no init file was found, execute the customization file */
- debug(F110,"CUSTOM 1",line,0);
- if (!line[0] || zchki(line) < 0) {
+ debug(F111,"CUSTOM 1",line,rcflag);
+ if ((!line[0] || zchki(line) < 0) && !rcflag) {
int x;
#ifdef OS2
x = ckmakestr(line,LINBUFSIZ,GetAppData(1),"/","K95CUSTOM.INI",NULL);
takerr[cmdlvl] = takerr[cmdlvl-1];
merror[cmdlvl] = merror[cmdlvl-1];
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
debug(F101,"doinit open ok","",cmdlvl);
xcmdsrc = CMD_TF;
cmdstk[cmdlvl].src = CMD_TF;
takerr[cmdlvl] = takerr[cmdlvl-1];
merror[cmdlvl] = merror[cmdlvl-1];
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
#endif /* NOSPL */
}
}
takerr[cmdlvl] = takerr[cmdlvl-1];
merror[cmdlvl] = merror[cmdlvl-1];
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
#endif /* NOSPL */
debug(F110,"doiksdinit file ok",tfnam[tlevel],0);
} else {
int bc = 0; /* Block counter */
s2 = s; /* Remember original pointer */
- prev = s2;
+ prev = s2; /* Here too */
buflen = n; /* Remember original buffer length */
if (n < 0)
if (!lpx) { /* Get new one */
if (!(lpx = (char *) malloc(n))) {
debug(F101,"getnct malloc failure","",0);
- printf("?Memory allocation failure [getnct]\n");
+ printf("?Memory allocation failure [getnct:%d]\n",n);
return(-2);
}
lpxlen = n;
*s = NUL; /* Make destination be empty */
return(-1); /* Return failure code */
}
+
#ifndef NODIAL
if (flag) /* Count this line */
dirline++;
#endif /* COMMENT */
if (bc > 0 && *lp3 == '}') { /* First char on line is '}' */
- bc--; /* Decrement block counter */
+ bc--; /* Decrement block counter */
}
if (bc == 0 && /* Line is continued if bc > 0 */
printf(" %2d. Prompt: (top level)\n",0);
}
+/* For command error messages - avoid dumping out the contents of some */
+/* some huge FOR loop if it contains a syntax error. */
+
+static char *
+cmddisplay(s, cx) char * s; int cx; {
+ static char buf[80];
+ if ((int)strlen(s) > 70) {
+ sprintf(buf,"%.64s...",s); /* SAFE */
+ s = buf;
+ }
+ return(s);
+}
+
+static VOID
+cmderr() {
+ if (xcmdsrc > 0) {
+ switch (cmd_err) { /* SET COMMAND ERROR-DISPLAY */
+ case 0:
+ break;
+ case 1:
+ case 2:
+ if (tlevel > -1) {
+#ifndef NOSPL
+ if (xcmdsrc == 2)
+ printf(
+"In macro or block defined in file: %s starting about line %d\n",
+ tfnam[tlevel] ? tfnam[tlevel] : "", tfline[tlevel]
+ );
+ else
+#endif /* NOSPL */
+ printf("File: %s, Line: %d\n",
+ tfnam[tlevel] ? tfnam[tlevel] : "", tfline[tlevel]
+ );
+ }
+#ifndef NOSPL
+ if (cmd_err == 2) {
+ if (cmdstk[cmdlvl].src == CMD_MD) { /* Executing a macro? */
+ int m;
+ m = cmdstk[cmdlvl].lvl;
+ if (mlook(mactab,m_arg[m][0],nmac) >= 0)
+ printf("Macro name: %s\n", m_arg[m][0]);
+ }
+ }
+#endif /* NOSPL */
+ break;
+
+ case 3:
+ printf("Command stack:\n");
+ shostack();
+ }
+ }
+}
/* P A R S E R -- Top-level interactive command parser. */
#ifndef NOSPL
int inlevel; /* Level we were called at */
- extern int askflag;
+ extern int askflag, echostars;
#endif /* NOSPL */
char *cbp; /* Command buffer pointer */
#ifdef MAC
extern int sndcmd, getcmd, fatalio, clearrq;
#endif /* NOXFER */
- debok = 1; /* Undisable debugging */
-
#ifdef AMIGA
reqres(); /* Restore AmigaDOS requestors */
#endif /* AMIGA */
if (cdlost && !interrupted && (sndcmd || getcmd)) {
printf("?Connection broken (carrier signal lost)\n");
}
- if (sndcmd && !success && hints && !interrupted && !fatalio && !xcmdsrc) {
+ if (sndcmd && protocol == PROTO_K &&
+ !success && hints && !interrupted && !fatalio && !xcmdsrc) {
int x = 0, n = 0;
printf("\n*************************\n");
printf("SEND-class command failed.\n");
#ifdef CK_SPEED
if (prefixing != PX_ALL && rpackets > 2) {
- printf(" . Try it again with SET PREFIXING ALL.\n");
+ printf(" . Try it again with: SET PREFIXING ALL\n");
x++;
}
#endif /* CK_SPEED */
#ifdef STREAMING
if (streamed) {
- printf(" . Try it again with SET STREAMING OFF.\n");
+ printf(" . Try it again with: SET STREAMING OFF\n");
x++;
} else if (reliable) {
- printf(" . Try it again with SET RELIABLE OFF.\n");
+ printf(" . Try it again with: SET RELIABLE OFF\n");
x++;
}
#endif /* STREAMING */
#ifdef CK_SPEED
if (clearrq > 0 && prefixing == PX_NON) {
- printf(" . Try it again with SET CLEAR-CHANNEL OFF.\n");
+ printf(" . Try it again with: SET CLEAR-CHANNEL OFF\n");
x++;
}
#endif /* CK_SPEED */
if (!parity) {
- printf(" . Try it again with SET PARITY SPACE.\n");
+ printf(" . Try it again with: SET PARITY SPACE\n");
x++;
}
printf(" . %sive a ROBUST command and try again.\n",
printf("Also:\n");
printf(" . Be sure the source file has read permission.\n");
printf(" . Be sure the target directory has write permission.\n");
+/*
+ if the file was 2G or larger make sure other Kermit supports LFs...
+*/
+ printf(" . Be sure the target disk has sufficient space.\n");
printf("(Use SET HINTS OFF to suppress hints.)\n");
printf("*************************\n\n");
}
debug(F101,"topcmd","",topcmd);
- if (getcmd && !success && hints && !interrupted && !fatalio && !xcmdsrc) {
+ if (getcmd && protocol == PROTO_K &&
+ !success && hints && !interrupted && !fatalio && !xcmdsrc) {
int x = 0;
extern int urpsiz, wslotr;
printf("\n*************************\n");
#endif /* NOLOCAL */
#ifdef STREAMING
if (streamed) {
- printf(" . Try it again with SET STREAMING OFF.\n");
+ printf(" . Try it again with: SET STREAMING OFF\n");
x++;
} else if (reliable && local) {
- printf(" . Try it again with SET RELIABLE OFF.\n");
+ printf(" . Try it again with: SET RELIABLE OFF\n");
x++;
} else
#endif /* STREAMING */
if (!parity) {
- printf(" . Try it again with SET PARITY SPACE.\n");
+ printf(" . Try it again with: SET PARITY SPACE\n");
x++;
}
printf((x > 0) ?
);
printf("Also:\n");
printf(" . Be sure the target directory has write permission.\n");
+ printf(" . Be sure the target disk has sufficient space.\n");
printf(" . Try telling the %s to SET PREFIXING ALL.\n",
topcmd == XXGET ? "server" : "sender"
);
makestr(&snd_rename,g_snd_rename);
makestr(&rcv_rename,g_rcv_rename);
#endif /* NOXFER */
- xaskmore = saveask; /* Restore global more-prompting */
- diractive = 0;
- cdactive = 0;
-
-#ifndef NOSPL
- askflag = 0;
-#endif /* NOSPL */
/* Take requested action if there was an error in the previous command */
while (repars) { /* Parse this cmd until entered. */
debug(F101,"parser top of while loop","",0);
+ xaskmore = saveask; /* Restore global more-prompting */
+ diractive = 0; /* DIR command not active */
+ cdactive = 0; /* CD command not active */
+#ifndef NOSPL
+ askflag = 0; /* ASK command not active */
+ echostars = 0; /* Nor ASKQ */
+ debok = 1; /* Undisable debugging */
+#endif /* NOSPL */
#ifdef RECURSIVE
/* In case of "send /recursive ./?<Ctrl-U>" etc */
#endif /* NOSPL */
default:
- if (!quiet) {
- printf("\n?Invalid - \"%s\"\n",cmdbuf);
-#ifdef COMMENT
-#ifndef NOSPL
- if (maclvl > -1 && xcmdsrc == 2)
- printf("Macro: %s; ",
- m_arg[maclvl][0] ?
- m_arg[maclvl][0] : "");
-#endif /* NOSPL */
- if (tlevel > -1) {
- printf("Command file: %s, line %d\n",
- tfnam[tlevel] ? tfnam[tlevel] : "",
- tfline[tlevel]
- );
- }
-#else
- if (xcmdsrc > 0) {
- printf("Command stack:\n");
- shostack();
- }
-#endif /* COMMENT */
-
+ if (!quiet && !cmd_err) {
+ printf("\n?Invalid - \"%s\"\n",
+ cmddisplay((char *)cmdbuf,xx)
+ );
+ cmderr();
}
xx = -2;
}
zz = docmd(xx); /* Parse rest of command & execute. */
#ifndef NOSPL
+ { /* For \v(lastcommand) */
+ extern char * prevcmd;
+ /* The exception list kind of a hack but let's try it... */
+ if (ckstrcmp(cmdbuf,"_getarg",7,0) &&
+ ckstrcmp(cmdbuf,"if ",3,0) &&
+ ckstrcmp(cmdbuf,"xif ",4,0) &&
+ ckstrcmp(cmdbuf,"do _if",6,0) &&
+ ckstrcmp(cmdbuf,"_assign _if",11,0))
+ ckstrncpy(prevcmd,cmdbuf,CMDBL);
+ }
+#endif /* NOSPL */
+
+#ifndef NOSPL
if (fnerror && !fnsuccess)
success = 0;
#endif /* NOSPL */
#endif /* OS2 */
case -6: /* Invalid command given w/no args */
- case -2: /* Invalid command given w/args */
-#ifdef COMMENT
-#ifndef NOSPL
- /* This is going to be really ugly... */
- yy = mlook(mactab,atmbuf,nmac); /* Look in macro table */
- if (yy > -1) { /* If it's there */
- if (zz == -2) { /* insert "do" */
- char *mp;
- mp = malloc((int)strlen(cmdbuf) + 5);
- if (!mp) {
- printf("?malloc error 1\n");
- return(-2);
- }
- sprintf(mp,"do %s ",cmdbuf); /* SAFE (checked) */
- ckstrncpy(cmdbuf,mp,CMDBL);
- free(mp);
- mp = NULL;
- } else {
- if (((int)strlen(atmbuf) + 5) < CMDBL)
- sprintf(cmdbuf,"do %s %c",atmbuf, CR); /* SAFE */
- else
- ckstrncpy(cmdbuf,"echo ?Too long\r",CMDBL);
- }
- if (ifcmd[cmdlvl] == 2) /* This one doesn't count! */
- ifcmd[cmdlvl]--;
- debug(F111,"stuff cmdbuf",cmdbuf,zz);
- repars = 1; /* Go for reparse */
- continue;
- } else {
- char *p;
- int n;
- p = cmdbuf;
- lp = line;
- n = LINBUFSIZ;
- if (cmflgs == 0) printf("\n");
- if (zzstring(p,&lp,&n) > -1)
- printf("?Invalid: %s\n",line);
- else
- printf("?Invalid: %s\n",cmdbuf);
- } /* (fall thru...) */
-#else
- printf("?Invalid: %s\n",cmdbuf);
-#endif /* NOSPL */
-#else /* Not COMMENT */
- printf("?Invalid: %s\n",cmdbuf);
-#endif /* COMMENT */
-
- case -9: /* Bad, error message already done */
- success = 0;
- debug(F110,"top-level cmkey failed",cmdbuf,0);
- /* If in background w/ commands coming stdin, terminate */
- if (pflag == 0 && tlevel < 0)
- fatal("Kermit command error in background execution");
+ case -2: { /* Invalid command given w/args */
+ int x = 0;
+ char * eol = "";
+ x = strlen(cmdbuf); /* Avoid blank line */
+ if (x > 0) {
+ if (cmdbuf[x-1] != LF)
+ eol = "\n";
+ printf("?Invalid: %s%s",
+ cmddisplay(cmdbuf,xx),eol
+ );
+ } else
+ printf("?Invalid\n");
+ }
+ case -9: /* Bad, error message already done */
+ success = 0;
+ debug(F110,"top-level cmkey failed",cmdbuf,0);
+ /* If in background w/ commands coming stdin, terminate */
+ if (pflag == 0 && tlevel < 0)
+ fatal("Kermit command error in background execution");
/*
Command retry feature, edit 190. If we're at interactive prompting level,
reprompt the user with as much of the command as didn't fail.
*/
#ifdef CK_RECALL
- if (cm_retry && !xcmdsrc) { /* If at top level */
- int len;
- char *p, *s;
- len = strlen(cmdbuf); /* Length of command buffer */
- p = malloc(len + 1); /* Allocate space for copy */
- if (p) { /* If we got the space copy */
- strcpy(p,cmdbuf); /* the command buffer (SAFE). */
- /* Chop off final field, the one that failed. */
- s = p + len - 1; /* Point to end */
- while (*s == SP && s > p) /* Trim blanks */
- s--;
- while (*s != SP && s > p) /* Trim last field */
- s--;
- if (s > p) /* Keep the space */
- s++; /* after last good field */
- if (s >= p) /* Cut off remainder */
- *s = NUL;
- cmini(ckxech); /* Reinitialize the parser */
- ckstrncpy(cmdbuf,p,CMDBL); /* Copy result back */
- free(p); /* Free temporary storage */
- p = NULL;
- prompt(xxstring); /* Reprint the prompt */
- printf("%s",cmdbuf); /* Reprint partial command */
- repars = 1; /* Force reparse */
- continue;
- }
- } else
+ if (cm_retry && !xcmdsrc) { /* If at top level */
+ int len;
+ char *p, *s;
+ len = strlen(cmdbuf); /* Length of command buffer */
+ p = malloc(len + 1); /* Allocate space for copy */
+ if (p) { /* If we got the space copy */
+ strcpy(p,cmdbuf); /* the command buffer (SAFE). */
+ /* Chop off final field, the one that failed. */
+ s = p + len - 1; /* Point to end */
+ while (*s == SP && s > p) /* Trim blanks */
+ s--;
+ while (*s != SP && s > p) /* Trim last field */
+ s--;
+ if (s > p) /* Keep the space */
+ s++; /* after last good field */
+ if (s >= p) /* Cut off remainder */
+ *s = NUL;
+ cmini(ckxech); /* Reinitialize the parser */
+ ckstrncpy(cmdbuf,p,CMDBL); /* Copy result back */
+ free(p); /* Free temporary storage */
+ p = NULL;
+ prompt(xxstring); /* Reprint the prompt */
+ printf("%s",cmdbuf); /* Reprint partial command */
+ repars = 1; /* Force reparse */
+ continue;
+ }
+ } else
#endif /* CK_RECALL */
- if (!quiet) {
-#ifdef COMMENT
-#ifndef NOSPL
- if (maclvl > -1)
- printf("Macro: %s; ",
- m_arg[maclvl][0] ?
- m_arg[maclvl][0] : "");
-#endif /* NOSPL */
- if (tlevel > -1)
- printf("Command file: %s, line %d\n",
- tfnam[tlevel] ? tfnam[tlevel] : "",
- tfline[tlevel]
- );
-#else
- if (xcmdsrc > 0) {
- printf("Command stack:\n");
- shostack();
- }
-#endif /* COMMENT */
- }
- cmini(ckxech); /* (fall thru) */
+ cmderr();
- case -3: /* Empty command OK at top level */
- repars = 0; /* Don't need to reparse. */
- continue; /* Go back and get another command. */
+ cmini(ckxech); /* (fall thru) */
- default: /* Command was successful. */
+ case -3: /* Empty command OK at top level */
+ repars = 0; /* Don't need to reparse. */
+ continue; /* Go back and get another command. */
+
+ default: /* Command was successful. */
#ifndef NOSPL
- debug(F101,"parser preparing to continue","",maclvl);
+ debug(F101,"parser preparing to continue","",maclvl);
#endif /* NOSPL */
- debug(F101,"parser success","",success);
- repars = 0; /* Don't need to reparse. */
- continue; /* Go back and get another command. */
- }
+ debug(F101,"parser success","",success);
+ repars = 0; /* Don't need to reparse. */
+ continue; /* Go back and get another command. */
+ }
}
#ifndef NOSPL
debug(F101,"parser breaks out of while loop","",maclvl);
}
if (x < 0)
return(NULL);
- if (chkarray(vbi,d) > 0) { /* Array is declared? */
+ if (chkarray(vbi,d) >= 0) { /* Array is declared? */
vbi -= ARRAYBASE; /* Convert name to index */
if (a_dim[vbi] >= d) { /* If subscript in range */
char **ap;
#ifdef NOLOCAL
goto outerr;
#else
- if (ttchk() < 0) {
- printf("?Connection %s %s is not open.\n",
- network ? "to" : "on",
- ttname
- );
- return(0);
- }
+ if (ttchk() < 0) {
+ if (!network) {
+ if (carrier != CAR_OFF) {
+ int x;
+ x = ttgmdm();
+ if ((x > -1) && ((x & BM_DCD) == 0)) {
+ printf(
+"?Carrier signal required but not present - Try SET CARRIER-WATCH OFF.\n"
+ );
+ return(0);
+ }
+ } else {
+ printf(
+"?Problem with serial port or modem or cable - Try SHOW COMMUNICATIONS.\n"
+ );
+ return(0);
+ }
+ }
+ printf("?Connection %s %s is not open or not functioning.\n",
+ network ? "to" : "on",
+ ttname
+ );
+ return(0);
+ }
if (ttvt(speed,flow) < 0) {
printf("?OUTPUT initialization error\n");
return(0);
int x = 0, i;
extern int srvcdmsg;
extern char * cdmsgfile[];
+ char * ssl;
+ char * krb4;
+ char * krb5;
+
#ifndef NOCMDL
extern char * bannerfile;
debug(F110,"herald bannerfile",bannerfile,0);
/* The following generates bad code in SCO compilers. */
/* Observed in both OSR5 and Unixware 2 -- after executing this */
/* statement when all conditions are false, x has a value of -32. */
- if (noherald || bgset > 0 || (bgset != 0 && backgrd != 0)) x = 1;
+ if (noherald || quiet || bgset > 0 || (bgset != 0 && backgrd != 0))
+ x = 1;
#else
x = 0;
- if (noherald)
+ if (noherald || quiet)
x = 1;
else if (bgset > 0)
x = 1;
x = 1;
#endif /* COMMENT */
+ ssl = "";
+ krb4 = "";
+ krb5 = "";
+#ifdef CK_AUTHENTICATION
+#ifdef CK_SSL
+ ssl = "+SSL";
+#endif /* CK_SSL */
+#ifdef KRB4
+ krb4 = "+KRB4";
+#endif /* KRB4 */
+#ifdef KRB5
+ krb5 = "+KRB5";
+#endif /* KRB5 */
+#endif /* CK_AUTHENTICATION */
+
if (x == 0) {
#ifdef datageneral
printf("%s, for%s\n",versio,ckxsys);
#ifdef OSK
printf("%s, for%s\n",versio,ckxsys);
#else
- printf("%s, for%s\n\r",versio,ckxsys);
+#ifdef CK_64BIT
+ printf("%s, for%s%s%s%s (64-bit)\n\r",versio,ckxsys,ssl,krb4,krb5);
+#else
+ printf("%s, for%s%s%s%s\n\r",versio,ckxsys,ssl,krb4,krb5);
+#endif/* CK_64BIT */
#endif /* OSK */
#endif /* datageneral */
- printf(" Copyright (C) 1985, 2004,\n");
+ printf(" Copyright (C) 1985, %s,\n", ck_cryear);
printf(" Trustees of Columbia University in the City of New York.\n");
#ifdef OS2
shoreg();
/* Automatic arrays do not use the localhead list */
for (i = 0; i < 28; i++) { /* Free any local arrays */
- if (aa_ptr[cmdlvl][i]) { /* Does this one exist? */
- dclarray((char)(i+ARRAYBASE),0); /* Destroy global one */
+ if (aa_ptr[cmdlvl][i]) { /* Does this one exist? */
+ dclarray((char)(i+ARRAYBASE),-1); /* Destroy global one */
a_ptr[i] = aa_ptr[cmdlvl][i];
a_dim[i] = aa_dim[cmdlvl][i];
aa_ptr[cmdlvl][i] = (char **)NULL;
aa_dim[cmdlvl][i] = 0;
} else if (aa_dim[cmdlvl][i] == -23) { /* Secret code */
- dclarray((char)(i+ARRAYBASE),0); /* (see pusharray()) */
+ dclarray((char)(i+ARRAYBASE),-1); /* (see pusharray()) */
aa_ptr[cmdlvl][i] = (char **)NULL;
aa_dim[cmdlvl][i] = 0;
}
tlevel--; /* and pop take level */
cmdlvl--; /* and command level */
quiet = xquiet[cmdlvl];
+ vareval = xvarev[cmdlvl];
} else
tlevel = -1;
} else if (cmdstk[cmdlvl].src == CMD_MD) { /* In a macro? */
debug(F010,"popclvl mac mrval[maclvl+1]",mrval[maclvl+2],0);
quiet = xquiet[cmdlvl];
+ vareval = xvarev[cmdlvl];
if (maclvl > -1) {
a_ptr[0] = m_xarg[maclvl];
a_dim[0] = n_xarg[maclvl] - 1;
int lines = 0;
#ifdef KUI
extern CKFLOAT tt_linespacing[];
+ extern tt_cursor_blink;
#endif /* KUI */
#ifdef PCFONTS
int i;
printf(" %19s: %-13s %13s: %-15s\n","Echo",
duplex ? "local" : "remote","Locking-shift",showoff(sosi));
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
- printf(" %19s: %-13s %13s: %-15s\n","Newline-mode",
- showoff(tnlm),"Cr-display",tt_crd ? "crlf" : "normal");
+ printf(" %19s: %-13s %13s: %-15s\n","Newline-mode", showoff(tnlm),
+ "Cr-display",tt_crd ? "crlf" : "normal");
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
printf(" %19s: %-13s %13s: %-15s\n","Cursor",
+#ifdef KUI
+ (tt_cursor == 2) ? (tt_cursor_blink ?
+ "full (*)" : "full (.)") :
+ (tt_cursor == 1) ? (tt_cursor_blink ?
+ "half (*)" : "half (.)") :
+ (tt_cursor_blink ? "underline (*)" : "underline (.)"),
+#else /* KUI */
(tt_cursor == 2) ? "full" :
(tt_cursor == 1) ? "half" : "underline",
+#endif /* KUI */
#ifdef CK_AUTODL
"autodownload",autodl == TAD_ON ?
(adl_err ? "on, error stop" : "on, error continue") :
"Width",tt_cols[VTERM]);
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
#ifdef KUI
- printf(" %19s: %-13f %13s: %-15d\n","Line spacing",tt_linespacing[VTERM],
+ printf(" %19s: %-12f %14s: %-15d\n","Line spacing",tt_linespacing[VTERM],
"Display Height",VscrnGetDisplayHeight(VTERM));
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
#endif /* KUI */
printf("\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
{
- extern int trueblink, truereverse, trueunderline, trueitalic;
+ extern int trueblink, truedim, truereverse, trueunderline, trueitalic;
printf(
- " Attribute: blink: %-3s reverse: %-3s underline: %-3s italic: %-3s\n",
- trueblink?"on":"off", truereverse?"on":"off",
- trueunderline?"on":"off", trueitalic?"on":"off");
+ " Attribute: \
+blink: %-3s dim: %-3s italic: %-3s reverse: %-3s underline: %-3s\n",
+ trueblink?"on":"off", truedim?"on":"off", trueitalic?"on":"off",
+ truereverse?"on":"off", trueunderline?"on":"off");
if (++lines > cmd_rows - 3) { if (!askmore()) return; else lines = 0; }
}
{
#ifdef CK_APC
if (apcstatus == APC_ON) s = "on";
else if (apcstatus == APC_OFF) s = "off";
- else if (apcstatus == APC_ON|APC_UNCH) s = "unchecked";
- else if (apcstatus == APC_ON|APC_NOINP) s = "no-input";
- else if (apcstatus == APC_ON|APC_UNCH|APC_NOINP) s = "unchecked-no-input";
+ else if (apcstatus == (APC_ON|APC_UNCH)) s = "unchecked";
+ else if (apcstatus == (APC_ON|APC_NOINP)) s = "no-input";
+ else if (apcstatus == (APC_ON|APC_UNCH|APC_NOINP))
+ s = "unchecked-no-input";
printf(" %19s: %-13s %13s: %-15s\n",
"APC", s,
#ifdef CK_AUTODL
"Idle-action", getiact());
#endif /* CKTIDLE */
-#ifndef NOTRIGGER
- printf(" %19s: %-13s\n","Trigger",
- tt_trigger[0] ? tt_trigger[0] : "(none)");
-#endif /* NOTRIGGER */
+ printf(" %19s: %-13s ","Lf-display", tt_lfd ? "crlf" : "normal");
#ifdef UNIX
#ifndef NOJC
- printf(" %19s: %-13s\n\n","Suspend", showoff(xsuspend));
+ printf("%13s: %-15s","Suspend", showoff(xsuspend));
#endif /* NOJC */
#endif /* UNIX */
+ printf("\n");
+#ifndef NOTRIGGER
+ printf(" %19s: %-13s\n","Trigger",
+ tt_trigger[0] ? tt_trigger[0] : "(none)");
+#endif /* NOTRIGGER */
printf("\n");
+
(VOID) shoesc(escape);
#ifndef NOCSETS
shotcs(tcsl,tcsr); /* Show terminal character sets */
#ifndef NOSPL
case SHBUI: /* Built-in variables */
+ line[0] = NUL;
if ((y = cmtxt("Variable name or pattern","",&s,xxstring)) < 0)
return(y);
ckstrncpy(line,s,LINBUFSIZ);
printf(" Macro echo: %s\n", showoff(mecho));
printf(" Macro error: %s\n", showoff(merror[cmdlvl]));
printf(" Quiet: %s\n", showoff(quiet));
+ printf(" Variable evaluation: %s [\\%%x and \\&x[] variables]\n",
+ vareval ? "recursive" : "simple");
printf(" Function diagnostics: %s\n", showoff(fndiags));
printf(" Function error: %s\n", showoff(fnerror));
#ifdef CKLEARN
#ifdef PRINTSWI
extern int printtimo, printertype, noprinter;
extern char * printterm, * printsep;
+ extern int prncs;
#ifdef BPRINT
extern int printbidi;
#endif /* BPRINT */
} else
printf(" /END-OF-JOB-STRING:(none)\n");
printf(" /JOB-HEADER-FILE:%s\n",printsep ? printsep : "(none)");
+ printf(" /CHARACTER-SET: %s\n",txrinfo[prncs]->keywd);
#endif /* PRINTSWI */
printf("\n");
break;
printf(" Command autodownload: (not available)\n");
#endif /* CK_AUTODL */
printf(" Command bytesize: %d bits\n", (cmdmsk == 0377) ? 8 : 7);
+ printf(" Command error-display: %d\n", cmd_err);
#ifdef CK_RECALL
printf(" Command recall-buffer-size: %d\n",cm_recall);
#else
}
#endif /* IKSD */
#ifdef DEBUG
- printf("\n Debug log: %s\n", deblog ? debfil : "(none)");
+ printf("\n Debug log: %s", deblog ? debfil : "(none)");
+ {
+ extern int debtim;
+ if (debtim) printf(" (timestamps)");
+ printf("\n");
+ }
#endif /* DEBUG */
#ifndef NOXFER
printf(" Packet log: %s\n", pktlog ? pktfil : "(none)");
#endif /* NOXFER */
#ifndef NOLOCAL
- printf(" Session log: %s\n", seslog ? sesfil : "(none)");
+ printf(" Session log: %s", seslog ? sesfil : "(none)");
+ {
+ extern int sessft, slogts, slognul;
+ switch (sessft) {
+ case XYFT_T: printf(" (text)"); break;
+ case XYFT_B: printf(" (binary)"); break;
+ case XYFT_D: printf(" (debug)"); break;
+ }
+ if (slogts) printf("(timestamped)");
+ if (slognul) printf("(null-padded)");
+ printf("\n");
+ }
+
#endif /* NOLOCAL */
#ifdef TLOG
printf(" Transaction log: %s (%s)\n",
break;
#endif /* KUI */
+#ifndef NOFRILLS
+#ifndef NORENAME
+ case SHOREN:
+ (VOID) shorename();
+ break;
+#endif /* NORENAME */
+#endif /* NOFRILLS */
+
default:
printf("\nNothing to show...\n");
return(-2);
static int xerror = 0;
int divbyzero = 0;
static char *cp;
-static long tokval;
+static CK_OFF_T tokval;
static char curtok;
-static long expval;
+static CK_OFF_T expval;
-#define LONGBITS (8*sizeof (long))
+#define LONGBITS (8*sizeof (CK_OFF_T))
#define NUMBER 'N'
#define N_EOT 'E'
x = chknum(s);
#endif /* CKFLOAT */
if (x > 0) {
- tokval = atoi(s);
+ tokval = ckatofs(s);
} else {
if (cmdlvl == 0 && !x_ifnum && !xerror)
printf("Bad number - \"%s\"\n",tbuf);
#endif /* COMMENT */
}
-static long
+static CK_OFF_T
#ifdef CK_ANSIC
-expon(long x, long y)
+expon(CK_OFF_T x, CK_OFF_T y)
#else
-expon(x,y) long x,y;
+expon(x,y) CK_OFF_T x,y;
#endif /* CK_ANSIC */
/* expon */ {
- long result = 1;
+ CK_OFF_T result = 1;
int sign = 1;
if (y < 0) return(0);
if (x < 0) {
*/
static VOID
factor() {
- long oldval;
+ CK_OFF_T oldval;
simple();
if (curtok == '^') {
oldval = expval;
static VOID
termp() {
while (curtok == '*' || curtok == '/' || curtok == '%' || curtok == '&') {
- long oldval;
+ CK_OFF_T oldval;
char op;
op = curtok;
curtok = gettok(); /* skip past operator */
}
}
-static long
+static CK_OFF_T
#ifdef CK_ANSIC
-fact(long x)
+fact(CK_OFF_T x)
#else
-fact(x) long x;
+fact(x) CK_OFF_T x;
#endif /* CK_ANSIC */
/* fact */ { /* factorial */
- long result = 1;
+ CK_OFF_T result = 1;
while (x > 1)
result *= x--;
return(result);
termp();
}
-static long
+static CK_OFF_T
#ifdef CK_ANSIC
-gcd(long x, long y)
+gcd(CK_OFF_T x, CK_OFF_T y)
#else
-gcd(x,y) long x,y;
+gcd(x,y) CK_OFF_T x,y;
#endif /* CK_ANSIC */
/* gcd */ { /* Greatest Common Divisor */
int nshift = 0;
while (!(x & 1)) x >>= 1; /* eliminate unnecessary */
while (!(y & 1)) y >>= 1; /* powers of 2 */
if (x < y) { /* force x to be larger */
- long t;
+ CK_OFF_T t;
t = x;
x = y;
y = t;
x -= y;
}
if (x == 0 || y == 0) return((x + y) << nshift); /* gcd is non-zero one */
- else return((long) 1 << nshift); /* else gcd is 1 */
+ else return((CK_OFF_T) 1 << nshift); /* else gcd is 1 */
}
/*
static VOID
exprp() {
while (windex("+-|<>#@",curtok) != NULL) {
- long oldval;
+ CK_OFF_T oldval;
char op;
op = curtok;
curtok = gettok(); /* skip past operator */
exprp();
}
-static long
+static CK_OFF_T
xparse() {
curtok = gettok();
expr();
char *
evala(s) char *s; {
- long v; /* Numeric value */
+ CK_OFF_T v; /* Numeric value */
if (!s) return("");
xerror = 0; /* Start out with no error */
divbyzero = 0;
cp = s; /* Make the argument global */
v = xparse(); /* Parse the string */
- return(xerror ? "" : ckltoa(v)); /* Return empty string on error */
+ return(xerror ? "" : ckfstoa(v)); /* Return empty string on error */
}
/*
/*
Call with:
char a = single character designator for the array, e.g. "a".
- int n = size of array.
+ int n = size of array. -1 means to undeclare the array.
Returns:
0 or greater on success, having created the requested array with
with n+1 elements, 0..n. If an array of the same name existed
previously, it is destroyed. The new array has all its elements
- initialized to NULL pointers.
+ initialized to NULL pointers. When an array is successfully created,
+ the return value is its index (0 = 'a', 1 = 'b', and so on.)
-1 on failure (because 'a' out of range or malloc failure).
*/
int
c = a;
a -= ARRAYBASE; /* Convert name to number */
- rc = a;
+ rc = a; /* Array index will be return code */
if ((p = a_ptr[a]) != NULL) { /* Delete old array of same name */
if (a_link[a] > -1) { /* Is it a link? */
if (n == 0) { /* If we're just deleting it */
a_ptr[a] = (char **) NULL; /* Remove pointer to element list */
a_dim[a] = 0; /* Set dimension at zero. */
a_link[a] = -1; /* Unset link word */
- if (n == 0)
- return(0); /* If dimension 0, just deallocate. */
}
+ if (n < 0) /* If only undeclaring, */
+ return(0); /* we're done. */
p = (char **) malloc((n+1) * sizeof(char **)); /* Allocate for new array */
if (p == NULL) return(-1); /* Check */
a_ptr[a] = p; /* Save pointer to member list */
buf[4] = (x > 1) ? s[2] : NUL;
buf[5] = (x > 2) ? s[3] : NUL;
buf[6] = NUL;
+ debug(F110,"xarray buf[3]",&buf[3],0);
s = buf+2;
if (*s == '&') {
buf[1] = CMDQ;
buf[1] = '&';
s = buf;
}
+ debug(F110,"xarray s",s,0);
c = *(s+2);
if (isupper(c))
c = tolower(c);
x = (int)c - ARRAYBASE;
if (*(s+3) == '[')
*(s+3) = NUL;
- return((x < 0 || x > 'z' - ARRAYBASE || *(s+3)) ? -1 : x);
+ if (x < 0) {
+ return(-1);
+ }
+ if (x > ('z' - ARRAYBASE)) {
+ debug(F101,"xarray x out of range","",x);
+ return(-1);
+ }
+ if (*(s+3)) {
+ debug(F110,"xarray syntax",s,0);
+ return(-1);
+ }
+ return(x);
+}
+
+/*
+ boundspair() -- parses blah[n:m]
+
+ For use with array segment specifiers and compact substring notation.
+ Ignores the "blah" part, gets the values of n and m, which can be
+ numbers, variables, or arithmetic expressions; anything that resolves
+ to a number.
+
+ Call with:
+ s - string to parse
+ sep - array of permissible bounds separator chars
+ lo - pointer to low-bound result (or -1)
+ hi - pointer to hi-bound result (or -1)
+ zz - pointer to separator char that was encountered (or NUL)
+ Returns:
+ -1 on failure
+ 0 on success
+*/
+
+int
+#ifdef CK_ANSIC
+boundspair(char *s, char *sep, int *lo, int *hi, char *zz)
+#else
+boundspair(s,sep,lo,hi,zz) char *s, *sep, *zz; int *lo, *hi;
+#endif /* CK_ANSIC */
+{
+ int i, x, y, range[2], bc = 0;
+ char c = NUL, *s2 = NULL, buf[256], *p, *q, *r, *e[2], *tmp = NULL;
+
+ debug(F110,"boundspair s",s,0);
+ debug(F110,"boundspair sep",sep,0);
+
+ *lo = -1; /* Default bounds */
+ *hi = -1;
+ *zz = 0; /* Default bounds separator */
+
+ range[0] = -1; /* It's OK -- get contents */
+ range[1] = -1; /* of subscript brackets */
+ if (!s) s = "";
+ if (!*s)
+ return(-1);
+ makestr(&tmp,s); /* Make a pokeable copy */
+ p = tmp;
+ q = NULL;
+ r = NULL;
+ for (p = s; *p; p++) { /* Get the two elements */
+ if (*p == '[') {
+ bc++; /* Bracket counter */
+ if (bc == 1 && !q) q = p+1;
+ } else if (*p == ']') {
+ bc--;
+ if (bc == 0 && q) *p = NUL;
+ } else if (bc == 1) { /* If within brackers */
+ s2 = ckstrchr(sep,*p); /* Check for separator */
+ if (s2) {
+ debug(F000,"boundspair *s2","",*s2);
+ if (c) {
+ debug(F000,"boundspair","Too many separators",*s2);
+ makestr(&tmp,NULL);
+ return(-1);
+ }
+ c = *s2; /* Separator character */
+ *p = NUL;
+ r = p+1;
+ }
+ }
+ }
+ if (bc == 0 && !q) {
+ /* This allows such constructions as "show array a" */
+ debug(F110,"boundspair","no brackets",0);
+ makestr(&tmp,NULL);
+ return(0);
+ }
+ if (bc != 0 || !q) {
+ debug(F110,"boundspair","unbalanced or missing brackets",0);
+ makestr(&tmp,NULL);
+ return(-1);
+ }
+ if (!q) q = "";
+ if (!*q) q = "-1";
+ if (!r) r = "";
+ if (!*r) r = "-1";
+
+ e[0] = q;
+ e[1] = r;
+
+ debug(F000,"boundspair c","",c);
+ debug(F110,"boundspair q",q,0);
+ debug(F110,"boundspair r",r,0);
+
+ for (i = 0; i < 2 && e[i]; i++) {
+ y = 255; /* Expand variables, etc. */
+ s = buf;
+ zzstring(e[i],&s,&y);
+ s = evalx(buf); /* Evaluate it arithmetically */
+ if (s) if (*s)
+ ckstrncpy(buf,s,256);
+ if (!chknum(buf)) { /* Did we get a number? */
+ debug(F110,"boundspair element not numeric",buf,0);
+ makestr(&tmp,NULL); /* No, fail. */
+ return(-1);
+ }
+ range[i] = atoi(buf);
+ }
+ makestr(&tmp,NULL); /* Free temporary poked string */
+ *lo = range[0]; /* Return what we got */
+ *hi = range[1];
+ *zz = c;
+ debug(F101,"boundspair lo","",*lo);
+ debug(F101,"boundspair hi","",*hi);
+ return(0);
}
/* A R R A Y B O U N D S -- Parse array segment notation \&a[n:m] */
int
arraybounds(s,lo,hi) char * s; int * lo, * hi; {
int i, x, y, range[2];
- char buf[256], * p, * q;
+ char zz, buf[256], * p, * q;
char * tmp = NULL;
*lo = -1; /* Default bounds */
x = xarray(s); /* Check basic structure */
debug(F111,"arraybounds xarray",s,x);
-
if (x < 0) /* Not OK, fail. */
return(-1);
- range[0] = -1; /* It's OK -- get contents */
- range[1] = -1; /* of subscript brackets */
- makestr(&tmp,s); /* Make a pokeable copy */
- s = tmp;
- p = s;
- for (p = s, q = NULL; *p; p++) { /* First find the brackets */
- if (*p == '[') {
- q = p+1;
- } else if (*p == ']')
- break;
- }
- if (q && *p == ']') { /* If we have brackets... */
- int quitnow = 0;
- for (i = 0; i < 2 && !quitnow; i++) { /* Loop thru their contents */
- for (p = q; *p; p++) {
- if ((i == 0 && *p == ':') || *p == ']') {
- if (*p == ']')
- quitnow = 1;
- *p = NUL;
- if (*q) { /* We have something */
- y = 255; /* Expand variables, etc. */
- s = buf;
- zzstring(q,&s,&y);
- s = evalx(buf); /* Evaluate it arithmetically */
- if (s) if (*s)
- ckstrncpy(buf,s,256);
- if (!chknum(buf)) { /* Did we get a number? */
- makestr(&tmp,NULL); /* No, fail. */
- return(-1);
- }
- q = (i == 0) ? p+1 : NULL; /* Point to next if any */
- range[i] = atoi(buf); /* Set this one */
- }
- break;
- }
- }
- }
- }
- makestr(&tmp,NULL); /* Free temporary poked string */
- *lo = range[0]; /* Return what we got */
- *hi = range[1];
+ y = boundspair(s,":",lo,hi,&zz);
+ debug(F111,"arraybounds boundspair",s,y);
debug(F101,"arraybounds lo","",*lo);
debug(F101,"arraybounds hi","",*hi);
+ if (y < 0) /* Get bounds */
+ return(-1);
return(x);
}
p++;
sx = sxbuf; /* Where to put expanded subscript */
y = 16;
- zzstring(p,&sx,&y); /* Convert variables, etc. */
+ {
+ /* Even if VARIABLE-EVALUATION SIMPLE use RECURSIVE for subscripts */
+ /* NOTE: This is vulnerable to SIGINT and whatnot... */
+ int tmp = vareval; /* Save VARIABLE-EVALUATION setting */
+ vareval = 1; /* Force it to RECURSIVE */
+ zzstring(p,&sx,&y); /* Convert variables, etc. */
+ vareval = tmp; /* Restore VARIABLE-EVALUATION */
+ }
sx = sxbuf;
while (*sx == SP) sx++;
- debug(F110,"arraynam sx","",sx);
+ /* debug(F110,"arraynam sx","",sx); */
if (!*sx) { /* Empty brackets... */
*n = -17; /* (Secret code :-) */
return(-2);
return(0);
}
+/* chkarray returns 0 or greater if array exists, negative otherwise */
+
int
chkarray(a,i) int a, i; { /* Check if array is declared */
int x; /* and if subscript is in range */
-1 on failure (bad variable syntax, variable not defined or not numeric).
*/
int
-varval(s,v) char *s; int *v; {
+varval(s,v) char *s; CK_OFF_T *v; {
char valbuf[VALN+1]; /* s is pointer to variable name */
char name[256];
char *p;
valbuf[1] = NUL;
}
if (chknum(p)) { /* Convert numeric string to int */
- *v = atoi(p); /* OK */
+ *v = ckatofs(p); /* OK */
} else { /* Not OK */
p = evala(p); /* Maybe it's an expression */
if (!chknum(p)) /* Did it evaluate? */
return(-1); /* No, failure. */
else /* Yes, */
- *v = atoi(p); /* success */
+ *v = ckatofs(p); /* success */
}
return(0);
}
/* Returns -1 on failure, 0 on success */
int
-incvar(s,x,z) char *s; int x; int z; { /* Increment a numeric variable */
- int n; /* s is pointer to variable name */
+incvar(s,x,z) char *s; CK_OFF_T x; int z; { /* Increment a numeric variable */
+ CK_OFF_T n; /* s is pointer to variable name */
/* x is amount to increment by */
/* z != 0 means add */
/* z = 0 means subtract */
n += x;
else /* or decrement as requested. */
n -= x;
- addmac(s,ckitoa(n)); /* Replace old variable */
+ addmac(s,ckfstoa(n)); /* Replace old variable */
return(0);
}
takerr[cmdlvl] = takerr[cmdlvl-1]; /* and TAKE ERROR */
merror[cmdlvl] = merror[cmdlvl-1]; /* and MACRO ERROR */
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
xcmdsrc = CMD_MD;
cmdstk[cmdlvl].src = CMD_MD; /* Say we're in a macro */
cmdstk[cmdlvl].lvl = maclvl; /* and remember the macro level */
sprintf(line,"INPBUFSIZ=%d",INPBUFSIZ); /* SAFE */
makestr(&(optlist[noptlist++]),line);
#endif /* INPBUFSIZE */
+#ifdef LINBUFSIZ
+ sprintf(line,"LINBUFSIZ=%d",LINBUFSIZ); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* LINBUFSIZE */
#ifdef INBUFSIZE
sprintf(line,"INBUFSIZE=%d",INBUFSIZE); /* SAFE */
makestr(&(optlist[noptlist++]),line);
#endif /* WHATAMI */
#ifdef DYNAMIC
makestr(&(optlist[noptlist++]),"DYNAMIC");
-#endif /* IFDEBUG */
+#endif /* DYNAMIC */
#ifndef NOSPL
sprintf(line,"CMDDEP=%d",CMDDEP); /* SAFE */
makestr(&(optlist[noptlist++]),line);
makestr(&(optlist[noptlist++]),line);
#endif /* MAC_MAX */
+#ifdef _LARGEFILE_SOURCE
+ makestr(&(optlist[noptlist++]),"_LARGEFILE_SOURCE");
+#endif /* _LARGEFILE_SOURCE */
+
+#ifdef _FILE_OFFSET_BITS
+ sprintf(line,"_FILE_OFFSET_BITS=%d",_FILE_OFFSET_BITS); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* _FILE_OFFSET_BITS */
+
+#ifdef __USE_FILE_OFFSET64
+ makestr(&(optlist[noptlist++]),"__USE_FILE_OFFSET64");
+#endif /* __USE_FILE_OFFSET64 */
+
+#ifdef __USE_LARGEFILE64
+ makestr(&(optlist[noptlist++]),"__USE_LARGEFILE64");
+#endif /* __USE_LARGEFILE64 */
+
+#ifdef COMMENT
+#ifdef CHAR_MAX
+ sprintf(line,"CHAR_MAX=%llx",CHAR_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* CHAR_MAX */
+#ifdef UCHAR_MAX
+ sprintf(line,"UCHAR_MAX=%llx",UCHAR_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* UCHAR_MAX */
+#ifdef SHRT_MAX
+ sprintf(line,"SHRT_MAX=%llx",SHRT_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* SHRT_MAX */
+#ifdef USHRT_MAX
+ sprintf(line,"USHRT_MAX=%llx",USHRT_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* USHRT_MAX */
+#ifdef INT_MAX
+ sprintf(line,"INT_MAX=%llx",INT_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* INT_MAX */
+#ifdef UINT_MAX
+ sprintf(line,"UINT_MAX=%llx",UINT_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* UINT_MAX */
+#ifdef MAX_LONG
+ sprintf(line,"MAX_LONG=%llx",MAX_LONG); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* MAX_LONG */
+#ifdef LONG_MAX
+ sprintf(line,"LONG_MAX=%llx",LONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* LONG_MAX */
+#ifdef ULONG_MAX
+ sprintf(line,"ULONG_MAX=%llx",ULONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* ULONG_MAX */
+#ifdef MAXINT
+ sprintf(line,"MAXINT=%llx",MAXINT); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* MAXINT */
+#ifdef MAXLONG
+ sprintf(line,"MAXLONG=%llx",MAXLONG); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* MAXLONG */
+#ifdef NT
+#ifdef LLONG_MAX
+ sprintf(line,"LLONG_MAX=%I64x",LLONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* LLONG_MAX */
+#ifdef ULLONG_MAX
+ sprintf(line,"ULLONG_MAX=%I64x",ULLONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* ULLONG_MAX */
+#ifdef MAXLONGLONG
+ sprintf(line,"MAXLONGLONG=%I64x",MAXLONGLONG); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* MAXLONGLONG */
+#else
+#ifdef LLONG_MAX
+ sprintf(line,"LLONG_MAX=%llx",LLONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* LLONG_MAX */
+#ifdef ULLONG_MAX
+ sprintf(line,"ULLONG_MAX=%llx",ULLONG_MAX); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* ULLONG_MAX */
+#ifdef MAXLONGLONG
+ sprintf(line,"MAXLONGLONG=%llx",MAXLONGLONG); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* MAXLONGLONG */
+#endif
+#ifdef _INTEGRAL_MAX_BITS
+ sprintf(line,"_INTEGRAL_MAX_BITS=%d",_INTEGRAL_MAX_BITS); /* SAFE */
+ makestr(&(optlist[noptlist++]),line);
+#endif /* _INTEGRAL_MAX_BITS */
+#endif /* COMMENT */
+
#ifdef MINPUTMAX
sprintf(line,"MINPUTMAX=%d",MINPUTMAX); /* SAFE */
makestr(&(optlist[noptlist++]),line);
#ifdef UNIX
makestr(&(optlist[noptlist++]),"UNIX");
#endif /* UNIX */
+
#ifdef VMS
makestr(&(optlist[noptlist++]),"VMS");
#ifdef __VMS_VER
#ifdef VMSV70
makestr(&(optlist[noptlist++]),"VMSV70");
#endif /* VMSV70 */
-#endif /* VMS */
#ifdef OLD_VMS
makestr(&(optlist[noptlist++]),"OLD_VMS");
#endif /* OLD_VMS */
#ifdef NOVMSSHARE
makestr(&(optlist[noptlist++]),"NOVMSSHARE");
#endif /* NOVMSSHARE */
+#endif /* VMS */
+
#ifdef datageneral
makestr(&(optlist[noptlist++]),"datageneral");
#endif /* datageneral */
#ifdef AUX
makestr(&(optlist[noptlist++]),"AUX");
#endif /* AUX */
+
#ifdef OS2
makestr(&(optlist[noptlist++]),"OS2");
#ifdef NT
makestr(&(optlist[noptlist++]),"NT");
#endif /* NT */
#endif /* OS2 */
+
#ifdef OSK
makestr(&(optlist[noptlist++]),"OS9");
#endif /* OSK */
+
#ifdef MSDOS
makestr(&(optlist[noptlist++]),"MSDOS");
#endif /* MSDOS */
+
#ifdef DIRENT
makestr(&(optlist[noptlist++]),"DIRENT");
#endif /* DIRENT */
+
#ifdef SDIRENT
makestr(&(optlist[noptlist++]),"SDIRENT");
#endif /* SDIRENT */
+
#ifdef NDIR
makestr(&(optlist[noptlist++]),"NDIR");
#endif /* NDIR */
+
#ifdef XNDIR
makestr(&(optlist[noptlist++]),"XNDIR");
#endif /* XNDIR */
+
#ifdef SAVEDUID
makestr(&(optlist[noptlist++]),"SAVEDUID");
#endif /* SAVEDUID */
+
#ifdef RENAME
makestr(&(optlist[noptlist++]),"RENAME");
#endif /* RENAME */
+
#ifdef CK_TMPDIR
makestr(&(optlist[noptlist++]),"CK_TMPDIR");
#endif /* CK_TMPDIR */
+
#ifdef NOCCTRAP
makestr(&(optlist[noptlist++]),"NOCCTRAP");
#endif /* NOCCTRAP */
+
#ifdef NOCOTFMC
makestr(&(optlist[noptlist++]),"NOCOTFMC");
#endif /* NOCOTFMC */
+
#ifdef NOFRILLS
makestr(&(optlist[noptlist++]),"NOFRILLS");
#endif /* NOFRILLS */
+
#ifdef PARSENSE
makestr(&(optlist[noptlist++]),"PARSENSE");
#endif /* PARSENSE */
+
#ifdef TIMEH
makestr(&(optlist[noptlist++]),"TIMEH");
#endif /* TIMEH */
+
#ifdef NOTIMEH
makestr(&(optlist[noptlist++]),"TIMEH");
#endif /* NOTIMEH */
#ifdef SYSTIMEH
makestr(&(optlist[noptlist++]),"SYSTIMEH");
#endif /* SYSTIMEH */
+
#ifdef NOSYSTIMEH
makestr(&(optlist[noptlist++]),"SYSTIMEH");
#endif /* NOSYSTIMEH */
#ifdef SYSTIMEBH
makestr(&(optlist[noptlist++]),"SYSTIMEBH");
#endif /* SYSTIMEBH */
+
#ifdef NOSYSTIMEBH
makestr(&(optlist[noptlist++]),"SYSTIMEBH");
#endif /* NOSYSTIMEBH */
+
#ifdef UTIMEH
makestr(&(optlist[noptlist++]),"UTIMEH");
#endif /* UTIMEH */
+
#ifdef SYSUTIMEH
makestr(&(optlist[noptlist++]),"SYSUTIMEH");
#endif /* SYSUTIMEH */
#ifdef CK_NEED_SIG
makestr(&(optlist[noptlist++]),"CK_NEED_SIG");
#endif /* CK_NEED_SIG */
+
#ifdef CK_TTYFD
makestr(&(optlist[noptlist++]),"CK_TTYFD");
#endif /* CK_TTYFD */
+
#ifdef NETCONN
makestr(&(optlist[noptlist++]),"NETCONN");
#endif /* NETCONN */
+
#ifdef TCPSOCKET
makestr(&(optlist[noptlist++]),"TCPSOCKET");
#ifdef NOTCPOPTS
#ifdef USE_UU_LOCK
makestr(&(optlist[noptlist++]),"USE_UU_LOCK");
#endif /* USE_UU_LOCK */
+#ifdef HAVE_LOCKDEV
+ makestr(&(optlist[noptlist++]),"HAVE_LOCKDEV");
+#endif /* HAVE_LOCKDEV */
#ifdef HAVE_BAUDBOY
makestr(&(optlist[noptlist++]),"HAVE_BAUDBOY");
#endif /* HAVE_BAUDBOY */
+#ifdef HAVE_OPENPTY
+ makestr(&(optlist[noptlist++]),"HAVE_OPENPTY");
+#endif /* HAVE_OPENPTY */
+#ifdef TTPTYCMD
+ makestr(&(optlist[noptlist++]),"TTPTYCMD");
+#endif /* TTPTYCMD */
#ifdef NOUUCP
makestr(&(optlist[noptlist++]),"NOUUCP");
#endif /* NOUUCP */
#ifdef __FreeBSD__
makestr(&(optlist[noptlist++]),"__FreeBSD__");
#endif /* __FreeBSD__ */
+#ifdef FREEBSD4
+ makestr(&(optlist[noptlist++]),"FREEBSD4");
+#endif /* FREEBSD4 */
+#ifdef FREEBSD8
+ makestr(&(optlist[noptlist++]),"FREEBSD8");
+#endif /* FREEBSD8 */
+#ifdef FREEBSD9
+ makestr(&(optlist[noptlist++]),"FREEBSD9");
+#endif /* FREEBSD9 */
#ifdef __linux__
makestr(&(optlist[noptlist++]),"__linux__");
#endif /* __linux__ */
#ifdef HPUX
makestr(&(optlist[noptlist++]),"HPUX");
#endif /* HPUX */
+#ifdef HPUX9
+ makestr(&(optlist[noptlist++]),"HPUX9");
+#endif /* HPUX9 */
+#ifdef HPUX10
+ makestr(&(optlist[noptlist++]),"HPUX10");
+#endif /* HPUX10 */
+#ifdef HPUX1000
+ makestr(&(optlist[noptlist++]),"HPUX1000");
+#endif /* HPUX1000 */
+#ifdef HPUX1100
+ makestr(&(optlist[noptlist++]),"HPUX1100");
+#endif /* HPUX1100 */
#ifdef HPUXPRE65
makestr(&(optlist[noptlist++]),"HPUXPRE65");
#endif /* HPUXPRE65 */
#ifdef MINIX
makestr(&(optlist[noptlist++]),"MINIX");
#endif /* MINIX */
+#ifdef MINIX2
+ makestr(&(optlist[noptlist++]),"MINIX2");
+#endif /* MINIX2 */
+#ifdef MINIX3
+ makestr(&(optlist[noptlist++]),"MINIX3");
+#endif /* MINIX3 */
+#ifdef MINIX315
+ makestr(&(optlist[noptlist++]),"MINIX315");
+#endif /* MINIX315 */
#ifdef C70
makestr(&(optlist[noptlist++]),"C70");
#endif /* C70 */
#ifdef SOLARIS8
makestr(&(optlist[noptlist++]),"SOLARIS8");
#endif /* SOLARIS8 */
+#ifdef SOLARIS9
+ makestr(&(optlist[noptlist++]),"SOLARIS9");
+#endif /* SOLARIS9 */
+#ifdef SOLARIS10
+ makestr(&(optlist[noptlist++]),"SOLARIS10");
+#endif /* SOLARIS10 */
#endif /* SOLARIS */
#ifdef SUNOS4
makestr(&(optlist[noptlist++]),"MACOSX10");
#endif
#ifdef MACOSX103
+ makestr(&(optlist[noptlist++]),"MACOSX10e");
+#endif
+#ifdef COMMENT
+/* not used */
+#ifdef MACOSX103
makestr(&(optlist[noptlist++]),"MACOSX103");
#endif
+#endif /* COMMENT */
#ifdef sgi
makestr(&(optlist[noptlist++]),"sgi");
#ifdef i386
makestr(&(optlist[noptlist++]),"i386");
#endif
+#ifdef __i386
+ makestr(&(optlist[noptlist++]),"__i386");
+#endif
+#ifdef __x86
+ makestr(&(optlist[noptlist++]),"__x86");
+#endif
+#ifdef __amd64
+ makestr(&(optlist[noptlist++]),"__amd64");
+#endif
+#ifdef _ILP32
+ makestr(&(optlist[noptlist++]),"_ILP32");
+#endif
+#ifdef _ILP64
+ makestr(&(optlist[noptlist++]),"_ILP64");
+#endif
+#ifdef _LP32
+ makestr(&(optlist[noptlist++]),"_LP32");
+#endif
+#ifdef _LP64
+ makestr(&(optlist[noptlist++]),"_LP64");
+#endif
+#ifdef __LP32__
+ makestr(&(optlist[noptlist++]),"__LP32__");
+#endif
+#ifdef __LP64__
+ makestr(&(optlist[noptlist++]),"__LP64__");
+#endif
+#ifdef _XGP4_2
+ makestr(&(optlist[noptlist++]),"_XGP4_2");
+#endif
+#ifdef __ppc__
+ makestr(&(optlist[noptlist++]),"__ppc__");
+#endif
+#ifdef __ppc32__
+ makestr(&(optlist[noptlist++]),"__ppc32__");
+#endif
+#ifdef __ppc64__
+ makestr(&(optlist[noptlist++]),"__ppc64__");
+#endif
+#ifdef CK_64BIT
+ makestr(&(optlist[noptlist++]),"CK_64BIT");
+#endif
#ifdef i286
makestr(&(optlist[noptlist++]),"i286");
#endif
#ifdef M_I286
makestr(&(optlist[noptlist++]),"M_I286");
#endif
+#ifdef __sparc
+ makestr(&(optlist[noptlist++]),"__sparc");
+#endif
+#ifdef __sparcv8
+ makestr(&(optlist[noptlist++]),"__sparcv8");
+#endif
+#ifdef __sparcv9
+ makestr(&(optlist[noptlist++]),"__sparcv9");
+#endif
#ifdef mc68000
makestr(&(optlist[noptlist++]),"mc68000");
#endif
#ifdef __STDC__
makestr(&(optlist[noptlist++]),"__STDC__");
#endif
+#ifdef cplusplus
+ makestr(&(optlist[noptlist++]),"cplusplus");
+#endif
#ifdef __DECC
makestr(&(optlist[noptlist++]),"__DECC");
#ifdef __DECC_VER
makestr(&(optlist[noptlist++]),"NOLOEARN");
#endif /* NOLOEARN */
#endif /* CKLEARN */
+
#ifdef NOFLOAT
makestr(&(optlist[noptlist++]),"NOFLOAT");
#else
#endif /* CK_TAPI */
#ifdef CK_SSL
makestr(&(optlist[noptlist++]),"CK_SSL");
+#ifdef OPENSSL_VERSION_TEXT
+ ckmakmsg(line,LINBUFSIZ,
+ "OPENSSL_VERSION_TEXT=","\"",OPENSSL_VERSION_TEXT,"\"");
+ makestr(&(optlist[noptlist++]),line);
+#endif /* OPENSSL_VERSION_TEXT */
#endif /* CK_SSL */
-
debug(F101,"initoptlist noptlist","",noptlist);
sh_sort(optlist,NULL,noptlist,0,0,0);
}
printf("%s\n",versio);
if (inserver)
return(1);
+
debug(F101,"shofea NOPTLIST","",NOPTLIST);
initoptlist();
debug(F101,"shofea noptlist","",noptlist);
printf("Major optional features included:\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+ if (sizeof(CK_OFF_T) == 8) {
+ printf(" Large files and large integers (64 bits)\n");
+ if (++lines > cmd_rows - 3) {
+ if (!askmore()) return(1); else lines = 0;
+ }
+ }
#ifdef NETCONN
printf(" Network support (type SHOW NET for further info)\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
printf(" Telnet CAST Encryption\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
#endif /* CK_CAST */
+
#ifdef CK_KERBEROS
#ifdef KRB5
#ifdef ALLOW_KRB_3DES_ENCRYPT
#endif /* ALLOW_KRB_3DES_ENCRYPT */
#endif /* KRB5 */
#endif /* CK_KERBEROS */
+
#endif /* CK_ENCRYPTION */
#endif /* CK_AUTHENTICATION */
#ifdef CK_FORWARD_X
printf("Major optional features not included:\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+ if (sizeof(CK_OFF_T) <= 4) {
+ printf(" No large files or large integers\n");
+ if (++lines > cmd_rows - 3) {
+ if (!askmore()) return(1); else lines = 0;
+ }
+ }
+
#ifdef NOXFER
printf(" No file-transfer protocols\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
flag = 1;
#endif /* CK_XYZ */
+#ifdef NOFLOAT
+ printf(" No floating-point arithmetic\n");
+ if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+ flag = 1;
+ printf(" No S-Expressions (LISP interpreter)\n");
+ if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+ flag = 1;
+#else
+#ifdef NOSEXP
+ printf(" No S-Expressions (LISP interpreter)\n");
+ if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
+ flag = 1;
+#endif /* NOSEXP */
+#endif /* NOFLOAT */
+
#ifdef NOTLOG
printf(" No transaction log\n");
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
if (++lines > cmd_rows - 3) { if (!askmore()) return(1); else lines = 0; }
flag = 1;
#endif /* CK_CAST */
+
+#ifdef COMMENT
#ifdef CK_KERBEROS
#ifdef KRB5
#ifndef ALLOW_KRB_3DES_ENCRYPT
#endif /* ALLOW_KRB_3DES_ENCRYPT */
#endif /* KRB5 */
#endif /* CK_KERBEROS */
+#endif /* COMMENT */
+
#endif /* OS2 */
#endif /* CK_ENCRYPTION */
#endif /* CK_AUTHENTICATION */
" endian",
NULL
);
- if (!prtopt(&lines,line)) return(0);
- if (!prtopt(&lines,"")) return(0); /* Start a new section */
- sprintf(line,"sizeofs: int=%ld",sizeof(int)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
- sprintf(line,"long=%ld",sizeof(long)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
- sprintf(line,"short=%ld",sizeof(short)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
- sprintf(line,"char=%ld",sizeof(char)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
- sprintf(line,"char*=%ld",sizeof(char *)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
-#ifdef LONG_MAX
- sprintf(line,"LONG_MAX=%d",LONG_MAX); /* SAFE */
-#endif /* LONG_MAX */
-#ifdef CKFLOAT
- sprintf(line,"float=%ld",sizeof(float)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
- sprintf(line,"double=%ld",sizeof(double)); /* SAFE */
- if (!prtopt(&lines,line)) return(0);
+ {
+/* Whether to use %d or %ld with sizeof is a portability issue, so... */
+ int size = 0;
+
+ if (!prtopt(&lines,line)) return(0);
+ if (!prtopt(&lines,"")) return(0); /* Start a new section */
+
+ size = (int)sizeof(int);
+ sprintf(line,"sizeofs: int=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+ size = (int)sizeof(long);
+ sprintf(line,"long=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+#ifndef OS2
+ /* Windows doesn't have off_t */
+ size = (int)sizeof(off_t);
+ sprintf(line,"off_t=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+#endif /* OS2 */
+
+ size = (int)sizeof(CK_OFF_T);
+ sprintf(line,"CK_OFF_T=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+#ifdef BIGBUFOK
+ size = (int)sizeof(size_t);
+ sprintf(line,"size_t=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+#endif /* BIGBUFOK */
+
+ size = (int)sizeof(short);
+ sprintf(line,"short=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+ size = (int)sizeof(char);
+ sprintf(line,"char=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+ size = (int)sizeof(char *);
+ sprintf(line,"char*=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+ size = (int)sizeof(float);
+ sprintf(line,"float=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+
+ size = (int)sizeof(double);
+ sprintf(line,"double=%d",size); /* SAFE */
+ if (!prtopt(&lines,line)) return(0);
+ }
+
#ifdef FNFLOAT
if (!prtopt(&lines,"")) return(0); /* Start a new section */
if (!prtopt(&lines,"floating-point:")) return(0);
sprintf(line,"rounding=%d",fp_rounding); /* SAFE */
if (!prtopt(&lines,line)) return(0);
#endif /* FNFLOAT */
-#endif /* CKFLOAT */
prtopt(&lines,"");
return(0);
#include "ckcsym.h"
#ifndef NOICP
-/* C K U U S 6 -- "User Interface" for Unix Kermit (Part 6) */
-
/*
Authors:
Frank da Cruz <fdc@columbia.edu>,
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#include "ckcnet.h" /* Network symbols */
#include <signal.h>
+#ifndef NOSTAT
+#ifdef VMS
+/* 2010-03-09 SMS. VAX C needs help to find "sys". It's easier not to try. */
+#include <stat.h>
+#else /* def VMS */
+#include <sys/stat.h>
+#endif /* def VMS [else] */
+#endif /* NOSTAT */
+
#ifdef VMS
#ifndef TCPSOCKET
#include <errno.h>
zincnt, quiet, repars, techo, network, nzxopts, what, filepeek, recursive;
extern int xaskmore, tt_rows, tt_cols, cmd_cols, g_matchdot, diractive,
- xcmdsrc, nscanfile, reliable, nolinks;
+ xcmdsrc, nscanfile, reliable, nolinks, cmflgs;
#ifdef VMSORUNIX
extern int zgfs_dir, zgfs_link;
#ifndef NOSPL
int askflag = 0; /* ASK-class command active */
+int echostars = 0; /* ASKQ should echo asterisks */
extern char **a_ptr[];
extern int a_dim[];
extern char **m_xarg[];
extern int zchkod, zchkid;
+/* C K U U S 6 -- "User Interface" for Unix Kermit (Part 6) */
+
struct keytab deltab[] = { /* DELETE Command Options */
{ "/all", DEL_ALL, CM_INV },
{ "/after", DEL_AFT, CM_ARG },
};
int nqvswtab = sizeof(qvswtab)/sizeof(struct keytab);
+static struct keytab renamsw[] = {
+ { "/collision", REN_OVW, CM_ARG },
+#ifndef NOUNICODE
+ { "/convert", REN_XLA, CM_ARG },
+#endif /* NOUNICODE */
+ { "/fixspaces", REN_SPA, CM_ARG },
+ { "/l", DEL_LIS, CM_INV|CM_ABR },
+ { "/list", DEL_LIS, 0 },
+ { "/log", DEL_LIS, CM_INV },
+ { "/lower", REN_LOW, CM_ARG },
+ { "/nol", DEL_NOL, CM_INV|CM_ABR },
+ { "/nolist", DEL_NOL, 0 },
+ { "/nolog", DEL_NOL, CM_INV },
+ { "/quiet", DEL_QUI, CM_INV },
+ { "/replace", REN_RPL, CM_ARG },
+ { "/simulate", DEL_SIM, 0 },
+ { "/upper", REN_UPP, CM_ARG },
+ { "/verbose", DEL_VRB, CM_INV }
+};
+static int nrenamsw = sizeof(renamsw)/sizeof(struct keytab);
+
+static struct keytab renamset[] = {
+ { "collision", REN_OVW, 0 },
+ { "list", DEL_LIS, 0 }
+};
+static int nrenamset = sizeof(renamset)/sizeof(struct keytab);
+
+/* Args for RENAME /LOWER: and /UPPER: */
+
+static struct keytab r_upper[] = {
+ { "all", 1, 0 },
+ { "lower", 0, 0 }
+};
+
+static struct keytab r_lower[] = {
+ { "all", 1, 0 },
+ { "upper", 0, 0 }
+};
+
+/* Args for RENAME /COLLISION... */
+
+#define RENX_FAIL 0
+#define RENX_OVWR 1
+#define RENX_SKIP 2
+
+static struct keytab r_collision[] = {
+ { "fail", RENX_FAIL, 0 },
+ { "overwrite", RENX_OVWR, 0 },
+ { "proceed", RENX_SKIP, CM_INV },
+ { "skip", RENX_SKIP, 0 }
+};
+static int nr_collision = sizeof(r_collision)/sizeof(struct keytab);
+
struct keytab copytab[] = {
{ "/append", 998, 0 },
#ifndef NOSPL
{ "/nol", DEL_NOL, CM_INV|CM_ABR },
{ "/nolist", DEL_NOL, 0 },
{ "/nolog", DEL_NOL, CM_INV },
+ { "/overwrite", 994, CM_ARG },
+#ifndef NOXFER
+ { "/preserve", 995, 0 },
+#endif /* NOXFER */
{ "/quiet", DEL_QUI, CM_INV },
{ "/swap-bytes", 999, 0 },
#ifndef NOSPL
};
int ncopytab = sizeof(copytab)/sizeof(struct keytab);
+#define OVW_ALWAYS 0
+#define OVW_NEVER 1
+#define OVW_OLDER 2
+#define OVW_NEWER 3
+
+static struct keytab ovwtab[] = {
+ { "always", OVW_ALWAYS, 0 },
+ { "never", OVW_NEVER, 0 },
+ { "newer", OVW_NEWER, 0 },
+ { "older", OVW_OLDER, 0 }
+};
+static int novwtab = 4;
+
#ifndef NOXFER
static struct keytab gettab[] = { /* GET options */
{ "/as-name", SND_ASN, CM_ARG },
#define XXIFVE 54 /* IF VERSION */
#define XXIFDC 55 /* IF DECLARED */
#define XXIFGU 56 /* IF GUI */
+#define XXIFLN 57 /* IF LINK */
+#define XXIFDB 58 /* IF DEBUG */
struct keytab iftab[] = { /* IF commands */
{ "!", XXIFNO, 0 },
{ "command", XXIFCM, 0 },
{ "count", XXIFCO, 0 },
{ "dcl", XXIFDC, CM_INV },
+ { "debug", XXIFDB, 0 },
{ "declared", XXIFDC, 0 },
{ "defined", XXIFDE, 0 },
#ifdef CK_TMPDIR
{ "kerbang", XXIFKG, CM_INV },
#endif /* UNIX */
{ "lgt", XXIFLG, 0 },
+#ifdef UNIX
+ { "link", XXIFLN, 0 },
+#endif /* UNIX */
{ "llt", XXIFLL, 0 },
{ "local", XXIFLO, 0 },
{ "match", XXIFMA, 0 },
/* Variables and prototypes */
+_PROTOTYP(static int doymdir,(int));
+_PROTOTYP(static int renameone,(char *,char *,
+ int,int,int,int,int,int,int,int,int,int,int));
+
#ifdef NETCONN
extern int nnetdir; /* How many network directories */
#endif /* NETCONN */
ifargs = 0; /* Count of IF condition words */
char ifcond[IFCONDLEN]; /* IF condition text */
char *ifcp; /* Pointer to IF condition text */
+extern int vareval;
#ifdef DCMDBUF
extern int
*ifcmd, *count, *iftest, *intime,
- *inpcas, *takerr, *merror, *xquiet;
+ *inpcas, *takerr, *merror, *xquiet, *xvarev;
#else
extern int ifcmd[]; /* Last command was IF */
extern int iftest[]; /* Last IF was true */
extern int takerr[];
extern int merror[];
extern int xquiet[];
+extern int xvarev[];
#endif /* DCMDBUF */
#else
extern int takerr[];
#define ASK_GUI 3
#define ASK_QUI 4
#define ASK_DEF 5
+#define ASK_ECH 6
static struct keytab asktab[] = {
{ "/default", ASK_DEF, CM_ARG },
};
static int nasktab = sizeof(asktab)/sizeof(struct keytab)-1;
+static struct keytab askqtab[] = {
+ { "/default", ASK_DEF, CM_ARG },
+ { "/echo", ASK_ECH, CM_ARG },
+ { "/gui", ASK_GUI,
+#ifdef KUI
+ 0
+#else /* KUI */
+ CM_INV
+#endif /* KUI */
+ },
+ { "/noecho", ASK_QUI, CM_INV },
+ { "/popup", ASK_PUP,
+#ifdef OS2
+ 0
+#else /* OS2 */
+ CM_INV
+#endif /* OS2 */
+ },
+ { "/quiet", ASK_QUI, 0 },
+ { "/timeout", ASK_TMO, CM_ARG },
+ { "", 0, 0 }
+};
+static int naskqtab = sizeof(askqtab)/sizeof(struct keytab)-1;
+
int
doask(cx) int cx; {
- extern int cmflgs, asktimer, timelimit;
+ extern int asktimer, timelimit;
#ifdef CK_RECALL
extern int on_recall;
#endif /* CK_RECALL */
+ int echochar = 0;
int popupflg = 0;
int guiflg = 0;
int nomsg = 0;
#endif /* CK_APC */
mytimer = asktimer; /* Inherit global ASK timer */
+ echostars = 0; /* For ASKQ */
if (cx == XXASK || cx == XXASKQ) {
struct FDB sw, fl;
"Variable name or switch",
"", /* default */
"", /* addtl string data */
- nasktab, /* addtl numeric data 1: tbl size */
+ ((cx == XXASK) ? nasktab : naskqtab), /* Table size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
- asktab, /* Keyword table */
+ ((cx == XXASK) ? asktab : askqtab), /* Keyword table */
&fl /* Pointer to next FDB */
);
cmfdbi(&fl, /* Anything that doesn't match */
switch (cmresult.nresult) {
case ASK_QUI:
nomsg = 1;
+ if (cx == XXASKQ)
+ echostars = 0;
break;
case ASK_PUP:
popupflg = 1;
mytimer = x;
break;
}
+ case ASK_ECH: {
+ if ((y = cmfld("Character to echo","*",&s,xxstring)) < 0)
+ return(y);
+ echochar = *s;
+ break;
+ }
case ASK_DEF: {
if ((y = cmfld("Text to supply if reply is empty",
"",&s,xxstring)) < 0)
y = 0;
if (*vnp == '%' || *vnp == '&') {
if ((y = parsevar(vnp,&x,&z)) < 0)
- return(y);
+ return(y);
}
} else if (cx != XXGOK && cx != XXRDBL) { /* Get variable name */
if ((y = cmfld("Variable name","",&s,NULL)) < 0) {
concb((char)escape); /* Enter CBREAK mode */
cmsavp(psave,PROMPTL); /* Save old prompt */
cmsetp(brstrip(p)); /* Make new prompt */
+
reprompt:
if (cx == XXASKQ) { /* For ASKQ, */
cmini(0); /* no-echo mode. */
+ if (echochar)
+ echostars = echochar;
} else { /* For others, regular echoing. */
cmini(ckxech);
+ echostars = 0;
}
askflag = 1;
x = -1; /* This means to reparse. */
return(success = ((y < 0 ? 0 : 1) && (asktimedout == 0)));
} else { /* ASK or ASKQ */
#ifdef CK_RECALL
- on_recall = 0;
+ on_recall = 0; /* Don't put response in recall buf */
#endif /* CK_RECALL */
+ askflag = 1; /* ASK[Q] always goes to terminal */
y = cmdgquo(); /* Get current quoting */
cmdsquo(0); /* Turn off quoting */
while (x == -1) { /* Prompt till they answer */
doincr(cx) int cx; { /* INCREMENT, DECREMENT */
char vnambuf[VNAML+1]; /* Buffer for variable names */
int eval = 0;
+ CK_OFF_T x;
eval = (cx == XX_DECR || cx == XX_INCR);
if ((y = cmfld("Variable name","",&s, eval ? xxstring : NULL)) < 0) {
} else return(y);
}
ckstrncpy(vnambuf,s,VNAML);
- if ((y = cmnum("by amount","1",10,&x,xxstring)) < 0)
+ if ((y = cmnumw("by amount","1",10,&x,xxstring)) < 0)
return(y);
if ((y = cmcfm()) < 0)
return(y);
static char *
xdial(s) char *s; { /* Run dial string thru macro */
int x, m;
+ char * s2;
+ s2 = NULL;
+ makestr(&s2,s); /* Copy the argument */
if (!dialmac) /* Dial macro name given? */
return(NULL);
if ((x = mxlook(mactab,dialmac,nmac)) < 0) /* Is the macro defined? */
return(NULL);
m = maclvl;
- x = dodo(x,s,0); /* Set up the macro */
+ x = dodo(x,s2,0); /* Set up the macro */
+ if (s2) free(s2);
if (x > 0) {
while (maclvl > m) /* Execute the parser */
parser(1);
int j = 0, t = 0, n = 0;
int xretries, xlcc;
+#ifdef COMMENT
debug(F101,"dodial cx","",cx);
debug(F111,"dodial diallcc",diallcc,diallcc);
+#endif /* COMMENT */
xretries = dialrtr; /* If retries not set, */
if (diallcc) { /* choose default based on */
#ifndef NOSPL
sav = s;
p = xdial(s); /* Apply DIAL macro now */
- if (p) s = p;
+ if (p) if (*p) s = p;
#endif /* NOSPL */
/* Dial confirmation */
char * file, * pat, * prefix; int paging, first, head, width, incs, outcs;
char * outfile; int z;
/* dotype */ {
- extern long ffc;
+ extern CK_OFF_T ffc;
char buf[TYPBUFL+2];
char * s = NULL;
int rc = 1, lines = 0, ucs2 = 0;
#ifndef MAC
errno = 0;
oldsig = signal(SIGINT, tytrap); /* Save current interrupt trap. */
- debug(F111,"type SIGINT trap set",ckitoa(errno),oldsig);
+ /* debug(F111,"type SIGINT trap set",ckitoa(errno),oldsig); */
#endif /* MAC */
#endif /* AMIGA */
#ifdef UNICODE
if (outcs > -1 && (incs != outcs || incs == FC_UCS2)) { /* Translating? */
- ffc = 0L;
+ ffc = (CK_OFF_T)0;
initxlate(incs,outcs); /* Set up translation functions */
} else
#endif /* UNICODE */
#define GREP_RECU 11 /* /RECURSIVE */
#define GREP_TYPE 12 /* /TYPE: */
#define GREP_OUTP 13 /* /OUTPUTFILE: */
+#define GREP_EXCP 14 /* /EXCEPT: */
static struct keytab greptab[] = {
{ "/count", GREP_COUN, CM_ARG },
{ "/dotfiles", GREP_DOTF, 0 },
+ { "/except", GREP_EXCP, CM_ARG },
{ "/linenumbers", GREP_NUMS, 0 },
{ "/nameonly", GREP_NAME, 0 },
{ "/nobackupfiles",GREP_NOBK, 0 },
};
static int ngreptab = sizeof(greptab)/sizeof(struct keytab)-1;
+static char * grep_except = NULL;
+
int
dogrep() {
int match, x, y, fc, getval, mc = 0, count = 0, bigcount = 0;
gr_noli = 0,
gr_noma = 0,
gr_nums = 0,
+ gr_excp = 0,
gr_page = xaskmore;
struct FDB sw, fl;
g_matchdot = matchdot; /* Save global matchdot setting */
outfile[0] = NUL;
+ makestr(&grep_except,NULL);
if (ofp != stdout) { /* In case of previous interruption */
if (ofp) fclose(ofp);
return(x);
ckstrncpy(outfile,s,CKMAXPATH);
break;
+ case GREP_EXCP: /* Exception pattern */
+ if (getval) {
+ if ((x = cmfld("Exception pattern",
+ "",
+ &s,
+ xxstring
+ )) < 0)
+ return(x);
+ gr_excp++;
+ makestr(&grep_except,s);
+ }
}
}
if (outfile[0]) {
while (len > 0 && (line[len-1] == '\n' || line[len-1] == '\r'))
line[--len] = NUL; /* Chop off terminators */
match = ckmatch(p,line,gr_case,1+4); /* Match against pattern */
+ if (match && gr_excp) {
+ if (ckmatch(grep_except,line,gr_case,1+4))
+ match = 0;
+ }
if (gr_noma) /* Invert match sense if requested */
match = !match;
if (match) { /* Have a matching line */
{ "/backup", DIR_BUP, 0 },
{ "/before", DIR_BEF, CM_ARG },
{ "/brief", DIR_BRF, 0 },
+ { "/count", DIR_COU, CM_ARG },
{ "/descending", DIR_DSC, CM_INV },
{ "/directories", DIR_DIR, 0 },
{ "/dotfiles", DIR_DOT, 0 },
{ "/nofollowlinks",DIR_NLK, 0 },
#endif /* CKSYMLINK */
{ "/noheading", DIR_NOH, 0 },
+#ifdef CKSYMLINK
+ { "/nolinks", DIR_NOL, 0 },
+#endif /* CKSYMLINK */
{ "/nomessage", DIR_NOM, 0 },
#ifdef CK_TTGWSIZ
{ "/nopage", DIR_NOP, 0 },
{ "/smaller-than",DIR_SMA, CM_ARG },
{ "/sort", DIR_SRT, CM_ARG },
{ "/summary", DIR_SUM, 0 },
+ { "/top", DIR_TOP, CM_ARG },
{ "/type", DIR_BIN, CM_ARG },
{ "/xfermode", DIR_TYP, 0 },
{ "/verbose", DIR_VRB, 0 },
}
int
-domydir() { /* Internal DIRECTORY command */
+domydir(cx) int cx; { /* Internal DIRECTORY command */
extern char *months[];
#ifdef VMS
_PROTOTYP( char * zrelname, (char *,char *) );
char name[CKMAXPATH+1], outfile[CKMAXPATH+1], *p = NULL, c = NUL;
char linebuf[CKMAXPATH+256];
- char * mstr = NULL, * dstr = NULL, * s2 = NULL;
- long len = 0, ndirs = 0, nfiles = 0, nbytes = 0, nmatches = 0;
+ char * mstr = NULL, * dstr = NULL, * s2 = NULL, * cv = NULL;
+ CK_OFF_T len = (CK_OFF_T)0, nbytes = (CK_OFF_T)0;
+ CK_OFF_T minsize = (CK_OFF_T)-1, maxsize = (CK_OFF_T)-1;
+ long ndirs = 0, nfiles = 0, nmatches = 0;
int verbose = 0, wild = 0, page = 0, n = 0, engdate = 0, summary = 0;
int heading = 0, xsort = 0, reverse = 0, sortby = 0, msg = 0;
int k, i = 0, x = 0, nx = 0, skey = 0, dlen = 0, itsadir = 0;
int show = 3, xfermod = 0, backup = 1, rc = 0, getval = 0;
+ int touch = 0;
int fs = 0;
int multiple = 0;
int cmifn1 = 1, cmifn2 = 0;
- long minsize = -1L, maxsize = -1L;
+ int dir_top = 0, dir_cou = 0;
+ int dontshowlinks = 0;
+ int dontfollowlinks = 0;
+ int arrayindex = -1;
struct FDB sw, fi, fl;
char dbuf[32], xbuf[32];
* dir_exc = NULL;
char * xlist[16];
+ debug(F101,"domydir cx","",cx);
+
g_matchdot = matchdot; /* Save global matchdot setting */
+#ifdef COMMENT
nolinks = 2; /* (it should already be 2) */
+#endif /* COMMENT */
outfile[0] = NUL; /* No output file yet */
if (ofp != stdout) { /* In case of previous interruption */
}
for (i = 0; i < 16; i++) xlist[i] = NULL;
+ dir_top = 0;
name[0] = NUL;
freedirlist(); /* In case not freed last time */
page = dir_page > -1 ? dir_page : xaskmore; /* Set option defaults */
#endif /* RECURSIVE */
show = dir_show > -1 ? dir_show : 3;
+ if (cx == XXWDIR) { /* WDIRECTORY */
+ debug(F100,"domydir WDIRECTORY","",0);
+ reverse = 1; /* Reverse chronological order */
+ xsort = 1;
+ sortby = DIRS_DT;
+ } else if (cx == XXHDIR) { /* HDIRECTORY */
+ debug(F100,"domydir HDIRECTORY","",0);
+ reverse = 1; /* Reverse order by size */
+ xsort = 1;
+ sortby = DIRS_SZ;
+ } else if (cx == XXTOUC) {
+ touch = 1;
+ verbose = 0;
+ }
+
#ifdef CK_TTGWSIZ
#ifdef OS2
ttgcwsz(); /* Screen length for more-prompting */
x = cmfdb(&sw); /* Parse something */
debug(F101,"domydir cmfdb","",x);
if (x < 0)
- return(x);
+ return(x);
if (cmresult.fcode != _CMKEY) /* Break out if not a switch */
break;
c = cmgbrk();
printf("?This switch does not take an argument\n");
return(-9);
}
- if (!getval && (cmgkwflgs() & CM_ARG)) {
+ k = cmresult.nresult;
+ if (!getval &&
+ (cmgkwflgs() & CM_ARG) && k != DIR_TOP && k != DIR_COU) {
printf("?This switch requires an argument\n");
return(-9);
}
- switch (k = cmresult.nresult) {
+ switch (k) {
+ case DIR_COU: {
+ dir_cou++;
+ if (getval) {
+ if ((x = cmfld("Variable for result","",&s,NULL)) < 0)
+ return(x);
+ makestr(&cv,s);
+ }
+ break;
+ }
case DIR_BRF: verbose = 0; break;
case DIR_VRB: verbose = 1; break;
#ifdef CK_TTGWSIZ
#ifdef CKSYMLINK
case DIR_LNK: /* Follow links */
+#ifdef COMMENT
+ /* A command switch shouldn't be setting a global value! */
nolinks = 0;
+#endif /* COMMENT */
cmifn1 &= ~(2);
+ dontfollowlinks = 0;
goto again;
case DIR_NLK: /* Don't follow links */
+#ifdef COMMENT
nolinks = 2;
+#endif /* COMMENT */
cmifn1 &= ~(2);
+ dontfollowlinks = 1;
goto again;
+ case DIR_NOL: /* Don't show links at all */
+ dontshowlinks = 1;
+ goto again;
#endif /* CKSYMLINK */
case DIR_NOM: msg = 0; break;
break;
case DIR_SMA:
- case DIR_LAR:
- if (!getval) break;
- if ((x = cmnum("File size in bytes","0",10,&y,xxstring)) < 0)
- return(x);
- fs++;
- show = 1;
- switch (cmresult.nresult) {
- case DIR_SMA: minsize = y; break;
- case DIR_LAR: maxsize = y; break;
- }
- break;
+ case DIR_LAR: {
+ CK_OFF_T y;
+ if (!getval) break;
+ if ((x = cmnumw("File size in bytes","0",10,&y,xxstring)) < 0)
+ return(x);
+ fs++;
+ show = 1;
+ switch (cmresult.nresult) {
+ case DIR_SMA: minsize = y; break;
+ case DIR_LAR: maxsize = y; break;
+ }
+ break;
+ }
+ case DIR_TOP:
+ dir_top = 10;
+ if (!getval) break;
+ if ((x = cmnum("How many lines to show","10",10,&y,xxstring))< 0)
+ return(x);
+ dir_top = y;
+ break;
#ifndef NOSPL
case DIR_ARR:
/* ^^^ START MULTIPLE */
- while (1) {
+ while (!touch) {
x = cmfld("Another filespec or Enter","",&s,xxstring);
if (x == -3)
break;
if ((x = cmcfm()) < 0) /* Get confirmation */
return(x);
+
+/*
+ Command is TOUCH and file doesn't exist.
+*/
+ if (touch) { /* TOUCH */
+ if ((cmresult.fcode == _CMIFI && zchki(s) == (CK_OFF_T)-1)) {
+ FILE * fp;
+ s = brstrip(s);
+ if (!iswild(s)) {
+#ifdef UNIX
+ if (s[0] == '~')
+ s = tilde_expand(s);
+#endif /* UNIX */
+ fp = fopen(s,"w"); /* Create file */
+ if (!fp) {
+ printf("?TOUCH %s: %s\n",s,ck_errstr());
+ rc = -9;
+ goto xdomydir;
+ }
+ fclose(fp);
+ cx = XXDIR; /* Now maybe list it. */
+ multiple++; /* Force new directory scan */
+ }
+ }
+ } else
+
if (cmresult.fcode != _CMIFI) { /* Nothing matched */
+ /*
+ Note - this never gets executed because after the "begin
+ multiple" hack above, the result is always _CMIFI).
+ */
char * m;
- if (*s == '/')
+ if (*s == '/')
#ifdef UNIXOROSK
- m = "does not match switch or name of accessible file";
+ m = "does not match switch or name of accessible file";
#else
#ifdef OS2
- m = "does not match switch or name of accessible file";
+ m = "does not match switch or name of accessible file";
#else
- m = "no switches match";
+ m = "no switches match";
#endif /* OS2 */
#endif /* UNIXOROSX */
- else
- m = "not found or not accessible";
- printf("\"%s\" - %s\n",s,m);
- rc = -9;
- goto xdomydir;
+ else
+ m = "not found or not accessible";
+ printf("\"%s\" - %s\n",s,m);
+ rc = -9;
+ goto xdomydir;
}
+#ifdef COMMENT
+ /* This can't be right because it's based on _CMCFM */
wild = cmresult.nresult; /* Wildcard was given? */
debug(F111,"domydir cmifi2",s,wild);
+#else
+ wild = 0;
+#endif /* COMMENT */
- if (outfile[0]) {
- ofp = fopen(outfile,"w"); /* Open output file */
+ if (outfile[0]) { /* If an output file was specified */
+ ofp = fopen(outfile,"w"); /* open it */
if (!ofp) {
printf("?Can't open output file %s: %s\n",outfile,ck_errstr());
ofp = stdout;
debug(F111,"domydir zxrewind",s,x);
} else {
#endif /* ZXREWIND */
+/*
+ In case we gave multiple filespecs they are now in {a,b,c} list format.
+ Which is a valid wildcard. We pass it to nzxpand() to get back the list
+ of files that match. This is fine for DIRECTORY but it's not find for
+ TOUCH because we want TOUCH to see those names so it can create the files.
+ So for now at least, if TOUCH is to be used to create files -- as opposed
+ to changing the timestamps of existing files -- it can only do one file
+ at a time.
+*/
nzxopts = (show == ZX_DIRONLY) ? ZX_DIRONLY :
(show == ZX_FILONLY ? ZX_FILONLY : 0);
if (matchdot) nzxopts |= ZX_MATCHDOT;
rc = -9;
goto xdomydir;
}
- array = xx;
- ap = a_ptr[array];
- if (n < 1) {
+ arrayindex = xx;
+ ap = a_ptr[xx]; /* Pointer to list of elements */
+ if (ap) /* Set element 0 to dimension */
+ makestr(&(ap[0]),"0"); /* which so far is zero */
+ if (n < 1) { /* No files matched, done. */
rc = 0;
goto xdomydir;
}
} else
#endif /* NOSPL */
- if (x < 1) {
+ if (!touch && x < 1) {
#ifdef CKROOT
extern int ckrooterr;
if (ckrooterr)
printf("?%s %s match - \"%s\"\n",
(x == 0) ? "No" : "Too many",
(show == 2) ? "directories" : "files",
- s
+ brstrip(s)
);
rc = -9;
goto xdomydir;
}
nx = x; /* Remember how many files */
+ if (nx < 2) xsort = 0; /* Skip sorting if none or one */
if (msg) {
makestr(&dirmsg,tmpbuf);
if (page > -1) /* Paging */
xaskmore = page;
- if (!verbose) { /* /BRIEF */
+ if (!verbose && !touch) { /* /BRIEF */
if (outfile[0]) { /* To file */
int k = 0;
znext(name);
rc = 1;
goto xdomydir;
} else {
- rc = filhelp(x,"","",n,0);
+ rc = xfilhelp(x,"","",n,0,1,
+ dir_aft,dir_bef,dir_naf,dir_nbf,
+ minsize,maxsize,!backup,16,xlist);
if (rc < 0)
goto xdomydir;
if (heading && rc > 0)
goto xdomydir;
}
}
- ndirs = nfiles = nbytes = 0L; /* Initialize counters */
+ ndirs = nfiles = 0L; /* Initialize counters */
+ nbytes = (CK_OFF_T)0;
if (dir_exc) /* Have exception list? */
makelist(dir_exc,xlist,16); /* Yes, convert to array */
#ifdef VMSORUNIX
itsadir = zgfs_dir; /* See if it's a directory */
#else
- itsadir = (len == -2 || isdir(name));
+ itsadir = (len == (CK_OFF_T)-2 || isdir(name));
#endif /* VMSOUNIX */
debug(F111,"domydir itsadir",name,itsadir);
if ((itsadir && (show == 1)) || (!itsadir && (show == 2))) {
}
/* Get here when we know we have selected this file */
- nmatches ++;
+ nmatches++;
if (itsadir) { /* Accumulate totals for summary */
ndirs++;
} else {
nfiles++;
nbytes += len;
}
- if (summary) { /* Summary only, no detail */
+ dstr = NULL;
+ if (cx == XXTOUC) { /* Command was TOUCH, not DIRECTORY */
+ char * filename;
+ struct zattr xx;
+ dstr = ckcvtdate("",0);
+ xx.date.val = dstr;
+ xx.date.len = (int)strlen(xx.date.val);
+ xx.lprotect.len = 0;
+ debug(F110,"domydir touch",name,0);
+ debug(F110,"domydir touch",dstr,0);
+ if (zstime(name,&xx,0) < 0) {
+ printf("?TOUCH %s: %s\n",name,ck_errstr());
+ rc = -9;
+ goto xdomydir;
+ }
+ if (!verbose) { /* No listing so skip detail */
+ znext(name);
+ continue;
+ }
+ }
+ if (summary) { /* Summary only, no detail */
znext(name);
continue;
}
+
#ifndef NOSPL
if (array) {
debug(F111,"domydir array",name,nfiles);
permission strings, date/time strings, and filenames, all of which have
known maximum lengths; none of these items is input from users. The
destination buffers are large enough to hold maximum sizes for any and
- all items.
+ all items. NOTE 2: If command was TOUCH, dstr was already set just
+ above.
*/
- dstr = zfcdat(name); /* Get modification date/time */
- debug(F111,"domydir zcfdat",dstr,0);
+ if (!dstr) { /* Get file's modification date/time */
+ dstr = zfcdat(name);
+ debug(F111,"domydir zcfdat",dstr,0);
+ }
if (!dstr) dstr = "";
{
/*
ckstrncpy(name,zrelname(name,cdp),CKMAXPATH);
#endif /* VMS */
- if (itsadir && len < 0) { /* Directory */
+ if (itsadir && len < (CK_OFF_T)0) { /* Directory */
#ifdef VMS
sprintf(linebuf,"%-22s%-10s %s %s",p,"<DIR>",dstr,name);
#else
#endif /* VMS */
} else { /* Regular file */
#ifdef VMS
- sprintf(linebuf,"%-22s%10ld %s %s", p, len, dstr, name);
+ sprintf(linebuf,"%-22s%10s %s %s", p, ckfstoa(len), dstr, name);
#else
if (p)
- sprintf(linebuf,"%10s%10ld %s %s", p, len, dstr, name);
+ sprintf(linebuf,"%10s%10s %s %s", p, ckfstoa(len), dstr, name);
else
- sprintf(linebuf,"%10ld %s %s", len, dstr, name);
+ sprintf(linebuf,"%10s %s %s", ckfstoa(len), dstr, name);
#endif /* VMS */
}
#ifdef UNIX
#ifdef CKSYMLINK
- if (zgfs_link) {
- int n, m;
+ if (zgfs_link) { /* If it's a symlink */
+ if (dontshowlinks) { /* If /NOLINKS don't show it */
+ znext(name);
+ continue;
+ }
+ }
+ if (zgfs_link && !dontfollowlinks) { /* Symlink and following links */
+ int n, m; /* Show what the link points to */
extern char linkname[];
n = strlen(linebuf);
m = strlen(linkname) + n;
if (n + dirmsglen + 2 < CKMAXPATH)
sprintf((char *)(linebuf+n)," %s", dirmsg); /* SAFE */
}
- if (xsort) { /* Sorting - save line */
+ if (xsort) { /* Sorting - save line */
i = strlen(linebuf);
if ((ndirlist >= nx) ||
!(dirlist[ndirlist] = (char *)malloc(i+1))) {
ndirlist++;
}
znext(name); /* Peek ahead to next file */
-
if (!xsort) {
- fprintf(ofp,"%s\n",linebuf);
+ if (!touch || (touch && verbose))
+ fprintf(ofp,"%s\n",linebuf);
if (page && (name[0] || heading)) { /* If /PAGE */
if (cmd_cols > 0) {
int x = strlen(linebuf);
}
#endif /* NOSPL */
if (xsort) {
+ int namepos;
skey = 0;
#ifdef VMS
+ namepos = dlen + 35;
switch (sortby) {
- case DIRS_NM: skey = dlen + 35; break;
+ case DIRS_NM: skey = namepos; break;
case DIRS_DT: skey = 33; break;
case DIRS_SZ: skey = 21;
}
#else
if (p) {
+ namepos = dlen + 24;
switch (sortby) {
- case DIRS_NM: skey = dlen + 24; break;
+ case DIRS_NM: skey = namepos; break;
case DIRS_DT: skey = 22; break;
case DIRS_SZ: skey = 10;
}
} else {
+ namepos = dlen + 14;
switch (sortby) {
- case DIRS_NM: skey = dlen + 14; break;
+ case DIRS_NM: skey = namepos; break;
case DIRS_DT: skey = 12; break;
case DIRS_SZ: skey = 0;
}
}
#endif /* VMS */
sh_sort(dirlist,NULL,ndirlist,skey,reverse,filecase);
+ if (dir_top > 0 && dir_top < ndirlist)
+ ndirlist = dir_top;
for (i = 0; i < ndirlist; i++) {
fprintf(ofp,"%s\n",dirlist[i]);
if (page && (i < ndirlist -1 || heading)) { /* If /PAGE */
#ifdef CKFLOAT
CKFLOAT gm;
#endif /* CKFLOAT */
- fprintf(ofp,"\n%ld director%s, %ld file%s, %ld byte%s",
+ fprintf(ofp,"\n%ld director%s, %ld file%s, %s byte%s",
ndirs,
(ndirs == 1) ? "y" : "ies",
nfiles,
(nfiles == 1) ? "" : "s",
- nbytes,
+ ckfstoa(nbytes),
(nbytes == 1) ? "" : "s"
);
#ifdef CKFLOAT
fprintf(ofp," (%0.2fMB)",gm);
#endif /* CKFLOAD */
fprintf(ofp,"\n\n");
+ } else if (dir_cou && !cv) {
+ fprintf(ofp,"\n Files: %ld\n\n",nfiles);
}
xdomydir:
+#ifndef NOSPL
+ if (dir_cou && cv) { /* /COUNT:var */
+ addmac(cv,ckitoa(nfiles)); /* set the variable */
+ makestr(&cv,NULL); /* free this */
+ }
+ if (ap) { /* If we have a result array */
+ if (a_dim[arrayindex] > nmatches) /* but it was not filled */
+ a_dim[arrayindex] = nmatches; /* adjust dimension */
+ }
+#endif /* NOSPL */
if (g_matchdot > -1) {
matchdot = g_matchdot; /* Restore these... */
g_matchdot = -1;
char *dc , *msg;
#ifdef OS2
- return(domydir());
+ return(domydir(cx));
#else /* OS2 */
if (nopush
#ifdef DOMYDIR /* Builds that domydir() by default */
- || (cx == XXDIR || cx == XXLDIR)
+ || (cx == XXDIR || cx == XXLDIR || cx == XXWDIR ||
+ cx == XXHDIR || cx == XXTOUC)
#endif /* DOMYDIR */
)
- return(domydir()); /* Built-in directory command */
+ return(domydir(cx)); /* Built-in directory command */
/* Use the system's directory command. */
int bad = 0;
int getval = 0, asking = 0;
int simulate = 0, rc = 0;
- long minsize = -1L, maxsize = -1L;
+ CK_OFF_T minsize = -1L, maxsize = -1L;
int havename = 0, confirmed = 0;
int qflag = 0;
int summary = 0;
if (*atmbuf) {
int x;
if (iswild(atmbuf) && nzxpand(atmbuf,nzxopts) == 0)
- printf("?No files match: %s\n",atmbuf);
+ printf("?No files match: %s\n",brstrip(atmbuf));
else if ((x = zchki(atmbuf)) == -1)
- printf("?File not found: %s\n",atmbuf);
+ printf("?File not found: %s\n",brstrip(atmbuf));
else if (x == -2)
printf("?Not a regular file: %s\n",atmbuf);
else
}
#endif /* NOSPL */
-#ifndef NOFRILLS
-/* Do the BUG command */
-
-int
-dobug() {
- int n;
- char * s = "";
- extern char * k_info_dir;
-
- if (k_info_dir)
- s = k_info_dir;
-
-#ifdef COMMENT
- printf("\n%s,%s\n Numeric: %ld",versio,ckxsys,vernum);
-#endif /* COMMENT */
- printf(
-"\nBefore requesting technical support from Columbia U., please consult:\n\n"
- );
- n = 7;
-#ifdef OS2
- printf(" . Your \"Kermit 95\" user manual (use the MANUAL command).\n");
- printf(" . The technical reference manual, \"Using C-Kermit\".\n");
- n += 2;
-#else
- printf(" . The book \"Using C-Kermit\" (type HELP for more info).\n");
- n += 1;
-#endif /* OS2 */
-
- printf(" . Your own organization's support staff, if any.\n");
- printf(
-" . The comp.protocols.kermit.misc newsgroup.\n");
- printf(
-" . The Kermit support website, http://www.columbia.edu/kermit/support.html \n"
- );
- printf(
-
-" . The Kermit FAQ, http://www.columbia.edu/kermit/newfaq.html \n");
-#ifdef OS2
- printf(
-" . The Kermit 95 FAQ, http://www.columbia.edu/kermit/k95faq.html \n");
- n++;
-#endif /* OS2 */
-
- printf(
-" . The C-Kermit FAQ, http://www.columbia.edu/kermit/ckfaq.html \n");
- n += 4;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("\n\
-If you still need help or have a bug to report after consulting these sources,"
- );
- printf("\nsend e-mail to:\n\n");
- n += 2;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(" mailto:kermit-support@columbia.edu\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("Or contact us by post:\n\n");
- printf(
-" Kermit, Columbia University, 612 W 115 Street, New York NY 10025, USA\n\n"
- );
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf("Or by fax at +1 (212) 662-6442.\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
-#ifdef COMMENT
- printf("Telephone support is available too:\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(
- " +1 (212) 854-5126, from anywhere, $25.00 USD per call, MC/Visa\n\n");
- n += 1;
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
-#endif /* COMMENT */
-#ifndef NOSHOW
-#ifndef NOFRILLS
- printf(
-"Before reporting problems, please use the SHOW FEATURES command\n");
- if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
- printf(
-"to get detailed program version and configuration information.\n\n");
-#endif /* NOFRILLS */
-#endif /* NOSHOW */
- return(1);
-}
-#endif /* NOFRILLS */
#ifndef NOSPL
#ifdef ZCOPY
int
docopy() {
- int i, x, listing = 0, nolist = 0, havename = 0;
+ int i, x, listing = 0, nolist = 0, havename = 0, getval;
+ char c;
struct FDB sw, fi;
+ int overwrite = OVW_ALWAYS;
int targetisdir = 0;
int targetlen = 0;
- int swapping = 0;
int appending = 0;
+ int preserve = 0;
+ int swapping = 0;
int fromb64 = 0;
int tob64 = 0;
int wild = 0;
int rc = 1;
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
+ char newname[CKMAXPATH], * nm;
+ nm = newname;
+
+ cmfdbi(&sw, /* 1st FDB - switches */
_CMKEY, /* fcode */
"Filename or switch", /* hlpmsg */
"", /* default */
copytab, /* Keyword table */
&fi /* Pointer to next FDB */
);
- cmfdbi(&fi, /* 1st FDB - file to type */
+ cmfdbi(&fi, /* 2nd FDB - file to copy */
_CMIFI, /* fcode */
"", /* hlpmsg */
"", /* default */
return(x);
switch (cmresult.fcode) {
case _CMKEY:
+ c = cmgbrk(); /* Get break character */
+ if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
+ printf("?This switch does not take an argument\n");
+ rc = -9;
+ return(rc);
+ }
+ if (!getval && (cmgkwflgs() & CM_ARG)) {
+ printf("?This switch requires an argument\n");
+ rc = -9;
+ return(rc);
+ }
switch (cmresult.nresult) {
case DEL_LIS:
case DEL_VRB:
case 998:
appending = 1;
break;
+ case 995:
+ preserve = 1;
+ break;
+ case 994:
+ if ((x = cmkey(ovwtab,novwtab,
+ "When to overwrite existing destination file",
+ "",xxstring)) < 0)
+ return(x);
+ overwrite = x;
+ break;
#ifndef NOSPL
case 997:
fromb64 = 1;
}
#ifdef COMMENT
/*
- This unreasonably prevented "COPY /APPEND *.* bifile" from concatenating
+ This unreasonably prevented "COPY /APPEND *.* bigfile" from concatenating
a bunch of files into one big file.
*/
if (appending && wild) {
#endif /* VMS */
debug(F110,"docopy line",line,0);
debug(F110,"docopy p",p,0);
+ debug(F110,"docopy nm",nm,0);
#ifdef ZXREWIND
z = zxrewind(); /* Rewind file list */
errno = 0; /* Reset errno */
- if (listing) printf("%s => %s ",line,p);
+ if (targetisdir) {
+ zstrip(line,&nm);
+ ckmakmsg(newname,CKMAXPATH,p,nm,NULL,NULL);
+ nm = newname;
+ } else {
+ nm = p;
+ }
+ if (overwrite) { /* Overwrite checking? */
+ if (zchki(nm) >= (CK_OFF_T)0) { /* Destination file exists? */
+
+ char d1[20], * d2;
+ char * n1, * n2;
+ int i, skip = 0;
+
+ i = strlen(line); /* Isolate source filename */
+ for (; i >= 0; i--) {
+ if (ISDIRSEP(line[i])) {
+ n1 = &line[i+1];
+ break;
+ }
+ }
+ debug(F110,"COPY n1", n1, 0);
+ i = strlen(nm); /* And destination filename */
+ for (; i >= 0; i--) {
+ if (ISDIRSEP(nm[i])) {
+ n2 = &nm[i+1];
+ break;
+ }
+ }
+ debug(F110,"COPY n2", n2, 0);
+ if (!strcmp(n1,n2)) { /* Same name? */
+ if (overwrite == OVW_NEVER) { /* Never overwrite? */
+ if (listing) /* Skip */
+ if (listing) printf("%s => %s (SKIPPED)\n",line,nm);
+ continue;
+ }
+ ckstrncpy(d1,zfcdat(line),20); /* Source file timestamp */
+ d2 = zfcdat(nm); /* Timestamp of dest file */
+ x = strcmp(d1,d2); /* Compare them */
+ if (((overwrite == OVW_NEWER) && (x < 0)) ||
+ ((overwrite == OVW_OLDER) && (x > 0))) {
+ if (listing)
+ if (listing) printf("%s => %s (SKIPPED)\n",line,nm);
+ continue;
+ }
+ }
+ }
+ }
+ if (listing) printf("%s => %s ",line,nm);
/* Straight copy */
if (!swapping && !appending && !fromb64 && !tob64) {
debug(F110,"COPY zcopy",line,0);
if ((x = zcopy(line,p)) < 0) { /* Let zcopy() do it. */
+ debug(F111,"COPY not OK",line,x);
switch (x) {
case -2:
if (listing)
printf("?%s\n",ck_errstr());
rc = 0;
}
- } else {
- if (listing) printf("(OK)\n");
+ } else { /* Regular copy succeeded */
+ debug(F110,"COPY OK..",newname,0);
+#ifndef NOXFER
+ if (preserve) { /* Handle /PRESERVE */
+ char * pstr = ""; /* File permissions string */
+ struct zattr xx; /* File attribute structure */
+ extern char * cksysid;
+
+ initattr(&xx); /* Initialize the struct */
+
+ xx.systemid.val = cksysid; /* Set our system ID */
+ xx.systemid.len = (int)strlen(cksysid);
+#ifdef CK_PERMS
+ pstr = zgperm(line); /* Get source file's permissions */
+#endif /* CK_PERMS */
+ xx.lprotect.val = pstr;
+ xx.lprotect.len = (int)strlen(pstr);
+ xx.date.val = zfcdat(line); /* Source file's timestamp */
+ xx.date.len = (int)strlen(xx.date.val);
+ if (zstime(nm,&xx,0) < 0) {
+ printf("?COPY /PRESERVE %s: %s\n",nm,ck_errstr());
+ rc = -9;
+ }
+ }
+#endif /* NOXFER */
+ if (listing && rc > -1)
+ printf("(OK)\n");
}
} else { /* Special options */
#endif /* ZCOPY */
#endif /* NOFRILLS */
+#ifndef NOCSETS
+#ifndef NOUNICODE
+static struct keytab * xfcstab = NULL; /* For RENAME /CONVERT: */
+static char cvtbufin[CKMAXPATH+8] = { NUL, NUL };
+static char cvtbufout[CKMAXPATH+8] = { NUL, NUL };
+static char * pcvtbufin = NULL;
+static char * pcvtbufout = NULL;
+
+static int /* Input function xgnbyte() */
+cvtfnin() {
+ CHAR c;
+ c = *pcvtbufin++;
+ return(c ? c : -1);
+}
+
+_PROTOTYP(int cvtfnout,(char)); /* Output function for xpnbyte() */
+int
+#ifdef CK_ANSIC
+cvtfnout(char c)
+#else
+cvtfnout(c) char c;
+#endif /* CK_ANSIC */
+{
+ if (pcvtbufout - cvtbufout >= CKMAXPATH)
+ return(-1);
+ *pcvtbufout++ = c;
+ *pcvtbufout = NUL;
+ return(1);
+}
+
+/* Convert a string from any charset to any other charset */
+
+char *
+cvtstring(s,csin,csout) char * s; int csin, csout; {
+ int c;
+ extern CK_OFF_T ffc;
+
+ ckstrncpy(cvtbufin,s,CKMAXPATH); /* Put it in a public place */
+ pcvtbufin = cvtbufin; /* with public pointers */
+ pcvtbufout = cvtbufout;
+ *pcvtbufout = NUL;
+
+ if (csin == csout) /* If the two sets are the same */
+ return((char *)cvtbufin); /* don't bother converting */
+
+ initxlate(csin,csout); /* Initialize the translator */
+
+ while ((c = xgnbyte(FC_UCS2,csin,cvtfnin)) > -1) { /* Loop thru string */
+ if (xpnbyte(c,TC_UCS2,csout,cvtfnout) < 0) {
+ ffc = (CK_OFF_T)0;
+ return("");
+ }
+ }
+ /* ffc is touched by xgnbyte() but this is not file transfer */
+ /* so we have to undo it */
+ ffc = (CK_OFF_T)0;
+ return((char *)cvtbufout);
+}
+#endif /* NOUNICODE */
+#endif /* NOCSETS */
+
#ifndef NORENAME
#ifndef NOFRILLS
#ifdef ZRENAME
+
+/* The RENAME command - expanded and improved in 8.0.212 April 2006 */
+
+static char * ren_sub[4] = { NULL,NULL,NULL,NULL }; /* For RENAME /REPLACE */
+
+int ren_list = 0; /* Default listing action for RENAME */
+int ren_coll = RENX_OVWR; /* Default collision action */
+
+int
+shorename() {
+ char * s;
+ switch (ren_coll) {
+ case RENX_FAIL: s = "fail"; break;
+ case RENX_OVWR: s = "overwrite"; break;
+ case RENX_SKIP: s = "proceed"; break;
+ }
+ printf(" rename collision: %s\n",s);
+ printf(" rename list: %s\n",showoff(ren_list));
+ return(1);
+}
+
+int
+setrename() { /* Parse SET RENAME options */
+ int x, y;
+ if ((x = cmkey(renamset,nrenamset,"","", xxstring)) < 0)
+ return(x);
+ switch (x) {
+ case REN_OVW: /* COLLISION */
+ if ((x = cmkey(r_collision,nr_collision,"","", xxstring)) < 0)
+ return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ ren_coll = x;
+ break;
+ case DEL_LIS: /* LIST */
+ return(seton(&ren_list));
+ }
+ return(success = 1);
+}
+
+/* Reverse a string - Assumes a single-byte character set */
+
+int
+gnirts(s1, s2, len) char * s1, * s2; int len; {
+ int n, m = 0;
+ if (!s1) /* Null source pointer, fail */
+ return(0);
+ n = (int) strlen(s1);
+ if (n > len-1) /* Source longer than dest, fail */
+ return(0);
+ s2[n--] = NUL; /* Deposit null byte at end of dest */
+ for (; n >= 0; n--) { /* Copy the rest backwards */
+ *s2++ = s1[n];
+ m++;
+ }
+ return(m);
+}
+
+/*
+ r e n a m e o n e
+
+ Worker function to rename one file for dorenam() (below).
+ old = name of file or directory to be renamed
+ new = new name (not required for /UPPER, /LOWER, and /REPLACE)
+ replacing = 1 if doing string replacement on the name
+ casing = 1 if converting name to lowercase, 2 if to uppercase
+ all = if doing case conversion on all names, not just monocase ones
+ converting = 1 if converting character sets
+ cset1 = character set to convert from (File Character Set index)
+ cset2 = character set to convert to (ditto, see ck?xla.h)
+ listing = 1 to show results of rename
+ nolist = 1 to be completely silent (don't even print error messages)
+ op = 1 means simulate, 2 means check for collision, 0 means rename
+ size = length of result buffer.
+ collision = action to take if destination file already exists:
+ 0 = fail
+ 1 = overwrite and succeed
+ 2 = skip and succeed
+ Returns:
+ 0: on failure to rename or when a forbidden collision would have occurred.
+ 1: on success (file was renamed or did not need to be renamed).
+ Note:
+ If this code is ever built on any platform that is not Unix, Windows,
+ VMS, or OS/2, this routine might need some adjustment.
+*/
+
+/* Opcodes for op... */
+#define REN_OP_SIM 1 /* Simulate */
+#define REN_OP_CHK 2 /* Check for collisions */
+
+static int
+renameone(old,new,
+ replacing,casing,all,converting,cset1,cset2,
+ listing,nolist,op,size,collision)
+ char * old, * new;
+ int replacing,casing,all,converting,cset1,cset2,
+ listing,nolist,op,size,collision;
+{
+ char buf[CKMAXPATH]; /* Temporary filename buffer */
+ char out[CKMAXPATH]; /* Buffer for new name */
+ char dir[CKMAXPATH]; /* Destination directory */
+ char pat[CKMAXPATH]; /* Path segment on old filename */
+
+ char * destdir; /* Destination directory, if any */
+ char * srcpath; /* Source path, if any */
+ int rc = 1, flag = 0, skip = 0; /* Control */
+ int honorcase = 0, replaced = 0;
+ int anchor = 0; /* 1 = beginning, 2 = end */
+ int occur = 0; /* Occurrence */
+ int minus = 0; /* Occurrence is negative */
+ int allbut = 0; /* Occurrence is "all but" */
+ int arg2isfile = 0; /* Arg2 ("new") is a filename */
+
+ debug(F110,"RENAMEONE old",old,0);
+ debug(F110,"RENAMEONE new",new,0);
+ debug(F110,"RENAMEONE ren_sub[0]",ren_sub[0],0);
+ debug(F110,"RENAMEONE ren_sub[1]",ren_sub[1],0);
+ debug(F110,"RENAMEONE ren_sub[2]",ren_sub[2],0);
+
+ if (op == REN_OP_SIM && !nolist) /* For convenience */
+ listing = 1;
+#ifndef NOSPL
+ honorcase = inpcas[cmdlvl]; /* Inherit SET CASE value */
+#else
+#ifdef UNIX
+ honorcase = 1;
+#else
+ honorcase = 0;
+#endif /* UNIX */
+#endif /* NOSPL */
+
+ if (!old) old = ""; /* In case of bad args */
+ if (!new) new = "";
+ if (!*old) return(success = 0);
+ ckstrncpy(out,new,CKMAXPATH); /* So we don't write into */
+ new = out; /* our argument... */
+ size = CKMAXPATH;
+
+ pat[0] = NUL; /* Assume no path in source file.. */
+ srcpath = pat;
+ {
+ int n; /* If the old name includes a path */
+ n = (int)strlen(old) - 1; /* put it in a separate place. */
+ for (; n >= 0; n--) { /* We are renaming the file only. */
+ if (ISDIRSEP(old[n])) {
+ ckstrncpy(pat,old,CKMAXPATH);
+ pat[n+1] = NUL;
+ old = old+n+1;
+ break;
+ }
+ }
+ }
+ debug(F110,"RENAMEONE old 2",old,0);
+ debug(F110,"RENAMEONE pat 2",pat,0);
+
+ dir[0] = NUL; /* Assume no destination directory */
+ destdir = dir;
+ if (*new) { /* If Arg2 given */
+ if (isdir(new)) { /* If it's a directory */
+ ckstrncpy(dir,new,CKMAXPATH); /* put it here */
+ } else { /* otherwise */
+ arg2isfile++; /* flag that it's a filename */
+ }
+ }
+ if (!casing && !replacing && !converting) {
+ if (!*new)
+ return(success = 0);
+ if (!arg2isfile) { /* Destination is a directory? */
+ if (!isdir(old)) { /* and source is not? */
+#ifndef VMS
+ int n, x = 0; /* Concatenate them */
+ if ((n = strlen(new)) > 0) /* so we can check for */
+ if (ISDIRSEP(new[n-1])) /* collisions. */
+ x++;
+ ckmakmsg(buf,size,new,x ? "" : "/", old, "");
+#else
+ ckmakmsg(buf,size,new, old, NULL, NULL);
+#endif /* VMS */
+ debug(F110,"RENAMEONE new new",new,0);
+ new = buf;
+ size = CKMAXPATH;
+ }
+ }
+ } else if (*new) { /* Directory to move file to */
+ int n, x = 0; /* after changing its name */
+ if (!isdir(new))
+ return(success = 0);
+#ifndef VMS
+ if ((n = strlen(new)) > 0)
+ if (ISDIRSEP(new[n-1]))
+ x++;
+ ckmakmsg(dir,CKMAXPATH,new,x ? "" : "/", "", "");
+#else
+ ckstrncpy(dir,new,CKMAXPATH);
+#endif /* VMS */
+ }
+
+#ifndef NOCSETS
+#ifndef NOUNICODE
+ if (converting) {
+ new = cvtstring(old,cset1,cset2);
+ }
+#endif /* NOUNICODE */
+#endif /* NOCSETS */
+
+ if (replacing) { /* Replacing strings */
+ int todo = 0;
+ int len0, len1, len2;
+ char c, *p, *s, *bp[3];
+
+ bp[0] = old; /* Original name */
+ bp[1] = ren_sub[0]; /* String to be replaced */
+ bp[2] = ren_sub[1]; /* What to replace it with */
+ if (!bp[2]) bp[2] = "";
+
+ len0 = (int)strlen(bp[0]); /* length of original filename */
+ len1 = (int)strlen(bp[1]); /* length of target substring */
+ len2 = (int)strlen(bp[2]); /* Length of replacement string */
+
+ if (ren_sub[2]) { /* Optional options */
+ p = ren_sub[2];
+ while ((c = *p++)) {
+ switch (c) {
+ case '^':
+ anchor = 1; occur = 0; minus = 0; allbut = 0; break;
+ case '$':
+ anchor = 2; occur = 0; minus = 0; allbut = 0; break;
+ case 'A': honorcase = 1; minus = 0; allbut = 0; break;
+ case 'a': honorcase = 0; minus = 0; allbut = 0; break;
+ case '-': minus = 1; break;
+ case '~': allbut = 1; break;
+ default:
+ if (isdigit(c)) {
+ occur = c - '0';
+ if (minus) occur = 0 - occur;
+ anchor = 0;
+ }
+ minus = 0;
+ }
+ }
+ }
+ if (anchor) { /* Anchored replacement... */
+ y = len0 - len1;
+ if (y > 0) {
+ int x;
+ switch (anchor) {
+ case 1: /* Anchored at beginning */
+ if (!ckstrcmp(bp[1],bp[0],len1,honorcase)) {
+ x = ckstrncpy(new,bp[2],size);
+ (VOID) ckstrncpy(new+x,bp[0]+len1,size-x);
+ replaced = 1;
+ }
+ break;
+ case 2: /* Anchored at end */
+ if (!ckstrcmp(bp[1],bp[0]+y,len1,honorcase)) {
+ x = ckstrncpy(new,bp[0],y+1);
+ (VOID) ckstrncpy(new+y,bp[2],size-x);
+ replaced = 1;
+ }
+ break;
+ }
+ }
+ if (!replaced) {
+ ckstrncpy(new,old,size); /* Keep old name */
+ replaced = 1;
+ }
+ } else { /* Replace all occurrences */
+ int j, n = 0; /* or a particular occurrence */
+ char c;
+ int x = 0;
+ char * s0 = NULL, * s1 = NULL, * s2 = NULL;
+ p = new; /* Pointer to new name */
+
+ if (occur < 0) { /* nth occurrence from the right */
+ occur = 0 - occur;
+ s0 = (char *)malloc(len0+1); /* Reverse original string */
+ if (s0) {
+ (VOID) gnirts(bp[0],s0,len0+1);
+ bp[0] = s0;
+ } else return(0);
+ s1 = (char *)malloc(len1+1); /* Reverse target string */
+ if (s1) {
+ (VOID) gnirts(bp[1],s1,len1+1);
+ bp[1] = s1;
+ } else return(0);
+ s2 = (char *)malloc(len2+1); /* Reverse replacement string */
+ if (s2) {
+ (VOID) gnirts(bp[2],s2,len2+1);
+ bp[2] = s2;
+ } else return(0);
+ debug(F111,"RENAMEONE s0",s0,len0);
+ debug(F111,"RENAMEONE s1",s1,len1);
+ debug(F111,"RENAMEONE s2",s2,len2);
+ }
+ s = bp[0]; /* Pointer to old name */
+ p = new; /* Pointer to new name */
+ j = len0 - len1 + 1; /* How much to scan */
+ while (j-- > 0) { /* For each character... */
+ if (!ckstrcmp(bp[1],s,len1,honorcase)) { /* Match? */
+ n++; /* Occurrence counter */
+ todo = (occur == 0) ||
+ (!allbut && n == occur) ||
+ (allbut && n != occur);
+ if (!todo) { /* Desired occurrence? */
+ size -= ckstrncpy(p,bp[1],size); /* No... */
+ p += len1; /* Copy target string */
+ s += len1; /* instead of replacement string */
+ continue;
+ }
+ if (len2) { /* If replacement string not empty */
+ size -= ckstrncpy(p,bp[2],size); /* Copy it */
+ p += len2;
+ }
+ s += len1; /* Advance source position */
+ } else { /* No match */
+ *p++ = *s++; /* just copy this character */
+ size--;
+ }
+ }
+ while ((*p++ = *s++)); /* Done copy the rest */
+ replaced = 1; /* Remember we changed the name */
+ if (s0) { /* Were we doing "all but"? */
+ debug(F110,"RENAMEONE new1",new,0);
+ x = (int)strlen(new); /* Unreverse the result */
+ if ((p = (char *)malloc(x+2))) {
+ (VOID) gnirts(new,p,x+2);
+ debug(F110,"RENAMEONE new2",new,0);
+ ckstrncpy(new,p,x+2);
+ free(p);
+ }
+ if (s0) free(s0); /* Free the temporary strings */
+ if (s1) free(s1);
+ if (s2) free(s2);
+ debug(F110,"RENAMEONE new3",new,0);
+ }
+ }
+ }
+ if (casing) { /* Changing case? */
+ char c, * t; /* See if mixed case. */
+ if (!replaced)
+ ckstrncpy(new,old,size); /* Copy old name to new name */
+ t = new;
+ while ((c = *t++)) {
+ if (islower(c)) flag |= 1; /* Have a lowercase letter */
+ else if (isupper(c)) flag |= 2; /* Have an uppercase letter */
+ if (flag == 3) break; /* Have a mixed-case name */
+ }
+ if (all || flag < 3) { /* Not skipping or not mixed case */
+ if (casing == 1 && flag != 1) /* Change case to lower */
+ (VOID) cklower(new);
+ else if (casing == 2 && flag != 2) /* Change case to upper */
+ (VOID) ckupper(new);
+ }
+ }
+ debug(F110,"XXX 1 new",new,0);
+ debug(F110,"XXX 1 old",old,0);
+ debug(F110,"XXX 1 srcpath",srcpath,0);
+ debug(F110,"XXX 1 destdir",destdir,0);
+
+ if (*destdir && !arg2isfile) { /* Moving without renaming */
+ ckstrncat(srcpath,old,CKMAXPATH);
+ old = srcpath;
+ new = destdir;
+ } else if (*destdir || *srcpath) { /* Were there any pathnames? */
+ char tmp[CKMAXPATH];
+ ckmakmsg(tmp,CKMAXPATH,srcpath,old,NULL,NULL);
+ ckstrncpy(old,tmp,CKMAXPATH);
+ if (*destdir) { /* Directory-to-move-to given? */
+ ckstrncat(destdir,new,CKMAXPATH);
+ new = destdir;
+ } else if (*srcpath && !arg2isfile) { /* Or was there a source path? */
+ ckstrncat(srcpath,new,CKMAXPATH);
+ new = srcpath;
+ }
+ }
+ debug(F110,"XXX 2",new,0);
+
+ skip = 0; /* Can we skip this one? */
+#ifdef COMMENT
+ if (casing && !replaced) {
+ skip = (((all == 0) && (flag == 3)) || (flag == casing)) ? 1 : 0;
+ if (!skip && destdir) skip = 0;
+ }
+#endif /* COMMENT */
+ if (!skip) {
+ if (!ckstrcmp(old,new,-1,1))
+ skip = 1;
+ }
+ if (op == 0 && !skip && (collision != RENX_OVWR)) {
+ if (zchki(new) > (CK_OFF_T)-1) { /* New file already exists? */
+ switch (collision) { /* Yes, take specified action */
+ case RENX_SKIP: /* Skip this one and proceed */
+ skip = 2;
+ break;
+ case RENX_FAIL: /* Or fail. */
+ skip = 3;
+ if (!listing && !nolist)
+ printf("?File already exists: %s\n",new);
+ }
+ }
+ }
+ debug(F110,"RENAMEONE new",new,0);
+ debug(F101,"RENAMEONE flag","",flag);
+ debug(F101,"RENAMEONE skip","",skip);
+ debug(F100,"RENAMEONE ----------------","",0);
+
+ if (skip == 3) {
+ if (listing) printf("%s => %s (SKIPPED: %s already exists)\n",
+ old,new,new);
+ rc = 0;
+ } else if (skip) { /* Skipping this one */
+ if (listing) printf("%s => %s (%s)\n",
+ old,new,
+ (skip == 2) ? "COLLISION: SKIPPED" : "SKIPPED");
+ } else { /* Have to rename this one */
+ if (op == REN_OP_CHK) { /* Checking for collisions */
+ return((zchki(new) > (CK_OFF_T)-1) ? 0 : 1 );
+ } else if (op == REN_OP_SIM) { /* Simulating */
+ if (listing) printf("%s => %s (SIMULATED)\n",old,new);
+ } else { /* Really renaming */
+ if (listing) printf("%s => %s ",old,new);
+ if (zrename(old,new) < 0) {
+ rc = 0;
+ if (listing)
+ printf("(FAILED: %s)\n",ck_errstr());
+ else if (!nolist)
+ printf("?%s\n",ck_errstr());
+ } else {
+ if (listing) printf("(OK)\n");
+ }
+ }
+ }
+ return(success = rc); /* Succeeds also if nothing needed to be renamed */
+}
+
int
dorenam() {
- /* Parse a file or a directory name */
- int i, x, z, listing = 0, havename = 0, wild = 0, rc = 1;
- int nolist = 0;
+#ifndef NOCSETS
+#ifndef NOUNICODE
+ extern int nfilc;
+ extern struct keytab fcstab[];
+ extern struct csinfo fcsinfo[];
+#endif /* NOUNICODE */
+#endif /* NOCSETS */
+ int cset1 = 0, cset2 = 0;
+
+ int i, x, z, fn, listing = 0, havename = 0, wild = 0, rc = 1, noarg = 0;
+ int nolist = 0, all = 0, casing = 0, replacing = 0, getval = 0, sim = 0;
+ int converting = 0, collision = 0;
+
+ char c;
struct FDB sw, fi;
- cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
+ collision = ren_coll; /* Inherit SET RENAME COLLISION */
+ listing = ren_list; /* Inhereit SET RENAME LIST */
+
+ if (ren_sub[0]) makestr(&(ren_sub[0]),NULL);
+ if (ren_sub[1]) makestr(&(ren_sub[1]),NULL);
+ if (ren_sub[2]) makestr(&(ren_sub[2]),NULL);
+ line[0] = NUL;
+ tmpbuf[0] = NUL;
+
+ cmfdbi(&sw, /* 1st FDB - switches */
_CMKEY, /* fcode */
"Filename or switch", /* hlpmsg */
"", /* default */
"", /* addtl string data */
- nqvswtab, /* addtl numeric data 1: tbl size */
+ nrenamsw, /* addtl numeric data 1: tbl size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
- qvswtab, /* Keyword table */
+ renamsw, /* Keyword table */
&fi /* Pointer to next FDB */
);
- cmfdbi(&fi, /* 1st FDB - file to type */
+ cmfdbi(&fi, /* 2nd FDB - file or directory name */
_CMIFI, /* fcode */
"", /* hlpmsg */
"", /* default */
"", /* addtl string data */
- 3, /* addtl numeric data 1 */
- 0, /* addtl numeric data 2 */
+ 3, /* Flags */
+ 0, /* 0 = Parse file or directory names */
xxstring,
NULL,
NULL
);
+ if (cmflgs == 1) {
+ printf("?File or directory name required\n");
+ return(-9);
+ }
while (!havename) {
+ noarg = 0;
x = cmfdb(&sw); /* Parse something */
- if (x < 0) /* Error */
- return(x);
- switch (cmresult.fcode) {
- case _CMKEY:
- switch (cmresult.nresult) {
- case DEL_LIS:
- case DEL_VRB:
+ if (x == -3) { /* They hit Enter prematurely */
+ printf("?Command incomplete\n");
+ return(-9);
+ } else if (x < 0) { /* Other error */
+ if (x == -1)
+ return(x);
+ if (iswild(atmbuf) && nzxpand(atmbuf,nzxopts) == 0)
+ printf("?No files match: %s\n",brstrip(atmbuf));
+ else if (zchki(atmbuf) == -1)
+ printf("?File not found: %s\n",brstrip(atmbuf));
+ else
+ printf("?Error with switch or filename: %s\n",brstrip(atmbuf));
+ return(-9);
+ }
+ fn = cmresult.nresult; /* For brevity */
+ switch (cmresult.fcode) { /* Handle each kind of field */
+ case _CMKEY: /* Keyword (switch) */
+ c = cmgbrk();
+ if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
+ printf("?This switch does not take an argument\n");
+ return(-9);
+ }
+ if (!getval && (cmgkwflgs() & CM_ARG))
+ noarg = 1; /* Remember arg is missing */
+ switch (cmresult.nresult) { /* Handle the switch */
+ case DEL_LIS: /* /LIST */
+ case DEL_VRB: /* /VERBOSE */
listing = 1;
break;
- case DEL_NOL:
- case DEL_QUI:
+ case DEL_NOL: /* /NOLIST */
+ case DEL_QUI: /* /QUIET */
nolist = 1;
listing = 0;
break;
+ case DEL_SIM: /* /SIMULATE */
+ sim = 1;
+ break;
+ case REN_UPP: /* /UPPER: */
+ case REN_LOW: /* /LOWER */
+ all = 1;
+ if (!noarg) {
+ if ((x = cmkey((fn == REN_UPP) ? r_upper : r_lower,
+ 2, "","all",xxstring)) < 0) {
+ if (x == -3)
+ x = 1;
+ else
+ return(x);
+ }
+ all = x;
+ }
+ /* 0 = don't convert; 1 = convert to lower; 2 = to upper */
+ casing = (fn == REN_UPP) ? 2 : 1;
+ converting = 0;
+ break;
+ case REN_OVW: /* /COLLISION */
+ if (!noarg) {
+ if ((x = cmkey(r_collision,
+ nr_collision,"","overwrite",xxstring))<0) {
+ if (x == -3)
+ x = RENX_OVWR;
+ else
+ return(x);
+ }
+ collision = x;
+ }
+ break;
+ case REN_RPL: /* /REPLACE: */
+ if (noarg) {
+ printf("?This switch requires an argument\n");
+ return(-9);
+ }
+ if ((x = cmfld("String to remove, or {{String1}{String2}}",
+ "",&s,xxstring)) < 0) {
+ if (x == -3) {
+ printf("?Target string required\n");
+ x = -9;
+ }
+ return(x);
+ }
+ if (s[0]) {
+ if (s[0] == '{' && s[1] == '{') /* Get the list */
+ makelist(s,ren_sub,3);
+ else
+ makestr(&(ren_sub[0]),s);
+ }
+ converting = 0;
+ break;
+
+ case REN_SPA: /* /FIXSPACES: */
+ if (!noarg)
+ if ((x = cmfld("Character or string to replace spaces with",
+ "_",&s,xxstring)) < 0)
+ if (x == -3)
+ s = "_";
+ else
+ return(x);
+ makestr(&(ren_sub[0])," ");
+ makestr(&(ren_sub[1]),noarg ? "_" : brstrip(s));
+ makestr(&(ren_sub[3]),NULL);
+ converting = 0;
+ break;
+
+#ifndef NOCSETS
+#ifndef NOUNICODE
+ case REN_XLA: /* /CONVERT:cset1:cset2 */
+ if (!xfcstab) { /* Make a copy of the file charset */
+ int i, x; /* table with CM_ARG set for each */
+ x = (nfilc + 1) * sizeof(struct keytab);
+ xfcstab = (struct keytab *)malloc(x);
+ if (!xfcstab) {
+ printf("?Memory allocation failure\n");
+ return(-9);
+ }
+ for (i = 0; i < nfilc; i++) {
+ xfcstab[i].kwd = fcstab[i].kwd;
+ xfcstab[i].kwval = fcstab[i].kwval;
+ xfcstab[i].flgs = fcstab[i].flgs | CM_ARG;
+ }
+ }
+ if ((x = cmswi(xfcstab,nfilc,
+ "Character-set of old name","",xxstring)) < 0) {
+ if (x == -3) {
+ printf("?Pair of character-set names required\n");
+ return(-9);
+ } else
+ return(x);
+ }
+ cset1 = x;
+ c = cmgbrk();
+ if (!getval) {
+ printf("?Secondcharacter-set name required\n");
+ return(-9);
+ }
+ if ((x = cmkey(fcstab,nfilc,
+ "Character-set of new name","",xxstring)) < 0) {
+ if (x == -3) {
+ printf("?Second character-set name required\n");
+ return(-9);
+ } else
+ return(x);
+ }
+ cset2 = x;
+ if (casing)
+ casing = 0;
+ if (ren_sub[0])
+ makestr(&(ren_sub[0]),NULL);
+ if (ren_sub[1])
+ makestr(&(ren_sub[1]),NULL);
+ if (ren_sub[2])
+ makestr(&(ren_sub[2]),NULL);
+ converting = 1;
+ break;
+#endif /* NOUNICODE */
+#endif /* NOCSETS */
}
break;
- case _CMIFI:
+ case _CMIFI: /* File or directory name */
s = cmresult.sresult;
havename = 1;
break;
default:
- return(-2);
+ printf("?File or directory name required\n");
+ return(-9);
}
}
+ if (havename) {
+ ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy of source name */
+ } else {
+ printf("?Internal error\n");
+ return(-9); /* Shouldn't happen */
+ }
wild = cmresult.nresult; /* Source specification wild? */
-
- ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy of source name */
- s = line;
-
if (!wild)
wild = iswild(line);
+ debug(F111,"RENAME WILD",line,wild);
+
p = tmpbuf; /* Place for new name */
+ p[0] = NUL;
+ replacing = ren_sub[0] ? 1 : 0;
+
+#ifdef COMMENT
+ if (!(casing || replacing || converting)) {
+ if ((x = cmofi(wild ? "Target directory" : "New name",
+ "",&s,xxstring)) < 0) { /* Get new name */
+ if (x == -3) {
+ printf("?%s required\n",
+ wild ? "Target directory" : "New name");
+ return(-9);
+ } else return(x);
+ }
+ ckstrncpy(p,s,TMPBUFSIZ); /* Make a safe copy of the new name */
+ }
+#else
if ((x = cmofi(wild ? "Target directory" : "New name",
- "",&s,xxstring)) < 0) { /* Get new name */
- if (x == -3) {
- printf("?%s required\n", wild ? "Target directory" : "New name");
- return(-9);
- } else return(x);
+ "",&s,xxstring)) < 0) { /* Get new name */
+ if (x == -3) {
+ if (casing || replacing || converting) {
+ s = "";
+ } else {
+ printf("?%s required\n",
+ wild ? "Target directory" : "New name");
+ return(-9);
+ }
+ } else return(x);
}
- ckstrncpy(p,s,TMPBUFSIZ); /* Make a safe copy of the new name */
- if ((y = cmcfm()) < 0) return(y);
+ ckstrncpy(p,s,TMPBUFSIZ); /* Make a safe copy of the new name */
+#endif /* COMMENT */
- if (!wild) { /* Just one */
- if (listing) printf("%s => %s ",line,p);
- if (zrename(line,p) < 0) {
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s\n",ck_errstr());
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
- return(success = rc);
+ if ((y = cmcfm()) < 0) return(y); /* Confirm the command */
+
+#ifdef COMMENT
+#ifndef NOUNICODE
+ if (converting) {
+ printf(" From: %s\n",fcsinfo[cset1].keyword);
+ printf(" To: %s\n",fcsinfo[cset2].keyword);
}
- if (!isdir(p)) { /* Multiple */
- printf( /* if target is not a directory */
+#endif /* NOUNICODE */
+ if (casing) {
+ printf("CASING: %s\n", (casing == 1) ? "LOWER" : "UPPER");
+ }
+ if (replacing) {
+ printf("REPLACING: '%s' with '%s'\n",
+ ren_sub[0],
+ ren_sub[1] ? ren_sub[1] : "");
+ }
+#endif /* COMMENT */
+
+ s = line;
+ if (!wild) /* Just one */
+ return(success =
+ renameone(s,p,
+ replacing,casing,all,converting,cset1,cset2,
+ listing,nolist,sim,TMPBUFSIZ,collision));
+
+ if (!casing && !replacing && !converting) { /* Multiple files */
+ if (!isdir(p)) {
+ printf( /* if target is not a directory */
"?Multiple source files not allowed if target is not a directory.\n");
- return(-9);
+ return(-9);
+ }
}
#ifdef COMMENT
else { /* Show full path of target */
sh_sort(mtchs,NULL,z,0,0,filecase); /* Alphabetize the filename list */
#endif /* UNIX */
-/*
- Note: COPY, RENAME, DELETE and similar commands should have options to
- stop or proceed when they are operating on multiple files and the operation
- fails.
-*/
- while (z-- > 0) {
+ /* For /COLLISION:FAIL make a silent pass to see if there would be any */
+
+ if (collision == RENX_FAIL) {
+ int n = 0;
+ char line[CKMAXPATH+2];
+ while (z-- > 0) {
+ if (!(z == 0 && !wild))
+ znext(line);
+ if (!line[0])
+ break;
+ if (!renameone((char *)line,p,
+ replacing,casing,all,converting,cset1,cset2,
+ 0,1,REN_OP_CHK,TMPBUFSIZ,RENX_FAIL))
+ n++;
+ }
+ if (n > 0) {
+ printf("?Failed: %d file%s would be overwritten\n",
+ n, (n != 1) ? "s" : "");
+#ifdef VMS
+ concb((char)escape);
+#endif /* VMS */
+ return(success = 0);
+ }
+ /* Get the file list back. */
+#ifdef ZXREWIND
+ z = zxrewind();
+#else
+ z = nzxpand(s,0);
+#endif /* ZXREWIND */
+ }
+ while (z-- > 0 && rc > 0) {
+ char line[CKMAXPATH+2];
if (!(z == 0 && !wild))
znext(line);
if (!line[0])
break;
- if (listing) printf("%s => %s ",line,p);
- if (zrename(line,p) < 0) {
- if (listing)
- printf("(FAILED: %s)\n",ck_errstr());
- else if (!nolist)
- printf("?%s - %s\n",ck_errstr(),line);
- rc = 0;
- } else {
- if (listing) printf("(OK)\n");
- }
+ rc = renameone((char *)line,p,
+ replacing,casing,all,converting,cset1,cset2,
+ listing,nolist,sim,TMPBUFSIZ,collision);
}
#ifdef VMS
concb((char)escape);
#endif /* PIPESEND */
extern struct keytab rpathtab[];
extern int nrpathtab;
- extern long calibrate;
+ extern CK_OFF_T calibrate;
int asname = 0; /* Flag for have as-name */
int konly = 0; /* Kermit-only function */
int c, i, n, confirmed = 0; /* Workers */
int getval = 0; /* Whether to get switch value */
int rcvcmd = 0; /* Whether it is the RECEIVE command */
int mget = 0; /* Whether it is the MGET command */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
+ struct stringint pv[SND_MAX+1]; /* Temporary array for switch values */
struct FDB sw, fl, cm; /* FDBs for each parse function */
char * cmdstr = "this command";
if (cx == XXGET || cx == XXREGET || cx == XXMGET || cx == XXRETR) {
extern int ftpget;
extern int ftpisopen();
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(doftpget(cx,0));
+ if ((ftpget == 1) || ((ftpget == 2) && ftpisopen())) {
+ int x;
+ x = doftpget(cx,0);
+ debug(F101,"doftpget return","",x);
+ if (x > -1)
+ success = x;
+ debug(F101,"doftpget success","",success);
+ return(x);
+ }
}
#endif /* NEWFTP */
for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL;
pv[i].ival = -1;
+ pv[i].wval = (CK_OFF_T)-1;
}
/* Preset switch values based on top-level command that called us */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
+#ifdef COMMENT
#ifdef CK_XYZ
(protocol == PROTO_X || protocol == PROTO_XC) ?
xxstring :
#else
rcvcmd ? (xx_strp)0 : xxstring /* Processing function */
#endif /* CK_XYZ */
+#else /* COMMENT */
+ xxstring /* Always evaluate - fdc 2006/02/01 */
+#endif /* COMMENT */
,
NULL,
&cm
x = -9;
goto xgetx;
}
- if ((x = cmfld("Name to store it under","",&s,NULL)) < 0)
+ if (
+#ifdef COMMENT
+ (x = cmfld("Name to store it under","",&s,NULL))
+#else
+ (x = cmfld("Name to store it under","",&s,xxstring))
+#endif /* COMMENT */
+ < 0)
goto xgetx;
s = brstrip(s);
if ((y = strlen(s)) > 0) {
#ifdef CALIBRATE
if (pv[SND_CAL].ival > 0)
- calibrate = 1L;
+ calibrate = (CK_OFF_T)1;
#endif /* CALIBRATE */
g_displa = fdispla;
if (pv[SND_SHH].ival > 0)
if (local) {
if (pv[SND_SHH].ival != 0)
displa = 1;
- ttflui();
+ if (protocol == PROTO_K) /* fdc 20070108 */
+ ttflui();
}
x = 0;
#ifdef PIPESEND
takerr[cmdlvl - 2] = takerr[cmdlvl];
merror[cmdlvl - 2] = merror[cmdlvl];
xquiet[cmdlvl - 2] = xquiet[cmdlvl];
+ xvarev[cmdlvl - 2] = xvarev[cmdlvl];
} else return(success = 0); /* Bad call to this routine */
}
if (cx == XXPTA) { /* Restore interrupts if we */
Do the GOTO and [_]FORWARD commands.
s = Label to search for, cx = function code: XXGOTO, XXFWD, or XXXFWD.
*/
-#ifdef BIGBUFOK
-#define LBLMAXLEN 255 /* Max label length */
-#else
-#define LBLMAXLEN 63
-#endif /* BIGBUFOK */
int
dogoto(s, cx) char *s; int cx; {
int i, j, x, y, z, bc;
int empty = 0, stopflg = 0;
char * cmd; /* Name of this command */
- char tmplbl[LBLMAXLEN+1], *lp; /* Current label from command stream */
- char tmp2[LBLMAXLEN+1]; /* SWITCH label conversion buffer */
- char tmp3[LBLMAXLEN+1]; /* Target label */
+ char tmplbl[LBLSIZ+1], *lp; /* Current label from command stream */
+ char tmp2[LBLSIZ+1]; /* SWITCH label conversion buffer */
+ char tmp3[LBLSIZ+1]; /* Target label */
stopflg = (cx == XXXFWD); /* _FORWARD (used in SWITCH) */
bc = 0; /* Brace counter */
}
#endif /* DEBUG */
debug(F110,cmd,s,0);
- ckstrncpy(tmp3+1,s,LBLMAXLEN-1);
+ x = ckstrncpy(tmp3+1,s,LBLSIZ);
+ debug(F101,"GOTO target len","",x);
+ debug(F101,"GOTO target at x","",s[x]);
+ if (s[x]) {
+ debug(F100,"GOTO target overflow","",0);
+ printf("?GOTO target or SWITCH case label too long\n");
+ if (stopflg) dostop(); /* If in SWITCH return to prompt */
+ return(success = 0);
+ }
s = tmp3+1;
if (*s != ':') { /* Make copy of label */
tmp3[0] = ':'; /* guaranteed to start with ":" */
if (!stopflg && !empty) {
if (s[1] == '.' || s[1] == SP || s[1] == NUL) {
printf("?Bad label syntax - '%s'\n",s);
+ if (stopflg) dostop(); /* If in SWITCH return to prompt */
return(success = 0);
}
}
/* GOTO: rewind the macro; FORWARD: start at current position */
lp = (cx == XXGOTO) ? macx[maclvl] : macp[maclvl];
- m = (int)strlen(lp) - y + 1;
- debug(F010,"GOTO in macro",lp,0);
+ m = (int)strlen(lp);
+ debug(F111,"GOTO in macro",lp,m);
flag = 1; /* flag for valid label position */
for (i = 0; i < m; i++,lp++) { /* search for label in macro body */
xp = lp; tp = tmplbl; /* Copy the label from the macro */
j = 0; /* to make it null-terminated */
while ((*tp = *xp)) {
- if (j++ > LBLMAXLEN) /* j = length of word from macro */
- break;
-#ifdef COMMENT
- if (*tp < 33 || *tp == ',') /* Look for end of word */
-#else
- if (!*tp || *tp == ',') /* Look for end of word */
-#endif /* COMMENT */
+ if (j++ > LBLSIZ-1) { /* j = length of word from macro */
+ printf("?GOTO target or SWITCH case label too long\n");
+ if (stopflg) dostop(); /* Return to prompt */
+ return(success = 0);
+ }
+ if (!*tp || *tp == ',') /* Look for end of word */
break;
else tp++, xp++; /* Next character */
}
debug(F111,"macro GOTO label",s,y);
debug(F111,"macro target label",tmplbl,j);
if (stopflg) { /* Allow variables as SWITCH labels */
- int n = LBLMAXLEN - 1;
+ int n = LBLSIZ - 1;
char * p = tmp2;
zzstring(tmplbl,&p,&n);
- ckstrncpy(tmplbl,tmp2,LBLMAXLEN);
- tmp2[49] = NUL;
+ if (n < 0) {
+ printf("?GOTO target or SWITCH case label too long\n");
+ if (stopflg) dostop(); /* Return to prompt */
+ return(0);
+ }
+ ckstrncpy(tmplbl,tmp2,LBLSIZ);
}
debug(F111,"GOTO s",s,y);
debug(F111,"GOTO tmplbl",tmplbl,j);
- debug(F101,"GOTO empty",ckitoa(stopflg),empty);
+ debug(F111,"GOTO empty",ckitoa(stopflg),empty);
if (empty) { /* Empty target */
z = (!strcmp(s,":") && /* String is empty */
}
debug(F111,"boolval switch","",cmresult.fcode);
switch (cmresult.fcode) { /* What did we get? */
+ case _CMFLD: { /* A "field" */
+ int i;
+ char * s;
+ s = cmresult.sresult;
+/*
+ C-Kermit 9.0: This allows a macro name to serve as an
+ IF condition without having to enclose it in \m(...).
+*/
+ if (
+#ifdef FNFLOAT
+ !isfloat(cmresult.sresult,0) /* Not a number */
+#else
+ !chknum(cmresult.sresult) /* Not a number */
+#endif /* FNFLOAT */
+ ) {
+ i = mlook(mactab,cmresult.sresult,nmac); /* Look it up */
+ if (i > -1) /* in the macro table */
+ s = mactab[x].mval; /* and get its value */
+ else /* Otherwise if no such macro */
+ s = "0"; /* evaluate as FALSE. */
+ }
#ifdef FNFLOAT
- case _CMFLD: /* A "field" */
- if (isfloat(cmresult.sresult,0)) { /* A floating-point number? */
+ if (isfloat(s,0)) { /* A floating-point number? */
f1 = floatval; /* Yes, get its value */
f1flag = 1; /* remember we did this */
ifc = 9999; /* Set special "if-code" */
- } else
- return(-2);
+ }
+#else
+ if (chknum(s)) {
+ cmresult.nresult = atoi(s);
+ ifc = 9999;
+ break;
+ }
#endif /* FNFLOAT */
+ else
+ return(-2);
+ }
case _CMNUM: /* A number... */
ifc = 9999; /* Set special "if-code" */
break;
case XXIFDI: /* IF DIRECTORY */
#endif /* CK_TMPDIR */
case XXIFAB: /* IF ABSOLUTE */
+ case XXIFLN: /* IF LINK */
if ((x = cmfld(
((ifc == XXIFDI) ? "Directory name" : "File"),
"",&s,
} else return(x);
}
s = brstrip(s);
+#ifdef UNIX
+ if (ifc == XXIFLN) {
+ z = isalink(s);
+ } else
+#endif /* UNIX */
if (ifc == XXIFAB) {
z = isabsolute(s);
} else if (ifc == XXIFEX) {
case XXIFGE: /* IF >= */
case XXIFGT: { /* IF > */
- /* Really should use longs here... */
- /* But cmnum parses ints. */
- int xx, n1 = 0, n2 = 0;
+ /* July 2006 - converted to use CK_OFF_T rather than int to */
+ /* allow long integers on platforms that have ck_off_t > 32 bits */
+ int xx;
+ CK_OFF_T n1 = (CK_OFF_T)0, n2 = (CK_OFF_T)0;
if (ifc == XXIFVE) {
- n1 = (int) vernum;
+ n1 = (CK_OFF_T) vernum;
} else {
x = cmfld("first number or variable name","",&s,xxstring);
if (x == -3) {
/* The following bit is for compatibility with old versions of MS-DOS Kermit */
if (!ckstrcmp(lp,"count",5,0)) {
- n1 = count[cmdlvl];
+ n1 = (CK_OFF_T)count[cmdlvl];
} else if (!ckstrcmp(lp,"version",7,0)) {
- n1 = (int) vernum;
+ n1 = (CK_OFF_T) vernum;
} else if (!ckstrcmp(lp,"argc",4,0)) {
- n1 = (int) macargc[maclvl];
+ n1 = (CK_OFF_T) macargc[maclvl];
} else {
/* End of compatibility bit */
} else
#endif /* FNFLOAT */
if (chknum(lp)) {
- n1 = atoi(lp);
+ n1 = ckatofs(lp);
} else { /* Check for arithmetic expression */
q = evala(lp); /* cmnum() does this but ... */
- if (chknum(q)) /* we're not using cmnum(). */
- n1 = atoi(q);
- else
- return(-2);
+ if (chknum(q)) { /* we're not using cmnum(). */
+ n1 = ckatofs(q);
+ } else {
+ printf("?Value not numeric - %s", lp);
+ return(-9);
+ }
}
}
}
ckstrncpy(tp,s,LINBUFSIZ-x-2);
debug(F110,"xxifgt exp2",tp,0);
if (!ckstrcmp(tp,"count",5,0)) {
- n2 = count[cmdlvl];
+ n2 = (CK_OFF_T) count[cmdlvl];
} else if (!ckstrcmp(tp,"version",7,0)) {
- n2 = (int) vernum;
+ n2 = (CK_OFF_T) vernum;
} else if (!ckstrcmp(tp,"argc",4,0)) {
- n2 = (int) macargc[maclvl];
+ n2 = (CK_OFF_T) macargc[maclvl];
} else {
#ifdef FNFLOAT
if (isfloat(tp,0) > 1) {
} else
#endif /* FNFLOAT */
if (chknum(tp)) {
- n2 = atoi(tp);
+ n2 = ckatofs(tp);
} else {
q = evala(tp);
- if (chknum(q))
- n2 = atoi(q);
- else
- return(-2);
+ if (chknum(q)) { /* we're not using cmnum(). */
+ n2 = ckatofs(q);
+ } else {
+ printf("?Value not numeric - %s", tp);
+ return(-9);
+ }
}
}
xx = (ifc == XXIFVE) ? XXIFGE : ifc;
case XXIFKG: { /* KERBANG */
extern int cfilef;
- z = (xcmdsrc == 0) ? 0 : cfilef;
+#ifdef COMMENT
+ z = (xcmdsrc == 0) ? 0 : (cfilef && cmdlvl == 1);
+#else
+ z = (xcmdsrc == 0) ? 0 : (cfilef && tlevel == 0);
+#endif /* COMMENT */
break;
}
+ case XXIFDB: { /* IF DEBUG - 2010/03/16 */
+ extern int debmsg;
+ z = debmsg;
+ break;
+ }
+
default: /* Shouldn't happen */
return(-2);
} /* end of switch */
takerr[cmdlvl] = takerr[cmdlvl-1]; /* Inherit this */
merror[cmdlvl] = merror[cmdlvl-1]; /* Inherit this */
xquiet[cmdlvl] = quiet;
+ xvarev[cmdlvl] = vareval;
xcmdsrc = CMD_TF;
cmdstk[cmdlvl].src = CMD_TF; /* Say we're in a TAKE file */
cmdstk[cmdlvl].lvl = tlevel; /* nested at this level */
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#endif /* putchar */
#define putchar(x) conoc(x)
extern int mskkeys;
+extern int mskrename;
#endif /* OS2 */
#ifdef CK_AUTHENTICATION
extern char * k_info_dir;
+#ifdef CK_LOGIN
+#ifdef CK_PAM
+int gotemptypasswd = 0; /* distinguish empty passwd from none given */
+#endif /* CK_PAM */
+#endif /* CK_LOGIN */
+
#ifndef NOSPL
extern int nmac;
extern struct mtab *mactab;
#endif /* RLOGCODE */
#ifdef CK_SSL
{ "/ssl", NP_SSL, 0 },
+ { "/ssl-raw", NP_SSL_RAW, 0 },
{ "/ssl-telnet", NP_SSL_TELNET, 0 },
#endif /* CK_SSL */
{ "/telnet", NP_TELNET, 0 },
#ifdef CK_SSL
{ "/tls", NP_TLS, 0 },
+ { "/tls-raw", NP_TLS_RAW, 0 },
{ "/tls-telnet", NP_TLS_TELNET, 0 },
#endif /* CK_SSL */
{ "", 0, 0 }
{ "backup", XYFX_B, 0 }, /* rename old file */
#ifndef MAC
/* This crashes Mac Kermit. */
- { "discard", XYFX_D, 0 }, /* don't accept new file */
+ { "discard", XYFX_D, CM_INV }, /* don't accept new file */
{ "no-supersede", XYFX_D, CM_INV }, /* ditto (MSK compatibility) */
#endif /* MAC */
{ "overwrite", XYFX_X, 0 }, /* overwrite the old file */
+ { "reject", XYFX_D, 0 }, /* (better word than discard) */
{ "rename", XYFX_R, 0 }, /* rename the incoming file */
#ifndef MAC /* This crashes Mac Kermit. */
{ "update", XYFX_U, 0 }, /* replace if newer */
{ "keyboard-mode", XYTKBMOD, 0 },
{ "keypad-mode", XYTKPD, 0 },
#endif /* OS2 */
+ { "lf-display", XYTLFD, 0 },
#ifndef NOCSETS
#ifdef OS2
#ifndef KUI
{ "normal", 0, 0 }
};
extern int tt_crd; /* Carriage-return display variable */
+extern int tt_lfd; /* Linefeed display variable */
#ifdef CK_APC
extern int apcstatus, apcactive;
int tt_keypad = TTK_NORM; /* Keypad mode: normal (numeric) */
int tt_shift_keypad = 0; /* Keypad Shift mode: Off */
int tt_wrap = 1; /* Terminal wrap, 1 = On */
-int tt_type = TT_VT320; /* Terminal type, initially VT320 */
-int tt_type_mode = TT_VT320; /* Terminal type set by host command */
+int tt_type = TT_VT220; /* Terminal type, initially VT220 */
+int tt_type_mode = TT_VT220; /* Terminal type set by host command */
int tt_cursor = 0; /* Terminal cursor, 0 = Underline */
int tt_cursor_usr = 0; /* Users Terminal cursor type */
int tt_cursorena_usr = 1; /* Users Terminal cursor enabled */
#ifdef COMMENT
{ "color", MSK_COLOR, 0 },
#endif /* COMMENT */
+ { "file-renaming", MSK_REN, 0 },
{ "keycodes", MSK_KEYS, 0 }
};
int nmsk = (sizeof(msktab) / sizeof(struct keytab));
int xx[MAXKEEP+1]; /* Array of numbers to keep */
int min = -1;
int x_hdg = 0, fs = 0, rc = 0;
- long minsize = -1L, maxsize = -1L;
+ CK_OFF_T minsize = -1L, maxsize = -1L;
char namebuf[CKMAXPATH+4];
char basebuf[CKMAXPATH+4];
char
if (n < tokeep) { /* Not deleting any */
count = 0;
if (listing)
- printf(" Matches = %d: Not enough to purge.\n");
+ printf(" Matches = %d: Not enough to purge.\n",n);
goto xpurge;
}
if (which == 1) /* It's OK. */
fdispla = x;
#ifdef NEWFTP
- else
+ else if (which == 2)
ftp_dis = x;
#endif /* NEWFTP */
return(success = 1);
}
}
-#ifndef NOLOCAL
-#ifdef OS2
-/* MS-DOS KERMIT compatibility modes */
+#ifdef UNIX
+#ifndef NOPUTENV
+#ifdef BIGBUFOK
+#define NPUTENVS 4096
+#else
+#define NPUTENVS 128
+#endif /* BIGBUFOK */
+/* environment variables must be static, not automatic */
+
+static char * putenvs[NPUTENVS]; /* Array of environment var strings */
+static int nputenvs = -1; /* Pointer into array */
+/*
+ If anyone ever notices the limitation on the number of PUTENVs, the list
+ can be made dynamic, we can recycle entries with the same name, etc.
+*/
int
-setmsk() {
- if ((y = cmkey(msktab,nmsk,"MS-DOS Kermit compatibility mode",
- "keycodes",xxstring)) < 0) return(y);
+doputenv(s1, s2) char * s1; char * s2; {
+ char * s, * t = tmpbuf; /* Create or alter environment var */
+
+ if (nputenvs == -1) { /* Table not used yet */
+ int i; /* Initialize the pointers */
+ for (i = 0; i < NPUTENVS; i++)
+ putenvs[i] = NULL;
+ nputenvs = 0;
+ }
+ if (!s1) return(1); /* Nothing to do */
+ if (!*s1) return(1); /* ditto */
+
+ if (ckindex("=",s1,0,0,0)) { /* Does the name contain an '='? */
+ printf( /* putenv() does not allow this. */
+ /* This also catches the 'putenv name=value' case */
+ "?PUTENV - Equal sign in variable name - 'help putenv' for info.\n");
+ return(-9);
+ }
+ nputenvs++; /* Point to next free string */
- switch ( y ) {
-#ifdef COMMENT
- case MSK_COLOR:
- return(seton(&mskcolors));
-#endif /* COMMENT */
- case MSK_KEYS:
- return(seton(&mskkeys));
- default: /* Shouldn't get here. */
- return(-2);
+ debug(F111,"doputenv s1",s1,nputenvs);
+ debug(F111,"doputenv s2",s2,nputenvs);
+
+ if (nputenvs > NPUTENVS - 1) { /* Notice the end */
+ printf("?PUTENV - static buffer space exhausted\n");
+ return(-9);
+ }
+ /* Quotes are not needed but we allow them for familiarity */
+ /* but then we strip them, so syntax is same as for Unix shell */
+
+ if (s2) {
+ s2 = brstrip(s2);
+ } else {
+ s2 = (char *)"";
}
+ ckmakmsg(t,TMPBUFSIZ,s1,"=",s2,NULL);
+ debug(F111,"doputenv",t,nputenvs);
+ (VOID) makestr(&(putenvs[nputenvs]),t); /* Make a safe permananent copy */
+ if (!putenvs[nputenvs]) {
+ printf("?PUTENV - memory allocation failure\n");
+ return(-9);
+ }
+ if (putenv(putenvs[nputenvs])) {
+ printf("?PUTENV - %s\n",ck_errstr());
+ return(-9);
+ } else return(success = 1);
}
-#endif /* OS2 */
+#endif /* NOPUTENV */
+#endif /* UNIX */
int
settrmtyp() {
extern int ttnum; /* Last Telnet Terminal Type sent */
extern int ttnumend; /* Has end of list been found */
#endif /* TNCODE */
- if ((x = cmkey(ttyptab,nttyp,"","vt320",xxstring)) < 0)
+ if ((x = cmkey(ttyptab,nttyp,"","vt220",xxstring)) < 0)
return(x);
if ((y = cmcfm()) < 0)
return(y);
#endif /* TNCODE */
return(success = 1);
#else /* Not OS2 */
+#ifdef UNIX
+ extern int fxd_inited;
+ x = cmtxt("Terminal type name, case sensitive","",&s,NULL);
+#ifdef NOPUTENV
+ success = 1;
+#else
+ success = doputenv("TERM",s); /* Set the TERM variable */
+#ifdef CK_CURSES
+ fxd_inited = 0; /* Force reinitialization of curses database */
+ (void)doxdis(0); /* Re-initialize file transfer display */
+ concb((char)escape); /* Fix command terminal */
+#endif /* CK_CURSES */
+#endif /* NOPUTENV */
+ return(success);
+#else
printf(
"\n Sorry, this version of C-Kermit does not support the SET TERMINAL TYPE\n");
printf(
" command. Type \"help set terminal\" for further information.\n");
-#endif /* OS2 */
return(success = 0);
+#endif /* UNIX */
+#endif /* OS2 */
+}
+
+#ifndef NOLOCAL
+#ifdef OS2
+/* MS-DOS KERMIT compatibility modes */
+int
+setmsk() {
+ if ((y = cmkey(msktab,nmsk,"MS-DOS Kermit compatibility mode",
+ "keycodes",xxstring)) < 0) return(y);
+
+ switch ( y ) {
+#ifdef COMMENT
+ case MSK_COLOR:
+ return(seton(&mskcolors));
+#endif /* COMMENT */
+ case MSK_KEYS:
+ return(seton(&mskkeys));
+ case MSK_REN:
+ return(seton(&mskrename));
+ default: /* Shouldn't get here. */
+ return(-2);
+ }
}
+#endif /* OS2 */
#ifdef CKTIDLE
static char iactbuf[132];
q = &iactbuf[k];
p = tt_idlestr;
if (!p) p = "";
- if (!*p) return("output (nothing)");
+ if (!*p) return("output NUL");
while ((c = *p++) && n < 131) {
c &= 0xff;
if (c == '\\') {
*q++ = '\\';
*q = NUL;
n += 2;
- } else if ((c > 31 && c < 127) || c > 159) {
+ } else if ((c > 32 && c < 127) || c > 159) {
*q++ = c;
*q = NUL;
n++;
tt_crd = x;
return(success = 1);
+ case XYTLFD: /* SET TERMINAL LF-DISPLAY */
+ if ((x = cmkey(crdtab,2,"", "normal", xxstring)) < 0) return(x);
+ if ((y = cmcfm()) < 0) return(y);
+ tt_lfd = x;
+ return(success = 1);
+
#ifdef OS2
case XYTANS: { /* SET TERMINAL ANSWERBACK */
/*
return(y);
if (y == IDLE_OUT) {
if ((x = cmtxt("string to send, may contain kverbs and variables"
- , "\\v(newline)",&s,xxstring)) < 0)
+ , "",&s,xxstring)) < 0)
return(x);
makestr(&tt_idlestr,brstrip(s)); /* (new) */
tt_idlesnd_str = tt_idlestr; /* (old) */
return(-2);
#endif /* COMMENT */
#ifdef OS2
-return(-2);
+ return(-2);
#endif /* OS2 */
}
debug(F101,"remcfm local","",local);
debug(F110,"remcfm s",s,0);
debug(F101,"remcfm cmd","",xzcmd);
-
+/*
+ This check was added in C-Kermit 6.0 or 7.0 but it turns out to be
+ unhelpful in the situation where the remote is running a script that sends
+ REMOTE commands to the local workstation. What happens is, the local
+ server executes the command and sends the result back as screen text, which
+ is indicated by using an X packet instead of an F packet as the file
+ header. There are two parts to this: executing the command under control
+ of the remote Kermit, which is desirable (and in fact some big applications
+ depend on it, and therefore never installed any new C-Kermit versions after
+ 5A), and displaying the result. Commenting out the check allows the
+ command to be executed, but the result is still sent back to the remote in
+ a file transfer, where it vanishes into the ether. Actually it's on the
+ communication connection, mixed in with the packets. Pretty amazing that
+ the file transfer still works, right?
+*/
+#ifdef COMMENT
if (!*s) { /* No redirection indicator */
if (!local &&
(xzcmd == XZDIR || xzcmd == XZTYP ||
} else
return(1);
}
+#endif /* COMMENT */
c = *s; /* We have something */
if (c != '>' && c != '|') { /* Is it > or | ? */
printf("?Not confirmed\n"); /* No */
s = *p;
if (!s) /* No redirection indicator */
s = "";
+#ifdef COMMENT
if (!*s) { /* Ditto */
if (!local &&
(xzcmd == XZDIR || xzcmd == XZTYP ||
} else
return(1);
}
+#endif /* COMMENT */
bpos = -1; /* Position of > (bracket) */
ppos = -1; /* Position of | (pipe) */
x = strlen(s); /* Length of cmtxt() string */
ppos = i;
}
if (bpos < 0 && ppos < 0) { /* No redirectors. */
+#ifdef COMMENT
if (!local &&
(xzcmd == XZDIR || xzcmd == XZTYP ||
xzcmd == XZXIT || xzcmd == XZSPA ||
}
return(-9);
}
+#endif /* COMMENT */
s = brstrip(s); /* Remove outer braces if any. */
*p = s; /* Point to result */
return(1); /* and return. */
retcode = sstate = setgen('U',s,"","");
break;
+ case XZMSG: /* Message */
+ if ((x = cmtxt("Short text message for server","",&s,xxstring)) < 0)
+ return(x);
+ if ((x = remtxt(&s)) < 0)
+ return(x);
+ retcode = sstate = setgen('M',s,"","");
+ break;
+
#ifndef NOFRILLS
case XZTYP: /* Type */
if ((x = cmtxt("Remote file specification","",&s,xxstring)) < 0)
clsconnx(ask) int ask; {
int x, rc = 0;
#ifdef NEWFTP
- extern int ftpget, ftpisopen(), ftpbye();
+ extern int ftpget, ftpisopen();
if ((ftpget == 1) || ((ftpget == 2) && !local && ftpisopen()))
return(success = ftpbye());
#endif /* NEWFTP */
if (net == NET_TCPB) {
switch (protocol) {
#ifdef CK_SSL
+#ifdef COMMENT
+/*
+ Jeff's version from 30 Dec 2006 - doesn't work - SSL/TLS_RAW still
+ start Telnet negotions if a 0xff byte comes in.
+*/
+ case NP_SSL_RAW:
+ ttnproto = NP_SSL_RAW;
+ debug(F101,"NP_SSL_RAW ttnproto","",ttnproto);
+ ssl_only_flag = 1;
+ tls_only_flag = 0;
+ break;
+
+ case NP_TLS_RAW:
+ ttnproto = NP_TLS_RAW;
+ debug(F101,"NP_TLS_RAW ttnproto","",ttnproto);
+ ssl_only_flag = 0;
+ tls_only_flag = 1;
+ break;
+
+ case NP_SSL:
+ ttnproto = NP_SSL;
+ debug(F101,"NP_SSL ttnproto","",ttnproto);
+ ssl_only_flag = 1;
+ tls_only_flag = 0;
+ break;
+
+ case NP_TLS:
+ ttnproto = NP_TLS;
+ debug(F101,"NP_TLS ttnproto","",ttnproto);
+ ssl_only_flag = 0;
+ tls_only_flag = 1;
+ break;
+
+ case NP_SSL_TELNET:
+ ttnproto = NP_TELNET;
+ debug(F101,"NP_SSL_TELNET ttnproto","",ttnproto);
+ ssl_only_flag = 1;
+ tls_only_flag = 0;
+ break;
+
+ case NP_TLS_TELNET:
+ ttnproto = NP_TELNET;
+ debug(F101,"NP_TLS_TELNET ttnproto","",ttnproto);
+ ssl_only_flag = 0;
+ tls_only_flag = 1;
+ break;
+#else
+/* fdc version of 4 Dec 2006 works OK */
+ case NP_SSL_RAW:
case NP_SSL:
+ ssl_raw_flag = (protocol == NP_SSL_RAW) ? 1 : 0;
ttnproto = protocol;
+ debug(F101,protocol==NP_SSL ?
+ "NP_SSL ttnproto" :
+ "NP_SSL_RAW ttnproto",
+ "",ttnproto);
ssl_only_flag = 1;
tls_only_flag = 0;
break;
case NP_TLS:
+ case NP_TLS_RAW:
+ tls_raw_flag = (protocol == NP_SSL_RAW) ? 1 : 0;
ttnproto = protocol;
+ debug(F101,protocol==NP_TLS ?
+ "NP_TLS ttnproto" :
+ "NP_TLS_RAW ttnproto",
+ "",ttnproto);
ssl_only_flag = 0;
tls_only_flag = 1;
break;
case NP_SSL_TELNET:
+ ssl_raw_flag = 0;
ttnproto = NP_TELNET;
+ debug(F101,"NP_SSL_TELNET ttnproto","",ttnproto);
ssl_only_flag = 1;
tls_only_flag = 0;
break;
case NP_TLS_TELNET:
+ tls_raw_flag = 0;
ttnproto = NP_TELNET;
+ debug(F101,"NP_TLS_TELNET ttnproto","",ttnproto);
ssl_only_flag = 0;
tls_only_flag = 1;
break;
+#endif /* COMMENT */
#endif /* CK_SSL */
+
case NP_NONE:
case NP_TCPRAW:
case NP_RLOGIN:
default:
ttnproto = protocol;
#ifdef CK_SSL
+#ifdef COMMENT
+ /* Jeff version from 30 Dec 2006 */
ssl_only_flag = 0;
tls_only_flag = 0;
+#else
+ /* fdc version from 4 Dec 2006 */
+ ssl_raw_flag = 0;
+ tls_raw_flag = 0;
+ ssl_only_flag = 0;
+ tls_only_flag = 0;
+#endif /* COMMENT */
#endif /* CK_SSL */
break;
}
if (xx == XXSSH) { /* SSH becomes PTY SSH ... */
dossh = 1;
xx = XYHOST;
+ } else if (!ckstrcmp("ssh ",line,4,0)) { /* 2010/03/01 */
+ dossh = 1;
+ xx = XYHOST;
}
+ debug(F101,"setlin dossh","",dossh);
#endif /* SSHCMD */
#ifdef TNCODE
#ifdef SSHCMD
if (dossh) { /* SSH connection via pty */
int k;
+ extern int ttyfd; /* 2010/03/01 */
k = ckstrncpy(line, sshcmd ? sshcmd : defsshcmd, LINBUFSIZ);
debug(F111,"setlin sshcmd 1",line,k);
if ((x = cmtxt("Optional switches and hostname","",&s,xxstring))<0)
return(x);
- if (!*s) {
- printf("?SSH to where?\n");
- return(-9);
- }
- if (k < LINBUFSIZ) {
- line[k++] = SP;
- line[k] = NUL;
- debug(F111,"setlin sshcmd 2",line,k);
- } if (k < LINBUFSIZ) {
- ckstrncpy(&line[k],s,LINBUFSIZ-k);
- debug(F111,"setlin sshcmd 3",line,k);
- } else {
- printf("?Too long\n");
- return(-9);
- }
+
+ /* 2010-03-30 */
+ if (!*s && ttyfd < 0 && !ckstrcmp("ssh ",ttname,4,0)) {
+ x = ckstrncpy(line,ttname,LINBUFSIZ);
+ } else {
+ if (!*s) {
+ printf("?SSH to where?\n");
+ return(-9);
+ }
+ if (k < LINBUFSIZ) {
+ line[k++] = SP;
+ line[k] = NUL;
+ debug(F111,"setlin sshcmd 2",line,k);
+ } if (k < LINBUFSIZ) {
+ ckstrncpy(&line[k],s,LINBUFSIZ-k);
+ debug(F111,"setlin sshcmd 3",line,k);
+ } else {
+ printf("?Too long\n");
+ return(-9);
+ }
+ }
x = cx_net( NET_PTY, /* network type */
0, /* protocol (not used) */
line, /* host */
if ((x = cmtxt("Rest of command","",&s,xxstring)) < 0)
return(x);
if (*s) {
- strncat(line," ",LINBUFSIZ);
- strncat(line,s,LINBUFSIZ);
+ ckstrncat(line," ",LINBUFSIZ);
+ ckstrncat(line,s,LINBUFSIZ);
}
s = line;
}
<#>ifdef'ing out this code and adding the equivalent replacement routines
to the ck?fio.c module, e.g. for RMS-based file i/o in ckvfio.c.
*/
-
-/* Define NOSTAT if the <#>include causes trouble. */
-
#ifndef NOSTAT
#ifdef VMS
-#ifdef VAXC /* As it does in VAX C */
-#define NOSTAT
-#endif /* VAXC */
-#endif /* VMS */
-#endif /* NOSTAT */
-
-#ifndef NOSTAT
+/* 2010-03-09 SMS. VAX C needs help to find "sys". It's easier not to try. */
+#include <stat.h>
+#else /* def VMS */
#include <sys/stat.h>
+#endif /* def VMS [else] */
#endif /* NOSTAT */
#ifdef NLCHAR
struct ckz_file { /* C-Kermit file struct */
FILE * z_fp; /* Includes the C-Lib file struct */
unsigned int z_flags; /* Plus C-Kermit mode flags, */
- long z_nline; /* current line number if known, */
+ CK_OFF_T z_nline; /* current line number if known, */
char z_name[CKMAXPATH+2]; /* and the file's name. */
};
-static struct ckz_file * z_file = NULL; /* Array of C-Kermit file structs */
+static struct ckz_file ** z_file = NULL; /* Array of C-Kermit file structs */
static int z_inited = 0; /* Flag for array initialized */
int z_maxchan = Z_MAXCHAN; /* Max number of C-Kermit channels */
int z_openmax = CKMAXOPEN; /* Max number of open files overall */
/* Note: This could be a pretty big chunk of memory */
/* if z_maxchan is a big number. If this becomes a problem */
/* we'll need to malloc and free each element at open/close time */
+#ifdef COMMENT
+ /* May 2006 - it's time - in current Linux this about 3MB */
if (!(z_file = (struct ckz_file *)
malloc(sizeof(struct ckz_file) * (z_maxchan + 1))))
return(z_error = FX_NMF);
z_file[i].z_nline = 0;
*(z_file[i].z_name) = '\0';
}
- z_inited = 1; /* Remember we did */
+#else
+ /* New economical way, allocate storage for each channel as needed */
+ if (!z_file) {
+ z_file = (struct ckz_file **)malloc((z_maxchan + 1) *
+ sizeof(struct ckz_file *));
+ if (!z_file)
+ return(z_error = FX_NMF);
+ for (i = 0; i < z_maxchan; i++)
+ z_file[i] = NULL;
+ }
+#endif /* COMMENT */
+ z_inited = 1; /* Remember we initialized */
}
- for (n = -1, i = 0; i < z_maxchan; i++) {
+ for (n = -1, i = 0; i < z_maxchan; i++) { /* Find a free channel */
+#ifdef COMMENT
if (!z_file[i].z_fp) {
n = i;
break;
}
+#else
+ if (!z_file[i]) {
+ z_file[i] = (struct ckz_file *) malloc(sizeof(struct ckz_file));
+ if (!z_file[i])
+ return(z_error = FX_NMF);
+ n = i;
+ break;
+ }
+#endif /* COMMENT */
+
}
if (n < 0 || n >= z_maxchan) /* Any free channels? */
return(z_error = FX_NMF); /* No, fail. */
errno = 0;
- z_file[n].z_flags = 0; /* In case of failure... */
+ z_file[n]->z_flags = 0; /* In case of failure... */
+ z_file[n]->z_fp = NULL; /* Set file pointer to NULL */
t = fopen(name, mode); /* Try to open the file. */
if (!t) { /* Failed... */
if (errno == EMFILE)
return(z_error = FX_NMF);
#endif /* EMFILE */
+ free(z_file[n]);
+ z_file[n] = NULL;
return(z_error = (errno ? FX_SYS : FX_UNK)); /* Return error code */
}
#ifdef NT
#endif /* O_SEQUENTIAL */
#endif /* NT */
z_nopen++; /* Open, count it. */
- z_file[n].z_fp = t; /* Stash the file pointer */
- z_file[n].z_flags = flags; /* and the flags */
+ z_file[n]->z_fp = t; /* Stash the file pointer */
+ z_file[n]->z_flags = flags; /* and the flags */
+ z_file[n]->z_nline = 0; /* Current line number is 0 */
z_error = 0;
- zfnqfp(name,CKMAXPATH,z_file[n].z_name); /* and the file's full name */
+ zfnqfp(name,CKMAXPATH,z_file[n]->z_name); /* and the file's full name */
return(n); /* Return the channel number */
}
return(z_error = FX_NOP);
if (channel >= z_maxchan) /* Channel out of range? */
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp)) /* Channel wasn't open? */
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp)) /* Channel wasn't open? */
return(z_error = FX_NOP);
errno = 0; /* Set errno 0 to get a good reading */
x = fclose(t); /* Try to close */
if (x == EOF) /* On failure */
return(z_error = FX_SYS); /* indicate system error. */
z_nopen--; /* Closed OK, decrement open count */
- z_file[channel].z_fp = NULL; /* Set file pointer to NULL */
- z_file[channel].z_nline = 0; /* Current line number is 0 */
- z_file[channel].z_flags = 0; /* Set flags to 0 */
- *(z_file[channel].z_name) = '\0'; /* Clear name */
+ z_file[channel]->z_fp = NULL; /* Set file pointer to NULL */
+ z_file[channel]->z_nline = 0; /* Current line number is 0 */
+ z_file[channel]->z_flags = 0; /* Set flags to 0 */
+ *(z_file[channel]->z_name) = '\0'; /* Clear name */
+ free(z_file[channel]);
+ z_file[channel] = NULL;
return(z_error = 0);
}
return(z_error = FX_NOP);
if (channel >= z_maxchan) /* Channel in range? */
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp)) /* File open? */
+ if (!z_file[channel])
return(z_error = FX_NOP);
- if (!((z_file[channel].z_flags) & (FM_WRI|FM_APP))) /* In write mode? */
+ if (!(t = z_file[channel]->z_fp)) /* File open? */
+ return(z_error = FX_NOP);
+ if (!((z_file[channel]->z_flags) & (FM_WRI|FM_APP))) /* In write mode? */
return(z_error = FX_FOP);
n = length; /* Length of string to write */
if (n < 0) { /* Negative means get it ourselves */
if (x < 1)
return(z_error = (errno ? FX_SYS : FX_UNK));
}
- z_file[channel].z_nline = -1; /* Current line no longer known */
+ z_file[channel]->z_nline = -1; /* Current line no longer known */
z_error = 0;
return(i);
} else { /* Writing string arg */
if (flags == 0) { /* If supplying line termination */
if (fwrite("\n",1,1,t)) /* do that */
x += z_lt; /* count the terminator */
- if (z_file[channel].z_nline > -1) /* count this line */
- z_file[channel].z_nline++;
+ if (z_file[channel]->z_nline > -1) /* count this line */
+ z_file[channel]->z_nline++;
} else {
- z_file[channel].z_nline = -1; /* Current line no longer known */
+ z_file[channel]->z_nline = -1; /* Current line no longer known */
}
}
z_error = 0;
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
- if (!((z_file[channel].z_flags) & FM_REA))
+ if (!((z_file[channel]->z_flags) & FM_REA))
return(z_error = FX_FOP);
if (!s) /* Check destination */
return(z_error = FX_RNG);
return(z_error = FX_RNG);
errno = 0; /* Reset errno */
if (flags) { /* Read block or byte */
- i = fread(s,1,length,t);
+ int n; /* 20050912 */
+ n = length; /* 20050912 */
+ i = 0; /* 20050912 */
+ while (n > 0) { /* 20050912 */
+ i = fread(s,1,n,t); /* 20050912 */
#ifdef DEBUG
- if (deblog) {
- debug(F111,"z_in block",s,i);
- debug(F101,"z_in block errno","",errno);
- debug(F101,"z_in block ferror","",ferror(t));
- debug(F101,"z_in block feof","",feof(t));
- }
+ if (deblog) {
+ debug(F111,"z_in block",s,i);
+ debug(F101,"z_in block errno","",errno);
+ debug(F101,"z_in block ferror","",ferror(t));
+ debug(F101,"z_in block feof","",feof(t));
+ }
#endif /* DEBUG */
- z_file[channel].z_nline = -1; /* Current line no longer known */
+ if (i == 0) break; /* 20050912 */
+ s += i; /* 20050912 */
+ n -= i; /* 20050912 */
+ }
+ /* Current line no longer known */
+ z_file[channel]->z_nline = (CK_OFF_T)-1;
} else { /* Read line */
#ifndef COMMENT
/* This method is used because it's simpler than the others */
/* and also marginally faster. */
- debug(F101,"z_in getc loop","",ftell(t));
+ debug(F101,"z_in getc loop","",CKFTELL(t));
for (i = 0; i < length; i++) {
if ((x = getc(t)) == EOF) {
- debug(F101,"z_in getc error","",ftell(t));
+ debug(F101,"z_in getc error","",CKFTELL(t));
s[i] = '\0';
break;
}
}
}
debug(F111,"z_in line byte loop",ckitoa(errno),i);
- debug(F111,"z_in line got",s,z_file[channel].z_nline);
- if (z_file[channel].z_nline > -1)
- z_file[channel].z_nline++;
+ debug(F111,"z_in line got",s,z_file[channel]->z_nline);
+ if (z_file[channel]->z_nline > -1)
+ z_file[channel]->z_nline++;
#else
#ifdef COMMENT2
/* Straightforward but strlen() slows it down. */
if (i > 0 && s[i-1] == '\n') i--;
}
debug(F111,"z_in line fgets",ckitoa(errno),i);
- if (z_file[channel].z_nline > -1)
- z_file[channel].z_nline++;
+ if (z_file[channel]->z_nline > -1)
+ z_file[channel]->z_nline++;
#else
/* This is a do-it-yourself fgets() with its own readahead and */
/* putback. It's a bit faster than real fgets() but not enough */
/* to justify the added complexity or the risk of the ftell() and */
/* fseek() calls failing. */
int k, flag = 0;
- long pos;
+ CK_OFF_T pos;
for (i = 0; !flag && i <= (length - Z_INBUFLEN); i += Z_INBUFLEN) {
k = ((length - i) < Z_INBUFLEN) ? length - i : Z_INBUFLEN;
if ((x = fread(s+i,1,k,t)) < 1)
if (s[i+j] == '\n') {
s[i+j] = '\0';
flag ++;
- pos = ftell(t);
+ pos = CKFTELL(t);
if (pos > -1) {
pos -= (x - j - 1);
- x = fseek(t, pos, 0);
+ x = CKFSEEK(t, pos, 0);
i += j;
break;
} else
}
}
}
- if (z_file[channel].z_nline > -1)
- z_file[channel].z_nline++;
+ if (z_file[channel]->z_nline > -1)
+ z_file[channel]->z_nline++;
debug(F111,"z_in line chunk loop",ckitoa(errno),i);
#endif /* COMMENT2 */
#endif /* COMMENT */
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
- if (!((z_file[channel].z_flags) & (FM_WRI|FM_APP))) /* Write access? */
+ if (!((z_file[channel]->z_flags) & (FM_WRI|FM_APP))) /* Write access? */
return(z_error = FX_FOP);
errno = 0; /* Reset errno */
x = fflush(t); /* Try to flush */
int
#ifdef CK_ANSIC
-z_seek(int channel, long pos) /* Move file pointer to byte */
+z_seek(int channel, CK_OFF_T pos) /* Move file pointer to byte */
#else
-z_seek(channel,pos) int channel; long pos; /* (seek to given position) */
+z_seek(channel,pos) int channel; CK_OFF_T pos; /* (seek to given position) */
#endif /* CK_ANSIC */
{
int i, x = 0, rc;
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
if (pos < 0L) {
x = 2;
pos = (pos == -2) ? -1L : 0L;
}
errno = 0;
- rc = fseek(t,pos,x); /* Try to seek */
+ rc = CKFSEEK(t,pos,x); /* Try to seek */
debug(F111,"z_seek",ckitoa(errno),rc);
if (rc < 0) /* OK? */
return(z_error = FX_SYS); /* No. */
- z_file[channel].z_nline = ((pos || x) ? -1 : 0);
+ z_file[channel]->z_nline = ((pos || x) ? -1 : 0);
return(z_error = 0);
}
int
#ifdef CK_ANSIC
-z_line(int channel, long pos) /* Move file pointer to line */
+z_line(int channel, CK_OFF_T pos) /* Move file pointer to line */
#else
-z_line(channel,pos) int channel; long pos; /* (seek to given position) */
+z_line(channel,pos) int channel; CK_OFF_T pos; /* (seek to given position) */
#endif /* CK_ANSIC */
{
int i, len, x = 0;
- long current = 0L, prev = -1L, old = -1L;
+ CK_OFF_T current = (CK_OFF_T)0, prev = (CK_OFF_T)-1, old = (CK_OFF_T)-1;
FILE * t;
char tmpbuf[256];
if (!z_inited) /* Check... */
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
debug(F101,"z_line pos","",pos);
if (pos < 0L) { /* EOF wanted */
- long n;
- n = z_file[channel].z_nline;
+ CK_OFF_T n;
+ n = z_file[channel]->z_nline;
debug(F101,"z_line n","",n);
if (n < 0 || pos < 0) {
rewind(t);
n++;
if (pos == -2) {
old = prev;
- prev = ftell(t);
+ prev = CKFTELL(t);
}
}
}
else
n--;
}
- z_file[channel].z_nline = n;
+ z_file[channel]->z_nline = n;
return(z_error = 0);
}
if (pos == 0L) { /* Rewind wanted */
- z_file[channel].z_nline = 0L;
+ z_file[channel]->z_nline = 0L;
rewind(t);
debug(F100,"z_line rewind","",0);
return(0L);
}
tmpbuf[255] = NUL; /* Make sure buf is NUL terminated */
- current = z_file[channel].z_nline; /* Current line */
+ current = z_file[channel]->z_nline; /* Current line */
/*
If necessary the following could be optimized, e.g. for positioning
to a previous line in a large file without starting over.
return(z_error = FX_UNK);
}
} else {
- z_file[channel].z_nline = -1L;
+ z_file[channel]->z_nline = -1L;
debug(F101,"z_line premature EOF","",current);
return(z_error = FX_EOF);
}
}
- z_file[channel].z_nline = current;
+ z_file[channel]->z_nline = current;
debug(F101,"z_line result","",current);
z_error = 0;
return(current);
z_error = FX_CHN;
return(NULL);
}
- if (!(t = z_file[channel].z_fp)) {
+ if (!z_file[channel]) {
z_error = FX_NOP;
return(NULL);
}
- return((char *)(z_file[channel].z_name));
+ if (!(t = z_file[channel]->z_fp)) {
+ z_error = FX_NOP;
+ return(NULL);
+ }
+ return((char *)(z_file[channel]->z_name));
}
int
return(0);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(0);
+ if (!(t = z_file[channel]->z_fp))
return(0);
- x = z_file[channel].z_flags;
+ x = z_file[channel]->z_flags;
if (feof(t)) { /* This might not work for */
x |= FM_EOF; /* output files */
#ifndef NOSTAT
/* But this does if we can use it. */
- } else if (stat(z_file[channel].z_name,&statbuf) > -1) {
- if (ftell(t) == statbuf.st_size)
+ } else if (stat(z_file[channel]->z_name,&statbuf) > -1) {
+ if (CKFTELL(t) == statbuf.st_size)
x |= FM_EOF;
#endif /* NOSTAT */
}
return(x);
}
-long
+CK_OFF_T
z_getpos(channel) int channel; { /* Get file pointer position */
FILE * t; /* on this channel */
- long x;
+ CK_OFF_T x;
if (!z_inited)
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
return(z_error = FX_NOP);
- x = ftell(t);
+ if (!(t = z_file[channel]->z_fp))
+ return(z_error = FX_NOP);
+ x = CKFTELL(t);
return((x < 0L) ? (z_error = FX_SYS) : x);
}
-long
+CK_OFF_T
z_getline(channel) int channel; { /* Get current line number */
FILE * t; /* in file on this channel */
- long rc;
+ CK_OFF_T rc;
if (!z_inited)
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
- debug(F101,"z_getline","",z_file[channel].z_nline);
- rc = z_file[channel].z_nline;
+ debug(F101,"z_getline","",z_file[channel]->z_nline);
+ rc = z_file[channel]->z_nline;
return((rc < 0) ? (z_error = FX_LNU) : rc);
}
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
z_error = 0;
return(fileno(t));
Line-oriented counts and seeks are as dumb as they can be at the moment.
Later we can speed them up by building little indexes.
*/
-long
+CK_OFF_T
z_count(channel, what) int channel, what; { /* Count bytes or lines in file */
FILE * t;
int i, x;
- long pos, count = 0L;
+ CK_OFF_T pos, count = (CK_OFF_T)0;
if (!z_inited) /* Check stuff... */
return(z_error = FX_NOP);
if (channel >= z_maxchan)
return(z_error = FX_CHN);
- if (!(t = z_file[channel].z_fp))
+ if (!z_file[channel])
+ return(z_error = FX_NOP);
+ if (!(t = z_file[channel]->z_fp))
return(z_error = FX_NOP);
- pos = ftell(t); /* Save current file pointer */
+ pos = CKFTELL(t); /* Save current file pointer */
errno = 0;
z_error = 0;
if (what == RD_CHAR) { /* Size in bytes requested */
- if (!fseek(t,0L,2)) { /* Seek to end */
- count = ftell(t); /* Get file pointer */
- fseek(t,pos,0); /* Restore file file pointer */
+#ifdef COMMENT
+ if (!CKFSEEK(t,0L,2)) { /* Seek to end */
+ count = CKFTELL(t); /* Get file pointer */
+ CKFSEEK(t,pos,0); /* Restore file file pointer */
return(count);
} else /* Fallback in case seek fails */
- return(zgetfs(z_file[channel].z_name));
+#endif /* COMMENT */
+ return(zgetfs(z_file[channel]->z_name));
}
rewind(t); /* Line count requested - rewind. */
while (1) { /* Count lines. */
if (x == '\n') /* else... */
count++;
}
- x = fseek(t,pos,0); /* Restore file pointer */
+ x = CKFSEEK(t,pos,0); /* Restore file pointer */
return(count);
}
#define SEE_CHAR RD_CHAR
#define SEE_REL 3
#define SEE_ABS 4
+#define SEE_FIND 5
static struct keytab fskswtab[] = {
{ "/absolute", SEE_ABS, 0 },
{ "/byte", SEE_CHAR, 0 },
{ "/character", SEE_CHAR, CM_INV },
+ { "/find", SEE_FIND, CM_ARG },
{ "/line", SEE_LINE, 0 },
{ "/relative", SEE_REL, 0 }
};
static int nfwrtab = (sizeof (fwrtab) / sizeof (struct keytab));
static char blanks[] = "\040\040\040\040"; /* Some blanks for formatting */
+static char * seek_target = NULL;
int
dofile(op) int op; { /* Do the FILE command */
char vnambuf[VNAML]; /* Buffer for variable names */
char *vnp = NULL; /* Pointer to same */
char zfilnam[CKMAXPATH+2];
- char * p;
+ char * p, * m;
struct FDB fl, sw, nu;
- long z;
+ CK_OFF_T z;
int rsize, filmode = 0, relative = -1, eofflg = 0;
int rc, x, y, cx, n, getval, dummy, confirmed, listing = -1;
int charflag = 0, sizeflag = 0;
int pad = 32, wr_lpad = 0, wr_rpad = 0, rd_trim = 0, rd_untab = 0;
+ makestr(&seek_target,NULL);
+
if (op == XXFILE) { /* FILE command was given */
/* Get subcommand */
if ((cx = cmkey(fctab,nfctab,"Operation","",xxstring)) < 0) {
return(-9);
}
#ifdef COMMENT
- /* Uncomment if we add any switches ere that take args */
+ /* Uncomment if we add any switches here that take args */
if (!getval && (cmgkwflgs() & CM_ARG)) {
printf("?This switch requires an argument\n");
return(-9); /* (none do...) */
return(-9);
}
}
+ /* Assign a negative channel number in case we fail */
+ addmac(vnambuf,"-1");
+
if (!(filmode & FM_RWA)) /* If no access mode specified */
filmode |= FM_REA; /* default to /READ. */
y = 0; /* Now parse the filename */
- if ((filmode & FM_RWA) == FM_WRI)
- x = cmofi("Name of new file","",&s,xxstring);
- else if ((filmode & FM_RWA) == FM_REA)
- x = cmifi("Name of existing file","",&s,&y,xxstring);
- else {
+ if ((filmode & FM_RWA) == FM_WRI) {
+ x = cmofi("Name of new file","",&s,xxstring);
+ } else if ((filmode & FM_RWA) == FM_REA) {
+ x = cmifi("Name of existing file","",&s,&y,xxstring);
+ } else {
x = cmiofi("Filename","",&s,&y,xxstring);
- debug(F101,"fopen /append x","",x);
- }
- if (x == -9) {
- if (zchko(s) < 0) {
- printf("Can't create \"%s\"\n",s);
- return(x);
- }
- } else if (x < 0) {
+ debug(F111,"fopen /append x",s,x);
+ }
+ if (x < 0) {
if (x == -3) {
printf("?Filename required\n");
x = -9;
}
if ((x = cmcfm()) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
+
if ((rc = z_seek(n,0L)) < 0) {
printf("?REWIND failed - Channel %d: %s\n",n,ckferror(rc));
return(-9);
return(success = 1);
case FIL_CLS: /* CLOSE */
- cmfdbi(&sw, /* Second FDB - switches */
- _CMKEY, /* fcode */
- "Channel number; or keyword",
- "",
- "", /* addtl string data */
- 1, /* addtl numeric data 1: tbl size */
- 0, /* addtl numeric data 2: 4 = cmswi */
- xxstring, /* Processing function */
- fclkwtab, /* Keyword table */
- &nu /* Pointer to next FDB */
- );
- cmfdbi(&nu, /* First FDB - command switches */
+#ifdef COMMENT /* fdc 20100804 - bad idea */
+ {
+ int i, j, k; /* Supply default if only one open */
+ s = "";
+ for (k = 0, j = 0, i = 0; i < z_maxchan; i++) {
+ if (z_file)
+ if (z_file[i])
+ if (z_file[i]->z_fp) { k++; j = i; }
+ }
+ if (k == 1) s = ckitoa(j);
+ }
+#endif /* COMMENT */
+ cmfdbi(&nu, /* Second FDB - channel number */
_CMNUM, /* fcode */
- "",
- "", /* default */
+ "Channel number or ALL", /* Help message */
+ s, /* default */
"", /* addtl string data */
10, /* addtl numeric data 1: radix */
0, /* addtl numeric data 2: 0 */
xxstring, /* Processing function */
NULL, /* Keyword table */
- NULL /* Pointer to next FDB */
- ); /* */
- x = cmfdb(&sw); /* Parse something */
+ &sw /* Pointer to next FDB */
+ ); /* Pointer to next FDB */
+ cmfdbi(&sw, /* First FDB - command switches */
+ _CMKEY, /* fcode */
+ "", /* help message */
+ "", /* Default */
+ "", /* No addtl string data */
+ 1, /* addtl numeric data 1: tbl size */
+ 0, /* addtl numeric data 2: 4 = cmswi */
+ xxstring, /* Processing function */
+ fclkwtab, /* Keyword table */
+ NULL /* Last in chain */
+ );
+ x = cmfdb(&nu); /* Parse something */
if (x < 0) {
if (x == -3) {
printf("?Channel number or ALL required\n");
n = -1;
if ((x = cmcfm()) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
+
rc = 1;
if (n < 0) {
int count = 0;
}
return(x);
}
+ if (rsize > LINBUFSIZ) {
+ printf("?Maximum FREAD/FWRITE size is %d\n",LINBUFSIZ);
+ rsize = 0;
+ return(-9);
+ }
charflag = 0;
sizeflag = 1;
break;
int len = 0;
if ((x = cmtxt("Text","",&s,xxstring)) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
+
ckstrncpy(line,s,LINBUFSIZ); /* Make a safe copy */
s = line;
s = brstrip(s); /* Strip braces */
if ((x = cmcfm()) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
+
line[0] = NUL; /* Clear destination buffer */
+#ifdef COMMENT
if (rsize >= LINBUFSIZ) /* Don't overrun it */
rsize = LINBUFSIZ - 1;
+#endif /* COMMENT */
if (rsize == 0) { /* Read a line */
rc = z_in(n,line,LINBUFSIZ,LINBUFSIZ-1,0);
switch (cmresult.nresult) {
case SEE_REL: relative = 1; break;
case SEE_ABS: relative = 0; break;
+ case SEE_FIND: {
+ if (getval) {
+ y = cmfld("string or pattern","",&s,xxstring);
+ if (y < 0)
+ return(y);
+ makestr(&seek_target,brstrip(s));
+ break;
+ }
+ }
default: rsize = cmresult.nresult;
}
} else if (cx == FIL_COU) {
if (cx == FIL_COU) {
if ((x = cmcfm()) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
+
z_filcount = z_count(n,rsize);
if (z_filcount < 0) {
rc = z_filcount;
);
return(success = (z_filcount > -1) ? 1 : 0);
}
+ m = (rsize == RD_CHAR) ?
+ "Number of bytes;\n or keyword" :
+ "Number of lines;\n or keyword";
cmfdbi(&sw, /* SEEK symbolic targets (EOF) */
_CMKEY, /* fcode */
- "Channel number;\n or keyword",
+ m,
"",
"", /* addtl string data */
nfsekwtab, /* addtl numeric data 1: table size */
fsekwtab, /* Keyword table */
&nu /* Pointer to next FDB */
);
- cmfdbi(&nu, /* Channel number */
- _CMNUM, /* fcode */
+ cmfdbi(&nu, /* Byte or line number */
+ _CMNUW, /* fcode */
"",
"", /* default */
"", /* addtl string data */
}
return(x);
}
- if (cmresult.fcode == _CMNUM) {
- y = cmresult.nresult;
+ if (cmresult.fcode == _CMNUW) {
+ z = cmresult.wresult;
debug(F110,"FILE SEEK atmbuf",atmbuf,0);
if (relative < 0) {
if (cx == FIL_SEE && (atmbuf[0] == '+' || atmbuf[0] == '-'))
}
if ((x = cmcfm()) < 0)
return(x);
- z = y; /* Convert to long */
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
y = 1; /* Recycle this */
z_flush(n);
debug(F101,"FILE SEEK relative","",relative);
if (rsize == RD_CHAR) { /* Seek to byte position */
if (relative > 0) {
- long pos;
+ CK_OFF_T pos;
pos = z_getpos(n);
- if (pos < 0L) {
+ if (pos < (CK_OFF_T)0) {
rc = pos;
printf("?Relative SEEK failed: %s\n",ckferror(rc));
return(-9);
}
} else { /* Seek to line */
if (relative > 0) {
- long pos;
+ CK_OFF_T pos;
pos = z_getline(n);
debug(F101,"FILE SEEK /LINE pos","",pos);
- if (pos < 0L) {
+ if (pos < 0) {
rc = pos;
printf("?Relative SEEK failed: %s\n",ckferror(rc));
return(-9);
return(-9);
}
}
- return(success = y);
+ /*
+ Now, having sought to the desired starting spot, if a /FIND:
+ target was specified, look for it now.
+ */
+ if (seek_target) {
+ int flag = 0, ispat = 0, matchresult = 0;
+ while (!flag) {
+ y = z_in(n,line,LINBUFSIZ,LINBUFSIZ-1,0);
+ if (y < 0) {
+ y = 0;
+ break;
+ }
+ if (ispattern(seek_target)) {
+ matchresult = ckmatch(seek_target,line,inpcas[cmdlvl],1+4);
+ } else {
+ /* This is faster */
+ matchresult = ckindex(seek_target,line,0,0,inpcas[cmdlvl]);
+ }
+ if (matchresult) {
+ flag = 1;
+ break;
+ }
+ }
+ if (flag) {
+ debug(F111,"FSEEK HAVE MATCH",seek_target,z_getline(n));
+ /* Back up to beginning of line where target found */
+ if ((y = z_line(n,z_getline(n)-1)) < 0) {
+ if (rc == FX_EOF) return(success = 0);
+ printf("?SEEK /LINE failed - Channel %d: %s\n",
+ n,ckferror(rc));
+ return(-9);
+ }
+ debug(F101,"FSEEK LINE","",y);
+ }
+ }
+ return(success = (y < 0) ? 0 : 1);
case FIL_LIS: { /* LIST open files */
#ifdef CK_TTGWSIZ
#endif /* CK_TTGWSIZ */
paging = xaskmore;
- printf("System open file limit: %4d\n", z_openmax);
- printf("Maximum for FILE OPEN: %4d\n", z_maxchan);
- printf("Files currently open: %4d\n\n", z_nopen);
+ printf("System open file limit:%5d\n", z_openmax);
+ printf("Maximum for FILE OPEN: %5d\n", z_maxchan);
+ printf("Files currently open: %5d\n\n", z_nopen);
n = 4;
for (i = 0; i < z_maxchan; i++) {
s = z_getname(i); /* Got one? */
printf("%2d. %s",i,s); /* Print name */
n++; /* Count it */
x = z_getmode(i); /* Get modes & print them */
- if (x > -1) {
+ if (x > 0) {
if (x & FM_REA) ckstrncat(m,"R",8);
if (x & FM_WRI) ckstrncat(m,"W",8);
if (x & FM_APP) ckstrncat(m,"A",8);
printf(" (%s)",m);
if (x & FM_EOF)
printf(" [EOF]");
- else
- printf(" %ld",z_getpos(i)); /* And file position too */
+ else /* And file position too */
+ printf(" %s",ckfstoa(z_getpos(i)));
}
printf("\n");
#ifdef CK_TTGWSIZ
}
if ((x = cmcfm()) < 0)
return(x);
+ if (n == -9) return(success = 0);
+ if (n == -8) return(success = 1);
if ((rc = z_flush(n)) < 0) {
printf("?FLUSH failed - Channel %d: %s\n",n,ckferror(rc));
return(-9);
return(success = 1);
case FIL_STA: /* STATUS */
- if ((x = cmnum("Channel number","",10,&n, xxstring)) < 0) {
+ {
+ int i, j, k; /* Supply default if only one open */
+ s = "";
+ for (k = 0, j = 0, i = 0; i < z_maxchan; i++) {
+ if (z_file)
+ if (z_file[i])
+ if (z_file[i]->z_fp) { k++; j = i; }
+ }
+ if (k == 1) s = ckitoa(j);
+ }
+ if ((x = cmnum("Channel number",s,10,&n, xxstring)) < 0) {
if (x == -3) {
- printf("?Channel number required\n");
- x = -9;
- }
- return(x);
+ if (z_nopen > 1) {
+ printf("?%d files open - please supply channel number\n",
+ z_nopen);
+ return(-9);
+ }
+ } else
+ return(x);
}
- if ((x = cmcfm()) < 0)
- return(x);
+ if ((y = cmcfm()) < 0)
+ return(y);
+ if ((!z_file || z_nopen == 0) && x == -3) {
+ printf("No files open\n");
+ return(success = 1);
+ }
p = blanks + 3; /* Tricky formatting... */
if (n < 1000) p--;
if (n < 100) p--;
printf("Channel %d:%sNot open\n",n,p);
return(success = 0);
} else {
- long xx;
+ CK_OFF_T xx;
s = z_getname(n);
if (!s) s = "(name unknown)";
printf("Channel %d:%sOpen\n",n,p);
if (rc & FM_BIN) printf(" /BINARY");
if (rc & FM_CMD) printf(" /COMMAND");
if (rc & FM_EOF) printf(" [EOF]");
- printf("\n Size: %ld\n",z_count(n,RD_CHAR));
- printf(" At byte: %ld\n",z_getpos(n));
+ printf("\n Size: %s\n",ckfstoa(z_count(n,RD_CHAR)));
+ printf(" At byte: %s\n",ckfstoa(z_getpos(n)));
xx = z_getline(n);
- if (xx > -1)
- printf(" At line: %ld\n",xx);
+ if (xx > (CK_OFF_T)-1)
+ printf(" At line: %s\n",ckfstoa(xx));
return(success = 1);
}
default:
#ifndef NORECALL
if (y == SV_HIST) /* .. HISTORY */
return(success = savhistory(s,disp));
- break;
#endif /* NORECALL */
+ break;
#ifdef OS2
#ifndef NOLOCAL
printf("\n");
if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
break;
+#ifdef CK_SSL
case AUTHTYPE_SSL:
kv = all ? AUTHTYPE_SRP : 0;
if (ck_ssleay_is_installed()) {
if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
continue;
}
-
-#ifdef CK_SSL
printf(" RSA Certs file: %s\n",ssl_rsa_cert_file?
ssl_rsa_cert_file:"(none)");
if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
#ifdef CK_RECALL
extern int on_recall; /* around Password prompting */
#endif /* CK_RECALL */
- struct stringint { /* Temporary array for switch values */
- char * sval; /* String value */
- int ival; /* Integer value */
- } pv[KRB_I_MAX+1]; /* This many */
+ struct stringint pv[KRB_I_MAX+1]; /* Temporary array for switch values */
struct FDB kw, sw, fl; /* FDBs for each parse function */
krb_action = -1; /* Initialize Kerberos action. */
if (krb5_d_instance)
makestr(&tmpinst,krb5_d_instance);
}
-
for (i = 0; i <= KRB_I_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = 0; /* and 0 int values */
+ pv[i].wval = (CK_OFF_T)-1; /* and -1 wide values */
}
-
if (kv == 4) { /* Kerberos 4 */
pv[KRB_I_LF].ival = krb4_d_lifetime;
pv[KRB_I_PA].ival = krb4_d_preauth;
#ifdef CK_RECALL
extern int on_recall; /* around Password prompting */
#endif /* CK_RECALL */
-#ifdef CK_PAM
+#ifdef COMMENT
extern int guest;
-#endif /* CK_PAM */
+#endif /* COMMENT */
int rprompt = 0; /* Restore prompt */
#ifdef CKSYSLOG
int savlog;
debug(F111,"ckxlogin zvuser",userid,ok);
if (!*passwd && promptok
-#ifdef CK_PAM
+#ifdef COMMENT
&& guest
-#endif /* CK_PAM */
+#endif /* COMMENT */
) {
char prmpt[80];
if (pflag) prompt(xxstring); /* Issue prompt if at top level */
cmres(); /* Reset the parser */
for (x = -1; x < 0;) { /* Prompt till they answer */
+#ifdef CK_PAM
+ gotemptypasswd=0;
+#endif /* CK_PAM */
x = cmtxt("","",&s,NULL); /* Get a literal line of text */
if (x == -4 || x == -10) {
printf("\r\n%sLogin cancelled\n",
#endif /* CKSYSLOG */
doexit(GOOD_EXIT,0);
}
+#ifdef CK_PAM
+ if (!*s)
+ gotemptypasswd = 1;
+#endif /* CK_PAM */
if (sstate) /* In case of a Kermit packet */
goto XCKXLOG;
cmres(); /* Reset the parser again */
if (ok) {
ok = zvpass((char *)passwd); /* Check password */
debug(F101,"ckxlogin zvpass","",ok);
+#ifdef CK_PAM
+ } else {
+ /* Fake pam password failure for nonexistent users */
+ sleep(1);
+ printf("Authentication failure\n");
+#endif /* CK_PAM */
}
if (ok > 0 && isguest) {
#endif /* SSHTEST */
#include "ckcsym.h"
-char *userv = "User Interface 8.0.278, 12 Mar 2004";
+char *userv = "User Interface 9.0.299, 9 Jun 2011";
/* C K U U S R -- "User Interface" for C-Kermit (Part 1) */
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
parser are these:
. Set parameters via global variables like duplex, speed, ttname, etc. See
- ckmain.c for the declarations and descriptions of these variables.
+ ckcmai.c for the declarations and descriptions of these variables.
. If a command can be executed without the use of Kermit protocol, then
execute the command directly and set the variable sstate to 0. Examples
#ifdef NEWFTP
extern int ftpget, ftpisopen(), doftpres();
_PROTOTYP(int doftptyp,(int));
+_PROTOTYP(VOID doftpglobaltype,(int));
#endif /* NEWFTP */
#ifdef VMS
extern int isguest;
#endif /* CK_LOGIN */
-extern long sendstart;
+extern CK_OFF_T sendstart;
extern char *cmarg, *cmarg2, **cmlist, *dftty;
char *lp; /* Pointer to line buffer */
#ifndef NOSPL
+int vareval = 1; /* Evaluation method */
int unkmacro = 0; /* Flag for in ON_UNKNOWN_COMMAND */
int oldeval = 0;
char evalbuf[33]; /* EVALUATE result */
extern char * inpbuf; /* Buffer for INPUT and REINPUT */
char *inpbp; /* And pointer to same */
-extern char lblbuf[]; /* Buffer for labels */
int m_found; /* MINPUT result */
int i_active = 0; /* INPUT command is active */
char *ms[MINPMAX]; /* Pointers to MINPUT strings */
-static int mp[MINPMAX]; /* and flags */
+static int mpinited = 0; /* Flag they have been initialized */
+static int mp[MINPMAX]; /* and MINPUT flags */
extern int fndiags, fnerror, fnsuccess; /* Function diagnostics */
#ifndef NOSEXP
char * lastsexp = NULL; /* S-Expressions */
inecho = 1, /* 1 = echo on */
inautodl = 0, /* INPUT autodownload */
inintr = 1, /* INPUT interrupion allowed */
- innomatch = 0, /* INPUT /NOMATCH */
insilence = 0; /* 0 = no silence constraint */
#ifdef CKFLOAT
char alrm_date[24] = { ' ',' ',' ',' ',' ',' ',' ',' ',' ' };
char alrm_time[24] = { ' ',' ',' ',' ',' ',' ',' ' };
-#define INPSW_NOM 1
struct keytab inputsw[] = {
- { "/nomatch", INPSW_NOM, 0 }
+ { "/clear", INPSW_CLR, 0 },
+ { "/count", INPSW_COU, CM_ARG },
+ { "/nomatch", INPSW_NOM, 0 },
+ { "/nowrap", INPSW_NOW, 0 }
};
static int ninputsw = sizeof(inputsw)/sizeof(struct keytab);
+/* The following should be reconciled with the above */
+
+#ifdef COMMENT /* INPUT switches not used yet... */
+static struct keytab inswtab[] = {
+#ifdef COMMENT
+ { "/assign", IN_ASG, CM_ARG },
+#endif /* COMMENT */
+ { "/autodownload", IN_ADL, CM_ARG },
+ { "/case", IN_CAS, CM_ARG },
+ { "/echo", IN_ECH, CM_ARG },
+ { "/interrupts", IN_NOI, CM_ARG },
+ { "/silence", IN_SIL, CM_ARG },
+#ifdef COMMENT
+ { "/pattern", IN_PAT, CM_ARG },
+#endif /* COMMENT */
+ { "", 0, 0 }
+};
+static int ninswtab = (sizeof(inswtab) / sizeof(struct keytab)) - 1;
+#endif /* COMMENT */
+
+
#endif /* NOSPL */
static int x, y, z = 0; /* Local workers */
#ifndef NOSPL
{ "date", XXDATE, 0 }, /* DATE */
{ "dcl", XXDCL, CM_INV }, /* DECLARE an array (see ARRAY) */
- { "debug", XXDEBUG, CM_INV },
+ { "debug", XXDEBUG, 0 }, /* Print a debugging msg [9.0] */
{ "declare", XXDCL, CM_INV }, /* DECLARE an array (see ARRAY) */
{ "decrement", XXDEC, 0 }, /* DECREMENT a numeric variable */
- { "define", XXDEF, 0 }, /* DEFINE a macro or variable */
+ { "define", XXDEF, 0 }, /* DEFINE a macro or variable */
#else
{ "date", XXNOTAV, CM_INV },
{ "dcl", XXNOTAV, CM_INV },
#ifndef NOLOCAL
{ "hangup", XXHAN, CM_LOC }, /* HANGUP the connection */
#endif /* NOLOCAL */
+ { "hdirectory", XXHDIR, CM_INV }, /* DIR sorted by size biggest first */
{ "HELP", XXHLP, 0 }, /* Display HELP text */
#ifndef NOHTTP
#ifdef TCPSOCKET
#endif /* NT */
{ "lmkdir", XXLMKD, CM_INV },
+ { "lmv", XXLREN, CM_INV },
#ifndef NOFRILLS
{ "lo", XXLOG, CM_INV|CM_ABR }, /* Invisible synonym for log */
{ "local", XXNOTAV, CM_INV },
#endif /* NOSPL */
+ { "locus", XXLOCU, CM_INV|CM_HLP }, /* "help locus" */
+
{ "log", XXLOG, 0 }, /* Open a log file */
{ "login", XXLOGIN, 0 }, /* (REMOTE) LOGIN to server or IKSD */
#ifdef CK_MKDIR
{ "md", XXMKDIR, CM_INV }, /* Synonym for MKDIR */
#endif /* CK_MKDIR */
+ { "message", XXMSG, 0 }, /* Print debugging message */
#ifdef CK_MINPUT
{ "minput", XXMINP, 0 }, /* MINPUT */
#else
{ "msend", XXNOTAV, CM_INV },
#endif /* NOMSEND */
#endif /* NOXFER */
+ { "msg", XXMSG, CM_INV }, /* Print debugging message */
#ifndef NOSPL
{ "msleep", XXMSL, 0 }, /* Millisecond sleep */
#else
{ "put", XXSEN, CM_INV }, /* PUT = SEND */
#endif /* NOXFER */
+#ifdef UNIX
+#ifndef NOPUTENV
+ { "putenv", XXPUTE, CM_INV }, /* PUTENV */
+#endif /* NOPUTENV */
+#endif /* UNIX */
+
{ "pwd", XXPWD, 0 }, /* Print Working Directory */
{ "q", XXQUI, CM_INV|CM_ABR }, /* Invisible synonym for QUIT */
#ifndef NOXFER
#ifdef CK_RESEND
+ { "rep", XXTYP, CM_INV|CM_ABR }, /* REPLAY abbreviation */
+ { "reput", XXRSEN, CM_INV }, /* REPUT = RESEND */
{ "res", XXRSEN, CM_INV|CM_ABR }, /* RESEND */
{ "rese", XXRSEN, CM_INV|CM_ABR }, /* RESEND */
{ "resend", XXRSEN, 0 }, /* RESEND */
#else
+ { "reput", XXNOTAV, CM_INV },
{ "res", XXNOTAV, CM_INV },
{ "rese", XXNOTAV, CM_INV },
{ "resend", XXNOTAV, CM_INV },
#endif /* CK_MKDIR */
#ifndef NOXFER
+ { "rmessage", XXRMSG, CM_INV }, /* REMOTE MESSAGE */
{ "rmkdir", XXRMKD, CM_INV }, /* REMOTE MKDIR */
+ { "rmsg", XXRMSG, CM_INV }, /* REMOTE MESSAGE */
#ifndef NOSPL
{ "robust", XXROB, CM_INV },
#else
#ifndef NOXFER
{ "text", XXASC, CM_INV }, /* == SET FILE TYPE TEXT */
#endif /* NOXFER */
-
+ { "touch", XXTOUC, 0 }, /* TOUCH */
#ifndef NOSPL
{ "trace", XXTRACE, 0 }, /* TRACE */
#else
{ "wait", XXNOTAV, CM_INV },
#endif /* NOSPL */
+ { "wdirectory", XXWDIR, CM_INV }, /* Like TOPS-20, reverse chron order */
{ "wermit", XXKERMI, CM_INV },
#ifndef NOXFER
#endif /* NOCSETS */
#ifndef NOXMIT
+ { "xm", XXTRA, CM_INV|CM_ABR }, /* Avoid conflict with XMESSAGE */
+#else
+ { "xm", XXNOTAV, CM_INV|CM_ABR }, /* Synonym for TRANSMIT */
+#endif /* NOXMIT */
+
+ { "xmessage", XXXMSG, 0 }, /* Print debugging message */
+
+#ifndef NOXMIT
{ "xmit", XXTRA, CM_INV }, /* Synonym for TRANSMIT */
#else
{ "xmit", XXNOTAV, CM_INV },
#endif /* NOSPL */
{ "exit", XYEXIT, 0 },
#ifndef NOXFER
+#ifdef CK_XYZ
+#ifndef NOPUSH
+#ifndef XYZ_INTERNAL
+ { "external-protocol",XYEXTRN, 0 },
+#endif /* XYZ_INTERNAL */
+#endif /* NOPUSH */
+#endif /* CK_XYZ */
{ "f-ack-bug", XYFACKB, CM_INV },
{ "f-ack-path", XYFACKP, CM_INV },
#endif /* NOXFER */
{ "recv", XYRECV, CM_INV },
#endif /* NOXFER */
{ "reliable", XYRELY, 0 },
+ { "rename", XY_REN, 0 },
#ifndef NOXFER
{ "repeat", XYREPT, 0 },
{ "retry-limit", XYRETR, 0 },
#ifndef NOCSETS
{ "unknown-char-set", XYUNCS, 0 },
#endif /* NOCSETS */
+#ifndef NOSPL
+ { "variable-evaluation", XYVAREV, CM_INV },
+#endif /* NOSPL */
#endif /* NOXFER */
{ "wait", XYSLEEP, CM_INV },
#ifndef NOPUSH
{ "log", XZLGI, CM_ABR|CM_INV },
{ "login", XZLGI, 0 },
{ "logout", XZLGO, 0 },
+ { "message", XZMSG, 0 },
{ "mkdir", XZMKD, 0 },
{ "print", XZPRI, 0 },
#endif /* NOFRILLS */
};
int nwri = (sizeof(writab) / sizeof(struct keytab));
-#ifdef COMMENT /* INPUT switches not used yet... */
-static struct keytab inswtab[] = {
-#ifdef COMMENT
- { "/assign", IN_ASG, CM_ARG },
-#endif /* COMMENT */
- { "/autodownload", IN_ADL, CM_ARG },
- { "/case", IN_CAS, CM_ARG },
- { "/echo", IN_ECH, CM_ARG },
- { "/interrupts", IN_NOI, CM_ARG },
- { "/silence", IN_SIL, CM_ARG },
-#ifdef COMMENT
- { "/pattern", IN_PAT, CM_ARG },
-#endif /* COMMENT */
- { "", 0, 0 }
-};
-static int ninswtab = (sizeof(inswtab) / sizeof(struct keytab)) - 1;
-#endif /* COMMENT */
-
static struct keytab clrtab[] = { /* Keywords for CLEAR command */
#ifndef NOSPL
{ "alarm", CLR_ALR, 0 },
#ifndef NOXFER
{ "protocol", SHPRO, 0 },
#endif /* NOXFER */
+ { "rename", SHOREN, 0 },
#ifndef NOSPL
{ "scripts", SHSCR, CM_LOC },
#endif /* NOSPL */
} else {
#endif /* OS2 */
if (isauto && msgflg && !quitting)
- printf("Switching LOCUS for file-management commands to %s.\n",
- x ? "LOCAL" : "REMOTE"
+ printf("Switching LOCUS for file-management commands to %s %s.\n",
+ x ? "LOCAL" : "REMOTE",
+ "(HELP LOCUS for info)"
);
locus = x;
#ifdef OS2
_PROTOTYP (int dodef, ( int ) );
_PROTOTYP (int doelse, ( void ) );
_PROTOTYP (int dofor, ( void ) );
-_PROTOTYP (int doincr, ( int ) );
#endif /* NOSPL */
#ifndef NODIAL
_PROTOTYP (int dodial, ( int ) );
extern int rprintf; /* REMOTE PRINT flag */
extern int fdispla; /* TRANSFER DISPLAY setting */
extern int skipbup; /* Skip backup files when sending */
- struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
- } pv[SND_MAX+1];
+ struct stringint pv[SND_MAX+1]; /* Temporary array for switch values */
struct FDB sf, sw, fl, cm; /* FDBs for each parse function */
int mlist = 0; /* Flag for MSEND or MMOVE */
char * m; /* For making help messages */
extern int xfrxla, g_xfrxla, nprotos;
extern char sndbefore[], sndafter[], *sndexcept[]; /* Selection criteria */
extern char sndnbefore[], sndnafter[];
- extern long sndsmaller, sndlarger, calibrate;
+ extern CK_OFF_T sndsmaller, sndlarger, calibrate;
#ifndef NOSPL
int range[2]; /* Array range */
char ** ap = NULL; /* Array pointer */
for (i = 0; i <= SND_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = -1; /* and -1 int values */
+ pv[i].wval = (CK_OFF_T)-1; /* and -1 wide values */
}
#ifndef NOSPL
range[0] = -1;
break;
case SND_SMA: /* Smaller / larger than */
- case SND_LAR:
- if (!getval) break;
- if ((x = cmnum("Size in bytes","0",10,&y,xxstring)) < 0)
- goto xsendx;
- pv[n].ival = y;
- break;
-
+ case SND_LAR: {
+ CK_OFF_T w;
+ if (!getval) break;
+ if ((x = cmnumw("Size in bytes","0",10,&w,xxstring)) < 0)
+ goto xsendx;
+ pv[n].wval = w;
+ break;
+ }
case SND_AFT: /* Send /AFTER:date-time */
case SND_BEF: /* Send /BEFORE:date-time */
case SND_NAF: /* Send /NOT-AFTER:date-time */
}
break;
- case SND_STA: /* Starting position (= PSEND) */
- if (!getval) break;
- if ((x = cmnum("0-based position","0",10,&y,xxstring)) < 0)
- goto xsendx;
- pv[n].ival = y;
- break;
-
+ case SND_STA: { /* Starting position (= PSEND) */
+ CK_OFF_T w;
+ if (!getval) break;
+ if ((x = cmnumw("0-based position","0",10,&w,xxstring)) < 0)
+ goto xsendx;
+ pv[n].wval = w;
+ break;
+ }
case SND_PRO: /* Protocol to use */
if (!getval) break;
if ((x = cmkey(protos,nprotos,"File-transfer protocol","",
break;
#ifdef CALIBRATE
- case SND_CAL: /* /CALIBRATE */
- if (getval) {
- if ((x = cmnum("number of Kbytes to send",
- "1024",10,&y,xxstring)) < 0)
- goto xsendx;
- } else
- y = 1024;
- pv[n].ival = y;
- pv[SND_ARR].ival = 0;
- break;
+ case SND_CAL: { /* /CALIBRATE */
+ CK_OFF_T w;
+ if (getval) {
+ if ((x = cmnumw("number of Kbytes to send",
+ "1024",10,&w,xxstring)) < 0)
+ goto xsendx;
+ } else
+ w = (CK_OFF_T)1024;
+ pv[n].wval = w;
+ pv[SND_ARR].ival = 0;
+ break;
+ }
#endif /* CALIBRATE */
case SND_FIL: /* Name of file containing filnames */
goto xsendx;
}
if (pv[SND_RES].ival > 0 || /* /RECOVER */
- pv[SND_STA].ival > 0) { /* or /STARTING */
+ pv[SND_STA].wval > 0) { /* or /STARTING */
if (sndfilter || pv[SND_FLT].ival > 0) {
printf("?Sorry, no /RECOVER or /START if SEND FILTER selected\n");
x = -9;
x = -9;
goto xsendx;
}
- if (pv[SND_STA].ival > 0) { /* /START */
+ if (pv[SND_STA].wval > 0) { /* /START */
if (wild) {
printf("?Sorry, wildcards not permitted with /START\n");
x = -9;
goto xsendx;
}
if (sizeof(int) < 4) {
- printf("?Sorry, this command needs 32-bit integers\n");
+ printf("?Sorry, this command needs at least 32-bit integers\n");
x = -9;
goto xsendx;
}
#endif /* NOFRILLS */
#ifdef CALIBRATE
- if (pv[SND_CAL].ival > 0) { /* Handle /CALIBRATE */
+ if (pv[SND_CAL].wval > 0) { /* Handle /CALIBRATE */
if (confirmed) {
- calibrate = pv[SND_CAL].ival * 1024L;
+ calibrate = pv[SND_CAL].wval * (CK_OFF_T)1024;
sndsrc = -9;
nfils = 1;
wild = 0;
if (!cmarg2) cmarg2 = "";
debug(F110,"doxsend cmarg2 calibrate",cmarg2,0);
} else if (line[0]) {
- calibrate = 0L;
- pv[SND_CAL].ival = 0L;
+ calibrate = 0;
+ pv[SND_CAL].ival = 0;
+ pv[SND_CAL].wval = 0;
}
}
#endif /* CALIBRATE */
cmlist = msfiles; /* List of files to send */
sndsrc = nfils;
cmarg2 = "";
- sendstart = 0L;
+ sendstart = (CK_OFF_T)0;
#endif /* NOMSEND */
#ifdef PIPESEND
pipesend = 0;
1
#endif /* NOFRILLS */
) {
- int y = 1;
+ CK_OFF_T y = (CK_OFF_T)1;
if (!wild)
y = zchki(s);
- if (y < 0) {
+ if (y < (CK_OFF_T)0) {
printf("?Read access denied - \"%s\"\n", s);
x = -9;
goto xsendx;
#ifdef CK_RESEND
debug(F111,"xsend pv[SND_STA].ival","",pv[SND_STA].ival);
- if (pv[SND_STA].ival > -1) { /* /START position */
+ if (pv[SND_STA].wval > (CK_OFF_T)-1) { /* /START position */
if (wild) {
printf("?/STARTING-AT may not be used with multiple files.\n");
x = -9;
goto xsendx;
} else
- sendstart = pv[SND_STA].ival;
+ sendstart = pv[SND_STA].wval;
} else
- sendstart = 0L;
+ sendstart = (CK_OFF_T)0;
debug(F101,"xsend /STARTING","",sendstart);
#endif /* CK_RESEND */
}
ckstrncpy(sndnbefore,pv[SND_NBE].sval,19);
if (pv[SND_EXC].ival > 0)
makelist(pv[SND_EXC].sval,sndexcept,NSNDEXCEPT);
- if (pv[SND_SMA].ival > -1)
- sndsmaller = pv[SND_SMA].ival;
- if (pv[SND_LAR].ival > -1)
- sndlarger = pv[SND_LAR].ival;
+ if (pv[SND_SMA].wval > (CK_OFF_T)-1)
+ sndsmaller = pv[SND_SMA].wval;
+ if (pv[SND_LAR].wval > (CK_OFF_T)-1)
+ sndlarger = pv[SND_LAR].wval;
if (pv[SND_NAM].ival > -1) {
g_fncnv = fncnv; /* Save global value */
fncnv = pv[SND_NAM].ival;
static char * g_tt_idlesnd_str; /* global settings */
#endif /* OS2 */
-static struct stringint { /* Temporary array for switch values */
- char * sval;
- int ival;
-} pv[CONN_MAX+1];
+static struct stringint pv[CONN_MAX+1];
VOID
resconn() {
for (i = 0; i <= CONN_MAX; i++) { /* Initialize switch values */
pv[i].sval = NULL; /* to null pointers */
pv[i].ival = -1; /* and -1 int values */
+ pv[i].wval = (CK_OFF_T)-1;
}
if (cx == XXCQ) /* CQ == CONNECT /QUIETLY */
pv[CONN_NV].ival = 1;
}
#endif /* CK_TRIGGER */
+#ifdef SSHCMD
+/*
+ 2010/03/01...
+ The previous connection was through the external ssh client and now, with
+ that connection closed, the user says "connect" and expects a new connection
+ to be made to the same host, because that's how all the other connection
+ methods work, so (and this is quite a hack)...
+*/
+ if (!ckstrcmp("ssh ",ttname,4,0)) { /* Previous "host" was "ssh blah" */
+ _PROTOTYP (int redossh, ( void ) );
+ extern int ttyfd;
+ if (ttyfd < 0) { /* And connection is no longer open */
+ int xx;
+ xx = redossh(); /* So redo the SSH connection */
+ if (xx < 0) return(xx);
+ goto xconnx;
+ }
+ }
+#endif /* SSHCMD */
x = doconect((pv[CONN_NV].ival > 0) ? 1 : 0, async);
{
int xx;
"]",
NULL,NULL,NULL,NULL,NULL,NULL,NULL
);
- if ((rc = cmfld((char *)tmp,"",&s,xxstring)) < 0) { /* Get field */
- if (rc == -3) /* If answer is empty, we're done */
- break;
- else /* Parse error, free temp pointers */
- goto dclx;
+
+ rc = cmfld((char *)tmp,"",&s,xxstring); /* Get field */
+ if (rc < 0) { /* Error... */
+ if (rc == -3) { /* Empty element */
+ if (cmflgs == 1) /* because end of line? */
+ break; /* Yes, done initializing */
+ else /* No, it's just empty */
+ continue; /* Go on to next one. */
+ } else { /* Other parse error */
+ goto dclx; /* Go free temp pointers */
+ }
}
rc = 1;
if (v == 0 && !strcmp(s,"=")) /* Skip the = sign. */
printf("?Sorry, \\&@[] is read-only\n");
return(-9);
}
- rc = dclarray(c,0); /* Undeclare the array */
+ rc = dclarray(c,-1); /* Undeclare the array */
} else /* It wasn't declared */
rc = 1;
if (rc > -1) { /* Set return code and success */
a nonexistent file to be created.
*/
x = cmiofi("File to edit", (char *)tmpbuf, &s, &y, xxstring);
- if (x < 0) {
- if (x == -9) {
- if (zchko(s) < 0) {
- printf("Can't create \"%s\"\n",s);
- return(x);
- }
- } else if (x != -3)
- return(x);
- }
- if (x == -3)
- tmpbuf[0] = NUL;
- else {
+ debug(F111,"edit",s,x);
+ if (x < 0 && x != -3)
+ return(x);
+ if (x == -3) {
+ tmpbuf[0] = NUL;
+ } else {
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
- if (iswild((char *)tmpbuf)) {
- printf("?A single file please\n");
- return(-9);
- }
}
if ((z = cmcfm()) < 0) return(z);
+ if (y) {
+ printf("?A single file please\n");
+ return(-9);
+ }
if (nopush) {
printf("?Sorry, editing not allowed\n");
return(success = 0);
#endif /* OS2 */
} else
editfile[0] = NUL;
+ if (editfile[0]) {
+ if (zchki(editfile) < (CK_OFF_T)0 && zchko(editfile) < 0) {
+ printf("?Access denied: %s\n",editfile);
+ return(-9);
+ }
+ }
x = 0;
if (editopts[0]) {
#ifdef OS2
}
case HTTP_GET: /* GET */
case HTTP_IDX: { /* INDEX */
+ extern int wildena;
+ int tmp;
char * lfile = "";
if ((x = cmfld("URL or remote source file","",&s,xxstring)) < 0) {
if (x == -3) {
makestr(&http_rfile,s);
if (http_action == HTTP_GET && !http_type)
zstrip(http_rfile,&lfile);
- if ((x = cmofi("Local filename",lfile,&s,xxstring)) < 0)
- if (x != -3)
- goto xhttp;
+ /* URLs often contain question marks or other metacharacters */
+ /* cmofi() doesn't like them */
+ tmp = wildena;
+ wildena = 0;
+ if ((x = cmofi("Local filename",lfile,&s,xxstring)) < 0) {
+ wildena = tmp;
+ if (x != -3)
+ goto xhttp;
+ }
+ wildena = tmp;
makestr(&http_lfile,s);
break;
}
#endif /* CKLEARN */
+#ifdef SSHCMD
+/*
+ 2010/03/01...
+ Reopen a connection that was made with an external ssh client
+ after it has been closed.
+ */
+int
+redossh() {
+ int x, netsave;
+ x = nettype;
+ debug(F111,"redossh nettype",ttname,nettype);
+ if ((y = setlin(XXSSH,0,1)) < 0) {
+ if (errno)
+ printf("?%s\n",ck_errstr());
+ else
+ return(y);
+ nettype = x; /* Failed, restore net type. */
+ success = 0;
+ return(y);
+ }
+ netsave = x;
+ return(y);
+}
+#endif /* SSHCMD */
+
+/*
+ Like hmsga() in ckuus2.c but takes a single substitution parameter, s2,
+ which replaces every occurrence of "%s" in the first argument.
+ Added to print text containing the copyright year, so the year doesn't
+ have to be hardwired into lots of scattered text strings.
+*/
+int /* Print an array of lines, */
+#ifdef CK_ANSIC
+hmsgaa(char *s[], char *s2) /* pausing at end of each screen. */
+#else
+hmsgaa(s,s2) char *s[]; char *s2;
+#endif /* CK_ANSIC */
+{
+ extern int hmtopline;
+#ifdef OS2
+ extern int tt_rows[], tt_cols[];
+#else /* OS2 */
+ extern int tt_rows, tt_cols;
+#endif /* OS2 */
+ int x, y, i, j, k, n;
+ if ((x = cmcfm()) < 0) return(x);
+
+#ifdef CK_TTGWSIZ
+#ifdef OS2
+ ttgcwsz();
+#else /* OS2 */
+ /* Check whether window size changed */
+ if (ttgwsiz() > 0) {
+ if (tt_rows > 0 && tt_cols > 0) {
+ cmd_rows = tt_rows;
+ cmd_cols = tt_cols;
+ }
+ }
+#endif /* OS2 */
+#endif /* CK_TTGWSIZ */
+
+ printf("\n"); /* Start off with a blank line */
+ n = (hmtopline > 0) ? hmtopline : 1; /* Line counter */
+ for (i = 0; *s[i]; i++) {
+ printf((char *)s[i],s2); /* Print a line. */
+ printf("\n");
+ y = (int)strlen(s[i]);
+ k = 1;
+ for (j = 0; j < y; j++) /* See how many newlines were */
+ if (s[i][j] == '\n') k++; /* in the string... */
+ n += k;
+ if (n > (cmd_rows - 3) && *s[i+1]) /* After a screenful, give them */
+ if (!askmore()) return(0); /* a "more?" prompt. */
+ else n = 0;
+ }
+ printf("\n");
+ return(0);
+}
+
/* D O C M D -- Do a command */
/*
} else
return(y);
}
- ckstrncpy(lblbuf,s,LBLSIZ);
+ ckstrncpy(tmpbuf,s,TMPBUFSIZ);
if ((x = cmcfm()) < 0) return(x);
#else
if ((y = cmtxt("label","",&s,xxstring)) < 0) {
} else
return(y);
}
- ckstrncpy(lblbuf,brstrip(s),LBLSIZ);
+ ckstrncpy(tmpbuf,brstrip(s),TMPBUFSIZ);
#endif /* COMMENT */
- s = lblbuf;
+ s = tmpbuf;
debug(F111,"GOTO target",s,cx);
return(dogoto(s,cx));
}
if (x < 0)
return(x);
if (!*s) /* Needed for (=) and (:) */
- s = atmbuf;
+ s = cmdbuf+1; /* I can't explain why. */
k = ckmakmsg(tmp, size, contd ? " " : "(", s, NULL, NULL);
if (k < 1) {
printf("?SEXP too long - %d max\n",TMPBUFSIZ);
return(x);
if (!s) s = "";
#ifdef COMMENT
-/* This is to preserver the pre-8.0 behavior but it's too confusing */
+/* This is to preserve the pre-8.0 behavior but it's too confusing */
x = strlen(s);
x = (x > 1) ? ((s[0] == '"' && s[x-1] == '"') ? 1 : 0) : 0;
#endif /* COMMENT */
#endif /* NOSPL */
#ifndef NOFRILLS
+#ifndef NOHELP
if (cx == XXBUG) { /* BUG */
if ((x = cmcfm()) < 0) return(x);
return(dobug());
}
-#endif /* NOFRILLS */
+#endif /* NOHELP */
+#endif /* NOFRILLS */
#ifndef NOXFER
if (cx == XXBYE) { /* BYE */
}
#endif /* NOFRILLS */
- if (cx == XXDIR || cx == XXLS || cx == XXLDIR) { /* DIRECTORY or LS */
+ if (cx == XXTOUC) /* TOUCH */
+ return(dodir(cx));
+
+ /* DIRECTORY commands */
+
+ if (cx == XXDIR || cx == XXLS || cx == XXLDIR ||
+ cx == XXWDIR || cx == XXHDIR) {
#ifdef LOCUS
if (!locus && cx != XXLDIR) {
#ifdef NOXFER
#ifdef NOHELP
return(dohlp(XXHLP));
#else
- x = cmkey2(cmdtab,ncmd,"\nCommand or topic","help",toktab,xxstring,3);
- debug(F101,"HELP command x","",x);
+ x = cmkey2(cmdtab,
+ ncmd,"\nCommand or topic","help",toktab,xxstring,1+2+8);
+ debug(F111,"HELP command x",cmdbuf,x);
if (x == -5) {
y = chktok(toktab);
debug(F101,"HELP cmkey token","",y);
/* ungword(); */
switch (y) {
#ifndef NOPUSH
- case '!': x = XXSHE; break;
+ case '!':
+ case '@': x = XXSHE; break;
+ case '<': x = XXFUN; break;
#endif /* NOPUSH */
case '#': x = XXCOM; break;
case ';': x = XXCOM; break;
case '(': x = XXSEXP; break;
#endif /* NOSEXP */
#endif /* NOSPL */
- case '&': x = XXECH; break;
+#ifdef CK_RECALL
+ case '^': x = XXREDO; break;
+#endif /* CK_RECALL */
+ case '&': x = XXECH; break; /* (what is this?) */
default:
printf("\n?Invalid - %s\n",cmdbuf);
x = -2;
if (cx == XXINP || cx == XXREI || cx == XXMINP) {
long zz;
- extern int ispattern, isjoin;
+ int flags = 0, incount = 0;
+ extern int itsapattern, isjoin, isinbuflen;
+ int c, getval;
struct FDB sw, nu, fl;
int fc, havetime = 0;
if (cx == XXREI) {
m = "Timeout in seconds (ignored)";
} else {
- m = "Seconds to wait for input,\n or time of day hh:mm:ss, \
+ m = "Seconds to wait for input,\n or time of day hh:mm:ss,\
or switch";
}
- innomatch = 0; /* Initialize switch value(s) */
-
cmfdbi(&sw, /* First FDB - command switches */
_CMKEY, /* fcode */
m, /* helpmsg */
);
fc = (cx == XXREI) ? cmfdb(&nu) : cmfdb(&sw); /* Parse something */
+ for (y = 0; y < MINPMAX; y++) { /* Initialize search strings */
+ mp[y] = 0; /* Assume it's not a pattern */
+ if (!mpinited) {
+ ms[y] = NULL;
+ }
+ if (ms[y]) {
+ free(ms[y]); /* Free old strings, if any */
+ ms[y] = NULL;
+ }
+ }
+ mpinited = 1;
while (!havetime) {
if (fc < 0) { /* Error */
if (fc == -3) {
}
switch (cmresult.fcode) {
case _CMKEY: /* Switch */
- if (cmresult.nresult == INPSW_NOM) /* /NOMATCH */
- innomatch = 1;
- m = "Seconds to wait for input,\n or time of day hh:mm:ss";
- cmfdbi(&nu,_CMNUM,m,"","",10,0,xxstring,NULL,&fl);
- cmfdbi(&fl,_CMFLD,"","","",0,0,xxstring,NULL,NULL);
- fc = cmfdb(&nu); /* Parse something */
+ c = cmgbrk();
+ if ((getval = (c == ':' || c == '=')) &&
+ !(cmgkwflgs() & CM_ARG)) {
+ printf("?This switch does not take an argument\n");
+ return(-9);
+ }
+ if (getval && cmresult.nresult == INPSW_COU) {
+ if ((y = cmnum("Number of bytes to read",
+ "",10,&x,xxstring)) < 0)
+ return(y);
+ incount = x;
+ }
+ flags |= cmresult.nresult;
+ fc = cmfdb(&sw); /* Maybe parse more switches */
continue;
case _CMNUM: /* Seconds to time out */
/* Now parse the search text */
#ifdef CK_MINPUT
- for (y = 0; y < MINPMAX; y++) { /* Initialize strings */
- mp[y] = 0; /* Assume it's not a pattern */
- if (ms[y]) {
- free(ms[y]); /* Free old strings, if any */
- ms[y] = NULL;
- }
- }
if (cx == XXMINP) { /* MINPUT */
int i, k = 0, n = 0;
struct stringarray * q;
} else {
if (s) if (*s) {
makestr(&(ms[k]),brstrip(s));
- if (ispattern) mp[k] = 1;
- debug(F111,"MINPUT",ms[k],ispattern);
+ if (itsapattern) mp[k] = 1;
+ debug(F111,"MINPUT",ms[k],itsapattern);
k++;
}
}
/* INPUT or REINPUT */
- if ((y = cmtxt("Material to be input","",&s,xxstring)) < 0)
- return(y);
- mp[0] = ispattern ? 1 : 0;
+ if (flags & INPSW_COU) {
+ if ((y = cmcfm()) < 0)
+ return(y);
+ } else {
+ if ((y = cmtxt("Material to be input","",&s,xxstring)) < 0)
+ return(y);
+ }
+ mp[0] = itsapattern ? 1 : 0;
makestr(&(ms[0]),brstrip(s));
ms[1] = NULL;
}
#endif /* CK_MINPUT */
-#ifdef COMMENT
- printf("/NOMATCH=%d\n",innomatch);
- printf("Timeout=%d\n",x);
- return(1);
-#endif /* COMMENT */
+ if (incount > 0) /* No searching if /COUNT: given */
+ makestr(&(ms[0]),NULL);
if (cx == XXINP || cx == XXMINP) { /* Not REINPUT... */
i_active = 1;
/* Go try to input the search string */
- success = doinput(x,ms,mp,innomatch);
+ success = doinput(x,ms,mp,flags,incount);
i_active = 0;
} else { /* REINPUT */
- success = doreinp(x,ms[0],ispattern);
+ success = doreinp(x,ms[0],itsapattern);
}
if (intime[cmdlvl] && !success) { /* TIMEOUT-ACTION = QUIT? */
popclvl(); /* If so, pop command level. */
#ifdef CK_RESEND
if (cx == XXPSEN) { /* PSEND */
- int seekto = 0;
+ int seekto = 0; /* FIX THIS */
cmarg = cmarg2 = "";
x = cmifi("File to partially send", "", &s, &y, xxstring);
#endif /* NOSPL */
/* Line parameter to ttopen() is ignored */
+ debug(F110,"SSH line",line,0);
k = ttopen(line,&x,mdmtyp, 0);
if (k < 0) {
printf("?Unable to connect to %s\n",ssh_hst);
if ((y = cmcfm()) < 0)
return(y);
+#ifdef CK_64BIT
+ printf("\n%s, for%s (64-bit)\n Numeric: %ld",versio,ckxsys,vernum);
+#else
printf("\n%s, for%s\n Numeric: %ld",versio,ckxsys,vernum);
+#endif /* CK_64BIT */
printf("\n\n");
printf("Authors:\n");
printf(" Frank da Cruz, Columbia University\n");
}
if (cx == XXCPR) { /* COPYRIGHT or LICENSE */
+ _PROTOTYP( int hmsgaa, (char * [], char *) );
+ extern char * ck_cryear;
if ((y = cmcfm()) < 0)
return(y);
-#ifdef OS2
- if (inserver) { /* Free WIKSD */
- extern char * wiksdcpr[];
- hmsga(wiksdcpr);
- } else
-#endif /* OS2 */
- hmsga(copyright);
+ hmsgaa(copyright,ck_cryear);
return(success = 1);
}
}
if (chkfn(y) > 0) {
x = (cx == XXWRI) ? zsout(y,s) : zsoutl(y,s);
+ debug(F111,"WRITE",
+ (cx == XXWRI) ? "zsout" : "zsoutl",
+ x);
if (x < 0) printf("?Write error\n");
} else {
x = -1;
printf("?File or log not open\n");
}
+ debug(F101,"WRITE x","",x);
return(success = (x == 0) ? 1 : 0);
}
#endif /* NOFRILLS */
if (cx == XXASC || cx == XXBIN) {
if ((x = cmcfm()) < 0) return(x);
#ifdef NEWFTP
- if ((ftpget == 1) || ((ftpget == 2) && ftpisopen()))
- return(success = doftptyp((cx == XXASC) ? 0 : 1));
+/*
+ Make C-Kermit work like other ftp clients, where
+ the ASCII (TEXT) and BINARY commands are global settings.
+*/
+ if (ftpisopen()) {
+ doftpglobaltype((cx == XXASC) ? XYFT_T : XYFT_B);
+ /* Fall thru--the command it should apply to both FTP and Kermit */
+ /* return(success = 1); */
+ }
#endif /* NEWFTP */
+
+ xfermode = XMODE_M; /* Set manual Kermit transfer mode */
binary = (cx == XXASC) ? XYFT_T : XYFT_B;
return(success = 1);
}
return(dormt(XZREN));
if (cx == XXRMKD)
return(dormt(XZMKD));
+ if (cx == XXRMSG)
+ return(dormt(XZMSG));
if (cx == XXRRMD)
return(dormt(XZRMD));
if (cx == XXRSET)
if (cx == XXRESET) { /* RESET */
if ((x = cmcfm()) < 0)
return(x);
+ concb((char)escape); /* Make command echoing to normal */
doclean(0); /* Close all files */
return(success = 1);
}
return(-9);
}
}
- if (cx == XXTRACE)
+ if (cx == XXTRACE) /* TRACE */
return(dotrace());
#endif /* NOSPL */
return(seton(&deblog));
#endif /* DEBUG */
}
+ if (cx == XXMSG || cx == XXXMSG) { /* MESSAGE */
+ extern int debmsg; /* Script debugging messages */
+ if ((x = cmtxt("Message to print if SET DEBUG MESSAGE is ON or STDERR",
+ "",&s,xxstring)) < 0)
+ return(x);
+ if (!s) /* Watch out for null result */
+ s = ""; /* Make it an empty string */
+ else /* Not null */
+ s = brstrip(s); /* Strip braces and doublequotes */
+ switch (debmsg) { /* Not debugging - don't print */
+ case 0:
+ break;
+ case 1:
+ printf("%s",s); /* Print to stdout */
+ if (cx == XXMSG) printf("\n");
+ break;
+ case 2:
+ fprintf(stderr,"%s",s); /* Ditto but print to stderr */
+ if (cx == XXMSG) fprintf(stderr,"\n");
+ break;
+ }
+ return(0); /* Return without affecting SUCCESS */
+ }
#ifdef CKLEARN
if (cx == XXLEARN) { /* LEARN */
#endif /* NOSPL */
}
}
+#ifdef UNIX
+#ifndef NOPUTENV
+/*
+ NOTE: Syntax is PUTENV name value, not PUTENV name=value.
+ I could check for this but it would be too much magic.
+*/
+ if (cx == XXPUTE) { /* PUTENV */
+ char * t = tmpbuf; /* Create or alter environment var */
+ char * s1 = NULL, * s2 = NULL;
+ if ((x = cmfld("Variable name","",&s,xxstring)) < 0)
+ return(x);
+ if (s) if (s == "") s = NULL;
+ (VOID) makestr(&s1,s);
+ if (s && !s1) {
+ printf("?PUTENV - memory allocation failure\n");
+ return(-9);
+ }
+ if ((x = cmtxt("Value","",&s,xxstring)) < 0)
+ return(x);
+ if (s) if (s == "") s = NULL;
+ (VOID) makestr(&s2,s);
+ success = doputenv(s1,s2);
+ (VOID) makestr(&s1,NULL);
+ (VOID) makestr(&s2,NULL);
+ return(success);
+ }
+#endif /* NOPUTENV */
+#endif /* UNIX */
+
if (cx == XXNOTAV) { /* Command in table not available */
ckstrncpy(tmpbuf,atmbuf,TMPBUFSIZ);
if ((x = cmtxt("Rest of command","",&s,NULL)) < 0)
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#define LOCUS
#endif /* NOLOCUS */
-/* Sizes of things */
+/* Sizes of things - FNVALL and MAXARGLEN increased from 8K 20050912 */
#ifdef BIGBUFOK
-#define FNVALL 10238 /* Function return value length */
-#define MAXARGLEN 8191 /* Max func arg length after eval */
+#define FNVALL CMDBL /* Function return value length */
+#define MAXARGLEN CMDBL /* Max func arg length after eval */
#define MAXARGLIST 1024 /* Max number of args for a macro */
#define FSPECL CMDBL /* Max length for MSEND/GET string */
#define MSENDMAX 1024 /* Number of filespecs for MSEND */
#define MACLEVEL 128 /* Maximum nesting for macros */
#define INPBUFSIZ 4096 /* Size of INPUT buffer */
#define PROMPTL 1024 /* Max length for prompt */
+#define LBLSIZ 8192 /* Maximum length for a GOTO label */
#else
#define VNAML 256 /* Max length for variable name */
#define ARRAYREFLEN 128 /* Max length for array reference */
#define MACLEVEL 64 /* Maximum nesting for macros */
#define INPBUFSIZ 256
#define PROMPTL 256 /* Max length for prompt */
+#define LBLSIZ 128 /* Maximum length for a GOTO label */
#endif /* BIGBUFOK */
#define NARGS 10 /* Max number of macro arguments */
#define LINBUFSIZ (CMDBL + 10) /* Size of line[] buffer */
#define TMPBUFSIZ (CMDBL + 10) /* Size of temporary buffer */
-#define LBLSIZ 50 /* Maximum length for a GOTO label */
+
#define CMDSTKL ( MACLEVEL + MAXTAKE + 2) /* Command stack depth */
#ifndef NOPURGE /* PURGE command */
struct stringlist * sl_next;
};
+struct stringint { /* String and (wide) integer */
+ char * sval; /* used mainly with command switches */
+ int ival;
+ CK_OFF_T wval;
+};
+
#ifndef NOICP
/*
C-Kermit Initialization file...
#define XA_WMIN 45
#define XA_SCALE 46 /* GUI Scale Font */
#define XA_CHGD 47 /* GUI Change Dimensions */
-#define XA_MAX 47 /* Highest extended option number */
+#define XA_NOCLOSE 48 /* GUI Disable Close Window */
+#define XA_UNBUF 49 /* UNIX unbuffered console */
+#define XA_MAX 49 /* Highest extended option number */
#endif /* NOCMDL */
#ifndef NOICP
#define DIR_LNK 38 /* follow symlinks */
#define DIR_NLK 39 /* don't follow symlinks */
#define DIR_OUT 40 /* Output file for listing */
+#define DIR_TOP 41 /* Top n lines */
+#define DIR_COU 42 /* COUNT:var */
+#define DIR_NOL 43 /* NOLINKS (don't show symlinks at at all) */
#define DIRS_NM 0 /* Sort directory by NAME */
#define DIRS_DT 1 /* Sort directory by DATE */
#define XXNSCR 261 /* NOSCROLL */
#define XXSFTP 262 /* SFTP */
#define XXSKRM 263 /* SKERMIT */
+#define XXWDIR 264 /* WDIRECTORY */
+#define XXHDIR 265 /* HDIRECTORY */
+#define XXTOUC 266 /* TOUCH */
+#define XXLOCU 267 /* LOCUS (for HELP) */
+#define XXPUTE 268 /* PUTENV */
+#define XXXMSG 269 /* XMESSAGE */
/* End of Top-Level Commands */
#define DEL_LNK 25 /* /FOLLOWLINKS */
#define DEL_NLK 26 /* /NOFOLLOWLINKS */
+/* RENAME switches that can be used in the same table as the DEL switches */
+
+#define REN_LOW 100 /* Convert to lowercase */
+#define REN_UPP 101 /* Converto to uppercase */
+#define REN_RPL 102 /* String replacement */
+#define REN_OVW 103 /* Overwrite file with same name */
+#define REN_XLA 104 /* Translate character sets */
+#define REN_SPA 105 /* Fix spaces */
+
/* FILE operations */
#define FIL_OPN 0 /* OPEN */
#define XYTITMO 62 /* SET TERM IDLE-TIMEOUT */
#define XYTIACT 63 /* SET TERM IDLE-ACTION */
#define XYTLSP 64 /* SET TERM LINE-SPACING */
+#define XYTLFD 65 /* SET TERM LF-DISPLAY */
#define XYATTR 34 /* Attribute packets */
#define XYSERV 35 /* Server parameters */
#define XYX25 57 /* X.25 parameter (ANYX25) */
#define XYPAD 58 /* X.3 PAD parameter (ANYX25) */
#define XYWILD 59 /* Wildcard expansion method */
+
+#define WILD_OFF 0 /* Wildcard expansion off */
+#define WILD_ON 1 /* Wildcard expansion on */
+#define WILD_KER 2 /* Wildcard expansion by Kermit */
+#define WILD_SHE 3 /* Wildcard expansion by Shell */
+
#define XYSUSP 60 /* Suspend */
#define XYMAIL 61 /* Mail-Command */
#define XYPRIN 62 /* Print-Command */
#define XYQUIE 63 /* Quiet */
#define XYLCLE 64 /* Local-echo */
-#define XYSCRI 65 /* SCRIPT command paramaters */
+#define XYSCRI 65 /* SCRIPT command parameters */
#define XYMSGS 66 /* MESSAGEs ON/OFF */
#ifdef TNCODE
#define XYTEL 67 /* SET TELNET parameters */
#define XYMSK 83 /* MS-DOS Kermit compatibility options */
#define MSK_COLOR 0 /* Terminal color handling */
#define MSK_KEYS 1 /* SET KEY uses MSK keycodes */
+#define MSK_REN 2 /* File renaming uses 8.3 notation always */
#endif /* OS2 */
#define XYDEST 84 /* SET DESTINATION as in MS-DOS Kermit */
#define XYANSWER 131 /* SET ANSWER */
#define XYMATCH 132 /* SET MATCHDOT */
#define XYSFTP 133 /* SET SFTP */
+#define XY_REN 134 /* SET RENAME */
+#define XYEXTRN 135 /* SET EXTERNAL-PROTOCOL */
+#define XYVAREV 136 /* SET VARIABLE-EVALUATION */
/* End of SET commands */
#define SHSEXP 68 /* SHOW SEXPRESSIONS */
#define SHOSSH 69 /* SHOW SSH */
#define SHOIKS 70 /* SHOW IKS */
-#define SHOGUI 71 /* SHOW RGB */
+#define SHOGUI 71 /* SHOW GUI (K95) */
+#define SHOREN 72 /* SHOW RENAME */
/* REMOTE command symbols */
#define VN_LOG_CON 245 /* Connection Log Filename */
#define VN_ISCALE 246 /* INPUT scale factor */
+#define VN_BITS 247 /* Bits of this build (16, 32, 64) */
+#define VN_LASTFIL 248 /* Last input filespec */
+#define VN_LASTKWV 249 /* Last \fkeywordvalue() keyword */
+#define VN_DMSG 250 /* Msg corresponding to dialstatus */
+#define VN_HOSTIP 251 /* IP address of remote host */
+#define VN_INPMSG 252 /* Msg corresponding to instatus */
+#define VN_VAREVAL 253 /* SET VARIABLE-EVALUATION setting */
+#define VN_PREVCMD 254 /* Previous command */
#endif /* NOSPL */
/* INPUT status values */
#define INP_IE 3 /* Internal error */
#define INP_IO 4 /* I/O error or connection lost */
#define INP_IKS 5 /* Kermit Server Active */
+#define INP_BF 6 /* Buffer full */
+
+/* INPUT switch values */
+
+#define INPSW_NOM 1 /* /NOMATCH */
+#define INPSW_CLR 2 /* /CLEAR */
+#define INPSW_NOW 4 /* /NOWRAP */
+#define INPSW_COU 8 /* /COUNT */
#ifndef NOSPL
/* Symbols for builtin functions */
#define FN_LNAME 154 /* \fLongPathName() (Windows) */
#define FN_SNAME 155 /* \fShortPathName() (Windows) */
#define FN_UNTAB 156 /* \funtabify() */
+#define FN_LOPX 157 /* \flopx() */
+#define FN_EMAIL 158 /* \femailaddress() */
+#define FN_PICTURE 159 /* \fpictureinfo() */
+#define FN_PID 160 /* \fpidinfo() */
+#define FN_COUNT 161 /* \fcount() */
+#define FN_FUNC 162 /* \ffunction() */
+#define FN_RECURSE 163 /* \frecurse() */
+#define FN_SQUEEZE 164 /* \fsqueeze() */
+#define FN_UNPCT 165 /* \fdecodehex() */
+#define FN_STRINGT 166 /* \fstringtype() */
+#define FN_STRCMP 167 /* \fstrcmp() */
#endif /* NOSPL */
/* ANSI-C prototypes for user interface functions */
+#ifdef UNIX
+_PROTOTYP( int doputenv, ( char *, char * ) );
+#endif /* UNIX */
+
+_PROTOTYP( int chkaes, ( char, int ) );
+
#ifndef NOICP
_PROTOTYP( int matchname, ( char *, int, int ) );
_PROTOTYP( int ck_cls, ( void ) );
_PROTOTYP( int xarray, (char *) );
_PROTOTYP( int arraynam, (char *, int *, int *) );
_PROTOTYP( int arraybounds, (char *, int *, int *) );
+_PROTOTYP( int boundspair, (char *, char *, int *, int *, char *) );
_PROTOTYP( int arrayitoa, (int) );
_PROTOTYP( int arrayatoi, (int) );
_PROTOTYP( char * bldlen, (char *, char *) );
_PROTOTYP( int dogoto, (char *, int) );
_PROTOTYP( int dogta, (int) );
_PROTOTYP( int dohlp, (int) );
+_PROTOTYP (int doincr, (int) );
_PROTOTYP( int dohrmt, (int) );
_PROTOTYP( int doif, (int) );
-_PROTOTYP( int doinput, (int, char *[], int[], int) );
+_PROTOTYP( int doinput, (int, char *[], int[], int, int) );
_PROTOTYP( int doreinp, (int, char *, int) );
_PROTOTYP( int dolog, (int) );
_PROTOTYP( int dologin, (char *) );
_PROTOTYP( int transmit, (char *, char, int, int, int) );
_PROTOTYP( int xlate, (char *, char *, int, int) );
_PROTOTYP( int litcmd, (char **, char **, int) );
-_PROTOTYP( int incvar, (char *, int, int) );
+_PROTOTYP( int incvar, (char *, CK_OFF_T, int) );
_PROTOTYP( int ckdial, (char *, int, int, int, int) );
_PROTOTYP( int hmsg, (char *) );
_PROTOTYP( int hmsga, (char * []) );
_PROTOTYP( int diaopn, (char *,int,int) );
_PROTOTYP( int prepop, (void) );
_PROTOTYP( int popclvl, (void) );
-_PROTOTYP( int varval, (char *, int *) );
+_PROTOTYP( int varval, (char *, CK_OFF_T *) );
_PROTOTYP( char * evala, (char *) );
_PROTOTYP( char * evalx, (char *) );
_PROTOTYP( int setalarm, (long) );
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
/*
This module contains user interface functions needed by both the interactive
- user interface and the command-line-only user interface.
+ user interface and the command-line-only user interface, as well as the
+ screen-control routines (curses and equivalent).
*/
/* Includes */
#ifdef OS2
#include "ckcnet.h"
#else /* OS2 */
+_PROTOTYP( char * ckgetpeer, (VOID));
_PROTOTYP(int getlocalipaddr, (void));
_PROTOTYP(int istncomport, (void));
#ifndef NOCKGETFQHOST
#endif /* DCLPOPEN */
int tt_crd = 0; /* Carriage return display */
+int tt_lfd = 0; /* Linefeed display */
int interrupted = 0; /* Interrupted from keyboard flag */
-static int fxd_inited = 0; /* Fullscreen stuff initialized */
+int fxd_inited = 0; /* Fullscreen stuff initialized */
#ifdef DEBUG
char debfil[CKMAXPATH+1]; /* Debugging log file name */
cmdlvl = 0, /* Command level */
action = 0, /* Action selected on command line */
slogts = 0, /* Session-log timestamps on/off */
+ slognul = 0, /* Session-log null-terminated lines */
#ifdef UNIX
sessft = XYFT_T, /* Session log file type */
#else
/* Used internally */
-_PROTOTYP( VOID screenc, (int, char, long, char *) );
+#ifdef KUI
_PROTOTYP( VOID screeng, (int, char, long, char *) );
+#endif /* KUI */
+_PROTOTYP( VOID screenc, (int, char, CK_OFF_T, char *) );
+
#ifdef CK_CURSES
#ifndef DYNAMIC
char * trmbuf = NULL;
#endif /* DYNAMIC */
_PROTOTYP( static VOID dpyinit, (void) );
-_PROTOTYP( static long shocps, (int, long, long) );
-_PROTOTYP( static long shoetl, (long, long, long, long) );
+_PROTOTYP( static long shocps, (int, CK_OFF_T, CK_OFF_T) );
+_PROTOTYP( static CK_OFF_T shoetl, (CK_OFF_T, long, CK_OFF_T, CK_OFF_T) );
#endif /* CK_CURSES */
static int ft_win = 0; /* Fullscreen file transfer display window is active */
#ifdef CK_RESEND
extern int sendmode;
-extern long sendstart, rs_len;
+extern CK_OFF_T sendstart, rs_len;
#endif /* CK_RESEND */
#ifdef CK_PCT_BAR /* File transfer thermometer */
retrans, wcur, numerrs, fsecs, whatru, crunched, timeouts,
rpackets, fncnv, bye_active, discard, inserver, diractive, cdactive;
-extern long filcnt, filrej, ffc, tfc, rptn, fsize, filcps, tfcps, cps, peakcps;
+extern long filcnt, filrej, rptn, filcps, tfcps, cps, peakcps;
+extern CK_OFF_T ffc, tfc, fsize;
long oldcps = 0L;
extern int spsizf, spsizr, spmax, prefixing, fncact, fnspath, fnrpath;
extern int moving; /* SEND criteria */
extern char sndafter[], sndbefore[], *sndexcept[], *rcvexcept[];
-extern long sndlarger, sndsmaller, calibrate, skipbup;
-extern int rmailf, rprintf;
+extern CK_OFF_T sndlarger, sndsmaller, calibrate;
+extern int rmailf, rprintf, skipbup;
extern char optbuf[];
#ifdef PIPESEND
free(rcvexcept[i]);
rcvexcept[i] = NULL;
}
- sndlarger = -1L;
- sndsmaller = -1L;
+ sndlarger = (CK_OFF_T)-1;
+ sndsmaller = (CK_OFF_T)-1;
+ debug(F101,"present sndsmaller","",sndsmaller);
#ifdef GFTIMER
gtv = -1.0;
oldgtv = -1.0;
1 = UTF-8 text (flag = -1)
2 = UCS-2 text (flag = 0: big-endian; flag = 1: little-endian)
3 = 8-bit text (flag = 0: no C1 bytes; flag = 1: includes C1 bytes)
- 4 = binary (flag = -1)
+ 4 = Text (type unknown)
+ 5 = binary (flag = -1)
If UNICODE is defined:
return(rc);
}
+/*
+ scanstring - like scan file but for a string.
+ This is just a quick butchery of scanfile without thinking too much.
+*/
+int
+scanstring(s) char * s; {
+ int x, val = -1, count = 0; /* Workers */
+ int rc = -1; /* Return code */
+ int pv = -1; /* Pattern-match value */
+ int bytes = 0; /* Total byte count */
+#ifdef UNICODE
+ unsigned int c0, c1; /* First 2 file bytes (for BOM) */
+#endif /* UNICODE */
+ extern int pipesend, filepeek;
+
+ register int i; /* Loop control */
+ int readsize = 0; /* How much to read */
+ int eightbit = 0; /* Number of bytes with 8th bit on */
+ int c0controls = 0; /* C0 non-text control-char counter */
+ int c0noniso = 0; /* C0 non-ISO control-char counter */
+ int c1controls = 0; /* C1 control-character counter */
+ unsigned int c; /* Current character */
+ int runmax = 0; /* Longest run of 0 bytes */
+ int runzero = 0; /* Run of 0 bytes */
+ int pctzero = 0; /* Percentage of 0 bytes */
+ int txtcz = 0;
+
+#ifdef UNICODE
+ int notutf8 = 0; /* Nonzero if definitely not UTF-8 */
+ int utf8state = 0; /* UTF-8 recognizer state */
+ int oddzero = 0; /* Number of 0 bytes in odd postions */
+ int evenzero = 0; /* and in even positions */
+ int lfnul = 0; /* Number of <LF><NUL> sequences */
+ int crlf = 0; /* Number of <CRLF> sequences */
+#else
+ int notutf8 = 1;
+#endif /* UNICODE */
+
+ char * buf = s;
+ if (!s) s = "";
+ count = strlen(s);
+
+#ifdef UNICODE
+ if (bytes == 0 && count > 1) {
+ int incl_cnt = 0;
+
+ /* First look for BOM */
+
+ c0 = (unsigned)((unsigned)buf[0]&0xFF); /* First file byte */
+ c1 = (unsigned)((unsigned)buf[1]&0xFF); /* Second byte */
+
+ if (c0 == 0xFE && c1 == 0xFF) { /* UCS-2 BE */
+ rc = FT_UCS2;
+ val = 0;
+ debug(F111,"scanstring UCS2 BOM BE",ckitoa(val),rc);
+ incl_cnt++;
+ } else if (c0 == 0xFF && c1 == 0xFE) { /* UCS-2 LE */
+ rc = FT_UCS2;
+ val = 1;
+ debug(F111,"scanstring UCS2 BOM LE",ckitoa(val),rc);
+ incl_cnt++;
+ } else if (count > 2) if (c0 == 0xEF && c1 == 0xBB &&
+ (unsigned)((unsigned)buf[2]&0xFF) == 0xBF) {
+ rc = FT_UTF8;
+ debug(F111,"scanstring UTF8 BOM",ckitoa(val),rc);
+ incl_cnt++;
+ }
+ if (incl_cnt) { /* Have BOM */
+ bytes += count;
+ goto xscanstring;
+ }
+ }
+#endif /* UNICODE */
+
+ bytes += count; /* Count bytes read */
+
+ for (i = 0; i < count; i++) { /* For each byte... */
+ c = (unsigned)buf[i]; /* For ease of reference */
+ if (!c) { /* Zero byte? */
+ goto xscanstring; /* Null terminated string */
+ }
+ if ((c & 0x80) == 0) { /* We have a 7-bit byte */
+#ifdef UNICODE
+ if (i > 0 && c == 10) { /* Linefeed */
+ if (buf[i-1] == 0) lfnul++; /* Preceded by NUL */
+ else if (buf[i-1] == 13) crlf++; /* or by CR... */
+ }
+#endif /* UNICODE */
+ if (c < ' ') { /* Check for CO controls */
+ if (c != LF && c != CR && c != HT && c != FF) {
+ c0controls++;
+ if (c != ESC && c != SO && c != SI)
+ c0noniso++;
+ }
+ if ((c == '\032') /* Ctrl-Z */
+ ) {
+ c0controls--;
+ c0noniso--;
+ }
+ }
+#ifdef UNICODE
+ if (!notutf8 && utf8state) { /* In UTF-8 sequence? */
+ utf8state = 0;
+ debug(F000,"scanstring","7-bit byte in UTF8 sequence",c);
+ notutf8++; /* Then it's not UTF-8 */
+ continue;
+ }
+#endif /* UNICODE */
+ } else { /* We have an 8-bit byte */
+ eightbit++; /* Count it */
+ if (c >= 0x80 && c < 0xA0) /* Check for C1 controls */
+ c1controls++;
+#ifdef UNICODE
+ if (!notutf8) { /* If it might still be UTF8... */
+ switch (utf8state) { /* Enter the UTF-8 state machine */
+ case 0: /* First byte... */
+ if ((c & 0xE0) == 0xC0) { /* Tells number of */
+ utf8state = 1; /* subsequent bytes */
+ } else if ((c & 0xF0) == 0xE0) {
+ utf8state = 2;
+ } else if ((c & 0xF8) == 0xF0) {
+ utf8state = 3;
+ } else {
+ notutf8++;
+ }
+ break;
+ case 1: /* Subsequent byte */
+ case 2:
+ case 3:
+ if ((c & 0xC0) != 0x80) { /* Must start with 10 */
+ debug(F000,"scanstring",
+ "bad byte in UTF8 sequence",c);
+ notutf8++;
+ break;
+ }
+ utf8state--; /* Good, one less in this sequence */
+ break;
+ default: /* Shouldn't happen */
+ debug(F111,"scanstring","bad UTF8 state",utf8state);
+ notutf8++;
+ }
+ }
+#endif /* UNICODE */
+ }
+ }
+ if (bytes == 0) /* If nothing was read */
+ return(-1); /* we're done. */
+
+#ifdef UNICODE
+ if (bytes > 100) /* Bytes is not 0 */
+ pctzero = (evenzero + oddzero) / (bytes / 100);
+ else
+ pctzero = ((evenzero + oddzero) * 100) / bytes;
+#endif /* UNICODE */
+
+#ifdef UNICODE
+ x = eightbit ? bytes / 20 : bytes / 4; /* For UCS-2... */
+
+ if (runmax > 2) { /* File has run of more than 2 NULs */
+ debug(F100,"scanstring BIN runmax","",0);
+ rc = FT_BIN; /* so it can't be any kind of text. */
+ goto xscanstring;
+
+ } else if (rc == FT_UCS2 || (rc == FT_UTF8 && runmax == 0)) {
+ goto xscanstring; /* File starts with a BOM */
+
+ } else if (eightbit > 0 && !notutf8) { /* File has 8-bit data */
+ if (runmax > 0) { /* and runs of NULs */
+ debug(F100,"scanstring BIN (nnUTF8) runmax","",0);
+ rc = FT_BIN; /* UTF-8 doesn't have NULs */
+ } else { /* No NULs */
+ debug(F100,"scanstring UTF8 (nnUTF8 + runmax == 0)","",0);
+ rc = FT_UTF8; /* and not not UTF-8, so is UTF-8 */
+ }
+ goto xscanstring;
+ }
+/*
+ It seems to be UCS-2 but let's be more certain since there is no BOM...
+ If the number of 7- and 8-bit characters is approximately equal, it might
+ be a compressed file. In this case we decide based on the name.
+*/
+ if (rc == FT_UCS2) {
+ if (bytes < 100) {
+ if (oddzero != 0 && evenzero != 0) {
+ debug(F100,"scanstring small UCS2 doubtful","",0);
+ rc = FT_BIN;
+ goto xscanstring;
+ } else if (oddzero == 0 && evenzero == 0) {
+ rc = eightbit ? FT_8BIT : FT_7BIT;
+ }
+ }
+ goto xscanstring; /* Seems to be UCS-2 */
+ }
+
+/* If none of the above, it's probably not Unicode. */
+
+ if (!eightbit) { /* It's 7-bit */
+ if (c0controls) { /* This would be strange */
+ if ((c0noniso > 0) && (txtcz == 0)) {
+ debug(F100,"scanstring 7-bit BIN (c0coniso)","",0);
+ rc = FT_BIN;
+ } else {
+ debug(F100,"scanstring 7-bit ISO2022 TEXT (no c0noniso)","",0);
+ rc = FT_7BIT;
+ }
+ } else { /* 7-bit text */
+ debug(F100,"scanstring 7-bit TEXT (no c0controls)","",0);
+ rc = FT_7BIT;
+ }
+ } else if (!c0noniso || txtcz) { /* 8-bit text */
+ debug(F100,"scanstring 8-bit TEXT (no c0noniso)","",0);
+ rc = FT_8BIT;
+ val = c1controls ? 1 : 0;
+ } else { /* 8-bit binary */
+ debug(F100,"scanstring 8-bit BIN (c0noniso)","",0);
+ rc = FT_BIN;
+ }
+
+#else /* !UNICODE */
+
+ if (c0noniso) {
+ debug(F100,"scanstring 8-bit BIN (c0noniso)","",0);
+ rc = FT_BIN;
+ } else if (eightbit) {
+ debug(F100,"scanstring 8-bit TEXT (no c0noniso)","",0);
+ rc = FT_8BIT;
+ val = c1controls ? 1 : 0;
+ } else {
+ debug(F100,"scanstring 7-bit TEXT (no c0noniso)","",0);
+ rc = FT_7BIT;
+ }
+
+#endif /* UNICODE */
+
+ xscanstring:
+ debug(F101,"scanstring result ","",rc);
+ return(rc);
+}
+
+
+
/* F I L E S E L E C T -- Select this file for sending */
int
#ifdef CK_ANSIC
fileselect(
char *f, char *sa, char *sb, char *sna, char *snb,
- long minsiz, long maxsiz,
+ CK_OFF_T minsiz, CK_OFF_T maxsiz,
int nbu, int nxlist,
char ** xlist
)
#else
fileselect(f,sa,sb,sna,snb,minsiz,maxsiz,nbu,nxlist,xlist)
- char *f,*sa,*sb,*sna,*snb; long minsiz,maxsiz; int nbu,nxlist; char ** xlist;
+ char *f,*sa,*sb,*sna,*snb; CK_OFF_T minsiz,maxsiz;
+ int nbu,nxlist; char ** xlist;
#endif /* CK_ANSIC */
/* fileselect */ {
char *fdate;
int n;
- long z;
+ CK_OFF_T z;
+
+ debug(F111,"fileselect minsiz",ckfstoa(minsiz),minsiz);
+ debug(F111,"fileselect maxsiz",ckfstoa(maxsiz),maxsiz);
+ debug(F111,"fileselect (CK_OFF_T)-1",ckfstoa((CK_OFF_T)-1),(CK_OFF_T)-1);
if (!sa) sa = "";
if (!sb) sb = "";
#ifndef NOICP
#ifndef NOXFER
if (nolinks) {
- long zz;
+ CK_OFF_T zz;
zz = zgetfs(f);
debug(F111,"fileselect NOLINKS zgetfs",f,zz);
- if (zz < 0L)
+ if (zz < (CK_OFF_T)0)
return(0);
debug(F111,"fileselect NOLINKS zgfs_link",f,zgfs_link);
if (zgfs_link)
return(0);
}
}
- if (minsiz > -1L || maxsiz > -1L) { /* Smaller or larger */
+ /* Smaller or larger */
+ if (minsiz > (CK_OFF_T)-1 || maxsiz > (CK_OFF_T)-1) {
z = zchki(f); /* Get size */
debug(F101,"fileselect filesize","",z);
- if (z < 0)
+ if (z < (CK_OFF_T)0)
return(1);
- if ((minsiz > -1L) && (z >= minsiz)) {
+ if ((minsiz > (CK_OFF_T)-1) && (z >= minsiz)) {
debug(F111,"fileselect minsiz skipping",f,minsiz);
/* tlog(F111,"Skipping (too big)",f,z); */
return(0);
}
- if ((maxsiz > -1L) && (z <= maxsiz)) {
+ if ((maxsiz > (CK_OFF_T)-1) && (z <= maxsiz)) {
debug(F111,"fileselect maxsiz skipping",f,maxsiz);
/* tlog(F110,"Skipping (too small)",f,0); */
return(0);
#ifdef DEBUG
if (deblog) {
+ debug(F100,"*********************","",0);
if (sig == SIGINT)
debug(F101,"trap caught SIGINT","",sig);
- else
+ else
debug(F101,"trap caught signal","",sig);
+ debug(F100,"*********************","",0);
}
#endif /* DEBUG */
#endif /* OSK */
#endif /* UNIX */
+#ifdef NETPTY
+ /* Clean up Ctrl-C out of REDIRECT or external protocol */
+ {
+ extern PID_T pty_fork_pid;
+ extern int pty_master_fd, pty_slave_fd;
+ int x;
+
+ signal(SIGCHLD,SIG_IGN); /* We don't want this any more */
+
+ debug(F101,"trap pty_master_fd","",pty_master_fd);
+ if (pty_master_fd > 2) {
+ x = close(pty_master_fd);
+ debug(F101,"trap pty_master_fd close","",x);
+ }
+ pty_master_fd = -1;
+ debug(F101,"trap pty_slave_fd","",pty_slave_fd);
+ if (pty_slave_fd > 2) {
+ x = close(pty_slave_fd);
+ debug(F101,"trap pty_slave_fd close","",x);
+ }
+ pty_slave_fd = -1;
+ debug(F101,"trap pty_fork_pid","",pty_fork_pid);
+ if (pty_fork_pid > 0) {
+ x = kill(pty_fork_pid,0); /* See if the fork is really there */
+ debug(F111,"trap pty_fork_pid kill 0 errno",ckitoa(x),errno);
+ if (x == 0) { /* Seems to be active */
+ x = kill(pty_fork_pid,SIGHUP); /* Ask it to clean up & exit */
+ debug(F101,"trap pty_fork_pid kill SIGHUP","",x);
+ msleep(100);
+ errno = 0;
+ x = kill(pty_fork_pid,0); /* Is it still there? */
+ if (x == 0
+#ifdef ESRCH
+ /* This module is not always exposed to <errno.h> */
+ || errno != ESRCH
+#endif /* ESRCH */
+ ) {
+ x = kill(pty_fork_pid,SIGKILL);
+ debug(F101,"trap pty_fork_pid kill SIGKILL","",x);
+ }
+ }
+ pty_fork_pid = -1;
+ }
+ }
+#endif /* NETPTY */
+
#ifdef OSK
sigmask(-1);
/*
*/
VOID
#ifdef CK_ANSIC
-dotlog(int f, char *s1, char *s2, long n)
+dotlog(int f, char *s1, char *s2, CK_OFF_T n)
#else
-dotlog(f,s1,s2,n) int f; long n; char *s1, *s2;
+dotlog(f,s1,s2,n) int f; CK_OFF_T n; char *s1, *s2;
#endif /* CK_ANSIC */
/* dotlog */ {
static char s[TBUFL];
if ((int)strlen(s1) + (int)strlen(s2) + 15 > TBUFL)
sprintf(sp,"?T-Log string too long");
else
- sprintf(sp,"%s %ld %s",s1,n,s2);
+ sprintf(sp,"%s %s %s",s1,ckfstoa(n),s2);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F001: /* 1, " n" */
- sprintf(sp," %ld",n);
+ sprintf(sp," %s",ckfstoa(n));
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F010: /* 2, "[s2]" */
if (s2[x] == '\n') s2[x] = '\0';
if (x + 6 > TBUFL)
sprintf(sp,"?String too long");
- else sprintf(sp,"[%s] %ld",s2,n);
+ else sprintf(sp,"[%s] %s",s2,ckfstoa(n));
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F100: /* 4, "s1" */
case F101: /* 5, "s1: n" */
if ((int)strlen(s1) + 15 > TBUFL)
sprintf(sp,"?String too long");
- else sprintf(sp,"%s: %ld",s1,n);
+ else sprintf(sp,"%s: %s",s1,ckfstoa(n));
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F110: /* 6, "s1 s2" */
if ((int)strlen(s1) + x + 15 > TBUFL)
sprintf(sp,"?String too long");
else
- sprintf(sp,"%s%s%s: %ld",s1,((*s2 == ':') ? "" : " "),s2,n);
+ sprintf(sp,"%s%s%s: %s",s1,((*s2 == ':') ? "" : " "),s2,ckfstoa(n));
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
default:
- sprintf(sp,"?Invalid format for tlog() - %ld",n);
+ sprintf(sp,"?Invalid format for tlog() - %d",f);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
}
}
*/
VOID
#ifdef CK_ANSIC
-doxlog(int x, char * fn, long fs, int fm, int status, char * msg)
+doxlog(int x, char * fn, CK_OFF_T fs, int fm, int status, char * msg)
#else
doxlog(x, fn, fs, fm, status, msg)
- int x; char * fn; long fs; int fm; int status; char * msg;
+ int x; char * fn; CK_OFF_T fs; int fm; int status; char * msg;
#endif /* CK_ANSIC */
/* doxlog */ {
extern int tlogsep;
if (ckstrchr(fn,sep[0])) /* Filename */
s = "\"";
ckmakmsg(bufp,left,s,fn,s,sep);
- sprintf(tmpbuf,"%ld",fs); /* Size */
+ sprintf(tmpbuf,"%s",ckfstoa(fs)); /* Size */
ckstrncat(buf,tmpbuf,CKMAXPATH);
ckstrncat(buf,sep,CKMAXPATH);
debug(F110,"doxlog 4",buf,0);
debug(F110,"doxlog buf 1", buf, len);
s = buf + len;
if (status == 0 && left > 32) {
- long cps;
-
+ long cps = 0L;
#ifdef GFTIMER
debug(F101,"DOXLOG fpxfsecs","",(long)(fpxfsecs * 1000));
-
- cps = (long)((CKFLOAT) fs / fpxfsecs);
+ if (fpxfsecs) cps = (long)((CKFLOAT) fs / fpxfsecs);
sprintf(s,"%s\"%0.3fsec %ldcps\"",sep,fpxfsecs,cps);
#else
- cps = fs / xfsecs;
+ if (xfsecs) cps = fs / xfsecs;
sprintf(s,"%s\"%ldsec %ldcps\"",sep,xfsecs,cps);
#endif /* GFTIMER */
} else if ((int)strlen(msg) + 4 < left) {
xxscreen(SCR_QE,0, speed, " speed");
if (what & W_SEND)
- xxscreen(SCR_QE,0,(long)spsiz, " packet length");
+ xxscreen(SCR_QE,0,spsiz, " packet length");
else if (what & W_RECV || what & W_REMO)
- xxscreen(SCR_QE,0,(long)urpsiz," packet length");
- xxscreen(SCR_QE,0,(long)wslots, " window slots");
+ xxscreen(SCR_QE,0,urpsiz," packet length");
+ xxscreen(SCR_QE,0,wslots, " window slots");
fdispla = ofd; /* [MF] Restore file display type */
return(0);
static char fbuf[80]; /* Filename buffer */
static char abuf[80]; /* As-name buffer */
static char a2buf[80]; /* Second As-name buffer */
-static long oldffc = 0L;
-static long dots = 0L;
+static CK_OFF_T oldffc = 0L;
+static CK_OFF_T dots = 0L;
static int hpos = 0;
static VOID /* Initialize Serial or CRT display */
char * s = "";
newdpy = 0; /* Don't do this again */
- oldffc = 0L; /* Reset this */
- dots = 0L; /* and this.. */
+ oldffc = (CK_OFF_T)0; /* Reset this */
+ dots = (CK_OFF_T)0; /* and this.. */
oldcps = cps = 0L;
conoll(""); /* New line */
}
*fbuf = NUL; *abuf = NUL; *a2buf = NUL;
conoll("");
- if (fsize > -1L) { /* Size */
- sprintf(fbuf,"Size: %ld, Type: ",fsize); /* SAFE (80) */
+ if (fsize > (CK_OFF_T)-1) { /* Size */
+ sprintf(fbuf,"Size: %s, Type: ",ckfstoa(fsize)); /* SAFE (80) */
conol(fbuf); *fbuf = NUL;
} else conol("Size: unknown, Type: ");
if (binary) { /* Type */
#ifndef GFTIMER
long et; /* Elapsed time, entire batch */
#endif /* GFTIMER */
- long howfar; /* How far into file */
+ CK_OFF_T howfar; /* How far into file */
long pd; /* Percent done, this file */
long tp; /* Transfer rate, entire batch */
long ps; /* Packet size, current packet */
- long mytfc; /* Local copy of byte counter */
+ CK_OFF_T mytfc; /* Local copy of byte counter */
#ifdef GFTIMER
CKFLOAT tnow;
#endif /* CK_RESEND */
pd = -1; /* Percent done. */
if (c == NUL) { /* Still going, figure % done */
- if (fsize == 0L) return; /* Empty file, don't bother */
- pd = (fsize > 99L) ? (howfar / (fsize / 100L)) : 0L;
+ if (!fsize) return; /* Empty file, don't bother */
+ pd = (fsize > 99) ? (howfar / (fsize / (CK_OFF_T)100)) : 0;
if (pd > 100) pd = 100; /* Expansion */
}
if (c != NUL)
pd = -1; /* Percent done. */
if (c == NUL) { /* Still going, figure % done */
if (fsize == 0L) return; /* Empty file, don't bother */
- pd = (fsize > 99L) ? (howfar / (fsize / 100L)) : 0L;
+ pd = (fsize > 99) ? (howfar / (fsize / (CK_OFF_T)100)) : 0;
if (pd > 100) pd = 100; /* Expansion */
}
if (c != NUL)
Rate so far is ffc / (et - fsecs), estimated time for remaining bytes
is (fsize - ffc) / (ffc / (et - fsecs)).
*/
- tp = (howfar > 0L) ? (fsize - howfar) * (et - fsecs) / howfar : 0L;
+ tp = (howfar > 0) ? (fsize - howfar) * (et - fsecs) / howfar : 0;
#endif /* CK_CPS */
#ifdef CK_CPS
/* These sprintfs should be safe until we have 32-digit numbers */
if (pd > -1L)
- sprintf(buffer, "%c%9ld%5ld%%%8ld%8ld ", CR, howfar, pd, tp, ps);
+ sprintf(buffer, "%c%9s%5ld%%%8ld%8ld ", CR,ckfstoa(howfar),pd,tp,ps);
else
- sprintf(buffer, "%c%9ld %8ld%8ld ", CR, howfar, tp, ps);
+ sprintf(buffer, "%c%9s %8ld%8ld ", CR,ckfstoa(howfar),tp,ps);
conol(buffer);
hpos = 31;
} else if (fdispla == XYFD_R) { /* SERIAL */
*/
VOID
#ifdef CK_ANSIC
-ckscreen(int f, char c,long n,char *s)
+ckscreen(int f, char c,CK_OFF_T n,char *s)
#else
-ckscreen(f,c,n,s) int f; char c; long n; char *s;
+ckscreen(f,c,n,s) int f; char c; CK_OFF_T n; char *s;
#endif /* CK_ANSIC */
/* screen */ {
char buf[80];
case SCR_FS: /* File-size */
if (fdispla == XYFD_B) {
- printf(" (%s) (%ld byte%s)",
+ printf(" (%s) (%s byte%s)",
#ifdef NOICP
(binary ? "binary" : "text")
#else
gfmode(binary,0)
#endif /* NOICP */
- , n, n == 1L ? "" : "s");
+ , ckfstoa(n), n == 1 ? "" : "s");
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
return;
}
#ifdef MAC
- sprintf(buf,", Size: %ld",n); conoll(buf); hpos = 0;
+ sprintf(buf,", Size: %s",ckfstoa(n)); conoll(buf); hpos = 0;
#endif /* MAC */
return;
showpkt('Z'); /* Update numbers one last time */
if (fdispla == XYFD_B) {
#ifdef GFTIMER
- printf(": OK (%0.3f sec, %ld cps)\n",fpxfsecs,
- (long)((CKFLOAT)ffc / fpxfsecs));
+ if (fpxfsecs)
+ printf(": OK (%0.3f sec, %ld cps)",fpxfsecs,
+ (long)((CKFLOAT)ffc / fpxfsecs));
#else
- printf(": OK (%d sec, %ld cps)\n",xfsecs,ffc/xfsecs);
+ if (xfsecs)
+ printf(": OK (%d sec, %ld cps)",xfsecs,ffc/xfsecs);
#endif /* GFTIMER */
+ printf("\n");
return;
}
if ((hpos += 5) > 78) conoll(""); /* Wrap screen line. */
if (filcnt > 1) {
long fx;
fx = filcnt - filrej;
- printf(" SUMMARY: %ld file%s", fx, ((fx == 1L) ? "" : "s"));
- printf(", %ld byte%s", tfc, ((tfc == 1L) ? "" : "s"));
+ printf(" SUMMARY: %ld file%s", fx, ((fx == 1) ? "" : "s"));
+ printf(", %s byte%s", ckfstoa(tfc), ((tfc == 1) ? "" : "s"));
#ifdef GFTIMER
printf(", %0.3f sec, %ld cps", fptsecs, tfcps);
#else
}
conoll(""); conoll(s); hpos = 0; return;
+ case SCR_MS: /* Message from other Kermit */
+ if (fdispla == XYFD_B) {
+ printf(" MESSAGE: %s\n",s);
+ return;
+ }
+ conoll(""); conoll(s); hpos = 0; return;
+
case SCR_TU: /* Undelimited text */
if (fdispla == XYFD_B)
return;
int
#ifdef CK_ANSIC
-dodebug(int f, char *s1, char *s2, long n)
+dodebug(int f, char *s1, char *s2, CK_OFF_T n)
#else
-dodebug(f,s1,s2,n) int f; char *s1, *s2; long n;
+dodebug(f,s1,s2,n) int f; char *s1, *s2; CK_OFF_T n;
#endif /* CK_ANSIC */
/* dodebug */ {
char *sp;
sprintf(sp,"%s[%s]=^%c\n",s1,s2,(CHAR) ((n+64) & 0x7F));
else if (n > 127 && n < 160)
sprintf(sp,"%s[%s]=~^%c\n",s1,s2,(CHAR)((n-64) & 0x7F));
- else sprintf(sp,"%s[%s]=0x%lX\n",s1,s2,n);
+ else sprintf(sp,"%s[%s]=0x%lX\n",s1,s2,(long)n);
} else {
if ((n > 31 && n < 127) || (n > 159 && n < 256))
sprintf(sp,"%s=%c\n",s1,(CHAR) n);
sprintf(sp,"%s=^%c\n",s1,(CHAR) ((n+64) & 0x7F));
else if (n > 127 && n < 160)
sprintf(sp,"%s=~^%c\n",s1,(CHAR)((n-64) & 0x7F));
- else sprintf(sp,"%s=0x%lX\n",s1,n);
+ else sprintf(sp,"%s=0x%lX\n",s1,(long)n);
}
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
case F001: /* 1, "=n" */
#ifdef COMMENT
/* This was never used */
- sprintf(sp,"=%ld\n",n);
+ sprintf(sp,"=%s\n",ckfstoa(n));
#else
/* Like F111, but shows number n in hex */
ckmakxmsg(sp,DBUFL,
#endif /* CKSYSLOG */
break;
case F101: /* 5, "s1=n" */
- sprintf(sp,"%s=%ld\n",s1,n);
+ sprintf(sp,"%s=%s\n",s1,ckfstoa(n));
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
#endif /* CKSYSLOG */
break;
case F111: /* 7, "s1[s2]=n" */
- sprintf(sp,"%s[%s]=%ld\n",s1,s2,n);
+ sprintf(sp,"%s[%s]=%s\n",s1,s2,ckfstoa(n));
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
/* Session Log... */
-extern int slogts; /* Session Log timestamps */
int tsstate = 0;
VOID
#endif /* CK_ANSIC */
#endif /* OS2 */
/* logchar */ { /* Log character c to session log */
+ extern int slognul;
int oktolog = 0;
#ifndef NOLOCAL
if (!seslog)
return;
- if ((sessft != XYFT_T) ||
- (c != '\0' &&
+ if ((sessft != XYFT_T) || (
#ifdef UNIX
c != '\r' &&
#else
c != XON &&
c != XOFF))
oktolog = 1;
+ if (c == '\0' && !sessft) /* NUL in text mode */
+ if (slognul) oktolog = 1; /* only if padding (2009/10/22) */
if (!oktolog)
return;
if (slogts) { /* Log is timestamped */
}
if (zsout(ZSFILE,&ts[11]) < 0)
goto xlogchar;
- if (c != '\n') /* If this is not eol */
- tsstate = 1; /* go to in-a-line state. */
- } else if (c == '\n') { /* In a line */
- tsstate = 0; /* If eol go to between-lines state. */
}
}
+ if (c == '\n') /* At end of line? */
+ tsstate = 0; /* yes */
+ else
+ tsstate = 1; /* no */
if (zchout(ZSFILE,(CHAR)(c & 0xFF)) < 0) /* Log the character */
goto xlogchar;
+ if (tsstate == 0 && slognul != 0) { /* Null-terminating lines? */
+ if (zchout(ZSFILE,(CHAR)0) < 0) /* Add a NUL */
+ goto xlogchar;
+ }
return;
xlogchar:
#undef CR
#undef NL
#undef SO
+#ifdef US
#undef US
+#endif /* US */
#undef SP /* Used in ncurses */
#define CHR_SP 32 /* Use this instead */
#endif /* MYCURSES */
#endif /* VMS */
+#ifdef BUG999
+_PROTOTYP(int tgetent,(char *, char *));
+_PROTOTYP(char *tgetstr,(char *, char **));
+_PROTOTYP(int tputs,(char *, int, int (*)()));
+_PROTOTYP(char *tgoto,(const char *, int, int));
+#endif /* BUG999 */
+
#endif /* CK_CURSES */
/* F X D I N I T -- File Xfer Display Initialization */
#endif /* NOTERMCAP */
#ifndef NODISPLAY
-#ifdef OSK
-VOID
-#else
-#ifdef CK_ANSIC
-void
-#endif /* CKANSIC */
-#endif /* OSK */
+CKVOID
fxdinit(xdispla) int xdispla; {
#ifndef COHERENT
#ifndef OS2
fdispla = XYFD_S;
return;
}
+#ifdef COMMENT
debug(F111,"fxdinit malloc trmbuf","OK",TRMBUFL);
debug(F001,"fxdinit trmbuf","",trmbuf);
-#ifdef COMMENT
memset(trmbuf,'\0',(size_t)TRMBUFL);
debug(F100,"fxdinit memset OK","",0);
#endif /* COMMENT */
#endif /* COMMENT */
}
-static long old_tr = -1L; /* Time remaining previously */
+static CK_OFF_T old_tr = (CK_OFF_T)-1; /* Time remaining previously */
-static long
+static CK_OFF_T
#ifdef CK_ANSIC
-shoetl(long old_tr, long cps, long fsiz, long howfar)
+shoetl(CK_OFF_T old_tr, long cps, CK_OFF_T fsiz, CK_OFF_T howfar)
#else
-shoetl(old_tr, cps, fsiz, howfar) long old_tr, cps, fsiz, howfar;
+ shoetl(old_tr, cps, fsiz, howfar) long cps; CK_OFF_T old_tr, fsiz, howfar;
#endif /* CK_ANSIC */
/* shoetl */ { /* Estimated time left in transfer */
- long tr; /* Time remaining, seconds */
+ CK_OFF_T tr; /* Time remaining, seconds */
#ifdef GFTIMER
if (fsiz > 0L && cps > 0L)
- tr = (long)((CKFLOAT)(fsiz - howfar) / (CKFLOAT)cps);
+ tr = (CK_OFF_T)((CKFLOAT)(fsiz - howfar) / (CKFLOAT)cps);
else
- tr = -1L;
+ tr = (CK_OFF_T)-1;
#else
tr = (fsiz > 0L && cps > 0L) ?
((fsiz - howfar) / cps) :
- -1L;
+ (CK_OFF_T)-1;
#endif /* GFTIMER */
move(CW_TR,22);
- if (tr > -1L) {
+ if (tr > (CK_OFF_T)-1) {
if (tr != old_tr) {
printw("%s",hhmmss(tr));
#ifdef KUI
static long
#ifdef CK_ANSIC
-shocps(int pct, long fsiz, long howfar)
+shocps(int pct, CK_OFF_T fsiz, CK_OFF_T howfar)
#else
-shocps(pct, fsiz, howfar) int pct; long fsiz, howfar;
+shocps(pct, fsiz, howfar) int pct; CK_OFF_T fsiz, howfar;
#endif /* CK_ANSIC */
/* shocps */ {
#ifdef CPS_WEIGHTED
- static long oldffc = 0L;
+ static CK_OFF_T oldffc = 0L;
#endif /* CPS_WEIGHTED */
#ifdef GFTIMER
CKFLOAT secs, xx;
#else
- long secs, xx;
+ CK_OFF_T secs, xx;
#endif /* GFTIMER */
#ifdef GFTIMER
scrft() { /* Display file type */
char xferstr[256];
xferstr[0] = NUL;
+ debug(F101,"scrft binary","",binary);
if (binary) {
switch(binary) {
case XYFT_L:
#ifdef CK_ANSIC
void
-screenc(int f, char c,long n,char *s)
-#else
-#ifdef MYCURSES
-VOID
+screenc(int f, char c,CK_OFF_T n,char *s)
#else
-int
-#endif /* MYCURSES */
+CKVOID
screenc(f,c,n,s)
int f; /* argument descriptor */
char c; /* a character or small integer */
-long n; /* a long integer */
+CK_OFF_T n; /* a long integer */
char *s; /* a string */
#endif /* CK_ANSIC */
/* screenc() */ {
extern int ttnproto;
#endif /* RLOGCODE */
static int q = 0;
- static long fsiz = -1L; /* Copy of file size */
- static long fcnt = 0L; /* Number of files transferred */
- static long fbyt = 0L; /* Total file bytes of all files transferred */
- static long howfar = 0L; /* How much of current file has been xfer'd. */
+ static long fcnt = 0L; /* Number of files transferred */
+ static CK_OFF_T fsiz = (CK_OFF_T)-1; /* Copy of file size */
+ static CK_OFF_T fbyt = 0L; /* Total file bytes of all files transferred */
+ static CK_OFF_T howfar = 0L; /* How much of current file has been xfer'd */
static int pctlbl = 0L; /* Percent done vs Bytes so far */
long cps = 0L;
/* oldgtv = -1L; */
#endif /* GFTIMER */
oldwin = -1;
- fsiz = -1L; /* Invalidate previous file size */
+ fsiz = (CK_OFF_T)-1; /* Invalidate previous file size */
move(CW_PCD,22); /* Erase percent done from last time */
#ifdef KUI
#ifndef K95G
if (what & W_SEND) { /* If we're sending... */
#ifdef NEWFTP
if (what & W_FTP) { /* FTP */
- move(CW_NAM,13);
- printw("FTP PUT:");
+ move(CW_NAM,10);
+ printw(" FTP PUT:");
} else
#endif /* NEWFTP */
#ifdef CK_RESEND
switch (sendmode) { /* Kermit */
case SM_RESEND:
- move(CW_NAM,11);
- printw("RESENDING:");
+ move(CW_NAM,10);
+ printw(" RESENDING:");
break;
default:
- move(CW_NAM,13);
- printw("SENDING:");
+ move(CW_NAM,10);
+ printw(" SENDING:");
break;
}
#else
- move(CW_NAM,13);
- printw("SENDING:");
+ move(CW_NAM,10);
+ printw(" SENDING:");
#endif /* CK_RESEND */
} else if (what & W_RECV) { /* If we're receiving... */
#ifdef NEWFTP
if (what & W_FTP) { /* FTP */
- move(CW_NAM,13);
- printw("FTP GET:");
+ move(CW_NAM,10);
+ printw(" FTP GET:");
} else {
#endif /* NEWFTP */
- move(CW_NAM,11);
- printw("RECEIVING:");
+ move(CW_NAM,10);
+ printw(" RECEIVING:");
#ifdef NEWFTP
}
} else if (what == (W_FTP|W_FT_DELE)) {
printw("FTP DELETE:");
#endif /* NEWFTP */
} else { /* If we don't know... */
- move(CW_NAM,11); /* (should never see this) */
- printw("File Name:");
+ move(CW_NAM,10); /* (should never see this) */
+ printw(" File Name:");
}
move(CW_NAM,22); /* Display the filename */
if (len > 57) {
case SCR_FS: /* File size */
fsiz = n;
move(CW_SIZ,22);
- if (fsiz > -1L) {
+ if (fsiz > (CK_OFF_T)-1) {
#ifdef KUI
#ifndef K95G
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_SIZ, (long) n );
#endif /* K95G */
#endif /* KUI */
- printw("%ld",n);
+ printw("%s",ckfstoa(n));
}
+ if (fsiz == -2L) {
+ printw("POSSIBLY EXCEEDS LOCAL FILE SIZE LIMIT");
+ }
clrtoeol();
#ifdef COMMENT
move(CW_PCD, 8);
- if (fsiz > -1L) { /* Put up percent label */
+ if (fsiz > (CK_OFF_T)-1) { /* Put up percent label */
pctlbl = 1;
clrtoeol();
printw("Percent Done:");
#else
move(CW_PCD, 8);
clrtoeol();
- if (fsiz > -1L) { /* Put up percent label */
+ if (fsiz > (CK_OFF_T)-1) { /* Put up percent label */
pctlbl = 1;
printw("Percent Done:");
} else {
updpct(oldpct, pct);
} else {
move(CW_PCD,22);
- printw("%ld", ffc);
+ printw("%s", ckfstoa(ffc));
}
#ifdef KUI
#ifndef K95G
if (pctlbl)
updpct(oldpct,100);
else
- printw("%ld", ffc);
+ printw("%s", ckfstoa(ffc));
#ifdef KUI
#ifndef K95G
KuiSetProperty(KUI_FILE_TRANSFER, (long) CW_FFC, (long) ffc);
clrtoeol(); /* to "percent done"... */
updpct(oldpct,100);
} else
- printw("%ld", ffc);
+ printw("%s", ckfstoa(ffc));
#ifdef KUI
#ifndef K95G
KuiSetProperty(KUI_FILE_TRANSFER, (long) CW_FFC, (long) ffc);
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_CP, tfcps);
#endif /* K95G */
#endif /* KUI */
- printw("%ld", tfcps);
+ printw("%s", ckfstoa(tfcps));
clrtoeol();
if (success) {
move(CW_MSG,22); /* Print statistics in message line */
}
if (success) {
sprintf(msgbuf,
- "SUCCESS. Files: %ld, Bytes: %ld, %ld CPS",
+ "SUCCESS. Files: %ld, Bytes: %s, %ld CPS",
filcnt - filrej,
- fbyt,
+ ckfstoa(fbyt),
tfcps
);
printw("%s", msgbuf);
case SCR_TZ: /* Text delimited at end */
return; /* (ignored in fullscreen display) */
+ case SCR_MS: /* Message from Kermit partner */
+ move(CW_MSG,22);
+ printw("%s",s);
+ clrtoeol(); refresh(); return;
+
case SCR_XD: /* X-packet data */
pct = oldpct = 0;
move(CW_NAM,22);
void
screeng(int f, char c,long n,char *s)
#else
-VOID
+CKVOID
screeng(f,c,n,s)
int f; /* argument descriptor */
char c; /* a character or small integer */
extern int ttnproto;
#endif /* RLOGCODE */
static int q = 0;
- static long fsiz = -1L; /* Copy of file size */
+ static CK_OFF_T fsiz = (CK_OFF_T)-1; /* Copy of file size */
static long fcnt = 0L; /* Number of files transferred */
static long fbyt = 0L; /* Total file bytes of all files transferred */
- static long howfar = 0L; /* How much of current file has been xfer'd. */
+ static CK_OFF_T howfar = (CK_OFF_T)0; /* How much of file xfer'd so far */
static int pctlbl = 0L; /* Percent done vs Bytes so far */
long cps = 0L;
/* oldgtv = -1L; */
#endif /* GFTIMER */
oldwin = -1;
- fsiz = -1L; /* Invalidate previous file size */
+ fsiz = (CK_OFF_T)-1L; /* Invalidate previous file size */
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_PCD, (long) 0 );
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_FFC, (long) 0 );
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_SIZ, (long) 0 );
case SCR_FS: /* File size */
fsiz = n;
- if (fsiz > -1L) {
+ if (fsiz > (CK_OFF_T)-1) {
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_SIZ, (long) n );
}
- if (fsiz > -1L) { /* Put up percent label */
+ if (fsiz > (CK_OFF_T)-1) { /* Put up percent label */
pctlbl = 1;
} else {
pctlbl = 0;
KuiSetProperty( KUI_FILE_TRANSFER, (long) CW_CP, tfcps);
if (success) {
sprintf(msgbuf,
- "SUCCESS. Files: %ld, Bytes: %ld, %ld CPS",
+ "SUCCESS. Files: %s, Bytes: %ld, %ld CPS",
filcnt - filrej,
- fbyt,
+ ckfstoa(fbyt),
tfcps
);
KuiSetProperty(KUI_FILE_TRANSFER,
int
updslot(n) int n; { /* Update our slot */
int rc = 0;
- long position;
+ CK_OFF_T position;
debug(F111,"updslot","ikdbopen",ikdbopen);
if (!ikdbopen) /* Not if not ok */
return(-1);
}
}
- debug(F111,"updslot dbfile",dbfile,dbfp);
+ /* debug(F111,"updslot dbfile",dbfile,dbfp); */
position = n * DB_RECL;
- if (fseek(dbfp,position,0) < 0) { /* Seek to desired slot */
+ if (CKFSEEK(dbfp,position,0) < 0) { /* Seek to desired slot */
debug(F111,"updslot fseek failed",dbfile,mydbseek);
ikdbopen = 0;
rc = -1;
/* G E T S L O T -- Find a free database slot; returns slot number */
+#ifdef UNIX
+#include <fcntl.h> /* For creat() */
+#endif /* UNIX */
+
int
getslot() { /* Find a free slot for us */
FILE * rfp = NULL; /* Returns slot number (0, 1, ...) */
char pidbuf[64], * s;
int j, k, n, x, rc = -1;
int lockfd, tries, haveslot = 0;
- long lockpid, i;
+ long lockpid;
+ CK_OFF_T i;
/* char ipbuf[17]; */
if (!myhexip[0]) /* Set my hex IP address if not set */
/* Make a temporary file */
- lockfd = creat(tmplck, 0600);
+ lockfd = creat(tmplck, 0600); /* BUT THIS ISN'T PORTABLE */
if (lockfd < 0) {
debug(F111,"getslock temp lockfile create failure", tmplck, errno);
return(-1);
#ifdef COHERENT
chsize(fileno(dbfp),i);
#else
- ftruncate(fileno(dbfp),i);
+ ftruncate(fileno(dbfp),(CK_OFF_T)i);
#endif /* COHERENT */
x = 0;
- fseek(dbfp,i,0);
+ CKFSEEK(dbfp,i,0);
break;
}
#endif /* NOFTRUNCATE */
#ifdef COHERENT
x = chsize(fileno(dbfp),dblastused+DB_RECL);
#else
- x = ftruncate(fileno(dbfp),dblastused+DB_RECL);
+ x = ftruncate(fileno(dbfp),(CK_OFF_T)(dblastused+DB_RECL));
#endif /* COHERENT */
if (x < 0) /* (Not fatal) */
debug(F101,"getslot ftruncate failed", "", errno);
#include "ckcsym.h"
#define XFATAL fatal
-/* C K U U S Y -- "User Interface" for Unix Kermit, part Y */
+/* C K U U S Y -- "User Interface" for C-Kermit Kermit, part Y */
/* Command-Line Argument Parser */
Jeffrey E Altman <jaltman@secure-endpoints.com>
Secure Endpoints Inc., New York City
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
int haveftpuid = 0; /* Have FTP user ID */
static int have_cx = 0; /* Have connection */
+static char * failmsg = NULL; /* Failure message */
+
#ifdef NEWFTP
extern char * ftp_host;
#endif /* NEWFTP */
/*
Returns 0 if the candidate does not seem to be a URL.
Returns 1 if it might be a URL, with the above pointers set to its pieces:
- service : [ // ] [ user [ : password ] @ ] host [ : service ] [ / path ]
+ service : [ // ] [ user [ : password ] @ ] host [ : service ] [ / path ] -
+ [ ? name [ = value ]]
Example: ftp://ds.internic.net:21/rfc/rfc1234.txt
url.svc = [ftp]
free(url->pth);
url->pth = NULL;
}
+ if (url->nopts) {
+ int i;
+ for (i = 0; i < url->nopts && i < MAX_URL_OPTS; i++ ) {
+ if (url->opt[i].nam) {
+ free(url->opt[i].nam);
+ url->opt[i].nam = NULL;
+ }
+ if (url->opt[i].val) {
+ free(url->opt[i].val);
+ url->opt[i].val = NULL;
+ }
+ }
+ url->nopts = 0;
+ }
p = urlbuf; /* Was a service requested? */
while (*p && *p != ':') /* Look for colon */
p++;
p = q;
url->hos = p;
}
+#ifdef COMMENT
debug(F111,"urlparse url->usr",url->usr,url->usr);
debug(F111,"urlparse url->psw",url->usr,url->psw);
debug(F111,"urlparse url->hos",url->usr,url->hos);
+#endif /* COMMENT */
while (*p != NUL && *p != ':' && *p != '/') /* Port? */
p++;
char *hlp4[] = { /* ssh */
" [option-list] host[:port] [port]\n",
" The option-list consists of zero, one, or more of:\n",
+#ifdef OS2
+" -# flags Kermit 95 Startup Flags\n",
+" 1 turn off Win95 special fixes\n",
+" 2 do not load optional network dlls\n",
+" 4 do not load optional tapi dlls\n",
+" 8 do not load optional kerberos dlls\n",
+" 16 do not load optional zmodem dlls\n",
+" 32 use stdin for input instead of the console\n",
+" 64 use stdout for output instead of the console\n",
+" 128 do not terminate process in response to Session Logoff\n",
+#endif /* OS2 */
" -d Turn on debug mode\n",
+" -Y Disable init file processing\n",
" -l user Set username\n",
""
};
ftp_cmdlin++; /* 2 = same plus file transfer */
#ifndef NOURL
- debug(F111,"ftp xx_ftp g_url.usr",g_url.usr,g_url.usr);
+ /* debug(F111,"ftp xx_ftp g_url.usr",g_url.usr,g_url.usr); */
if (haveurl && g_url.usr) { /* Wed Oct 9 15:15:22 2002 */
if (!*(g_url.usr)) { /* Force username prompt if */
haveftpuid = 0; /* "ftp://:@host" given. */
{ "maximize", XA_WMAX, CM_PRE },
{ "minimize", XA_WMIN, CM_PRE },
{ "nobars", XA_NOBAR, CM_PRE },
+ { "noclose" , XA_NOCLOSE, CM_PRE },
#endif /* KUI */
{ "noescape", XA_NOESCAPE, CM_PRE },
#endif /* OS2 */
#ifdef OS2
{ "title", XA_TITL, CM_ARG },
#endif /* OS2 */
+#ifdef UNIX
+ { "unbuffered", XA_UNBUF, 0 },
+#endif /* UNIX */
#ifndef NOSPL
{ "user", XA_USER, CM_ARG },
#endif /* NOSPL */
xopthlp[j] = "--nointerrupts";
xarghlp[j] = "Disable keyboard interrupts.";
break;
+#ifdef UNIX
+ case XA_UNBUF:
+ xopthlp[j] = "--unbuffered";
+ xarghlp[j] = "Force unbuffered console i/o.";
+ break;
+#endif /* UNIX */
#ifdef IKSDB
case XA_DBAS:
xopthlp[j] = "--database:{on,off}";
xopthlp[j] = "--lockdown";
xarghlp[j] = "Enable all lockdown options.";
break;
+ case XA_NOCLOSE:
+ xopthlp[j] = "--noclose";
+ xarghlp[j] = "Disable Close Window and Menu Exit.";
+ break;
case XA_NOSCROLL:
xopthlp[j] = "--noscroll";
xarghlp[j] = "Disable scrollback operations.";
break;
#ifdef TCPSOCKET
case 'F':
- opthlp[i] = "Make a TCP connection";
+ opthlp[i] = "Use an existing TCP connection";
arghlp[i] = "Numeric file descriptor of open TCP connection";
break;
#endif /* TCPSOCKET */
xsuspend = 0;
break;
+#ifdef UNIX
+ case XA_UNBUF: /* Unbuffered console i/o*/
+ break; /* This one is handled in ckcmai.c */
+#endif /* UNIX */
+
#ifdef IKSDB
case XA_DBFI: {
extern char * dbdir, * dbfile;
kui_init.nostatusbar = 1;
#endif
break;
- case XA_NOSCROLL:
+#ifdef KUI
+ case XA_NOCLOSE:
+ kui_init.noclose = 1;
+ break;
+#endif /* KUI */
+ case XA_NOSCROLL:
tt_scroll = 0;
break;
- case XA_NOESCAPE:
+ case XA_NOESCAPE:
tt_escape = 0;
break;
#endif /* OS2 */
break;
}
#ifdef OS2
- case XA_TITL:
- os2settitle(p,1);
+ case XA_TITL: {
+ extern char usertitle[];
+ ckstrncpy(usertitle,p,64);
+ os2settitle("",1);
break;
+ }
#endif /* OS2 */
#ifdef COMMENT /* TO BE FILLED IN ... */
/* or contains wildcard characters matching real files */
fil2snd = 1;
nfils++;
+ } else {
+ if (!failmsg)
+ failmsg = (char *)malloc(2000);
+ if (failmsg) {
+ ckmakmsg(failmsg,2000,
+#ifdef VMS
+ "%CKERMIT-E-SEARCHFAIL "
+#else
+ "kermit -s "
+#endif /* VMS */
+ ,
+ *xargv,
+ ": ",
+ ck_errstr()
+ );
+ }
}
}
xargc++, xargv--; /* Adjust argv/argc */
if (!fil2snd && z == 0) {
+ if (!failmsg) {
#ifdef VMS
- XFATAL("%CKERMIT-E-SEARCHFAIL, no files for -s");
+ failmsg = "%CKERMIT-E-SEARCHFAIL, no files for -s";
#else
- XFATAL("No files for -s");
+ failmsg = "No files for -s";
#endif /* VMS */
+ }
+ XFATAL(failmsg);
}
if (z > 1) {
- XFATAL("-s: too many -'s");
+ XFATAL("kermit -s: too many -'s");
}
if (z == 1 && fil2snd) {
XFATAL("invalid mixture of filenames and '-' in -s");
#endif /* COMMENT */
/*
+ * -# Kermit 95 Startup Flags
* -8 Negotiate Telnet Binary in both directions
* -a Require use of Telnet authentication
* -c Do not read the .telnetrc file
* -d Turn on debug mode
* -E No escape character
+ * -f Forward credentials to host
* -K Refuse use of authentication; do not send username
+ * -k realm Set default realm
* -l user Set username and request Telnet authentication
* -L Negotiate Telnet Binary Output only
+ * -q Quiet mode (suppress messages)
* -S tos Use the IP type-of-service tos
* -x Require Encryption
* -D Disable forward-X
* -T crldir=dir Use CRLs in directory
* -T cipher=string Use only ciphers in string
* -X atype Disable use of atype authentication
- * -f Forward credentials to host
- * -k realm Set default realm
+ * -Y Disable init file processing
*
*/
case 'h': /* help */
TELOPT_DEF_C_ME_MODE(TELOPT_AUTHENTICATION) = TN_NG_MU;
break;
+ case 'Y':
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+
+#ifdef OS2
+ case '#': /* K95 stdio threads */
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+#endif /* OS2 */
+
+ case 'q': /* Quiet */
+ quiet = 1;
+ break;
+
case 'd':
#ifdef DEBUG
if (deblog) {
doexit(GOOD_EXIT,-1);
break;
+ case 'Y':
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+#ifdef OS2
+ case '#': /* K95 stdio threads */
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+#endif /* OS2 */
+ case 'q': /* Quiet */
+ quiet = 1;
+ break;
+
case 'd':
#ifdef DEBUG
if (deblog) {
/*
* -d Debug
+ * -# args Init
+ * -Y no init file
* -l user Set username
*
*/
doexit(GOOD_EXIT,-1);
break;
+ case 'Y':
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+#ifdef OS2
+ case '#': /* K95 stdio threads */
+ xargv++, xargc--; /* Skip past argument */
+ break; /* Action done in prescan */
+#endif /* OS2 */
+ case 'q': /* Quiet */
+ quiet = 1;
+ break;
+
case 'd':
#ifdef DEBUG
if (deblog) {
default:
fatal2(*xargv,
- "invalid command-line option, type \"rlogin -h\" for help"
+ "invalid command-line option, type \"ssh -h\" for help"
);
}
#else /* No command-line interface... */
-extern int xargc;
int
cmdlin() {
+ extern int xargc;
if (xargc > 1) {
XFATAL("Sorry, command-line options disabled.");
}
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2010,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifdef BSD44
#ifdef MACOSX
-#ifdef MACOSX103
-#define HERALD " Mac OS X 10.3"
-#else
#define HERALD " Mac OS X"
-#endif /* MACOSX103 */
#else
#ifdef __OpenBSD__
#define HERALD " OpenBSD"
#endif /* BSDI4 */
#else /* __bsdi__ */
#ifdef __NetBSD__
+#ifndef HERALD
#ifdef NETBSD16
#define HERALD " NetBSD 1.6"
#else
#define HERALD " NetBSD"
#endif /* NETBSD15 */
#endif /* NETBSD16 */
+#endif /* HERALD */
#else /* __NetBSD__ */
#ifdef __FreeBSD__
#ifdef FREEBSD51
#endif /* HPUX5 */
#endif /* HPUX */
+#ifndef MINIX
+#ifdef MINIX315
+#define MINIX
+#endif /* MINIX315 */
+#endif /* MINIX */
+
+#ifndef MINIX
+#ifdef MINIX3
+#define MINIX
+#endif /* MINIX3 */
+#endif /* MINIX */
+
#ifdef MINIX
+#ifdef MINIX315
+#define HERALD " Minix 3.1.5"
+#ifndef MINIX3
+#define MINIX3
+#endif /* MINIX3 */
+#endif /* MINIX315 */
+#ifdef MINIX3
+#ifndef MINIX2
+#define MINIX2
+#endif /* MINIX2 */
+#ifndef HERALD
+#define HERALD " Minix 3.0"
+#endif /* HERALD */
+#else
#ifdef MINIX2
#define HERALD " Minix 2.0"
#else
-#define HERALD " Minix 1.x"
+#define HERALD " Minix 1.0"
+#endif /* MINIX3 */
#endif /* MINIX2 */
#endif /* MINIX */
#ifdef Plan9
#define HERALD " Plan 9 from Bell Labs"
#else
+#ifdef SOLARIS11
+#define HERALD " Solaris 11"
+#else
+#ifdef SOLARIS10
+#define HERALD " Solaris 10"
+#else
#ifdef SOLARIS9
#define HERALD " Solaris 9"
#else
#endif /* SOLARIS7 */
#endif /* SOLARIS8 */
#endif /* SOLARIS9 */
+#endif /* SOLARIS10 */
+#endif /* SOLARIS11 */
#endif /* Plan9 */
#endif /* LYNXOS */
#endif /* _386BSD */
#endif /* NOXFER */
#ifndef NOCSETS
-char *xlav = "Character Set Translation 8.0.042, 3 Jul 2000";
+char *xlav = "Character Set Translation 9.0.044, 2 Jun 2011";
/* C K U X L A */
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2011,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
#ifdef HEBREW
"hebrew-iso", TC_HEBREW, 0,
#endif /* HEBREW */
+
+#ifdef UNICODE
+ "iso-10646-ucs-2", TC_UCS2, CM_INV, /* ISO 10646 / Unicode UCS-2 */
+#endif /* UNICODE */
+ "iso-8859-1", TC_1LATIN, CM_INV, /* ISO Latin Alphabet 1 */
+ "iso-8859-15", TC_9LATIN, CM_INV, /* ISO Latin Alphabet 9 (yes) */
+ "iso-8859-2", TC_2LATIN, CM_INV, /* ISO Latin Alphabet 2 */
+#ifdef CYRILLIC
+ "iso-8859-5", TC_CYRILL, CM_INV, /* ISO Latin/Cyrillic Alphabet */
+#endif /* CYRILLIC */
+#ifdef GREEK
+ "iso-8859-7", TC_GREEK, CM_INV, /* ISO 8859-7 Latin/Greek */
+#endif /* GREEK */
+#ifdef HEBREW
+ "iso-8859-8", TC_HEBREW, CM_INV, /* ISO Latin/Hebrew */
+#endif /* HEBREW */
+
#ifdef KANJI
"japanese-euc", TC_JEUC, CM_INV,
#endif /* KANJI */
"transparent", TC_TRANSP, 0,
#ifdef UNICODE
"ucs2", TC_UCS2, 0,
+#endif /* UNICODE */
+ "us-ascii", TC_USASCII, CM_INV,
+ "usascii", TC_USASCII, CM_INV,
+#ifdef UNICODE
+ "utf-8", TC_UTF8, CM_INV,
"utf8", TC_UTF8, 0,
#endif /* UNICODE */
"", 0, 0
/* Includes 7-bit National Replacement Character Sets of ISO 646 */
/* Plus ISO Latin-1, DEC Multinational Character Set (MCS), NeXT char set, */
/* Various PC and Windows code pages, etc. */
+/* As of C-Kermit 9.0 MIME names are included as invisible synomyms for */
+/* those character sets that have MIME names. */
struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
/*
IMPORTANT: This table is replicated below as ttcstab (terminal character
set table). The only differences are the addition of TRANSPARENT
- and the removal of the Kanji sets, which are not supported yet.
- If you make changes to this table, also change ttcstab.
+ and the removal of the Kanji sets, which are not supported for terminal
+ emulation. If you make changes to this table, also change ttcstab.
*/
-/* Keyword Value Flags */
+/* Keyword Value Flags */
"apple-quickdraw", FC_APPQD, CM_INV, /* Apple Quickdraw */
"ascii", FC_USASCII, 0, /* ASCII */
"british", FC_UKASCII, 0, /* British NRC */
#ifdef KANJI
"dec-kanji", FC_JDEC, 0, /* Japanese DEC Kanji */
#endif /* KANJI */
+ "dec-mcs", FC_DECMCS, CM_INV, /* DEC multinational char set */
"dec-multinational", FC_DECMCS, 0, /* DEC multinational character set */
"dg-international", FC_DGMCS, 0, /* Data General multinational */
"dutch", FC_DUASCII, 0, /* Dutch NRC */
#endif /* HEBREW */
"hp-roman8", FC_HPR8, 0, /* Hewlett Packard Roman8 */
"hungarian", FC_HUASCII, 0, /* Hungarian NRC */
+
+ "ibm437", FC_CP437, CM_INV, /* PC CP437 */
+ "ibm850", FC_CP850, CM_INV, /* PC CP850 (not in MIME) */
+#ifdef LATIN2
+ "ibm852", FC_CP852, CM_INV, /* PC CP852 */
+#endif /* LATIN2 */
+#ifdef CYRILLIC
+ "ibm855", FC_CP855, CM_INV, /* PC CP855 */
+#endif /* CYRILLIC */
+ "ibm858", FC_CP858, CM_INV, /* PC CP858 (not in MIME) */
+#ifdef HEBREW
+ "ibm862", FC_CP862, CM_INV, /* PC CP862 (not in MIME) */
+#endif /* HEBREW */
+#ifdef CYRILLIC
+ "ibm866", FC_CP866, CM_INV, /* CP866 Cyrillic */
+#endif /* CYRILLIC */
+#ifdef GREEK
+ "ibm869", FC_CP869, CM_INV, /* CP869 Greek */
+#endif /* GREEK */
+
+#ifdef UNICODE
+ "iso-10646-ucs-2", FC_UCS2, CM_INV, /* ISO 10646 / Unicode UCS-2 */
+#endif /* UNICODE */
+ "iso-8859-1", FC_1LATIN, CM_INV, /* ISO Latin Alphabet 1 */
+ "iso-8859-15", FC_9LATIN, CM_INV, /* ISO Latin Alphabet 9 (yes) */
+ "iso-8859-2", FC_2LATIN, CM_INV, /* ISO Latin Alphabet 2 */
+#ifdef CYRILLIC
+ "iso-8859-5", FC_CYRILL, CM_INV, /* ISO Latin/Cyrillic Alphabet */
+#endif /* CYRILLIC */
+#ifdef GREEK
+ "iso-8859-7", FC_GREEK, CM_INV, /* ISO 8859-7 Latin/Greek */
+#endif /* GREEK */
+#ifdef HEBREW
+ "iso-8859-8", FC_HEBREW, CM_INV, /* ISO Latin/Hebrew */
+#endif /* HEBREW */
#ifdef KANJI
- "iso2022jp-kanji", FC_JIS7, 0, /* Synonym for JIS-7 */
+ "iso2022jp-kanji", FC_JIS7, CM_INV, /* Synonym for JIS-7 */
#endif /* KANJI */
- "italian", FC_ITASCII, 0, /* Italian NRC */
+
+ "iso646-gb", FC_UKASCII, CM_INV, /* British NRC */
+ "iso646-ca", FC_FCASCII, CM_INV, /* French Canadian NRC */
+ "iso646-de", FC_GEASCII, CM_INV, /* German NRC */
+ "iso646-dk", FC_NOASCII, CM_INV, /* Norwegian and Danish NRC */
+ "iso646-es", FC_SPASCII, CM_INV, /* Spanish NRC */
+ "iso646-fi", FC_FIASCII, CM_INV, /* Finnish NRC */
+ "iso646-fr", FC_FRASCII, CM_INV, /* French NRC */
+ "iso646-hu", FC_HUASCII, CM_INV, /* Hungarian NRC */
+ "iso646-it", FC_ITASCII, CM_INV, /* Italian NRC */
+ "iso646-no", FC_NOASCII, CM_INV, /* Norwegian and Danish NRC */
+ "iso646-po", FC_POASCII, CM_INV, /* Portuguese NRC */
+ "iso646-se", FC_SWASCII, CM_INV, /* Swedish NRC */
+
+ "italian", FC_ITASCII, CM_INV, /* Italian NRC */
#ifdef KANJI
"japanese-euc", FC_JEUC, CM_INV, /* Japanese EUC */
"jis7-kanji", FC_JIS7, 0, /* Japanese JIS7 7bit code */
"k", FC_KOI8, CM_ABR|CM_INV,
"ko", FC_KOI8, CM_ABR|CM_INV,
"koi", FC_KOI8, CM_ABR|CM_INV,
+ "koi7", FC_KOI7, 0, /* Short KOI Cyrillic */
"koi8", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
+ "koi8-e", FC_KOI8, CM_INV, /* Old KOI-8 Cyrillic */
"koi8-cyrillic", FC_KOI8, CM_INV,
+ "koi8-r", FC_KOI8R, CM_INV, /* KOI8-R RFC1489 */
+ "koi8-u", FC_KOI8U, CM_INV, /* KOI8-U RFC2319 */
"koi8r", FC_KOI8R, 0, /* KOI8-R RFC1489 */
"koi8u", FC_KOI8U, 0, /* KOI8-U RFC2319 */
#endif /* CYRILLIC */
"portuguese", FC_POASCII, 0, /* Portuguese NRC */
#ifdef KANJI
"shift-jis-kanji", FC_SHJIS, 0, /* Japanese Kanji Shift-JIS */
+ "shift_jis", FC_SHJIS, CM_INV, /* Japanese Kanji Shift-JIS */
#endif /* KANJI */
#ifdef CYRILLIC
"short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
"swiss", FC_CHASCII, 0, /* Swiss NRC */
#ifdef UNICODE
"ucs2", FC_UCS2, 0, /* ISO 10646 / Unicode UCS-2 */
+#endif /* UNICODE */
+ "us-ascii", FC_USASCII, CM_INV, /* MIME */
+ "usascii", FC_USASCII, CM_INV,
+#ifdef UNICODE
+ "utf-8", FC_UTF8, CM_INV, /* ISO 10646 / Unicode UTF-8 */
"utf8", FC_UTF8, 0, /* ISO 10646 / Unicode UTF-8 */
#endif /* UNICODE */
+#ifdef LATIN2
+ "windows-1250", FC_CP1250, CM_INV, /* Windows CP 1250 */
+#endif /* LATIN2 */
+#ifdef CYRILLIC
+ "windows-1251", FC_CP1251, CM_INV, /* Windows CP 1251 */
+#endif /* CYRILLIC */
+ "windows-1252", FC_CP1252, CM_INV, /* Windows CP 1252 */
"", 0, 0
};
int nfilc = (sizeof(fcstab) / sizeof(struct keytab)) - 1;
addition of TRANSPARENT and deletion of the Japanese sets. If you make
changes to this table, make the corresponding changes to fcstab.
*/
-/* Keyword Value Flags */
+/* Keyword Value Flags */
"apple-quickdraw", FC_APPQD, CM_INV, /* Apple Quickdraw */
"ascii", FC_USASCII, 0, /* ASCII */
"british", FC_UKASCII, 0, /* British NRC */
"cp1251-cyrillic", FC_CP1251, 0, /* Windows CP 1251 */
#endif /* CYRILLIC */
"cp1252", FC_CP1252, 0, /* Windows CP 1252 */
- "cp437", FC_CP437, 0, /* IBM CP437 */
- "cp850", FC_CP850, 0, /* IBM CP850 */
+ "cp437", FC_CP437, 0, /* PC CP437 */
+ "cp850", FC_CP850, 0, /* PC CP850 */
#ifdef LATIN2
- "cp852", FC_CP852, 0, /* IBM CP852 */
+ "cp852", FC_CP852, 0, /* PC CP852 */
#endif /* LATIN2 */
#ifdef CYRILLIC
"cp855-cyrillic", FC_CP855, 0, /* PC CP855 */
"cyrillic-iso", FC_CYRILL, 0, /* ISO Latin/Cyrillic Alphabet */
#endif /* CYRILLIC */
"danish", FC_NOASCII, 0, /* Norwegian and Danish NRC */
-#ifdef COMMENT
-#ifdef KANJI
- "dec-kanji", FC_JDEC, 0, /* Japanese DEC Kanji */
-#endif /* KANJI */
-#endif /* COMMENT */
+ "dec-mcs", FC_DECMCS, CM_INV, /* DEC multinational char set */
"dec-multinational", FC_DECMCS, 0, /* DEC multinational character set */
"dg-international", FC_DGMCS, 0, /* Data General multinational */
"dutch", FC_DUASCII, 0, /* Dutch NRC */
#endif /* HEBREW */
"hp-roman8", FC_HPR8, 0, /* Hewlett Packard Roman8 */
"hungarian", FC_HUASCII, 0, /* Hungarian NRC */
- "italian", FC_ITASCII, 0, /* Italian NRC */
-#ifdef COMMENT
-/* Kanji terminal character sets not implemented yet */
-#ifdef KANJI
- "japanese-euc", FC_JEUC, 0, /* Japanese EUC */
- "jis7-kanji", FC_JIS7, 0, /* Japanese JIS7 7bit code */
-#endif /* KANJI */
-#endif /* COMMENT */
+
+ "ibm437", FC_CP437, CM_INV, /* PC CP437 */
+ "ibm850", FC_CP850, CM_INV, /* PC CP850 (not in MIME) */
+#ifdef LATIN2
+ "ibm852", FC_CP852, CM_INV, /* PC CP852 */
+#endif /* LATIN2 */
+#ifdef CYRILLIC
+ "ibm855", FC_CP855, CM_INV, /* PC CP855 */
+#endif /* CYRILLIC */
+ "ibm858", FC_CP858, CM_INV, /* PC CP858 (not in MIME) */
+#ifdef HEBREW
+ "ibm862", FC_CP862, CM_INV, /* PC CP862 (not in MIME) */
+#endif /* HEBREW */
+#ifdef CYRILLIC
+ "ibm866", FC_CP866, CM_INV, /* CP866 Cyrillic */
+#endif /* CYRILLIC */
+#ifdef GREEK
+ "ibm869", FC_CP869, CM_INV, /* CP869 Greek */
+#endif /* GREEK */
+
+#ifdef UNICODE
+ "iso-10646-ucs-2", FC_UCS2, CM_INV, /* ISO 10646 / Unicode UCS-2 */
+#endif /* UNICODE */
+ "iso-8859-1", FC_1LATIN, CM_INV, /* ISO Latin Alphabet 1 */
+ "iso-8859-15", FC_9LATIN, CM_INV, /* ISO Latin Alphabet 9 (yes) */
+ "iso-8859-2", FC_2LATIN, CM_INV, /* ISO Latin Alphabet 2 */
+#ifdef CYRILLIC
+ "iso-8859-5", FC_CYRILL, CM_INV, /* ISO Latin/Cyrillic Alphabet */
+#endif /* CYRILLIC */
+#ifdef GREEK
+ "iso-8859-7", FC_GREEK, CM_INV, /* ISO 8859-7 Latin/Greek */
+#endif /* GREEK */
+#ifdef HEBREW
+ "iso-8859-8", FC_HEBREW, CM_INV, /* ISO Latin/Hebrew */
+#endif /* HEBREW */
+
+ "iso646-gb", FC_UKASCII, CM_INV, /* British NRC */
+ "iso646-ca", FC_FCASCII, CM_INV, /* French Canadian NRC */
+ "iso646-de", FC_GEASCII, CM_INV, /* German NRC */
+ "iso646-dk", FC_NOASCII, CM_INV, /* Norwegian and Danish NRC */
+ "iso646-es", FC_SPASCII, CM_INV, /* Spanish NRC */
+ "iso646-fi", FC_FIASCII, CM_INV, /* Finnish NRC */
+ "iso646-fr", FC_FRASCII, CM_INV, /* French NRC */
+ "iso646-hu", FC_HUASCII, CM_INV, /* Hungarian NRC */
+ "iso646-it", FC_ITASCII, CM_INV, /* Italian NRC */
+ "iso646-no", FC_NOASCII, CM_INV, /* Norwegian and Danish NRC */
+ "iso646-po", FC_POASCII, CM_INV, /* Portuguese NRC */
+ "iso646-se", FC_SWASCII, CM_INV, /* Swedish NRC */
+
+ "italian", FC_ITASCII, CM_INV, /* Italian NRC */
+
#ifdef CYRILLIC
"k", FC_KOI8, CM_ABR|CM_INV,
"ko", FC_KOI8, CM_ABR|CM_INV,
"koi", FC_KOI8, CM_ABR|CM_INV,
+ "koi7", FC_KOI7, 0, /* Short KOI Cyrillic */
"koi8", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
+ "koi8-e", FC_KOI8, CM_INV, /* Old KOI-8 Cyrillic */
"koi8-cyrillic", FC_KOI8, CM_INV,
+ "koi8-r", FC_KOI8R, CM_INV, /* KOI8-R RFC1489 */
+ "koi8-u", FC_KOI8U, CM_INV, /* KOI8-U RFC2319 */
"koi8r", FC_KOI8R, 0, /* KOI8-R RFC1489 */
"koi8u", FC_KOI8U, 0, /* KOI8-U RFC2319 */
#endif /* CYRILLIC */
"latin2-iso", FC_2LATIN, 0, /* ISO Latin Alphabet 2 */
#endif /* LATIN2 */
"latin9-iso", FC_9LATIN, 0, /* ISO Latin Alphabet 9 */
- "macintosh-latin", FC_APPQD, 0, /* "Extended Mac Latin */
+ "macintosh-latin", FC_APPQD, 0, /* "Extended Mac Latin" */
#ifdef LATIN2
"mazovia-pc", FC_MAZOVIA, 0, /* Polish Mazovia PC code page */
#endif /* LATIN2 */
"next-multinational", FC_NEXT, 0, /* NeXT workstation */
"norwegian", FC_NOASCII, 0, /* Norwegian and Danish NRC */
"portuguese", FC_POASCII, 0, /* Portuguese NRC */
-#ifdef COMMENT
-/* Kanji terminal character sets not implemented yet. */
-#ifdef KANJI
- "shift-jis-kanji", FC_SHJIS, 0, /* Japanese Kanji Shift-JIS */
-#endif /* KANJI */
-#endif /* COMMENT */
+
#ifdef CYRILLIC
"short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
#endif /* CYRILLIC */
"swiss", FC_CHASCII, 0, /* Swiss NRC */
"transparent", FC_TRANSP, 0, /* Transparent */
#ifdef UNICODE
+ "ucs2", FC_UCS2, 0, /* ISO 10646 / Unicode UCS-2 */
+#endif /* UNICODE */
+ "us-ascii", FC_USASCII, CM_INV, /* MIME */
+ "usascii", FC_USASCII, CM_INV,
+#ifdef UNICODE
+ "utf-8", FC_UTF8, CM_INV, /* ISO 10646 / Unicode UTF-8 */
"utf8", FC_UTF8, 0, /* ISO 10646 / Unicode UTF-8 */
#endif /* UNICODE */
+#ifdef LATIN2
+ "windows-1250", FC_CP1250, CM_INV, /* Windows CP 1250 */
+#endif /* LATIN2 */
+#ifdef CYRILLIC
+ "windows-1251", FC_CP1251, CM_INV, /* Windows CP 1251 */
+#endif /* CYRILLIC */
+ "windows-1252", FC_CP1252, CM_INV, /* Windows CP 1252 */
"", 0, 0
};
int ntermc = (sizeof(ttcstab) / sizeof(struct keytab)) - 1;
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
- Copyright (C) 1985, 2004,
+ Copyright (C) 1985, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
Authors: Jeff Damens, Frank da Cruz
Columbia University Center for Computing Activites.
First released November 1984.
- Copyright (C) 1984, 2004,
+ Copyright (C) 1984, 2009,
Trustees of Columbia University in the City of New York.
All rights reserved. See the C-Kermit COPYING.TXT file or the
copyright text in the ckcmai.c module for disclaimer and permissions.
+++ /dev/null
-Patch makefile to support install to a staging area with DESTDIR
---- ckermit-211.orig/makefile
-+++ ckermit-211/makefile
-@@ -998,7 +998,7 @@
- echo "RmF $(DESTDIR)$(BINDIR)/kermit-sshsub" >&3;\
- echo "RmF $(DESTDIR)$(BINDIR)/kermit" >&3;\
- if test -f ckermit.ini; then\
-- echo "#!$(DESTDIR)$(BINDIR)/kermit" >\
-+ echo "#!$(BINDIR)/kermit" >\
- $(DESTDIR)$(BINDIR)/_tmp.ini;\
- cat ckermit.ini >> $(DESTDIR)$(BINDIR)/_tmp.ini;\
- mv $(DESTDIR)$(BINDIR)/_tmp.ini\
-@@ -1019,20 +1019,20 @@
- echo " for details.";\
- echo;\
- echo MANDIR=$(MANDIR);\
-- if test -n "$(MANDIR)"; then\
-- if test -d $(MANDIR); then\
-- echo "$(MANDIR) exists...";\
-+ if test -n "$(DESTDIR)$(MANDIR)"; then\
-+ if test -d $(DESTDIR)$(MANDIR); then\
-+ echo "$(DESTDIR)$(MANDIR) exists...";\
- else\
-- echo "Creating $(MANDIR)...";\
-- mkdir $(MANDIR) || exit 1;\
-- chmod 755 $(MANDIR) || exit 1;\
-+ echo "Creating $(DESTDIR)$(MANDIR)...";\
-+ mkdir $(DESTDIR)$(MANDIR) || exit 1;\
-+ chmod 755 $(DESTDIR)$(MANDIR) || exit 1;\
- fi;\
- echo "Installing man page...";\
-- rm -f $(MANDIR)/kermit.$(MANEXT);\
-- cp ckuker.nr $(MANDIR)/kermit.$(MANEXT) || exit 1;\
-- chmod 644 $(MANDIR)/kermit.$(MANEXT) || exit 1;\
-+ rm -f $(DESTDIR)$(MANDIR)/kermit.$(MANEXT);\
-+ cp ckuker.nr $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
-+ chmod 644 $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
- echo 'set flag=f\nPrC Removing man pages' >&3;\
-- echo "RmF $(MANDIR)/kermit.$(MANEXT)" >&3;\
-+ echo "RmF $(DESTDIR)$(MANDIR)/kermit.$(MANEXT)" >&3;\
- echo 'EfM' >&3;\
- echo;\
- else\
+++ /dev/null
-Correctly escape hyphens in man page
---- ckermit-211.orig/ckuker.nr
-+++ ckermit-211/ckuker.nr
-@@ -3,17 +3,17 @@
- .na
- .SH NAME
- kermit \-
--.B C-Kermit 8.0:
--transport- and platform-independent
-+.B C\(hyKermit 8.0:
-+transport\(hy and platform\(hyindependent
- interactive and scriptable communications software.
- .IP
-
- This document is intended to give the beginner sufficient information to make
--basic (if not advanced) use of C-Kermit 8.0. Although it might be rather long
--for a Unix manual page, it's still far shorter than the C-Kermit manual, which
--should be consulted for advanced topics such as customization, character-sets,
-+basic (if not advanced) use of C\(hyKermit 8.0. Although it might be rather long
-+for a Unix manual page, it's still far shorter than the C\(hyKermit manual, which
-+should be consulted for advanced topics such as customization, character\(hysets,
- scripting, etc. We also attempt to provide a clear structural overview of
--C-Kermit's many capabilities, functional areas, states, and modes and their
-+C\(hyKermit's many capabilities, functional areas, states, and modes and their
- interrelation, that should be helpful to beginners and veterans alike, as well
- as to those upgrading to version 8.0 from earlier releases.
- .PP
-@@ -21,11 +21,11 @@
- .IP
- http://www.columbia.edu/kermit/ckututor.html
- .SH DESCRIPTION
--C-Kermit is an all-purpose communications software package from the Kermit
-+C\(hyKermit is an all\(hypurpose communications software package from the Kermit
- Project at Columbia University that:
- .PP
- .nf
--\(bu Is portable to many platforms, Unix and non-Unix alike.
-+\(bu Is portable to many platforms, Unix and non\(hyUnix alike.
- .br
- \(bu Can make both serial and network connections.
- .br
-@@ -35,39 +35,39 @@
- .br
- \(bu Can convert character sets in the terminal session.
- .br
--\(bu Can convert character sets during text-file file transfer.
-+\(bu Can convert character sets during text\(hyfile file transfer.
- .br
- \(bu Is customizable in every aspect of its operation.
- .fi
- .PP
--C-Kermit is a modem program, a Telnet client, an Rlogin client, an FTP
-+C\(hyKermit is a modem program, a Telnet client, an Rlogin client, an FTP
- client, an HTTP client, and on selected platforms, also an X.25 client. It
--can make its own secure Internet connections using IETF-approved security
-+can make its own secure Internet connections using IETF\(hyapproved security
- methods including Kerberos IV, Kerberos V, SSL/TLS, and SRP and it can also
- make SSH connections through your external SSH client application. It can
--be the far-end file-transfer or client/server partner of your desktop
-+be the far\(hyend file\(hytransfer or client/server partner of your desktop
- Kermit client. It can also accept incoming dialed and network connections.
- It can even be installed as an Internet service on its own standard TCP
- socket, 1649 [RFC2839, RFC2840].
- .PP
- And perhaps most important, everything you can do "by hand" (interactively)
--with C-Kermit, can be "scripted" (automated) using its built-in
--cross-platform transport-independent script programming language, which
-+with C\(hyKermit, can be "scripted" (automated) using its built\(hyin
-+cross\(hyplatform transport\(hyindependent script programming language, which
- happens to be identical to its interactive command language.
- .PP
--This manual page offers an overview of C-Kermit 8.0 for Unix ("Unix" is an
--operating system family that includes AIX, DG/UX, FreeBSD, HP-UX, IRIX,
-+This manual page offers an overview of C\(hyKermit 8.0 for Unix ("Unix" is an
-+operating system family that includes AIX, DG/UX, FreeBSD, HP\(hyUX, IRIX,
- Linux, Mac OS X, NetBSD, OpenBSD, Open Server, Open Unix, QNX, Solaris,
- SunOS, System V R3, System V R4, Tru64 Unix, Unixware, Xenix, and many
--others). For thorough coverage, please consult the published C-Kermit
-+others). For thorough coverage, please consult the published C\(hyKermit
- manual and supplements (see DOCUMENTATION below). For further information
--about C-Kermit, Kermit software for other platforms, and Kermit manuals,
-+about C\(hyKermit, Kermit software for other platforms, and Kermit manuals,
- visit the Kermit Project website:
- .PP
- http://www.columbia.edu/kermit/
- .PP
--This is a longer-than-average manual page, and yet it barely scratches the
--surface. Don't be daunted. C-Kermit is a large and complex package,
-+This is a longer\(hythan\(hyaverage manual page, and yet it barely scratches the
-+surface. Don't be daunted. C\(hyKermit is a large and complex package,
- evolving over decades of practice and experience, but that doesn't mean
- it's hard to learn or use. Its most commonly used functions are explained
- here with pointers to additional information elsewhere.
-@@ -76,7 +76,7 @@
- .I filename
- .B ] [
- .I options
--.B ] [ {=,--,+}
-+.B ] [ {=,\-\-,+}
- .I text
- .B ] ]
- .PP
-@@ -85,12 +85,12 @@
- .B kermit
- .I URL
- .PP
--If the first command-line argument is the name of a file, interactive-mode
--commands are executed from the file. The '=' (or "--") argument tells
-+If the first command\(hyline argument is the name of a file, interactive\(hymode
-+commands are executed from the file. The '=' (or "\-\-") argument tells
- Kermit not to parse the remainder of the command line, but to make the
- words following '=' available as \e%1, \e%2, ... \e%9. The "+" argument is
- like "=" but for use in "kerbang scripts" (explained below). A second
--command-line format allows the one and only argument to be a Telnet, FTP,
-+command\(hyline format allows the one and only argument to be a Telnet, FTP,
- HTTP, or IKSD URL.
- .PP
- Order of execution:
-@@ -100,338 +100,338 @@
- .TP
- .nf
- 2.
--The initialization file, if any, unless suppressed with -Y.
-+The initialization file, if any, unless suppressed with \-Y.
- .fi
- .TP
- 3.
- The customization file (if it is executed by the initialization file).
- .TP
- 4.
--The command-line URL (if any, and if so, execution stops here).
-+The command\(hyline URL (if any, and if so, execution stops here).
- .TP
- 5.
--Command-line options (if any).
-+Command\(hyline options (if any).
- .TP
- 6.
- Interactive commands.
- .PP
--Some command-line options can cause actions (such as -s to send a file);
-+Some command\(hyline options can cause actions (such as \-s to send a file);
- others just set parameters. If any action options are included on the
--command line, Kermit exits when finished unless also given the -S ("stay")
-+command line, Kermit exits when finished unless also given the \-S ("stay")
- option. If no action options are given, no initialization or command files
- contained an EXIT or QUIT command, and no fatal errors occurred, Kermit
- issues its prompt and waits for you to type commands.
- .IP
--Bear in mind that C-Kermit can be built with selected features
-+Bear in mind that C\(hyKermit can be built with selected features
- disabled, and also that certain features are not available on all
--platforms. For example, C-Kermit can't be built with TCP/IP
-+platforms. For example, C\(hyKermit can't be built with TCP/IP
- support on a platform that does not have TCP/IP header files and
- libraries (and even if Kermit does include TCP/IP support, it
- can't be used to make TCP/IP connections on a computer that does
- not have a TCP/IP stack installed). If your version of lacks
--C-Kermit a feature mentioned here, use its SHOW FEATURES command to
-+C\(hyKermit a feature mentioned here, use its SHOW FEATURES command to
- see what might have been excluded.
- .PP
--C-Kermit has three kinds of commands: regular single-letter command-line
--options, extended-format command-line options, and interactive commands.
-+C\(hyKermit has three kinds of commands: regular single\(hyletter command\(hyline
-+options, extended\(hyformat command\(hyline options, and interactive commands.
- .PP
--Like most Unix commands, C-Kermit can be be given options on the command
--line. But C-Kermit also can be used interactively by giving it commands
--composed of words, which are more intuitive than cryptic command-line
-+Like most Unix commands, C\(hyKermit can be be given options on the command
-+line. But C\(hyKermit also can be used interactively by giving it commands
-+composed of words, which are more intuitive than cryptic command\(hyline
- options, and more flexible too. In other words, you don't have to use
--C-Kermit's command-line options, but they are available if you want to. (By
--the same token, you don't have to use its interactive commands either --
-+C\(hyKermit's command\(hyline options, but they are available if you want to. (By
-+the same token, you don't have to use its interactive commands either \(hy\(hy
- you can use either or both in any combination.)
- .PP
--C-Kermit is generally installed in the PATH as "kermit", and therefore is
-+C\(hyKermit is generally installed in the PATH as "kermit", and therefore is
- invoked by typing the word "kermit" (lowercase) at the shell prompt, and
--then pressing the Return or Enter key. If you wish to include command-line
-+then pressing the Return or Enter key. If you wish to include command\(hyline
- options, put them after the word "kermit" but before pressing Return or
- Enter, separated by spaces, for example:
- .PP
-- $ kermit -s ckermit.tar.gz
-+ $ kermit \-s ckermit.tar.gz
- .PP
--('$' is the shell prompt; "kermit -s ckermit.tar.gz" is what you type,
-+('$' is the shell prompt; "kermit \-s ckermit.tar.gz" is what you type,
- followed by Return or Enter.)
- .SH OPTIONS
--Here is a list of C-Kermit's single-letter command-line options, which
--start with a single dash (-), in ASCII ("alphabetical") order. Alphabetic
--case is significant (-A is not the same as -a). Action options are
-+Here is a list of C\(hyKermit's single\(hyletter command\(hyline options, which
-+start with a single dash (\-), in ASCII ("alphabetical") order. Alphabetic
-+case is significant (\-A is not the same as \-a). Action options are
- tagged "ACTION".
- .TP
---0
-+\-0
- (digit zero) 100% transparent Connect state for
--"in-the-middle" operation: 8 bits, no parity, no
-+"in\(hythe\(hymiddle" operation: 8 bits, no parity, no
- escape character, everything passes through.
- .TP
---8
--(digit eight) Connection is 8-bit clean (this is the
--default in C-Kermit 8.0). Equivalent to the EIGHTBIT
-+\-8
-+(digit eight) Connection is 8\(hybit clean (this is the
-+default in C\(hyKermit 8.0). Equivalent to the EIGHTBIT
- command, which in turn is a shortcut for SET TERMINAL
- BYTESIZE 8, SET COMMAND BYTESIZE 8, SET PARITY NONE.
- .TP
---9 arg
-+\-9 arg
- (digit nine) Make a connection to an FTP server.
- Equivalent to the FTP OPEN command.
--Argument: IP-address-or-hostname[:optional-TCP-port].
--NOTE: C-Kermit also has a separate FTP command-line
--personality, with regular FTP-like command-line
-+Argument: IP\(hyaddress\(hyor\(hyhostname[:optional\(hyTCP\(hyport].
-+NOTE: C\(hyKermit also has a separate FTP command\(hyline
-+personality, with regular FTP\(hylike command\(hyline
- syntax. More about this below.
- .TP
---A
-+\-A
- Kermit is to be started as an Internet service (IKSD)
- (only from inetd.conf).
- .TP
---B
-+\-B
- Kermit is running in Batch or Background (no
- controlling terminal). To be used in case Kermit
- doesn't automatically sense its background status.
- Equivalent to the SET BACKGROUND ON command.
- .TP
---C arg
--Interactive-mode Commands to be executed.
-+\-C arg
-+Interactive\(hymode Commands to be executed.
- Argument: Commands separated by commas, list in
- doublequotes.
- .TP
---D arg
-+\-D arg
- Delay before starting to send in Remote mode.
- Equivalent to the SET DELAY command.
- Argument: Number of seconds.
- .TP
---E
-+\-E
- Exit automatically when connection closes. Equivalent
--to SET EXIT ON-DISCONNECT ON.
-+to SET EXIT ON\-DISCONNECT ON.
- .TP
---F arg
-+\-F arg
- Use an open TCP connection.
- Argument: Numeric file descriptor of open TCP
- connection.
--Also see: -j, -J.
-+Also see: \-j, \-J.
- .TP
---G arg
-+\-G arg
- (ACTION) Get file(s) from server, send contents to standard
- output, which normally would be piped to another
- process.
- Argument: Remote file specification, in quotes if it
- contains metacharacters.
--Also see: -g, -k.
-+Also see: \-g, \-k.
- .TP
---H
-+\-H
- Suppress program startup Herald and greeting.
- .TP
---I
-+\-I
- Tell Kermit it has a reliable connection, to force streaming to be used where
- it normally would not be. Equivalent to the SET RELIABLE ON command.
- .TP
---J arg
--(ACTION) "Be like Telnet." Like -j but implies -E. Argument: IP
--hostname/address optionally followed by service. NOTE: C-Kermit also has a
--separate Telnet command-line personality, with regular Telnet-like
--command-line syntax. More about this below.
-+\-J arg
-+(ACTION) "Be like Telnet." Like \-j but implies \-E. Argument: IP
-+hostname/address optionally followed by service. NOTE: C\(hyKermit also has a
-+separate Telnet command\(hyline personality, with regular Telnet\(hylike
-+command\(hyline syntax. More about this below.
- .TP
---L
--Recursive directory descent for files in -s option.
-+\-L
-+Recursive directory descent for files in \-s option.
- .TP
---M arg
-+\-M arg
- My user name (for use with Telnet, Rlogin, FTP, etc).
- Equivalent to the SET LOGIN USER command.
- Argument: Username string.
- .TP
---O
-+\-O
- (ACTION) (Uppercase letter O) Be a server for One command only.
--Also see: -x.
-+Also see: \-x.
- .TP
---P
-+\-P
- Don't convert file (Path) names of transferred files.
- Equivalent to SET FILE NAMES LITERAL.
- .TP
---Q
-+\-Q
- Quick Kermit protocol settings. Equivalent to the FAST
--command. This is the default in C-Kermit 7.0 and later.
-+command. This is the default in C\(hyKermit 7.0 and later.
- .TP
---R
--Remote-only (this just makes IF REMOTE true).
-+\-R
-+Remote\(hyonly (this just makes IF REMOTE true).
- .TP
---S
-+\-S
- Stay (enter command parser after action options).
- .TP
---T
--Force Text mode for file transfer; implies -V.
-+\-T
-+Force Text mode for file transfer; implies \-V.
- Equivalent to SET TRANSFER MODE MANUAL, SET FILE TYPE TEXT.
- .TP
---V
--Disable automatic per-file text/binary switching.
-+\-V
-+Disable automatic per\(hyfile text/binary switching.
- Equivalent to SET TRANSFER MODE MANUAL.
- .TP
---Y
-+\-Y
- Skip (don't execute) the initialization file.
- .TP
---a arg
--As-name for file(s) in -s, -r, or -g.
--Argument: As-name string (alternative filename). When
-+\-a arg
-+As\(hyname for file(s) in \-s, \-r, or \-g.
-+Argument: As\(hyname string (alternative filename). When
- receiving files, this can be a directory name.
- .TP
---b arg
-+\-b arg
- Speed for serial device. Equivalent to SET SPEED.
- Argument: Numeric Bits per second for serial
- connections.
- .TP
---c
-+\-c
- (ACTION) Enter Connect state before transferring files.
- .TP
---d
-+\-d
- Create a debug.log file with detailed debugging
--information (a second -d adds timestamps). Equivalent
-+information (a second \-d adds timestamps). Equivalent
- to LOG DEBUG but takes effect sooner.
- .TP
---e arg
--Maximum length for incoming Kermit file-transfer
--packets. Equivalent to SET RECEIVE PACKET-LENGTH.
-+\-e arg
-+Maximum length for incoming Kermit file\(hytransfer
-+packets. Equivalent to SET RECEIVE PACKET\-LENGTH.
- Argument: Length in bytes.
- .TP
---f
-+\-f
- (ACTION) Send a FINISH command to a Kermit server.
- .TP
---g arg
-+\-g arg
- Get file(s) from a Kermit server.
- Argument: File specification on other computer, in
- quotes if it contains metacharacters. Equivalent to
--GET. Also see: -a, -G, -r.
-+GET. Also see: \-a, \-G, \-r.
- .TP
---h
--(ACTION) Print Help text for single-letter command-line options
-+\-h
-+(ACTION) Print Help text for single\(hyletter command\(hyline options
- (pipe thru 'more' to prevent scrolling).
- .TP
---i
-+\-i
- Force binary (Image) mode for file transfer; implies
---V. Equivalent to SET TRANSFER MODE MANUAL, SET FILE
-+\-V. Equivalent to SET TRANSFER MODE MANUAL, SET FILE
- TYPE BINARY.
- .TP
---j arg
-+\-j arg
- Make a TCP/IP connection.
- Argument: IP host name/address and optional service
- name or number. Equivalent to the TELNET command.
--Also see: -J, -F.
-+Also see: \-J, \-F.
- .TP
---k
-+\-k
- (ACTION) Receive file(s) to standard output, which normally
- would be piped to another process.
--Also see: -r, -G.
-+Also see: \-r, \-G.
- .TP
---l arg
-+\-l arg
- (Lowercase letter L) Make a connection on the given
- serial communications device. Equivalent to the SET
- LINE (SET PORT) command.
- Argument: Serial device name, e.g. /dev/ttyS0.
- .TP
---m arg
--Modem type for use with the -l device. Equivalent to
-+\-m arg
-+Modem type for use with the \-l device. Equivalent to
- the SET MODEM TYPE command.
- Argument: Modem name as in SET MODEM TYPE command,
- e.g. "usrobotics".
- .TP
---n
-+\-n
- (ACTION) Enter Connect state after transferring files (historical).
- .TP
---p arg
-+\-p arg
- Parity. Equivalent to the SET PARITY command.
- Argument: One of the following: e(ven), o(dd), m(ark),
- n(one), s(pace).
- .TP
---q
-+\-q
- Quiet (suppress most messages). Equivalent to SET QUIET ON.
- .TP
---r
-+\-r
- (ACTION) Receive file(s). Equivalent to the RECEIVE command.
--Argument: (none, but see -a)
-+Argument: (none, but see \-a)
- .TP
---s arg
-+\-s arg
- Send file(s).
- Argument: One or more local file specifications.
- Equivalent to the SEND command.
--Also see: -a.
-+Also see: \-a.
- .TP
---t
--(Historical) Xon (Ctrl-Q) Turnaround character for
--half-duplex connections (used on serial linemode
-+\-t
-+(Historical) Xon (Ctrl\-Q) Turnaround character for
-+half\(hyduplex connections (used on serial linemode
- connections to old mainframes). Equivalent to SET
- DUPLEX HALF, SET HANDSHAKE XON.
- .TP
---v arg
-+\-v arg
- Window size for Kermit protocol (ignored when
--streaming). Equivalanet to SET WINDOW-SIZE.
-+streaming). Equivalanet to SET WINDOW\-SIZE.
- Argument: Number, 1 to 32.
- .TP
---w
-+\-w
- Incoming files Write over existing files. Equivalent
- to SET FILE COLLISION OVERWRITE.
- .TP
---x
-+\-x
- (ACTION) Enter server mode. Equivalent to the SERVER command.
--Also see: -O.
-+Also see: \-O.
- .TP
---y arg
-+\-y arg
- Alternative initialization file.
- Argument: Filename.
- .TP
---z
-+\-z
- Force foreground behavior. To be used in case Kermit
- doesn't automatically sense its foreground status.
- Equivalent to the SET BACKGROUND OFF command.
- .PP
--Extended command-line options (necessary because single-letter ones are
--about used up) start with two dashes (--), with words rather than single
-+Extended command\(hyline options (necessary because single\(hyletter ones are
-+about used up) start with two dashes (\-\-), with words rather than single
- letters as option names. If an extended option takes an argument, it is
- separated from the option word by a colon (:). Extended options include:
-
- .TP
-- --bannerfile:filename
-+ \-\-bannerfile:filename
- File to display upon startup or IKSD login.
- .TP
-- --cdfile:filename
-+ \-\-cdfile:filename
- File to be sent for display to the client when
- server changes directory (filename is relative to
--the changed-to directory).
-+the changed\(hyto directory).
- .TP
-- --cdmessage:{on,off}
-+ \-\-cdmessage:{on,off}
- Enable/disable the server CD message feature.
- .TP
-- --help
-+ \-\-help
- Prints usage message for extended options.
- .TP
-- --helpfile:filename
-+ \-\-helpfile:filename
- Designates a file containing custom text to
--replace the top-level HELP command.
-+replace the top\(hylevel HELP command.
- .TP
-- --nointerrupts
-+ \-\-nointerrupts
- Disables keyboard interrupts.
- .TP
-- --noperms
-+ \-\-noperms
- Disables the Kermit protocol file Permissions
- attribute, to prevent transmission of file
- permissions (protection) from sender to receiver.
- .TP
-- --version
--(ACTION) C-Kermit prints its version number.
-+ \-\-version
-+(ACTION) C\(hyKermit prints its version number.
- .PP
--Plus several other IKSD-Only options described at:
-+Plus several other IKSD\(hyOnly options described at:
- .PP
- http://www.columbia.edu/kermit/iksd.html
- .PP
--See the file-transfer section for examples of command-line invocation.
-+See the file\(hytransfer section for examples of command\(hyline invocation.
- .SH COMMAND LANGUAGE
--C-Kermit's interactive command language is the subject of a 622-page book
-+C\(hyKermit's interactive command language is the subject of a 622\(hypage book
- and another several hundred pages of updates, far too much for a manual
- page. But it's not hard to get started. At the shell prompt, just type
--"kermit" to get C-Kermit's interactive command prompt:
-+"kermit" to get C\(hyKermit's interactive command prompt:
- .PP
- .nf
- $ kermit
-- (/current/directory) C-Kermit>
-+ (/current/directory) C\-Kermit>
- .fi
- .PP
- Begin by typing "help" (and then press the Return or Enter key) for a
--top-level overview, read it, and go from there. Your second command should
-+top\(hylevel overview, read it, and go from there. Your second command should
- probably be "intro" (introduction). Note the prompt shows your current
- directory (unless you tell Kermit to prompt you with something else).
- .PP
-@@ -448,11 +448,11 @@
- .PP
- While typing commands, you can abbreviate, ask for help (by pressing the
- "?" key anywhere in a command), complete keywords or filenames (with the
--Tab or Esc key), and edit your typing with Backspace or Delete, Ctrl-W,
--Ctrl-U, etc. You can also recall previous commands, save your command
-+Tab or Esc key), and edit your typing with Backspace or Delete, Ctrl\-W,
-+Ctrl\-U, etc. You can also recall previous commands, save your command
- history, and who knows what else. Give the INTRO command for details.
- .PP
--C-Kermit has hundreds of commands, and they can be issued in infinite
-+C\(hyKermit has hundreds of commands, and they can be issued in infinite
- variety and combinations, including commands for:
- .nf
- .PP
-@@ -485,15 +485,15 @@
- .fi
- And of course QUIT or EXIT to get out and HELP to get help, and for
- programmers: loops, decision making, variables, arrays, associative arrays,
--integer and floating point arithmetic, macros, built-in and user-defined
-+integer and floating point arithmetic, macros, built\(hyin and user\(hydefined
- functions, string manipulation, pattern matching, block structure, scoping,
--recursion, and all the rest. To get a list of all C-Kermit's commands, type
-+recursion, and all the rest. To get a list of all C\(hyKermit's commands, type
- a question mark (?) at the prompt. To get a description of any command,
- type HELP followed by the name of the command, for example:
- .PP
- help send
- .PP
--The command interruption character is Ctrl-C (hold down the Ctrl key and
-+The command interruption character is Ctrl\-C (hold down the Ctrl key and
- press the C key).
- .PP
- The command language "escape character", used to introduce variable names,
-@@ -505,7 +505,7 @@
- A file containing Kermit commands is called a Kermit command file or Kermit
- script. It can be executed with Kermit's TAKE command:
- .PP
-- (/current/dir) C-Kermit> take commandfile
-+ (/current/dir) C\-Kermit> take commandfile
- .PP
- (where "commandfile" is the name of the command file). Please don't pipe a
- command file into Kermit's standard input (which might or might not work);
-@@ -599,16 +599,16 @@
- .PP
- take \ev(home).kermrc
- .PP
--at the desired spot in the script. By the way, \ev(xxx) is a built-in
-+at the desired spot in the script. By the way, \ev(xxx) is a built\(hyin
- variable (xxx is the variable name, "home" in this case). To see what
--built-in variables are available, type "show variables" at the C-Kermit
-+built\(hyin variables are available, type "show variables" at the C\(hyKermit
- prompt. To see what else you can show, type "show ?". \em(xxx) is a user
- defined variable (strictly speaking, it is a macro used as a variable).
- .SS Command List
--C-Kermit has more than 200 top-level commands, and some of these, such as
-+C\(hyKermit has more than 200 top\(hylevel commands, and some of these, such as
- SET, branch off into hundreds of subcommands of their own, so it's not
- practical to describe them all here. Instead, here's a concise list of the
--most commonly used top-level commands, grouped by category. To learn about
-+most commonly used top\(hylevel commands, grouped by category. To learn about
- each command, type "help" followed by the command name, e.g. "help set".
- Terms such as Command state and Connect state are explained in subsequent
- sections.
-@@ -620,7 +620,7 @@
- HELP text for each command. Example:
- .PP
- .nf
-- send /recursive /larger:10000 /after:-1week /except:*.txt *
-+ send /recursive /larger:10000 /after:\-1week /except:*.txt *
- .fi
- .PP
- which can be read as "send all the files in this directory and all the ones
-@@ -631,19 +631,19 @@
- .RS
- .TP
- HELP
--Requests top-level help.
-+Requests top\(hylevel help.
- .TP
- HELP command
- Requests help about the given command.
- .TP
- INTRODUCTION
--Requests a brief introduction to C-Kermit.
-+Requests a brief introduction to C\(hyKermit.
- .TP
- LICENSE
--Displays the C-Kermit software copyright and license.
-+Displays the C\(hyKermit software copyright and license.
- .TP
- VERSION
--Displays C-Kermit's version number.
-+Displays C\(hyKermit's version number.
- .TP
- EXIT [ number ]
- Exits from Kermit with the given
-@@ -667,13 +667,13 @@
- STATUS
- Tells whether previous command succeeded or failed.
- .TP
--DATE [ date-and/or-time ]
--Shows current date-time or interprets given date-time.
-+DATE [ date\(hyand/or\(hytime ]
-+Shows current date\(hytime or interprets given date\(hytime.
- .TP
--RUN [ extern-command [ parameters... ]
-+RUN [ extern\(hycommand [ parameters... ]
- Runs the given external command. Synonym: !.
- .TP
--EXEC [ extern-command [ params... ]
-+EXEC [ extern\(hycommand [ params... ]
- Kermit overlays itself with the given command.
- .TP
- SUSPEND
-@@ -703,7 +703,7 @@
- the pattern. Synonym: FIND.
- .TP
- DIRECTORY [ options ] [filespec ]
--Lists files (built-in, many options).
-+Lists files (built\(hyin, many options).
- .TP
- LS [ options ] [ filespec ]
- Lists files (runs external "ls" command).
-@@ -799,10 +799,10 @@
- HTTP [ options ] OPEN host
- Opens an HTTP connection to the host.
- .TP
--PTY external-command
-+PTY external\(hycommand
- Runs the command on a pseudoterminal as if it were a connection.
- .TP
--PIPE external-command
-+PIPE external\(hycommand
- Runs the command through a pipe as if it were a connection.
- .RE
- .SS
-@@ -818,24 +818,24 @@
- TELOPT command
- Sends a Telnet protocol command (Telnet connections only).
- .TP
--Ctrl-\eC
-+Ctrl\-\eC
- "Escapes back" from Connect state to Command state.
- .TP
--Ctrl-\eB
-+Ctrl\-\eB
- (In Connect state) Sends a BREAK signal (serial or Telnet).
- .TP
--Ctrl-\e!
-+Ctrl\-\e!
- (In Connect state) Enters inferior shell; "exit" to return.
- .TP
--Ctrl-\e?
--(In Connect state) Shows a menu of other escape-level options.
-+Ctrl\-\e?
-+(In Connect state) Shows a menu of other escape\(hylevel options.
- .TP
--Ctrl-\eCtrl-\e
-+Ctrl\-\eCtrl\-\e
- (In Connect state) Type two
--Ctrl-Backslashes to send one of them.
-+Ctrl\-Backslashes to send one of them.
- .TP
- SET ESCAPE [ character ]
--Changes Kermit's Connect-state escape character.
-+Changes Kermit's Connect\(hystate escape character.
- .RE
- .SS
- Closing Connections
-@@ -843,18 +843,18 @@
- .TP
- HANGUP
- Hangs up the currently open
--serial-port or network connection.
-+serial\(hyport or network connection.
- .TP
- CLOSE
- Closes the currently open
--serial-port or network connection.
-+serial\(hyport or network connection.
- .TP
- SET LINE (with no devicename)
- Closes the currently open
--serial-port or network connection.
-+serial\(hyport or network connection.
- .TP
- SET HOST (with no hostname)
--Closes the currently open serial-port or network connection.
-+Closes the currently open serial\(hyport or network connection.
- .TP
- FTP CLOSE
- Closes the currently open FTP connection.
-@@ -872,7 +872,7 @@
- File Transfer
- .RS
- .TP
--SEND [ options ] filename [ as-name ]
-+SEND [ options ] filename [ as\(hyname ]
- Sends the given file. Synonym: S.
- .TP
- SEND [ options ] filespec
-@@ -881,20 +881,20 @@
- RESEND [ options ] filespec
- Resumes an interupted SEND from the point of failure.
- .TP
--RECEIVE [ options ] [ as-name ]
-+RECEIVE [ options ] [ as\(hyname ]
- Waits passively for files to arrive. Synonym: R.
- .TP
- LOG TRANSACTIONS [ filename ]
- Keeps a record of file transfers.
- .TP
- FAST
--Use fast file-transfer settings (default).
-+Use fast file\(hytransfer settings (default).
- .TP
- CAUTIOUS
--Use cautious and less fast file-transfer settings.
-+Use cautious and less fast file\(hytransfer settings.
- .TP
- ROBUST
--Use ultra-conservative and slow file-transfer settings.
-+Use ultra\(hyconservative and slow file\(hytransfer settings.
- .TP
- STATISTICS [ options ]
- Gives statistics about the most recent file transfer.
-@@ -909,7 +909,7 @@
- Captures remote text or files without protocol.
- .TP
- SET PROTOCOL [ name... ]
--Tells Kermit to use an external file-transfer protocol.
-+Tells Kermit to use an external file\(hytransfer protocol.
- .TP
- FTP { PUT, MPUT, GET, MGET, ... }
- FTP client commands.
-@@ -940,7 +940,7 @@
- [ REMOTE ] LOGOUT
- Logs out from a Kermit server or IKSD.
- .TP
--SEND [ options ] filename [ as-name ]
-+SEND [ options ] filename [ as\(hyname ]
- Sends the given file to the server. Synonyms: S, PUT.
- .TP
- SEND [ options ] filespec
-@@ -949,10 +949,10 @@
- RESEND [ options ] filespec
- Resumes an interupted SEND from the point of failure.
- .TP
--GET [ options ] remote-filespec
-+GET [ options ] remote\(hyfilespec
- Asks the server to send the given files. Synonym: G.
- .TP
--REGET [ options ] remote-filespec
-+REGET [ options ] remote\(hyfilespec
- Resumes an interrupted GET from the point of failure.
- .TP
- REMOTE CD [ directory ]
-@@ -972,7 +972,7 @@
- (Many other commands: "remote ?" for a list).
- .TP
- MAIL [ options ] filespec
--Sends file(s) to be delivered as e-mail (Kermit only).
-+Sends file(s) to be delivered as e\(hymail (Kermit only).
- .TP
- FINISH
- Asks the server to exit server state (Kermit only).
-@@ -1005,21 +1005,21 @@
- this example:
- .PP
- .nf
-- C-Kermit> remote ? One of the following:
-+ C\-Kermit> remote ? One of the following:
- assign directory kermit print rmdir
- cd exit login pwd set
- copy help logout query space
- delete host mkdir rename type
-- C-Kermit> remote set ? One of the following:
-+ C\-Kermit> remote set ? One of the following:
- attributes file retry transfer
-- block-check receive server window
-- C-Kermit> remote set file ? One of the following:
-- character-set incomplete record-length
-+ block\-check receive server window
-+ C\-Kermit> remote set file ? One of the following:
-+ character\-set incomplete record\-length
- collision names type
-- C-Kermit> remote set file names ? One of the following:
-+ C\-Kermit> remote set file names ? One of the following:
- converted literal
-- C-Kermit> remote set file names literal
-- C-Kermit>
-+ C\-Kermit> remote set file names literal
-+ C\-Kermit>
- .PP
- .fi
- This is called menu on demand: you get a menu when you want one, but menus
-@@ -1030,25 +1030,25 @@
- example, "send x?" lists all the files in the current directory whose names
- start with 'x'.
- .SH INITIALIZATION FILE
--In its default configuration, C-Kermit executes commands from a file
-+In its default configuration, C\(hyKermit executes commands from a file
- called .kermrc in your home directory when it starts, unless it is given the
---Y or -y command-line option. Custom configurations might substitute a shared
--system-wide initialization file. The SHOW FILE command tells what
-+\-Y or \-y command\(hyline option. Custom configurations might substitute a shared
-+system\(hywide initialization file. The SHOW FILE command tells what
- initialization file, if any, was used. The standard initialization file
- "chains" to an individual customization file, .mykermc, in the home directory,
- in which each user can establish her/his own preferences, define macros, and
- so on.
- .PP
- Since execution of the initialization file (at least the standard one)
--makes C-Kermit take longer to start, it might be better not to have an
-+makes C\(hyKermit take longer to start, it might be better not to have an
- initialization file, especially now that Kermit's default startup
--configuration is well attuned to modern computing and networking -- in
-+configuration is well attuned to modern computing and networking \(hy\(hy in
- other words, you no longer have do anything special to make Kermit
- transfers go fast. So instead of having an initialization file that is
- executed every time Kermit starts, you might consider making one or more
- kerbang scripts (with names other that .kermrc) that do NOT include an
- "exit" command, and invoke those when you need the settings, macro
--definitions, and/or scripted actions they contain, and invoke C-Kermit
-+definitions, and/or scripted actions they contain, and invoke C\(hyKermit
- directly when you don't.
- .PP
- To put it another way... We still distribute the standard initialization
-@@ -1068,7 +1068,7 @@
- made any connections of its own). The local Kermit communicates over the
- communications device or network connection, acting as a conduit between
- the the remote computer and your keyboard and screen. The remote Kermit is
--the file-transfer partner to the local Kermit and communicates only through
-+the file\(hytransfer partner to the local Kermit and communicates only through
- its standard input and output.
- .PP
- At any moment, a Kermit program can be in any of the following states. It's
-@@ -1091,7 +1091,7 @@
- and execute commands from a file. The (perhaps implied) DO command
- tells Kermit to read and execute commands from a macro definition.
- While in Command state, you can interrupt any command, macro, or
--command file by typing Ctrl-C (hold down the Ctrl key and press the C
-+command file by typing Ctrl\-C (hold down the Ctrl key and press the C
- key); this normally brings you back to the prompt.
- .TP
- Shell state
-@@ -1111,24 +1111,24 @@
- return to command state by logging out of the remote computer, or by
- typing:
- .sp
-- Ctrl-\ec
-+ Ctrl\-\ec
- .sp
- That is: Hold down the Ctrl key and press the backslash key, then let
- go of the Ctrl key and press the C key. This is called escaping back.
--Certain other escape-level commands are also provided; type Ctrl-\e?
-+Certain other escape\(hylevel commands are also provided; type Ctrl\-\e?
- for a list. For example, you can enter Shell state with:
- .sp
-- Ctrl-\e!
-+ Ctrl\-\e!
- .sp
--To send a Ctrl-\e to the host while in Connect state, type two of them
-+To send a Ctrl\-\e to the host while in Connect state, type two of them
- in a row. See HELP CONNECT and HELP SET ESCAPE for more info.
- .TP
--Local file-transfer state
-+Local file\(hytransfer state
- In this state, Kermit is sending packets back and forth with the other
- computer in order to transfer a file or accomplish some other
--file-related task. And at the same time, it is displaying its progress
-+file\(hyrelated task. And at the same time, it is displaying its progress
- on your screen and watching your keyboard for interruptions. In this
--state, the following single-keystroke commands are accepted:
-+state, the following single\(hykeystroke commands are accepted:
- .sp
- .RS
- .TP
-@@ -1141,61 +1141,61 @@
- E
- Like Z but uses a "stronger" protocol (use if X or Z don't work).
- .TP
--Ctrl-C
--Interrupt file-transfer mode (use if Z or E don't work).
-+Ctrl\-C
-+Interrupt file\(hytransfer mode (use if Z or E don't work).
- .sp
- .RE
- Kermit returns to its previous state (Command or Connect) when the
- transfer is complete or when interrupted successfully by X, Z, E, or
--Ctrl-C (hold down the Ctrl key and press the C key).
-+Ctrl\-C (hold down the Ctrl key and press the C key).
- .TP
--Remote file-transfer state
--In this state, Kermit is exchanging file-transfer packets with its
-+Remote file\(hytransfer state
-+In this state, Kermit is exchanging file\(hytransfer packets with its
- local partner over its standard i/o. It leaves this state
- automatically when the transfer is complete. In case you find your
--local Kermit in Connect state and the remote one in File-transfer
-+local Kermit in Connect state and the remote one in File\(hytransfer
- state (in which it seems to ignore your keystrokes), you can usually
--return it to command state by typing three Ctrl-C's in a row. If that
--doesn't work, return your local Kermit to Command state (Ctrl-\e C) and
--type "e-packet" and then press the Return or Enter key; this forces a
-+return it to command state by typing three Ctrl\-C's in a row. If that
-+doesn't work, return your local Kermit to Command state (Ctrl\-\e C) and
-+type "e\(hypacket" and then press the Return or Enter key; this forces a
- fatal Kermit protocol error.
- .TP
- Remote Server state
--This is like Remote File-transfer state, except it never returns
-+This is like Remote File\(hytransfer state, except it never returns
- automatically to Command state. Rather, it awaits further instructions
- from the client program; that is, from your Local Kermit program. You
- can return the Remote Server to its previous state by issuing a
- "finish" command to the client, or if you are in Connect state, by
--typing three Ctrl-C's in a row. You can tell the server job to log out
-+typing three Ctrl\-C's in a row. You can tell the server job to log out
- and break the connection by issuing a "bye" command to the client.
- .TP
- Local Server state
--Like Remote-Server state, but in local mode, and therefore with its
--file-transfer display showing, and listening for single-key commands,
--as in Local File-transfer state. Usually this state is entered
-+Like Remote\(hyServer state, but in local mode, and therefore with its
-+file\(hytransfer display showing, and listening for single\(hykey commands,
-+as in Local File\(hytransfer state. Usually this state is entered
- automatically when a remote Kermit program gives a GET command.
- .sp
--C-Kermit, Kermit 95, and MS-DOS Kermit all can switch automatically from
--Connect state to Local File-transfer state when you initiate a file
-+C\(hyKermit, Kermit 95, and MS\(hyDOS Kermit all can switch automatically from
-+Connect state to Local File\(hytransfer state when you initiate a file
- transfer from the remote computer by starting Kermit and telling it to send
- or get a file, in which case, Connect state is automatically resumed after
- the file transfer is finished.
- .sp
--Note that C-Kermit is not a terminal emulator. It is a communications
-+Note that C\(hyKermit is not a terminal emulator. It is a communications
- application that you run in a terminal window (e.g. console or Xterm). The
- specific emulation, such as VT100, VT220, Linux Console, or Xterm, is
--provided by the terminal window in which you are running C-Kermit. Kermit
--95 and MS-DOS Kermit, on the other hand, are true terminal emulators. Why
--is C-Kermit not a terminal emulator? CLICK HERE to read about it.
-+provided by the terminal window in which you are running C\(hyKermit. Kermit
-+95 and MS\(hyDOS Kermit, on the other hand, are true terminal emulators. Why
-+is C\(hyKermit not a terminal emulator? CLICK HERE to read about it.
- .SH MAKING CONNECTIONS
- Here is how to make different kinds of connections using interactive Kermit
--commands (as noted above, you can also make connections with command-line
-+commands (as noted above, you can also make connections with command\(hyline
- options). Note that you don't have to make connections with Kermit. It can
- also be used on the far end of a connection as the remote file transfer and
- management partner of your local communications software.
- .TP
- Making a Telnet Connection
--At the C-Kermit command prompt, simply type:
-+At the C\(hyKermit command prompt, simply type:
- .sp
- .nf
- telnet foo.bar.com
-@@ -1224,10 +1224,10 @@
- More info: HELP RLOGIN.
- .TP
- Making an SSH Connection
--Unlike Telnet and Rlogin, SSH connections are not built-in, but
-+Unlike Telnet and Rlogin, SSH connections are not built\(hyin, but
- handled by running your external SSH client through a pseudoterminal.
--Using C-Kermit to control the SSH client gives you all of Kermit's
--features (file transfer, character-set conversion, scripting, etc)
-+Using C\(hyKermit to control the SSH client gives you all of Kermit's
-+features (file transfer, character\(hyset conversion, scripting, etc)
- over SSH.
- .sp
- ssh foo.bar.com
-@@ -1236,7 +1236,7 @@
- .TP
- Dialing with a Modem
- If it's an external modem, make sure it is connected to a usable
--serial port on your computer with a regular (straight-through) modem
-+serial port on your computer with a regular (straight\(hythrough) modem
- cable, and to the telephone jack with a telephone cable, and that it's
- turned on. Then use these commands:
- .sp
-@@ -1251,7 +1251,7 @@
- .sp
- Type "set modem type ?" for a list of supported modem types. If you
- omit the SET MODEM TYPE command, the default type is
--"generic-high-speed", which should work for most modern AT-command-set
-+"generic\(hyhigh\(hyspeed", which should work for most modern AT\(hycommand\(hyset
- modems. If the line is busy, Kermit redials automatically. If the call
- does not succeed, use "set dial display on" and try it again to watch
- what happens. If the call succeeds, Kermit enters Connect state
-@@ -1262,34 +1262,34 @@
- reverse terminal server. In this case the command sequence is:
- .sp
- .nf
-- set host ts.xxx.com 2000 ; Terminal-server and port
-+ set host ts.xxx.com 2000 ; Terminal\(hyserver and port
- set modem type usrobotics ; Or other supported type
- set dial method tone ; (or pulse)
- dial 7654321 ; Dial the desired number
- .fi
- .sp
- If the terminal server supports the Telnet Com Port Option, RFC 2217,
--you can also give serial-port related commands such as SET SPEED, SET
-+you can also give serial\(hyport related commands such as SET SPEED, SET
- PARITY, and so on, and Kermit relays them to the terminal server using
- the protocol specified in the RFC.
- .sp
- More info: HELP SET MODEM, HELP SET LINE, HELP SET SPEED, HELP SET
- FLOW, HELP DIAL, HELP SET DIAL, HELP SET MODEM, HELP SET
--CARRIER-WATCH, SHOW COMMUNICATIONS, SHOW MODEM, SHOW DIAL.
-+CARRIER\-WATCH, SHOW COMMUNICATIONS, SHOW MODEM, SHOW DIAL.
- .TP
- Direct Serial Port
- Connect the two computers, A and B, with a null modem cable (or two
--modem cables interconnected with a null-modem adapter or modem
-+modem cables interconnected with a null\(hymodem adapter or modem
- eliminator). From Computer A:
- .sp
- .nf
- set modem type none ; There is no modem
- set line /dev/ttyS0 ; Specify device name
-- set carrier-watch off ; If DTR CD are not cross-connected
-+ set carrier\-watch off ; If DTR CD are not cross\(hyconnected
- set speed 57600 ; Or other desired speed
-- set flow rts/cts ; If RTS and CTS are cross-connected
-+ set flow rts/cts ; If RTS and CTS are cross\(hyconnected
- set parity even ; (or "mark" or "space", if necessary)
-- set stop-bits 2 ; (rarely necessary)
-+ set stop\-bits 2 ; (rarely necessary)
- set flow xon/xoff ; If you can't use RTS/CTS
- connect ; Enter Connect (terminal) state
- .fi
-@@ -1299,25 +1299,25 @@
- same directions. More info: As above plus HELP CONNECT.
- .PP
- With modems or direct serial connections, you might also have to "set
--parity even" (or "mark" or "space") if it's a 7-bit connection.
-+parity even" (or "mark" or "space") if it's a 7\(hybit connection.
- .PP
- Of the connection types listed above, only one can be open at a time.
- However, any one of these can be open concurrently with an FTP or HTTP
- session. Each connection type can be customized to any desired degree,
- scripted, logged, you name it. See the manual.
- .PP
--NOTE: On selected platforms, C-Kermit also can make X.25 connections. See
-+NOTE: On selected platforms, C\(hyKermit also can make X.25 connections. See
- the manual for details.
- .SH TRANSFERRING FILES WITH KERMIT
- There is a widespread and persistent belief that Kermit is a slow protocol.
- This is because, until recently, it used conservative tuning by default to
- make sure file transfers succeeded, rather than failing because they
--overloaded the connection. Some extra commands (or command-line options,
--like -Q) were needed to make it go fast, but nobody bothered to find out
--about them. Also, it takes two to tango: most non-Kermit-Project Kermit
--protocol implementations really ARE slow. The best file-transfer partners
--for C-Kermit are: another copy of C-Kermit (7.0 or later) and Kermit 95.
--These combinations work well and they work fast by default. MS-DOS Kermit
-+overloaded the connection. Some extra commands (or command\(hyline options,
-+like \-Q) were needed to make it go fast, but nobody bothered to find out
-+about them. Also, it takes two to tango: most non\(hyKermit\(hyProject Kermit
-+protocol implementations really ARE slow. The best file\(hytransfer partners
-+for C\(hyKermit are: another copy of C\(hyKermit (7.0 or later) and Kermit 95.
-+These combinations work well and they work fast by default. MS\(hyDOS Kermit
- is good too, but you have to tell it to go fast (by giving it the FAST
- command).
- .PP
-@@ -1326,50 +1326,50 @@
- packet comes in from the remote, they automatically switch into file
- transfer mode.
- .PP
--And plus, C-Kermit and K95 also switch automatically between text and
-+And plus, C\(hyKermit and K95 also switch automatically between text and
- binary mode for each file, so there is no need to "set file type binary" or
- "set file type text", or to worry about files being corrupted because they
- were transferred in the wrong mode.
- .PP
--What all of these words add up to is that now, when you use up-to-date
-+What all of these words add up to is that now, when you use up\(hyto\(hydate
- Kermit software from the Kermit Project, file transfer is not only fast,
- it's ridiculously easy. You barely have to give any commands at all.
- .TP
- Downloading Files
--Let's say you have Kermit 95, C-Kermit, or MS-DOS Kermit on your
-+Let's say you have Kermit 95, C\(hyKermit, or MS\(hyDOS Kermit on your
- desktop computer, with a connection to a Unix computer that has
--C-Kermit installed as "kermit". To download a file (send it from Unix
-+C\(hyKermit installed as "kermit". To download a file (send it from Unix
- to your desktop computer), just type the following command at your
- Unix shell prompt:
- .sp
-- kermit -s oofa.txt
-+ kermit \-s oofa.txt
- .sp
- (where oofa.txt is the filename). If you want to send more than one
- file, you can put as many filenames as you want on the command line,
- and they can be any combination of text and binary:
- .sp
-- kermit -s oofa.txt oofa.zip oofa.html oofa.tar.gz
-+ kermit \-s oofa.txt oofa.zip oofa.html oofa.tar.gz
- .sp
- and/or you can use wildcards to send groups of files:
- .sp
-- kermit -s oofa.*
-+ kermit \-s oofa.*
- .sp
- If you want to send a file under an assumed name, use:
- .sp
-- kermit -s friday.txt -a today.txt
-+ kermit \-s friday.txt \-a today.txt
- .sp
- This sends the file friday.txt but tells the receiving Kermit that its
- name is today.txt. In all cases, as noted, when the file transfer is
- finished, your desktop Kermit returns automatically to Connect state.
--No worries about escaping back, re-connecting, text/binary mode
-+No worries about escaping back, re\(hyconnecting, text/binary mode
- switching. Almost too easy, right?
- .TP
- Uploading Files
- To upload files (send them from your desktop computer to the remote
--Unix computer) do the same thing, but use the -g (GET) option instead
--of -s:
-+Unix computer) do the same thing, but use the \-g (GET) option instead
-+of \-s:
- .sp
-- kermit -g oofa.txt
-+ kermit \-g oofa.txt
- .sp
- This causes your local Kermit to enter server mode; then the remote
- Kermit program requests the named file and the local Kermit sends it
-@@ -1379,27 +1379,27 @@
- rules, since these aren't local files:
- .sp
- .nf
-- kermit -g "oofa.txt oofa.zip oofa.html oofa.tar.gz"
-- kermit -g "oofa.*"
-+ kermit \-g "oofa.txt oofa.zip oofa.html oofa.tar.gz"
-+ kermit \-g "oofa.*"
- .fi
- .sp
- If you want to upload a file but store it under a different name, use:
- .sp
-- kermit -g friday.txt -a today.txt
-+ kermit \-g friday.txt \-a today.txt
- .TP
--Kermit Transfers the Old-Fashioned Way
-+Kermit Transfers the Old\(hyFashioned Way
- If your desktop communications software does not support autoupload or
- autodownload, or it does not include Kermit server mode, the procedure
- requires more steps.
- .sp
- To download a file, type:
- .sp
-- kermit -s filename
-+ kermit \-s filename
- .sp
- on the host as before, but if nothing happens automatically in
- response to this command, you have to switch your desktop
- communications software into Kermit Receive state. This might be done
--by escaping back using keyboard characters or hot keys (Alt-x is
-+by escaping back using keyboard characters or hot keys (Alt\-x is
- typical) and/or with a command (like RECEIVE) or a menu. When the file
- transfer is complete, you have to go back to Connect state, Terminal
- emulation, or whatever terminology applies to your desktop
-@@ -1407,11 +1407,11 @@
- .sp
- To upload a file, type:
- .sp
-- kermit -r
-+ kermit \-r
- .sp
--on the host (rather than "kermit -g"). This tells C-Kermit to wait
-+on the host (rather than "kermit \-g"). This tells C\(hyKermit to wait
- passively for a file to start arriving. Then regain the attention of
--your desktop software (Alt-x or whatever) and instruct it to send the
-+your desktop software (Alt\-x or whatever) and instruct it to send the
- desired file(s) with Kermit protocol. When the transfer is finished,
- return to the Connect or Terminal screen.
- .TP
-@@ -1422,8 +1422,8 @@
- .RS
- .TP
- FAST
--Use fast file-transfer settings. This has been the default since
--C-Kermit 7.0 now that most modern computers and connections
-+Use fast file\(hytransfer settings. This has been the default since
-+C\(hyKermit 7.0 now that most modern computers and connections
- support it. If transfers fail with fast settings, try . . .
- .TP
- CAUTIOUS
-@@ -1434,21 +1434,21 @@
- Use the most robust, resilient, conservative, safe, and reliable
- settings. File transfers will almost certainly work, but they
- will be quite slow (of course this is a classic tradeoff; ROBUST
--was C-Kermit's default tuning in versions 6.0 and earlier, which
-+was C\(hyKermit's default tuning in versions 6.0 and earlier, which
- made everybody think Kermit protocol was slow). If ROBUST doesn't
- do the trick, try again with SET PARITY SPACE first in case it's
--not an 8-bit connection.
-+not an 8\(hybit connection.
- .RE
- .sp
- Obviously the success and performance of a file transfer also depends
--on C-Kermit's file transfer partner. Up-to-date, real Kermit Project
-+on C\(hyKermit's file transfer partner. Up\(hyto\(hydate, real Kermit Project
- partners are recommended because they contain the best Kermit protocol
- implementations and because we can support them in case of trouble.
- .sp
--If you still have trouble, consult Chapter 10 of Using C-Kermit, or
--send email to kermit-support@columbia.edu.
-+If you still have trouble, consult Chapter 10 of Using C\(hyKermit, or
-+send email to kermit\(hysupport@columbia.edu.
- .TP
--Advanced Kermit File-Transfer Features
-+Advanced Kermit File\(hyTransfer Features
- Obviously there is a lot more to Kermit file transfer, including all
- sorts of interactive commands, preferences, options, logging,
- debugging, troubleshooting, and anything else you can imagine but
-@@ -1460,10 +1460,10 @@
- Logging transfers:
- LOG TRANSACTIONS (HELP LOG)
- .TP
--Automatic per-file text/binary mode switching:
-+Automatic per\(hyfile text/binary mode switching:
- SET TRANSFER MODE { AUTOMATIC, MANUAL } (HELP SET TRANSFER).
- .TP
--Cross-platform recursive directory tree transfer:
-+Cross\(hyplatform recursive directory tree transfer:
- SEND /RECURSIVE, GET /RECURSIVE (HELP SEND, HELP GET).
- .TP
- File collision options:
-@@ -1478,14 +1478,14 @@
- Flexible file selection:
- SEND (or GET) /BEFORE /AFTER /LARGER /SMALLER /TYPE /EXCEPT, ...
- .TP
--Character-set conversion:
--SET { FILE, TRANSFER } CHARACTER-SET, ASSOCIATE, ...
-+Character\(hyset conversion:
-+SET { FILE, TRANSFER } CHARACTER\-SET, ASSOCIATE, ...
- .TP
- File/Pathname control:
- SET { SEND, RECEIVE } PATHNAMES, SET FILE NAMES.
- .TP
- Atomic file movement:
--SEND (or GET) /DELETE /RENAME /MOVE-TO
-+SEND (or GET) /DELETE /RENAME /MOVE\-TO
- .TP
- Transferring to/from standard i/o of other commands:
- SEND (or GET) /COMMAND
-@@ -1494,8 +1494,8 @@
- RESEND, REGET (HELP RESEND, HELP REGET).
- .RE
- .TP
--Non-Kermit File Transfer
--You can also use C-Kermit to transfer files with FTP or HTTP Internet
-+Non\(hyKermit File Transfer
-+You can also use C\(hyKermit to transfer files with FTP or HTTP Internet
- protocols; see below.
- .sp
- On a regular serial or Telnet connection where the other computer
-@@ -1510,10 +1510,10 @@
- details.
- .sp
- You can also capture "raw" data streams from the other computer with
--LOG SESSION (HELP LOG and HELP SET SESSION-LOG for details), and you
-+LOG SESSION (HELP LOG and HELP SET SESSION\-LOG for details), and you
- can upload files without any protocol at all with TRANSMIT (HELP
- TRANSMIT, HELP SET TRANSMIT).
--.SH KERMIT'S BUILT-IN FTP AND HTTP CLIENTS
-+.SH KERMIT'S BUILT\(hyIN FTP AND HTTP CLIENTS
- Kermit's FTP client is like the regular Unix FTP client that you're used
- to, but with some differences:
- .TP
-@@ -1542,7 +1542,7 @@
- http://www.columbia.edu/kermit/ftpclient.html
- .sp
- You also can use HELP FTP and HELP SET FTP to get descriptions of Kermit's
--FTP-related commands.
-+FTP\(hyrelated commands.
- .PP
- The HTTP client is similar to the FTP one, except you prefix each command
- with HTTP instead of FTP: HTTP OPEN, HTTP GET, HTTP PUT, HTTP CLOSE, etc.
-@@ -1551,12 +1551,12 @@
- connections and FTP connections. So Kermit can manage up to three types
- connections simultaneously.
- .SH INTERNET KERMIT SERVICE
--C-Kermit can be configured and run as an Internet service (called IKSD),
-+C\(hyKermit can be configured and run as an Internet service (called IKSD),
- similar to an FTP server (FTPD) except you can (but need not) interact with
- it directly, plus it does a lot more than an FTP server can do. The TCP
--port for IKSD is 1649. It uses Telnet protocol. C-Kermit can be an Internet
-+port for IKSD is 1649. It uses Telnet protocol. C\(hyKermit can be an Internet
- Kermit Server, or it can be a client of an IKSD. You can make connections
--from C-Kermit to an IKSD with any of the following commands:
-+from C\(hyKermit to an IKSD with any of the following commands:
- .sp
- .nf
- telnet foo.bar.edu 1649
-@@ -1574,8 +1574,8 @@
- .sp
- http://www.columbia.edu/kermit/iksd.html
- .SH SECURITY
--All of C-Kermit's built-in TCP/IP networking methods (Telnet, Rlogin, IKSD,
--FTP, and HTTP) can be secured by one or more of the following IETF-approved
-+All of C\(hyKermit's built\(hyin TCP/IP networking methods (Telnet, Rlogin, IKSD,
-+FTP, and HTTP) can be secured by one or more of the following IETF\(hyapproved
- methods:
- .PP
- \(bu MIT Kerberos IV
-@@ -1590,43 +1590,43 @@
- .PP
- http://www.columbia.edu/kermit/security.html
- .PP
--And as noted previously, you can also make SSH connections with C-Kermit if
-+And as noted previously, you can also make SSH connections with C\(hyKermit if
- you already have an SSH client installed.
--.SH ALTERNATIVE COMMAND-LINE PERSONALITIES
-+.SH ALTERNATIVE COMMAND\(hyLINE PERSONALITIES
- When invoked as "kermit" or any other name besides "ftp" or "telnet",
--C-Kermit has the command-line options described above in the OPTIONS
--section. However, if you invoke C-Kermit as "telnet" or "ftp", it changes
--its command-line personality to match. This can be done (among other ways)
--with symbolic links (symlinks). For example, if you want C-Kermit to be
-+C\(hyKermit has the command\(hyline options described above in the OPTIONS
-+section. However, if you invoke C\(hyKermit as "telnet" or "ftp", it changes
-+its command\(hyline personality to match. This can be done (among other ways)
-+with symbolic links (symlinks). For example, if you want C\(hyKermit to be
- your regular Telnet client, or the Telnet helper of your Web browser, you
- can create a link like the following in a directory that lies in your PATH
- ahead of the regular telnet program:
- .sp
-- ln -s /usr/local/bin/kermit telnet
-+ ln \-s /usr/local/bin/kermit telnet
- .sp
- Now when you give a "telnet" command, you are invoking Kermit instead, but
--with its Telnet command-line personality so, for example:
-+with its Telnet command\(hyline personality so, for example:
- .sp
- telnet xyzcorp.com
- .sp
- Makes a Telnet connection to xyzcorp.com, and Kermit exits automatically
- when the connection is closed (just like the regular Telnet client). Type
--"telnet -h" to get a list of Kermit's Telnet-personality command-line
-+"telnet \-h" to get a list of Kermit's Telnet\(hypersonality command\(hyline
- options, which are intended to be as compatible as possible with the
- regular Telnet client.
- .PP
- Similarly for FTP:
- .sp
-- ln -s /usr/local/bin/kermit ftp
-+ ln \-s /usr/local/bin/kermit ftp
- .sp
--And now type "ftp -h" to see its command-line options, and command lines
-+And now type "ftp \-h" to see its command\(hyline options, and command lines
- just like you would give your regular FTP client:
- .sp
- ftp xyzcorp.com
- .sp
- but with additional options allowing an entire session to be specified on
- the command line. Finally, if Kermit's
--first command-line option is a Telnet, FTP, IKSD, or HTTP URL, Kermit
-+first command\(hyline option is a Telnet, FTP, IKSD, or HTTP URL, Kermit
- automatically makes the appropriate kind of connection and, if indicated by
- the URL, takes the desired action:
- .TP
-@@ -1649,19 +1649,19 @@
- Grabs a web page
- .fi
- .SH LICENSE
--C-Kermit has an unusual license, but a fair and sensible one since the
-+C\(hyKermit has an unusual license, but a fair and sensible one since the
- Kermit Project must support itself out of revenue: it's not a BSD license,
- not GPL, not Artistic, not commercial, not shareware, not freeware. It can
--be summed up like this: if you want C-Kermit for your own use, you can
-+be summed up like this: if you want C\(hyKermit for your own use, you can
- download and use it without cost or license (but we'd appreciate it if you
--would purchase the manual). But if you want to sell C-Kermit or bundle it
-+would purchase the manual). But if you want to sell C\(hyKermit or bundle it
- with a product or otherwise distribute it in a commercial setting EXCEPT
--WITH AN OPEN-SOURCE OPERATING SYSTEM DISTRIBUTION such as Linux, FreeBSD,
-+WITH AN OPEN\(hySOURCE OPERATING SYSTEM DISTRIBUTION such as Linux, FreeBSD,
- NetBSD, or OpenBSD, you must license it. To see the complete license, give
- the LICENSE command at the prompt, or see the COPYING.TXT file distributed
--with C-Kermit 7.0 or later, or download it from
-+with C\(hyKermit 7.0 or later, or download it from
- .sp
-- ftp://kermit.columbia.edu/kermit/c-kermit/COPYING.TXT
-+ ftp://kermit.columbia.edu/kermit/c\-kermit/COPYING.TXT
- .sp
- Send licensing inquiries to kermit@columbia.edu.
- .SH BUGS
-@@ -1669,27 +1669,27 @@
- workarounds, hints and tips:
- .TP
- ckcbwr.txt
--General C-Kermit bugs, hints, tips.
-+General C\(hyKermit bugs, hints, tips.
- .TP
- ckubwr.txt
--Unix-specific C-Kermit bugs, hints, tips.
-+Unix\(hyspecific C\(hyKermit bugs, hints, tips.
- .PP
- Report bugs and problems by email to:
- .sp
-- kermit-support@columbia.edu.
-+ kermit\-support@columbia.edu.
- .sp
- Before requesting technical support, please read the hints here:
- .sp
- http://www.columbia.edu/kermit/support.html
- .sp
--and also read the C-Kermit Frequently Asked Questions:
-+and also read the C\(hyKermit Frequently Asked Questions:
- .sp
- http://www.columbia.edu/kermit/ckfaq.html
- .SH OTHER TOPICS
--There's way more to C-Kermit than we've touched on here -- troubleshooting,
-+There's way more to C\(hyKermit than we've touched on here \(hy\(hy troubleshooting,
- customization, character sets, dialing directories, sending pages, script
- writing, and on and on, all of which are covered in the manual and updates
--and supplements. For the most up-to-date information on documentation (or
-+and supplements. For the most up\(hyto\(hydate information on documentation (or
- updated documentation itself) visit the Kermit Project website:
- .sp
- http://www.columbia.edu/kermit/
-@@ -1698,21 +1698,21 @@
- different Unix varieties, Windows, DOS, VMS, IBM mainframes, and many
- others: 20+ years' worth.
- .SH DOCUMENTATION AND UPDATES
--The manual for C-Kermit is:
-+The manual for C\(hyKermit is:
- .TP
- .I
--Using C-Kermit
-+Using C\(hyKermit
- Frank da Cruz and Christine M. Gianone,
--Second Edition, Digital Press / Butterworth-Heinemann, Woburn, MA, 1997, 622
--pages, ISBN 1-55558-164-1. This is a printed book. It covers C-Kermit 6.0.
-+Second Edition, Digital Press / Butterworth\(hyHeinemann, Woburn, MA, 1997, 622
-+pages, ISBN 1\-55558\-164\-1. This is a printed book. It covers C\(hyKermit 6.0.
- .TP
--The C-Kermit 7.0 Supplement
-+The C\(hyKermit 7.0 Supplement
- http://www.columbia.edu/kermit/ckermit2.html
- .TP
--The C-Kermit 8.0 Supplement
-+The C\(hyKermit 8.0 Supplement
- http://www.columbia.edu/kermit/ckermit3.html
- .PP
--Visit C-Kermit home page:
-+Visit C\(hyKermit home page:
- .sp
- http://www.columbia.edu/kermit/ckermit.html
- .sp
-@@ -1727,13 +1727,13 @@
- The Kermit FAQ (Frequently Asked Questions about Kermit)
- .TP
- http://www.columbia.edu/kermit/ckfaq.html
--The C-Kermit FAQ (Frequently Asked Questions about C-Kermit)
-+The C\(hyKermit FAQ (Frequently Asked Questions about C\(hyKermit)
- .TP
- http://www.columbia.edu/kermit/telnet.html
--C-Kermit Telnet client documentation
-+C\(hyKermit Telnet client documentation
- .TP
- http://www.columbia.edu/kermit/security.html
--C-Kermit security documentation (Kerberos, SSL/TLS, etc)
-+C\(hyKermit security documentation (Kerberos, SSL/TLS, etc)
- .TP
- http://www.columbia.edu/kermit/cuiksd.html
- Internet Kermit Service user documentation
-@@ -1755,7 +1755,7 @@
- .SH FILES
- .TP
- COPYING.TXT
--C-Kermit license.
-+C\(hyKermit license.
- .TP
- ~/.kermrc
- Initialization file.
-@@ -1780,16 +1780,16 @@
- http://www.columbia.edu/kermit/ckuins.html.
- .TP
- ckcbwr.txt
--General C-Kermit bugs, hints, tips.
-+General C\(hyKermit bugs, hints, tips.
- .TP
- ckubwr.txt
--Unix-specific C-Kermit bugs, hints, tips.
-+Unix\(hyspecific C\(hyKermit bugs, hints, tips.
- .TP
- ckcplm.txt
--C-Kermit program logic manual.
-+C\(hyKermit program logic manual.
- .TP
- ckccfg.txt
--C-Kermit compile-time configuration options.
-+C\(hyKermit compile\(hytime configuration options.
- .TP
- ssh
- (in your PATH) SSH connection helper.
-@@ -1804,7 +1804,7 @@
- Software
- Frank da Cruz and Jeffrey E Altman,
- .br
--1985-present, with contributions from hundreds of others all over the
-+1985\(hypresent, with contributions from hundreds of others all over the
- world.
- .TP
- Documentation
-@@ -1812,13 +1812,13 @@
- .TP
- Address
- .nf
--The Kermit Project - Columbia Univerity
-+The Kermit Project \(hy Columbia Univerity
- 612 West 115th Street
--New York NY 10025-7799
-+New York NY 10025\-7799
- USA
- .fi
- .TP
--E-Mail
-+E\(hyMail
- kermit@columbia.edu
- .TP
- Web
+++ /dev/null
-Backported fix from ckdaily snapshot to fix parsing of if/else constructs
-See #323510.
---- ckermit-211.orig/ckuus6.c
-+++ ckermit-211/ckuus6.c
-@@ -6607,7 +6607,7 @@
- if (!iftest[cmdlvl]) { /* If IF was false do ELSE part */
- if (maclvl > -1 || tlevel > -1) { /* In macro or command file */
- debug(F100,"doelse pushing","",0);
--#ifdef COMMENT
-+#ifndef COMMENT
- pushcmd(NULL); /* save rest of command. */
- #else
- /* This fixes certain obscure problems */
---- ckermit-211.orig/ckuusr.c
-+++ ckermit-211/ckuusr.c
-@@ -7983,8 +7983,7 @@
- line[k++] = SP;
- line[k] = NUL;
- debug(F111,"XXMACRO A",line,k);
-- /* Defer evaluation of variables until the commands are exec'd */
-- if ((y = cmtxt("Braced list of commands","",&s,NULL)) < 0)
-+ if ((y = cmtxt("Braced list of commands","",&s,xxstring)) < 0)
- return(y);
- k = ckstrncpy(line+k,s,LINBUFSIZ-k);
- debug(F111,"XXMACRO B",line,k);
-010_makefile-destdir-support.patch
-020_man-hyphen-quoting.patch
-030_fix-if-else.patch
040_pam-password-prompting.patch
050_ck_patch.patch
060_speeling.patch
# makefile / Makefile / ckuker.mak / CKUKER.MAK
#
-# Sat Apr 17 14:49:18 2004
-BUILDID=20040417
-#
-CKVER= "8.0.211"
+# Sun Aug 21 10:33:08 2011
+BUILDID=20110821
+CKVER= "9.0.302"
#
# -- Makefile to build C-Kermit for UNIX and UNIX-like platforms --
#
-# Copyright (C) 1985, 2004,
+# Copyright (C) 1985, 2011,
# Trustees of Columbia University in the City of New York.
# All rights reserved. See the C-Kermit COPYING.TXT file or the
# copyright text in the ckcmai.c module for disclaimer and permissions.
+# In case you can't find the COPYING.TXT file, it contains the
+# Simplified 3-Clause BSD License, which is an Open Source license.
#
# Author: Frank da Cruz, Columbia University
# 612 West 115th Street, New York NY 10025-7799, USA
-# E-mail: fdc@columbia.edu
-# Fax: +1 212 662-6442
-# Web: http://www.columbia.edu/kermit/
+# Email: fdc@columbia.edu
+# Web: http://kermit.columbia.edu/
+# FTP: ftp://kermit.columbia.edu/kermit/
+#
+# Note: Author is no longer at Columbia University or at the 115th Street
+# address effective 1 July 2011. The email address should still work,
+# as well as the website and FTP addresses, for the foreseeable future.
+# For new developments, also check:
+#
+# http://www.columbia.edu/~fdc/kermit/
#
# Contributions from many others. Special thanks to Jeff Altman for the
-# secure-target entries, Peter Eichhorn, assyst GmbH, for the consolidated
-# HP-UX entries and the "uninstall" target, to Robert Lipe for the updated
-# and consolidated SCO UNIX / ODT / OSR5 entries, to Ric Anderson for the
-# IRIX 6.x entries.
+# secure-build targets, Peter Eichhorn, assyst GmbH, for the consolidated
+# HP-UX targets and the "uninstall" target, to Robert Lipe for the updated
+# and consolidated SCO UNIX / ODT / OSR5 targets, to Ric Anderson for the
+# IRIX 6.x targets, to Seth Theriault for major improvements to the
+# Mac OS X targets, and to Alexey Dokuchaev for FreeBSD 9.0.
+#
+# C-Kermit is written and produced by hand without any automated procedures
+# such as autoconf / automake / configure, although some of the targets below
+# (especially the linux target) inspect the environment and make some
+# decisions in the most portable way possible. The automated tools are not
+# used because (a) C-Kermit predates them, and (b) they are not portable to
+# all the platforms where C-Kermit must be (or once was) built, and (c) to
+# keep C-Kermit as independent as possible from external tools over which
+# we have no control.
#
# Most entries use the "xermit" target, which uses the select()-based CONNECT
-# module, ckucns.c. The "wermit" target uses the older fork()-base CONNECT
-# module, ckucon.c, which has some drawbacks (but is more portable). If your
-# entry still uses the "wermit" target, please try substituting the "xermit"
-# one and if it works, let us know (mailto:kermit-support@columbia.edu).
-# When changing a target over from wermit to xermit, also remove -DNOLOEARN.
+# module, ckucns.c. The "wermit" target uses the original fork()-based CONNECT
+# module, ckucon.c, which has some drawbacks but was portable to every Unix
+# variant whether it had TCP/IP or not (select() is part of the TCP/IP
+# library, which was not standard on older Unixes). If your target still uses
+# the "wermit" target, please try substituting the "xermit" one and if it
+# works, let us know (mailto:kermit-support@columbia.edu). When changing a
+# target over from wermit to xermit, also remove -DNOLOEARN.
#
# CAREFUL: Don't put the lowercase word "if", "define", or "end" as the first
# word after the "#" comment introducer in the makefile, even if it is
# separated by whitespace. Some versions of "make" understand these as
# directives. Uppercase letters remove the danger, e.g. "# If you have..."
+#
+# WARNING: This is a huge makefile. Although this is less likely since the
+# turn of the century, some "make" programs might run out of memory. If this
+# happens to you, edit away the parts that do not apply to your platform and
+# try again.
#
-# WARNING: This is a huge makefile and it contains nested makes. Some "make"
-# programs might run out of memory. If this happens to you, edit away the
-# parts that do not apply to your platform and try again.
+# WARNING 2: In many cases this file invokes itself recursively, sometimes
+# several levels deep (as in the Linux targets); i.e. some targets are used
+# as 'subroutines' of other targets, with parameters passed by setting
+# environment variables. For that reason, don't use 'make -e'.
#
# Certain UNIX variations have their own separate makefiles:
-# . For 2.10 or 2.11 BSD on DEC PDP-11s, use ckubs2.mak.
+# . For 2.10 or 2.11 BSD on the DEC PDP-11, use ckubs2.mak.
# . For Plan 9, use ckpker.mk.
#
# Separate build procedures are provided non-UNIX platforms: VMS, VOS,
-# AOS/VS, etc. See the ckaaaa.txt file for details.
+# AOS/VS, etc. See the ckaaaa.txt file or the Kermit website for details.
#
#
-# DIRECTIONS
+# DIRECTIONS FOR UNIX
#
# Rename this file to "makefile" or "Makefile" if necessary. Pick out the
# entry most appropriate for your UNIX version from the list below and then
-# give the appropriate "make" command, for example "make aix43", "make sys5r4",
+# give the appropriate "make" command, for example "make aix", "make macosx",
# "make linux". If you experience any difficulties with the build procedure,
# then please also read any comments that accompany the make entry itself
# (search for the make entry name on the left margin).
#
-# Other entries:
+# Other targets:
# 'make install' is an installation script (read accompanying comments!).
+# 'make uninstall' undoes 'make install' (read accompanying comments!).
# 'make clean' removes intermediate and object files.
+# 'make show' tells the default include and lib paths for secure builds.
#
# IMPORTANT:
# For more detailed installation instructions, read the files ckuins.txt
# http://www.columbia.edu/kermit/ckcbwr.html
# http://www.columbia.edu/kermit/ckubwr.html
#
-# Most entries build C-Kermit with its symbol table included. To reduce the
+# Most targets build C-Kermit with its symbol table included. To reduce the
# size of the executable program, add "LNKFLAGS=-s" to the end of your 'make'
# command or to the makefile entry, or 'strip' the executable after
# building. To further reduce the size after building, use 'mcs -d' if your
# TCP/IP networking support: If your C-Kermit version does not include TCP/IP
# networking, but your UNIX system does, try adding -DTCPSOCKET to the CFLAGS
# of your makefile entry. If that doesn't work, look at some of the other
-# entries that include this flag for ideas about what libraries might need to
+# targets that include this flag for ideas about what libraries might need to
# be included (typically -lsocket and/or -lBSD and/or -lnsl and/or -linet).
# NOTE: In some cases (old versions of SCO or HP-UX), you might need not only
# a C compiler, but also a "TCP/IP developers kit" for the required object
# libraries and header files.
#
-# Fullscreen file transfer display support: If you are going to use C-Kermit
-# for establishing connections (dialed, network, etc), you can configure it to
-# produce a formatted file transfer display by including the curses library
-# and adding -DCK_CURSES to the CFLAGS for your option, and linking with the
-# appropriate libraries. There are many examples below, usually ending in
-# "c", like sunos41c. Also add -DCK_WREFRESH if your curses library includes
-# clearok() and wrefresh() functions (or remove -DNOWREFRESH if the linker
-# complains that it can't find these functions).
-#
# Please report modifications, failures (preferably with fixes) or successes
-# to the author.
-#
-# SECURE TARGETS
-# These are described after the next section. Search for ******* below.
+# to the author, fdc@columbia.edu.
#
# TARGETS FOR DIFFERENT UNIX PLATFORMS AND VERSIONS:
#
-# + Marks those that have been built successfully for C-Kermit 8.0 or later.
+# + Marks those that have been built successfully for C-Kermit 9.0 or later.
# - Those that once built OK but no longer do (e.g. too big).
# ? Those that worked in a previous version but have not been tested recently.
# --------------------------
+# Some commonly used targets:
+#
+# + "make linux" should work for any version of Linux on any hardware.
+# + "make linux+ssl" ditto, with OpenSSL security added.
+# + "make linux+krb5" ditto, with Kerberos 5 security added.
+# + "make linux+krb5+ssl" Linux with OpenSSL and Kerberos 5.
+# + "make netbsd", NetBSD, any version.
+# + "make netbsd+ssl", NetBSD with OpenSSL 0.9.7 or later.
+# + "make netbsd+krb5", NetBSD with Kerberos 5.
+# + "make netbsd+krb5+ssl", NetBSD with Kerberos 5 and OpenSSL 0.9.7 or later.
+# ? "make freebsd1" for FreeBSD 1.x
+# ? "make freebsd2" for FreeBSD 2.x
+# + "make freebsd3" for FreeBSD 3.x
+# ? "make freebsd4" for FreeBSD 4.0
+# + "make freebsd", FreeBSD 4.1 or later.
+# + "make freebsd+ssl", FreeBSD 5.0 or later with OpenSSL 0.9.7 or later.
+# + "make openbsd", OpenBSD 2.3 or later.
+# + "make openbsd+ssl", OpenBSD 2.3 or later with OpenSSL 0.9.7 or later.
+# + "make mirbsd", MirBSD.
+# + "make mirbsd+ssl", MirBSD with OpenSSL 0.9.7 or later.
+# + "make macosx" should work for any Mac OS X version 10.3.9 or later.
+# + "make macosx+krb5+openssl" Mac OS X 10.3.9 or later + Kerberos V + OpenSSL.
+# + "make aix" should work for any version of AIX 4.2 or later.
+# + "make aixg" should work for any version of AIX 4.2 or later, using gcc.
+# + "make aix+ssl" ditto, with OpenSSL (specifying SSLLIB and SSLINC)
+# + "make aix+ibmssl" ditto, with IBM OpenSSL
+# + "make solaris9", "make solaris10" for Solaris 9 or 10 with Sun cc.
+# + "make solaris9g", "make solaris10g" for Solaris 9 or 10 with gcc.
+# + "make solaris11" for Solaris 11 with Sun CC
+# + "make solaris11g" for Solaris 11 with gcc
+# + "make sco_osr600" for SCO OpenServer 6.0.0.
+#
+# For other current OSs such as Solaris, HP-UX, and SCO there are separate
+# targets for different combinations of OS version and compiler; see the
+# complete list. For older OS's see the complete list. If an old target
+# doesn't work in this release of C-Kermit you can get a previous release from
+# the Kermit FTP site: ftp://kermit.columbia.edu/kermit/
+#
+# SECURE TARGETS (versions that support authentication and encryption)
+# are described after the following list. Search for ******* below.
+#
+# --------------------------
+# Complete list (alphabetical):
# ? for 386BSD (Jolix) 0.0, 0.1, "make 386bsd" (see comments in entry),
# or (preferably, if it works) "make bsd44" or "make bsd44c".
# ? for Acorn RISCiX, "make riscix" or "make riscix-gcc"
# ? for Apple Macintosh II with A/UX pre-3.0, "make aux", "auxgcc" or "auxufs"
# ? for Apple Macintosh with A/UX 3.0 and gcc, "make aux3gcc" or aux3gccc
# ? for Apple PowerMac with MkLinux, "make mklinux" (read Linux entry first)
-# + for Apple PowerMac with LinuxPPC, "make linuxppc"
+# ? for Apple PowerMac with LinuxPPC, "make linuxppc"
# ? for Apple Macintosh with Minix 1.5.10, "make minix68k" or "make minixc68"
-# + for Apple Macintosh with Mac OS X 1.0 (Rhapsody), "make macosx10"
+# ? for Apple Macintosh with Mac OS X 1.0 (Rhapsody), "make macosx10"
# (no curses), "make macosx10c" (curses), or "make macosx10nc" (ncurses).
# Or "make macosx10ncx" (ncurses but "make macosx10nc" doesn't work).
-# + for Apple Macintosh with Mac OS X 10.2, "make macosx102nc" (ncurses).
-# + for Apple Macintosh with Mac OS X 10.3, "make macosx103"
+# ? for Apple Macintosh with Mac OS X 10.2, "make macosx102nc" (ncurses).
+# ? for Apple Macintosh with Mac OS X 10.3, "make macosx103"
+# ? for Apple Macintosh with Mac OS X 10.3.9 or later, "make macosx"
# ? for Arix System 90 with AT&T SVR3, "make sys5r3na"
# - for AT&T 6300 with IN/ix, "make sys5"
# - for AT&T 6300 PLUS, "make att6300" or (with no debugging) "make att6300nd"
# ? for AT&T 6386 WGS UNIX PC, "make sys5r3"
-# + for AT&T 3B2, 3B20 systems, "make att3b2".
+# ? for AT&T 3B2, 3B20 systems, "make att3b2".
# for AT&T 3B1, 7300 UNIX PC (see notes with the entries):
# In C-Kermit 7.0, only the gcc entries work:
-# + "make sys3upcg", "make sys3upcgc", "make att351gm"
+# ? "make sys3upcg", "make sys3upcgc", "make att351gm"
# The others fail with "too many defines" (usually in ckuusr.h):
# - "make sys3upc", "make sys3upcold", "make sys3upcc", "make sys3upcx",
# "make sys3upcm", "make att351m"
# ? for AT&T System III/System V R2 or earlier, "make sys3" or "make sys3nid"
# ? for AT&T System III/System V with Honey DanBer UUCP, "make sys3hdb"
# ? for AT&T System V on DEC VAX, "make sys3" or "make sys5r3"
-# + for AT&T System V R3, use "make sys5r3" or "make sys5r3c"
-# + for AT&T System V/386 R3.2 built on Interactive 4.1.1, "make sys5r32is".
+# ? for AT&T System V R3, use "make sys5r3" or "make sys5r3c"
+# ? for AT&T System V/386 R3.2 built on Interactive 4.1.1, "make sys5r32is".
# ? for AT&T System V/386 R320.0 Versyss Systems, use "make sys5r3"
# or "make sys5r3c".
-# + for AT&T System V R4, "make sys5r4", "make sys5r4sx", or "make sys5r4nx",
+# ? for AT&T System V R4, "make sys5r4", "make sys5r4sx", or "make sys5r4nx",
# or if the ANSI C function prototyping makes trouble, add -DNOANSI,
# as in "sys5r4sxna" entry
-# + for AT&T (USL) System V R4.2 use the sys5r4* entries.
+# ? for AT&T (USL) System V R4.2 use the sys5r4* entries.
# ? for Atari Falcon with MiNT, "make posix"
# ? for Atari ST with Minix ST 1.5.10.3, "make minix68k" or "make minixc68"
# ? for BBN C/70 with IOS 2.0, "make c70"
# (last built successfully in C-Kermit 6.0)
# ? for Bell Labs / Lucent Plan 9, use separate makefile ckpker.mk:
# can be built for Intel, MIPS, 680x0, and PowerPC (last built C-Kermit 7.0)
-# + for BSDI BSD/386 1.x, "make bsdi"
-# + for BSDI BSD/OS 2.x, "make bsdi2"
-# + for BSDI BSD/OS 3.0 or 3.1, "make bsdi3"
-# + for BSDI BSD/OS 4.x, "make bsdi4"
-# + for BSDI BSD/OS 4.x, to build a binary that also works on FreeBSD,
+# ? for BSDI BSD/386 1.x, "make bsdi"
+# ? for BSDI BSD/OS 2.x, "make bsdi2"
+# ? for BSDI BSD/OS 3.0 or 3.1, "make bsdi3"
+# ? for BSDI BSD/OS 4.x, "make bsdi4"
+# ? for BSDI BSD/OS 4.x, to build a binary that also works on FreeBSD,
# "make bsdix".
# ? for Berkeley Unix 2.4, "make v7" (but read v7 material below)
# ? for Berkeley Unix 2.9 (DEC PDP-11 or Pro-3xx), "make bsd29"
# This makefile is too big. Read the instructions in ckubs2.mak.
# "make -f ckubs2.mak bsd210" or "make -f ckubs2.mak bsd211".
# (last built successfully in C-Kermit 6.0 - later versions too big)
-# + for Berkeley Unix 2.11 "make -f ckubs2.mak bsd210noicp" (no command parser)
+# ? for Berkeley Unix 2.11 "make -f ckubs2.mak bsd210noicp" (no command parser)
# ? for Berkeley Unix 4.1, "make bsd41"
-# + for Berkeley Unix 4.2 on VAX, "make bsd42" or "make bsd42c"
+# ? for Berkeley Unix 4.2 on VAX, "make bsd42" or "make bsd42c"
# ? for Berkeley Unix 4.2 or 4.3 with HoneyDanBer UUCP, "make bsdhdb"
-# + for Berkeley Unix 4.3 on VAX, "make bsd43", "make bsd43nc".
-# + for Berkeley Unix 4.3 on VAX, no networking "make bsd43nonet.
-# + for Berkeley Unix 4.3 without acucntrl program, "make bsd42" or "bsd42c"
+# ? for Berkeley Unix 4.3 on VAX, "make bsd43", "make bsd43nc".
+# ? for Berkeley Unix 4.3 on VAX, no networking "make bsd43nonet.
+# ? for Berkeley Unix 4.3 without acucntrl program, "make bsd42" or "bsd42c"
# NOTE: all the C-Kermit 7.0 full builds for old BSDs fail with
# "too many defines" in CPP, even on big architectures like VAX. This
# can be worked around with a clever ruse. See comments at target.
-# + for Berkeley Unix 4.3, command-line only, "make bsdm".
-# + for Berkeley Unix 4.3-Tahoe, same as 4.3 BSD
-# + for Berkeley Unix 4.3-Reno, "make bsd43" or "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.3-Carson City, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4-Networking/2 or -Alpha, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4, "make bsd44" or "make bsd44c"
-# + for Berkeley Unix 4.4-Lite, "make bsd44" or "make bsd44c"
+# ? for Berkeley Unix 4.3, command-line only, "make bsdm".
+# ? for Berkeley Unix 4.3-Tahoe, same as 4.3 BSD
+# ? for Berkeley Unix 4.3-Reno, "make bsd43" or "make bsd44" or "make bsd44c"
+# ? for Berkeley Unix 4.3-Carson City, "make bsd44" or "make bsd44c"
+# ? for Berkeley Unix 4.4-Networking/2 or -Alpha, "make bsd44" or "make bsd44c"
+# ? for Berkeley Unix 4.4, "make bsd44" or "make bsd44c"
+# ? for Berkeley Unix 4.4-Lite, "make bsd44" or "make bsd44c"
# ? for Bull DPX/2 with BOS/X, "make bulldpx2"
# ? for Cadmus, "make sys3"
# for Caldera, see SCO, Linux.
# ? for Charles River Data Systems Universe 680x0 with UNOS 9.2, maybe
# also other UNOS versions, "make crds"
# ? for CIE Systems 680/20 with Regulus, "make cie"
-# + for Commodore Amiga 3000UX Sys V R4, "make sys5r4sx"
-# + for Commodore Amiga 3000UX Sys V R4 and TCP/IP, "make svr4amiganet"
+# ? for Commodore Amiga 3000UX Sys V R4, "make sys5r4sx"
+# ? for Commodore Amiga 3000UX Sys V R4 and TCP/IP, "make svr4amiganet"
# ? for Commodore Amiga with Minix 1.5.10, "make minix68k" of "make minixc68"
# ? for Concurrent/Masscomp with RTU 4.0 or later, BSD environment, "make
# rtubsd", "make rtubsd2", "make rtubsd3" (depending on where ndir.h
# ? for Concurrent/Masscomp with RTU 4.0 or later, System V R2, "make rtus5"
# ? for Concurrent (Perkin-Elmer) 3200 series, "make sys5".
# ? for Concurrent (Perkin-Elmer) 3200 series with <dirent.h>, "make ccop1"
-# + for Concurrent PowerMAX OS SVR4, "make powermax"
+# ? for Concurrent PowerMAX OS SVR4, "make powermax"
# ? for Consensys UNIX SV/386 R4V3, "make sys5r4sxtcpc" or "make sys5r4sx"
# ? for Convergent with CTIX Sys V R2, "make sys5"
# ? for Convergent with CTIX 6.4.1, "make ctix"
# ? for Cyber 910 (Silicon-Graphics Iris) with Irix 3.3, "irix33"
# ? for Data General AViiON with DG/UX 5.4 before R3.00, "make dgux540"
# or "make dgux540c" (compile ckwart separately if necessary)
-# + for DG/UX 5.4 on AViiON Intel models, "make dgux540i" or dgux540ic.
+# ? for DG/UX 5.4 on AViiON Intel models, "make dgux540i" or dgux540ic.
# ? for DG/UX 5.4R4.11 on AViiON, all models, "make dgux54411"
-# + for DG/UX 5.4R4.20 on AViiON, all models, "make dgux54420"
-# + for Data General AViiON with DG/UX 4.3x using Sys V-isms, "make dgux430"
+# ? for DG/UX 5.4R4.20 on AViiON, all models, "make dgux54420"
+# ? for Data General AViiON with DG/UX 4.3x using Sys V-isms, "make dgux430"
# ? for Data General AViiON with DG/UX 4.3x using BSD-isms, "make dgux430bsd"
# ? for Data General AViiON, earlier UNIX versions,
# "make sys5r3" (maybe compile ckwart separately, or "touch ckcpro.c")
# ? for Data General MV systems with DG/UX, ???
# ? for Data General MV systems with MV/UX, use AOS/VS C-Kermit (CKDKER.MAK)
# ? for Data General MV systems with AOS/VS, use CKDKER.MAK (last = C-K 7.0)
-# for DEC PDP-11 with Berkeley UNIX 2.x, see Berkeley UNIX 2.x.
+# ? for DEC PDP-11 with Berkeley UNIX 2.x, see Berkeley UNIX 2.x.
# ? for DEC PDP-11 with Mini-UNIX (Bell 6th Edition for PDP-11 with no MMU),
# probably no way to fit C-Kermit without I&D space.
# ? for DEC PDP-11 with Ultrix-11 3.x, ??? (probably needs overlays)
# ? for DECstation or VAX with Ultrix 4.0 or 4.1, "make ultrix40"
# ? for DECstation or VAX with Ultrix 4.2, "make ultrix42" or "make ultrix42c"
# ? for DECstation or VAX with Ultrix 4.x, POSIX world, "make posix"
-# + for DECstation or VAX with Ultrix 4.3, "make ultrix43".
-# + for DECstation or VAX with Ultrix 4.4, "make ultrix44".
+# ? for DECstation or VAX with Ultrix 4.3, "make ultrix43".
+# ? for DECstation or VAX with Ultrix 4.4, "make ultrix44".
# ? for DECstation 5000/50, /150 or /260 (R4x00 MIPS CPU), Ultrix 4.3A or later
# "make ultrix43-mips3" or "make ultrix43c-mips3"
# ? for DECstation (MIPS) with Berkeley Sprite, "make bsd44"?
# ? for DEC Alpha with OSF/1 1.0 to 1.3, "make dec-osf"
# ? for DEC PC 486 with OSF/1, "make dec-osf"
# ? for DEC Alpha with OSF/1 2.x, "make dec-osf20"
-# + for DEC Alpha with OSF/1 3.0, "make dec-osf30"
-# + for DEC Alpha with Digital UNIX 3.2, "make du32"
-# + for DEC Alpha with Digital UNIX 4.0-4.0D, "make du40" or "make du40gcc"
-# + for DEC Alpha with Digital UNIX 4.0E or higher, see Tru64.
+# ? for DEC Alpha with OSF/1 3.0, "make dec-osf30"
+# ? for DEC Alpha with Digital UNIX 3.2, "make du32"
+# ? for DEC Alpha with Digital UNIX 4.0-4.0D, "make du40" or "make du40gcc"
+# ? for DEC Alpha with Digital UNIX 4.0E or higher, see Tru64.
+# + for DEC Alpha with any version of DU or OSF/1, "make dec-osf1"
# - for DEC Pro-350 with Pro/Venix V1.x, "make provx1" (version 5A is too big)
# ? for DEC Pro-380 with Pro/Venix V2.0 (Sys V), "make sys3" or "make sys3nid"
# ? for DEC Pro-380 with 2.9, 2.10, or 2.11 BSD, "make bsd29" or "make bsd210"
# ? for Fortune 32:16, For:Pro 1.8, "make ft18"
# ? for Fortune 32:16, For:Pro 2.1, "make ft21"
# ? for FPS 500 with FPX 4.1, "made bsd"
-# + for FreeBSD 1.0, "make freebsd1"
-# + for FreeBSD 2.x, "make freebsd2" (ncurses) or "make freebsd2c" (curses)
-# + for FreeBSD 3.x, "make freebsd3" (ncurses) or "make freebsd3c" (curses)
-# + for FreeBSD 4.0, "make freebsd4"
-# + for FreeBSD 4.1, "make freebsd41"
-# + for FreeBSD 4.2, "make freebsd42"
-# + for FreeBSD 4.3, "make freebsd43"
-# + for FreeBSD 4.4, "make freebsd44"
-# + for FreeBSD 4.5, "make freebsd45"
-# + for FreeBSD 4.6, "make freebsd46"
-# + for FreeBSD 4.7, "make freebsd47"
-# + for FreeBSD 4.8, "make freebsd48"
-# + for FreeBSD 4.9, "make freebsd49"
-# ? for FreeBSD 5.0, "make freebsd50"
-# ? for FreeBSD 5.1, "make freebsd51"
+# ? for FreeBSD 1.0, "make freebsd1"
+# ? for FreeBSD 2.x, "make freebsd2" (ncurses) or "make freebsd2c" (curses)
+# ? for FreeBSD 3.x, "make freebsd3" (ncurses) or "make freebsd3c" (curses)
+# ? for FreeBSD 4.0, "make freebsd40"
+# ? for FreeBSD 4.1 or later, "make freebsd"
+# + NOTE: Just use "make freebsd" for any reasonably recent FreeBSD version.
# ? for Harris HCX-2900, "make sys5r3"
# ? for Harris Night Hawk 88K or 68K with CX/UX pre-6.1, "make sys5r3"
# ? for Harris Night Hawk 88K or 68K with CX/UX 6.1 or later, "make cx_ux"
# ? for Heurikon, "make sys3"
# ? for HP-3000, MPE/ix, "make posix"?
-# + for HP-9000 Series 300 with 4.4BSD, "make bsd44"
-# + for HP-9000 Series 500, HP-UX 5.21 and no networking "make hpux0500"
-# + for HP-9000 Series 500, HP-UX 5.21 with WIN/TCP 1.2 "make hpux0500wintcp"
-# + for HP-9000 Series, HP-UX 6.5, without long filenames,
-# "make hpux0650" or "make hpux0650c"
-# + for HP-9000 Series, HP-UX 7.0 or later no long filenames, "make hpux0700sf"
+# ? for HP-9000 Series 300 with 4.4BSD, "make bsd44"
+
+# NOTE: Most of the HP-UX targets were tested successfully in 2010.
+# Verification needed for C-Kermit 9.0 Beta.01...
+
+# ? for HP-9000 Series 500, HP-UX 5.21 and no networking "make hpux0500"
+# ? for HP-9000 Series 500, HP-UX 5.21 with WIN/TCP 1.2 "make hpux0500wintcp"
+# ? for HP-9000 Series, HP-UX 6.5, without long filenames,
+# "make hpux0650", "make hpux0650c" or "make hpux0650tcpc"
+# ? for HP-9000 Series, HP-UX 7.0 or later no long filenames, "make hpux0700sf"
# or (to include tcp/ip, curses, etc) "make hpux0700sftcpc"
-# + for HP-9000 Series with HP-UX 7.0, TCP/IP,long filenames,"make hpux0700lfn"
-# + for HP-9000 300/400 Series (680x0) with HP-UX 8.0, TCP/IP, "make hpux0800"
+# ? for HP-9000 Series with HP-UX 7.0, TCP/IP,long filenames,"make hpux0700lfn"
+# ? for HP-9000 300/400 Series (680x0) with HP-UX 8.0, TCP/IP, "make hpux0800"
# or "make hpux0800c"
-# + for HP-9000 700/800 Series (PA-RISC), HP-UX 8.0, TCP/IP, "make hpux0800pa"
+# ? for HP-9000 700/800 Series (PA-RISC), HP-UX 8.0, TCP/IP, "make hpux0800pa"
# or "make hpux0800pac"
-# + for HP-9000 Series with HP-UX 8.0, no TCP/IP, long filenames,
+# ? for HP-9000 Series with HP-UX 8.0, no TCP/IP, long filenames,
# "make hpux0800notcp"
-# + for HP-9000 Series, HP-UX 9.0 - 9.10, TCP/IP, curses, restricted compiler
+# ? for HP-9000 Series, HP-UX 9.0 - 9.10, TCP/IP, curses, restricted compiler
# (no optimization, no ANSI), all models, "make hpux0900". Read the
# hpux0900 entry below for more info.
-# + for HP-9000 700 and 800 Series, HP-UX 9.x, TCP/IP, curses,
+# ? for HP-9000 700 and 800 Series, HP-UX 9.x, TCP/IP, curses,
# HP optimizing ANSI C compiler, "make hpux0900o700".
-# + for HP-9000 with Motorola CPUs, HP-UX 9.x, TCP/IP, curses,
+# ? for HP-9000 with Motorola CPUs, HP-UX 9.x, TCP/IP, curses,
# HP optimizing ANSI C compiler, "make hpux0900mot".
-# + for HP-9000 on other CPUs, HP-UX 9.x, TCP/IP, curses,
+# ? for HP-9000 on other CPUs, HP-UX 9.x, TCP/IP, curses,
# HP optimizing ANSI C compiler, "make hpux0900o".
-# + for HP-9000 series, HP-UX 9.x, TCP/IP, curses, gcc, all models,
+# ? for HP-9000 series, HP-UX 9.x, TCP/IP, curses, gcc, all models,
# "make hpux0900gcc"
-# + for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
+# ? for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
# curses, restricted compiler (no optimization, no ANSI) "make hpux1000".
-# + for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
+# ? for HP-9000 700/800 Series, HP-UX 10.00,10.01,10.10,10.20,10.30, TCP/IP,
# curses, HP ANSI/optimizing compiler "make hpux1000o" or "make hpux1000o+"
-# + for HP-9000 HP-UX 10.00 or later with gcc, "make hpux1000gcc"
-# + for Trusted HP-UX 10.xx "make hpux1000t", "make hpux1000to",
+# ? for HP-9000 HP-UX 10.00 or later with gcc, "make hpux1000gcc"
+# ? for Trusted HP-UX 10.xx "make hpux1000t", "make hpux1000to",
# or make hpux1000to+"
-# + for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
+# ? for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
# (no optimization, no ANSI) "make hpux1100".
-# + for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
+# ? for HP-9000 700/800 Series, HP-UX 11.00,TCP/IP,curses, restricted compiler
# HP ANSI/optimizing compiler "make hpux1100o" or "make hpux1100o+"
-# + for Trusted HP-UX 11.xx "make hpux1100t", "make hpux1100to",
+# ? for Trusted HP-UX 11.xx "make hpux1100t", "make hpux1100to",
# make hpux1100to+"
-# + for HP-9000 PA-RISC models with NeXTSTEP 3.3, "make nextquadfat".
-# + for HP-9000 PA-RISC models with OPENSTEP/Mach 4.1, "make nextquadfat".
+# ? for HP-9000 PA-RISC models with NeXTSTEP 3.3, "make nextquadfat".
+# ? for HP-9000 PA-RISC models with OPENSTEP/Mach 4.1, "make nextquadfat".
# ? for IBM 370 Series with IX/370, "make ix370"
# ? for IBM 370 Series with AIX/370 1.2, "make aix370"
# ? for IBM 370 Series with AIX/370 3.0, "make aix370"
# minimum interactive version, "make coherentmi"
# ? for IBM PC 386 & compatibles with Mark Williams Coherent OS,
# full interactive version, prior to v4.2, "make coherentmax"
-# + for IBM PC 386 & compatibles with Mark Williams Coherent OS 4.2,
+# ? for IBM PC 386 & compatibles with Mark Williams Coherent OS 4.2,
# "make coherent42"
# ? for IBM PC 386 & compatibles with LynxOS 2.0 or 2.1, "make lynx21"
# ? for IBM PC 386 & compatibles with LynxOS 2.2, "make lynx"
# - for IBM PC/AT & compatibles with original MINIX, "make minix" (too big)
# ? for IBM PC family, 386-based, with MINIX/386 1.5, "make minix386"
# or if you have GNU CC, "make minix386gcc"
-# + for IBM PC family, 386-based, with MINIX 2.0, "make minix20"
-# + for IBM PS/2 with PS/2 AIX 1.0, 1.1, or 1.2, "make ps2aix" or ps2aixnetc.
+# ? for IBM PC family, 386-based, with MINIX 2.0, "make minix20"
+# ? for IBM PC family, 386-based, with MINIX 3.0, "make minix3"
+# + for IBM PC family, 386-based, with MINIX 3.0, "make minix315"
+# ? for IBM PS/2 with PS/2 AIX 1.0, 1.1, or 1.2, "make ps2aix" or ps2aixnetc.
# ? for IBM PS/2 with PS/2 AIX 1.3, "make ps2aix3"
# ? for IBM RISC System/6000 with AIX 3.0, "make aix30"
# ? for IBM RISC System/6000 with AIX 3.1.x, "make aix31"
-# + for IBM RISC System/6000 with AIX 3.2.0 thru 3.2.5, "make aix32"
-# + for IBM RS/6000 or Power Series with AIX 4.1.x, "make aix41"
-# + for IBM RS/6000 or Power Series with AIX 4.1.x with gcc, "make aix41g"
-# + for IBM RS/6000 or Power Series with AIX 4.1 with X.25, "make aix41x25"
-# + for IBM RS/6000 or Power Series with AIX 4.2, "make aix42"
-# + for IBM RS/6000 or Power Series with AIX 4.3, "make aix43" (or aix43gcc)
-# + for IBM RS/6000 or Power Series with AIX 4.4, "make aix44" (or aix44gcc)
-# + for IBM RS/6000 or Power Series with AIX 4.5, "make aix45" (or aix45gcc)
-# + for IBM RS/6000 or Power Series with AIX 5.0, "make aix50" (or aix50gcc)
-# + for IBM RS/6000 or Power Series with AIX 5.1, "make aix51" (or aix51gcc)
+# ? for IBM RISC System/6000 with AIX 3.2.0 thru 3.2.5, "make aix32"
+# ? for IBM RS/6000 or Power Series with AIX 4.1.x, "make aix41"
+# ? for IBM RS/6000 or Power Series with AIX 4.1.x with gcc, "make aix41g"
+# ? for IBM RS/6000 or Power Series with AIX 4.1 with X.25, "make aix41x25"
+# ? for IBM RS/6000 or Power Series with AIX 4.2 or later: "make aix"
+# (the following "make aixnn" targets are no longer necessary except for gcc)
+# ? for IBM RS/6000 or Power Series with AIX 4.2, "make aix42"
+# ? for IBM RS/6000 or Power Series with AIX 4.3, "make aix43" (or aix43gcc)
+# ? for IBM RS/6000 or Power Series with AIX 4.4, "make aix44" (or aix44gcc)
+# ? for IBM RS/6000 or Power Series with AIX 4.5, "make aix45" (or aix45gcc)
+# ? for IBM RS/6000 or Power Series with AIX 5.0, "make aix50" (or aix50gcc)
+# ? for IBM RS/6000 or Power Series with AIX 5.1, "make aix51" (or aix51gcc)
# ? for IBM RS/6000 or Power Series with AIX 5.2, "make aix52" (or aix52gcc)
# ? for IBM RS/6000 or Power Series with AIX 5.3, "make aix53" (or aix53gcc)
+# ? for IBM RS/6000 or Power Series with AIX 6.1, "make aix61" (or aix53gcc)
# ? for IBM RT PC with AIX 2.1, "make sys3"
-# + for IBM RT PC with AIX 2.2.1, "make rtaix" or "make rtaixc"
+# ? for IBM RT PC with AIX 2.2.1, "make rtaix" or "make rtaixc"
# ? for IBM RT PC with ACIS 4.2, "make bsd"
# ? for IBM RT PC with ACIS 4.3, "make rtacis" or "make bsd KFLAGS=-DNOANSI"
# ? for IBM RT PC with 4.3BSD/Reno, "make bsd44" or "make bsd44c"
# ? for ICL DRS400 or 400E, "make iclsys5r3"
# ? for ICL DRS3000 (80486) with DRS/NX, "make iclsys5r4_486"
# ? for ICL DRS6000 (SPARC) with DRS/NX, "make iclsys5r4"
-# + for ICL DRS6000 (SPARC) with DRS/NX 4.2MP 7MPlus, "make iclsys5r4m+"
+# ? for ICL DRS6000 (SPARC) with DRS/NX 4.2MP 7MPlus, "make iclsys5r4m+"
# ? Ditto but with IKSD support included, "make iclsys5r4m+iksd"
# ? for Integrated Solutions Inc V8S VME 68020, "make isi"
# ? for Intel 302 with Bell Tech Sys V/386 R3.2, "make sys5r3"
# or "make is5r3net2"
# ? for Interactive 386/ix 2.2.1, job control, curses, no net, gcc,
# "make is5r3gcc"
-# + for Interactive UNIX Sys V R3.2 V2.2 - 4.0 without TCP/IP, "make is5r3jc"
-# + for Interactive UNIX Sys V R3.2 V2.2 - 4.0 with TCP/IP, "make is5r3netjc"
-# + for Intergraph Clipper, "make clix" or "make clixnet"
+# ? for Interactive UNIX Sys V R3.2 V2.2 - 4.0 without TCP/IP, "make is5r3jc"
+# ? for Interactive UNIX Sys V R3.2 V2.2 - 4.0 with TCP/IP, "make is5r3netjc"
+# ? for Intergraph Clipper, "make clix" or "make clixnet"
# ? for Jolix (see 386BSD)
-# + for Red Hat Linux 7.1 (and higher) fully configured (krb5, SSL, etc):
-# "make redhat71", "make redhat72", "make redhat73", "make redhat80"
-# "make redhat9"
-# NOTE: You must use this target for Red Hat 7.1 since it
-# also includes a workaround for its broken curses library.
-# WARNING: These targets create binaries that include code for
-# strong encryption and are therefore not exportable. DO NOT PUT
-# THESE BINARIES ON US OR CANADIAN WEB OR FTP SITES.
# + for Linux 1.2 and later, "make linux". Uses ncurses. This version
# handles serial speeds up to 460800 bps, Linux FSSTD 1.2, TCP/IP, and
# should work on both libc and glibc systems. For static linking, use
# "make linux LNKFLAGS=-static". Please read the comments that accompany
-# the linux entry.
+# the linux entry. As of 8.0.212 Dev.10, this also includes Large File
+# Support (LFS).
# + for Linux builds that fail with "sys/select.h: No such file or directory",
# "make linuxns"
# + for Linux 1.2 and later but with curses.h and libcurses (rather than
# ncurses.h and libncurses), use "make linuxc".
# + for Linux 1.2 and later with no curses support at all, "make linuxnc".
-# + for Linux on PowerMac (Mklinux DR3), "make mklinux".
-# + for Linux 1.2 and later, to build with egcs, "make linuxegcs".
# + for Linux with no TCP/IP, "make linuxnotcp"
-# + for Linux with lcc compiler, no TCP/IP, "make linuxnotcp-lcc"
-# ? for Linux 1.0 or earlier, "make linux10", or (to remove TCP/IP)
-# "make linuxnotcp".
-# IMPORTANT: Read the comments that accompany the "linux:" entry.
+# (The following Linux targets are historic and might not work...)
+# ? for Red Hat Linux 7.1 through RH9, fully configured (krb5, SSL, etc):
+# "make redhat71", "make redhat72", "make redhat73", "make redhat80"
+# "make redhat9"
+# NOTE: You must use this target for Red Hat 7.1 since it
+# also includes a workaround for its broken curses library.
+# WARNING: These targets create binaries that include code for
+# strong encryption and are therefore not exportable. DO NOT PUT
+# THESE BINARIES ON US OR CANADIAN WEB OR FTP SITES.
+# ? for Linux on PowerMac (Mklinux DR3), "make mklinux".
+# ? for Linux 1.2 and later, to build with egcs, "make linuxegcs".
+# ? for Linux with lcc compiler, no TCP/IP, "make linuxnotcp-lcc"
+# ? for Linux 1.0 or earlier, "make linux10".
+# (End old linux targets)
# ? for Mach 2.6 on (anything, e.g. DECstation), "make bsd42" or "make bsd43".
# ? for MachTen (Tenon) 2.1.1.D on (e.g.) Apple Powerbook, "make machten".
# ? for Masscomp RTU AT&T System III, "make rtu"
# ? for Microsoft,IBM Xenix (/286, PC/AT, etc), "make xenix" or "make sco286"
# ? for MIPS System with RISC/os (UMIPS) 4.52 = AT&T SVR3, "make mips"
# or "make mipstcpc"
-# + for MkLinux on Power Macintosh, "make mklinux"
+# ? for MkLinux on Power Macintosh, "make mklinux"
# ? for Modcomp 9730, Real/IX, "make sys5r3" (or modify to use gcc = GLS cc)
# ? for Modcomp Realstar 1000 with REAL/IX D.1, "make sv88r32"
# ? for Motorola Four Phase, "make sys3" or "make sys3nid"
-# + for Motorola Delta System V/68 R3, "make sv68r3"
-# + for Motorola Delta System V/68 R3V5, "make sv68r3v5"
-# + for Motorola Delta System V/68 R3V5.1, "make sv68r3v51"
-# + for Motorola Delta System V/68 R3V6 with NSE TCP/IP, "make sv68r3v6"
-# + for Motorola Delta System V/88 R32, "make sv88r32"
-# + for Motorola Delta System V/88 R40, "make sv88r40"
+# ? for Motorola Delta System V/68 R3, "make sv68r3"
+# ? for Motorola Delta System V/68 R3V5, "make sv68r3v5"
+# ? for Motorola Delta System V/68 R3V5.1, "make sv68r3v51"
+# ? for Motorola Delta System V/68 R3V6 with NSE TCP/IP, "make sv68r3v6"
+# ? for Motorola Delta System V/88 R32, "make sv88r32"
+# ? for Motorola Delta System V/88 R40, "make sv88r40"
# ? for Mt Xinu Mach386 on 386/486-based PCs, "make bsd43"
# ? for NCR Tower 1632, OS 1.02, "make tower1"
# ? for NCR Tower 1632 or Minitower with System V R2, "make sys3"
# ln /usr/include/arpa/inet.h /usr/include/sys/inet.h
# ln /usr/include/sys/termiox.h /usr/include/termiox.h
# ? for NCR System 3000, NCR UNIX 02.02.01, same as above.
-# + for NCR MP-RAS System V R4 V2.03 or 3.02, "make mpras" or "make mprastcpc"
-# + for NetBSD through 1.4.x on any architecture, "make netbsd"
-# + for NetBSD 1.5.0 and later, "make netbsd15"
-# + for NeXT with NeXTSTEP 1.0 through 3.2, "make next" (on a NeXT)
-# + for NeXT with NeXTSTEP 3.3, "make next33"
+# ? for NCR MP-RAS System V R4 V2.03 or 3.02, "make mpras" or "make mprastcpc"
+# + for NetBSD any version on any architecture, "make netbsd"
+# + for NetBSD with OpenSSL, "make netbsd+ssl"
+# ? for NetBSD with ncurses specified instead of curses, "make netbsdn"
+# ? for NetBSD with all curses support omitted, "make netbsdnc"
+# ? for NeXT with NeXTSTEP 1.0 through 3.2, "make next" (on a NeXT)
+# ? for NeXT with NeXTSTEP 3.3, "make next33"
# ? for NeXT with OPENSTEP/Mach 4.1, "make nextquadfat".
-# + for NeXT with OPENSTEP/Mach 4.2, "make openstep42".
+# ? for NeXT with OPENSTEP/Mach 4.2, "make openstep42".
# ? for NeXTSTEP/486, "make next" (on a PC)
# ? for NeXTSTEP portable binary (runs on Intel or Motorola), "make nextfat"
# ? for NeXTSTEP portable binary (Intel, Motorola, HP PA-RISC, or SPARC),
# ? for Olivetti LSX-3020 with X/OS R.2.3, "make xos23" or "make xos23c"
# + for OpenBSD, "make openbsd" (also see secure targets listed below).
# ? for OPENSTEP/Mach 4.1, "make nextquadfat" (NeXT, Intel, PA-RISC, SPARC)
-# + for OPENSTEP/Mach 4.2, "make openstep42" (tested on NeXT)
+# ? for OPENSTEP/Mach 4.2, "make openstep42" (tested on NeXT)
# ? for Perkin-Elmer (Concurrent) 3200 series, "make sys5".
# ? for Perkin-Elmer (Concurrent) 3200 series with <dirent.h>, "make ccop1"
# ? for Perkin-Elmer/Concurrent 3200 with Xelos R02, "make ccop1"
# ? for PFU Compact A Series SX/A TISP V10/E50 (Japan), "make sxae50"
# ? for Plexus, "make sys3"
-# + for Pyramid 9XXX (e.g. 9845) or MIServer T series, OSx 4.4b thru 5.1,
+# ? for Pyramid 9XXX (e.g. 9845) or MIServer T series, OSx 4.4b thru 5.1,
# "ucb make pyramid" or for HDB UUCP, "ucb make pyramid-hdb" or:
-# + for Pyramid MIServer S or ES Series, DataCenter/OSx, "make pyrdcosx"
-# + for Pyramid MIS-S MIPS R3000, DataCenter OSx System V R4, "make pyrdcosx"
-# + for POSIX on anything, "make posix" (but adjustments might be necessary).
+# ? for Pyramid MIServer S or ES Series, DataCenter/OSx, "make pyrdcosx"
+# ? for Pyramid MIS-S MIPS R3000, DataCenter OSx System V R4, "make pyrdcosx"
+# ? for POSIX on anything, "make posix" (but adjustments might be necessary).
+# NOTE: this target is not very useful - many features are missing.
# ? for Prime 8000 MIPS, SVR3, "make mips" or "make mipstcpc"
# - for QNX 2.x (sorry we don't have a version of C-Kermit for QNX 2.x)
# ? for QNX 4.0 or 4.1, 16-bit, on 286 PC, Watcom C 8.5, "make qnx16_41"
-# + for QNX 4.21 - 4.22A (286+), and 4.23 (386+), or higher, 16-bit,
+# ? for QNX 4.21 - 4.22A (286+), and 4.23 (386+), or higher, 16-bit,
# Watcom C 9.5x or higher, "make qnx16"
# + for QNX 4.21-4.25, 32-bit, 386 or above, Watcom C 10.6, "make qnx32"
# NOTE: ("make qnx" == "make qnx32")
# ? for QNX Neutrino 2+, "make qnx_nto2+" (crosscompiled on QNX4 with Watcom C)
-# + for QNX 6 = Neutrino 2.xx, "make qnx6"
+# ? for QNX 6 = Neutrino 2.xx, "make qnx6"
# ? for Ridge 32 (ROS3.2), "make ridge32"
# ? for Samsung MagicStation, "make sys5r4"
# ? for SCO Xenix 2.2.1 with development system 2.2 on 8086/8 "make sco86"
# ? for SCO Xenix/386 or UNIX/386 with Excelan TCP/IP, "make sco3r2net"
# or (to add curses support) "make sco3r2netc" or "sco386netc"
# + for SCO XENIX 2.3.4, "make sco234" or "make sco234c" to add curses.
-# + for SCO XENIX 2.3.4 with SCO TCP/IP & curses, "make sco234netc".
+# ? for SCO XENIX 2.3.4 with SCO TCP/IP & curses, "make sco234netc".
# ? for SCO Xenix 2.3.x with Racal-InterLan TCP/IP, "make sco3r2netri"
# for other UNIX varieties with Racal Interlan TCP/IP, read sco3r2netri entry
# ? for SCO Xenix 2.3.x with SCO (Lachman) TCP/IP, "make sco3r2lai"
# ? for SCO UNIX/386 3.2.2 with SCO TCP/IP, "make sco3r22net"
# or "make sco3r22netc" (curses)
# ? for SCO ODT 1.1, "make sco3r22net" or "make sco3r22netc" (curses)
-# + for SCO UNIX/386 3.2 V4.x, no network support, "make sco32v4"
-# + or "make sco32v4ns" (this one uses no select() or sockets library)
-# + for SCO UNIX/386 3.2 V4.x with TCP/IP, "make sco32v4net"
+# ? for SCO UNIX/386 3.2 V4.x, no network support, "make sco32v4"
+# ? or "make sco32v4ns" (this one uses no select() or sockets library)
+# ? for SCO UNIX/386 3.2 V4.x with TCP/IP, "make sco32v4net"
# (also sco32v4gcc, sco32v4netgcc)
-# + for SCO UNIX/386 3.2 V5.0 - see SCO OpenServer.
-# + for SCO UNIX 3.2v4.x with TCP/IP, <dirent.h> for Extended Acer File
+# ? for SCO UNIX/386 3.2 V5.0 - see SCO OpenServer.
+# ? for SCO UNIX 3.2v4.x with TCP/IP, <dirent.h> for Extended Acer File
# System (EAFS), curses, ANSI C compilation, "make sco32v4net"
-# + or (to use select()-based CONNECT module) "make sco32v4netx".
-# + for SCO UNIX 3.2v4.2, "make sco-odt30" (includes TCP/IP).
-# + for SCO MPX 3.0 - The SCO UNIX binary runs on the corresponding MPX system.
+# ? or (to use select()-based CONNECT module) "make sco32v4netx".
+# ? for SCO UNIX 3.2v4.2, "make sco-odt30" (includes TCP/IP).
+# ? for SCO MPX 3.0 - The SCO UNIX binary runs on the corresponding MPX system.
#
# NOTE: Also see below for other entries that are variations on these.
# Also be sure to read the comments accompanying each SCO entry.
# Also see Unixware section.
#
-# + for SCO ODT 2.0, "make sco32v4net"
-# + for SCO ODT 3.0, "make sco-odt30"
-# + for SCO OpenServer 5.0 (OSR5), "make sco32v500"
-# + for SCO OpenServer 5.0 (OSR5) with networking, "make sco32v500net"
-# + for SCO OpenServer 5.0 (OSR5), gcc, "make sco32v500gcc"
-# + for SCO OpenServer 5.0 (OSR5), gcc, with networking, "make sco32v500netgcc"
-# + for SCO OpenServer 5.0 (OSR5), as above, ELF, "make sco32v500netgccelf"
-# + for SCO OpenServer 5.0.2, use "make sco32v502xxx" entries as above.
-# + for SCO OpenServer 5.0.4, use "make sco32v504xxx" entries as above.
-# + for SCO OpenServer 5.0.5, use "make sco32v505xxx" entries as above.
+# ? for SCO ODT 2.0, "make sco32v4net"
+# ? for SCO ODT 3.0, "make sco-odt30"
+# ? for SCO OpenServer 5.0 (OSR5), "make sco32v500"
+# ? for SCO OpenServer 5.0 (OSR5) with networking, "make sco32v500net"
+# ? for SCO OpenServer 5.0 (OSR5), gcc, "make sco32v500gcc"
+# ? for SCO OpenServer 5.0 (OSR5), gcc, with networking, "make sco32v500netgcc"
+# ? for SCO OpenServer 5.0 (OSR5), as above, ELF, "make sco32v500netgccelf"
+# ? for SCO OpenServer 5.0.2, use "make sco32v502xxx" entries as above.
+# ? for SCO OpenServer 5.0.4, use "make sco32v504xxx" entries as above.
+# ? for SCO OpenServer 5.0.5, use "make sco32v505xxx" entries as above.
# Use the sco32v505udkxxx entries if you have the UDK rather than /bin/cc.
-# + for SCO OpenServer 5.0.6, use "make sco32v506xxx" entries as above.
-# + for SCO OpenServer 5.0.6a,use "make sco32v506axxx" entries as above.
-# + for SCO OpenServer 5.0.7, use "make sco32v507", "make sco32v507net"
+# ? for SCO OpenServer 5.0.6, use "make sco32v506xxx" entries as above.
+# ? for SCO OpenServer 5.0.6a,use "make sco32v506axxx" entries as above.
+# ? for SCO OpenServer 5.0.7, use "make sco32v507", "make sco32v507net"
# ? for SCO (Univel) UnixWare 1.x, "make unixware" or "make unixwarenetc".
# If there are problems with this in C-K 7+ see notes at unixware entry.
-# + for SCO UnixWare 2.0.x, "make uw20"
-# + for SCO UnixWare 2.1.0, "make uw21"
-# + for SCO UnixWare 2.1.3, "make uw213"
-# + for SCO UnixWare 7, "make uw7"
-# + for SCO UnixWare 7 with IKSD support, "make uw7iksd" or "make uw7iksdudk"
-# + for SCO UnixWare 7 with OpenSSL, "make uw7ssl"
-# + for SCO (Caldera) Open UNIX 8, "make ou8"
-# + for Sharp Zaurus SL5500 PDA, "make zsl5500".
+# + for SCO OpenServer 6.0.0, "make sco_osr600"
+# ? for SCO UnixWare 2.0.x, "make uw20"
+# ? for SCO UnixWare 2.1.0, "make uw21"
+# ? for SCO UnixWare 2.1.3, "make uw213"
+# + for SCO UnixWare 7, "make uw7" (includes large file support)
+# ? for SCO UnixWare 7 with IKSD support, "make uw7iksd" or "make uw7iksdudk"
+# ? for SCO UnixWare 7 with OpenSSL, "make uw7ssl"
+# ? for SCO (Caldera) Open UNIX 8, "make ou8"
+# ? for Sharp Zaurus SL5500 PDA, "make zsl5500".
# ? for Sequent with DYNIX/ptx 1.2.1, "make dynixptx12"
# ? for Sequent with DYNIX/ptx 1.3 or 1.4 with TCP/IP, "make dynixptx13"
# ? for Sequent with DYNIX/ptx 2.0 or 2.1 with TCP/IP, "make dynixptx20"
# or "dynixptx20c"
-# + for Sequent with DYNIX/ptx 2.1.6 on i486, "dynixptx216c"
+# ? for Sequent with DYNIX/ptx 2.1.6 on i486, "dynixptx216c"
# ? for Sequent with DYNIX/ptx V4.1.3 with TCP/IP, "make dynixptx41c"
-# + for Sequent with DYNIX/ptx V4.4.2 with TCP/IP, "make dynixptx44"
+# ? for Sequent with DYNIX/ptx V4.4.2 with TCP/IP, "make dynixptx44"
# ? for Sequent Balance 8000 or B8 with DYNIX 3.0.xx, "make dynix3"
# or "make dynix3noacu"
# ? for Sequent Symmetry S81 with DYNIX 3.0.xx, "make dynix3"
# ? for Sequent DYNIX 3.1.xx, "make dynix31" or "make dynix31c"
-# + for Siemens/Nixdorf SINIX-L Intel V5.41, "make sinix541i"
+# ? for Siemens/Nixdorf SINIX-L Intel V5.41, "make sinix541i"
# + for Siemens/Nixdorf SINIX-N MIPS V5.42, "make sinix542"
-# + for Siemens/Nixdorf SINIX-P MIPS V5.42 with gcc, "make sinix542g"
-# + for Siemens/Nixdorf SINIX-Z Intel V5.42, "make sinix542i"
-# + for Siemens/Nixdorf Reliant UNIX V5.43, "make sni543"
-# + for Siemens/Nixdorf Reliant UNIX V5.44, "make sni544"
+# ? for Siemens/Nixdorf SINIX-P MIPS V5.42 with gcc, "make sinix542g"
+# ? for Siemens/Nixdorf SINIX-Z Intel V5.42, "make sinix542i"
+# ? for Siemens/Nixdorf Reliant UNIX V5.43, "make sni543"
+# ? for Siemens/Nixdorf Reliant UNIX V5.44, "make sni544"
# ? for Silicon Graphics Iris System V IRIX 3.2 or earlier, "make iris"
# ? for Silicon Graphics Sys V R3 with IRIX 3.3 or later, "make sys5r3"
# ? for Silicon Graphics Iris Indigo with IRIX 4.0 or 5.0, "make irix40" or
# ? for Silicon Graphics Iris Indigo or Elan with IRIX 4.0.x with microcode
# optimization and -O4, "make irix40u" or "irix40uc" (and read notes
# accompanying these entries).
-# + for Silicon Graphics IRIX 5.1, "make irix51" or "irix51x" (no optimize)
-# + for Silicon Graphics IRIX 5.2, "make irix52"
-# + for Silicon Graphics IRIX 5.3, "make irix53" or "irix53x" (no optimize)
-# + for Silicon Graphics IRIX 6.0, "make irix60".
-# + for Silicon Graphics IRIX 6.2, "make irix62".
-# + for Silicon Graphics IRIX 6.3, "make irix63".
-# + for Silicon Graphics IRIX 6.4, "make irix64" or "make irix64gcc".
+# ? for Silicon Graphics IRIX 5.1, "make irix51" or "irix51x" (no optimize)
+# ? for Silicon Graphics IRIX 5.2, "make irix52"
+# ? for Silicon Graphics IRIX 5.3, "make irix53" or "irix53x" (no optimize)
+# ? for Silicon Graphics IRIX 6.0, "make irix60".
+# ? for Silicon Graphics IRIX 6.2, "make irix62".
+# ? for Silicon Graphics IRIX 6.3, "make irix63".
+# ? for Silicon Graphics IRIX 6.4, "make irix64" or "make irix64gcc".
+# + for Silicon Graphics (SGI) IRIX 6.5, "make irix65"
+# + or "make irix65mips2" to force MIPS2, or "make irix65gcc" for GCC.
# + for Silicon Graphics (SGI) IRIX 6.5, "make irix65" or "make irix65mips2"
+# ? for SGI IRIX 6.5 with SSL/TLS, SRP, and ZLIB "make irix65+ssl+srp+zlib"
# ? for Solaris 2.0-2.3 on SPARC or Intel, SunPro CC, "make solaris2x",
# ? or to add SunLink X.25 8.0x support, "make solaris2x25".
-# + for Solaris 2.4 built with gcc, "make solaris24g".
-# + for Solaris 2.0-2.3 on SPARC or Intel, GNU CC, "make solaris2xg".
-# + for Solaris 2.4 with X.25, "make solaris24x25".
-# + for Solaris 2.5 on SPARC or Intel, SunPro CC, "make solaris25".
-# + or to add SunLink X.25 8.0x support, "make solaris25x25".
-# + for Solaris 2.5 on SPARC or Intel, GNU CC, "make solaris25g".
-# + for Solaris 2.6 on SPARC or Intel, "make solaris26".
-# + for Solaris 7 on SPARC or Intel, SunPro CC, "make solaris7".
-# + for Solaris 7 on SPARC or Intel, GNU CC, "make solaris7g".
-# + for Solaris 8 on SPARC or Intel, SunPro CC, "make solaris8".
-# + for Solaris 8 on SPARC or Intel, GNU CC, "make solaris8g".
+# ? for Solaris 2.4 built with gcc, "make solaris24g".
+# ? for Solaris 2.0-2.3 on SPARC or Intel, GNU CC, "make solaris2xg".
+# ? for Solaris 2.4 with X.25, "make solaris24x25".
+# ? for Solaris 2.5 on SPARC or Intel, SunPro CC, "make solaris25".
+# ? or to add SunLink X.25 8.0x support, "make solaris25x25".
+# ? for Solaris 2.5 on SPARC or Intel, GNU CC, "make solaris25g".
+# ? for Solaris 2.6 on SPARC or Intel, "make solaris26".
+# ? for Solaris 7 on SPARC or Intel, SunPro CC, "make solaris7".
+# ? for Solaris 7 on SPARC or Intel, GNU CC, "make solaris7g".
+# ? for Solaris 8 on SPARC or Intel, SunPro CC, "make solaris8".
+# ? for Solaris 8 on SPARC or Intel, GNU CC, "make solaris8g".
# + for Solaris 9 on SPARC (or Intel?), 32-bit, SunPro CC, "make solaris9".
# + for Solaris 9 on SPARC (or Intel?), 32-bit, GNU CC, "make solaris9g".
-# + for Solaris 9 on SPARC (or Intel?), 64-bit, GNU CC, "make solaris9g64".
-# + for Solbourne 4/500 with OS/MP 4 "make sunos4"
-# + for Solbourne 4/500 with OS/MP 4.1 "make sunos41" or "make sunos41c"
+# ? for Solaris 9 on SPARC (or Intel?), 64-bit, GNU CC, "make solaris9g64".
+# + for Solaris 10 on SPARC (or Intel?), 32-bit, SunPro CC, "make solaris10".
+# + for Solaris 10 on SPARC 64-bit, SunPro CC, "make solaris10_64".
+# + for Solaris 10 on SPARC (or Intel?), 32-bit, GNU CC, "make solaris10g".
+# ? for Solaris 10 on SPARC (or Intel?), 64-bit, GNU CC, "make solaris10g64".
+# ? for Solbourne 4/500 with OS/MP 4 "make sunos4"
+# ? for Solbourne 4/500 with OS/MP 4.1 "make sunos41" or "make sunos41c"
# ? for SONY NEWS with NEWS-OS 4.0.1C, "make sonynews"
# ? for SONY NEWS with NEWS-OS 4.1.2C, "make sonynews"
# ? for Sperry/UNISYS 5000/20, UTS V 5.2 3R1, "make sys5"
# For UNISYS SVR3 it might be necessary to "make sys5r3 KFLAGS=-UDYNAMIC"
# ? for Stardent 1520, "make sys5r3"
# ? for Stratus FTX 2.x, try "make ftx" or else "make sys5r4" or "sys5r4sx"
-# + for Stratus FTX 3.x, PA-RISC 1.0 or 2.0, "make ftx" or "make ftxtcp"
+# ? for Stratus FTX 3.x, PA-RISC 1.0 or 2.0, "make ftx" or "make ftxtcp"
# ? for Sun with Sun UNIX 3.5 and gcc, "make sunos3gcc"
# ? for Sun with pre-4.0 SunOS versions, "make bsd" (or appropriate variant)
# ? for Sun with SunOS 4.0, BSD environment, "make sunos4"
# ? for Sun with SunOS 4.0, BSD, with SunLink X.25, make sunos4x25
-# + for Sun with SunOS 4.1 or 4.1.1, BSD environment, "make sunos41"
+# ? for Sun with SunOS 4.1 or 4.1.1, BSD environment, "make sunos41"
# or "make sunos41c" (curses) or "make sunos41gcc" (compile with gcc)
-# + for Sun with SunOS 4.1.x, BSD, with SunLink X.25 7.00 or earlier,
+# ? for Sun with SunOS 4.1.x, BSD, with SunLink X.25 7.00 or earlier,
# "make sunos41x25" or "make sunos41x25c" (curses)
-# + for Sun with SunOS 4.1, 4.1.1, AT&T Sys V R3 environment, "make sunos41s5"
-# + for Sun with SunOS 4.1.2, "make sunos41" or any of its variations.
+# ? for Sun with SunOS 4.1, 4.1.1, AT&T Sys V R3 environment, "make sunos41s5"
+# ? for Sun with SunOS 4.1.2, "make sunos41" or any of its variations.
# NOTE: All SunOS 4.x systems -- Shared libraries are used by default.
# If this causes problems, add -Bstatic to CFLAGS.
# NOTE2: When building C-Kermit under SunOS for the BSD universe,
# or (for models without hardware flow control), "make uteknohwfc"
# ? for Tektronix XD88 series with UTekV OS, "make utekvr3"
# ? for Tri Star Flash Cache with Esix SVR3.2, "make sys5r3"
-# + for Tru-64 UNIX 4.0E, "make tru64-40e"
-# + for Tru-64 UNIX 4.0F, "make tru64-40f"
-# + for Tru-64 UNIX 4.0G, "make tru64-40g"
-# + for Tru-64 UNIX 5.0A, "make tru64-50a"
-# + for Tru-64 UNIX 5.1A, "make tru64-51a"
+# NOTE: The Tru64 builds have been failing since 2010, but "make dec-osf" is OK
+# ? for Tru64 UNIX 4.0E, "make tru64-40e"
+# ? for Tru64 UNIX 4.0F, "make tru64-40f"
+# ? for Tru64 UNIX 4.0G, "make tru64-40g"
+# ? for Tru64 UNIX 5.0A, "make tru64-50a"
+# ? for Tru64 UNIX 5.1A, "make tru64-51a"
+# ? for Tru64 UNIX 5.1B, "make tru64-51b"
# ? for Unistar, "make sys5"
# ? for Unisys S/4040 68040 CTIX SVR3.2 6.4.1, "make ctix" or "make sys5r3"
# ? for Unisys U5000 UNIX SVR3 6.x, "make sys5r3" or "make sys5r3c"
#
# The result should be a runnable program called "wermit" in the current
# directory. After satisfactory testing, you can rename wermit to "kermit"
-# and put it where users can find it.
+# and put it in some directory that's in everybody's PATH, such as
+# /usr/local or /opt/local.
#
# To remove intermediate and object files, "make clean".
# If your C compiler produces files with an extension other than "o",
# for specific details regarding supported versions.
#
# NOTE: OpenSSL 0.9.6 and earlier are not compatible with 0.9.7 and later.
-# C-Kermit code is designed for 0.9.6. To build with 0.9.7 you must add
-# -DOPENSSL_097 to avoid missing symbols in the DES library and to use the
-# entry points that were renamed to avoid conflict with Kerberos 4.
-#
+# C-Kermit code was originally designed for 0.9.6. To build with 0.9.7 you
+# must add -DOPENSSL_097 to avoid missing symbols in the DES library and to
+# use the entry points that were renamed to avoid conflict with Kerberos 4.
+# If you have OpenSSL 0.9.8, add -DOPENSSL_098, which is a synonym for
+# -DOPENSSL_097. If you have 1.0.0 or later, add -DOPENSSL_100, which is
+# another synonym.
+
# In OpenSSL builds add -ldl if you get unresolved references for
# dlopen, dlclose, dlsym, and/or dlerror.
#
-# The following symbols are used to specify library and header file locations
-# Redefine them to the values used on your system by:
-# . editing this file
-# . defining the values on the command line
-# . defining the values in the environment and use the -e option
+# In order to build a secure version of Kermit, you need to know the location
+# of the header (include) files and libraries for the desired form of
+# security. Unless you specify a location, this makefile looks in /usr/local
+# and if the required files are not found, the build fails.
#
+# If the secure headers and libraries are not on your computer, you have
+# to download and install them, for example from http://www.openssl.org .
+#
+# The following symbols are used to specify library and header file locations:
+#
prefix = /usr/local
srproot = $(prefix)
sslroot = $(prefix)
SRPINC=-I$(srproot)/include
SSLLIB=-L$(sslroot)/ssl/lib
SSLINC=-I$(sslroot)/ssl/include
+
+# To override these assignments; for example, if your OpenSSL files are
+# not in /usr/local/ssl, invoke the desired target like this:
+#
+# make solaris9+openssl "SSLINC=-I/opt/openssl-0.9.8k/include" \
+# "SSLLIB=-L/opt/openssl-0.9.8k/lib"
#
-# aix41+krb5+krb4: IBM AIX 4.1 with Kerberos IV and V
-# aix43gcc+krb5+krb4: IBM AIX 4.3 built with gcc, ditto
-# aix43gcc+krb5+krb4+openssl: Ditto, plus OpenSSL (SSL/TLS)
-# aix43gcc+openssl: IBM AIX 4.3 with OpenSSL
+# (don't set the variables and then do "make -e" because that breaks
+# chaining of makefile targets.)
+#
+# Here are some up-to-date secure targets as of Sep 2009:
+#
+# aix+openssl: IBM AIX 4.2 or later with OpenSSL
# freebsd44+srp+openssl FreeBSD 4.4 with SRP and OpenSSL
# freebsd50+openssl FreeBSD 5.0 with OpenSSL
# hpux1100o+openssl: HP-UX 11.xx with OpenSSL
# hpux1100gcc+openssl: HP-UX 11.xx with OpenSSL (build with gcc)
# irix6x+krb5: IRIX 6.x with Kerberos V
# irix65+krb5: etc etc...
-# linux+krb5:
+# solaris9+openssl Solaris 9,10, or 11 with Openssl (Sun cc)
+# solaris9g+openssl Solaris 9,10, or 11 with Openssl (gcc)
+# linux+ssl OpenSSL only
+# linux+krb5+ssl Linux with Kerberos 5 and OpenSSL
+# linux+krb5: Kerberos 5 only
+#
+# The following secure Linux targets have not been updated or tested recently.
# linux+krb5+krb4:
# linux+srp:
# linux+srp+pam:
# linux+krb5+krb4+srp+openssl+zlib+pam:
# linux+krb5+krb4+openssl+shadow+pam:
# linux+krb5+openssl+zlib+shadow+pam:
-# openbsd30+ssl (includes OpenSSL):
-# redhat71, redhat72, redhat73, redhat80, redhat9
-# (Krb5, OpenSSL, Showdow, PAM, Zlib)
+#
+# The following have not been tested recently either and might
+# need adjustment.
+#
+# macosx+krb5+ssl: Mac OS X 10.3.9 or later + OpenSSL and Kerberos 5
+# macosx103+secure: This one is probably redundant
+# netbsd+openssl: NetBSD with OpenSSL
+# openbsd30+ssl: OpenBSD 3.0 with OpenSSL
+# redhat71,redhat72,redhat73,redhat80,redhat9 (Krb5,OpenSSL,Showdow,PAM,Zlib)
# sco32v500net+ssl:
# sco32v505net+ssl:
# solaris2x+krb4:
# sunos41gcc+krb4+openssl+zlib: ditto, plus ZLIB compression
# sunos41gcc+krb4+srp+openssl+zlib: ditto, plus SRP
# sunos41gcc+srp+openssl+zlib:
-# uw7ssl
-#
-##############################################################################
-#
-# NOTES FOR V7 AND 2.X BSD (BASED ON VERSION 4E OF C-KERMIT, 1987):
-#
-# For Unix Version 7, several variables must be defined to the values
-# associated with your system. BOOTNAME=/edition7 is the kernel image on
-# okstate's Perkin-Elmer 3230. Others will probably be /unix. PROCNAME=proc
-# is the name of the structure assigned to each process on okstate's system.
-# This may be "_proc" or some other variation. See <sys/proc.h> for more
-# info on your systems name conventions. NPROCNAME=nproc is the name of a
-# kernel variable that tells how many "proc" structures there are. Again
-# this may be different on your system, but nproc will probably be somewhere.
-# The variable NPTYPE is the type of the nproc variable -- int, short, etc.
-# which can probably be gleaned from <sys/param.h>. The definition of DIRECT
-# is a little more complicated. If nlist() returns, for "proc" only, the
-# address of the array, then you should define DIRECT as it is below. If
-# however, nlist() returns the address of a pointer to the array, then you
-# should give DIRECT a null definition (DIRECT= ). The extern declaration in
-# <sys/proc.h> should clarify this for you. If it is "extern struct proc
-# *proc", then you should NOT define DIRECT. If it is "extern struct proc
-# proc[]", then you should probably define DIRECT as it is below. See
-# ckuv7.hlp for further information.
-#
-# For 2.9 BSD, the makefile may use pcc rather than cc for compiles; that's
-# what the CC and CC2 definitions are for (the current version of the
-# makefile uses cc for both; this was tested in version 4E of C-Kermit and
-# worked OK on the DEC Pro 380, but all bets are off for version 5A). 2.9
-# support basically follows the 4.1 path. Some 2.9 systems use "dir.h" for
-# the directory header file, others will need to change this to "ndir.h".
-#
-# The v7 and 2.9bsd versions assume I&D space on a PDP-11. When building
-# C-Kermit for v7 on a PDP-11, you should probably add the -i option to the
-# link flags. Without I&D space, overlays will be necessary (if available),
-# or code segment mapping (a`la Pro/Venix) if that's available.
-#
-# C-Kermit 5A (and 6.0?) can be built for 2.10 and 2.11BSD, using overlays,
-# but a separate makefile is used because this one is too big.
-#
-##############################################################################
-#
-# V7-specific variables.
-# These are set up for Perkin-Elmer 3230 V7 Unix:
-#
-PROC=proc
-DIRECT=
-NPROC=nproc
-NPTYPE=int
-BOOTFILE=/edition7
-#
-# ( For old Tandy TRS-80 Model 16A or 6000 V7-based Xenix, use PROC=_proc,
-# DIRECT=-DDIRECT, NPROC=_Nproc, NPTYPE=short, BOOTFILE=/xenix )
+# tru64-51b-openssl: Tru64 (Digital) Unix 5.1B with OpenSSL
+# uw7ssl Unixware 7 with SSL
#
###########################################################################
#
SHELL=/bin/sh
###########################################################################
+# (Ancient) UNIX V7-specific variables.
+# These are set up for Perkin-Elmer 3230 V7 Unix:
+#
+PROC=proc
+DIRECT=
+NPROC=nproc
+NPTYPE=int
+BOOTFILE=/edition7
+#
+# ( For old Tandy TRS-80 Model 16A or 6000 V7-based Xenix, use PROC=_proc,
+# DIRECT=-DDIRECT, NPROC=_Nproc, NPTYPE=short, BOOTFILE=/xenix )
+#
+
+###########################################################################
# SAMPLE INSTALLATION SCRIPT
#
# Modify to suit your own computer's file organization and permissions. If
#
# You can also build and install in one step, e.g.:
#
-# make solaris8 install
+# make linux install
#
# If you use the 'install' target to install C-Kermit, it creates an
# UNINSTALL script that can be used to uninstall it.
ckcuni.$(EXT) ck_crp.$(EXT) ck_ssl.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
ckcpro.c wart
+show:
+ @echo prefix=$(prefix)
+ @echo srproot=$(srproot)
+ @echo sslroot=$(sslroot)
+ @echo manroot=$(manroot)
+ @echo K4LIB=$(K4LIB)
+ @echo K4INC=$(K4INC)
+ @echo K5LIB=$(K5LIB)
+ @echo K5INC=$(K5INC)
+ @echo SRPLIB=$(SRPLIB)
+ @echo SRPINC=$(SRPINC)
+ @echo SSLLIB=$(SSLLIB)
+ @echo SSLINC=$(SSLINC)
+ @exit
+
# Install C-Kermit after building -- IMPORTANT: Read the instructions above
# (SAMPLE INSTALLATION SCRIPT). For SSL/TLS versions, ca_certs.pem file
# should be installed in the appropriate place for your OpenSSL library, e.g.:
if test -d $(DESTDIR)$(MANDIR); then\
echo "$(DESTDIR)$(MANDIR) exists...";\
else\
- echo "Creating $(DESTDIR)$(MANDIR)...";\
- mkdir $(DESTDIR)$(MANDIR) || exit 1;\
- chmod 755 $(DESTDIR)$(MANDIR) || exit 1;\
+ echo "Creating $(MANDIR)...";\
+ mkdir $(MANDIR) || exit 1;\
+ chmod 755 $(MANDIR) || exit 1;\
fi;\
- echo "Installing man page...";\
rm -f $(DESTDIR)$(MANDIR)/kermit.$(MANEXT);\
- cp ckuker.nr $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
- chmod 644 $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
+ cp ckuker.nr $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
+ chmod 644 $(DESTDIR)$(MANDIR)/kermit.$(MANEXT) || exit 1;\
echo 'set flag=f\nPrC Removing man pages' >&3;\
echo "RmF $(DESTDIR)$(MANDIR)/kermit.$(MANEXT)" >&3;\
echo 'EfM' >&3;\
makewhat:
@echo 'make what? You must tell which platform to make C-Kermit for.'
- @echo Examples: make linux, make hpux1100, make aix43, make solaris8.
+ @echo Examples: make linux, make aix, make solaris10, make hpux1100.
@echo Please read the comments at the beginning of the makefile.
###########################################################################
#
# Dependencies Section:
-# Normal version
-
wermit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
ckuus7.$(EXT) ckuusx.$(EXT) ckuusy.$(EXT) ckcpro.$(EXT) \
ckusig.$(EXT) ckcuni.$(EXT) ckupty.$(EXT) ckcftp.$(EXT) \
$(LIBS)
-# Version with CONNECT module that uses select() instead of fork()
+# Preferred configuration with select()-based CONNECT
xermit: ckcmai.$(EXT) ckclib.$(EXT) ckucmd.$(EXT) ckuusr.$(EXT) ckuus2.$(EXT) \
ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
ckctel.$(EXT): ckcsym.h ckcdeb.h ckcker.h ckcnet.h ckctel.h ckclib.h
+# ck_off_t: ck_off_t.$(EXT)
+# $(CC) -o ck_off_t ck_off_t.$(EXT)
+
wart: ckwart.$(EXT)
$(CC) $(LNKFLAGS) -o wart ckwart.$(EXT) $(LIBS)
#FreeBSD 3.x with ncurses and uu_lock()
#(Note: uu_lock() goes back to 2.2.2, but not necessarily 2.0)
+#OK 2011/08/20 FreeBSD 3.3
freebsd3:
@echo 'Making C-Kermit $(CKVER) for FreeBSD 3.x with ncurses...'
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
#FreeBSD 4.0 with ncurses and uu_lock(). Note - there is no curses in 4.0.
#ncurses 5.0 is broken requiring us to work around with setbuf().
-freebsd4:
+freebsd40:
@echo 'Making C-Kermit $(CKVER) for FreeBSD 4.x with ncurses...'
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD44 -DCK_NCURSES -DTCPSOCKET -DNOCOTFMC -DFNFLOAT \
-DNONOSETBUF -DUSE_UU_LOCK $(KFLAGS) -O -pipe" \
"LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-#FreeBSD 4.1, as above but without the NONOSETBUF hack and with CK_NEWTERM.
-#This works with ncurses 5.1.
-freebsd41:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.1 with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DUSE_UU_LOCK -DFNFLOAT \
- -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#Default FreeBSD make for C-Kermit 8.0...
-freebsd:
- $(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) \
- KTARGET=$${KTARGET-$(@)} freebsd45
-
-#FreeBSD 4.2, like 4.1.
-freebsd42:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.2...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DUSE_UU_LOCK -DFNFLOAT \
- -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.3, like 4.2.
-freebsd43:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.3...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DUSE_UU_LOCK \
- -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) \
- -O -pipe" "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.4, like 4.3.
-freebsd44:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.4...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 \
- -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.5, like 4.3 and 4.4.
-freebsd45:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.5...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.6, like 4.5
-freebsd46:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.6...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.7, like 4.6
-freebsd47:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.8, like 4.7
-freebsd48:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DFREEBSD48 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 4.9
-freebsd49:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.7...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD47 -DFREEBSD48 -DFREEBSD49 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 5.0, like 4.6
-freebsd50:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0 with ncurses...'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-
-#FreeBSD 5.1
-freebsd51:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0 with ncurses...'
+#FreeBSD 4.1 and above
+#Like FreeBSD 4.0 but without the NONOSETBUF hack and with CK_NEWTERM.
+#NOTE: This target definitely does not work for FreeBSD 3.3 in 9.0.302.
+#and it has not been tested on 4 or 5.
+#OK 2011/06/xx FreeBSD 3.3, 4,4, 4.7, and 8.2
+#OK 2011/08/21 FreeBSD 3.3, 4.4, 6.4, 9.0
+freebsd freebsd41 freebsd72 freebsd5 freebsd6 freebsd7 freebsd8 freebsd9:
+ @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.1 or later...'
+ @if test `uname -r | cut -d . -f 1` -ge 8; then \
+ HAVE_FBSD8='-DFREEBSD8'; \
+ else HAVE_FBSD8=''; fi; \
+ if test `uname -r | cut -d . -f 1` -ge 9; then \
+ HAVE_FBSD9='-DFREEBSD9'; \
+ else HAVE_FBSD9=''; fi; \
+ if test -f /usr/include/utmpx.h ; \
+ then HAVE_UTMPX='-DHAVEUTMPX' ; \
+ else HAVE_UTMPX='' ; fi; \
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DFREEBSD51 \
- -DUSE_STRERROR $(KFLAGS) -O -pipe" \
+ -DFREEBSD4 $$HAVE_FBSD8 $$HAVE_FBSD9 -DUSE_UU_LOCK -DFNFLOAT \
+ $$HAVE_UTMPX -DHERALD=\"\\\" `uname -rs`\\\"\" \
+ -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR $(KFLAGS) \
+ -O2 -pipe"\
"LIBS= -lncurses -lcrypt -lutil -lm $(LIBS)"
-#Secure builds for FreeBSD... gcc required.
+#FreeBSD 5.0 or later with OpenSSL.
+#OK 2011/06/15 FreeBSD 4.7 and 8.2
+#OK 2011/08/20 FreeBSD 9.0-CURRENT
+freebsd+ssl freebsd+openssl freebsd50+openssl:
+ @echo 'Making C-Kermit $(CKVER) for FreeBSD with Kerberos 5...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) freebsd KTARGET=$${KTARGET:-$(@)} "CC = $(CC)" "CC2 = $(CC2)" \
+ KFLAGS="-DCK_AUTHENTICATION -DCK_SSL $(SSLINC) -DZLIB $$OPENSSLOPTION \
+ $$HAVE_DES $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS= -lncurses -lcrypt -lssl -lcrypto -lutil -lm \
+ $(SSLLIB) $$DES_LIB $(LIBS)"; \
+ if [ ! -f ./wermit ] || [ ./ckcmai.o -nt ./wermit ] ; then \
+ echo ""; \
+ echo "If build failed try:"; \
+ echo ""; \
+ echo " make clean ; make $${KTARGET:-$(@)} KFLAGS=-UCK_DES"; \
+ echo ""; \
+ fi
-freebsd44+srp+openssl:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 4.3 with SRP,SSL...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DFREEBSD4 -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 \
- -DCK_AUTHENTICATION -DCK_SRP \
- -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
- -DCK_CURSES -DTCPSOCKET \
- $(SRPINC) $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(SRPLIB) $(SSLLIB) \
- -lncurses -ltermcap -lsrp -lssl -lkrypto -lcrypto \
- -lcrypt "
-
-# The following fragmentary FreeBSD+SLL target was suggested, but it's not
-# clear which version of FreeBSD it applies to.
-#
-# ALL_TARGET= xermit
-# MAKE_ARGS= KTARGET=freebsd \
-# CFLAGS="${CFLAGS} -DBSD44 -DCK_NCURSES -DCK_NEWTERM \
-# -DTCPSOCKET -DNOCOTFMC -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT \
-# -funsigned-char -DTPUTSARGTYPE=int -DUSE_STRERROR -DCKHTTP \
-# -DCK_SSL -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_DES" \
-# LIBS="-lssl -lcrypto -ldes -lncurses -lcrypt -lutil -lm"
-
-#FreeBSD 5.0 with OpenSSL 0.9.7.
-freebsd50+openssl:
- @echo 'Making C-Kermit $(CKVER) for FreeBSD 5.0, ncurses, openssl'
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_NCURSES -DCK_NEWTERM -DTCPSOCKET -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL $(SSLINC) -DZLIB \
- -DFREEBSD4 -DUSE_UU_LOCK -DFNFLOAT -funsigned-char -DTPUTSARGTYPE=int \
- -DFREEBSD41 -DFREEBSD42 -DFREEBSD43 -DFREEBSD44 -DFREEBSD45 \
- -DFREEBSD46 -DFREEBSD50 -DUSE_STRERROR $(KFLAGS) -O -pipe" \
- "LIBS= -lncurses -lcrypt -lssl -lcrypto -lutil -lm $(SSLLIB) $(LIBS)"
-
-#NetBSD - all versions - with curses, not ncurses.
-#Some builds seem to need KFLAGS=-DTPUTSFNTYPE=int, others don't.
-#(Only to get rid of a warning -- the binaries are identical.)
-netbsd:
+#NetBSD 1.4.1 or later with vanity banner automated with uname
+#and automatic inclusion of large file support if it is available.
+#This target tested successfully on NetBSD 1.4.1, 1.5.2, and 2.0.3 (Jan 2006).
+#Fails on NetBSD 2.0 on Sun/3 mc68030 with gcc 3.3.3 unless optimization is
+#disabled on ckcfn2.c ("KFLAGS=-O0") (Letter O Digit Zero).
+#(This could be automated by testing `uname -m` for "sun3".)
+#OK: 2011/06/15 on NetBSD 1.5.2 and 5.1.
+#OK: 2011/08/21 on 5.1.
+netbsd netbsd2 netbsd15 netbsd16 old-netbsd:
@echo Making C-Kermit $(CKVER) for NetBSD with curses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DTPUTSISVOID \
+ "CFLAGS=`grep fseeko /usr/include/stdio.h > /dev/null && \
+ echo '-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'` \
+ -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DHAVE_OPENPTY \
+ -funsigned-char -DHERALD=\"\\\" NetBSD `uname -r`\\\"\" \
-DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
-
-#NetBSD 1.5.x in which the return type of the function pointer that is the
-#third argument of tputs() was changed from void to int... The regular NetBSD
-#target builds OK here but this one eliminates the (harmless) warning.
-netbsd15:
+ "LIBS= -lcurses -lcrypt -lm -lutil $(LIBS)"
+
+#NetBSD 1.4.1 or later with OpenSSL
+#OK: 2011/06/15 on NetBSD 5.1 (but not 1.5.2 with OpenSSL 0.9.5a)
+#OK: 2011/08/21 on 5.1.
+netbsd+ssl netbsd+openssl:
+ @echo 'Making C-Kermit $(CKVER) for NetBSD+OpenSSL SSLLIB=$(SSLLIB)'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) netbsd KTARGET=$${KTARGET:-$(@)} "CC = $(CC)" "CC2 = $(CC2)" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_CAST $$HAVE_DES \
+ -DCK_SSL -DCK_PAM -DZLIB -DNO_DCL_INET_ATON $$OPENSSLOPTION \
+ $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS= -L/usr/pkg/lib -R/usr/pkg/lib -lssl $$DES_LIB -lcurses \
+ -lcrypto -lcrypt -lz -lm -lpam -lutil $(LIBS)"
+
+#NetBSD with MIT Kerberos 5:
+# OK 2011/06/15 (once K5INC and K5LIB were set right).
+# NOT OK for Heimdal - Heimdal Kerberos support in C-Kermit needs work.
+# OK: 2011/08/21 on 5.1.
+netbsd+krb5:
+ @echo 'Making C-Kermit $(CKVER) for NetBSD with Kerberos 5...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) netbsd KTARGET=$${KTARGET:-$(@)} "CC = $(CC)" "CC2 = $(CC2)" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_KERBEROS -DKRB5 \
+ -DCK_CAST $$HAVE_DES -DNOFTP_GSSAPI $(K5INC) $(K5INC)/krb5 \
+ $(KFLAGS)" \
+ "LIBS= $(K5LIB) -L/usr/pkg/lib -R/usr/pkg/lib -lcurses $$DES_LIB \
+ -lcrypto -lgssapi -lkrb5 -lm -lutil $(LIBS)"
+
+# NetBSD - With Kerberos 5 and SSL and Zlib.
+# OK: 2011/08/21 on 5.1 with MIT Kerberos.
+netbsd+krb5+ssl netbsd+krb5+openssl+zlib:
+ @echo 'Making C-Kermit $(CKVER) for NetBSD+OpenSSL+Kerberos5...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) netbsd KTARGET=$${KTARGET:-$(@)} "CC = $(CC)" "CC2 = $(CC2)" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_CAST $$HAVE_DES \
+ -DCK_KERBEROS -DKRB5 -DNOFTP_GSSAPI $(K5INC) $(K5INC)/krb5 \
+ -DCK_SSL -DCK_PAM -DZLIB -DNO_DCL_INET_ATON $$OPENSSLOPTION \
+ $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS= $(K5LIB) -L/usr/pkg/lib -R/usr/pkg/lib -lssl $$DES_LIB \
+ -lcrypto -lcrypt -lgssapi -lkrb5 -lz -lm -lpam -lutil -lcurses $(LIBS)"
+
+#Special Security Enhanced NetBSD target with SRP, SSL, and zlib support.
+#To build this, you need to BUILD the pkgsrc srp_client package. After
+#you build it, you must go into work/srp-x.y.z/libkrypto and "bmake install"
+#then go to work/srp-x.y.z/libsrp and "bmake install". As of 2005Q3, the
+#pkgsrc install only installed the statically linked client applications. You
+#need to manually install the libraries to build your own applications.
+#NOT TESTED RECENTLY - probably needs work.
+netbsd+ssl+srp+zlib:
@echo Making C-Kermit $(CKVER) for NetBSD with curses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DNETBSD15 \
- -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
-
-#NetBSD 1.6 - like 1.5.x but with vanity banner saying 1.6.
-netbsd16:
- @echo Making C-Kermit $(CKVER) for NetBSD with curses...
- $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR \
- -DNETBSD15 -DNETBSD16 \
- -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
- "LIBS= -lcurses -lcrypt -lm $(LIBS)"
+ -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DHAVE_OPENPTY \
+ -I/usr/include/openssl -I/usr/pkg/include \
+ -DCK_AUTHENTICATION -DCK_SRP -DPRE_SRP_1_4_5 -DCK_ENCRYPTION \
+ -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DZLIB -DFNFLOAT $(KFLAGS) -O" \
+ "LIBS= -L/usr/pkg/lib -R/usr/pkg/lib -lcurses -lsrp -lgmp -ldes \
+ -lssl -lkrypto -lcrypto -lcrypt -lz -lm -lutil $(LIBS)"
+
+#NetBSD with curses left out (e.g. for use as IKSD).
+netbsdnc:
+ @echo Making C-Kermit $(CKVER) for NetBSD with no curses...
+ $(MAKE) CC=$(CC) CC2=$(CC2) netbsd KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DNOCURSES"
#NetBSD with ncurses requested explicitly rather than curses-which-is-ncurses
netbsdn:
- @echo Making C-Kermit $(CKVER) for NetBSD with ncurses...
+ @echo Making C-Kermit $(CKVER) for NetBSD with curses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DBSD44 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC -DCK_DTRCD \
- -DCK_DTRCTS -DFNFLOAT -DUSE_STRERROR -DTPUTSISVOID -DTPUTSARGTYPE=int \
- $(KFLAGS) -O" \
- "LIBS= -L/usr/pkg/lib -lncurses -lcrypt -lm $(LIBS)"
+ "CFLAGS=`grep fseeko /usr/include/stdio.h > /dev/null && \
+ echo '-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'` \
+ -DBSD44 -DCK_CURSES -DTCPSOCKET -DUSE_STRERROR -DHAVE_OPENPTY \
+ -DHERALD=\"\\\" NetBSD `uname -r`\\\"\" \
+ -DCK_DTRCD -DCK_DTRCTS -DTPUTSARGTYPE=int -DFNFLOAT $(KFLAGS) -O" \
+ "LIBS= -L/usr/pkg/lib -lncurses -lcrypt -lm -lutil $(LIBS)"
-#OpenBSD - All versions.
+#OpenBSD before 2.3.
#Uses ncurses as its curses so use -ltermlib, not -ltermcap
#But it doesn't use uu_lock() which was introduced in OpenBSD 2.3.
#For that use the next entry.
# -DUSE_UU_LOCK and -lutil added for uu_lock()
# -DNDSYSERRLIST changed to -DUSE_STRERROR
#If this gives you trouble use the previous entry.
+#NOTE: The openbsd and openbsd+ssl should be reworked to be like the
+#corresponding FreeBSD and NetBSD targets. The mirbsd targets should
openbsd:
@echo Making C-Kermit $(CKVER) for OpenBSD 2.3 or later...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
+ -DHERALD=\"\\\" OpenBSD `uname -r`\\\"\" \
+ -DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR $(KFLAGS) -O" \
+ "LIBS= -lcurses -lutil -lm"
+
+#Better to chain to the openbsd target but...
+mirbsd:
+ @echo Making C-Kermit $(CKVER) for OpenBSD 2.3 or later...
+ $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
+ -DHERALD=\"\\\" MirBSD `uname -r`\\\"\" \
-DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR $(KFLAGS) -O" \
"LIBS= -lcurses -lutil -lm"
# -DUSE_UU_LOCK and -lutil added for uu_lock()
# -DNDSYSERRLIST changed to -DUSE_STRERROR
#If this gives you trouble use the previous entry.
-openbsd30+ssl:
+openbsd+ssl:
@echo Making C-Kermit $(CKVER) for OpenBSD 3.0 or later...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
+ -DHERALD=\"\\\" OpenBSD `uname -r`\\\"\" \
-DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR -DCK_AUTHENTICATION \
-DCK_SSL $(KFLAGS) -O" \
"LIBS= -lcurses -lutil -lm -lssl -lcrypto"
+mirbsd+ssl:
+ @echo Making C-Kermit $(CKVER) for OpenBSD 3.0 or later...
+ $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DBSD44 -DCK_CURSES -DCK_NEWTERM -DTCPSOCKET -DOPENBSD \
+ -DHERALD=\"\\\" MirBSD `uname -r`\\\"\" \
+ -DUSE_UU_LOCK -DFNFLOAT -DUSE_STRERROR -DCK_AUTHENTICATION \
+ -DCK_SSL -DNO_DCL_INET_ATON $(KFLAGS) -O" \
+ "LIBS= -lcurses -lutil -lm -lssl -lcrypto"
+
# make 386bsd 0.0new, posix
# for 386bsd 0.1.24, change /usr/include/termios.h to #define NCCS if
# _POSIX_SOURCE is #defined. (source: lewine, posix prgmrs guide, o`reilly)
-DLOCK_DIR=\\\"/var/spool/lock\\\" \
$(KFLAGS) -O" "LNKFLAGS = -s" "LIBS = -lcurses -ltermcap"
+# Mac OS X 10 early versions.
+# For 10.3.9 and later, use the macosx target below.
+
#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP but no curses.
-macosx10:
+oldmacosx10:
@echo Making C-Kermit $(CKVER) for `uname -s`...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DMACOSX10 -DTCPSOCKET -DUSE_STRERROR -O $(KFLAGS)"
#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP and curses.
#Note: curses must be obtained separately. See next entry for ncurses.
#Add "LIBS = -lcurses -ltermcap" if necessary (but reportedly it is not).
-macosx10c:
+oldmacosx10c:
@echo Making C-Kermit $(CKVER) for `uname -s` + curses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DMACOSX10 -DCK_CURSES -DTPUTSFNTYPE=void -DTPUTSISVOID \
#Mac OS X 1.0 (Rhapsody, Darwin) -- TCP/IP and ncurses.
#Note: ncurses must be obtained separately.
#In the event of trouble with this one try the next one.
-macosx10nc:
+oldmacosx10nc:
@echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DMACOSX10 -DCK_NCURSES -DTCPSOCKET -DUSE_STRERROR -O \
$(KFLAGS)" "LIBS= -lncurses $(LIBS)"
#Mac OS X 10.2 (Jaguar) ncurses.
-macosx102nc:
+oldmacosx102nc:
@echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DMACOSX10 -DCK_NCURSES -DTCPSOCKET -DUSE_STRERROR -O \
#The problem here is that if curses.h also exists, it conflicts with
#ncurses.h and and we have fatal errors. If this happens to you, then
-#try this entry.
-macosx10ncx:
+#try this target.
+oldmacosx10ncx:
@echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
@rm -f ./curses.h; touch ./curses.h
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
@rm -f ./curses.h
#Mac OS X 10.3 (Panther) - Assumes ncurses is installed.
-macosx103:
+oldmacosx103:
@echo Making C-Kermit $(CKVER) for `uname -s` + ncurses...
$(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS= -DMACOSX10 -DMACOSX103 -DCK_NCURSES -DTCPSOCKET \
+ "CFLAGS= -DMACOSX10 -DMACOSX103 -DCK_NCURSES -DTCPSOCKET -DCKHTTP \
-DUSE_STRERROR -DUSE_NAMESER_COMPAT -O \
$(KFLAGS) " "LIBS= -lncurses -lresolv $(LIBS)"
-macosx103nc:
- $(MAKE) MAKE=$(MAKE) CC=$(CC) CC2=$(CC2) macosx103
+#Mac OS X 10.3 (Panther) with Kerberos 5 and SSL, assumes ncurses is installed.
+oldmacosx103+secure:
+ @echo Making Secure C-Kermit $(CKVER) for `uname -s` + ncurses...
+ $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DMACOSX10 -DMACOSX103 -DCK_NCURSES -DTCPSOCKET \
+ -DUSE_STRERROR -DUSE_NAMESER_COMPAT -O -DCK_PAM \
+ -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DZLIB \
+ -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL \
+ $(KFLAGS) " "LIBS= -lssl -lcrypto -lkrb5 -lcom_err \
+ -lk5crypto -lgssapi_krb5 -lpam -lncurses -lresolv $(LIBS)"
+
+# THIS IS THE MAIN MAC OS X TARGET (the next one is for Kerberos/SSL builds).
+# Use this target for 10.3.9 (or maybe earlier) through 10.6 (maybe later)
+# on both Power and Intel architectures. This one uses utmp.h on 10.4 and
+# earlier and utmpx.h on 10.5 onwards.
+# Note: Mac OS X 10.5 and earlier are 32-bit; 10.6 and later 64-bit.
+# Note 2: As of C-Kermit 9.0 -NOUUCP is included by default because
+# Mac OS X doesn't support UUCP. To undo this, use KFLAGS=-UNOUUCP.
+#OK: 2011/06/14 (for 10.4.11, 10.5.8, 10.6.7)
+macosx macosx10 macosx10.3.9 macosx10.4 macosx10.5 macosx10.6:
+ @MACOSNAME=`/usr/bin/sw_vers -productName`; \
+ MACOSV=`/usr/bin/sw_vers -productVersion`; \
+ echo Making C-Kermit $(CKVER) for $$MACOSNAME $$MACOSV... ; \
+ MACCPU=$$HOSTTYPE; \
+ if test `uname -r | cut -d . -f 1` -gt 8; \
+ then if test -f /usr/include/utmpx.h ; \
+ then HAVE_UTMPX='-DHAVEUTMPX -D_UTMPX_COMPAT' ; \
+ else HAVE_UTMPX='' ; fi ; fi; \
+ $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DMACOSX10 -DMACOSX103 -DCK_NCURSES -DTCPSOCKET -DCKHTTP \
+ -DUSE_STRERROR -DUSE_NAMESER_COMPAT -DNOCHECKOVERFLOW -DFNFLOAT \
+ -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 $$HAVE_UTMPX \
+ -funsigned-char -DNODCLINITGROUPS \
+ -DNOUUCP -O -DHERALD=\"\\\" $${MACOSNAME} $${MACOSV}\\\"\" \
+ -DCKCPU=\"\\\"$${MACCPU}\\\"\" \
+ $(KFLAGS)" "LIBS= -lncurses -lresolv $(LIBS)"
+
+# Mac OS X 10.3.9 or later with Kerberos 5 and OpenSSL...
+# NOTE: Apple has removed all support for DES in OpenSSL and Kerberos
+# in Mac OS X 10.6 and later. The DES flags are included or left out
+# automatically based on the Mac OS X version number.
+# See note about UUCP in previous target.
+#OK: 2009/11/16 (for 10.3.9, 10.4.11, 10.5.8, 10.6.1)
+#OK: 2011/06/14 (for 10.4.11, 10.5.8, 10.6.7)
+macosx+krb5+ssl macosx10.5+krb5+ssl macosx10.6+krb5+ssl \
+macosx+krb5+openssl macosx10.5+krb5+openssl macosx10.6+krb5+openssl:
+ @MACOSNAME=`/usr/bin/sw_vers -productName`; \
+ MACOSV=`/usr/bin/sw_vers -productVersion`; \
+ echo Making C-Kermit $(CKVER) for $$MACOSNAME $$MACOSV... ; \
+ MACCPU=$$HOSTTYPE; \
+ if test `uname -r | cut -d . -f 1` -gt 8; \
+ then if test -f /usr/include/utmpx.h ; \
+ then HAVE_UTMPX='-DHAVEUTMPX -D_UTMPX_COMPAT' ; \
+ else HAVE_UTMPX='' ; fi ; fi; \
+ if test `uname -r | cut -d . -f 1` -eq 7; \
+ then IS_MACOSX103='-DMACOSX103' ; \
+ else IS_MACOSX103='' ; fi; \
+ case $$MACOSV in \
+ 10.[012345].*) HAVE_DES='-DCK_DES -DLIBDES' ;; \
+ *.*) HAVE_DES='' ;; \
+ esac ; \
+ if test -x /usr/bin/krb5-config ; \
+ then HAVE_KRB5CONFIG=`/usr/bin/krb5-config --libs krb5 gssapi` ; \
+ else HAVE_KRB5CONFIG='-lgssapi_krb5 -lkrb5 -lk5crypto \
+ -lcom_err -lresolv' ; fi; \
+ $(MAKE) CC=$(CC) CC2=$(CC2) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DMACOSX10 $$IS_MACOSX103 -DCK_NCURSES -DTCPSOCKET \
+ -DUSE_STRERROR -DUSE_NAMESER_COMPAT -DNOCHECKOVERFLOW -DFNFLOAT \
+ -DCKHTTP -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 $$HAVE_UTMPX \
+ -DNODCLINITGROUPS -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DZLIB \
+ -DCK_ENCRYPTION -DCK_CAST -DCK_SSL -DOPENSSL_098 $$HAVE_DES \
+ -DNOUUCP -DHERALD=\"\\\" $${MACOSNAME} $${MACOSV}\\\"\" \
+ -DCKCPU=\"\\\"$${MACCPU}\\\"\" \
+ -funsigned-char -O $(KFLAGS)" \
+ "LIBS= $$HAVE_KRB5CONFIG -lssl -lcrypto -lpam -lncurses $(LIBS)"
+
+# End of Mac OS X Section
#Acorn RISCiX, based on ...
#Berkeley Unix 4.2 or 4.3 with lock directory /usr/spool/uucp/LCK/LCK..ttyxx,
@echo 'Making C-Kermit $(CKVER) for Convergent CTIX 6.4.1'
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DSVR3 -DDIRENT -DTCPSOCKET -DHDBUUCP -DCK_CURSES \
- -DNONAWS -DNOLEARN $(KFLAGS) -XO" \
+ -DNONAWS -DNOLEARN -DNOLONGLONG $(KFLAGS) -XO" \
"LNKFLAGS=-s" "LIBS=-lsocket -lcurses -lc_s"
mcs -d wermit
@echo Making C-Kermit $(CKVER) for Harris Night Hawk CX/UX 6.1 or later
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS=-DPOSIX -DTCPSOCKET -DHDBUUCP -DPID_T=pid_t -DWAIT_T=int \
- -Dd_ino=d_fileno -DUID_T=uid_t -DGID_T=gid_t $(KFLAGS) -Xa \
- -O3 -g" "LNKFLAGS=-O3"
+ -Dd_ino=d_fileno -DUID_T=uid_t -DGID_T=gid_t -DNOLONGLONG \
+ $(KFLAGS) -Xa -O3 -g" "LNKFLAGS=-O3"
#Intergraph Clipper, CLIX, job control, HDB UUCP.
clix:
-DTCPSOCKET $(KFLAGS)" "LNKFLAGS = -s"
#OSF/1
-osf:
+osf osf1:
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD4 -DOSF -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
-DCK_CURSES -DCK_RTSCTS -DFNFLOAT $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS = -lbsd -lcurses -ltermcap -lm"
+ "LNKFLAGS = -s" "LIBS = $(LIBS) -lbsd -lcurses -ltermcap -lm"
#DEC OSF/1 V1.0-1.3 on DECstation, VAX, Alpha, or PC.
-dec-osf:
+dec-osf dec-osf1:
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DBSD4 -DOSF -DOSF13 -D_BSD -DTCPSOCKET -DCK_ANSIC -DSIG_V \
-DNOREALPATH -DNOIKSD -DCK_CURSES -DCK_RTSCTS -DFNFLOAT -DNODEBUG \
-unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)"
tru64-51b:
- @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.1A...
+ @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.1B...
$(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
"KFLAGS= -DTRU64 -DOSF50 -DOSF51A -DOSF51B -DHDBUUCP \
-unsigned -std1 -O3 -Olimit 2400 $(KFLAGS)"
+# Added 5.1b version with OpenSSL - CDW 6-13-2005...
+tru64-51b+openssl:
+ @echo Making C-Kermit $(CKVER) for Tru64 UNIX 5.1b
+ @echo including OpenSSL...
+ $(MAKE) CC=$(CC) CC2=$(CC2) osf KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS= -DTRU64 -DOSF50 -DOSF51A -DOSF51B -DHDBUUCP \
+ -unsigned -std1 -O3 -Olimit 2400 \
+ -DCK_AUTHENTICATION -DCK_SSL $(SSLINC) $(KFLAGS)" \
+ "LIBS= $(SSLLIB) -rpath $(sslroot)/ssl/lib -lssl -lcrypto"
+
du50:
$(MAKE) CC=$(CC) CC2=$(CC2) tru64-50a KTARGET=$${KTARGET:-$(@)}
#NeXTSTEP 3.3.
#Includes fullscreen file transfer display and TCP/IP.
+# You might have to add 1 line to 1 NeXT header file <ip.h>
+# to declare n_long as u_long by adding #include <bsd/netinet/in_systm.h>
+
next33:
@echo Making C-Kermit $(CKVER) for NeXTSTEP 3.3...
$(MAKE) xermit CC=$(CC) CC2=$(CC2) KTARGET=$${KTARGET:-$(@)} \
$(MAKE) "MAKE=$(MAKE)" CC=$(CC) CC2=$(CC2) bsdi \
KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DBSDI2 -DBSDI3 -DBSDI4 -DTPUTSFNTYPE=void -DTPUTSISVOID \
- -m486 $(KFLAGS)"
+ -DCKHTTP -m486 $(KFLAGS)"
# (old name for the above)
bsdiposix:
-DUSE_LSTAT -DFNFLOAT -Nn2500 -Np1000 -Wq,-SJ2 -a -w $(KFLAGS)" \
"LIBS = -lm $(LIBS)" "LNKFLAGS = -s"
+#### IBM RT PC - these targets were last verified in C-Kermit 8.0.211.
+
#IBM RT PC with AIX 2.2.1 + curses
rtaixc:
$(MAKE) rtaix CC=$(CC) CC2=$(CC2) "KFLAGS=-DCK_CURSES" "LIBS=-lcurses"
"CFLAGS= -DBSD4 -DTCPSOCKET -DNOREALPATH -DNOIKSD -DNOPUTENV \
$(KFLAGS) -U__STDC__" "LNKFLAGS = -s"
+#### IBM AIX. The first two targets should work for any version of AIX
+#### from 4.2 onwards. The ones after that are for older versions or
+#### specific configurations, and/or with gcc.
+
+# This one should work for any AIX 4.2 or later: "make aix".
+# Other tags are for compatibility with old makefile targets.
+#OK: 2011/06/11
+aix aix42 aix43 aix44 aix45 aix50 aix51 aix52 aix53 aix54 aix61:
+ @echo Making C-Kermit $(CKVER) for IBM AIX...
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DAIXRS -DAIX41 -DAIX42 -DSVR4 -DSTERMIOX -DTCPSOCKET \
+ -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DFNFLOAT \
+ -DSELECT -DSELECT_H -DNOGETUSERSHELL -qmaxmem=16000 -O \
+ -DCKCPU=\\\"`uname -p`\\\" \
+ -DHERALD=\"\\\" IBM AIX `uname -v`.`uname -r`\\\"\" \
+ -D_LARGE_FILES $(KFLAGS)" "LNKFLAGS = -s" "LIBS=-lcurses -lm"
+
+# Same but using gcc instead of cc
+# This works but we get "gcc: unrecognized option '-qmaxmem-..'" each module.
+aixg:
+ @echo "Using gcc..."
+ $(MAKE) aix KTARGET=$${KTARGET:-$(@)} \
+ CC=gcc CC2=gcc "KFLAGS=-pipe -funsigned-char"
+
+# AIX 4.2 or later with OpenSSL 0.9.7 or later: "make aix+ssl"
+# For earlier OpenSSL remove -DOPENSSL_097 or add "KFLAGS=-UOPENSSL_097".
+# Synonym target names added to cover old redundant targets that were removed.
+# If SSL is not installed in the /usr/local tree (see SSLINC and SSLLIB
+# definitions near the top), you can specify the locations in your make
+# command as in this example:
+#
+# SSLINC=-I/opt/ssl/include SSLLIB=-L/opt/ssl/lib make -e aix+ssl
+#
+# To build with gcc use "make aix CC=gcc CC2=gcc", or "make aixg"
+#
+#OK: 2011/06/15
+aix+ssl aix51+openssl aix52+openssl aix53+openssl:
+ @echo "Making C-Kermit $(CKVER) for IBM AIX with OpenSSL..."
+ @echo "SSLINC=$(SSLINC) SSLLIB=$(SSLLIB)"
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ CC=$(CC) CC2=$(CC2) \
+ "CFLAGS=-DAIXRS -DAIX41 -DAIX42 -DSVR4 -DSTERMIOX -DTCPSOCKET \
+ -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DFNFLOAT \
+ -D_LARGE_FILES -DSELECT -DSELECT_H -DNOGETUSERSHELL \
+ -DCKCPU=\\\"`uname -p`\\\" \
+ -DHERALD=\"\\\" IBM AIX `uname -v`.`uname -r`\\\"\" \
+ -DCK_AUTHENTICATION -DCK_SSL -DOPENSSL_097 $(SSLINC) $(KFLAGS)" \
+ "LNKFLAGS=-s" "LIBS=$(SSLLIB) -lssl -lcrypto -lcurses -lm -lcrypt"
+
+# AIX 5.3 or 6.1 or later with IBM OpenSSL, which is always in the directories
+# shown below so you don't have to set SSLINC and SSLLIB. If for some reason
+# the SSL include files and libraries are not in the places assumed, then use
+# "make aix+ssl" (just above) and set SSLINC and SSLLIB to indicate where the
+# SSL files are. To build with gcc use "make aix+ibmssl CC=gcc CC2=gcc".
+aix+ibmssl:
+ @echo "Making C-Kermit $(CKVER) for IBM AIX 6.1 with OpenSSL..."
+ @echo "If this fails use 'make aix+ss' and specify SSLINC and SSLLIB"
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ CC=$(CC) CC2=$(CC2) \
+ "CFLAGS=-DAIXRS -DAIX41 -DAIX42 -DSVR4 -DSTERMIOX -DTCPSOCKET \
+ -DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DFNFLOAT \
+ -D_LARGE_FILES -DSELECT -DSELECT_H -DNOGETUSERSHELL \
+ -DCKCPU=\\\"`uname -p`\\\" \
+ -DHERALD=\"\\\" IBM AIX `uname -v`.`uname -r`\\\"\" \
+ -DCK_AUTHENTICATION -DCK_SSL -DOPENSSL_098 \
+ -I/usr/include/openssl $(KFLAGS)" \
+ "LNKFLAGS=-s" \
+ "LIBS=-L/usr/lib/openssl -lssl -lcrypto -lcurses -lm -lcrypt"
+
+# Old AIX versions...
+
#IBM AIX 3.0, 3.1, or 3.2 for RISC System/6000.
rs6000:
@echo Making C-Kermit $(CKVER) for IBM AIX 3.0 or 3.1, RS/6000...
"LNKFLAGS = -bI:/lib/pse.exp" "LIBS=-lcurses -lodm -lcfg"
-@echo "\e]0;kermit done\a\c"
-#AIX 4.2 -- Must have CK_NEWTERM or echoing is lost after curses.
-# Add -bbigtoc in case ld fails with TOC overflow.
-aix42:
+#AIX 4.2 -- Use this target if the regular "make aix" doesn't work.
+# Must have CK_NEWTERM or echoing is lost after curses.
+# Add -bbigtoc in case ld fails with TOC overflow. As of C-Kermit 8.0.212,
+# all AIX builds 4.2 and later include large file support.
+oldaix42:
@echo Making C-Kermit $(CKVER) for IBM AIX 4.2 or higher...
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DAIXRS -DAIX41 -DAIX42 -DSVR4 -DSTERMIOX -DTCPSOCKET \
-DDIRENT -DCK_ANSIC -DCLSOPN -DCK_CURSES -DCK_NEWTERM -DFNFLOAT \
- -DSELECT -DSELECT_H -DNOGETUSERSHELL -qmaxmem=16000 -O $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS=-lcurses -lm"
+ -DSELECT -DSELECT_H -DNOGETUSERSHELL -qmaxmem=16000 -O \
+ -DCKCPU=\\\"`uname -p`\\\" \
+ -DHERALD=\\\"\ IBM\ AIX\ `uname -v`.`uname -r`\\\" \
+ -D_LARGE_FILES $(KFLAGS)" "LNKFLAGS = -s" "LIBS=-lcurses -lm"
-#AIX 4.3 -- Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
+#AIX 4.3 - Use this target if the regular "make aix" doesn't work.
+# Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
# -bbigtoc needed on some systems but not others to avoid TOC overflow.
# "man ld" says -bbigtoc makes program run slower.
-aix43:
+oldaix43:
@echo Making C-Kermit $(CKVER) for IBM AIX 4.3 or higher...
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DAIXRS -DAIX41 -DAIX43 -DSVR4 -DSTERMIOX -DTCPSOCKET \
-DSTERMIOX -DTCPSOCKET -DFNFLOAT -DNOGETUSERSHELL $(KFLAGS)" \
"LIBS= -L. -lcurses -bloadmap -bnoquiet"
-
#AIX 4.3 with MIT Kerberos 5 and Kerberos 4 compatibility mode
# Must NOT have CK_NEWTERM or else C-Kermit hangs after curses.
# -mminimal-toc needed on some systems but not others to avoid TOC overflow.
-DCK_AUTHENTICATION -DCK_SSL -funsigned-char $(SSLINC) $(KFLAGS)" \
"LIBS=$(SSLLIB) -lssl -lcrypto -lcurses -lm -lcrypt"
-aix44:
- $(MAKE) aix42 "KFLAGS=-DAIX44 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix45:
- $(MAKE) aix42 "KFLAGS=-DAIX45 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix50:
- $(MAKE) aix42 "KFLAGS=-DAIX50 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix51:
- $(MAKE) aix42 "KFLAGS=-DAIX51 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix52:
- $(MAKE) aix42 "KFLAGS=-DAIX52 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
-aix53:
- $(MAKE) aix42 "KFLAGS=-DAIX53 -qmaxmem=20000 $(KFLAGS)" \
- KTARGET=$${KTARGET:-$(@)}
-
aix44gcc:
$(MAKE) aix43g "KFLAGS=-DAIX44 $(KFLAGS)" \
KTARGET=$${KTARGET:-$(@)}
# /var/spool/ should be a symbolic link to /usr/spool/.
# ... or 'make xermit "CC= /usr/ucb/cc " \'
# Note: "xermit" means use the select() version of the CONNECT module.
+# Note for C-Kermit 9.0: Reportedly 'you need to modify the sys/ioctl.h
+# include file, i.e. comment out the "struct winsize" and "struct
+# ttysize". Otherwise there will be a conflict with sys/ttycom.h (included by
+# termios.h) which also declares these structs. But you need both includes.'
sunos41:
@echo Making C-Kermit $(CKVER) for SunOS 4.1 / BSD...
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
#As above, but compiled with gcc. Gives 24-32K size reduction
#with gcc 2.1 or 2.2.2. CAUTION: make sure "fixincludes" has been run on
-#the include files, so gcc's are in sync with the regular Sun ones!
+#the include files, so gcc's are in sync with the regular Sun ones.
#This includes the curses library for fullscreen file transfer display.
#NDGPWNAM needed for GCC 2.5.6, not needed for 2.4.0, but it's uncertain
#whether it will do any harm for 2.4.0 compilation -- if so, remove it.
"CFLAGS = -O -Usun -DSVR4 -DSOLARIS -DDIRENT -DHDBUUCP -DFNFLOAT \
-DSELECT -DNODEBUG -DSTERMIOX $(KFLAGS)" "LIBS = -lm" "LNKFLAGS = -s"
+#Solaris 2.0 - 2.4, SunPro compiler, includes curses and TCP/IP.
+#When using SUNWspro CC 2.0.1 under Solaris 2.3, be sure all cc patches
+#are applied, otherwise corrupt or truncated object files can result.
+#To build, set your PATH as follows:
+# /usr/local/bin:/usr/bin:/opt/SUNWspro/bin:/usr/ccs/bin:\
+# /usr/ucb:/usr/sbin:/sbin:.
+# or (depending on where the compiler has been installed):
+# /usr/openwin/bin:/export/home/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/usr/bin.
+#For additional optimization try using "-fast -xO4 -xdepend".
+solaris2x:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
+ -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
+ "LNKFLAGS = -s" "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv"
+
+#as above but configured for Kerberos IV
+solaris2x+krb4:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.x, SunPro cc, krb4...'
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
+ -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET \
+ -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 \
+ -DCK_ENCRYPTION -DCK_DES -DCK_CAST $(K4INC) $(KFLAGS)" \
+ "LNKFLAGS = -s" \
+ "LIBS= $(K4LIB) -ltermlib -lsocket -lnsl -lm -lresolv -lkrb -ldes"
+
#C-Kermit for Solaris 2.0-2.4 compiled with gcc, includes curses and TCP/IP.
#Change -O2 to -O if -O2 gives trouble.
#Remove -Usun if it causes trouble.
#Ditto but with GCC 3.1 in which you have to specify 32-bit with -m32.
#In Solaris 9 (and maybe 8) you'll also need specifiy the Library path.
-#Reportedly this can't be done here, but only with:
+#Reportedly this can be done here, but only with:
# crle -l /usr/lib:/usr/local/ssl/lib
#prior to building. Note: 64-bit not tested with SSL.
#For no-crypto 64-bit builds see the solaris9g64 target.
$(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} \
solaris2xg "KFLAGS=-DSOLARIS24 -DPOSIX_CRTSCTS $(KFLAGS)"
-#Solaris 2.5 built with gcc
-solaris25g:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+#Solaris 2.0-2.3, SunPro compiler, with SunLink X.25 support.
+#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
+#exists and can be dynamically linked.
+#NOTE: Do not change target to xermit -- it doesn't support X.25.
+solaris2x25:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.x+X.25 with SunPro cc...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DDIRENT \
+ -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DNOLEARN \
+ -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
+ "LNKFLAGS = -s" \
+ "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
+ -lsockx25 -lsocket -lnsl -lm -lresolv"
-#Solaris 2.5 built with gcc and Kerberos IV
-solaris25g+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+#Solaris 2.0-2.4, gcc, SunLink X.25 added.
+#NOTE: Can't use xermit target with X.25.
+solaris2xgx25:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.x + X.25 with GNU cc...'
+ @echo 'Please read the comments that accompany the solaris2xg entry.'
+ $(MAKE) wermit CC=gcc CC2=gcc KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DSUNX25 \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET -DFNFLOAT \
+ -DNOLEARN $(KFLAGS)" \
+ "LIBS= -ltermlib -lm -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
+ -lsockx25 -lsocket -lnsl"
-#Solaris 2.5 built with gcc and Kerberos V/IV, SSL, ...
-solaris25g+krb5+krb4+openssl+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+#Solaris 2.4, SunPro compiler, with SunLink X.25 support.
+#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
+#exists and can be dynamically linked.
+solaris24x25:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.4+X.25 with SunPro cc...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DSOLARIS24 -DDIRENT -DNOLEARN \
+ -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DPOSIX_CRTSCTS \
+ -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
+ "LNKFLAGS = -s" \
+ "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
+ -lsockx25 -lsocket -lnsl -lm -lresolv"
+
+#Solaris 2.5, SunPro compiler, with SunLink X.25 support.
+solaris25x25:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.5+X.25 with SunPro cc...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS25 -DDIRENT -DSUNX25 \
+ -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES \
+ -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
+ -I/opt/SUNWconn/include $(KFLAGS)" \
+ "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
+ -lsockx25 -lsocket -lnsl -lm -lresolv"
+
+solaris23:
+ $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=$(KFLAGS)"
+
+solaris24:
+ $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS24 -DPOSIX_CRTSCTS $(KFLAGS)"
+
+# template for Solaris 2.5 and above.
+solaris25x:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -DFNFLOAT -O -Usun -i $(KFLAGS)" \
+ "LNKFLAGS = -s" \
+ "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv $(LIBS)"
+
+#Solaris 2.5, SunPro compiler, curses, TCP/IP
+solaris25:
+ $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.5, SunPro compiler, curses, TCP/IP, Kerberos IV
+solaris25+krb4:
+ $(MAKE) "MAKE=$(MAKE)" solaris25x+krb4 KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.5 built with gcc
+solaris25g:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.5 built with gcc and Kerberos IV
+solaris25g+krb4:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.5 built with gcc and Kerberos V/IV, SSL, ...
+solaris25g+krb5+krb4+openssl+shadow:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
+ KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-funsigned-char -DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.5, gcc, SunLink X.25 added.
+solaris25gx25:
+ $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
+ "KFLAGS=-DSOLARIS25 $(KFLAGS)"
+
+#Solaris 2.6, gcc, SunLink X.25 added.
+solaris26gx25:
+ $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
+ "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
+ "LIBS= -lpam"
+
+#Solaris 2.6, SunPro compiler, curses, TCP/IP
+solaris26:
+ $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
+ "LIBS= -lpam"
#Solaris 2.6 with gcc
solaris26g:
"KFLAGS= -DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
"LIBS= -lpam"
+#Solaris 2.6, SunPro compiler, with SunLink X.25 support.
+solaris26x25:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 2.6+X.25 with SunPro cc...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS26 -DDIRENT -DSUNX25 \
+ -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES -DCK_PAM -DCK_SHADOW \
+ -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
+ -I/opt/SUNWconn/include $(KFLAGS)" \
+ "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
+ -lsockx25 -lsocket -lnsl -lm -lresolv -lpam"
+
+#Solaris 7 (2.7) with Sun CC
+solaris7:
+ $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
+ "LIBS= -lpam"
+
#Solaris 7 with gcc (32-bit)
solaris7g:
$(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)"
+#Solaris 8
+solaris8:
+ $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
+ "LIBS= -lpam"
+
#Solaris 8 with gcc (32-bit)
solaris8g:
$(MAKE) "MAKE=$(MAKE)" solaris2xg KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
"LIBS= -lpam"
-#Solaris 9 with gcc + OpenSSL + Shadow (32-bit)
-solaris9g+openssl+shadow+pam+zlib:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -DZLIB -DCK_PAM -DCK_SHADOW \
- -DLIBDES $(KFLAGS)" "LIBS= -lpam -ldes425 -lz $(LIBS)"
-
-#Solaris 9 with gcc + OpenSSL + Kerberos 5 + Krb4 + Shadow (32-bit)
-solaris9g+krb5+krb4+openssl+shadow+pam+zlib:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -DZLIB -DCK_PAM -DCK_SHADOW \
- -DLIBDES $(KFLAGS)" "LIBS= -lpam -ldes425 -lz $(LIBS)"
-
-#Solaris 9 with gcc 3.1 (32-bit)
-solaris9g:
- @echo 'Making C-Kermit $(CKVER) for Solaris 9 with gcc'
- $(MAKE) "MAKE=$(MAKE)" CC="gcc -m32" CC2="gcc -m32" xermit \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSOLARIS9 -DUSE_STRERROR \
- -DSTERMIOX -DSELECT -DFNFLOAT -DCK_PAM -DCK_SHADOW -funsigned-char \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam"
-
-#Solaris 9 with gcc 3.1 (64-bit)
-#Peeking inside struct FILE at its members ist strengst verboten.
-solaris9g64:
- @echo 'Making C-Kermit $(CKVER) for Solaris 9 with gcc'
- $(MAKE) "MAKE=$(MAKE)" CC="gcc -m64" CC2="gcc -m64" xermit \
- KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSOLARIS9 -DNOARROWKEYS \
- -DSTERMIOX -DSELECT -DFNFLOAT -DUSE_STRERROR -DCK_PAM -DCK_SHADOW \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam"
-
# In OpenSSL builds add -ldl if you get unresolved references for
# dlclose, dlsym, dlopen, dlerror.
$(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DSOLARIS8 $(KFLAGS)"
-#Solaris 9 with gcc 3.1 + OpenSSL (32-bit)
-solaris9g+openssl+zlib+pam+shadow:
- $(MAKE) "MAKE=$(MAKE)" solaris2xg32+openssl+zlib+pam+shadow \
- KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS9 -DUSE_STRERROR $(KFLAGS)"
-
#Solaris 8 with gcc + Kerberos IV (32-bit)
solaris8g+krb4:
$(MAKE) "MAKE=$(MAKE)" solaris2xg+krb4 KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
"LIBS= -lpam"
-#Solaris 2.0-2.4, gcc, SunLink X.25 added.
-#NOTE: Can't use xermit target with X.25.
-solaris2xgx25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x + X.25 with GNU cc...'
- @echo 'Please read the comments that accompany the solaris2xg entry.'
- $(MAKE) wermit CC=gcc CC2=gcc KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -g -O -Usun -DSVR4 -DSOLARIS -DSTERMIOX -DSELECT -DSUNX25 \
- -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET -DFNFLOAT \
- -DNOLEARN $(KFLAGS)" \
- "LIBS= -ltermlib -lm -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl"
-
-#Solaris 2.5, gcc, SunLink X.25 added.
-solaris25gx25:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.6, gcc, SunLink X.25 added.
-solaris26gx25:
- $(MAKE) "MAKE=$(MAKE)" KTARGET=$${KTARGET:-$(@)} solaris2xgx25 \
- "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 2.0 - 2.4, SunPro compiler, includes curses and TCP/IP.
-#When using SUNWspro CC 2.0.1 under Solaris 2.3, be sure all cc patches
-#are applied, otherwise corrupt or truncated object files can result.
-#To build, set your PATH as follows:
-# /usr/local/bin:/usr/bin:/opt/SUNWspro/bin:/usr/ccs/bin:\
-# /usr/ucb:/usr/sbin:/sbin:.
-# or (depending on where the compiler has been installed):
-# /usr/openwin/bin:/export/home/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/usr/bin.
-#For additional optimization try using "-fast -xO4 -xdepend".
-solaris2x:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET $(KFLAGS)" \
- "LNKFLAGS = -s" "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv"
-
-#as above but configured for Kerberos IV
-solaris2x+krb4:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x, SunPro cc, krb4...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -Usun -i -DSVR4 -DDIRENT -DSOLARIS -DHDBUUCP -DFNFLOAT \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX -DTCPSOCKET \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB4 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CAST $(K4INC) $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= $(K4LIB) -ltermlib -lsocket -lnsl -lm -lresolv -lkrb -ldes"
-
-solaris23:
- $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=$(KFLAGS)"
-
-solaris24:
- $(MAKE) "MAKE=$(MAKE)" solaris2x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS24 -DPOSIX_CRTSCTS $(KFLAGS)"
-
-# template for Solaris 2.5 and above.
-solaris25x:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x with SunPro cc...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DFNFLOAT -O -Usun -i $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv $(LIBS)"
-
-#Solaris 2.5, SunPro compiler, curses, TCP/IP
-solaris25:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.5, SunPro compiler, curses, TCP/IP, Kerberos IV
-solaris25+krb4:
- $(MAKE) "MAKE=$(MAKE)" solaris25x+krb4 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS25 $(KFLAGS)"
-
-#Solaris 2.6, SunPro compiler, curses, TCP/IP
-solaris26:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS26 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 7 (aka 2.7)
-solaris7:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS7 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 8
-solaris8:
- $(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSOLARIS8 -DCK_PAM -DCK_SHADOW $(KFLAGS)" \
- "LIBS= -lpam"
-
-#Solaris 9
-solaris9:
+solaris9nolfs:
$(MAKE) "MAKE=$(MAKE)" solaris25x KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DSOLARIS9 -DCK_PAM -DCK_SHADOW -DUSE_STRERROR $(KFLAGS)" \
"LIBS= -lpam"
#Solaris 9 with malloc debugging
solaris9md:
$(MAKE) mermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -DFNFLOAT -O -Usun -i \
+ "CFLAGS = -DFNFLOAT -O -Usun -i -D_FILE_OFFSET_BITS=64 \
-DSOLARIS9 -Dmalloc=dmalloc -Dfree=dfree -DMDEBUG \
-DCK_PAM -DCK_SHADOW -DUSE_STRERROR $(KFLAGS)" \
"LIBS= -lpam -ltermlib -lsocket -lnsl -lm -lresolv"
-#Solaris 2.0-2.3, SunPro compiler, with SunLink X.25 support.
-#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
-#exists and can be dynamically linked.
-#NOTE: Do not change target to xermit -- it doesn't support X.25.
-solaris2x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.x+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DDIRENT \
- -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DNOLEARN \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
+#Solaris 9 with gcc + OpenSSL + Shadow (32-bit)
+#Add -DOPENSSL_097 for OpenSSL 0.9.7 or later.
+solaris9g+openssl+shadow+pam+zlib:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg+openssl+zlib+pam+shadow \
+ KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -D_FILE_OFFSET_BITS=64 \
+ -DNO_DCL_INET_ATON -DZLIB -DCK_PAM -DCK_SHADOW -DLIBDES $(KFLAGS)" \
+ "LIBS= -lpam -ldes425 -lz $(LIBS)"
-#Solaris 2.4, SunPro compiler, with SunLink X.25 support.
-#This will only run if user has /opt/SUNWconn/lib/libsockx25.so.1
-#exists and can be dynamically linked.
-solaris24x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.4+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS -DSOLARIS24 -DDIRENT -DNOLEARN \
- -DSUNX25 -DTCPSOCKET -DHDBUUCP -DFNFLOAT -DPOSIX_CRTSCTS \
- -DSELECT -DCK_CURSES -DCK_NEWTERM -DSTERMIOX $(KFLAGS)" \
- "LNKFLAGS = -s" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
+#Solaris 9 with gcc + OpenSSL + Kerberos 5 + Krb4 + Shadow (32-bit)
+#Add -DOPENSSL_097 for OpenSSL 0.9.7 or later.
+solaris9g+krb5+krb4+openssl+shadow+pam+zlib:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg+krb5+krb4+openssl+shadow \
+ KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS9 -DHDBUUCP -DDIRENT -D_FILE_OFFSET_BITS=64 \
+ -DNO_DCL_INET_ATON -DZLIB -DCK_PAM -DCK_SHADOW -DLIBDES $(KFLAGS)" \
+ "LIBS= -lpam -ldes -lz $(LIBS)"
+
+#Solaris 9 with gcc + Kerberos 4 and 5:
+solaris9g+krb5+krb4:
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
+ "CFLAGS = -O -Usun -DSVR4 -DSOLARIS9 -DSTERMIOX -DSELECT -DFNFLOAT \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
+ -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
+ -D_FILE_OFFSET_BITS=64 \
+ -DCK_ENCRYPTION -DCK_DES -DCK_CAST -DBIGBUFOK \
+ $(K5INC) $(K5INC)/krb5 $(KFLAGS)" \
+ "LIBS= $(K5LIB) -ltermlib -lsocket -lnsl -lm -lresolv \
+ -lkrb4 -lcrypto -lgssapi_krb5 -lkrb5 -lcom_err -lk5crypto \
+ -ldes $(LIBS)"
+
+#Solaris 9, 10, or 11 with gcc...
+#Uses streams PTYs rather than BSD ptys as in C-Kermit 8.0 and earlier.
+#This target is chained to be the secure solaris9g+xxx targets below.
+solaris9g solaris10g solaris11g:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9 or later with gcc'
+ @case `uname -r` in \
+ 5.9) SOLARISVERSION="-DSOLARIS9" ;; \
+ 5.10) SOLARISVERSION="-DSOLARIS10" ;; \
+ 5.11) SOLARISVERSION="-DSOLARIS11" ;; \
+ *) SOLARISVERSION="-DSOLARIS" ;; \
+ esac ; \
+ $(MAKE) "MAKE=$(MAKE)" CC="gcc -m32" CC2="gcc -m32" xermit \
+ KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -g -O -Usun -DSVR4 $$SOLARISVERSION -DUSE_STRERROR \
+ -DSTERMIOX -DSELECT -DFNFLOAT -DCK_PAM -DCK_SHADOW -funsigned-char \
+ -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME -DPUSH_PTEM \
+ -DPUSH_LDTERM -DPUSH_TTCOMPAT \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
+ -D_FILE_OFFSET_BITS=64 $(KFLAGS)" \
+ "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam $(LIBS)"
+
+#Solaris 9, 10, or 11 with gcc + Kerberos 5 + OpenSSL.
+#OK C-Kermit 9.0.301.
+solaris9g+krb5+ssl solaris10g+krb5+ssl solaris11g+krb5+ssl:
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac ; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ GSSAPILIB=''; \
+ K5DIR=`echo $(K5LIB) | sed 's|-L||'`; \
+ echo K5DIR=$$K5DIR; \
+ if ls $$K5DIR/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ else GSSAPILIB='-lgssapi'; \
+ fi; \
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
+ "CFLAGS = -O -Usun -DSVR4 -DSOLARIS9 -DSTERMIOX -DSELECT -DFNFLOAT \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET -DBIGBUFOK \
+ -DCK_AUTHENTICATION -DCK_SSL -DZLIB -DCK_KERBEROS -DKRB5 \
+ -DCK_ENCRYPTION -DCK_CAST $$OPENSSLOPTION \
+ $$HAVE_DES $(SSLINC) $(K5INC) $(K5INC)/krb5 $(KFLAGS)" \
+ "LIBS= $(SSLLIB) $(K5LIB) -lz -lssl -ltermlib -lsocket -lnsl -lm \
+ -lresolv -lcrypto \
+ $$GSSAPILIB -lkrb5 -lcom_err -lk5crypto $$DES_LIB $(LIBS)"
+
+#Solaris 9, 10, or 11 with gcc, 64 bit build.
+#Peeking inside FILE struct not allowed in 64-bit world.
+#DON'T USE THIS ONE ON PC ARCHITECTURE - It compiles and links but won't run.
+#OK: 2009/09/25 (but not tested on Solaris 11)
+solaris9g64 solaris10g64 solaris11g64:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9++ with gcc 64-bit'
+ @case `uname -r` in \
+ 5.9) SOLARISVERSION="-DSOLARIS9" ;; \
+ 5.10) SOLARISVERSION="-DSOLARIS10" ;; \
+ 5.11) SOLARISVERSION="-DSOLARIS11" ;; \
+ *) SOLARISVERSION="-DSOLARIS" ;; \
+ esac ; \
+ $(MAKE) "MAKE=$(MAKE)" CC="gcc -m64" CC2="gcc -m64" xermit \
+ KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -g -O -Usun -funsigned-char \
+ -DSVR4 $$SOLARISVERSION -DNOARROWKEYS \
+ -DSTERMIOX -DSELECT -DFNFLOAT -DUSE_STRERROR -DCK_PAM -DCK_SHADOW \
+ -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME -DPUSH_PTEM \
+ -DPUSH_LDTERM -DPUSH_TTCOMPAT \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET $(KFLAGS)" \
+ "LIBS= -ltermlib -lsocket -lnsl -lm -lresolv -lpam $(LIBS)"
+
+#Solaris 9, 10, or 11 with SunPro CC
+#Uses streams PTYs rather than BSD ptys as in C-Kermit 8.0 and earlier.
+#This target is chained to by the secure targets below.
+#OK C-Kermit 9.0
+solaris9 solaris10 solaris11:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9 or later with Sun CC'
+ @case `uname -r` in \
+ 5.9) SOLARISVERSION="-DSOLARIS9" ;; \
+ 5.10) SOLARISVERSION="-DSOLARIS10" ;; \
+ 5.11) SOLARISVERSION="-DSOLARIS11" ;; \
+ *) SOLARISVERSION="-DSOLARIS" ;; \
+ esac ; \
+ $(MAKE) "MAKE=$(MAKE)" xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -O -Usun -DSVR4 $$SOLARISVERSION -DUSE_STRERROR \
+ -DSTERMIOX -DSELECT -DFNFLOAT -DCK_PAM -DCK_SHADOW \
+ -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME -DPUSH_PTEM \
+ -DPUSH_LDTERM -DPUSH_TTCOMPAT \
+ -DCK_CURSES -DCK_NEWTERM -DDIRENT -DHDBUUCP -DTCPSOCKET \
+ -D_FILE_OFFSET_BITS=64 $(KFLAGS)" \
+ "LIBS= $(LIBS) -ltermlib -lsocket -lnsl -lm -lresolv -lpam"
+
+# Solaris 9, 10, or 11 with OpenSSL built with Sun CC.
+# Here's an example of how to invoke this target in case your OpenSSL
+# headers and libraries are not in /usr/local:
+#
+# make solaris9+openssl "SSLINC=" "SSLLIB=" \
+# "KFLAGS= -I/opt/openssl-0.9.8k/include -L/opt/openssl-0.9.8k/lib"
+#
+# Don't use 'make -e' because that inhibits passing of KFLAGS to
+# the base (solaris9) target.
+#
+#OK C-Kermit 9.0
+solaris9+ssl solaris10+ssl solaris11+ssl \
+solaris9+openssl solaris10+openssl solaris11+openssl:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9/10/11 with OpenSSL: cc'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac ; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) "MAKE=$(MAKE)" solaris9 KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DCK_AUTHENTICATION -DCK_SSL -DZLIB $$HAVE_DES \
+ -DNO_DCL_INET_ATON $$OPENSSLOPTION $(SSLINC) $(KFLAGS)" \
+ "LIBS= $(SSLLIB) -lz -lssl $$DES_LIB -lcrypto $(LIBS)"
+
+# Solaris 9 or later with OpenSSL, built with gcc.
+# Remove -DNO_DCL_INET_ATON if inet_aton comes up missing. This target nicely
+# chains to the solaris{9,10,11}g target but for some reason it doesn't work if
+# you add the -DFORWARD_X option, thus the solaris9g+openssl+forward_x target.
+#
+#OK: 2011/06/14
+solaris9g+ssl solaris10g+ssl solaris11g+ssl \
+solaris9g+openssl solaris10g+openssl solaris11g+openssl:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9/10/11 with OpenSSL: gcc'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac ; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) "MAKE=$(MAKE)" solaris9g KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DCK_AUTHENTICATION -DCK_SSL -DZLIB $$HAVE_DES \
+ -DNO_DCL_INET_ATON $$OPENSSLOPTION $(SSLINC) $(KFLAGS)" \
+ "LIBS= $(SSLLIB) -lz -lssl $$DES_LIB -lcrypto $(LIBS)"
+
+# Solaris 9 or later with gcc + OpenSSL + Shadow (32-bit).
+# Remove -DNO_DCL_INET_ATON if inet_aton comes up missing.
+# Includes long file support - not sure if this was available before Solaris 9.
+# Detects Solaris version automatically.
+#
+solaris9g+openssl+forward_x:
+ @echo 'Making C-Kermit $(CKVER) for Solaris 9 or later with OpenSSL...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac ; case `uname -r` in \
+ 5.9) SOLARISVERSION="-DSOLARIS9" ;; \
+ 5.10) SOLARISVERSION="-DSOLARIS10" ;; \
+ 5.11) SOLARISVERSION="-DSOLARIS11" ;; \
+ *) SOLARISVERSION="-DSOLARIS" ;; \
+ esac ; \
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
+ "CFLAGS = -g -O -Usun -DSVR4 $$SOLARISVERSION \
+ -DHAVE_STREAMS -DHAVE_GRANTPT -DHAVE_PTSNAME -DPUSH_PTEM \
+ -DPUSH_LDTERM -DPUSH_TTCOMPAT \
+ -DSTERMIOX -DSELECT -DFNFLOAT -DBIGBUFOK -D_FILE_OFFSET_BITS=64 \
+ -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DCK_SHADOW -DZLIB -DLIBDES \
+ -DFORWARD_X $$OPENSSLOPTION $(SSLINC) $(KFLAGS)" \
+ "LIBS= $(SSLLIB) -lpam -ldes425 -lz -ltermlib \
+ -lsocket -lnsl -lm -lresolv -lssl -lcrypto -lpam -lz $(LIBS)"
-#Solaris 2.5, SunPro compiler, with SunLink X.25 support.
-solaris25x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.5+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS25 -DDIRENT -DSUNX25 \
- -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES \
- -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
- -I/opt/SUNWconn/include $(KFLAGS)" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv"
+# These two should be folded in with the ones just above.
-#Solaris 2.6, SunPro compiler, with SunLink X.25 support.
-solaris26x25:
- @echo 'Making C-Kermit $(CKVER) for Solaris 2.6+X.25 with SunPro cc...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -O -i -Usun -DSVR4 -DSOLARIS26 -DDIRENT -DSUNX25 \
- -DTCPSOCKET -DHDBUUCP -DSELECT -DCK_CURSES -DCK_PAM -DCK_SHADOW \
- -DCK_NEWTERM -DSTERMIOX -DFNFLOAT -DPOSIX_CRTSCTS -DNOLEARN \
- -I/opt/SUNWconn/include $(KFLAGS)" \
- "LIBS= -ltermlib -L/opt/SUNWconn/lib -R/opt/SUNWconn/lib \
- -lsockx25 -lsocket -lnsl -lm -lresolv -lpam"
+#Solaris 9 with gcc 3.1 + OpenSSL (32-bit)
+solaris9g+openssl+zlib+pam+shadow:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg32+openssl+zlib+pam+shadow \
+ KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS9 -DUSE_STRERROR $(KFLAGS)"
+
+#Solaris 10 with gcc 3.1 + OpenSSL (32-bit)
+solaris10g+openssl+zlib+pam+shadow:
+ $(MAKE) "MAKE=$(MAKE)" solaris2xg32+openssl+zlib+pam+shadow \
+ KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSOLARIS10 -DUSE_STRERROR $(KFLAGS)"
-#The following sunosxxx entries are for debugging and testing only.
+#The following (old, old) sunosxxx entries are for debugging and testing only.
sunos41x:
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DCK_SHADOW $(KFLAGS)" "LIBS= -lgen"
#UnixWare 7 with tc[gs]etspeed() high serial speeds & select()-based CONNECT
+#and as of C-Kermit 8.0.212, large file support (LFS).
#NOTE: This is the one we use.
unixware7t:
@echo 'Making C-Kermit $(CKVER) for UnixWare 7 with POSIX i/o...'
"CFLAGS = -O -DUNIXWARE -DSELECT -DSVR4 -DDIRENT -DHDBUUCP -DBIGBUFOK \
-DFNFLOAT -DNOGETUSERSHELL -DSTERMIOX -DCK_CURSES -DTCPSOCKET -DPOSIX \
-DUW7 -DUSETCSETSPEED -DCK_NEWTERM -DNOLSTAT -DDCLTIMEVAL \
- -DNEEDMDMDEFS $(KFLAGS)" \
+ -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DNEEDMDMDEFS $(KFLAGS)" \
"LIBS=-lsocket -lnsl -lcurses -ltermcap -lcrypt -lm -lresolv $(LIBS)" \
"LNKFLAGS = -s"
KTARGET=$${KTARGET:-$(@)}
#UnixWare 7 with OpenSSL
-uw7ssl:
+uw7ssl uw7+ssl:
@echo 'Making C-Kermit $(CKVER) for UnixWare 7 and OpenSSL...'
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -O -DCK_AUTHENTICATION -DCK_SSL -DCK_SHADOW \
#Silicon Graphics IRIX 6.[024] common stuff.
#Yellow Pages and Curses support included.
#IRIX version 6.0 and later runs only ELF binaries.
-#Depends on code changes in ckudeb.h that make -DIRIX6x define all
+#Depends on code changes in ckcdeb.h that make -DIRIX6x define all
#lower IRIX6x values and IRIX51.
irix6x:
@echo 'Includes fullscreen file display and Yellow Pages...'
irix64gcc:
@echo 'Making C-Kermit $(CKVER) for Silicon Graphics IRIX 6.4 gcc'
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS= -DSVR4 -DIRIX64 -DCK_CURSES -DTCPSOCKET -DNOCOTFMC \
+ "CFLAGS= -DSVR4 -DIRIX64 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL \
+ -DSELECT -DPWID_T=uid_t -DTCPSOCKET -DNOCOTFMC \
+ -DCK_ANSIC -DCK_RTSCTS -DCK_NEWTERM -DCK_CURSES \
$(KFLAGS) -O" "LIBS= -lcurses -ltermcap -lcrypt"
#Note the new Optimization option syntax for MIPSpro CC 7.2.1.2m.
+#See note on irix65gcc target about Large File Support (LFS).
irix65:
@echo 'Making C-Kermit $(CKVER) for SGI IRIX 6.5'
@$(MAKE) "MAKE=$(MAKE)" LNKFLAGS="-Wl,-woff,84" \
- "KFLAGS=-DIRIX65 -DCK_RTSCTS -OPT:Olimit=0 -woff 1110,1552,1174 \
- $(KFLAGS)" \
+ "KFLAGS=-DIRIX65 -D_LARGEFILE_SOURCE -DCK_RTSCTS -OPT:Olimit=0 \
+ -woff 1110,1552,1174 $(KFLAGS)" \
+ irix6x KTARGET=$${KTARGET:-$(@)}
+
+#Build for those that have GCC instead of MIPSpro.
+#
+# Large File Support note: use the define _LARGEFILE_SOURCE to enable support
+# for files larger than 2GB. This may work on releases of Irix prior to
+# 6.5.xx. To verify, check the man page for fstat and verify that off_t is a
+# 64 bit value for an -n32 build. Also check the manpage for fseek and ftell
+# to verify that the fseek64 and ftell64 functions are provided. If so, then
+# LFS support should work and you can try adding -D_LARGEFILE_SOURCE to CFLAGS
+# for your selected Irix target.
+#
+irix65gcc:
+ @echo 'Making C-Kermit $(CKVER) for SGI IRIX 6.5 with gcc'
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CC = gcc" "CC2 = gcc" \
+ "CFLAGS= -DSVR4 -DIRIX65 -D_LARGEFILE_SOURCE -DDIRENT -DHDBUUCP \
+ -DNOGETUSERSHELL -DSELECT -DPWID_T=uid_t -DTCPSOCKET -DNOCOTFMC \
+ -DCK_ANSIC -DCK_RTSCTS -DCK_NEWTERM -DCK_CURSES \
+ $(KFLAGS) -O" "LIBS= -lcurses"
+
+# The 64-bit IRIX target works but presumably is no longer needed given the
+# large file support in the more portable and compact 32-bit version.
+irix65_64:
+ @echo 'Making C-Kermit $(CKVER) 64-bit for SGI IRIX 6.5'
+ @$(MAKE) "MAKE=$(MAKE)" LNKFLAGS="-Wl,-woff,84" \
+ "KFLAGS=-DIRIX65 -64 -DCK_RTSCTS -OPT:Olimit=0 -woff 1110,1552,1174 \
+ -DCK_64BIT $(KFLAGS)" \
irix6x KTARGET=$${KTARGET:-$(@)}
#Dumb down to MIPS-2 if building on R5000 or higher...
-woff 1110,1552,1174 $(KFLAGS)" \
irix6x KTARGET=$${KTARGET:-$(@)}
+#Special target that adds srp, ssl, and zlib support. This requires
+#that you have pkgsrc installed instead of Irix Freeware. See
+#NetBSD.org for pkgsrc for Irix. You will need to BUILD the srp_client
+#package yourself. Install it manually using the directions found
+#in the netbsds+ssl+srp+zlib target comments.
+irix65+ssl+srp+zlib:
+ @echo 'Making C-Kermit $(CKVER) for IRIX 6.5 with gcc and SSL SRP ZLIB'
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CC = gcc" "CC2 = gcc" \
+ "CFLAGS= -DIRIX65 -DSVR4 -DDIRENT -DHDBUUCP -DNOGETUSERSHELL -DSELECT \
+ -DTCPSOCKET -DNOCOTFMC -DCK_NEWTERM -DPWID_T=uid_t -DCK_ANSIC \
+ -I/usr/pkg/include -DCK_AUTHENTICATION -DCK_SRP -DPRE_SRP_1_4_5 \
+ -DCK_RTSCTS -DCK_NCURSES -DCK_ENCRYPTION -DCK_CAST -DCK_DES -DCK_SSL \
+ -DLIBDES -DZLIB -DFNFLOAT -I/usr/pkg/include/openssl $(KFLAGS) -O" \
+ "LIBS= -L/usr/pkg/lib -rpath /usr/pkg/lib -lncurses -lsrp -lgmp -ldes \
+ -lssl -lkrypto -lcrypto -lcrypt -lz -lm"
+
irix6x+krb5:
@echo 'Includes fullscreen file display and Yellow Pages...'
@echo 'Add -mips<n> to specify a particular hardware target.'
sys5hdb:
$(MAKE) "MAKE=$(MAKE)" sys3hdb
-#Create the common header line for all hpux[5-10]* entries. This extra entry is
-#here because our header message length may differ for each C-Kermit version.
-#Don't use 'fold -s' for HP-UX 5.x - 7.x! This option is there only since
-#HP-UX 8.0!
+#Create the common header line for all hpux[5-11]* entries and above. This
+#extra entry is here because our header message length may differ for each
+#C-Kermit version. Don't use 'fold -s' for HP-UX 5.x - 7.x! This option is
+#available only for HP-UX 8.0 and above!
hpux-header:
@HPUX=`uname -r | sed -e 's/^[^1-9]*//' -e 's/\.00$$/.0/'` ; \
[ "$(MESSAGE0)" ] && MESSAGE1="$(MESSAGE0)" ; \
# Peter E's updated HP-UX 5.xx entries Oct 2001.
#HP-9000 500 HP-UX 5.xx, no TCP/IP.
+# Last known successful build: C-Kermit 8.0.206 2002/20/27.
hpux0500:
@MESSAGE0="no TCP/IP and no compiler optimization";\
MESSAGE0=$${MESSAGE1:-$$MESSAGE0} \
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUX -DHPUX5 -DHPUXPRE65 -DNOREDIRECT -DDCLGETCWD \
-DNOGETUSERSHELL -DNOGFTIMER -DNOSYSLOG -DNOTOMACROS -DNOLSTAT \
- -DNOSYMLINK -DNOINITGROUPS -DNOUNICODE -DNOLEARN $(KFLAGS)" \
- "LIBS = $(LIBS)" "LNKFLAGS = "
+ -DNOSYMLINK -DNOINITGROUPS -DNOUNICODE -DNOLEARN -DNOLONGLONG \
+ -DVOID=int -DCKVOID=int $(KFLAGS)" "LIBS = $(LIBS)" "LNKFLAGS = "
#HP-9000 500 HP-UX 5.21 with Wollongong WIN/TCP 1.2 TCP/IP.
#Requires /usr/wins/usr/include and /usr/lib/libnet.a from Wollongong.
#Optimization skipped - takes forever. Really.
# WARNING: this doesn't work if a file called "hpux0500" is on the disk.
+# Last known successful build: C-Kermit 8.0.206 2002/20/27.
hpux0500wintcp:
@MESSAGE1="with WIN/TCP but without any extra compiler optimization" \
$(MAKE) hpux0500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = -DTCPSOCKET -DHPUX5WINTCP -DINADDRX -DNO_DNS_SRV -DNOMHHOST \
- -DNOHADDRLIST -I/usr/wins/usr/include $(KFLAGS)" \
- "LIBS = /usr/lib/libnet.a"
+ "KFLAGS = -DTCPSOCKET -DHPUX5WINTCP -DINADDRX -DNO_DNS_SRV \
+ -DNOMHHOST -DVOID=int -DCKVOID=int -DNOHADDRLIST -DNOLONGLONG \
+ -I/usr/wins/usr/include $(KFLAGS)" "LIBS = /usr/lib/libnet.a"
#HP-UX 6.5, short filenames, no network and no curses support.
#ckcpro, ckuusr, ckuus3 and others are broken out because they make the
-#optimizer run away. Note that xermit target does not work with this one!
-#If you get compiler warnings like 'Switch table overflow' increase the '...'
-#value in '-Wc,-Nw...'!
+#optimizer run away. Note that the XERMIT target does not work with HP-UX 6.5!
+#
+#If you get compiler warnings like:
+#'Switch table overflow. Try the -Wc,-Nw option.' (for ckcuni.c, or
+#other files) increase the '...' value in '-Wc,-Nw...'! The default maximum
+#switch table stack (-Nw) is 250 table entries. ckcuni.c from Oct 16 2009
+#needs 257 table entries (C-Kermit Version "9.0.299").
+#OK: 2010/03/26
hpux0650:
@$(MAKE) hpux-header
- @echo 'supporting: NO long filenames, NO network${MESSAGE2}.'
+ @MESSAGE2=$${MESSAGE2:-'and NO network'}; \
+ echo "supporting: NO long filenames $$MESSAGE2."
$(MAKE) KTARGET=$${KTARGET:-$(@)} \
- ckuusr.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) \
- ckuus6.$(EXT) ckuxla.$(EXT) ckcpro.$(EXT) \
+ ckuus3.$(EXT) ckuus4.$(EXT) ckuus5.$(EXT) ckuus6.$(EXT) \
+ ckuusr.$(EXT) ckuxla.$(EXT) ckcftp.$(EXT) ckcpro.$(EXT) \
"CFLAGS = -DHPUX -DHPUX6 -DSIG_V -DNOSYSLOG -DNOSELECT -DFNFLOAT \
- -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN $(KFLAGS) \
- -Wc,-Nw260"
+ -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN -DNOLONGLONG \
+ $(KFLAGS)"
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUX -DHPUX6 -DSIG_V -DNOSYSLOG -DNOSELECT -DFNFLOAT \
- -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN $(KFLAGS) \
- -Wc,-Nw260 $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm $(LIBS)"
+ -DDCLGETCWD -DNOGETUSERSHELL -DNO_DNS_SRV -DNOLEARN -DNOLONGLONG \
+ $(KFLAGS) -Wc,-Nw260 $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm $(LIBS)"
#Exactly as above, plus curses:
+#OK: 2009/10/06
hpux0650c:
- @MESSAGE2=", but with curses" \
+ @MESSAGE2="and NO network but with curses" \
$(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses"
+ "KFLAGS = -DCK_CURSES $(KFLAGS)" \
+ "LIBS = -lcurses"
#Exactly as above, plus curses + network:
-#(doesn't work -- HP-UX 6 lacks the FD_SET macros -- this can be addressed
-
+#OK: 2009/10/02
hpux0650tcpc:
- @MESSAGE2=", but with curses and with tcp/ip" \
+ @MESSAGE2="but with curses and with TCP/IP" \
$(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES -DTCPSOCKET -DNOHADDRLIST $(KFLAGS)" \
- "LIBS= -lcurses"
+ "KFLAGS=-DCK_CURSES -DTCPSOCKET -DNOHADDRLIST \
+ -DINTSELECT -DNOCKGETFQHOST $(KFLAGS)" \
+ "LIBS=-lcurses"
#Exactly as hpux0650 but with compiler optimization:
+#OK: 2009/10/06
hpux0650o:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0650 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#Exactly as hpux0650c but with compiler optimization:
+#OK: 2009/10/06
hpux0650oc:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0650c KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
+
+#Exactly as hpux0650tcpc but with compiler optimization:
+#OK: 2009/10/06
+hpux0650otcpc:
+ @MESSAGE1="with compiler optimization" \
+ $(MAKE) hpux0650tcpc KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
-#Take this as startup entry for all 'none optimized' files under HP-UX 7.x!
-#Make sure we doesn't call it with the '-O' option because this will blow up
+#Take this as startup entry for all 'non-optimized' files under HP-UX 7.x!
+#Make sure we don't call it with the '-O' option because this will blow up
#the compiler!
+#OK: 2009/09/30
hpux0700noopt:
@case "$(CFLAGS)" in \
*-O*) echo "Don't use CFLAGS= -O here!" ;; \
esac
#HP-UX 7.0, no long filenames, no network support, no curses.
-#If you get compiler warnings like 'Switch table overflow' increase the '...'
-#value in '-Wc,-Nw...'!
+#If you get compiler warnings like:
+#'Switch table overflow. Try the -Wc,-Nw option.' (for ckcuni.c, or
+#other files) increase the '...' value in '-Wc,-Nw...'! The default maximum
+#switch table stack (-Nw) is 250 table entries. ckcuni.c from Oct 16 2009
+#needs 257 table entries (C-Kermit Version "9.0.299").
+#OK: 2010/10/26
hpux0700sf:
@$(MAKE) hpux-header
@echo 'supporting: NO long filenames, NO network, NO curses.'
"LNKFLAGS = -s" "LIBS = -lm $(LIBS)"
#Exactly as hpux0700sf but with compiler optimization:
+#OK: 2009/09/30
hpux0700osf:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0700sf KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#HP-UX 7.0, short filenames, but with tcp/ip and curses.
#To use this, you must have bought the ARPA Services Product from HP, and you
#must have /usr/lib/libBSD.a.
+#
+#If you get compiler warnings like:
+#'Symbol table overflow. Try the -Wc,-Ns option.' (as for ckuus4.c or
+#other files) increase the '...' value in '-Wc,-Ns...'! The default maximum
+#symbol table size (-Ns) is 2000 table entries. ckuus4.c from Mar 12 2010
+#needs 2031 table entries (C-Kermit Version "9.0.299").
+#OK: 2010/03/24
hpux0700sftcpc:
@$(MAKE) hpux-header
@echo 'supporting: NO long filenames, \c'
$(MAKE) hpux0700noopt KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V \
-DCK_REDIR -DCK_RTSCTS -DCK_CURSES -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" $(KFLAGS) \
- -Wc,-Nw260"
+ -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
+ -DNOLONGLONG $(KFLAGS) -Wc,-Nw260,-Ns2040"
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V \
-DCK_REDIR -DCK_RTSCTS -DCK_CURSES -DNOGETUSERSHELL -DFNFLOAT \
- -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" $(KFLAGS) \
- -Wc,-Nw260 $(OFLAGS)" "LNKFLAGS = -s" "LIBS= -lm -lBSD -lcurses"
+ -DNO_DNS_SRV -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
+ -DNOLONGLONG $(KFLAGS) -Wc,-Nw260,-Ns2040 $(OFLAGS)" \
+ "LNKFLAGS = -s" "LIBS = -lm -lBSD -lcurses"
#Exactly as above but with compiler optimization:
+#OK: 2009/09/30
hpux0700osftcpc:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0700sftcpc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#HP 9000 series 300/800 HP-UX 7.0, long filenames, network support, HDB uucp,
#but NO curses. See comments in hpux0700sftcpc about TCP/IP support.
+#
+#If you get compiler warnings like:
+#'Symbol table overflow. Try the -Wc,-Ns option.' (as for ckuus4.c or
+#other files) increase the '...' value in '-Wc,-Ns...'! The default maximum
+#symbol table size (-Ns) is 2000 table entries. ckuus4.c from Mar 12 2010
+#needs 2031 table entries (C-Kermit Version "9.0.299").
+#OK: 2010/03/24
hpux0700lfn:
@$(MAKE) hpux-header
@echo 'supporting: long filenames, networking, HDB uucp$(MESSAGE2)...'
"CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V -DFNFLOAT \
-DNOGETUSERSHELL -DNOSETBUF -DCK_REDIR -DCK_RTSCTS -DLONGFN \
-DNO_DNS_SRV -DDIRENT -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
- $(KFLAGS) -Wc,-Nw260"
+ -DNOLONGLONG $(KFLAGS) -Wc,-Nw260,-Ns2040"
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUXDEBUG -DHPUX -DHPUX7 -DTCPSOCKET -DSIG_V -DFNFLOAT \
-DNOGETUSERSHELL -DNOSETBUF -DCK_REDIR -DCK_RTSCTS -DLONGFN \
-DNO_DNS_SRV -DDIRENT -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" \
- $(KFLAGS) -Wc,-Nw260 \
- $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
+ -DNOLONGLONG $(KFLAGS) -Wc,-Nw260,-Ns2040 $(OFLAGS)" \
+ "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
#Exactly as above + curses.
+#OK: 2009/09/30
hpux0700lfnc:
@MESSAGE2=', curses' \
$(MAKE) hpux0700lfn KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= -DCK_CURSES $(KFLAGS)" \
- "LIBS= -lcurses"
+ "KFLAGS = -DCK_CURSES $(KFLAGS)" \
+ "LIBS = -lcurses"
#Exactly as above hpux0700lfn but with compiler optimization:
+#OK: 2009/09/30
hpux0700olfn:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0700lfn KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#Exactly as above hpux0700lfnc but with compiler optimization:
+#OK: 2009/09/30
hpux0700olfnc:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0700lfnc KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS)" "OFLAGS = -O"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#HP 9000 Series 300 or 400, HP-UX 8.0, long filenames and TCP/IP support.
#This one should also work on 700/800, but without PA-specific optimization.
#For HP-UX 8.0 on Motorola CPUs, you might have to reinstall your kernel with
#maxdsiz >= 0x03000000. But if physical memory is small, that still will not
#help much.
+#OK: 2009/10/01
hpux0800:
@$(MAKE) hpux-header
@MESSAGE3=$${MESSAGE3:='TCP/IP'}; \
"CFLAGS = -DCK_REDIR -DHPUXDEBUG -DHPUX -DHPUX8 -DRENAME -DSIG_V \
-DNOSETBUF -DDIRENT -DCK_RTSCTS -DSTERMIOX -DLONGFN -DTCPSOCKET \
-DHDBUUCP -DNO_DNS_SRV -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT \
- $(KFLAGS)"
+ -DNOLONGLONG $(KFLAGS)"
$(MAKE) -B "CC=$(CC)" "CC2=$(CC2)" xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DCK_REDIR -DHPUXDEBUG -DHPUX -DHPUX8 -DRENAME -DSIG_V \
-DNOSETBUF -DDIRENT -DCK_RTSCTS -DSTERMIOX -DLONGFN -DTCPSOCKET \
-DHDBUUCP -DNO_DNS_SRV -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT \
- $(KFLAGS) $(OFLAGS)" "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
+ -DNOLONGLONG -DNODCLENDUSERSHELL $(KFLAGS) $(OFLAGS)" \
+ "LNKFLAGS = -s" "LIBS = -lm -lBSD $(LIBS)"
#Exactly as above hpux0800 + curses.
+#OK: 2009/10/01
hpux0800c:
@MESSAGE2=', curses' \
$(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
#HP 9000 HP-UX 8.0, no TCP/IP because /usr/lib/libBSD.a can't be found,
#or TCP/IP header files missing.
+#OK: 2009/10/01
hpux0800notcp:
@MESSAGE3='NO network, NO curses' \
$(MAKE) "MAKE=$(MAKE)" hpux0800 KTARGET=$${KTARGET:-$(@)} \
"KFLAGS = $(KFLAGS) -UTCPSOCKET"
#Now the same as above hpux0800 but with compiler optimization
+#OK: 2009/10/01
hpux0800o:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
"KFLAGS = $(KFLAGS)" "OFLAGS = -O"
#Exactly as above hpux0800 + curses and with compiler optimization.
+#OK: 2009/10/01
hpux0800oc:
@MESSAGE1="with compiler optimization" \
$(MAKE) hpux0800c KTARGET=$${KTARGET:-$(@)} \
"KFLAGS = $(KFLAGS)" "OFLAGS = -O" "LIBS = -lcurses"
#Exactly as above hpux0800notcp but with compiler optimization
+#OK: 2009/10/01
hpux0800onotcp:
@MESSAGE1="with compiler optimization" \
$(MAKE) "MAKE=$(MAKE)" hpux0800notcp KTARGET=$${KTARGET:-$(@)} \
#HP 9000 Series 700 or 800, HP-UX 8.0, long filenames and TCP/IP support.
# Like the previous entries, but with PA-RISC-specific optimization.
+#OK: 2009/10/01
hpux0800pa:
@MESSAGE1="with PA-RISC-specific optimization" \
$(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
"KFLAGS = $(KFLAGS) +Obb1100"
#As above, but with curses.
+#OK: 2009/10/01
hpux0800pac:
@MESSAGE1="with PA-RISC-specific optimization" \
$(MAKE) hpux0800c KTARGET=$${KTARGET:-$(@)} \
"KFLAGS = $(KFLAGS) +Obb1100"
#As above, but compiled with GCC 2.3.3.
+#OK: 2009/10/01
hpux0800pagcc:
@MESSAGE1='using the gcc compiler' \
$(MAKE) hpux0800 KTARGET=$${KTARGET:-$(@)} \
- "CC=gcc" "CC2=gcc" "KFLAGS= -funsigned-char $(KFLAGS)"
+ "CC=gcc" "CC2=gcc" "KFLAGS = -funsigned-char $(KFLAGS)"
#HP-UX 9.0, 9.01, 9.03, 9.04, 9.05, 9.07, 9.10 ..., + TCP/IP + curses, fully
#configured. Use this entry with the restricted compiler: no optimization, no
#ANSI support. If you get unresolved sockets library references at link time,
#then try adding -lBSD to LIBS, or else remove -DTCPSOCKET to build a version
#without TCP/IP support.
+#
+#Please note that we have to add the compiler option +DA1.0/+DA1.1 to avoid
+#core-dumps for large arguments in IF MATCH. The man page says these options
+#are default but C-Kermit dumps core without them! Therefore keep them
+#untouched. If you want to overwrite or disable the +DA1.0/+DA1.1 option use
+#'make hpux0900 OFLAGS=...'. An other possibility would be to create a new
+#kernel with maxssiz >= 0x01185000 (default maxssiz=0x00800000).
+#OK: 2009/09/24
hpux0900:
@MESSAGE1A='. Read hpux0900 entry comments if you have trouble.' \
$(MAKE) hpux-header
+ @case `uname -m` in \
+ */[34]*) KFLAGS='-DNOLONGLONG $(KFLAGS)' ;; \
+ */7*) AFLAGS='+DA1.1' ;; \
+ */8*) AFLAGS='+DA1.0' ;; \
+ esac ; \
+ OFLAGS=$${OFLAGS:-$$AFLAGS} ; \
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS = -DHPUXDEBUG -DHPUX9 -DSTERMIOX -DDIRENT -DUTIMEH \
-DNOSETBUF -DCK_CURSES -DTCPSOCKET -DRENAME -DCK_REDIR -DLONGFN \
- -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT $(KFLAGS)" \
+ -DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT \
+ -DNODCLENDUSERSHELL $$KFLAGS $$OFLAGS" \
"LNKFLAGS = -s" "LIBS = -lm -lcurses" "CC=$(CC)" "CC2=$(CC2)"
#Like hpux0900, but for the "value-added" compiler on all HP 9000 models.
#Adds optimization and ANSI compilation:
# +O2 makes smaller executable (= -O = Level-1 and global optimization)
# +O3 adds interprocedural global optimization, makes bigger executable.
+# Please note: To support long-long we would need compiler switch '-Ae' but
+# this one works only on Risc systems. But the equivalant compiler flags
+# '-Aa -D_HPUX_SOURCE +e' works for Motorola and Risc.
# If optimization fails on some modules, you can add:
# +Obb<n>, +Olimit <n>, or +Onolimit, depending on your cc version,
# where <n> is a number, e.g. +Obb1200. In other words, if you get optimizer
# depending on the amount of main memory, this entry might fail no matter what
# you do ("Out of Memory", "cc: Fatal error in /lib/c.c1", etc). In that case
# use "make hpux0900" (no "o").
+#OK: 2009/09/24
hpux0900o:
@MESSAGE1=$${MESSAGE1:-"with compiler optimization"} \
$(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2"
+ "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2 +e"
# For HP-UX 9.0 on Motorola CPUs, optimization of ckcpro.c tends to blow up
# the compiler. You might have to reinstall your kernel with maxdsiz >=
# In that case, use this entry to skip optimization of ckcpro.c. But for
# C-Kermit 8.0.208 you need a kernel with maxdsiz >= 0x02000000 to compile an
# optimized ckcftp.c.
+# Please note: To support long-long we would need compiler switch '-Ae' but
+# this one works only on Risc systems. But the equivalant compiler flags
+# '-Aa -D_HPUX_SOURCE +e' works for Motorola and Risc.
hpux0900m68ko:
@MESSAGE1='without compiler optimization for ckcpro.$(EXT) ...' \
$(MAKE) hpux-header
- $(MAKE) ckuusr.$(EXT) ckuus3.$(EXT) ckcpro.$(EXT) \
+ $(MAKE) ckuusr.$(EXT) ckuus3.$(EXT) ckuus4.$(EXT) \
+ ckcftp.$(EXT) ckcpro.$(EXT) \
"CFLAGS = -DHPUXDEBUG -DHPUX9 -DSTERMIOX -DDIRENT \
-DNOSETBUF -DCK_CURSES -DTCPSOCKET -DRENAME -DCK_REDIR -DLONGFN \
-DHDBUUCP -DLOCK_DIR=\\\"/usr/spool/uucp\\\" -DFNFLOAT $(KFLAGS)"
@echo
@MESSAGE1="with compiler optimization for the rest" \
$(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2"
+ "KFLAGS = $(KFLAGS) -Aa -DCK_ANSIC -D_HPUX_SOURCE +O2 +e"
# Old name for hpux0900m68ko.
hpux0900mot:
hpux0900gcc:
@MESSAGE1='using the gcc compiler' \
$(MAKE) hpux0900 KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "KFLAGS = $(KFLAGS) -DCK_ANSIC -funsigned-char -O2"
+ "KFLAGS = -DCK_ANSIC $(KFLAGS)" \
+ "OFLAGS = -funsigned-char -O2 $(OFLAGS)"
#HP-9000 HP-UX 10.0 + TCP/IP + curses, fully configured.
#Use with restricted (bundled) compiler: no optimization, no ANSI support.
#the 10.10 curses problem is supposedly fixed in 10.30.
# +DA1.0 = Generate PA-RISC 1.0 code that runs on both 700 and 800 models.
# +DA1.1 = Generate PA-RISC 1.1 code that runs on both 700 and 800 models.
-# Note that HP-UX 10.20 and upwards not support PA-RISC 1.0 systems.
+# Note that HP-UX 10.20 and upwards do not support PA-RISC 1.0 systems.
# And that as of Dec 2001, 11.00 and 11.11 are PA-only and 11.20 is IA64-only.
# Later 11.2x releases are expected to be for both. Architecture can be
# determined with the model command, at least in 10.20 and later...
#For future releases, we need to include +DA1.1 for PA builds, so that a
#binary built on PA 2.0 will still work on PA 1.1 machines, whereas +DA1.1
#must NOT be included for IA64 builds.
-#
+#4 Jan 2006 - Added Large File Support (LFS). Large files (>2GB) are
+#possible in HP-UX 10.20 and later. The only change is to add:
+# -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
+#to KFLAGS. These should be harmless in 10.00 and 10.10, if any of examples
+#of those still exist, but I have no way to test this hypothesis.
+#OK: 2009/11/16
hpux1000:
@$(MAKE) hpux-header
@LIBS='-lHcurses' ; \
"CC=$(CC)" "CC2=$(CC2)" \
"CFLAGS = -DHPUX10 -DDIRENT -DSTERMIOX -DCK_DSYSINI -DHDBUUCP \
-DCK_CURSES -DCK_WREFRESH -DTCPSOCKET -DCK_REDIR -DRENAME -DFNFLOAT \
+ -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 \
$$KFLAGS $$OFLAGS" \
"LNKFLAGS=-s $(LNKFLAGS)" "LIBS = -lm $$LIBS $(KLIBS)"
# (add CC and CC2, drop the A1.[0||1])
# Builds w/ no compiler warnings but minimally tested.
#
+#OK: 2009/09/21
hpux1000gcc:
@MESSAGE1="using the gcc compiler $(MESSAGE1)" \
$(MAKE) hpux1000 KTARGET=$${KTARGET:-$(@)} CC=gcc CC2=gcc \
- "KFLAGS = $(KFLAGS)" OFLAGS=" -DCK_ANSIC -funsigned-char -O2"
+ "KFLAGS = $(KFLAGS)" "OFLAGS = -DCK_ANSIC -funsigned-char -O2"
# Trusted HP-UX 10
# echo KFLAGS=$(KFLAGS) YTARGET YTARGET=$(YTARGET) $(XTARGET) ;
hpux1000t:
@case "$(KTARGET)" in \
- *+openssl) \
+ *+openssl | *+ssl) \
KENTRY=hpux1000o+openssl ;; \
*gcc) \
KENTRY=hpux1000gcc ;; \
esac ; \
MESSAGE1="and support for 'Trusted HP-UX'" \
$(MAKE) $$KENTRY KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $(KFLAGS) -DHPUX10_TRUSTED" "KLIBS=-lsec"
+ "KFLAGS = $(KFLAGS) -DHPUX10_TRUSTED" "KLIBS=-lsec"
hpux1000to:
$(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
hpux1000tgcc:
$(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-hpux1000to+openssl:
+hpux1000to+ssl hpux1000to+openssl:
$(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
-hpux1000tgcc+openssl:
+hpux1000tgcc+ssl hpux1000tgcc+openssl:
$(MAKE) hpux1000t KTARGET=$${KTARGET:-$(@)}
#HP-9000 HP-UX 10.00 and higher with ANSI prototyping and optimization.
# +DA1.1 is PA-only. If this is included in in HP-UX 11.00 or later,
# then +DS2.0 should be included too (but don't use +DS2.0 without +DA1.1,
# or else the binary won't run on older PA hardware).
+#OK: 2009/09/21
hpux1000o:
@case `uname -m` in \
ia64) ;; \
MESSAGE1="with PA-RISC-specific optimizations $(MESSAGE1)" \
$(MAKE) "SHELL=/usr/bin/sh" "PATH=/opt/ansic/bin:$$PATH" hpux1000 \
KTARGET=$${KTARGET:-$(@)} "KFLAGS = $(KFLAGS) \
- -Aa -D_HPUX_SOURCE -DCK_ANSIC -DUTIMEH \
+ -Ae -D_HPUX_SOURCE -DCK_ANSIC -DUTIMEH \
+O2 -Wl,-Fw $$MFLAGS"
#Like hpux1000o but with "+Onolimit".
#HP-UX 10.xx + 11.xx with optimizing ANSI compiler and OpenSSL.
#Define SSLLIB and SSLINC appropriately for your OpenSSL installation.
-#Do overwrite the default SSLLIB and SSLINC settings you can also use the
-#command-line variable KSSLLIB and KSSLINC like:
+#To overwrite the default SSLLIB and SSLINC settings you can also use the
+#command-line variable KSSLLIB and KSSLINC like:
#make hpux1000o+openssl KSSLLIB=-L/opt/openssl/lib KSSLINC=-I/...
#Ditto for the Zlib location.
#This entry works for C-Kermit 8.0.206 on HP-UX 10.20 + 11.11
#NOTE: an ANSI C compiler is required for the SSL interface. If you don't
#have the HP Optimizing ANSI compiler, see the hpux1000gcc+openssl target
#below.
-hpux1000o+openssl:
+hpux1000o+ssl hpux1000o+openssl:
@case "$(KTARGET)" in \
- *gcc+*) KENTRY=hpux1000gcc ;; \
- *) KENTRY=hpux1000o ;; \
+ *gcc+*) \
+ KENTRY=hpux1000gcc ;; \
+ *) KENTRY=hpux1000o ;; \
+ esac ; \
+ case "$(KTARGET)" in \
+ *-zlib*) \
+ DZLIB= LZLIB= ;; \
+ *) DZLIB=-DZLIB LZLIB='-L/opt/zlib/lib -lz' ;; \
esac ; \
SSLINC=$${KSSLINC:-$(SSLINC)}; \
SSLLIB=$${KSSLLIB:-$(SSLLIB)}; \
MESSAGE1="and with OpenSSL $(MESSAGE1)" \
$(MAKE) $$KENTRY KTARGET=$${KTARGET:-$(@)} \
- KFLAGS="-DCK_AUTHENTICATION -DCK_SSL -DOPENSSL_097 -DZLIB \
+ KFLAGS="-DCK_AUTHENTICATION -DCK_SSL -DOPENSSL_097 $$DZLIB \
$$SSLINC $(KFLAGS)" \
KLIBS="$(KLIBS) \
$$SSLLIB -lssl -lcrypto \
- -L/opt/zlib/lib -lz \
- "
+ $$LZLIB \
+ "
+
+# Ditto but without Zlib:
+hpux1000o+ssl-zlib hpux1000o+openssl-zlib:
+ @MESSAGE1="but without Zlib $(MESSAGE1)" \
+ $(MAKE) hpux1000o+ssl KTARGET=$${KTARGET:-$(@)}
#HP-UX 10.00 or higher with OpenSSL 0.9.7. Compiled with gcc.
#From Chris Chaney, NEC America Inc. His instructions:
# (5) Install gmp version 3.1.1 from http://hpux.cs.utah.edu/
#
#Note from Peter Eichhorn, assyst Munich. It works also without gcc make!
-hpux1000gcc+openssl:
+hpux1000gcc+ssl hpux1000gcc+openssl:
$(MAKE) hpux1000o+openssl KTARGET=$${KTARGET:-$(@)}
+# Ditto but without Zlib:
+hpux1000gcc+ssl-zlib hpux1000gcc+openssl-zlib:
+ $(MAKE) hpux1000o+openssl-zlib KTARGET=$${KTARGET:-$(@)}
+
# Same for HP-UX 11
-hpux1100o+openssl:
+hpux1100o+ssl hpux1100o+openssl:
$(MAKE) hpux1000o+openssl KTARGET=$${KTARGET:-$(@)}
-hpux1100gcc+openssl:
+#OK: 2009/09/26
+hpux1100gcc+ssl hpux1100gcc+openssl:
$(MAKE) hpux1000gcc+openssl KTARGET=$${KTARGET:-$(@)}
+hpux1100o+ssl-zlib hpux1100o+openssl-zlib:
+ $(MAKE) hpux1000o+openssl-zlib KTARGET=$${KTARGET:-$(@)}
+
+hpux1100gcc+ssl-zlib hpux1100gcc+openssl-zlib:
+ $(MAKE) hpux1000gcc+openssl-zlib KTARGET=$${KTARGET:-$(@)}
+
# HP-UX 11
+# Note: these are 32-bit builds even on IA64.
+# Adding +DD64 to CFLAGS produces 64-bit object files,
+# but the linker fails to find the needed 64-bit libs.
+#OK: 2009/09/26
hpux1100:
$(MAKE) hpux1000 KTARGET=$${KTARGET:-$(@)}
+#OK: 2009/09/26
hpux1100o:
$(MAKE) hpux1000o KTARGET=$${KTARGET:-$(@)}
hpux1100o+:
$(MAKE) hpux1000o+ KTARGET=$${KTARGET:-$(@)}
+#OK: 2009/09/26
hpux1100gcc:
$(MAKE) hpux1000gcc KTARGET=$${KTARGET:-$(@)}
hpux1100tgcc:
$(MAKE) hpux1000tgcc KTARGET=$${KTARGET:-$(@)}
-hpux1100to+openssl:
+hpux1100to+ssl hpux1100to+openssl:
$(MAKE) hpux1000to+openssl KTARGET=$${KTARGET:-$(@)}
-hpux1100tgcc+openssl:
+hpux1100tgcc+ssl hpux1100tgcc+openssl:
$(MAKE) hpux1000tgcc+openssl KTARGET=$${KTARGET:-$(@)}
#Regulus on CIE Systems 680/20
#
# Add -DCK_DSYSINI if you want a shared system-wide init file.
#
-# See ckubwr.txt about -DNOCOTFMC. In fact, you really should read the
-# entire Linux section of ckubwr.txt.
+# See http://www.columbia.edu/kermit/ckubwr.html about -DNOCOTFMC.
+# Better still, should read the entire Linux section of that document.
#
# The "linuxa" entry can be referenced directly on LIBC systems, but not
# GLIBC, where -lcrypt is required. The "make linux" entry should normally
# be used for all builds on all Linux distributions unless you have special
-# requirements, in which case keep reading. CK_NEWTERM added after 7.0B04
+# requirements, in which case keep reading. CK_NEWTERM added after 7.0b04
# due to new complaints about ncurses changing buffering of tty.
linuxa:
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
"CFLAGS = -O -DLINUX -pipe -funsigned-char -DFNFLOAT -DCK_POSIX_SIG \
-DCK_NEWTERM -DTCPSOCKET -DLINUXFSSTND -DNOCOTFMC -DPOSIX \
- -DUSE_STRERROR $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" "LIBS = $(LIBS) -lm"
+ -DUSE_STRERROR $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS = $(LIBS) -lm"
# As above but with profiling
linuxp:
$(MAKE) linuxa KTARGET=$${KTARGET:-$(@)} "KFLAGS=$(KFLAGS) -pg" \
"LIBS=-pg -lcrypt -lresolv"
-#New primary Linux entry for C-Kermit 8.0, replacing big nested
-#if-then-else construction full of repeated clauses with a simpler scheme
-#for automatically detecting:
+#Linux. This entry should work for any Linux distribution on any platform,
+#32-bit or 64-bit, except for extremely ancient ones. Automatically detects:
+# . curses, ncurses, or no curses
# . Old versus new pty handling (new == glibc 2.1++)
-# . Presence or absence of librypt.a and <crypt.h>
+# . Presence or absence of libcrypt.a and <crypt.h>
# . Presence or absence of libresolv.a
-#Unlike the previous scheme, this one is easily extended to include more tests.
+# . Transitional Long File API for 32-bit platforms (SUS V2 UNIX 98 LFS).
#Note: The HAVE_PTMX test was previously "if test -c /dev/ptmx" but this was
#not sufficient for Debian 2.1, because although it had /dev/ptmx, it did not
#have grantpt(), unlockpt(), or ptsname(), so has been changed to look for a
-#grantpt() prototype in the header files. Warning: uses a temporary file in
-#the current directory. Modified in 8.0.206 to allow for libraries that
-#contain .so's but no .a's, e.g. Mandrake 9.0.
+#grantpt() prototype in the header files. Modified in 8.0.206 to allow for
+#libraries that contain .so's but no .a's, e.g. Mandrake 9.0.
#HAVE_BAUDBOY added in 8.0.210 for Red Hat -- it's like AIX ttylock().
+#Modified 17 Aug 2005 to use openpty() if available because the other stuff
+#dumps core in 64-bit ia64 and x86_64 builds.
+#Long file support for 32-bit builds added in 8.0.212 - if features.h contains
+#__USE_LARGEFILE64 then we set the flags that must be set before reading any
+#header files; on 32-bit platforms such as i386, this produces a 32-bit build
+#capable of accessing, sending, receiving, and managing long (> 2GB) files.
+#On 64-bit platforms, it does no harm.
+#As of 3 March 2009 we detect automatically if we have curses, ncurses,
+#or no curses at all.
+#Added HAVE_LOCKDEV as openSuSE >= 11.3 uses ttylock directly instead of
+#baudboy 2010/08/23
+#OK: 2011/06/18
linux:
@if test \
`grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
else HAVE_PTMX=''; fi; fi ; \
+ if test `grep openpty /usr/include/pty.h | wc -l` -gt 0; \
+ then HAVE_OPENPTY='-DHAVE_OPENPTY'; \
+ else HAVE_OPENPTY=''; fi ; \
+ HAVE_LIBCURSES=''; \
+ if test -f /usr/lib64/libncurses.so || \
+ test -f /usr/lib/libncurses.a || \
+ test -f /usr/lib/libncurses.so; then \
+ HAVE_LIBCURSES='-lncurses'; \
+ else if test -f /usr/lib64/libcurses.so || \
+ test -f /usr/lib/libcurses.a || \
+ test -f /usr/lib/libcurses.so; then \
+ HAVE_LIBCURSES='-lcurses'; fi; fi; \
+ HAVE_CURSES=''; \
+ if test -n '$$HAVE_LIBCURSES'; then \
+ if test -f /usr/include/ncurses.h; then \
+ HAVE_CURSES='-DCK_NCURSES -I/usr/include/ncurses'; \
+ else if test -f /usr/include/curses.h; then \
+ HAVE_CURSES='-DCK_CURSES'; \
+ fi; fi; fi; \
+ if test -f /usr/include/baudboy.h || test -f /usr/include/ttylock.h; \
+ then HAVE_LOCKDEV='-DHAVE_LOCKDEV' ; \
+ else HAVE_LOCKDEV='' ; fi ; \
if test -f /usr/include/baudboy.h ; \
then HAVE_BAUDBOY='-DHAVE_BAUDBOY' ; \
else HAVE_BAUDBOY='' ; fi ; \
$(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_NCURSES -I/usr/include/ncurses \
- $$HAVE_PTMX $$HAVE_BAUDBOY \
+ "KFLAGS=$$HAVE_CURSES $$HAVE_PTMX $$HAVE_LOCKDEV \
+ $$HAVE_BAUDBOY $$HAVE_OPENPTY \
+ `grep __USE_LARGEFILE64 /usr/include/features.h > /dev/null && \
+ echo '-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'` \
`if test -f /usr/include/crypt.h; then echo -DHAVE_CRYPT_H; fi` \
$(KFLAGS)" \
- "LIBS=-lncurses \
- `if test -f /usr/lib/libresolv.a || test -f /usr/lib/libresolv.so; \
+ "LIBS=$(LIBS) $$HAVE_LIBCURSES \
+ `if test -n '$$HAVE_OPENPTY'; then echo -lutil; fi` \
+ `if test -f /usr/lib64/libresolv.a || test -f /usr/lib64/libresolv.so \
+ || test -f /usr/lib/libresolv.a || test -f /usr/lib/libresolv.so \
+ || test -f /usr/lib/i386-linux-gnu/libresolv.a \
+ || test -f /usr/lib/i386-linux-gnu/libresolv.so \
+ || ls /lib/x86_64-linux-gnu/libresolv.* > /dev/null 2> /dev/null; \
then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a || test -f /usr/lib/libcrypt.so; \
- then echo -lcrypt; fi`" \
+ `if test -f /usr/lib64/libcrypt.a || test -f /usr/lib64/libcrypt.so \
+ || test -f /usr/lib/libcrypt.a || test -f /usr/lib/libcrypt.so \
+ || ls /lib/x86_64-linux-gnu/libcrypt.* > /dev/null 2> /dev/null; \
+ then echo -lcrypt; fi` \
+ `if test -f /usr/lib64/liblockdev.a || \
+ test -f /usr/lib64/liblockdev.so || \
+ test -f /usr/lib/liblockdev.a || \
+ test -f /usr/lib/liblockdev.so; \
+ then echo -llockdev; fi`" \
linuxa
-# As above but for Linux systems that have no <sys/select.h>.
+# Linux + Shadow passwords + PAM
+# OK 2011/06/18
+linux+shadow+pam:
+ @echo 'Making C-Kermit $(CKVER) for Linux+Shadow+PAM...'
+ $(MAKE) linux KTARGET=$${KTARGET:-$(@)} \
+ KFLAGS="-DCK_SHADOW -DCK_PAM $(KFLAGS)" \
+ "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS = -lpam"
+
+# Linux systems that have no <sys/select.h>.
+# (not tested in recent years, perhaps no longer needed)
linuxns:
$(MAKE) linux KTARGET=$${KTARGET:-$(@)} KFLAGS=-DNO_SYS_SELECT_H
-# As above, but forces use of curses rather than ncurses.
-# Add -ltermcap to LIBS if necessary.
-# Also watch out for libcurses and/or libtermcap having been moved.
-# In that case you might need something like:
-# "LIBS = -L/usr/lib/curses -lcurses -L/usr/lib/termcap -ltermcap"
+# Linux-script-only:
+# A minimum-size version for Linux that does only scripting and
+# serial communication -- no networks, no file transfer, no security.
+# OK 2011/06/18
+linuxso:
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
+ "CFLAGS = -O -DLINUX -pipe -funsigned-char -DPOSIX -DCK_POSIX_SIG \
+ -DLINUXFSSTND -DNOCOTFMC -DNOXFER -DNODEBUG -DNOCSETS -DNOHELP \
+ -DNONET -DMINIDIAL -DNOSCRIPT -DNOIKSD -DNOPUSH $(KFLAGS)" \
+ "LNKFLAGS = $(LNKFLAGS)" "LIBS = "
-linuxc:
- @if test \
- `grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
- then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
- else HAVE_PTMX=''; fi; fi ; \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DCK_CURSES $$HAVE_PTMX \
- `if test -f /usr/lib/libcrypt.a; then echo -DHAVE_CRYPTH; fi` \
- $(KFLAGS)" \
- "LIBS=-lcurses \
- `if test -f /usr/lib/libresolv.a; then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a; then echo -lcrypt; fi`" \
- linuxa
+# Secure targets for Linux. These work on RHAS4, RHEL4, and RHEL5,
+# unlike some of the older targets that follow. They hook into the main Linux
+# target so we pick up all the other new stuff - large files, baudboy.h, the
+# appropriate pty interface, etc.
-# As above but with with no curses support, for example because you installed
-# the developer tools but did not install (n)curses.
-linuxnc:
- @if test \
- `grep grantpt /usr/include/*.h /usr/include/sys/*.h | wc -l` -gt 0; \
- then if test -c /dev/ptmx; then HAVE_PTMX='-DHAVE_PTMX'; \
- else HAVE_PTMX=''; fi; fi ; \
- $(MAKE) KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS= $$HAVE_PTMX \
- `if test -f /usr/lib/libcrypt.a; then echo -DHAVE_CRYPTH; fi` \
- $(KFLAGS)" "LIBS= \
- `if test -f /usr/lib/libresolv.a; then echo -lresolv; fi` \
- `if test -f /usr/lib/libcrypt.a; then echo -lcrypt; fi`" \
- linuxa
+# Linux with Kerberos 5.
+# Use "make linux+krb5 KFLAGS=-DNO_KRB5_INIT_ETS" if necessary.
+#OK 2011/06/16 on Fedora 14 with:
+# make linux+krb5 "LIBS=$LIBS /lib/libk5crypto.so.3 /lib/libcom_err.so.2"
+# On RHEL5: make linux+krb5 -UCK_DES
+linux+krb5:
+ @echo 'Making C-Kermit $(CKVER) for Linux with Kerberos 5...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ K5CRYPTO=''; \
+ if ls /lib/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ else if ls /usr/lib/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ else if ls /usr/lib64/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ fi; fi; fi; \
+ COM_ERR=''; \
+ if ls /lib/libcom_err* > /dev/null 2> /dev/null; then \
+ COM_ERR='-lcom_err'; \
+ fi; \
+ GSSAPILIB='-lgssapi'; \
+ if ls /lib/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ else if ls /usr/lib/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ else K5DIR=`echo $(K5LIB) | sed 's|-L||'`; \
+ if ls $$K5DIR/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ fi; fi; fi; \
+ $(MAKE) linux KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 $$OPENSSLOPTION \
+ -DCK_ENCRYPTION $$HAVE_DES $(K5INC) $(K5INC)/krb5 \
+ -I/usr/include/et $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS = $(K5LIB) $$DES_LIB -lcrypto $$GSSAPILIB -lkrb5 \
+ $$K5CRYPTO $$COM_ERR $(LIBS)" ; \
+ if [ ! -f ./wermit ] || [ ./ckcmai.o -nt ./wermit ] ; then \
+ echo ""; \
+ echo "If build failed try:"; \
+ echo ""; \
+ echo " make clean ; make $${KTARGET:-$(@)} KFLAGS=-UCK_DES"; \
+ echo ""; \
+ fi
+
+# Linux with Kerberos 5 and Kerberos 4.
+# Use "make linux+krb5 KFLAGS=-DNO_KRB5_INIT_ETS" if necessary.
+# Add "KFLAGS=-UCK_DES" if failure messages look DES-related.
+# UNTESTED (because I can't find a box with Krb4 and Krb5 installed)
+linux+krb5+krb4:
+ @echo 'Making C-Kermit for Linux with Kerberos 4 and Kerberos 5'
+ $(MAKE) linux+krb5 KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DKRB4 -DKRB524 $(KFLAGS)" "LIBS=$(LIBS) -lkrb4"
+
+# Linux with OpenSSL
+# In Linux, SSL libs are often in /lib or /usr/lib and so found by default.
+# This targets takes into account the DES library might or might not
+# exist. If it does exist, however, the target will require some editing
+# if its basename is not libdes425. - fdc Tue Sep 21 14:28:00 2010
+# IMPORTANT: Some Linux platforms have DES libraries but they are missing
+# functions used by Kermit. In that case you will get fatal errors at
+# link time involving routines such as des_ecb3_encrypt, des_random_seed,
+# and des_set_odd_parity. In that case, "make linux KFLAGS=-UCK_DES"
+# There's a new warning at the end that should come out if this happens,
+# and that should not come out if it didn't.
+#
+linux+ssl linux+openssl linux+openssl+zlib+shadow+pam linux+openssl+shadow:
+ @echo 'Making C-Kermit $(CKVER) for Linux+OpenSSL SSLLIB=$(SSLLIB)'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ $(MAKE) linux KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_ENCRYPTION -DCK_CAST $$HAVE_DES \
+ -DCK_SSL -DCK_PAM -DZLIB -DCK_SHADOW $$OPENSSLOPTION $(SSLINC) \
+ $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS = $(SSLLIB) -lssl $$DES_LIB -lcrypto -lpam -ldl -lz $(LIBS)" ; \
+ if [ ! -f ./wermit ] || [ ./ckcmai.o -nt ./wermit ] ; then \
+ echo ""; \
+ echo "If build failed try:"; \
+ echo ""; \
+ echo " make clean ; make $${KTARGET:-$(@)} KFLAGS=-UCK_DES"; \
+ echo ""; \
+ fi
+
+# Linux with Kerberos 5 and OpenSSL
+# OK 2011/05/16
+# Add -UCK_DES if functions like des_ecb3_encrypt, es_random_seed,
+# come up missing at link time.
+linux+krb5+ssl linux+krb5+openssl:
+ @echo 'Making C-Kermit $(CKVER) for Linux with Krb5 and OpenSSL...'
+ @case `openssl version` in \
+ *0.9.7*) OPENSSLOPTION="-DOPENSSL_097" ;; \
+ *0.9.8*) OPENSSLOPTION="-DOPENSSL_098" ;; \
+ *1.[0-9].[0-9]*) OPENSSLOPTION="-DOPENSSL_100" ;; \
+ *) OPENSSLOPTION="" ;; \
+ esac; \
+ HAVE_DES=''; \
+ DES_LIB=''; \
+ if ls /usr/lib/libdes* > /dev/null 2> /dev/null || \
+ ls $(SSLLIB)/libdes* > /dev/null 2> /dev/null; then \
+ DES_LIB='-ldes425'; \
+ HAVE_DES='-DCK_DES -DLIBDES'; \
+ echo "HAVE DES"; \
+ else echo "NO DES"; \
+ fi; \
+ K5CRYPTO=''; \
+ if ls /lib/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ else if ls /usr/lib/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ else if ls /usr/lib64/libk5crypto* > /dev/null 2> /dev/null; then \
+ K5CRYPTO='-lk5crypto'; \
+ fi; fi; fi; \
+ COM_ERR=''; \
+ if ls /lib/libcom_err* > /dev/null 2> /dev/null; then \
+ COM_ERR='-lcom_err'; \
+ fi; \
+ GSSAPILIB='-lgssapi'; \
+ if ls /lib/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ else if ls /usr/lib/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ else K5DIR=`echo $(K5LIB) | sed 's|-L||'`; \
+ if ls $$K5DIR/libgssapi_krb5* > /dev/null 2> /dev/null; then \
+ GSSAPILIB='-lgssapi_krb5'; \
+ fi; fi; fi; \
+ $(MAKE) linux KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
+ "KFLAGS= -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 \
+ -DCK_SSL -DCK_PAM -DZLIB -DCK_SHADOW $$OPENSSLOPTION $(SSLINC) \
+ -DCK_ENCRYPTION $$HAVE_DES $(K5INC) $(K5INC)/krb5 \
+ -I/usr/include/et $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
+ "LIBS = $(K5LIB) $(SSLLIB) -lssl $$DES_LIB -lpam -lz \
+ -lcrypto $$GSSAPILIB -lkrb5 $$K5CRYPTO $$COM_ERR $(LIBS)" ; \
+ if [ ! -f ./wermit ] || [ ./ckcmai.o -nt ./wermit ] ; then \
+ echo ""; \
+ echo "If build failed try:"; \
+ echo ""; \
+ echo " make clean ; make $${KTARGET:-$(@)} KFLAGS=-UCK_DES"; \
+ echo ""; \
+ fi
+
+# ::BEGIN_OLD_LINUX_TARGETS::
+
+# The remaining Linux entries are for special or customized builds. They have
+# not been generalized ("subroutinized") like the ones above. Ideally, we
+# should allow for every combination of libc vs glibc, gcc vs egcs, curses vs
+# ncurses, Kerberos IV vs Kerberos V vs SRP (in any combination), and so on.
+# The best way to do this is to set KFLAGS and LIBS values and then chain to
+# the main "linux" target, as in the examples just above. To skip past all of
+# these old targets (and there are many) search for ::END_OLD_LINUX_TARGETS::
+# (after this line).
#Sharp Zaurus SL-5500 - Linux based
zsl5500:
$(MAKE) linuxnc KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DZSL5500" \
"CC = gcc" "CC2 = gcc"
-# A minimum-size version for Linux that does only scripting and
-# serial communication -- no networks, no file transfer.
-linuxso:
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -DLINUX -pipe -funsigned-char -DPOSIX -DCK_POSIX_SIG \
- -DLINUXFSSTND -DNOCOTFMC -DNOXFER -DNODEBUG -DNOCSETS -DNOHELP \
- -DNONET -DMINIDIAL -DNOSCRIPT -DNOIKSD -DNOPUSH $(KFLAGS)" \
- "LNKFLAGS = $(LNKFLAGS)" "LIBS = "
-
#Mklinux DR3 has horrible bug in <utmpbits.h> - see ckufio.c.
mklinux:
$(MAKE) KTARGET=$${KTARGET:-$(@)} "KFLAGS=-DUTMPBUG" \
fi
-# The remaining Linux entries are for special or customized builds. They
-# have not been generalized like the ones above. Ideally, we should allow
-# for every combination of libc vs glibc, gcc vs egcs, curses vs ncurses,
-# Kerberos IV vs Kerberos V vs SRP (in any combination), and so on --
-# volunteers welcome.
-
+# Like "make linux" but built with egcs rather than gcc.
# If you get "Internal compiler error xxx, output pipe has been closed",
# try removing -pipe.
-
-# Like "make linux" but built with egcs rather than gcc.
linuxegcs:
@echo 'Making C-Kermit $(CKVER) for Linux 1.2 or later with egcs...'
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = egcs" "CC2 = egcs" \
"LNKFLAGS = $(LNKFLAGS)" "LIBS = -lncurses -lcrypt -lresolv"
#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1 (no K4 compatibility).
-linux+krb5:
+linux+krb5-old:
@echo 'Making C-Kermit $(CKVER) for Linux on Intel with Kerberos...'
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
"CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
"LIBS = $(K5LIB) -lncurses -ltermcap -ldes425 -lkrb5 \
-lcom_err -lk5crypto -lgssapi_krb5 -lcrypt -lresolv"
-#Linux on Intel PC with Cygnus or MIT Kerberos 5 1.2.1 with K4 compatibility.
-#
-# Requires the Kerberos 1.2.1 be compiled with KRB4 compatibility.
-linux+krb5+krb4:
- @echo 'Making C-Kermit $(CKVER) for Linux on Intel with Kerberos...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DKRB4 -DKRB524 \
- -DCK_ENCRYPTION -DCK_DES -DCK_CURSES -DCK_POSIX_SIG \
- -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H $(K5INC) $(K5INC)/krb5 \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = $(K5LIB) -lncurses -ltermcap -lkrb4 -ldes425 -lkrb5 \
- -lcom_err -lk5crypto -lcrypt -lgssapi_krb5 -lresolv"
-
# Linux on Intel PC with SRP 1.7.4 using GNU MP, Krypto, and Eric Young's
# DES library. Remove the -DCK_DES, -DLIBDES and -ldes if you do not have
# Eric Young's# libdes.a installed.
"LIBS = $(SRPLIB) $(SSLLIB) -lncurses -ltermcap -lsrp -lkrypto \
-lcrypto -lcrypt -lpam -ldl -lm -lresolv"
-linux+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with Shadow+PAM...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DCK_SHADOW -DCK_PAM -DFNFLOAT \
- $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS = -lncurses -ltermcap -lcrypt -lpam -ldl -lm -lresolv"
-
-#Linux configured for SSL/TLS.
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt"
-
-#Linux configured for SSL/TLS and Shadow Passwords
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl+shadow:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT -DCK_SHADOW $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt"
-
-#Linux configured for SSL/TLS, ZLIB, PAM and Shadow Passwords
-#Remove -ltermcap if it causes trouble e.g. in Debian 2.2.
-#If you have OpenSSL 0.9.7 or later, add -DOPENSSL_097 to KFLAGS.
-linux+openssl+zlib+shadow+pam:
- @echo 'Making C-Kermit $(CKVER) for Linux on i386 with SSL/TLS...'
- $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
- "CFLAGS = -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_SSL -DCK_PAM -DZLIB \
- -DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
- -DFNFLOAT -DCK_SHADOW $(SSLINC) $(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" \
- "LIBS= $(SSLLIB) \
- -lncurses -ltermcap -lssl -lcrypto -lm -lresolv -lcrypt -lz -lpam -ldl"
-
#Linux on Intel PC with SRP and SSL/TLS.
#
# libsrp.a should be build with OpenSSL
$(MAKE) linux+krb5+krb4+srp+openssl+zlib+shadow+pam \
KTARGET=$${KTARGET:-$(@)} "KFLAGS = -DRH90 -DOPENSSL_097 $(KFLAGS)"
+#For Red Hat AS 2.1 with OpenSSL
+redhat21+ssl:
+ @echo "Building SECURE Kermit for Red Hat 2.1..."
+ $(MAKE) linux+openssl+zlib+shadow+pam \
+ KTARGET=$${KTARGET:-$(@)} "KFLAGS = $(KFLAGS)"
+
#Red Hat Linux 8.0 - full install includes Kerberos 5 (4 compat), PAM, SSL.
#Also works around bug in curses in which terminal goes dead after
#returning from file-transfer display.
@echo 'Making C-Kermit $(CKVER) for Linux on i386 with KRB5,SSL...'
$(MAKE) xermit KTARGET=$${KTARGET:-$(@)} "CC = gcc" "CC2 = gcc" \
"CFLAGS = -g -O -funsigned-char -pipe -DPOSIX -DLINUX -DNOCOTFMC \
- -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DCK_SHADOW \
+ -DCK_AUTHENTICATION -DCK_KERBEROS -DKRB5 -DCK_SHADOW -DHAVE_PTMX \
-DCK_ENCRYPTION -DCK_CAST -DCK_DES -DLIBDES -DCK_SSL -DCK_PAM -DZLIB \
-DCK_CURSES -DCK_POSIX_SIG -DTCPSOCKET -DLINUXFSSTND -DHAVE_CRYPT_H \
$(K5INC) $(K5INC)/krb5 $(SSLINC) \
"CFLAGS = -O -DLINUX -DPOSIX -DCK_CURSES -DCK_POSIX_SIG -DNOLEARN \
$(KFLAGS)" "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lcurses -ltermcap"
+# ::END_OLD_LINUX_TARGETS::
+
# LynxOS 2.2 with GCC compiler, TCP/IP and fullscreen display.
# Probably also works with Lynx 2.1, and maybe even Lynx 2.0.
# -X means use termios serial drivers rather than BSD4.3-style sgtty drivers.
#Use -M3 to generate 32-bit i386 code instead of 16-bit segmented i286 code.
#Use -Me to enable MS nonstandard keywords in system headers.
#Use -W2 or W3 to increase the warning level.
+#OK: 2011/06/15
sco234:
@echo 'Making C-Kermit $(CKVER) for SCO XENIX 2.3.4...'
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
@echo TCP/IP networking and OpenSSL added...
$(MAKE) "MAKE=$(MAKE)" sco32v500net+ssl KTARGET=$${KTARGET:-$(@)} \
"KFLAGS=-DSCO_OSR505 -DNOSHADOW -b elf -DPOSIX $(KFLAGS) " \
+ "LIBS=$(SSLLIB) -lcurses -lsocket -lssl -lcrypto $(LIBS)" \
+ "LNKFLAGS=$(LNKFLAGS)"
#SCO OpenServer 5.0.5 with networking, SCO UDK.
#See comments with above sco32v505 targets.
"KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR506A -DNEEDMDMDEFS \
-b elf -DPOSIX $(KFLAGS)"
-#SCO OpenServer 5.0.6a with networking, SCO development tools.
-# Add -DDCLTIMEVAL when building with UDK.
-sco32v506anet:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR506A -DNEEDMDMDEFS \
- -b elf -DPOSIX $(KFLAGS)"
+#SCO OpenServer 5.0.6a with networking, SCO development tools.
+# Add -DDCLTIMEVAL when building with UDK.
+sco32v506anet:
+ @echo TCP/IP networking added...
+ $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR506A -DNEEDMDMDEFS \
+ -b elf -DPOSIX $(KFLAGS)"
+
+#SCO OpenServer 5.0.7, no networking, SCO development tools.
+#Adds flags to make PTY and SSH commands work. These have been tested
+#only in 5.0.7 but probably they can also be added to earlier OSR5 targets.
+sco32v507:
+ $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
+ -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
+ -b elf -DPOSIX $(KFLAGS)"
+
+#SCO OpenServer 5.0.7 as above but with networking.
+sco32v507net:
+ @echo TCP/IP networking added...
+ $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
+ "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
+ -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
+ -b elf -DPOSIX $(KFLAGS)"
+
+#SCO OpenServer 6 (new target 30 Jan 2006)
+sco_osr600 sco600:
+ @echo Making C-Kermit $(CKVER) for SCO OpenServer 6.0.0...
+ $(MAKE) xermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -O -DDIRENT -DHDBUUCP -DSVR4 -DCK_SCOV5 -DCK_RTSCTS \
+ -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DSELECT -DSELECT_H \
+ -DNOGETUSERSHELL -DNOLSTAT -DNOLINKBITS -DTCPSOCKET \
+ -DNO_DNS_SRV -DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
+ -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT -DDCLTIMEVAL \
+ -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 \
+ -DSOCKOPT_T=socklen_t -DGSOCKNAME_T=size_t -DGPEERNAME_T=size_t \
+ -DHERALD=\"\\\" SCO OpenServer `uname -v`\\\"\" \
+ -b elf -DPOSIX $(KFLAGS)" \
+ "LIBS=-lcurses -lsocket $(LIBS)" "LNKFLAGS=$(LNKFLAGS)"
+
+#Tandy 16/6000 with Xenix 3.0 (16 bits)
+#C-Kermit 7.0 (and later) do not build here; "too many defines".
+#Add more -DNOxxx options to remove features if program won't load.
+#Successful operation is a function of program size, physical memory,
+#available swap space, etc. The following stripped-down configuration
+#seems to work on most Tandy 6000s. NOTE: "-+" means allow long variable
+#names, needed for C-Kermit 6.0 because some identifiers are not unique
+#within the first six characters.
+trs16:
+ @echo 'Making C-Kermit $(CKVER) for Tandy 16/6000, Xenix 3.0...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS = -+ -DATTSV -DTRS16 -DNOMKDIR -DDCLPOPEN -DCK_CURSES \
+ -DNODEBUG -DNOTLOG -DNOHELP -DNOSCRIPT -DNOCSETS -DNOIKSD \
+ -DNOREDIRECT -DNOSYSLOG -DNOPUTENV -DNOREALPATH -DNOLEARN \
+ $(KFLAGS) -O" "LIBS= -lcurses -ltermcap" "LNKFLAGS = -+ -n -s"
+
+# QNX 4.21 and above, 32-bit version, Watcom C32 10.6, fully configured,
+# except no job control because QNX 4.x does not support it. New NCURSES
+# library used instead of CURSES.
+#
+# -Oatx optimizes to favor speed over size: loop optimization, inline fn's.
+# -Os favors size over speed. Saves 30-40K out of about 1.75M.
+# -3r = generate 386 code with register-based arg passing.
+# -3s = generate 386 code with stack-based arg passing.
+# -ms = separate code & data 4GB segments (32-bit builds only).
+# -mf = flat memory model code+data in one 4GB segment (ditto).
+# -zc = place literal strings in code segment.
+# -N4M = Big stack (increase the digit upon SIGSEGVs at runtime).
+# chars are unsigned by default (-j makes them signed by default).
+# -NOUUCP is included because QNX doesn't use it.
+# Add these to the end if you like but they dump core on my QNX 4.25 system:
+#
+# @wermit -h >use.qnx
+# @usemsg wermit use.qnx
+# @rm use.qnx
+#
+# If you get warnings about HEADER or C_IN add -DNO_DNS_SRV.
+# OK 2011/06/14
+qnx32:
+ @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit...'
+ $(MAKE) xermit \
+ "LNKFLAGS = -N4M -3r" \
+ "CFLAGS = -ms -3r -DQNX -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
+ -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
+ -DNOINITGROUPS -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
+ "LIBS= -lsocket -lncurses -ltermcap"
+
+# As above but no networking since some QNX systems do not have TCP/IP
+# installed, or the TCP/IP developers kit, which includes all the needed
+# header files. This entry has not been tested on a QNX system that, in
+# fact, does not have TCP/IP installed; some adjustments might be necessary,
+# in particular regarding the use of select(): is -lsocket needed, can we
+# get the needed definitions from non-TCP/IP header files (FD_SET, etc)?
+qnx32nonet:
+ @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit, no net...'
+ $(MAKE) xermit \
+ "LNKFLAGS = -N4M -3r" \
+ "CFLAGS = -3r -ms -DQNX -DNONET -DNOIKSD -DCK_CURSES \
+ -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
+ -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
+ "LIBS= -lsocket -lncurses -ltermcap"
+ @wermit -h >use.qnx
+ @usemsg wermit use.qnx
+ @rm use.qnx
+
+# Synonym for qnx32.
+qnx:
+ $(MAKE) qnx32 "KFLAGS=$(KFLAGS)"
-#SCO OpenServer 5.0.7, no networking, SCO development tools.
-#Adds flags to make PTY and SSH commands work. These have been tested
-#only in 5.0.7 but probably they can also be added to earlier OSR5 targets.
-sco32v507:
- $(MAKE) "MAKE=$(MAKE)" sco32v500 KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
- -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
- -b elf -DPOSIX $(KFLAGS)"
+# QNX 4.21 and above, 16-bit version, Watcom C 8.5 - and higher on i286 PCs
+# and above.
+#
+# IMPORTANT: Do not use Watcom C 10.6!!!
+# If you have it installed, add "-v9.52 to CFLAGS"
+#
+# NOTE: QNX 4.23 onward does not work on 286's anyway.
+# Stacksize 26000, objects larger than 100 bytes in their own segments,
+# string constants to the codesegment, etc. Fully configured except job ctrl.
+# This entry works for building a 16-bit executable on a 32-bit system, but
+# has not been tested on a 16-bit system. Uses large memory model, links
+# explicitly with large-model sockets library. Correct-model curses library
+# is chosen automatically. See comment in qnx32 entry about -DNOUUCP.
+#
+# WARNING:
+#
+# Watcom C prior to 10.6 never had released curses library. To link against it,
+# you must obtain ported free curses source from ftp://ftp.qnx.com/usr/free,
+# then compile and build library (cursesl.lib) and place it in /usr/lib. You
+# must also copy curses.h to /usr/include. Be aware that if you have Watcom
+# 10.6 installed, you should already have curses.h, which is the new ncurses
+# library. You must back it up and use free curses.h instead, since ncurses is
+# only for 32-bit applications and some definitions in these files are
+# different (e.g., clearok()). For safety, curses is not defined in build.
+#
+# In 7.0 -DNOHELP added to keep ckuus2.c from blowing up; NOCSETS and NOSPL
+# added because ckuus4 was blowing up, and NOFLOAT just because it seemed
+# dangerous (remove -DNOFLOAT if you want to try it), The result works OK
+# except for some mysterious beeps upon termination of the top-level keyword.
+#
+# Things to try next time we get in trouble:
+# . Change -zt100 to something smaller like -zt25
+# . Change -Oatx to -Omilerat (enable stack checking)
+# . Maybe get rid of -v9.52 -- it's only there because we were warned.
+#
+qnx16:
+ @echo 'Making C-Kermit $(CKVER) for QNX 4.21, 16-bit...'
+ $(MAKE) xermit \
+ "LNKFLAGS = -2 -ml -N 26000" \
+ "CFLAGS = -2 -Oatx -zc -zt100 -ml -DQNX -DQNX16 -DNOUUCP -DNOHELP \
+ -DCK_REDIR -DSELECT -DSELECT_H -DNOJC -DNOGETUSERSHELL -DNOCSETS \
+ -v9.52 -DTCPSOCKET -DCK_RTSCTS -DCK_ANSIC -DNOINITGROUPS -DNOKVERBS \
+ -DNORANDOM -DNOCSETS -DNOSPL -DNOFLOAT -DPID_T=pid_t $(KFLAGS)"
-#SCO OpenServer 5.0.7 as above but with networking.
-sco32v507net:
- @echo TCP/IP networking added...
- $(MAKE) "MAKE=$(MAKE)" sco32v500net KTARGET=$${KTARGET:-$(@)} \
- "KFLAGS=-DSCO_OSR505 -DSCO_OSR506 -DSCO_OSR507 -DNEEDMDMDEFS \
- -DHAVE_PTSNAME -DHAVE_PTMX -DHAVE_GRANTPT \
- -b elf -DPOSIX $(KFLAGS)"
+# QNX 4.1, 16-bit version, with Watcom C 8.5 on i286 PCs and above.
+# stacksize 26000, objects larger than 100 bytes in their own segments,
+# string constants to the codesegment, etc. Add -DNOUUCP if desired.
+qnx16_41:
+ @echo 'Making C-Kermit $(CKVER) for QNX 4.1, 16-bit...'
+ $(MAKE) xermit \
+ "LNKFLAGS = -mh -N 26000" "CFLAGS = -Wc,-fpc -Wc,-j -DNOGETUSERSHELL \
+ -Wc,-Ols -Wc,-zdf -Wc,-zc -Wc,-zt100 -mh -DPOSIX -DQNX -DDIRENT \
+ -DNOCYRIL -DNODEBUG -DNOMSEND -DMINIDIAL -DNOXMIT -DNOSCRIPT -DNOSPL \
+ -DNOSETKEY -DNOINITGROUPS -DQNX16 -DPID_T=pid_t $(KFLAGS)"
-#Tandy 16/6000 with Xenix 3.0
-#Add more -DNOxxx options to remove features if program won't load.
-#Successful operation is a function of program size, physical memory,
-#available swap space, etc. The following stripped-down configuration
-#seems to work on most Tandy 6000s. NOTE: "-+" means allow long variable
-#names, needed for C-Kermit 6.0 because some identifiers are not unique
-#within the first six characters.
-#C-Kermit 7.0 does not build here; "too many defines".
-trs16:
- @echo 'Making C-Kermit $(CKVER) for Tandy 16/6000, Xenix 3.0...'
- $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
- "CFLAGS = -+ -DATTSV -DTRS16 -DNOMKDIR -DDCLPOPEN -DCK_CURSES \
- -DNODEBUG -DNOTLOG -DNOHELP -DNOSCRIPT -DNOCSETS -DNOIKSD \
- -DNOREDIRECT -DNOSYSLOG -DNOPUTENV -DNOREALPATH -DNOLEARN \
- $(KFLAGS) -O" "LIBS= -lcurses -ltermcap" "LNKFLAGS = -+ -n -s"
+# QNX Neutrino 2 (pwaechtler@qnx.de) crosscompiled on QNX 4.25.
+# Gets lots of compiler warnings.
+qnx_nto2+:
+ @echo 'Making C-Kermit $(CKVER) for QNX Neutrino 2+ '
+ cc -o wart ckwart.c
+ $(MAKE) xermit \
+ "CC = qcc -Vgcc_ntox86" \
+ "CC2 = qcc -Vgcc_ntox86" \
+ "LNKFLAGS = " \
+ "CFLAGS = -DNEUTRINO -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
+ -DNOUUCP -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS \
+ -DNOJC -DNOINITGROUPS -DCK_ANSIC -DPID_T=pid_t -DUNIX -DDIRENT \
+ -DMYREAD -DBSD44ORPOSIX -DSVORPOSIX -DNDGPWNAM $(KFLAGS)" \
+ "LIBS= -lsocket -lncurses "
+
+# QNX 6 (= Neutrino 2.xx) native build (kirussel@cisco.com).
+qnx6:
+ @echo 'Making C-Kermit $(CKVER) for QNX6'
+ $(MAKE) xermit KTARGET=QNX6 \
+ "CFLAGS = -DPOSIX -DCK_POSIX_SIG -DNETPTY -DNOARROWKEYS \
+ -DUSE_TIOCSDTR -DBIGBUFOK -DCKMAXOPEN=100 -DRLOGCODE -DNOREALPATH \
+ -DMAXNAMLEN=48 -DQNX6 -DUSE_TERMIO -DINIT_SPTY \
+ -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DDYNAMIC \
+ -DTCPSOCKET -DNOGETUSERSHELL -DCK_REDIR -DSELECT -DSELECT_H \
+ -DCK_RTSCTS -DNOJC -DSVORPOSIX -DBSD44ORPOSIX -DNOUUCP -DCK_ANSIC \
+ $(KFLAGS) -O" \
+ "LIBS= -lsocket -lncurses"
#MINIX/2.0 32 Bit version for intel 386+ running the POSIX-compliant MINIX
# version 2.0 (The definition of fatal avoids a conflict with a symbol by
# Make sure make(1) has (at least) 100000 chmemory!
# If you are using the Amsterdam C compiler, you might have to add "-D__ACK__".
minix68k:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with ACK...
+ @echo 'Making C-Kermit $(CKVER) for MINIX 68k with ACK...'
$(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE -DNOLEARN \
-DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
# call of make fails due to memory shortage. Try "make -n minixc68 >makeit",
# followed by ". makeit". Otherwise, as above.
minixc68:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...
+ @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...'
$(MAKE) wermit "CC= cc -c68" KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE -DNOLEARN \
-DNODIAL -DNOHELP -DNODEBUG -DNOTLOG \
#MINIX - 68k version with c68 compiler.
#A variation on the above that was recently (Sep 95) reported to work.
minixc68a:
- @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...
+ @echo 'Making C-Kermit $(CKVER) for MINIX 68k with c68...'
$(MAKE) wermit "CC= cc -c68" KTARGET=$${KTARGET:-$(@)} \
"CFLAGS= -DV7 -DMINIX -D_MINIX -D_POSIX_SOURCE \
-DCK_ANSIC -DNODEBUG -DNOTLOG -DMINIDIAL -DEXTEN -DMYCURSES \
-DTCPSOCKET -DCK_ANSILIBS -DCK_CURSES -DRENAME -O -X7 -X9 $(KFLAGS) \
-I/usr/include/bsd" "LIBS= -ln -lcurses"
-# QNX 4.21 and above, 32-bit version, Watcom C32 10.6, fully configured,
-# except no job control because QNX 4.x does not support it. New NCURSES
-# library used instead of CURSES.
-#
-# -Oatx optimizes to favor speed over size: loop optimization, inline fn's.
-# -Os favors size over speed. Saves 30-40K out of about 1.75M.
-# -3r = generate 386 code with register-based arg passing.
-# -3s = generate 386 code with stack-based arg passing.
-# -ms = separate code & data 4GB segments (32-bit builds only).
-# -mf = flat memory model code+data in one 4GB segment (ditto).
-# -zc = place literal strings in code segment.
-# -N4M = Big stack (increase the digit upon SIGSEGVs at runtime).
-# chars are unsigned by default (-j makes them signed by default).
-# -NOUUCP is included because QNX doesn't use it.
-# Add these to the end if you like but they dump core on my QNX 4.25 system:
-#
-# @wermit -h >use.qnx
-# @usemsg wermit use.qnx
-# @rm use.qnx
-#
-# If you get warnings about HEADER or C_IN add -DNO_DNS_SRV.
-qnx32:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -N4M -3r" \
- "CFLAGS = -ms -3r -DQNX -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
- -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
- -DNOINITGROUPS -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
- "LIBS= -lsocket -lncurses -ltermcap"
-
-# As above but no networking since some QNX systems do not have TCP/IP
-# installed, or the TCP/IP developers kit, which includes all the needed
-# header files. This entry has not been tested on a QNX system that, in
-# fact, does not have TCP/IP installed; some adjustments might be necessary,
-# in particular regarding the use of select(): is -lsocket needed, can we
-# get the needed definitions from non-TCP/IP header files (FD_SET, etc)?
-qnx32nonet:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.2x, 32-bit, no net...'
- $(MAKE) xermit \
- "LNKFLAGS = -N4M -3r" \
- "CFLAGS = -3r -ms -DQNX -DNONET -DNOIKSD -DCK_CURSES \
- -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS -DNOJC \
- -DNOUUCP -DCK_ANSIC -DPID_T=pid_t -Oatx -zc $(KFLAGS)" \
- "LIBS= -lsocket -lncurses -ltermcap"
- @wermit -h >use.qnx
- @usemsg wermit use.qnx
- @rm use.qnx
-
-# Synonym for qnx32.
-qnx:
- $(MAKE) qnx32 "KFLAGS=$(KFLAGS)"
-
-# QNX 4.21 and above, 16-bit version, Watcom C 8.5 - and higher on i286 PCs
-# and above.
-#
-# IMPORTANT: Do not use Watcom C 10.6!!!
-# If you have it installed, add "-v9.52 to CFLAGS"
-#
-# NOTE: QNX 4.23 onward does not work on 286's anyway.
-# Stacksize 26000, objects larger than 100 bytes in their own segments,
-# string constants to the codesegment, etc. Fully configured except job ctrl.
-# This entry works for building a 16-bit executable on a 32-bit system, but
-# has not been tested on a 16-bit system. Uses large memory model, links
-# explicitly with large-model sockets library. Correct-model curses library
-# is chosen automatically. See comment in qnx32 entry about -DNOUUCP.
-#
-# WARNING:
-#
-# Watcom C prior to 10.6 never had released curses library. To link against it,
-# you must obtain ported free curses source from ftp://ftp.qnx.com/usr/free,
-# then compile and build library (cursesl.lib) and place it in /usr/lib. You
-# must also copy curses.h to /usr/include. Be aware that if you have Watcom
-# 10.6 installed, you should already have curses.h, which is the new ncurses
-# library. You must back it up and use free curses.h instead, since ncurses is
-# only for 32-bit applications and some definitions in these files are
-# different (e.g., clearok()). For safety, curses is not defined in build.
-#
-# In 7.0 -DNOHELP added to keep ckuus2.c from blowing up; NOCSETS and NOSPL
-# added because ckuus4 was blowing up, and NOFLOAT just because it seemed
-# dangerous (remove -DNOFLOAT if you want to try it), The result works OK
-# except for some mysterious beeps upon termination of the top-level keyword.
-#
-# Things to try next time we get in trouble:
-# . Change -zt100 to something smaller like -zt25
-# . Change -Oatx to -Omilerat (enable stack checking)
-# . Maybe get rid of -v9.52 -- it's only there because we were warned.
-#
-qnx16:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.21, 16-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -2 -ml -N 26000" \
- "CFLAGS = -2 -Oatx -zc -zt100 -ml -DQNX -DQNX16 -DNOUUCP -DNOHELP \
- -DCK_REDIR -DSELECT -DSELECT_H -DNOJC -DNOGETUSERSHELL -DNOCSETS \
- -v9.52 -DTCPSOCKET -DCK_RTSCTS -DCK_ANSIC -DNOINITGROUPS -DNOKVERBS \
- -DNORANDOM -DNOCSETS -DNOSPL -DNOFLOAT -DPID_T=pid_t $(KFLAGS)"
-
-# QNX 4.1, 16-bit version, with Watcom C 8.5 on i286 PCs and above.
-# stacksize 26000, objects larger than 100 bytes in their own segments,
-# string constants to the codesegment, etc. Add -DNOUUCP if desired.
-qnx16_41:
- @echo 'Making C-Kermit $(CKVER) for QNX 4.1, 16-bit...'
- $(MAKE) xermit \
- "LNKFLAGS = -mh -N 26000" "CFLAGS = -Wc,-fpc -Wc,-j -DNOGETUSERSHELL \
- -Wc,-Ols -Wc,-zdf -Wc,-zc -Wc,-zt100 -mh -DPOSIX -DQNX -DDIRENT \
- -DNOCYRIL -DNODEBUG -DNOMSEND -DMINIDIAL -DNOXMIT -DNOSCRIPT -DNOSPL \
- -DNOSETKEY -DNOINITGROUPS -DQNX16 -DPID_T=pid_t $(KFLAGS)"
-
-# QNX Neutrino 2 (pwaechtler@qnx.de) crosscompiled on QNX 4.25.
-# Gets lots of compiler warnings.
-qnx_nto2+:
- @echo 'Making C-Kermit $(CKVER) for QNX Neutrino 2+ '
- cc -o wart ckwart.c
- $(MAKE) xermit \
- "CC = qcc -Vgcc_ntox86" \
- "CC2 = qcc -Vgcc_ntox86" \
- "LNKFLAGS = " \
- "CFLAGS = -DNEUTRINO -DTCPSOCKET -DCK_CURSES -DNOGETUSERSHELL \
- -DNOUUCP -DCK_WREFRESH -DCK_REDIR -DSELECT -DSELECT_H -DCK_RTSCTS \
- -DNOJC -DNOINITGROUPS -DCK_ANSIC -DPID_T=pid_t -DUNIX -DDIRENT \
- -DMYREAD -DBSD44ORPOSIX -DSVORPOSIX -DNDGPWNAM $(KFLAGS)" \
- "LIBS= -lsocket -lncurses "
-
-# QNX 6 (= Neutrino 2.xx) native build (kirussel@cisco.com).
-qnx6:
- @echo 'Making C-Kermit $(CKVER) for QNX6'
- $(MAKE) xermit KTARGET=QNX6 \
- "CFLAGS = -DPOSIX -DCK_POSIX_SIG -DNETPTY -DNOARROWKEYS \
- -DUSE_TIOCSDTR -DBIGBUFOK -DCKMAXOPEN=100 -DRLOGCODE -DNOREALPATH \
- -DMAXNAMLEN=48 -DQNX6 -DUSE_TERMIO -DINIT_SPTY \
- -DCK_CURSES -DCK_WREFRESH -DCK_NEWTERM -DDYNAMIC \
- -DTCPSOCKET -DNOGETUSERSHELL -DCK_REDIR -DSELECT -DSELECT_H \
- -DCK_RTSCTS -DNOJC -DSVORPOSIX -DBSD44ORPOSIX -DNOUUCP -DCK_ANSIC \
- $(KFLAGS) -O" \
- "LIBS= -lsocket -lncurses"
-
#Ridge 32 with ROS 3.2
ridge32:
@echo 'Making C-Kermit $(CKVER) Ridge 32 ROS 3.2'
# -DNOSPL, plus every other -DNOxxx flag there is, except for -DNOICP
# (see ckccfg.txt).
minix:
- @echo 'Making C-Kermit $(CKVER) for MINIX, no command parser...
+ @echo 'Making C-Kermit $(CKVER) for MINIX, no command parser...'
@echo 'TOTALLY UNTESTED!'
$(MAKE) wermit EXT=s \
"CFLAGS= -DV7 -DMINIX -i -D_MINIX -D_POSIX_SOURCE \
#MINIX - PC version with 64K+64K limit, new (as yet unreleased) ACK 2.0 beta C
#compiler, which outputs .o object files, rather than .s. But 'make' still
#expects .s files, so must be patched to use .o. Tested on Minix 1.5.10.
-minixnew:
+minix15:
@echo 'Making C-Kermit $(CKVER) for MINIX (new ACK 2.0 compiler),'
@echo 'no command parser... TOTALLY UNTESTED!'
$(MAKE) wermit \
-DNOHELP -DNODEBUG -DNOTLOG -DNOSCRIPT -DNOCSETS -DNOICP $(KFLAGS)" \
"LNKFLAGS= -i -T"
+#MINIX3 - MINIX 3.0 (no VM) - May-Aug 2005 (not sure if this ever worked...)
+minix3:
+ @echo 'Making C-Kermit $(CKVER) for MINIX3...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DPOSIX -DNOUUCP -DNOLEARN $(KFLAGS) -DMINIX2 \
+ -DMINIX3 -DNO_PARAM_H -DNOSYSLOG -DNOGETUSERSHELL \
+ -DNOINITGROUPS -DNOFTRUNCATE -DNOARROWKEYS -DDNOREALPATH \
+ -DTCPSOCKET -DNOTIMEZONE -DNOFTP -DNO_DNS_SRV -O"
+
+#MINIX315 - MINIX 3 1.5 - January 2010
+minix315:
+ @echo 'Making C-Kermit $(CKVER) for Minix 3 1.5...'
+ $(MAKE) wermit KTARGET=$${KTARGET:-$(@)} \
+ "CFLAGS= -DMINIX315 -DPOSIX -DNOUUCP -DNOJC -DNOLEARN $(KFLAGS) \
+ -DHAVE_OPENPTY -DNO_PARAM_H -DNOSYSLOG -DNOGETUSERSHELL \
+ -DSYSTIMEH -DNOINITGROUPS -DNOFTRUNCATE -DNOARROWKEYS -DNOREALPATH \
+ -DTCPSOCKET -DNOTIMEZONE -DNO_DNS_SRV -DNOFTP -O"
+
#PFU Compact A Series UNIX System V R3, SX/A TISP V10/L50 (Japan)
#Maybe the -i link option should be removed?
sxae50:
--- /dev/null
+COMMENT - Standard C-Kermit initialization file
+;
+; For C-Kermit Version: 8.0
+;
+; Filename:
+; .kermrc (UNIX, OS-9, Aegis)
+; CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
+; ckermit.ini (Stratus VOS)
+; K95.INI (Kermit 95 -- but this big version is not used there)
+; K2.INI (Kermit/2 -- but ditto)
+;
+; Authors:
+; Frank da Cruz, Christine M. Gianone, Jeffrey Altman
+; Columbia University, New York, NY 10025-7799, USA
+;
+; This is the standard and recommended C-Kermit 8.0 initialization file. To
+; override settings or definitions made in this file, to add new settings or
+; definitions, or to make any other desired customizations, create a separate,
+; personal customization file called:
+;
+; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9)
+; CKERMOD.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
+; ckermod.ini (VOS)
+;
+; You can also define the customization filename in an environment
+; variable (logical name in VMS), CKERMOD, which takes precedence over
+; the names shown above.
+;
+; WHAT THIS FILE DOES:
+;
+; . Defines your default dialing directory name:
+; .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
+; You can override this with the environment variable K_DIAL_DIRECTORY
+; . Defines your default network directory name:
+; .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
+; You can override this with the environment variable K_NET_DIRECTORY
+; . Defines your default services directory name:
+; .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
+; You can override this with environment variable K_SERVICE_DIRECTORY.
+; . Defines your customization file name (name given above)
+; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
+; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc.
+; . If you have a services directory, all the macros needed to use it are
+; defined. If you don't have a services directory, the macros are not
+; defined and Kermit starts faster.
+; . Executes your personal customization file, if you have one.
+; NOTE: Your customization file is NOT executed by Kermit itself; it is
+; executed by this file.
+;
+; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name
+; other than .kermrc, and it will not be executed automatically, but, if you
+; give this file execute permission, you can execute directly because of the
+; "kerbang line" at the top, whenever you want all of the above actions to
+; occur. The kerbang line must reflect the actual full path of the Kermit
+; 7.0-or-later executable.
+;
+; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
+; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
+; Butterworth-Heinemann, ISBN 1-55558-164-1. New features of subsequent
+; versions are documented at the Kermit website:
+; http://www.columbia.edu/kermit/
+;
+; Everything after this point depends on the script programming language.
+; The CHECK command terminates this command file immediately if the script
+; programming language (IF command) is not configured.
+;
+set take error on ; This makes CHECK quit if no script language.
+check if ; Do we have an IF command? If not, quit now.
+set take error off ; Back to normal.
+
+local _sd _servicedir _xp ; Declare local variables.
+
+COMMENT - C-Kermit version 6.0 or later required.
+;
+
+asg _xp \v(xprogram)
+if not def _xp asg _xp \v(program)
+if not equal "\m(_xp)" "C-Kermit" -
+ stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
+echo Executing \v(cmdfile) for \v(system)...
+if < \v(version) 60000 -
+ stop 1 \v(cmdfile): C-Kermit 6.0 or later required.
+
+forward \v(system) ; First do system-dependent items...
+
+:unknown ; Should not happen
+Stop 1 Error: System type unknown!
+
+:Aegis ; Apollo Aegis and
+:UNIX ; UNIX, all versions
+asg _myinit -
+ \v(home).mykermrc ; Customization filename
+if remote forward COMMON ; Skip local-mode items if "-R"
+asg _dialdir -
+ \v(home).kdd ; C-Kermit dialing directory
+asg _netdir -
+ \v(home).knd ; C-Kermit network directory
+asg _servicedir -
+ \v(home).ksd ; C-Kermit services directory
+forward COMMON ; End of UNIX section
+
+:OS9/68K ; OS-9
+asg _myinit -
+ \v(home).mykermrc ; Customization filename
+if remote forward COMMON
+asg _dialdir -
+ \v(home).kdd ; C-Kermit dialing directory
+asg _netdir -
+ \v(home).knd ; C-Kermit network directory
+asg _servicedir -
+ \v(home).ksd ; C-Kermit services directory
+else set file display crt
+forward COMMON ; End of OS-9 section
+
+:VMS ; VMS and OpenVMS
+forward COMMON
+
+:OS/2 ; Kermit 95
+:WIN32
+echo This initialization file is not for use with K95.
+forward COMMON ; End of OS/2 section
+
+:AOS/VS ; Data General AOS/VS
+set window 1 ; Sliding windows don't work
+set file char dg-international ; File character-set
+set xfer char latin1 ; Transfer character-set
+set file display crt ; File transfer fisplay
+def cli push ; Escape to CLI
+def reset - ; Macro to reset DG DASHER terminal
+ run write [!ascii 236 306 301]
+forward COMMON ; End of AOS/VS section
+
+:Amiga ; Commodore Amiga
+def cls echo \27[H\27[2J ; CLS command to clear the screen
+set file char latin1 ; Use Latin Alphabet 1 for file transfer
+set xfer char latin1 ; ...
+forward COMMON ; End of Amiga section
+
+:Atari_ST ; Atari ST
+def cls echo \27H\27J ; Clear screen a`la VT52
+set server display on ; Show file xfer display in server mode too
+set server timeout 15 ; Nonzero required for ^C interruption!
+forward COMMON ; End of Atari ST section
+
+:Macintosh ; Apple Macintosh
+set server display on ; Show file xfer display in server mode too.
+forward COMMON
+
+:Stratus_VOS ; Stratus VOS
+asg _myinit \v(home)ckermod.ini
+if remote forward COMMON
+asg _dialdir \v(home)ckermit.kdd
+asg _netdir \v(home)ckermit.knd
+asg _servicedir \v(home)ckermit.ksd
+forward COMMON ; End of Stratus VOS section
+
+:COMMON ; For all systems
+
+; Define macros that are useful when running C-Kermit in remote mode.
+; These macros serve no purpose on local-mode-only versions such as
+; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
+; for those systems.
+;
+if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
+ forward files
+
+; VTPRINT macro. Print a file on your PC's local printer.
+
+def VTPRINT echo \27[5i, type \%1, echo \27[4i
+; or if your printer needs a formfeed to force the page out:
+; def VTPRINT def echo \27[5i, type \%1, echo \12\27[4i
+
+; Macros for host-initiated file transfer using APC:
+; NOT NEEDED ANY MORE because of autodownload/autoupload.
+; Remove the following FORWARD command to reinstate these definitions:
+
+:FILES
+
+; Get customization and directory file names. Environment variables take
+; precedence, so you do not have to edit this file to change these filenames.
+;
+if def \$(CKERMOD) assign _myinit \$(CKERMOD)
+if not def _myinit assign _myinit \v(home)CKERMOD.INI
+
+if remote forward CUSTOM ; Skip all this if -R given on command line
+
+if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
+if not def _netdir assign _netdir \v(home)CKERMIT.KND
+
+if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
+if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD
+
+CHECK DIAL ; Is there a DIAL command?
+xif fail { ; No.
+ echo DIAL disabled
+ forward CUSTOM
+}
+
+CHECK NETWORK
+xif success {
+ xif exist \m(_netdir) {
+ set net directory \m(_netdir)
+ echo { Network directory is \m(_netdir) }
+ }
+}
+
+if eq "\v(name)" "telnet" forward CUSTOM
+
+xif exist \m(_dialdir) {
+ set dial directory \m(_dialdir)
+ echo { Dial directory is \m(_dialdir) }
+}
+
+COMMENT - Services directory
+
+if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
+if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD
+
+; If no services directory is found skip all the big macro definitions and
+; go straight to the bottom, where we execute the customization file.
+
+if not exist \m(_servicedir) forward custom
+
+echo { Services directory is \m(_servicedir)}
+
+def MAX_SVCS 200 ; Adjust this if you have more entries
+define _sd 0 ; Assume no services directory
+open read \m(_servicedir) ; Try to open services directory file
+xif success {
+ declare \&d[\m(MAX_SVCS)] ; It's open, declare directory array
+ for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
+ read \&d[\%i]
+ if fail break
+ }
+ close read
+ xif > \%i \m(MAX_SVCS) {
+ echo Too many entries in services directory
+ echo { Maximum is \m(MAX_SVCS).}
+ echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
+ echo { Services directory disabled.}
+ } else {
+ asg \&d[0] \feval(\%i - 1)
+ define _sd 1
+ }
+}
+
+xif not \m(_sd) {
+ def access echo { Services directory not available.}
+ asg list \m(access)
+} else {
+ def FIND {
+ set case off
+ for \%i 1 \&d[0] 1 {
+ if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
+ }
+ if not > \%i \&d[0] return \&d[\%i]
+ }
+ def LIST {
+ xif > \v(argc) 1 {
+ do find \%1
+ if def \v(return) echo \v(return)
+ else echo \%1: Not found
+ } else {
+ echo \&d[0] items in services directory:
+ for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
+ }
+ }
+ def SPLIT { asg _word1 \%1, asg _word2 \%2 }
+ def DOACCESS { ; (Used internally by ACCESS macro)
+ do \%5 \%6 \%7 \%8 \%9 ; Do the connection macro
+ if fail end 1
+ split \%3 ; Get words from \%3
+ asg \%3 \m(_word1)
+ asg \%2 \m(_word2)
+ do \%3 \%4 {\%1} \%2 ; Login macro, userid, password, prompt
+ }
+ def ACCESS {
+ if not defined \%1 end 1 access what? ; Check service
+ do find \%1 ; Look it up
+ if success doaccess {\%2} \v(return) ; OK, try it
+ else end 1 "\%1" not in services directory ; Not found
+ if fail end 1 ; DOACCESS failed?
+ xif eq \v(cmdlevel) 1 {
+ echo
+ echo ACCESS: Login succeeded - CONNECTing...
+ show escape
+ output \13
+ connect /quietly
+ }
+ }
+}
+
+:CONNECTION ; Macros for making connections
+
+COMMENT - SERIAL macro. Arguments:
+; \%1 = device name
+; \%2 = speed
+;
+def SERIAL {
+ if < \v(argc) 3 ; All arguments given?
+ end 1 Usage: SERIAL device speed ; No.
+ set line \%1 ; OK, try to SET LINE.
+ if failure - ; If this failed,
+ end 1 Can't open device: \%1 ; print message and quit.
+ set speed \%2 ; Try to set the speed.
+ if fail end 1 Unsupported speed: \%2 ; Failed.
+ echo Connection successful. ; Succeeded.
+}
+
+COMMENT - NET macro. Arguments:
+; \%1 = network type
+; \%2 = host name or address
+;
+def NET {
+ if < \v(argc) 3 end 1 Usage: NET network host
+ set network type \%1
+ if fail end 1 unsupported network: \%1
+ set login user ; Don't send user ID.
+ set host \%2
+ if fail end 1 Can't reach host: \%2
+ echo Connection successful.
+}
+
+COMMENT - CALL macro. Arguments:
+;
+; \%1 = modem type
+; \%2 = device name
+; \%3 = speed
+; \%4 = phone number
+;
+def CALL {
+ if < \v(argc) 5 - ; All arguments present?
+ end 1 Usage: CALL modem device speed number
+ xif not equal {\v(modem)} {\%1} { ; Set modem type
+ set modem \%1
+ if fail end 1 unknown modem type: \%1
+ }
+ xif not equal {\v(line)} {\%2} { ; Communication device
+ set line \%2
+ if fail end 1 can't open device: \%2
+ }
+ xif not equal {\v(speed)} {\%3} { ; Communication speed
+ set speed \%3
+ if fail end 1 unsupported speed: \%3
+ }
+ dial \%4 ; Dial the number
+ if fail end 1 Can't place call: \%4
+ end 0 Connection successful.
+}
+
+COMMENT - TCPCALL macro. Arguments:
+;
+; \%1 = server name:port
+; \%2 = modem type
+; \%3 = phone number
+;
+def TCPCALL {
+ if < \v(argc) 4 - ; All arguments present?
+ end 1 Usage: TCPCALL server[:port] modem number
+ set net type tcp/ip ; Which network to use
+ if fail end 1 unsupported network: tcp/ip
+ set host \%1 ; Access server and port
+ if fail end 1 can't access server \%1
+ set modem \%2 ; Set modem type
+ if fail end 1 unknown modem type: \%2
+ dial \%3 ; Dial the number
+ if fail end 1 Can't place call: \%3
+ end 0 Connection successful.
+}
+
+COMMENT - SPRINT macro. Arguments:
+; \%1 = Service name or address
+;
+def SPRINT {
+ if < \v(argc) 2 end 1 Usage: \%0 service
+ set input timeout proceed
+ output @D\13
+ input 10 TERMINAL=
+ if fail end 1 No terminal prompt
+ out D1\13
+ inp 10 @
+ if fail end 1 No atsign prompt
+ output c \%1\13
+ input 10 CONNECTED
+ if fail end 1 Can't access \%1 from SprintNet
+}
+
+COMMENT - ULOGIN macro. For logging into systems where user ID is required
+; but there is no password. Arguments:
+; \%1 = UNIX user ID
+;
+define ULOGIN {
+ if < \v(argc) 2 end 1 Usage: \%0 userid
+ set input timeout proceed ; Handle timeouts ourselves
+ set case on ; Case is important in UNIX
+ minput 5 login: Username: {User ID:} {User Name:}
+ out \%1\13 ; Send username, carriage return
+ end 0
+}
+
+COMMENT - VMSLOGIN macro. Arguments:
+; \%1 = VMS user ID
+; \%2 = Password. If password not supplied, it is prompted for.
+; \%3 = System prompt. If omitted a default is supplied.
+;
+define VMSLOGIN {
+ if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
+ while not defined \%2 {
+ askq \%2 { \%1's password: }
+ }
+ set parity none ; Set communication parameters
+ set duplex full
+ set handshake none
+ set input timeout proceed ; Handle timeouts ourselves
+ in 5 Username: ; Is prompt already there?
+ xif fail { ; No.
+ for \%i 1 3 1 { ; Try 3 times to get it.
+ out \13 ; Send carriage return
+ in 5 Username: ; Look for prompt
+ if success break ; Success, go log in
+ }
+ if > \%i 3 end 1 No Username prompt
+ }
+ out \%1\13 ; Send username, carriage return
+ inp 5 Password: ; Wait 5 sec for this prompt
+ if fail end 1 No password prompt
+ pause ; Wait a sec
+ out \%2\13 ; Send password
+ xif not emulation { ; No emulator built in?
+ set input echo off ; Protect terminal from this
+ minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
+ xif success { ; Got one
+ output \27[\?1c ; Send VT100 terminal ID
+ in 2 \27[6n ; Screen dimension query?
+ if succ out \27[\v(rows);\v(cols)R ; Send dimensions
+ }
+ set input echo on ; Echo input again
+ }
+ if not def \%3 - ; If we were not given a prompt
+ asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
+ if not def \%3 - ; If we still don't have a prompt
+ asg \%3 {\13$\32} ; use this one as the default
+ reinp 0 \%3 ; Did we INPUT the prompt already?
+ if fail inp 60 \%3 ; No, look now.
+ if fail end 1
+}
+
+COMMENT - UNIXLOGIN macro. Arguments:
+; \%1 = UNIX user ID
+; \%2 = Password. If password not supplied, it is prompted for.
+; \%3 = System prompt. If omitted a default is supplied.
+;
+define UNIXLOGIN {
+ local \%m \%i
+ if < \v(argc) 2 -
+ end 1 Usage: \%0 userid [ password [ prompt ] ]
+ while not defined \%2 {
+ askq \%2 { \%1's password: }
+ }
+ set input echo on
+ set parity none ; Set communication parameters.
+ set duplex full
+ set handshake none
+ set input timeout proceed ; Handle timeouts ourselves
+ set case on ; Case is important in UNIX
+ def \%m 10 ; Waiting time for INPUT
+ for \%i 1 5 1 {
+ minput \%m login: {ssword:} {Password for \%1:}
+ if success break
+ output \B\13
+ \%m ::= 6-\%1
+ }
+ if > \%i 5 end 1 {No response from host}
+ xif = \v(minput) 1 { ; Have username prompt
+ output \%1\13 ; Send username
+ minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
+ if fail end 1 {No password prompt}
+ }
+ pause ; Wait a sec
+ out \%2\13 ; Send password
+ if not def \%3 - ; If we were not given a prompt
+ asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
+ if not def \%3 - ; If we still don't have a prompt
+ asg \%3 {\10$ } ; use this one as the default
+ reinp 0 \%3 ; Did we INPUT the prompt already?
+ if fail inp 60 \%3 ; No, look now.
+ if fail end 1
+}
+
+COMMENT - VMLINELOGIN macro. Arguments:
+; \%1 = User ID
+; \%2 = Password
+;
+define VMLINELOGIN {
+ if < \v(argc) 2 -
+ end 1 Usage: \%0 userid [ password ]
+ while not defined \%2 {
+ askq \%2 { \%1's password: }
+ }
+ set parity mark ; Set communication parameters
+ set flow none
+ set handshake xon
+ set duplex half
+ set input timeout quit ; Don't bother with IF FAILURE
+ input 10 BREAK KEY ; Look for BREAK KEY prompt
+ pause 1 ; Wait a second
+ output \B ; Send BREAK
+ input 10 .\17, output logon \%1\13 ; Now log in
+ input 10 .\17, output \%2\13 ; Send password
+ input 10 .\17, output \13 ; Send carriage return
+ input 10 .\17, output \13 ; Send another one
+ end 0
+}
+
+COMMENT - VMFULLOGIN macro. Arguments:
+; \%1 = User ID
+; \%2 = Password
+;
+define VMFULLOGIN {
+ if < \v(argc) 2 -
+ end 1 Usage: \%0 userid [ password ]
+ while not defined \%2 {
+ askq \%2 { \%1's password: }
+ }
+ set input timeout quit ; Quit if INPUT fails
+ set parity even ; Set communication parameters
+ set duplex full
+ set handshake none
+ set flow xon/xoff
+ out \13 ; Send carriage return
+ inp 5 TERMINAL TYPE: ; Get terminal-type prompt
+ out vt-100\13 ; Just send "vt-100"
+ inp 20 RUNNING ; Get RUNNING message
+ pau 1 ; Wait one second
+ out \%1\9\%2\13 ; Send user ID, tab, password
+ out \13\13 ; Two more carriage returns
+ end 0
+}
+
+COMMENT - CISLOGIN macro. Arguments:
+; \%1 = CompuServe User ID
+; \%2 = Password
+; \%3 = Prompt
+;
+define CISLOGIN {
+ if < \v(argc) 2 -
+ end 1 Usage: \%0 userid [ password [ prompt ] ]
+ while not defined \%2 {
+ askq \%2 { \%1's password: }
+ }
+ set terminal bytesize 7 ; No 8-bit characters
+ set input timeout quit ; Skip the IF FAILURE's
+ output \13 ; Send initial carriage return
+ input 5 Host Name: ; Look for Host Name prompt
+ output cis\13 ; Send "cis" and carriage return
+ input 5 User ID: ; Look for User ID prompt
+ output \%1\13 ; Send ID and carriage return
+ input Password: ; Look for Password prompt
+ output \%2\13 ; Send password and CR
+ if not def \%3 asg \%3 \v(prompt)
+ if not def \%3 asg \%3 {CompuServe Information Service}
+ input 30 \%3
+ end 0
+}
+
+COMMENT - DOWLOGIN macro. Arguments:
+; \%1 = Dow Jones Password
+;
+define DOWLOGIN {
+ while not defined \%1 { ; Get password
+ askq \%1 { Dow Jones password: }
+ }
+ set input timeout proceed
+ input 20 SERVICE PLEASE\?\?\?\? ; Look for Dow prompt
+ if fail end 1 No service prompt
+ out djnr\13 ; Select DJNR
+ input 10 @@@@@@@@ ; Get password prompt
+ if fail end 1 No password prompt
+ pause 1 ; Wait a second, then...
+ output \%1\13 ; send password and CR
+ input 30 ENTER QUERY ; Get DJNR query prompt
+ if fail end 1 No main query prompt
+ pause 1
+}
+
+COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
+;
+def djnrsprint sprint dow, if success dowlogin
+
+COMMENT - NOLOGIN macro. Does nothing. Use when login not required.
+;
+def nologin comment
+
+:CUSTOM ; Customization file
+
+; In VMS and OpenVMS, allow for system-wide site customizations
+
+xif equal "\v(system)" "VMS" {
+ xif exist CKERMIT_INI:CKERMIT.SYS {
+ echo Executing CKERMIT_INI:CKERMIT.SYS
+ take CKERMIT_INI:CKERMIT.SYS
+ }
+}
+
+; Execute user's personal customization file
+
+xif exist \m(_myinit) { ; If it exists,
+ echo Executing \m(_myinit)... ; print message,
+ take \m(_myinit) ; and TAKE the file.
+}
+
+; Finish up with traditional greeting.
+
+if < \v(ntime) 43200 echo Good Morning!
+ else if < \v(ntime) 61200 echo Good Afternoon!
+ else echo Good Evening.
+
+End ; of C-Kermit 8.0 initialization file.
--- /dev/null
+; File CKERMOD.INI, Sample C-Kermit 7.0 customization file.
+;
+; This file, which is ONLY A SAMPLE, should be called:
+;
+; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9)
+; CKERMOD.INI (VMS, OpenVMS, AOS/VS, OS/2, Amiga, Atari ST)
+; ckermod.ini (Stratus VOS)
+;
+; This file is executed automatically by the standard C-Kermit initialization
+; file, CKERMIT.INI (or .kermrc). This file is not executed by C-Kermit itself
+; unless the initialization file is not found.
+;
+; MODify this file to suit your needs and preferences, and install it in your
+; home directory. Or replace it entirely with a new file.
+;
+; The design of this sample customization file lets you fill in a section for
+; each different operating system where you run C-Kermit.
+;
+; In UNIX, if you give this file execute permission and make sure the top
+; line indicates the full path of the C-Kermit 7.0-or-later executable, you
+; can execute this file directly, as if it was a shell script, except it is
+; interpreted by Kermit rather than the shell. This lets you have as many
+; different startup files as you like, each suited to a particular purpose.
+;
+; Authors: Christine Gianone, Frank da Cruz, Jeffrey Altman,
+; The Kermit Project, Columbia University.
+; Creation: 23 November 1992 for C-Kermit 5A(188).
+; Modified: 30 June 1993 for edit 189.
+; 04 October 1994 for edit 190.
+; 17 April 1995 for edit 191.
+; 6 September 1996 for version 6.0, edit 192.
+; 1 January 2000 for version 7.0, edit 196.
+; 14 October 2001 for version 8.0, edit 200.
+
+ECHO
+ECHO Executing SAMPLE C-Kermit customization file \v(cmdfile) for \v(system)...
+ECHO { Please edit this file to reflect your needs and preferences.}
+ECHO
+;
+; ... and then remove the ECHO commands above.
+
+COMMENT - Settings that apply to all the systems I use:
+;
+set delay 1 ; I escape back quickly
+set dial display on ; I like to watch C-Kermit dial
+
+; Dialing locale and method
+;
+; SET DIAL COUNTRY-CODE 1 ; Uncomment and replace with yours
+; SET DIAL AREA-CODE 000 ; Uncomment and replace with yours
+; SET DIAL LD-PREFIX 1 ; Uncomment and replace with yours
+; SET DIAL INTL-PREFIX 011 ; Uncomment and replace with yours
+; SET DIAL METHOD TONE ; Uncomment and replace with PULSE if necessary
+; SET DIAL DIRECTORY ... ... ; List dialing directory files here
+
+if < \v(version) 600192 -
+ stop 1 \v(cmdfile): C-Kermit 6.0.192 or later required.
+
+set take error on ; Make errors fatal temporarily
+check if ; Do we have an IF command?
+set take error off ; Yes we do, back to normal
+
+; The ON_EXIT macro is executed automatically when C-Kermit exits.
+; Define as desired.
+;
+define ON_EXIT echo Returning you to \v(system) now.
+
+; System-independent quick dialing macro. Depends on having the
+; macros MYMODEM, MYPORT, and (optionally) MYSPEED defined in the
+; system-dependent sections below.
+;
+define MYDIAL {
+ if not defined MYMODEM end 1 {\%0: Modem type not defined.}
+ set modem type \m(MYMODEM)
+ if fail end 1 {\%0: \m(MYMODEM): Unsupported modem type.}
+ if not defined MYPORT end 1 {\%0: Communication port not defined.}
+ set port \m(MYPORT)
+ if fail end 1 {\%0: SET PORT \m(MYPORT) failed.}
+ if defined MYFLOW set flow \m(MYFLOW)
+ if fail end 1 {\%0: SET FLOW \m(MYFLOW) failed.}
+ if defined MYSPEED set speed \m(MYSPEED)
+ if fail end 1 {\%0: SET SPEED \m(MYSPEED) failed.}
+ dial \%1\%2\%3\%4\%5\%6\%7\%8\%9
+ end \v(status)
+}
+
+forward \v(system) ; Go execute system-dependent commands
+
+:UNIX ; UNIX, all versions...
+define MYPORT /dev/cua ; My dialing environment
+define MYMODEM usr ; Replace these by what you actually have
+define MYSPEED 57600
+;
+; If you want all your downloads to go to the same directory, no matter
+; what your current directory is, uncomment and edit the following command:
+;
+; set file download-directory ~/download ; Download directory for UNIX
+
+; Put other UNIX-specific commands here...
+end ; End of UNIX section
+
+:VMS ; VMS and OpenVMS
+define MYPORT TXA0: ; My dialing environment
+define MYMODEM usr ; Replace these by what you actually have
+define MYSPEED 57600
+; set file download-directory [\$(USER).DOWNLOAD] ; Download directory for VMS
+; Put other VMS-specific commands here...
+end ; End of VMS section
+
+:WIN32 ; Windows and OS/2 customizations...
+:OS/2
+define MYPORT COM1 ; My dialing environment
+define MYMODEM usr ; Replace these by what you actually have
+define MYSPEED 57600
+set command byte 8 ; Use 8 bits between Kermit and console
+set xfer char latin1 ; Use Latin-1 for text file transfer
+set term char latin1 ; And use Latin-1 during CONNECT mode
+; set file download-directory C:\DOWNLOADS
+end
+
+:OS9/68K ; OS-9/68000
+define MYPORT /t3 ; My dialing environment
+define MYMODEM usr ; Replace these by what you actually have
+define MYSPEED 9600
+; set file download-directory ~/downloads
+end ; End of OS-9 section
+
+:AOS/VS ; Data General AOS/VS
+define MYPORT @con3 ; My dialing environment
+define MYMODEM usr ; Replace these by what you actually have
+define MYSPEED 9600
+; set file download-directory \v(home)DOWNLOADS
+end
+
+; And so on, you get the idea...
+; Fill in the sections that apply to you.
+
+:Stratus_VOS ; Stratus VOS
+:Amiga ; Commodore Amiga
+:Atari_ST ; Atari ST
+:Macintosh ; Apple Macintosh
+:unknown ; Others
+
+; (End of CKERMOD.INI)
projects / ckermit.git / commitdiff