通讯/手机编程

开发平台：

Windows_Unix

ckuusx.c：源码内容

#include "ckcsym.h"
/* C K U U S X -- "User Interface" common functions. */
/*
Author: Frank da Cruz <fdc@columbia.edu>,
Columbia University Academic Information Systems, New York City.
Trustees of Columbia University in the City of New York.
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.
*/
/* Includes */
#include "ckcdeb.h"
#include "ckcasc.h"
#include "ckcker.h"
#include "ckuusr.h"
#include "ckcxla.h"
#ifndef NOHTERMCAP
#ifdef NOTERMCAP
#define NOHTERMCAP
#else
#ifndef BSD44
#define NOHTERMCAP
#else
#ifdef __bsdi__
#define NOHTERMCAP
#else
#ifdef OPENBSD
#define NOHTERMCAP
#else
#ifdef MACOSX
#define NOHTERMCAP
#endif /* MACOSX */
#endif /* OPENBSD */
#endif /* __bsdi__ */
#endif /* BSD44 */
#endif /* NOTERMCAP */
#endif /* NOHTERMCAP */
#ifndef NOTERMCAP
#ifdef BSD44
#ifndef NOHTERMCAP
#include <termcap.h>
#endif /* NOHTERMCAP */
#endif /* BSD44 */
#else /* !BSD44 */
#ifdef linux
#include <term.h>
#endif /* linux */
#endif /* NOTERMCAP */
#ifdef OS2
#include <string.h>
_PROTOTYP(char * os2_gethostname, (void));
#define getpid _getpid
#endif /* OS2 */
#ifdef BSD44
#include <errno.h>
#endif /* BSD44 */
extern xx_strp xxstring;
#ifdef OS2
#include "ckcnet.h"
#else /* OS2 */
_PROTOTYP(int getlocalipaddr, (void));
#ifndef NETCONN
/*
We should just pull in ckcnet.h here, but it causes a conflict with curses.h.
*/
#ifdef TCPSOCKET
#define NETCONN
#else
#ifdef SUNX25
#define NETCONN
#else
#ifdef STRATUSX25
#define NETCONN
#else
#ifdef IBMX25
#define NETCONN
#else
#ifdef HPX25
#define NETCONN
#else
#ifdef DECNET
#define NETCONN
#else
#ifdef NPIPE
#define NETCONN
#else
#ifdef CK_NETBIOS
#define NETCONN
#ifdef SUPERLAT
#define NETCONN
#else
#endif /* SUPERLAT */
#endif /* TCPSOCKET */
#endif /* SUNX25 */
#endif /* STRATUSX25 */
#endif /* IBMX25 */
#endif /* HPX25 */
#endif /* DECNET */
#endif /* NPIPE */
#endif /* CK_NETBIOS */
#endif /* NETCONN */
#endif /* OS2 */
#ifndef TCPSOCKET
#ifdef MULTINET
#define TCPSOCKET
#endif /* MULTINET */
#ifdef DEC_TCPIP
#define TCPSOCKET
#endif /* DEC_TCPIP */
#ifdef WINTCP
#define TCPSOCKET
#endif /* WINTCP */
#ifdef TCPWARE
#define TCPSOCKET
#endif /* TCPWARE */
#endif /* TCPSOCKET */
#ifdef OS2
#ifdef NT
#include <windows.h>
#include <tapi.h>
#include "ckntap.h"
#else /* NT */
#define INCL_VIO
#include <os2.h>
#endif /* NT */
#ifdef COMMENT /* Would you believe */
#undef COMMENT /* <os2.h> defines this ? */
#endif /* COMMENT */
#ifdef CK_NETBIOS
#include "ckonbi.h"
#endif /* CK_NETBIOS */
#include "ckocon.h"
extern ascreen commandscreen;
#ifdef KUI
#include "ikui.h"
#endif /* KUI */
#endif /* OS2 */
#ifdef NT
#include "cknwin.h"
#endif /* NT */
#ifdef OS2
#include "ckowin.h"
#endif /* OS2 */
#ifdef CK_TAPI
extern int tttapi;
extern int tapipass;
#endif /* CK_TAPI */
#ifdef CK_KERBEROS
#include "ckuath.h"
#endif /* CK_KERBEROS */
#ifndef WINTCP
#include <signal.h>
#endif /* WINTCP */
#ifdef VMS
#include <descrip.h>
#include <ssdef.h>
#include <stsdef.h>
#ifndef OLD_VMS
#include <lib$routines.h> /* Not for VAX C 2.3 */
#else
#include <libdef.h>
#endif /* OLD_VMS */
#ifdef WINTCP
#include <signal.h>
#endif /* WINTCP */
#endif /* VMS */
int tt_crd = 0; /* Carriage return display */
int interrupted = 0; /* Interrupted from keyboard flag */
static int fxd_inited = 0; /* Fullscreen stuff initialized */
#ifdef DEBUG
char debfil[CKMAXPATH+1]; /* Debugging log file name */
#endif /* DEBUG */
#ifdef TLOG
char trafil[CKMAXPATH+1]; /* Transaction log file name */
#endif /* TLOG */
char sesfil[CKMAXPATH+1]; /* Session log file name */
#ifdef CKLOGDIAL
char diafil[CKMAXPATH+1]; /* Connection log file name */
char cxlogbuf[CXLOGBUFL+1]; /* Connection log record buffer */
int cx_active = 0; /* Connection is active */
extern int dialog;
#endif /* CKLOGDIAL */
#ifdef DYNAMIC
static char *cmdstr = NULL; /* Place to build generic command */
#else
#ifdef pdp11
static char cmdstr[256];
#else
static char cmdstr[4096];
#endif /* pdp11 */
#endif /* DYNAMIC */
#ifndef NOMSEND
char fspec[CMDBL+4]; /* Filename string for v(filespec) */
int fspeclen = CMDBL;
#else
char fspec[CKMAXPATH+4];
int fspeclen = CKMAXPATH;
#endif /* NOMSEND */
char * rfspec = NULL;
char * sfspec = NULL;
char * srfspec = NULL;
char * rrfspec = NULL;
#ifdef CK_TTGWSIZE
int xaskmore = 0; /* Whether to use more-prompting */
#else
int xaskmore = 1;
#endif /* CK_TTGWSIZE */
extern int saveask;
int success = 1, /* Command success/failure flag */
cmdlvl = 0, /* Command level */
#ifndef NOSPL
#endif /* NOSPL */
action, /* Action selected on command line */
#ifdef OS2
sessft = XYFT_B, /* Session log file type */
#else /* OS2 */
sessft = XYFT_T, /* Session log file type */
#endif /* OS2 */
pflag = 1, /* Print prompt */
msgflg = 1; /* Print informational messages */
#ifdef CK_APC
extern int apcactive;
#endif /* CK_APC */
/* External variables */
extern int local, quiet, binary, network, what, parity, xitsta, escape,
tlevel, bgset, backgrd, suspend, cmdint, nettype, seslog, dfloc;
extern int cmd_rows, cmd_cols;
extern char cmdfil[];
#ifdef VMS
extern int batch;
#endif /* VMS */
#ifdef datageneral /* 2/12/92 ENH */
#include <sysid.h>
extern int con_reads_mt, conint_ch, conint_avl;
#endif /* datageneral */
extern long speed;
extern char ttname[], *dftty, *cmarg, **cmlist, *versio, myhost[];
#ifndef NOCSETS
extern int fcharset, tcharset;
extern struct csinfo fcsinfo[], tcsinfo[];
#endif /* NOCSETS */
#ifdef NOXFER
int fdispla = XYFD_N;
#else /* NOXFER is not defined */
#ifdef OS2 /* File transfer display type */
int fdispla = XYFD_C; /* Curses (fullscreen) if we have it */
#else
#ifdef CK_CURSES
int fdispla = XYFD_C;
#else
int fdispla = XYFD_S; /* Otherwise CRT */
#endif /* CK_CURSES */
#endif /* OS2 */
extern struct ck_p ptab[];
extern int protocol, xfrbel, xfrint;
#ifdef STREAMING
extern int streaming, streamok;
#endif /* STREAMING */
/* Used internally */
_PROTOTYP( VOID screenc, (int, char, long, char *) );
#ifdef CK_CURSES
#ifndef DYNAMIC
static char xtrmbuf[TRMBUFL]; /* tgetent() buffer */
char * trmbuf = xtrmbuf;
#else
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) );
#endif /* CK_CURSES */
static int ft_win = 0; /* Fullscreen file transfer display window is active */
/* Variables declared here */
char pktfil[CKMAXPATH+1]; /* Packet log file name */
#ifndef NOMSEND /* Multiple SEND */
char *msfiles[MSENDMAX];
#endif /* NOMSEND */
#ifdef CK_TIMERS
extern long rttdelay;
extern int rttflg;
#endif /* CK_TIMERS */
extern int rcvtimo;
#ifdef CK_RESEND
extern int sendmode;
extern long sendstart, rs_len;
#endif /* CK_RESEND */
#ifdef CK_PCT_BAR /* File transfer thermometer */
int thermometer = 1; /* ON by default */
#endif /* CK_PCT_BAR */
#ifdef GFTIMER
CKFLOAT gtv = -1.0, oldgtv = -1.0;
#else
#ifndef OS2
static
#endif /* OS2 */
long gtv = -1L, oldgtv = -1L;
#endif /* GFTIMER */
#ifdef OS2
extern unsigned char colorcmd;
#endif /* OS2 */
extern int server, bctu, rptflg, ebqflg, spsiz, urpsiz, wmax, czseen, cxseen,
winlo, displa, timint, npad, ebq, bctr, rptq, atcapu, lpcapu,
swcapu, wslotn, wslotr, rtimo, mypadn, sq, capas, rpsiz, tsecs,
pktlog, lscapu, dest, srvdis, wslots, spackets, spktl, rpktl,
retrans, wcur, numerrs, fsecs, whatru, crunched, timeouts,
rpackets, fncnv, bye_active, discard, inserver;
extern long filcnt, filrej, ffc, tfc, rptn, fsize, filcps, tfcps, cps, peakcps;
long oldcps = 0L;
extern CHAR *rdatap, padch, seol, ctlq, mypadc, eol, *epktmsg;
extern char whoareu[];
#ifdef IKSDB
FILE * dbfp = NULL; /* File pointer to database file */
int dbenabled = 1; /* Flag for database is enabled */
extern int ikdbopen; /* Flag for database is open */
unsigned long mydbseek = 0L; /* Seek pointer to my record */
int mydbslot = 0; /* My slot number */
unsigned long myflags = 0L; /* My flags */
unsigned long myatype = 0L; /* My authorization type */
unsigned long myamode = 0L; /* My authorization mode */
unsigned long mystate = 0L; /* My state (SEND, RECEIVE, etc) */
unsigned long mypid = 0L; /* My PID */
unsigned long myip = 0L; /* My IP address */
unsigned long peerip = 0L; /* My peer's IP address */
unsigned long dbip = 0L; /* IP address in db record */
unsigned long dbpid = 0L; /* PID in db record */
unsigned long dbflags = 0L; /* Flags field in db record */
unsigned long dblastused = 0L; /* Last in-use record in db */
char dbrec[DB_RECL]; /* Database record buffer */
char * dbdir = NULL; /* Database directory */
char * dbfile = NULL; /* Database file full pathname */
char myhexip[33] = { NUL, NUL }; /* My IP address in hex */
char peerhexip[33] = { NUL, NUL }; /* Client's IP address in hex */
#endif /* IKSDB */
#ifdef GFTIMER
extern CKFLOAT fpfsecs, fptsecs, fpxfsecs;
#else
extern long xfsecs;
#endif /* GFTIMER */
#endif /* NOXFER */
#ifdef TCPSOCKET
extern char myipaddr[];
#endif /* TCPSOCKET */
#ifndef NOICP
#ifndef NOSPL
extern struct mtab *mactab; /* For ON_EXIT macro. */
extern int nmac;
#endif /* NOSPL */
#ifdef DCMDBUF
extern char *cmdbuf; /* Command buffer */
#else
extern char cmdbuf[]; /* Command buffer */
#endif /* DCMDBUF */
extern int cmd_quoting;
#endif /* NOICP */
#ifndef NOCCTRAP
#ifdef NT
#include <setjmpex.h>
#else /* NT */
#include <setjmp.h>
#endif /* NT */
#include "ckcsig.h"
extern ckjmpbuf cmjbuf;
#endif /* NOCCTRAP */
#ifndef NOXFER
/* P R E S E T -- Reset global protocol variables */
extern int recursive;
#ifndef NOICP
#ifdef CK_LABELED
extern int g_lf_opts, lf_opts;
#endif /* CK_LABELED */
extern int g_matchdot;
extern int g_binary, g_proto, g_displa, g_spath, g_rpath, g_fncnv;
extern int g_recursive;
extern int g_xfermode, xfermode;
extern int g_urpsiz, g_spsizf, g_spsiz;
extern int g_spsizr, g_spmax, g_wslotr, g_prefixing, g_fnact, g_fncact;
extern int g_fnspath, g_fnrpath, g_skipbup;
#ifndef NOSPL
extern int g_pflg, pwflg, g_pcpt, pwcrypt;
extern char * g_pswd, pwbuf[];
#endif /* NOSPL */
#ifdef PATTERNS
extern int g_patterns, patterns;
#endif /* PATTERNS */
#endif /* NOICP */
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 char optbuf[];
#ifdef PIPESEND
extern char * g_sfilter, * g_rfilter;
extern char * sndfilter, * rcvfilter;
#endif /* PIPESEND */
VOID
ftreset() {
#ifndef NOICP
int i;
extern char * filefile;
extern int reliable, xreliable, c_save, ss_save, slostart, urclear;
extern int oopts, omode, oname, opath, kactive, autopath;
extern char * snd_move; /* Directory to move sent files to */
extern char * snd_rename; /* What to rename sent files to */
extern char * rcv_move;
extern char * rcv_rename;
extern char * g_snd_move;
extern char * g_snd_rename;
extern char * g_rcv_move;
extern char * g_rcv_rename;
#ifdef CK_SPEED
extern int f_ctlp;
#ifdef COMMENT
extern short s_ctlp[], ctlp[];
#endif /* COMMENT */
#endif /* CK_SPEED */
#ifndef NOCSETS
extern int fcs_save, tcs_save;
#endif /* NOCSETS */
/* Restore / reset per-command file-transfer switches */
makestr(&snd_move,g_snd_move);
makestr(&rcv_move,g_rcv_move);
makestr(&snd_rename,g_snd_rename);
makestr(&rcv_rename,g_rcv_rename);
kactive = 0; /* Kermit protocol no longer active */
oopts = -1; /* O-Packet Options */
omode = -1; /* O-Packet Transfer Mode */
oname = -1; /* O-Packet Filename Options */
opath = -1; /* O-Packet Pathname Options */
#ifdef COMMENT
#ifdef CK_SPEED
if (f_ctlp) {
for (i = 0; i < 256; i++)
ctlp[i] = s_ctlp[i];
f_ctlp = 0;
}
#endif /* CK_SPEED */
#endif /* COMMENT */
calibrate = 0L; /* Calibration run */
if (xreliable > -1)
reliable = xreliable;
urclear = 0;
if (autopath) { /* SET RECEIVE PATHNAMES AUTO */
fnrpath = PATH_AUTO;
autopath = 0;
}
if (filefile) { /* File list */
zclose(ZMFILE);
makestr(&filefile,NULL);
}
if (c_save > -1) { /* Block Check Type */
bctr = c_save;
c_save = -1;
}
if (ss_save > -1) { /* Slow Start */
slostart = ss_save;
ss_save = -1;
}
#ifdef CK_LABELED
if (g_lf_opts > -1) {
lf_opts = g_lf_opts; /* Restore labeled transfer options */
g_lf_opts = -1;
}
#endif /* CK_LABELED */
#ifndef NOCSETS
if (tcs_save > -1) { /* Character sets */
tcharset = tcs_save;
tcs_save = -1;
}
if (fcs_save > -1) {
fcharset = fcs_save;
fcs_save = -1;
}
setxlatype(tcharset,fcharset); /* Translation type */
#endif /* NOCSETS */
#ifdef NETCONN
#ifndef NOSPL
if (g_pswd) {
ckstrncpy(pwbuf,g_pswd,PWBUFL);
makestr(&g_pswd,NULL);
}
if (g_pflg > -1) {
pwflg = g_pflg;
g_pflg = -1;
}
if (g_pcpt > -1) {
pwcrypt = g_pcpt;
g_pcpt = -1;
}
#endif /* NOSPL */
#endif /* NETCONN */
if (g_binary > -1) { /* File type */
binary = g_binary;
g_binary = -1;
}
if (g_xfermode > -1) { /* Transfer mode */
xfermode = g_xfermode;
g_xfermode = -1;
}
#ifdef PATTERNS
if (g_patterns > -1) { /* Filename patterns */
patterns = g_patterns;
g_patterns = -1;
}
#endif /* PATTERNS */
if (g_matchdot > -1) {
matchdot = g_matchdot;
g_matchdot = -1;
}
if (saveask > -1) {
xaskmore = saveask;
saveask = -1;
}
if (g_proto > -1) { /* Protocol */
protocol = g_proto;
g_proto = -1;
}
if (g_urpsiz > -1) {
urpsiz = g_urpsiz;
debug(F101,"ftreset restoring urpsiz","",urpsiz);
g_urpsiz = -1;
}
if (g_spsizf > -1) {
spsizf = g_spsizf;
debug(F101,"ftreset restoring spsizf","",spsizf);
g_spsizf = -1;
}
if (g_spsiz > -1) {
spsiz = g_spsiz;
debug(F101,"ftreset restoring spsiz","",spsiz);
g_spsiz = -1;
}
if (g_spsizr > -1) {
spsizr = g_spsizr;
debug(F101,"ftreset restoring spsizr","",spsizr);
g_spsizr = -1;
}
if (g_spmax > -1) {
spmax = g_spmax;
g_spmax = -1;
}
if (g_wslotr > -1) {
wslotr = g_wslotr;
g_wslotr = -1;
}
if (g_prefixing > -1) {
prefixing = g_prefixing;
g_prefixing = -1;
}
if (g_fncact > -1) {
fncact = g_fncact;
g_fncact = -1;
}
if (g_fncnv > -1) {
fncnv = g_fncnv;
g_fncnv = -1;
}
if (g_fnspath > -1) {
fnspath = g_fnspath;
g_fnspath = -1;
}
if (g_fnrpath > -1) {
fnrpath = g_fnrpath;
g_fnrpath = -1;
}
if (g_skipbup > -1) {
skipbup = g_skipbup;
g_skipbup = -1;
}
recursive = 0; /* RECURSIVE can never be global */
if (g_displa > -1) { /* File transfer display */
fdispla = g_displa;
g_displa = -1;
}
if (g_spath > -1) { /* Send pathnames */
fnspath = g_spath;
g_spath = -1;
}
if (g_rpath > -1) { /* Receive pathnames */
fnrpath = g_rpath;
g_rpath = -1;
}
if (g_fncnv > -1) { /* Filename conversion */
fncnv = g_fncnv;
g_fncnv = -1;
}
#ifdef PIPESEND
if (g_sfilter) { /* Send filter */
if (sndfilter) free(sndfilter);
sndfilter = g_sfilter;
g_sfilter = NULL;
}
if (g_rfilter) { /* Receive filter */
if (rcvfilter) free(rcvfilter);
rcvfilter = g_rfilter;
g_rfilter = NULL;
}
#endif /* PIPESEND */
#ifndef NOFRILLS
rmailf = rprintf = 0; /* MAIL and PRINT modifiers for SEND */
optbuf[0] = NUL; /* MAIL and PRINT options */
#endif /* NOFRILLS */
moving = 0; /* Reset delete-after-send indicator */
sndafter[0] = NUL; /* Reset SEND selection switches */
sndbefore[0] = NUL;
for (i = 0; i < 8; i++) {
if (sndexcept[i])
free(sndexcept[i]);
sndexcept[i] = NULL;
if (rcvexcept[i])
free(rcvexcept[i]);
rcvexcept[i] = NULL;
}
sndlarger = -1L;
sndsmaller = -1L;
#ifdef GFTIMER
gtv = -1.0;
oldgtv = -1.0;
#else
gtv = -1L;
oldgtv = -1L;
#endif /* GFTIMER */
#endif /* NOICP */
}
#endif /* NOXFER */
/* C K _ E R R S T R -- Return message from most recent system error */
char *
ck_errstr() {
#ifdef USE_STRERROR
#ifndef CK_ANSILIBS
/* Should have been declared in <string.h> */
_PROTOTYP( char * strerror, (int) );
#endif /* CK_ANSILIBS */
return(strerror(errno));
#else
#ifdef VMS
extern char * ckvmserrstr(unsigned long);
return(ckvmserrstr(0L));
#else
#ifdef ATTSV
#ifdef BSD44
#ifdef __386BSD__
#ifndef NDSYSERRLIST
extern int sys_nerr;
extern char *sys_errlist[];
#endif /* NDSYSERRLIST */
#else
#ifndef __bsdi__
#ifndef NDSYSERRLIST
extern int sys_nerr;
extern const char *const sys_errlist[];
#endif /* NDSYSERRLIST */
#endif /* __bsdi__ */
#endif /* __386BSD__ */
if (errno >= sys_nerr)
return("Error number out of range");
else
return((char *) sys_errlist[errno]);
#else /* !BSD44 */
#ifndef NDSYSERRLIST
extern int sys_nerr;
extern char *sys_errlist[];
#endif /* NDSYSERRLIST */
if (errno >= sys_nerr)
return("Error number out of range");
else
return((char *) sys_errlist[errno]);
#endif /* BSD44 */
#else /* !ATTSV */
#ifdef BSD4
#ifndef NDSYSERRLIST
extern int sys_nerr;
extern char *sys_errlist[];
#endif /* NDSYSERRLIST */
if (errno >= sys_nerr)
return("Error number out of range");
else
return((char *) sys_errlist[errno]);
#else
#ifdef OS2
#ifndef NDSYSERRLIST
extern char *sys_errlist[];
#endif /* NDSYSERRLIST */
#ifdef NT
extern int_sys_nerr;
#endif /* NT */
char *e;
e = (errno > -1
#ifdef NT
&& errno <= _sys_nerr
#endif /* NT */
) ?
#ifdef NT
(char *) sys_errlist[errno]
#else /* NT */
/* I don't know how to get a CLIB error string in OS/2 */
strerror(errno)
#endif /* NT */
: "";
return(e ? e : "");
#else /* OS2 */
return("");
#endif /* OS2 */
#endif /* BSD4 */
#endif /* ATTSV */
#endif /* VMS */
#endif /* USE_STRERROR */
}
#ifdef TCPSOCKET
#ifdef NT
extern int WSASafeToCancel;
#endif /* NT */
#endif /* TCPSOCKET */
VOID
setflow() {
extern int flow, autoflow, mdmtyp, cxtype, cxflow[];
#ifndef NODIAL
extern int dialcapas, dialfc;
extern MDMINF * modemp[];
MDMINF * p = NULL;
long bits = 0;
#endif /* NODIAL */
debug(F101,"setflow autoflow","",autoflow);
/* #ifdef COMMENT */
/* WHY WAS THIS COMMENTED OUT? */
if (!autoflow) /* Only if FLOW is AUTO */
return;
/* #endif */ /* COMMENT */
debug(F101,"setflow local","",local);
debug(F101,"setflow network","",network);
debug(F101,"setflow cxtype","",cxtype);
if (network || !local || cxtype == CXT_DIRECT) {
flow = cxflow[cxtype]; /* Set appropriate flow control */
debug(F101,"setflow flow","",flow);
return;
}
if (cxtype != CXT_MODEM) /* Connection type should be modem */
return;
#ifndef NODIAL
bits = dialcapas; /* Capability bits */
if (!bits) { /* No bits? */
p = modemp[mdmtyp]; /* Look in modem info structure */
if (p)
bits = p->capas;
}
if (dialfc == FLO_AUTO) { /* If DIAL flow is AUTO */
#ifdef CK_RTSCTS /* If we can do RTS/CTS flow control */
if (bits & CKD_HW) /* and modem can do it too */
flow = FLO_RTSC; /* then switch to RTS/CTS */
else /* otherwise */
flow = FLO_XONX; /* use Xon/Xoff. */
#else
#ifndef NEXT
#ifndef IRIX
flow = FLO_XONX; /* Use Xon/Xoff. */
#endif /* IRIX */
#endif /* NEXT */
#endif /* CK_RTSCTS */
}
#endif /* NODIAL */
debug(F101,"setflow modem flow","",flow);
return;
}
#ifndef NOLOCAL
#ifdef CK_TRIGGER
/* A U T O E X I T C H K -- Check for CONNECT-mode trigger string */
/*
Returns -1 if trigger not found, or else the trigger index, 0 or greater.
(Replace with fancier and more efficient matcher later...)
NOTE: to prevent unnecessary function call overhead, call this way:
x = tt_trigger[0] ? autoexitchk(c) : -1;
*/
int
#ifdef CK_ANSIC
autoexitchk(CHAR c)
#else
autoexitchk(c) CHAR c;
#endif /* CK_ANSIC */
/* autoexitchk */ {
extern CHAR * tt_trmatch[];
extern char * tt_trigger[];
int i, n;
for (i = 0; i < TRIGGERS; i++) {
if (!tt_trigger[i]) { /* No more triggers in list */
break;
} else if (*tt_trigger[i]) {
if (!tt_trmatch[i]) /* Just starting? */
tt_trmatch[i] = (CHAR *)tt_trigger[i]; /* Set match pointer */
if (c == *tt_trmatch[i]) { /* Compare this character */
tt_trmatch[i]++; /* It matches */
if (!*tt_trmatch[i]) { /* End of match string? */
tt_trmatch[i] = (CHAR *) tt_trigger[i]; /* Yes, rewind, */
debug(F101,"autoexitchk",tt_trigger[i],i); /* log, */
return(i); /* and return success */
}
} else /* No match */
tt_trmatch[i] = (CHAR *) tt_trigger[i]; /* Rewind match string */
} /* and go on the next match string */
}
return(-1); /* No match found */
}
#endif /* CK_TRIGGER */
#ifndef NOSHOW
/* S H O M D M -- Show modem signals */
VOID
shomdm() {
/*
Note use of "rn" to make sure this report prints right, even when
called during CONNECT mode.
*/
int y;
y = ttgmdm();
switch (y) {
case -3: printf(
"Modem signals unavailable in this version of Kermitrn");
break;
case -2: printf("No modem control for this devicern"); break;
case -1: printf("Modem signals unavailablern"); break;
default:
#ifndef MAC
printf(
" Carrier Detect (CD): %srn",(y & BM_DCD) ? "On": "Off");
printf(
" Dataset Ready (DSR): %srn",(y & BM_DSR) ? "On": "Off");
#endif /* MAC */
printf(
" Clear To Send (CTS): %srn",(y & BM_CTS) ? "On": "Off");
#ifndef STRATUS
#ifndef MAC
printf(
" Ring Indicator (RI): %srn",(y & BM_RNG) ? "On": "Off");
#endif /* MAC */
printf(
" Data Terminal Ready (DTR): %srn",
#ifdef NT
"(unknown)"
#else /* NT */
(y & BM_DTR) ? "On": "Off"
#endif /* NT */
);
#ifndef MAC
printf(
" Request To Send (RTS): %srn",
#ifdef NT
"(unknown)"
#else /* NT */
(y & BM_RTS) ? "On": "Off"
#endif /* NT */
);
#endif /* MAC */
#endif /* STRATUS */
}
#ifdef BETATEST
#ifdef CK_TAPI
if (tttapi && !tapipass) {
LPDEVCFG lpDevCfg = NULL;
LPCOMMCONFIG lpCommConfig = NULL;
LPMODEMSETTINGS lpModemSettings = NULL;
DCB * lpDCB = NULL;
if (cktapiGetModemSettings(&lpDevCfg,&lpModemSettings,
&lpCommConfig,&lpDCB)) {
printf("n");
cktapiDisplayModemSettings(lpDevCfg,lpModemSettings,
lpCommConfig,lpDCB);
}
}
#endif /* CK_TAPI */
#endif /* BETATEST */
}
#endif /* NOSHOW */
#endif /* NOLOCAL */
#ifndef NOXFER
/* S D E B U -- Record spar results in debugging log */
VOID
sdebu(len) int len; {
debug(F111,"spar: data",(char *) rdatap,len);
debug(F101," spsiz ","", spsiz);
debug(F101," timint","",timint);
debug(F101," npad ","", npad);
debug(F101," padch ","", padch);
debug(F101," seol ","", seol);
debug(F101," ctlq ","", ctlq);
debug(F101," ebq ","", ebq);
debug(F101," ebqflg","",ebqflg);
debug(F101," bctr ","", bctr);
debug(F101," rptq ","", rptq);
debug(F101," rptflg","",rptflg);
debug(F101," lscapu","",lscapu);
debug(F101," atcapu","",atcapu);
debug(F101," lpcapu","",lpcapu);
debug(F101," swcapu","",swcapu);
debug(F101," wslotn","", wslotn);
debug(F101," whatru","", whatru);
}
/* R D E B U -- Debugging display of rpar() values */
VOID
rdebu(d,len) CHAR *d; int len; {
debug(F111,"rpar: data",d,len);
debug(F101," rpsiz ","", xunchar(d[0]));
debug(F101," rtimo ","", rtimo);
debug(F101," mypadn","",mypadn);
debug(F101," mypadc","",mypadc);
debug(F101," eol ","", eol);
debug(F101," ctlq ","", ctlq);
debug(F101," sq ","", sq);
debug(F101," ebq ","", ebq);
debug(F101," ebqflg","",ebqflg);
debug(F101," bctr ","", bctr);
debug(F101," rptq ","", d[8]);
debug(F101," rptflg","",rptflg);
debug(F101," capas ","", capas);
debug(F101," bits ","",d[capas]);
debug(F101," lscapu","",lscapu);
debug(F101," atcapu","",atcapu);
debug(F101," lpcapu","",lpcapu);
debug(F101," swcapu","",swcapu);
debug(F101," wslotr","", wslotr);
debug(F101," rpsiz(extended)","",rpsiz);
}
#ifdef COMMENT
/* C H K E R R -- Decide whether to exit upon a protocol error */
VOID
chkerr() {
if (backgrd && !server) fatal("Protocol error");
}
#endif /* COMMENT */
#endif /* NOXFER */
/* F A T A L -- Fatal error message */
VOID
fatal(msg) char *msg; {
extern int initflg;
if (!msg) msg = "";
debug(F111,"fatal",msg,initflg);
if (!initflg) /* In case called from prescan. */
sysinit();
#ifdef VMS
if (strncmp(msg,"%CKERMIT",8))
conol("%CKERMIT-E-FATAL, ");
conoll(msg);
#else /* !VMS */
conoll(msg);
#endif /* VMS */
debug(F111,"fatal",msg,xitsta);
tlog(F110,"Fatal:",msg,0L);
#ifdef OS2
if (xfrbel) bleep(BP_FAIL);
sleep(1);
if (xfrbel) bleep(BP_FAIL);
#endif /* OS2 */
doexit(BAD_EXIT,xitsta | 1); /* Exit indicating failure */
}
#ifndef NOXFER
/* B L D L E N -- Make length-encoded copy of string */
char *
bldlen(str,dest) char *str, *dest; {
int len;
len = (int)strlen(str);
if (len > 94)
*dest = SP;
else
*dest = (char) tochar(len);
strcpy(dest+1,str);
return(dest+len+1);
}
/* S E T G E N -- Construct a generic command */
/*
Call with Generic command character followed by three string arguments.
Trailing strings are allowed to be empty (""). Each string except the last
non-empty string must be less than 95 characters long. The final nonempty
string is allowed to be longer.
*/
CHAR
#ifdef CK_ANSIC
setgen(char type, char * arg1, char * arg2, char * arg3)
#else
setgen(type,arg1,arg2,arg3) char type, *arg1, *arg2, *arg3;
#endif /* CK_ANSIC */
/* setgen */ {
char *upstr, *cp;
#ifdef DYNAMIC
if (!cmdstr)
if (!(cmdstr = malloc(MAXSP + 1)))
fatal("setgen: can't allocate memory");
#endif /* DYNAMIC */
cp = cmdstr;
*cp++ = type;
*cp = NUL;
if (!arg1) arg1 = "";
if (!arg2) arg2 = "";
if (!arg3) arg3 = "";
if (*arg1 != NUL) {
upstr = bldlen(arg1,cp);
if (*arg2 != NUL) {
upstr = bldlen(arg2,upstr);
if (*arg3 != NUL) bldlen(arg3,upstr);
}
}
cmarg = cmdstr;
debug(F110,"setgen",cmarg,0);
return('g');
}
#endif /* NOXFER */
#ifndef NOMSEND
static char *mgbufp = NULL;
/* F N P A R S E -- */
/*
Argument is a character string containing one or more filespecs.
This function breaks the string apart into an array of pointers, one
to each filespec, and returns the number of filespecs. Used by server
when it receives a GET command to allow it to process multiple file
specifications in one transaction. Sets cmlist to point to a list of
file pointers, exactly as if they were command line arguments.
This version of fnparse treats spaces as filename separators. If your
operating system allows spaces in filenames, you'll need a different
separator.
This version of fnparse mallocs a string buffer to contain the names. It
cannot assume that the string that is pointed to by the argument is safe.
*/
int
fnparse(string) char *string; {
char *p, *s, *q;
int r = 0, x; /* Return code */
#ifdef RECURSIVE
debug(F111,"fnparse",string,recursive);
#endif /* RECURSIVE */
if (mgbufp) free(mgbufp); /* Free this from last time. */
mgbufp = malloc((int)strlen(string)+2);
if (!mgbufp) {
debug(F100,"fnparse malloc error","",0);
return(0);
}
#ifndef NOICP
#ifndef NOSPL
ckstrncpy(fspec,string,fspeclen); /* Make copy for v(filespec) */
#endif /* NOSPL */
#endif /* NOICP */
s = string; /* Input string */
p = q = mgbufp; /* Point to the copy */
r = 0; /* Initialize our return code */
while (*s == SP || *s == HT) /* Skip leading spaces and tabs */
s++;
for (x = strlen(s); /* Strip trailing spaces */
(x > 1) && (s[x-1] == SP || s[x-1] == HT);
x--)
s[x-1] = NUL;
while (1) { /* Loop through rest of string */
if (*s == CMDQ) { /* Backslash (quote character)? */
if ((x = xxesc(&s)) > -1) { /* Go interpret it. */
*q++ = (char) x; /* Numeric backslash code, ok */
} else { /* Just let it quote next char */
s++; /* get past the backslash */
*q++ = *s++; /* deposit next char */
}
continue;
} else if (*s == SP || *s == NUL) { /* Unquoted space or NUL? */
*q++ = NUL; /* End of output filename. */
msfiles[r] = p; /* Add this filename to the list */
debug(F111,"fnparse",msfiles[r],r);
r++; /* Count it */
if (*s == NUL) break; /* End of string? */
while (*s == SP) s++; /* Skip repeated spaces */
p = q; /* Start of next name */
continue;
} else *q++ = *s; /* Otherwise copy the character */
s++; /* Next input character */
}
debug(F101,"fnparse r","",r);
msfiles[r] = ""; /* Put empty string at end of list */
cmlist = msfiles;
return(r);
}
#endif /* NOMSEND */
char * /* dbchr() for DEBUG SESSION */
dbchr(c) int c; {
static char s[8];
char *cp = s;
c &= 0xff;
if (c & 0x80) { /* 8th bit on */
*cp++ = '~';
c &= 0x7f;
}
if (c < SP) { /* Control character */
*cp++ = '^';
*cp++ = (char) ctl(c);
} else if (c == DEL) {
*cp++ = '^';
*cp++ = '?';
} else { /* Printing character */
*cp++ = (char) c;
}
*cp = ''; /* Terminate string */
cp = s; /* Return pointer to it */
return(cp);
}
/* C K H O S T -- Get name of local host (where C-Kermit is running) */
/*
Call with pointer to buffer to put hostname in, and length of buffer.
Copies hostname into buffer on success, puts null string in buffer on
failure.
*/
#ifdef BSD44
#define BSD4
#undef ATTSV
#endif /* BSD44 */
#ifdef SVORPOSIX
#ifndef BSD44
#ifndef apollo
#include <sys/utsname.h>
#endif /* apollo */
#endif /* BSD44 */
#else
#ifdef BELLV10
#include <utsname.h>
#endif /* BELLV10 */
#endif /* SVORPOSIX*/
#ifdef CKSYSLOG
extern char uidbuf[], * clienthost;
#endif /* CKSYSLOG */
VOID
ckhost(vvbuf,vvlen) char * vvbuf; int vvlen; {
#ifndef NOPUSH
extern int nopush;
#ifndef NOSERVER
extern int en_hos;
#endif /* NOSERVER */
#endif /* NOPUSH */
#ifdef pdp11
*vvbuf = NUL;
#else /* Everything else - rest of this routine */
char *g;
#ifdef VMS
int x;
#endif /* VMS */
#ifdef SVORPOSIX
#ifndef BSD44
#ifndef _386BSD
#ifndef APOLLOSR10
struct utsname hname;
#endif /* APOLLOSR10 */
#endif /* _386BSD */
#endif /* BSD44 */
#endif /* SVORPOSIX */
#ifdef datageneral
int ac0 = (char *) vvbuf, ac1 = -1, ac2 = 0;
#endif /* datageneral */
#ifndef NOPUSH
if (getenv("CK_NOPUSH")) { /* No shell access allowed */
nopush = 1; /* on this host... */
#ifndef NOSERVER
en_hos = 0;
#endif /* NOSERVER */
}
#endif /* NOPUSH */
*vvbuf = NUL; /* How let's get our host name ... */
#ifndef BELLV10 /* Does not have gethostname() */
#ifndef OXOS
#ifdef SVORPOSIX
#ifdef APOLLOSR10
ckstrncpy(vvbuf,"Apollo",vvlen);
#else
#ifdef BSD44
if (gethostname(vvbuf,vvlen) < 0)
*vvbuf = NUL;
#else
#ifdef _386BSD
if (gethostname(vvbuf,vvlen) < 0) *vvbuf = NUL;
#else
#ifdef QNX
#ifdef TCPSOCKET
if (gethostname(vvbuf,vvlen) < 0) *vvbuf = NUL;
#else
if (uname(&hname) > -1) ckstrncpy(vvbuf,hname.nodename,vvlen);
#endif /* TCPSOCKET */
#else /* SVORPOSIX but not _386BSD or BSD44 */
if (uname(&hname) > -1) ckstrncpy(vvbuf,hname.nodename,vvlen);
#endif /* QNX */
#endif /* _386BSD */
#endif /* BSD44 */
#endif /* APOLLOSR10 */
#else /* !SVORPOSIX */
#ifdef BSD4
if (gethostname(vvbuf,vvlen) < 0) *vvbuf = NUL;
#else /* !BSD4 */
#ifdef VMS
g = getenv("SYS$NODE");
if (g) ckstrncpy(vvbuf,g,vvlen);
x = (int)strlen(vvbuf);
if (x > 1 && vvbuf[x-1] == ':' && vvbuf[x-2] == ':') vvbuf[x-2] = NUL;
#else
#ifdef datageneral
if (sys($HNAME,&ac0,&ac1,&ac2) == 0) /* successful */
vvlen = ac2 + 1; /* enh - have to add one */
#else
#ifdef OS2 /* OS/2 */
g = os2_gethostname();
if (g) ckstrncpy(vvbuf,g,vvlen);
#else /* OS2 */
#ifdef OSK
#ifdef TCPSOCKET
if (gethostname(vvbuf, vvlen) < 0) *vvbuf = NUL;
#endif /* TCPSOCKET */
#endif /* OSK */
#endif /* OS2 */
#endif /* datageneral */
#endif /* VMS */
#endif /* BSD4 */
#endif /* SVORPOSIX */
#else /* OXOS */
/* If TCP/IP is not installed, gethostname() fails, use uname() */
if (gethostname(vvbuf,vvlen) < 0) {
if (uname(&hname) > -1)
ckstrncpy(vvbuf,hname.nodename,vvlen);
else
*vvbuf = NUL;
}
#endif /* OXOS */
#endif /* BELLV10 */
if (*vvbuf == NUL) { /* If it's still empty */
g = getenv("HOST"); /* try this */
if (g) ckstrncpy(vvbuf,g,vvlen);
}
vvbuf[vvlen-1] = NUL; /* Make sure result is terminated. */
#endif /* pdp11 */
}
#ifdef BSD44
#undef BSD4
#define ATTSV
#endif /* BSD44 */
/*
A S K M O R E -- Poor person's "more".
Returns 0 if no more, 1 if more wanted.
*/
int
askmore() {
char c; int rv;
#ifdef IKSD
int cx;
extern int timelimit;
#endif /* IKSD */
#ifdef NOICP
return(1);
#else
if (!xaskmore)
return(1);
#ifdef VMS
if (batch)
return(1);
#else
#ifdef UNIX
if (backgrd)
return(1);
#endif /* UNIX */
#endif /* VMS */
concb((char)escape); /* Force CBREAK mode. */
rv = -1;
while (rv < 0) {
#ifndef OS2
printf("more? ");
#ifdef UNIX
#ifdef NOSETBUF
fflush(stdout);
#endif /* NOSETBUF */
#endif /* UNIX */
#else
printf("more? (Y or space-bar for yes, N for no) ");
fflush(stdout);
#endif /* OS2 */
#ifdef IKSD
if (inserver) {
cx = cmdgetc(timelimit);
if (cx < -1 && timelimit) {
printf("n?IKS idle timeout - Goodbye.n");
doexit(GOOD_EXIT,0);
}
c = (char) cx;
} else
#endif /* IKSD */
c = (char) cmdgetc(0);
switch (c) {
/* Yes */
case SP: case 'y': case 'Y': case 012: case 015:
#ifdef OSK
write(1, "15 15", sizeof "15 15" - 1);
#else
printf("15 15");
#endif /* OSK */
rv = 1;
break;
/* No */
case 'n': case 'N': case 'q': case 'Q':
#ifdef OSK
printf("n");
#else
printf("1512");
#endif /* OSK */
rv = 0;
break;
/* Invalid answer */
default:
debug(F111,"askmore","invalid answer",c);
printf("Y or space-bar for yes, N for non");
continue;
}
#ifdef OS2
printf("r r");
fflush(stdout);
#endif /* OS2 */
}
return(rv);
#endif /* NOICP */
}
/* T R A P -- Terminal interrupt handler */
SIGTYP
#ifdef CK_ANSIC
trap(int sig)
#else
trap(sig) int sig;
#endif /* CK_ANSIC */
/* trap */ {
extern int b_save, f_save;
#ifndef NOICP
extern int timelimit;
#endif /* NOICP */
#ifdef OS2
extern int os2gks;
int i;
#endif /* OS2 */
#ifndef NOSPL
extern int i_active, instatus;
#endif /* NOSPL */
#ifdef VMS
int i; FILE *f;
#endif /* VMS */
extern int zchkod, zchkid;
#ifdef NTSIG
connoi();
#endif /* NTSIG */
#ifdef __EMX__
signal(SIGINT, SIG_ACK);
#endif
#ifdef GEMDOS
/* GEM is not reentrant, no i/o from interrupt level */
cklongjmp(cmjbuf,1); /* Jump back to parser now! */
#endif /* GEMDOS */
debug(F101,"trap signal","",sig);
#ifndef NOICP
timelimit = 0; /* In case timed ASK interrupted */
#endif /* NOICP */
zchkod = 0; /* Or file expansion interrupted... */
zchkid = 0;
interrupted = 1;
if (what == W_CONNECT) { /* Are we in CONNECT mode? */
/*
The HP workstation Reset key sends some kind of ueber-SIGINT that can not
be SIG_IGNored, so we wind up here somehow (even though this is *not* the
current SIGINT handler). Just return.
*/
debug(F101,"trap: SIGINT caught during CONNECT","",sig);
SIGRETURN;
}
#ifndef NOSPL
if (i_active) { /* INPUT command was active? */
i_active = 0; /* Not any more... */
instatus = INP_UI; /* INPUT status = User Interrupted */
}
#endif /* NOSPL */
#ifndef NOXFER
ftreset(); /* Restore global protocol settings */
binary = b_save; /* Then restore these */
fncnv = f_save;
bye_active = 0;
#endif /* NOXFER */
zclose(ZIFILE); /* If we were transferring a file, */
zclose(ZOFILE); /* close it. */
#ifndef NOICP
cmdsquo(cmd_quoting); /* If command quoting was turned off */
if (saveask > -1) {
xaskmore = saveask;
saveask = -1;
}
#endif /* NOICP */
#ifdef CK_APC
delmac("_apc_commands");
apcactive = APC_INACTIVE;
#endif /* CK_APC */
#ifdef VMS
/*
Fix terminal.
*/
if (ft_win) { /* If curses window open */
debug(F100,"^C trap() curses","",0);
xxscreen(SCR_CW,0,0L,""); /* Close it */
conres(); /* Restore terminal */
i = printf("^C..."); /* Echo ^C to standard output */
} else {
conres();
i = printf("^C...n"); /* Echo ^C to standard output */
}
if (i < 1 && ferror(stdout)) { /* If there was an error */
debug(F100,"^C trap() error","",0);
fclose(stdout); /* close standard output */
f = fopen(dftty, "w"); /* open the controlling terminal */
if (f) stdout = f; /* and make it standard output */
printf("^C...n"); /* and echo the ^C again. */
}
#else /* Not VMS */
#ifdef STRATUS
conres(); /* Set console back to normal mode */
#endif /* STRATUS */
#ifndef NOXFER
if (ft_win) { /* If curses window open, */
debug(F100,"^C trap() curses","",0);
xxscreen(SCR_CW,0,0L,""); /* close it. */
printf("^C..."); /* Echo ^C to standard output */
} else {
#endif /* NOXFER */
printf("^C...n");
#ifndef NOXFER
}
#endif /* NOXFER */
#endif /* VMS */
#ifdef datageneral
connoi_mt(); /* Kill asynch task that listens to */
ttimoff();
conres(); /* the keyboard */
#endif /* datageneral */
#ifndef NOCCTRAP
/* This is stupid -- every version should have ttimoff()... */
#ifdef UNIX
ttimoff(); /* Turn off any timer interrupts */
#else
#ifdef OSK
ttimoff(); /* Turn off any timer interrupts */
#else
#ifdef STRATUS
ttimoff(); /* Turn off any timer interrupts */
#else
#ifdef OS2
os2gks = 1; /* Turn back on keycode mapping */
for (i = 0; i < VNUM; i++)
VscrnResetPopup(i);
#ifdef TCPSOCKET
#ifdef NT
/* WSAIsBlocking() returns FALSE in Win95 during a blocking accept call */
if ( WSASafeToCancel /* && WSAIsBlocking() */ ) {
WSACancelBlockingCall();
}
#endif /* NT */
#endif /* TCPSOCKET */
#ifdef CK_NETBIOS
NCBCancelOutstanding();
#endif /* CK_NETBIOS */
ttimoff(); /* Turn off any timer interrupts */
#else
#ifdef VMS
ttimoff(); /* Turn off any timer interrupts */
#endif /* VMS */
#endif /* OS2 */
#endif /* STRATUS */
#endif /* OSK */
#endif /* UNIX */
#ifdef OSK
sigmask(-1);
/*
We are in an intercept routine but do not perform a F$RTE (done implicitly
but rts). We have to decrement the sigmask as F$RTE does. Warning:
longjump only restores the cpu registers, NOT the fpu registers. So don't
use fpu at all or at least don't use common fpu (double or float) register
variables.
*/
#endif /* OSK */
#ifdef NTSIG
PostCtrlCSem();
#else /* NTSIG */
#ifdef NT
cklongjmp(ckjaddr(cmjbuf),1);
#else /* NT */
cklongjmp(cmjbuf,1);
#endif /* NT */
#endif /* NTSIG */
#else /* NOCCTRAP */
/* No Ctrl-C trap, just exit. */
#ifdef CK_CURSES /* Curses support? */
xxscreen(SCR_CW,0,0L,""); /* Close curses window */
#endif /* CK_CURSES */
doexit(BAD_EXIT,what); /* Exit poorly */
#endif /* NOCCTRAP */
SIGRETURN;
}
/* C K _ T I M E -- Returns pointer to current time. */
char *
ck_time() {
static char tbuf[10];
char *p;
int x;
ztime(&p); /* "Thu Feb 8 12:00:00 1990" */
if (!p) /* like asctime()! */
return("");
if (*p) {
for (x = 11; x < 19; x++) /* copy hh:mm:ss */
tbuf[x - 11] = p[x]; /* to tbuf */
tbuf[8] = NUL; /* terminate */
}
return(tbuf); /* and return it */
}
/* C C _ C L E A N -- Cleanup after terminal interrupt handler */
#ifdef GEMDOS
int
cc_clean() {
zclose(ZIFILE); /* If we were transferring a file, */
zclose(ZOFILE); /* close it. */
printf("^C...n"); /* Not VMS, no problem... */
}
#endif /* GEMDOS */
/* S T P T R A P -- Handle SIGTSTP (suspend) signals */
SIGTYP
#ifdef CK_ANSIC
stptrap(int sig)
#else
stptrap(sig) int sig;
#endif /* CK_ANSIC */
/* stptrap */ {
#ifndef NOJC
int x; extern int cmflgs;
debug(F101,"stptrap() caught signal","",sig);
if (!suspend) {
printf("rnsuspend disabledrn");
#ifndef NOICP
if (what == W_COMMAND) { /* If we were parsing commands */
prompt(xxstring); /* reissue the prompt and partial */
if (!cmflgs) /* command (if any) */
printf("%s",cmdbuf);
}
#endif /* NOICP */
} else {
conres(); /* Reset the console */
#ifndef OS2
/* Flush pending output first, in case we are continued */
/* in the background, which could make us block */
fflush(stdout);
x = psuspend(suspend); /* Try to suspend. */
if (x < 0)
#endif /* OS2 */
printf("Job control not supportedrn");
conint(trap,stptrap); /* Rearm the trap. */
debug(F100,"stptrap back from suspend","",0);
switch (what) {
case W_CONNECT: /* If suspended during CONNECT? */
conbin((char)escape); /* put console back in binary mode */
debug(F100,"stptrap W_CONNECT","",0);
break;
#ifndef NOICP
case W_COMMAND: /* Suspended in command mode */
debug(F101,"stptrap W_COMMAND pflag","",pflag);
concb((char)escape); /* Put back CBREAK tty mode */
if (pflag) { /* If command parsing was */
prompt(xxstring); /* reissue the prompt and partial */
if (!cmflgs) /* command (if any) */
printf("%s",cmdbuf);
}
break;
#endif /* NOICP */
default: /* All other cases... */
debug(F100,"stptrap default","",0);
concb((char)escape); /* Put it back in CBREAK mode */
break;
}
}
#endif /* NOJC */
SIGRETURN;
}
#ifdef TLOG
#define TBUFL 300
/* T L O G -- Log a record in the transaction file */
/*
Call with a format and 3 arguments: two strings and a number:
f - Format, a bit string in range 0-7, bit x is on, arg #x is printed.
s1,s2 - String arguments 1 and 2.
n - Int, argument 3.
*/
VOID
#ifdef CK_ANSIC
dotlog(int f, char *s1, char *s2, long n)
#else
dotlog(f,s1,s2,n) int f; long n; char *s1, *s2;
#endif /* CK_ANSIC */
/* dotlog */ {
static char s[TBUFL];
char *sp = s; int x;
if (!s1) s1 = "";
if (!s2) s2 = "";
if (!tralog) return; /* If no transaction log, don't */
switch (f) {
case F000: /* 0 (special) "s1 n s2" */
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);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F001: /* 1, " n" */
sprintf(sp," %ld",n);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F010: /* 2, "[s2]" */
x = (int)strlen(s2);
if (s2[x] == 'n') s2[x] = '';
if (x + 6 > TBUFL)
sprintf(sp,"?String too long");
else sprintf(sp,"[%s]",s2);
if (zsoutl(ZTFILE,"") < 0) tralog = 0;
break;
case F011: /* 3, "[s2] n" */
x = (int)strlen(s2);
if (s2[x] == 'n') s2[x] = '';
if (x + 6 > TBUFL)
sprintf(sp,"?String too long");
else sprintf(sp,"[%s] %ld",s2,n);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F100: /* 4, "s1" */
if (zsoutl(ZTFILE,s1) < 0) tralog = 0;
break;
case F101: /* 5, "s1: n" */
if ((int)strlen(s1) + 15 > TBUFL)
sprintf(sp,"?String too long");
else sprintf(sp,"%s: %ld",s1,n);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F110: /* 6, "s1 s2" */
x = (int)strlen(s2);
if (s2[x] == 'n') s2[x] = '';
if ((int)strlen(s1) + x + 4 > TBUFL)
sprintf(sp,"?String too long");
else sprintf(sp,"%s %s",s1,s2);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
case F111: /* 7, "s1 s2: n" */
x = (int)strlen(s2);
if (s2[x] == 'n') s2[x] = '';
if ((int)strlen(s1) + x + 15 > TBUFL)
sprintf(sp,"?String too long");
else sprintf(sp,"%s %s: %ld",s1,s2,n);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
break;
default:
sprintf(sp,"?Invalid format for tlog() - %ld",n);
if (zsoutl(ZTFILE,s) < 0) tralog = 0;
}
}
/*
D O X L O G
This is the transaction-log writer for BRIEF format.
The idea is produce one record (line) per file. Each record
has the following delimited fields:
Date (yyyymmdd)
Time (hh:mm:ss)
Action: SEND or RECV
File name
File size
Transfer mode (text, binary, image, labeled, etc).
Status: OK or FAILED
Free-form comments in doublequotes
The default separator is comma.
If a field contains the separator, it is enclosed in doublequotes.
*/
VOID
#ifdef CK_ANSIC
doxlog(int x, char * fn, long 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;
#endif /* CK_ANSIC */
/* doxlog */ {
extern int tlogsep;
char sep[2];
char buf[CKMAXPATH+256];
char tmpbuf[32];
char * s, * p;
int len;
if (!tralog) return; /* If no transaction log, don't */
if (!fn) fn = ""; /* Protect against null pointers */
if (!msg) msg = "";
sep[0] = (char) tlogsep;
sep[1] = NUL;
if (!sep[0]) sep[0] = ',';
p = zzndate(); /* Date and time */
if (p) {
ckstrncpy(buf,p,CKMAXPATH); /* Shouldn't be more than 30 chars */
} else {
strcpy(buf,"00000000");
}
ztime(&p);
strcat(buf,sep);
strncat(buf,p+11,8);
strcat(buf,sep);
debug(F110,"doxlog 1",buf,0);
strcat(buf, (x == W_SEND) ? "SEND" : "RECV"); /* What */
strcat(buf,sep);
debug(F110,"doxlog 2",buf,0);
if (ckstrchr(fn,sep[0])) { /* Filename */
strcat(buf,"""); /* Might contain separator */
strcat(buf,fn);
strcat(buf,""");
} else
strcat(buf,fn);
strcat(buf,sep);
debug(F110,"doxlog 3",buf,0);
sprintf(tmpbuf,"%ld",fs); /* Size */
strcat(buf,tmpbuf);
strcat(buf,sep);
debug(F110,"doxlog 4",buf,0);
#ifdef NOICP
strcpy(tmpbuf, (binary ? "binary" : "text")); /* Transfer mode */
#else
strcpy(tmpbuf,gfmode(fm,0)); /* Transfer mode */
#endif /* NOICP */
if (ckstrchr(tmpbuf,sep[0])) { /* Might contain spaces */
strcat(buf,""");
strcat(buf,tmpbuf);
strcat(buf,""");
} else
strcat(buf,tmpbuf);
strcat(buf,sep);
debug(F110,"doxlog 5",buf,0);
strcat(buf, status ? "FAILED" : "OK");
len = strlen(buf);
debug(F110,"doxlog buf 1", buf, len);
s = buf + len;
if (status == 0) {
long cps;
#ifdef GFTIMER
cps = (long)((CKFLOAT) fs / fpxfsecs);
sprintf(s,"%s"%0.3fsec %ldcps"",sep,fpxfsecs,cps);
#else
cps = fs / xfsecs;
sprintf(s,"%s"%ldsec %ldcps"",sep,xfsecs,cps);
#endif /* GFTIMER */
} else {
sprintf(s,"%s"%s"",sep,msg);
}
debug(F110,"doxlog 5",buf,0);
x = zsoutl(ZTFILE,buf);
debug(F101,"doxlog zsoutl","",x);
if (x < 0) tralog = 0;
}
#endif /* TLOG */
#ifndef MAC
/*
The rest of this file is for all implementations but the Macintosh.
*/
#ifndef NOXFER
/* C H K I N T -- Check for console interrupts */
/*
Used during file transfer in local mode only:
. If user has not touched the keyboard, returns 0 with no side effects.
. If user typed S or A (etc, see below) prints status message and returns 0.
. If user typed X or F (etc, see below) returns 0 with cxseen set to 1.
. If user typed Z or B (etc, see below) returns 0 with czseen set to 1.
. If user typed E or C (etc, see below) returns -1.
*/
#ifdef CK_CURSES
static int repaint = 0; /* Transfer display needs repainting */
#endif /* CK_CURSES */
int
chkint() {
int ch, cn, ofd; long zz;
if (!xfrint)
return(0);
if ((!local) || (quiet)) return(0); /* Only do this if local & not quiet */
#ifdef datageneral
if (con_reads_mt) /* if conint_mt task is active */
if (conint_avl) { /* and there's an interrupt pending */
cn = 1; /* process it */
ch = conint_ch;
conint_avl = 0; /* turn off flag so conint_mt can */
} else /* proceed */
return(0);
else /* if conint_mt not active */
if ((ch = coninc(2)) < 0) /* try to get char manually */
return(0); /* I/O error, or no data */
else /* if successful, set cn so we */
cn = 1; /* know we got one */
debug(F101,"chkint got keyboard character",ch,cn);
#else /* !datageneral */
#ifdef NTSIG
{
extern int TlsIndex;
struct _threadinfo * threadinfo;
threadinfo = (struct _threadinfo *) TlsGetValue(TlsIndex);
if (threadinfo) {
if (!WaitSem(threadinfo->DieSem,0))
return -1; /* Cancel Immediately */
}
}
#endif /* NTSIG */
cn = conchk(); /* Any input waiting? */
debug(F101,"conchk","",cn);
if (cn < 1) return(0);
ch = coninc(5) ;
debug(F101,"coninc","",ch);
if (ch < 0) return(0);
#endif /* datageneral */
switch (ch & 0177) {
case 'A': case 'a': case 0001: /* Status report */
case 'S': case 's':
if (fdispla != XYFD_R && fdispla != XYFD_S && fdispla != XYFD_N)
return(0); /* Only for serial, simple or none */
ofd = fdispla; /* [MF] Save file display type */
if (fdispla == XYFD_N)
fdispla = XYFD_R; /* [MF] Pretend serial if no display */
xxscreen(SCR_TN,0,0l,"Status report:");
xxscreen(SCR_TN,0,0l," file type: ");
if (binary) {
switch(binary) {
case XYFT_L: xxscreen(SCR_TZ,0,0l,"labeled"); break;
case XYFT_I: xxscreen(SCR_TZ,0,0l,"image"); break;
case XYFT_U: xxscreen(SCR_TZ,0,0l,"binary undefined"); break;
default:
case XYFT_B: xxscreen(SCR_TZ,0,0l,"binary"); break;
}
} else {
#ifdef NOCSETS
xxscreen(SCR_TZ,0,0l,"text");
#else
xxscreen(SCR_TU,0,0l,"text, ");
if (tcharset == TC_TRANSP) {
xxscreen(SCR_TZ,0,0l,"transparent");
} else {
if (what == W_SEND) {
xxscreen(SCR_TZ,0,0l,tcsinfo[tcharset].keyword);
xxscreen(SCR_TU,0,0l," => ");
xxscreen(SCR_TZ,0,0l,fcsinfo[fcharset].keyword);
} else {
xxscreen(SCR_TZ,0,0l,fcsinfo[fcharset].keyword);
xxscreen(SCR_TU,0,0l," => ");
xxscreen(SCR_TZ,0,0l,tcsinfo[tcharset].keyword);
}
}
#endif /* NOCSETS */
}
xxscreen(SCR_QE,0,filcnt," file number");
if (fsize) xxscreen(SCR_QE,0,fsize," size");
xxscreen(SCR_QE,0,ffc," characters so far");
if (fsize > 0L) {
#ifdef CK_RESEND
zz = what == W_SEND ? sendstart : what == W_RECV ? rs_len : 0;
zz = ( (ffc + zz) * 100L ) / fsize;
#else
zz = ( ffc * 100L ) / fsize;
#endif /* CK_RESEND */
xxscreen(SCR_QE,0,zz, " percent done");
}
if (bctu == 4) { /* Block check */
xxscreen(SCR_TU,0,0L," block check: ");
xxscreen(SCR_TZ,0,0L,"blank-free-2");
} else xxscreen(SCR_QE,0,(long)bctu, " block check");
xxscreen(SCR_QE,0,(long)rptflg," compression");
xxscreen(SCR_QE,0,(long)ebqflg," 8th-bit prefixing");
xxscreen(SCR_QE,0,(long)lscapu," locking shifts");
if (!network)
xxscreen(SCR_QE,0, speed, " speed");
if (what == W_SEND)
xxscreen(SCR_QE,0,(long)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");
fdispla = ofd; /* [MF] Restore file display type */
return(0);
case 'B': case 'b': case 0002: /* Cancel batch */
case 'Z': case 'z': case 0032:
czseen = 1;
interrupted = 1;
xxscreen(SCR_ST,ST_MSG,0l,
(((what == W_RECV) && (wslots > 1)) ?
"Canceling batch, wait... " :
"Canceling batch... ")
);
return(0);
case 'F': case 'f': case 0006: /* Cancel file */
case 'X': case 'x': case 0030:
cxseen = 1;
interrupted = 1;
xxscreen(SCR_ST,ST_MSG,0l,
(((what == W_RECV) && (wslots > 1)) ?
"Canceling file, wait... " :
"Canceling file... ")
);
return(0);
case 'R': case 'r': case 0022: /* Resend packet */
case 0015: case 0012:
#ifdef STREAMING
if (streaming)
return(0);
#endif /* STREAMING */
xxscreen(SCR_ST,ST_MSG,0l,"Resending packet... ");
numerrs++;
resend(winlo);
return(0);
#ifdef datageneral
case '3': /* We're not trapping ^C's with */
trap(0); /* signals, so we check here */
#endif /* datageneral */
case 'C': case 'c': /* Ctrl-C */
#ifndef datageneral
case '3':
#endif /* datageneral */
case 'E': case 'e': /* Send error packet */
case 0005:
interrupted = 1;
return(-1);
#ifdef CK_CURSES
case 0014: /* Ctrl-L to refresh screen */
case 'L': case 'l': /* Also accept L (upper, lower) */
case 0027: /* Ctrl-W synonym for VMS & Ingres */
repaint = 1;
return(0);
#endif /* CK_CURSES */
default: /* Anything else, print message */
intmsg(1L);
return(0);
}
}
/* I N T M S G -- Issue message about terminal interrupts */
VOID
#ifdef CK_ANSIC
intmsg(long n)
#else
intmsg(n) long n;
#endif /* CK_ANSIC */
/* intmsg */ {
#ifdef CK_NEED_SIG
char buf[80];
#endif /* CK_NEED_SIG */
if (!displa || quiet) /* Not if we're being quiet */
return;
if (server && (!srvdis || n > -1L)) /* Special for server */
return;
#ifdef CK_NEED_SIG
buf[0] = NUL; /* Keep compilers happy */
#endif /* CK_NEED_SIG */
#ifndef OXOS
#ifdef SVORPOSIX
conchk(); /* Clear out pending escape-signals */
#endif /* SVORPOSIX */
#endif /* ! OXOS */
#ifdef VMS
conres(); /* So Ctrl-C will work */
#endif /* VMS */
if ((!server && n == 1L) || (server && n < 0L)) {
#ifdef CK_NEED_SIG
if (xfrint) {
sprintf(buf,
"Type escape character (%s) followed by:",
dbchr(escape)
);
xxscreen(SCR_TN,0,0l,buf);
}
#endif /* CK_NEED_SIG */
if (xfrint) {
if (protocol == PROTO_K) {
xxscreen(SCR_TN,0,0l,"X to cancel file, CR to resend current packet");
xxscreen(SCR_TN,0,0l,"Z to cancel group, A for status report");
xxscreen(SCR_TN,0,0l,"E to send Error packet, Ctrl-C to quit immediately: ");
} else {
xxscreen(SCR_TN,0,0l,"Ctrl-C to cancel file transfer: ");
}
} else {
xxscreen(SCR_TN,0,0l,"Transfer interruption disabled. ");
}
}
else xxscreen(SCR_TU,0,0l," ");
}
#ifndef NODISPLAY
static int newdpy = 0; /* New display flag */
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 int hpos = 0;
static VOID /* Initialize Serial or CRT display */
dpyinit() {
int m = 0, n = 0;
char * s = "";
newdpy = 0; /* Don't do this again */
oldffc = 0L; /* Reset this */
dots = 0L; /* and this.. */
oldcps = cps = 0L;
conoll(""); /* New line */
if (what == W_SEND) s = "Sending: "; /* Action */
else if (what == W_RECV) s = "Receiving: ";
n = (int)strlen(s) + (int)strlen(fbuf);
conol(fbuf);
m = (int)strlen(abuf) + 4;
if (n + m > cmd_cols) {
conoll("");
n = 0;
} else
n += m;
if (*abuf) {
conol(" => ");
conol(abuf);
}
m = (int)strlen(a2buf) + 4;
if (n + m > cmd_cols) {
conoll("");
n = 0;
} else
n += m;
if (*a2buf) {
conol(" => ");
conol(a2buf);
}
*fbuf = NUL; *abuf = NUL; *a2buf = NUL;
conoll("");
if (fsize > -1L) { /* Size */
sprintf(fbuf,"Size: %ld, Type: ",fsize);
conol(fbuf); *fbuf = NUL;
} else conol("Size: unknown, Type: ");
if (binary) { /* Type */
switch(binary) {
case XYFT_L: conoll("labeled"); break;
case XYFT_I: conoll("image"); break;
case XYFT_U: conoll("binary undefined"); break;
default:
case XYFT_B: conoll("binary"); break;
}
} else {
#ifdef NOCSETS
conoll("text");
#else
conol("text, ");
if (tcharset == TC_TRANSP) {
conoll("transparent");
} else {
if (what == W_SEND) {
conol(fcsinfo[fcharset].keyword);
conol(" => ");
conoll(tcsinfo[tcharset].keyword);
} else {
conol(tcsinfo[tcharset].keyword);
conol(" => ");
conoll(fcsinfo[fcharset].keyword);
}
}
#endif /* NOCSETS */
}
if (fdispla == XYFD_S) { /* CRT field headings */
/*
Define CK_CPS to show current transfer rate.
Leave it undefined to show estimated time remaining.
Estimated-time-remaining code from Andy Fyfe, not tested on
pathological cases.
*/
#define CK_CPS
#ifdef CK_CPS
conoll(" File Percent Packet");
conoll(" Bytes Done CPS Length");
#else
conoll(" File Percent Secs Packet");
conoll(" Bytes Done Left Length");
#endif /* CK_CPS */
newdpy = 0;
}
hpos = 0;
}
/*
showpkt(c)
c = completion code: 0 means transfer in progress, nonzero means it's done.
Show the file transfer progress counter and perhaps verbose packet type.
*/
VOID
#ifdef CK_ANSIC
showpkt(char c)
#else
showpkt(c) char c;
#endif /* CK_ANSIC */
/* showpkt */ {
long howfar; /* How far into file */
long et; /* Elapsed time, entire batch */
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 */
#ifdef GFTIMER
CKFLOAT tnow;
#endif /* GFTIMER */
if (newdpy) /* Put up filenames, etc, */
dpyinit(); /* if they're not there already. */
howfar = ffc; /* How far */
/*
Calculate CPS rate even if not displaying on screen for use in file
transfer statistics.
*/
#ifdef GFTIMER
tnow = gftimer(); /* Time since we started */
ps = (what == W_RECV) ? rpktl : spktl; /* Packet size */
#ifdef CK_RESEND
if (what == W_SEND) /* In case we didn't start at */
howfar += sendstart; /* the beginning... */
else if (what == W_RECV)
howfar += rs_len;
#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 (pd > 100) pd = 100; /* Expansion */
}
if (c != NUL)
if (!cxseen && !discard && !czseen)
pd = 100; /* File complete, so 100%. */
mytfc = (pd < 100) ? tfc + ffc : tfc; /* CPS */
tp = (long)((tnow > 0.0) ? (CKFLOAT) mytfc / tnow : 0);
if (c && (tp == 0))
tp = ffc;
cps = tp; /* Set global variable */
if (cps > peakcps && /* Peak transfer rate */
((what == W_SEND && spackets > wslots + 4) ||
(what != W_SEND && spackets > 10))) {
peakcps = cps;
}
#else /* Not GFTIMER */
et = gtimer(); /* Elapsed time */
ps = (what == W_RECV) ? rpktl : spktl; /* Packet length */
#ifdef CK_RESEND
if (what == W_SEND) /* And if we didn't start at */
howfar += sendstart; /* the beginning... */
else if (what == W_RECV)
howfar += rs_len;
#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 (pd > 100) pd = 100; /* Expansion */
}
if (c != NUL)
if (!cxseen && !discard && !czseen)
pd = 100; /* File complete, so 100%. */
#ifndef CK_CPS
/*
fsecs = time (from gtimer) that this file started (set in sfile()).
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;
#endif /* CK_CPS */
#ifdef CK_CPS
mytfc = (pd < 100) ? tfc + ffc : tfc;
tp = (et > 0) ? mytfc / et : 0; /* Transfer rate */
if (c && (tp == 0)) /* Watch out for subsecond times */
tp = ffc;
cps = tp; /* Set global variable */
if (cps > peakcps && /* Peak transfer rate */
((what == W_SEND && spackets > wslots + 4) ||
(what != W_SEND && spackets > 10))) {
peakcps = cps;
}
#endif /* CK_CPS */
#endif /* GFTIMER */
if (fdispla == XYFD_S) { /* CRT display */
char buffer[40];
if (pd > -1L)
sprintf(buffer, "%c%9ld%5ld%%%8ld%8ld ", CR, howfar, pd, tp, ps);
else
sprintf(buffer, "%c%9ld %8ld%8ld ", CR, howfar, tp, ps);
conol(buffer);
hpos = 31;
} else if (fdispla == XYFD_R) { /* SERIAL */
long i, k;
if (howfar - oldffc < 1024) /* Update display every 1K */
return;
oldffc = howfar; /* Time for new display */
k = (howfar / 1024L) - dots; /* How many K so far */
for (i = 0L; i < k; i++) {
if (hpos++ > (cmd_cols - 3)) { /* Time to wrap? */
conoll("");
hpos = 0;
}
conoc('.'); /* Print a dot for this K */
dots++; /* Count it */
}
}
}
/* C K S C R E E N -- Screen display function */
/*
ckscreen(f,c,n,s)
f - argument descriptor
c - a character or small integer
n - a long integer
s - a string.
Fill in this routine with the appropriate display update for the system.
FILE DISPLAY SERIAL: Dots, etc, works on any terminal, even hardcopy.
FILE DISPLAY CRT: Works on any CRT, writes over current line.
FILE DISPLAY FULLSCREEN: Requires terminal-dependent screen control.
FILE DISPLAY BRIEF: Like SERIAL but only filename & completion status.
*/
VOID
#ifdef CK_ANSIC
ckscreen(int f, char c,long n,char *s)
#else
ckscreen(f,c,n,s) int f; char c; long n; char *s;
#endif /* CK_ANSIC */
/* screen */ {
char buf[80];
int len; /* Length of string */
#ifdef UNIX
#ifndef NOJC
int obg;
_PROTOTYP( VOID conbgt, (int) );
#endif /* NOJC */
#endif /* UNIX */
if (!local) return; /* In remote mode - don't do this */
if (!fxd_inited) /* Initialize if necessary */
fxdinit(fdispla);
#ifdef UNIX
#ifndef NOJC
obg = backgrd; /* Previous background status */
conbgt(1); /* See if running in background */
if (!backgrd && obg) { /* Just came into foreground? */
concb((char)escape); /* Put console back in CBREAK mode */
setint(); /* Restore interrupts */
}
#endif /* NOJC */
#endif /* UNIX */
if ((f != SCR_WM) && (f != SCR_EM)) /* Always update warnings & errors */
if (!displa ||
(backgrd && bgset) ||
fdispla == XYFD_N ||
(server && !srvdis)
)
return;
#ifdef VMS
if (f == SCR_FN) /* VMS - shorten the name */
s = zrelname(s,zgtdir());
#endif /* VMS */
if (dest == DEST_S) /* SET DESTINATION SCREEN */
return; /* would interfere... */
#ifdef CK_CURSES
if (fdispla == XYFD_C) { /* If fullscreen display selected */
screenc(f,c,n,s); /* call the fullscreen version */
return;
}
#endif /* CK_CURSES */
len = (int)strlen(s); /* Length of string */
switch (f) { /* Handle our function code */
case SCR_FN: /* Filename */
if (fdispla == XYFD_B) {
printf(" %s %s", what == W_SEND ? "SEND" : "RECV", s);
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
return;
}
#ifdef MAC
conoll(""); conol(s); conoc(SP); hpos = len + 1;
#else
ckstrncpy(fbuf,s,80);
abuf[0] = a2buf[0] = NUL;
newdpy = 1; /* New file so refresh display */
#endif /* MAC */
return;
case SCR_AN: /* As-name */
if (fdispla == XYFD_B) {
#ifdef COMMENT
printf("(as %s) ",s);
#endif /* COMMENT */
return;
}
#ifdef MAC
if (hpos + len > 75) { conoll(""); hpos = 0; }
conol("=> "); conol(s);
if ((hpos += (len + 3)) > 78) { conoll(""); hpos = 0; }
#else
if (abuf[0]) {
ckstrncpy(a2buf,s,80);
} else {
ckstrncpy(abuf,s,80);
}
#endif /* MAC */
return;
case SCR_FS: /* File-size */
if (fdispla == XYFD_B) {
printf(" (%s) (%ld byte%s)",
#ifdef NOICP
(binary ? "binary" : "text")
#else
gfmode(binary,0)
#endif /* NOICP */
, n, n == 1L ? "" : "s");
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
return;
}
#ifdef MAC
sprintf(buf,", Size: %ld",n); conoll(buf); hpos = 0;
#endif /* MAC */
return;
case SCR_XD: /* X-packet data */
if (fdispla == XYFD_B)
return;
#ifdef MAC
conoll(""); conoll(s); hpos = 0;
#else
ckstrncpy(fbuf,s,80);
abuf[0] = a2buf[0] = NUL;
#endif /* MAC */
return;
case SCR_ST: /* File status */
switch (c) {
case ST_OK: /* Transferred OK */
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));
#else
printf(": OK (%d sec, %ld cps)n",xfsecs,ffc/xfsecs);
#endif /* GFTIMER */
return;
}
if ((hpos += 5) > 78) conoll(""); /* Wrap screen line. */
conoll(" [OK]"); hpos = 0; /* Print OK message. */
if (fdispla == XYFD_S) { /* We didn't show Z packet when */
conoc('Z'); /* it came, so show it now. */
hpos = 1;
}
return;
case ST_DISC: /* Discarded */
if (fdispla == XYFD_B) {
printf(": DISCARDEDn");
return;
}
if ((hpos += 12) > 78) conoll("");
conoll(" [discarded]"); hpos = 0;
return;
case ST_INT: /* Interrupted */
if (fdispla == XYFD_B) {
printf(": INTERRUPTEDn");
return;
}
if ((hpos += 14) > 78) conoll("");
conoll(" [interrupted]"); hpos = 0;
return;
case ST_SKIP: /* Skipped */
if (fdispla == XYFD_B) {
printf(": SKIPPEDn");
return;
} else if (fdispla == XYFD_S) {
if (fdispla == XYFD_S && fbuf[0]) { /* CRT display */
conoll(""); /* New line */
if (what == W_SEND) conol("Sending: "); /* Action */
else if (what == W_RECV) conol("Receiving: ");
conol(fbuf);
if (*abuf) conol(" => "); conol(abuf); /* Names */
if (*a2buf) conol(" => "); conol(a2buf); /* Names */
*fbuf = NUL; *abuf = NUL; *a2buf = NUL;
}
conoll(" [skipped]");
return;
}
if ((hpos += 10) > 78) conoll("");
conol(" [skipped]"); hpos = 0;
return;
case ST_ERR: /* Error */
if (fdispla == XYFD_B) {
printf(": ERROR: %sn",s);
return;
}
conoll("");
conol("Error: "); conoll(s); hpos = 0;
return;
case ST_MSG: /* Message */
if (fdispla == XYFD_B)
return;
conoll("");
conol("Message: ");
conoll(s);
hpos = 0;
return;
case ST_REFU: /* Refused */
if (fdispla == XYFD_B) {
printf(": REFUSEDn");
return;
} else if (fdispla == XYFD_S) {
if (fdispla == XYFD_S && fbuf[0]) { /* CRT display */
conoll(""); /* New line */
if (what == W_SEND) conol("Sending: "); /* Action */
else if (what == W_RECV) conol("Receiving: ");
conol(fbuf);
if (*abuf) conol(" => "); conol(abuf); /* Names */
if (*a2buf) conol(" => "); conol(a2buf); /* Names */
*fbuf = NUL; *abuf = NUL; *a2buf = NUL;
conoll("");
}
conol("Refused: "); conoll(s);
return;
}
conoll("");
conol("Refused: "); conoll(s); hpos = 0;
return;
case ST_INC: /* Incomplete */
if (fdispla == XYFD_B) {
printf(": INCOMPLETEn");
return;
}
if ((hpos += 12) > 78) conoll("");
conoll(" [incomplete]"); hpos = 0;
return;
default:
conoll("*** screen() called with bad status ***");
hpos = 0;
return;
}
#ifdef MAC
case SCR_PN: /* Packet number */
if (fdispla == XYFD_B) {
return;
}
sprintf(buf,"%s: %ld",s,n);
conol(buf); hpos += (int)strlen(buf); return;
#endif /* MAC */
case SCR_PT: /* Packet type or pseudotype */
if (fdispla == XYFD_B)
return;
if (c == 'Y') return; /* Don't bother with ACKs */
if (c == 'D') { /* In data transfer phase, */
showpkt(NUL); /* show progress. */
return;
}
#ifndef AMIGA
if (hpos++ > 77) { /* If near right margin, */
conoll(""); /* Start new line */
hpos = 0; /* and reset counter. */
}
#endif /* AMIGA */
if (c == 'Z' && fdispla == XYFD_S)
return;
else
conoc(c); /* Display the packet type. */
#ifdef AMIGA
if (c == 'G') conoll(""); /* New line after G packets */
#endif /* AMIGA */
return;
case SCR_TC: /* Transaction complete */
if (xfrbel) bleep(BP_NOTE);
if (fdispla == XYFD_B) { /* Brief display... */
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"));
#ifdef GFTIMER
printf(", %0.3f sec, %ld cps", fptsecs, tfcps);
#else
printf(", %ld sec, %ld cps", tsecs, tfcps);
#endif /* GFTIMER */
printf(".n");
}
} else {
conoll("");
}
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
return;
case SCR_EM: /* Error message */
if (fdispla == XYFD_B) {
printf(" ERROR: %sn",s);
return;
}
conoll(""); conoc('?'); conoll(s); hpos = 0; return;
case SCR_WM: /* Warning message */
if (fdispla == XYFD_B) {
printf(" WARNING: %sn",s);
return;
}
conoll(""); conoll(s); hpos = 0; return;
case SCR_TU: /* Undelimited text */
if (fdispla == XYFD_B)
return;
if ((hpos += len) > 77) { conoll(""); hpos = len; }
conol(s); return;
case SCR_TN: /* Text delimited at beginning */
if (fdispla == XYFD_B)
return;
conoll(""); conol(s); hpos = len; return;
case SCR_TZ: /* Text delimited at end */
if (fdispla == XYFD_B)
return;
if ((hpos += len) > 77) { conoll(""); hpos = len; }
conoll(s); return;
case SCR_QE: /* Quantity equals */
if (fdispla == XYFD_B)
return;
sprintf(buf,"%s: %ld",s,n);
conoll(buf); hpos = 0; return;
case SCR_CW: /* Close fullscreen window */
return; /* No window to close */
case SCR_CD:
return;
default:
conoll("*** screen() called with bad object ***");
hpos = 0;
return;
}
}
#endif /* NODISPLAY */
/* E R M S G -- Nonfatal error message */
/* Should be used only for printing the message text from an Error packet. */
VOID
ermsg(msg) char *msg; { /* Print error message */
debug(F110,"ermsg",msg,0);
if (local)
xxscreen(SCR_EM,0,0L,msg);
tlog(F110,"Protocol Error:",msg,0L);
}
#endif /* NOXFER */
VOID
doclean(fc) int fc; { /* General cleanup */
#ifdef OS2ORUNIX
extern int ttyfd;
#endif /* OS2ORUNIX */
#ifndef NOICP
if (fc > 0)
dostop(); /* Stop all command files and end macros */
#endif /* NOICP */
#ifndef NOXFER
if (pktlog) {
*pktfil = '';
pktlog = 0;
zclose(ZPFILE);
}
#endif /* NOXFER */
if (seslog) {
*sesfil = '';
seslog = 0;
zclose(ZSFILE);
}
#ifdef TLOG
if (tralog) {
tlog(F100,"Transaction Log Closed","",0L);
*trafil = '';
tralog = 0;
zclose(ZTFILE);
}
#endif /* TLOG */
#ifdef CKLOGDIAL
debug(F100,"doclean calling dologend","",0);
dologend(); /* End current log record if any */
if (dialog) { /* If connection log open */
*diafil = ''; /* close it. */
dialog = 0;
zclose(ZDIFIL);
}
#endif /* CKLOGDIAL */
#ifndef NOICP
#ifndef NOSPL
zclose(ZRFILE); /* READ and WRITE files, if any. */
zclose(ZWFILE);
zclose(ZIFILE); /* And other files too */
zclose(ZOFILE);
zclose(ZSYSFN);
zclose(ZMFILE);
if (fc < 1) { /* RESETing, not EXITing */
#ifdef DEBUG
if (deblog) { /* Close the debug log. */
*debfil = '';
deblog = 0;
zclose(ZDFILE);
}
#endif /* DEBUG */
return;
}
#endif /* NOSPL */
#endif /* NOICP */
/*
Put console terminal back to normal. This is done here because the
ON_EXIT macro calls the parser, which meddles with console terminal modes.
*/
#ifndef NOLOCAL
if (local) {
extern int haslock;
if (ttchk() >= 0
#ifdef OS2
|| ttyfd != -1
#else
#ifdef UNIX
|| haslock /* Make sure we get lockfile! */
|| (!network && ttyfd > -1)
#endif /* UNIX */
#endif /* OS2 */
) {
extern int wasclosed, whyclosed;
if (!quiet) {
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
printf("Closing %s...",ttname);
}
ttclos(0); /* Close external line, if any */
if (!quiet) {
printf("OKn");
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
}
if (wasclosed) {
whyclosed = WC_CLOS;
#ifndef NOSPL
if (nmac) { /* Any macros defined? */
int k; /* Yes */
k = mlook(mactab,"on_close",nmac); /* Look this up */
if (k >= 0) { /* If found, */
wasclosed = 0;
/* printf("ON_CLOSE DOCLEANn"); */
*(mactab[k].kwd) = NUL; /* See comment below */
if (dodo(k,ckitoa(whyclosed),0) > -1) /* set it up, */
parser(1); /* and execute it */
}
}
#endif /* NOSPL */
wasclosed = 0;
}
}
strcpy(ttname,dftty); /* Restore default tty */
local = dfloc; /* And default remote/local status */
}
#endif /* NOLOCAL */
#ifndef NOSPL
/*
If a macro named "on_exit" is defined, execute it. Also remove it from the
macro table, in case its definition includes an EXIT or QUIT command, which
would cause much recursion and would prevent the program from ever actually
EXITing.
*/
if (nmac) { /* Any macros defined? */
int k; /* Yes */
char * cmd = "on_exit"; /* MSVC 2.x compiler error */
k = mlook(mactab,cmd,nmac); /* Look up "on_exit" */
if (k >= 0) { /* If found, */
*(mactab[k].kwd) = NUL; /* poke its name from the table, */
if (dodo(k,"",0) > -1) /* set it up, */
parser(1); /* and execute it */
}
}
#endif /* NOSPL */
conres(); /* Restore console terminal. */
#ifdef COMMENT
/* Should be no need for this, and maybe it's screwing things up? */
connoi(); /* Turn off console interrupt traps */
#endif /* COMMENT */
/* Delete the Startup File if we are supposed to. */
#ifndef NOICP
{
extern int DeleteStartupFile;
debug(F111,"doclean DeleteStartupFile",cmdfil,DeleteStartupFile);
if (DeleteStartupFile) {
int rc = zdelet(cmdfil);
debug(F111,"doclean zdelet",cmdfil,rc);
}
}
#endif /* NOICP */
syscleanup(); /* System-dependent cleanup, last */
}
/* D O E X I T -- Exit from the program. */
/*
First arg is general, system-independent symbol: GOOD_EXIT or BAD_EXIT.
If second arg is -1, take 1st arg literally.
If second arg is not -1, work it into the exit code.
*/
VOID
doexit(exitstat,code) int exitstat, code; {
extern int x_logged;
#ifdef OS2
extern int display_demo;
#endif /* OS2 */
#ifdef CK_KERBEROS
#ifdef KRB4
extern int krb4_autodel;
#endif /* KRB4 */
#ifdef KRB5
extern int krb5_autodel;
#endif /* KRB5 */
#endif /* CK_KERBEROS */
#ifdef VMS
char envstr[64];
static $DESCRIPTOR(symnam,"CKERMIT_STATUS");
static struct dsc$descriptor_s symval;
int i;
#endif /* VMS */
debug(F101,"doexit exitstat","",exitstat);
debug(F101,"doexit code","",code);
debug(F101,"doexit xitsta","",xitsta);
#ifdef CK_KERBEROS
/* If we are automatically destroying Kerberos credentials on Exit */
/* do it now. */
#ifdef KRB4
if (krb4_autodel == KRB_DEL_EX) {
extern struct krb_op_data krb_op;
krb_op.version = 4;
krb_op.cache = NULL;
ck_krb4_destroy(&krb_op);
}
#endif /* KRB4 */
#ifdef KRB5
if (krb5_autodel == KRB_DEL_EX) {
extern struct krb_op_data krb_op;
extern char * krb5_d_cc;
krb_op.version = 5;
krb_op.cache = krb5_d_cc;
ck_krb5_destroy(&krb_op);
}
#endif /* KRB5 */
#endif /* CK_KERBEROS */
#ifdef OS2
/* If there is a demo screen to be displayed, display it */
if (display_demo) {
demoscrn();
display_demo = 0;
}
DialerSend(OPT_KERMIT_EXIT,exitstat);
debug(F100,"doexit about to msleep","",0);
if (exitstat == BAD_EXIT)
msleep(125); /* Wait for screen updates */
#endif /* OS2 */
debug(F100,"doexit about to doclean","",0);
doclean(1); /* Clean up most things */
#ifdef VMS
if (code == -1)
code = 0; /* Since we set two different items */
sprintf(envstr,"%d", exitstat | code);
symval.dsc$w_length = (int)strlen(envstr);
symval.dsc$a_pointer = envstr;
symval.dsc$b_class = DSC$K_CLASS_S;
symval.dsc$b_dtype = DSC$K_DTYPE_T;
i = 2; /* Store in global table */
#ifdef COMMENT /* Martin Zinser */
LIB$SET_SYMBOL(&symnam, &symval, &i);
#else
lib$set_symbol(&symnam, &symval, &i);
#endif /* COMMENT */
if (exitstat == BAD_EXIT)
exitstat = SS$_ABORT | STS$M_INHIB_MSG;
if (exitstat == GOOD_EXIT)
exitstat = SS$_NORMAL | STS$M_INHIB_MSG;
#else /* Not VMS */
if (code != -1) /* Take 1st arg literally */
exitstat |= code;
#endif /* VMS */
#ifdef IKSD
#ifdef CK_LOGIN
if (inserver && x_logged)
zvlogout();
#endif /* CK_LOGIN */
#ifdef IKSDB
debug(F101,"doexit ikdbopen","",ikdbopen);
if (ikdbopen && dbfp) { /* If IKSD database open */
int x;
x = freeslot(mydbslot); /* Free our slot... */
debug(F101,"doexit freeslot","",x);
fclose(dbfp); /* and close it. */
}
#endif /* IKSDB */
#endif /* IKSD */
/* We have put this off till the very last moment... */
#ifdef DEBUG
if (deblog) { /* Close the debug log. */
debug(F101,"C-Kermit EXIT status","",exitstat);
*debfil = '';
deblog = 0;
zclose(ZDFILE);
}
#endif /* DEBUG */
#ifdef OS2
_exit(exitstat); /* Exit from C-Kermit (no matter what) */
#else /* OS2 */
exit(exitstat); /* Exit from C-Kermit */
#endif /* OS2 */
}
VOID
bgchk() { /* Check background status */
if (bgset < 0) { /* They didn't type SET BACKGROUND */
#ifdef VMS /* Set prompt flag based on */
pflag = !batch; /* what we detected at startup. */
#else
pflag = !backgrd;
#endif /* VMS */
} else { /* Otherwise SET BACKGROUND value */
pflag = (bgset == 0 ? 1 : 0);
}
#ifndef NOICP
/* Message flag on only if at top level, pflag is on, and QUIET is OFF */
if (!cmdsrc())
msgflg = (pflag == 0) ? 0 : !quiet;
else msgflg = 0;
#else
msgflg = 0;
#endif /* NOICP */
}
/* Set console interrupts */
VOID
setint() { /* According to SET COMMAND INTERRUP */
int x = 0;
if (cmdint) x |= 1;
if (suspend) x |= 2;
debug(F101,"setint","",x);
switch (x) { /* Set the desired combination */
case 0: connoi(); break; /* No interrupts */
case 1: conint(trap,SIG_IGN); break;
case 2: conint(SIG_IGN,stptrap); break;
case 3: conint(trap,stptrap); break;
}
bgchk(); /* Check background status */
}
#ifdef DEBUG
/* D E B U G -- Enter a record in the debugging log */
/*
Call with a format, two strings, and a number:
f - Format, a bit string in range 0-7.
If bit x is on, then argument number x is printed.
s1 - String, argument number 1. If selected, printed as is.
s2 - String, argument number 2. If selected, printed in brackets.
n - Long int, argument 3. If selected, printed preceded by equals sign.
f=0 is special: print s1,s2, and interpret n as a char.
f=F011 (3) is also special; in this case s2 is interpeted as a counted
string that might contain NULs. n is the length. If n is negative, this
means the string has been truncated and ".." should be printed after the
first n bytes. NUL and LF bytes are printed as "<NUL>" and "<LF>".
*/
/*
WARNING: Don't change DEBUFL without changing sprintf() formats below,
accordingly.
*/
#define DBUFL 2300
/*
WARNING: This routine is not thread-safe, especially when Kermit is
executing on multiple CPUs -- as different threads write to the same
static buffer, the debug statements are all interleaved. To be fixed
later...
*/
static char *dbptr = (char *)0;
int
#ifdef CK_ANSIC
dodebug(int f, char *s1, char *s2, long n)
#else
dodebug(f,s1,s2,n) int f; char *s1, *s2; long n;
#endif /* CK_ANSIC */
/* dodebug */ {
char *sp;
int len1, len2;
extern int debtim;
if (!deblog) /* If no debug log, don't. */
return(0);
/*
This prevents infinite recursion in case we accidentally put a debug()
call in this routine, or call another routine that contains debug() calls.
From this point on, all returns from this return must be via goto xdebug,
which sets deblog back to 1.
*/
#ifndef OS2
deblog = 0; /* Prevent infinite recursion */
#endif /* OS2 */
if (!dbptr) { /* Allocate memory buffer */
dbptr = malloc(DBUFL+1); /* This only happens once */
if (!dbptr) {
zclose(ZDFILE);
return(0);
}
}
if (debtim) { /* Timestamp */
char *tb, tsbuf[48];
ztime(&tb);
ckstrncpy(tsbuf,tb,32);
tsbuf[20] = NUL;
if (ztmsec > -1L)
sprintf(tsbuf+19,".%03ld ",ztmsec);
zsout(ZDFILE,tsbuf+11);
}
if (!s1) s1="(NULL)";
if (!s2) s2="(NULL)";
len1 = strlen(s1);
len2 = strlen(s2);
#ifdef COMMENT
/*
This should work, but it doesn't.
So instead we'll cope with overflow via sprintf formats.
N.B.: UNFORTUNATELY, this means we have to put constants in the
sprintf formats.
*/
if (f != F011 && (!f || (f & 6))) { /* String argument(s) included? */
x = (int) strlen(s1) + (int) strlen(s2) + 18;
if (x > dbufl) { /* Longer than buffer? */
if (dbptr) /* Yes, free previous buffer */
free(dbptr);
dbptr = (char *) malloc(x + 2); /* Allocate a new one */
if (!dbptr) {
zsoutl(ZDFILE,"DEBUG: Memory allocation failure");
deblog = 0;
zclose(ZDFILE);
goto xdebug;
} else {
dbufl = x;
sprintf(dbptr,"DEBUG: Buffer expanded to %dn", x + 18);
zsoutl(ZDFILE,dbptr);
}
}
}
#endif /* COMMENT */
#ifdef COMMENT
/* The aforementioned sprintf() formats were like this: */
if (n > 31 && n < 127)
sprintf(sp,"%.100s%.2000s:%cn",s1,s2,(CHAR) n);
else if (n < 32 || n == 127)
sprintf(sp,"%.100s%.2000s:^%cn",s1,s2,(CHAR) ((n+64) & 0x7F));
else if (n > 127 && n < 160)
sprintf(sp,"%.100s%.2000s:~^%cn",s1,s2,(CHAR)((n-64) & 0x7F));
else if (n > 159 && n < 256)
sprintf(sp,"%.100s%.2000s:~%cn",s1,s2,(CHAR) (n & 0x7F));
else sprintf(sp,"%.100s%.2000s:%ldn",s1,s2,n);
/*
But, naturally, it turns out these are not portable either, so now
we do the stupidest possible thing.
*/
#endif /* COMMENT */
#ifdef BIGBUFOK
/* Need to accept longer strings when debugging authenticated connections */
if (f == F010) {
if (len2 + 2 >= DBUFL) s2 = "(string too long)";
} else if (f != F011 && f != F100) {
if (len1 > 100) s1 = "(string too long)";
if (len2 + 101 >= DBUFL) s2 = "(string too long)";
}
#else
if (f != F011) {
if (len1 > 100) s1 = "(string too long)";
if (len2 + 101 >= DBUFL) s2 = "(string too long)";
}
#endif /* BIGBUFOK */
sp = dbptr;
switch (f) { /* Write log record according to format. */
case F000: /* 0 = print both strings, and n as a char. */
if (len2 > 0) {
if ((n > 31 && n < 127) || (n > 159 && n < 256))
sprintf(sp,"%s[%s]=%cn",s1,s2,(CHAR) n);
else if (n < 32 || n == 127)
sprintf(sp,"%s[%s]=^%cn",s1,s2,(CHAR) ((n+64) & 0x7F));
else if (n > 127 && n < 160)
sprintf(sp,"%s[%s]=~^%cn",s1,s2,(CHAR)((n-64) & 0x7F));
else sprintf(sp,"%s[%s]=0x%lXn",s1,s2,n);
} else {
if ((n > 31 && n < 127) || (n > 159 && n < 256))
sprintf(sp,"%s=%cn",s1,(CHAR) n);
else if (n < 32 || n == 127)
sprintf(sp,"%s=^%cn",s1,(CHAR) ((n+64) & 0x7F));
else if (n > 127 && n < 160)
sprintf(sp,"%s=~^%cn",s1,(CHAR)((n-64) & 0x7F));
else sprintf(sp,"%s=0x%lXn",s1,n);
}
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
}
#ifdef CKSYSLOG
if (ckxsyslog >= SYSLG_DB && ckxlogging) {
cksyslog(SYSLG_DB,1,"debug",dbptr,NULL);
}
#endif /* CKSYSLOG */
break;
case F001: /* 1, "=n" */
#ifdef COMMENT
/* This was never used */
sprintf(sp,"=%ldn",n);
#else
/* Like F111, but shows number n in hex */
sprintf(sp,"%s%s=0x%lXn",s1,s2,n);
#endif /* COMMENT */
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
}
#ifdef CKSYSLOG
if (ckxsyslog >= SYSLG_DB && ckxlogging) {
cksyslog(SYSLG_DB,1,"debug",dbptr,NULL);
}
#endif /* CKSYSLOG */
break;
case F010: /* 2, "[s2]" */
sprintf(sp,"[%s]n",s2);
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
}
#ifdef CKSYSLOG
if (ckxsyslog >= SYSLG_DB && ckxlogging) {
cksyslog(SYSLG_DB,1,"debug",dbptr,NULL);
}
#endif /* CKSYSLOG */
break;
/*
This one treats n as the length of the string s2, which may contain NULs.
It's good for logging NUL-bearing packets and other data in the debug log.
*/
case F011: /* 3, "[s2]=n" */
#ifdef COMMENT /* This format was never used */
sprintf(sp,"[%s]=%ldn",s2,n);
if (zsout(ZDFILE,dbptr) < 0) {
deblog = 0;
zclose(ZDFILE);
}
#else
#ifdef DEBUG
{
int i, j, contd = 0;
char * p = s2, *pbuf = NULL;
int m;
if (n < 0) { /* n = size of source */
n = 0 - n;
contd = 1;