4.4BSD/usr/src/contrib/kermit-5A.188/ckcfn3.c
/* C K C F N 3 -- Packet buffer management for C-Kermit */
/* (plus assorted functions tacked on at the end) */
/*
Author: Frank da Cruz (fdc@columbia.edu, FDCCU@CUVMA.BITNET),
Columbia University Center for Computing Activities.
First released January 1985.
Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
York. Permission is granted to any individual or institution to use this
software as long as it is not sold for profit. This copyright notice must be
retained. This software may not be included in commercial products without
written permission of Columbia University.
*/
#include "ckcdeb.h"
#include "ckcasc.h"
#include "ckcker.h"
#include "ckcxla.h"
extern int unkcs, wmax, wcur, discard, bctu, bctl, local, fdispla;
extern CHAR *data;
extern char filnam[];
#ifndef NOFRILLS
extern int rprintf, rmailf; /* REMOTE MAIL, PRINT */
extern char optbuf[]; /* Options buffer for mail, print */
#endif /* NOFRILLS */
extern int wslots;
extern int fblksiz, frecl, forg, frecfm, fncact, fcctrl, lf_opts;
#ifdef DYNAMIC
extern CHAR *srvcmd;
#else
extern CHAR srvcmd[];
#endif
extern int binary, spsiz;
extern int pktnum, cxseen, czseen, bsave, bsavef, nfils, stdinf;
extern int memstr, stdouf, keep, sndsrc, hcflg;
extern int server, en_cwd;
extern int
atenci, atenco, atdati, atdato, atleni, atleno, atblki, atblko,
attypi, attypo, atsidi, atsido, atsysi, atsyso, atdisi, atdiso;
#ifdef datageneral
extern int quiet;
#endif /* datageneral */
extern long fsize, filcnt, ffc, tfc;
#ifndef NOCSETS
extern int tcharset, fcharset;
extern int ntcsets;
extern struct csinfo tcsinfo[], fcsinfo[];
/* Pointers to translation functions */
#ifdef CK_ANSIC
extern CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR); /* Character set */
extern CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR); /* translation functions */
extern CHAR (*rx)(CHAR); /* Pointer to input character translation function */
extern CHAR (*sx)(CHAR); /* Pointer to output character translation function */
#else
extern CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(); /* Character set */
extern CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(); /* translation functions. */
extern CHAR (*rx)(); /* Pointer to input character translation function */
extern CHAR (*sx)(); /* Pointer to output character translation function */
#endif /* CK_ANSIC */
#endif /* NOCSETS */
/* Variables global to Kermit that are defined in this module */
int winlo; /* packet number at low window edge */
int sbufnum; /* number of free buffers */
int dum001 = 1234; /* protection... */
int sbufuse[MAXWS]; /* buffer in-use flag */
int dum003 = 1111;
int rbufnum; /* number of free buffers */
int dum002 = 4321; /* more protection */
int rbufuse[MAXWS]; /* buffer in-use flag */
int sseqtbl[64]; /* sequence # to buffer # table */
int rseqtbl[64]; /* sequence # to buffer # table */
int sacktbl[64]; /* sequence # ack table */
#ifdef DYNAMIC
struct pktinfo *s_pkt = NULL; /* array of pktinfo structures */
struct pktinfo *r_pkt = NULL; /* array of pktinfo structures */
#else
struct pktinfo s_pkt[MAXWS]; /* array of pktinfo structures */
struct pktinfo r_pkt[MAXWS]; /* array of pktinfo structures */
#endif /* DYNAMIC */
#ifdef DEBUG
char xbuf[200]; /* For debug logging */
#endif /* DEBUG */
#ifdef DYNAMIC
CHAR *bigsbuf = NULL, *bigrbuf = NULL;
#else
char bigsbt[8]; /* Protection (shouldn't need this). */
/* BUT DON'T REMOVE IT! */
CHAR bigsbuf[SBSIZ + 5]; /* Send-packet buffer area */
char bigrbt[8]; /* Safety padding */
CHAR bigrbuf[RBSIZ + 5]; /* Receive-packet area */
#endif
int bigsbsiz = SBSIZ; /* Sizes of big send & rcv buffers. */
int bigrbsiz = RBSIZ;
/* FUNCTIONS */
/* For sanity, use "i" for buffer slots, "n" for packet numbers. */
/* I N I B U F S */
/*
Allocates the big send and receive buffers.
Call with size for big send buffer (s) and receive buffer (r).
These sizes can be different.
Attempts to allocate buffers of the requested size, but if it can't,
it will allocate smaller ones.
Sets global variables bigsbsiz and bigrbsiz to the actual sizes,
and bigsbuf and bigrbuf pointing to the actual buffers.
Designed to be called more than once.
Returns 0 on success, -1 on failure.
*/
CHAR *bigbufp = NULL;
int
inibufs(s,r) int s, r; {
#ifdef DYNAMIC
int size, x;
long z;
if (s < 80 || r < 80) return(-1); /* Validate arguments. */
if (!s_pkt) { /* Allocate packet info structures */
if (!(s_pkt = (struct pktinfo *) malloc(sizeof(struct pktinfo)*MAXWS)))
fatal("ini_pkts: no memory for s_pkt");
}
for (x = 0; x < MAXWS; x++)
s_pkt[x].pk_adr = NULL; /* Initialize addresses */
if (!r_pkt) {
if (!(r_pkt = (struct pktinfo *) malloc(sizeof(struct pktinfo)*MAXWS)))
fatal("ini_pkts: no memory for s_pkt");
}
for (x = 0; x < MAXWS; x++)
r_pkt[x].pk_adr = NULL; /* Initialize addresses */
if (!srvcmd) { /* Allocate srvcmd buffer */
srvcmd = (CHAR *) malloc(r + 100);
if (!srvcmd) return(-1);
}
if (bigbufp) { /* Free previous buffers, if any. */
free(bigbufp);
bigbufp = NULL;
}
size = s + r + 40; /* Combined requested size + padding */
/* Try to get the space. If malloc fails, try to get a little less. */
/* (Obviously, this algorithm can be refined.) */
while (!(bigbufp = (CHAR *) malloc(size))) {
size = (size * 3) / 2; /* Failed, cut size by 1/3. */
if (size < 200) /* Try again until too small. */
return(-1);
}
debug(F101,"inibufs size","",size); /* OK, we got some space. */
/*
Now divide the allocated space between the send and receive buffers in the
requested proportion. The natural formula would be (s / (s + r)) * size
(for the send buffer), but that doesn't work with integer arithmetic and we
can't use floating point because some machines don't have it. This can be
rearranged as (s * size) / (s + r). But (s * size) can be VERY large, too
large for 32 bits. So let's do it this way. This arithmetic works for
buffer sizes up to about 5,000,000.
*/
#define FACTOR 20L
z = ( (long) s * FACTOR ) / ( (long) s + (long) r );
x = ( z * ( (long) size / FACTOR ) );
if (x < 0) return(-1); /* Catch overflow */
bigsbsiz = x - 5; /* Size of send buffer */
bigsbuf = bigbufp; /* Address of send buffer */
debug(F101,"inibufs bigsbsiz","",bigsbsiz);
bigrbsiz = size - x - 5; /* Size of receive buffer */
bigrbuf = bigbufp + x; /* Addresss of receive buffer */
debug(F101,"inibufs bigrbsiz","",bigrbsiz);
return(0); /* Success */
#else /* No dynamic allocation */
bigsbsiz = SBSIZ; /* Just use the symbols */
bigrbsiz = RBSIZ; /* ... */
return(0); /* Success. */
#endif /* DYNAMIC */
}
/* M A K E B U F -- Makes and clears a new buffers. */
/* Call with: */
/* slots: number of buffer slots to make, 1 to 31 */
/* bufsiz: size of the big buffer */
/* buf: address of the big buffer */
/* xx: pointer to array of pktinfo structures for these buffers */
/* Subdivides the big buffer into "slots" buffers. */
/* Returns: */
/* -1 if too many or too few slots requested, */
/* -2 if slots would be too small. */
/* n (positive) on success = size of one buffer. */
/* with pktinfo structure initialized for this set of buffers. */
int
makebuf(slots,bufsiz,buf,xx)
/* makebuf */ int slots, bufsiz; CHAR buf[]; struct pktinfo *xx; {
CHAR *a;
int i, size;
debug(F101,"makebuf","",slots);
debug(F101,"makebuf bufsiz","",bufsiz);
debug(F101,"makebuf MAXWS","",MAXWS);
if (slots > MAXWS || slots < 1) return(-1);
if (bufsiz < slots * 10 ) return(-2);
size = bufsiz / slots; /* Divide up the big buffer. */
a = buf; /* Address of first piece. */
for (i = 0; i < slots; i++) {
struct pktinfo *x = &xx[i];
x->bf_adr = a; /* Address of this buffer */
x->bf_len = size; /* Length of this buffer */
x->pk_len = 0; /* Length of data field */
x->pk_typ = ' '; /* packet type */
x->pk_seq = -1; /* packet sequence number */
x->pk_flg = 0; /* ack'd bit */
x->pk_rtr = 0; /* retransmissions */
*a = '\0'; /* Clear the buffer */
a += size; /* Position to next buffer slot */
}
return(size);
}
/* M A K S B U F -- Makes the send-packet buffer */
int
mksbuf(slots) int slots; {
int i, x;
sbufnum = 0;
if ((x = makebuf(slots,bigsbsiz,bigsbuf,s_pkt)) < 0) {
debug(F101,"mksbuf makebuf return","",x);
return(x);
}
debug(F101,"mksbuf makebuf return","",x);
for (i = 0; i < 64; i++) { /* Initialize sequence-number- */
sseqtbl[i] = -1; /* to-buffer-number table. */
sacktbl[i] = 0;
}
for (i = 0; i < MAXWS; i++)
sbufuse[i] = 0; /* Mark each buffer as free */
sbufnum = slots;
return(x);
}
/* M A K R B U F -- Makes the receive-packet buffer */
int
mkrbuf(slots) int slots; {
int i, x;
rbufnum = 0;
if ((x = makebuf(slots,bigrbsiz,bigrbuf,r_pkt)) < 0) {
debug(F101,"mkrbuf makebuf return","",x);
return(x);
}
debug(F101,"mkrbuf makebuf return","",x);
for (i = 0; i < 64; i++) { /* Initialize sequence-number- */
rseqtbl[i] = -1; /* to-buffer-number table. */
}
for (i = 0; i < MAXWS; i++)
rbufuse[i] = 0; /* Mark each buffer as free */
rbufnum = slots;
return(x);
}
/* W I N D O W -- Resize the window to n */
int
window(n) int n; {
debug(F101,"window","",n);
if (n < 1 || n > 31) return(-1);
if (mksbuf(n) < 0) return(-1);
if (mkrbuf(n) < 0) return(-1);
wslots = n;
#ifdef DEBUG
if (deblog) dumpsbuf();
if (deblog) dumprbuf();
#endif /* DEBUG */
return(0);
}
/* G E T S B U F -- Allocate a send-buffer. */
/* Call with packet sequence number to allocate buffer for. */
/* Returns: */
/* -4 if argument is invalid (negative, or greater than 63) */
/* -3 if buffers were thought to be available but really weren't (bug!) */
/* -2 if the number of free buffers is negative (bug!) */
/* -1 if no free buffers. */
/* 0 or positive, packet sequence number, with buffer allocated for it. */
int
getsbuf(n) int n; { /* Allocate a send-buffer */
int i;
if (n < 0 || n > 63) {
debug(F101,"getsbuf bad arg","",n);
return(-4); /* Bad argument */
}
debug(F101,"getsbuf, packet","",n);
debug(F101,"getsbuf, sbufnum","",sbufnum);
if (sbufnum == 0) return(-1); /* No free buffers. */
if (sbufnum < 0) return(-2); /* Shouldn't happen. */
for (i = 0; i < wslots; i++) /* Find the first one not in use. */
if (sbufuse[i] == 0) { /* Got one? */
sbufuse[i] = 1; /* Mark it as in use. */
sbufnum--; /* One less free buffer. */
*s_pkt[i].bf_adr = '\0'; /* Zero the buffer data field */
s_pkt[i].pk_seq = n; /* Put in the sequence number */
sseqtbl[n] = i; /* Back pointer from sequence number */
sacktbl[n] = 0; /* ACK flag */
s_pkt[i].pk_len = 0; /* Data field length now zero. */
s_pkt[i].pk_typ = ' '; /* Blank the packet type too. */
s_pkt[i].pk_flg = 0; /* Zero the flags */
s_pkt[i].pk_rtr = 0; /* Zero the retransmission count */
data = s_pkt[i].bf_adr + 7; /* Set global "data" address. */
wcur = wslots - sbufnum; /* Current number of window slots */
if (i+1 > wmax) wmax = i+1; /* For statistics. */
return(n); /* Return its index. */
}
sbufnum = 0; /* Didn't find one. */
return(-3); /* Shouldn't happen! */
}
int
getrbuf() { /* Allocate a receive buffer */
int i;
debug(F101,"getrbuf rbufnum","",rbufnum);
debug(F101,"getrbuf wslots","",wslots);
debug(F101,"getrbuf dum002","",dum002);
debug(F101,"getrbuf dum003","",dum003);
if (rbufnum == 0) return(-1); /* No free buffers. */
if (rbufnum < 0) return(-2); /* Shouldn't happen. */
for (i = 0; i < wslots; i++) /* Find the first one not in use. */
if (rbufuse[i] == 0) { /* Got one? */
rbufuse[i] = 1; /* Mark it as in use. */
*r_pkt[i].bf_adr = '\0'; /* Zero the buffer data field */
rbufnum--; /* One less free buffer. */
debug(F101,"getrbuf new rbufnum","",rbufnum);
#ifdef COMMENT
wcur = wslots - rbufnum; /* Current number of window slots */
#endif /* COMMENT */
if (i+1 > wmax) wmax = i+1; /* For statistics. */
return(i); /* Return its index. */
}
debug(F101,"getrbuf foulup","",i);
rbufnum = 0; /* Didn't find one. */
return(-3); /* Shouldn't happen! */
}
/* F R E E S B U F -- Free send-buffer for given packet sequence number */
/* Returns: */
/* 1 upon success */
/* -1 if specified buffer does not exist */
int
freesbuf(n) int n; { /* Release send-buffer for packet n. */
int i;
debug(F101,"freesbuf","",n);
if (n < 0 || n > 63) /* No such packet. */
return(-1);
i = sseqtbl[n]; /* Get the window slot number. */
if (i > -1 && i <= wslots) {
sseqtbl[n] = -1; /* If valid, remove from seqtbl */
sbufnum++; /* and count one more free buffer */
sbufuse[i] = 0; /* and mark it as free, */
} else {
debug(F101," sseqtbl[n]","",sseqtbl[n]);
return(-1);
}
/* The following is done only so dumped buffers will look right. */
if (1) {
*s_pkt[i].bf_adr = '\0'; /* Zero the buffer data field */
s_pkt[i].pk_seq = -1; /* Invalidate the sequence number */
s_pkt[i].pk_len = 0; /* Data field length now zero. */
s_pkt[i].pk_typ = ' '; /* Blank the packet type too. */
s_pkt[i].pk_flg = 0; /* And zero the flag */
s_pkt[i].pk_rtr = 0; /* And the retries field. */
}
return(1);
}
int
freerbuf(i) int i; { /* Release receive-buffer slot "i". */
int n;
/* NOTE !! Currently, this function frees the indicated buffer, but */
/* does NOT erase the data. The program counts on this. Will find a */
/* better way later.... */
debug(F101,"freerbuf, slot","",i);
if (i < 0 || i >= wslots) { /* No such slot. */
debug(F101,"freerbuf no such slot","",i);
return(-1);
}
n = r_pkt[i].pk_seq; /* Get the packet sequence number */
debug(F101,"freerbuf, packet","",n);
if (n > -1 && n < 64) /* If valid, remove from seqtbl */
rseqtbl[n] = -1;
if (rbufuse[i] != 0) { /* If really allocated, */
rbufuse[i] = 0; /* mark it as free, */
rbufnum++; /* and count one more free buffer. */
debug(F101,"freerbuf, new rbufnum","",rbufnum);
}
/* The following is done only so dumped buffers will look right. */
if (1) {
/* *r_pkt[i].bf_adr = '\0'; */ /* Zero the buffer data field */
r_pkt[i].pk_seq = -1; /* And from packet list */
r_pkt[i].pk_len = 0; /* Data field length now zero. */
r_pkt[i].pk_typ = ' '; /* Blank the packet type too. */
r_pkt[i].pk_flg = 0; /* And zero the flag */
r_pkt[i].pk_rtr = 0; /* And the retries field. */
}
return(1);
}
/* This is like freerbuf, except it's called with a packet sequence number */
/* rather than a packet buffer index. */
VOID
freerpkt(seq) int seq; {
int k;
debug(F101,"freerpkt seq","",seq);
k = rseqtbl[seq];
debug(F101,"freerpkt k","",k);
if (k > -1) {
k = freerbuf(k);
debug(F101,"freerpkt freerbuf","",k);
}
}
/* C H K W I N -- Check if packet n is in window. */
/* Returns: */
/* 0 if it is in the current window, */
/* +1 if it would have been in previous window (e.g. if ack was lost), */
/* -1 if it is outside any window (protocol error), */
/* -2 if either of the argument packet numbers is out of range. */
/* Call with packet number to check (n), lowest packet number in window */
/* (bottom), and number of slots in window (slots). */
int
chkwin(n,bottom,slots) int n, bottom, slots; {
int top, prev;
debug(F101,"chkwin packet","",n);
debug(F101,"chkwin winlo","",bottom);
debug(F101,"chkwin slots","",slots);
/* First do the easy and common cases, where the windows are not split. */
if (n < 0 || n > 63 || bottom < 0 || bottom > 63)
return(-2);
if (n == bottom) return(0); /* In a perfect world... */
top = bottom + slots; /* Calculate window top. */
if (top < 64 && n < top && n >= bottom)
return(0); /* In current window. */
prev = bottom - slots; /* Bottom of previous window. */
if (prev > -1 && n < bottom && n > prev)
return(1); /* In previous. */
/* Now consider the case where the current window is split. */
if (top > 63) { /* Wraparound... */
top -= 64; /* Get modulo-64 sequence number */
if (n < top || n >= bottom) {
return(0); /* In current window. */
} else { /* Not in current window. */
if (n < bottom && n >= prev) /* Previous window can't be split. */
return(1); /* In previous window. */
else
return(-1); /* Not in previous window. */
}
}
/* Now the case where current window not split, but previous window is. */
if (prev < 0) { /* Is previous window split? */
prev += 64; /* Yes. */
if (n < bottom || n >= prev)
return(1); /* In previous window. */
} else { /* Previous window not split. */
if (n < bottom && n >= prev)
return(1); /* In previous window. */
}
/* It's not in the current window, and not in the previous window... */
return(-1); /* So it's not in any window. */
}
int
dumpsbuf() { /* Dump send-buffers */
#ifdef DEBUG
int j, x; /* to debug log. */
if (! deblog) return(0);
x = zsoutl(ZDFILE,"SEND BUFFERS:");
if (x < 0) {
deblog = 0;
return(0);
}
x=zsoutl(ZDFILE,"buffer inuse address length data type seq flag retries");
if (x < 0) {
deblog = 0;
return(0);
}
for ( j = 0; j < wslots; j++ ) {
sprintf(xbuf,"%4d%6d%10d%5d%6d%4c%5d%5d%6d\n",
j,
sbufuse[j],
s_pkt[j].bf_adr,
s_pkt[j].bf_len,
s_pkt[j].pk_len,
s_pkt[j].pk_typ,
s_pkt[j].pk_seq,
s_pkt[j].pk_flg,
s_pkt[j].pk_rtr
);
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
if (s_pkt[j].pk_adr) {
x = (int)strlen((char *) s_pkt[j].pk_adr);
if (x)
sprintf(xbuf,"[%.72s%s]\n",s_pkt[j].pk_adr, x > 72 ? "..." : "");
else
sprintf(xbuf,"[(empty string)]\n");
} else {
sprintf(xbuf,"[(null pointer)]\n");
}
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
}
sprintf(xbuf,"free: %d, winlo: %d\n", sbufnum, winlo);
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
return(0);
#endif /* DEBUG */
}
int
dumprbuf() { /* Dump receive-buffers */
#ifdef DEBUG
int j, x;
if (! deblog) return(0);
if (zsoutl(ZDFILE,"RECEIVE BUFFERS:") < 0) {
deblog = 0;
return(0);
}
x=zsoutl(ZDFILE,"buffer inuse address length data type seq flag retries");
if (x < 0) {
deblog = 0;
return(0);
}
for ( j = 0; j < wslots; j++ ) {
sprintf(xbuf,"%4d%6d%10d%5d%6d%4c%5d%5d%6d\n",
j,
rbufuse[j],
r_pkt[j].bf_adr,
r_pkt[j].bf_len,
r_pkt[j].pk_len,
r_pkt[j].pk_typ,
r_pkt[j].pk_seq,
r_pkt[j].pk_flg,
r_pkt[j].pk_rtr
);
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
x = (int)strlen((char *)r_pkt[j].bf_adr);
sprintf(xbuf,"[%.72s%s]\n",r_pkt[j].bf_adr, x > 72 ? "..." : "");
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
}
sprintf(xbuf,"free: %d, winlo: %d\n", rbufnum, winlo);
if (zsout(ZDFILE,xbuf) < 0) {
deblog = 0;
return(0);
}
return(0);
#endif /* DEBUG */
}
/*** Some misc functions also moved here from the other ckcfn*.c modules ***/
/*** to even out the module sizes. ***/
/* Attribute Packets. */
/*
Call with xp == 0 if we're sending a real file (F packet),
or xp != 0 for screen data (X packet).
Returns 0 on success, -1 on failure.
*/
int
sattr(xp) int xp; { /* Send Attributes */
int i, j, aln;
char *tp;
struct zattr x;
if (zsattr(&x) < 0) return(-1); /* Get attributes or die trying */
if (nxtpkt() < 0) return(-1); /* Next packet number */
i = 0; /* i = Data field character number */
if (atsido) { /* System type */
data[i++] = '.';
data[i++] = tochar(x.systemid.len); /* Copy from attr structure */
for (j = 0; j < x.systemid.len; j++)
data[i++] = x.systemid.val[j];
}
if (attypo) { /* File type */
data[i++] = '"';
if (
#ifdef VMS
binary == XYFT_I || binary == XYFT_L || /* IMAGE or LABELED */
!strncmp(x.recfm.val,"F",1) /* or RECFM=Fxxxxxx */
#else
binary /* User said SET FILE TYPE BINARY */
#endif /* VMS */
) { /* Binary */
data[i++] = tochar(2); /* Two characters */
data[i++] = 'B'; /* B for Binary */
data[i++] = '8'; /* 8-bit bytes (note assumption...) */
#ifdef VMS
if (binary != XYFT_I && binary != XYFT_L) binary = XYFT_B;
#endif /* VMS */
} else { /* Text */
data[i++] = tochar(3); /* Three characters */
data[i++] = 'A'; /* A = (extended) ASCII with CRLFs */
data[i++] = 'M'; /* M for carriage return */
data[i++] = 'J'; /* J for linefeed */
#ifdef VMS
binary = XYFT_T; /* We automatically detected text */
#endif /* VMS */
#ifdef NOCSETS
data[i++] = '*'; /* Encoding */
data[i++] = tochar(1); /* Length of value is 1 */
data[i++] = 'A'; /* A for ASCII */
#else
if (tcharset == TC_TRANSP) /* Transfer character set */
tp = NULL;
else
tp = tcsinfo[tcharset].designator;
if ((tp != NULL) && (aln = (int)strlen(tp)) > 0) {
data[i++] = '*'; /* Encoding */
data[i++] = tochar(aln+1); /* Length of charset designator. */
data[i++] = 'C'; /* Text in specified character set. */
for (j = 0; j < aln; j++) /* Designator from tcsinfo struct */
data[i++] = *tp++; /* Example: *&I6/100 */
}
#endif /* NOCSETS */
}
}
if ((xp == 0) && (x.length > -1L)) { /* If it's a real file */
if (atdato && (aln = x.date.len) > 0) { /* Creation date, if any */
data[i++] = '#';
data[i++] = tochar(aln);
for (j = 0; j < aln; j++)
data[i++] = x.date.val[j];
}
if (atleno) {
data[i] = '!'; /* File length in K */
sprintf((char *) &data[i+2],"%ld",x.lengthk);
aln = (int)strlen((char *)(data+i+2));
data[i+1] = tochar(aln);
i += aln + 2;
data[i] = '1'; /* File length in bytes */
sprintf((char *) &data[i+2],"%ld",x.length);
aln = (int)strlen((char *)(data+i+2));
data[i+1] = tochar(aln);
i += aln + 2;
}
if (atblko && fblksiz) { /* Blocksize, if set */
data[i] = '(';
sprintf((char *) &data[i+2],"%d",fblksiz);
aln = (int)strlen((char *)(data+i+2));
data[i+1] = tochar(aln);
i += aln + 2;
}
}
#ifndef NOFRILLS
if ((rprintf || rmailf) && atdiso) { /* MAIL, or REMOTE PRINT? */
data[i++] = '+'; /* Disposition */
data[i++] = tochar((int)strlen(optbuf) + 1); /* Options, if any */
if (rprintf)
data[i++] = 'P'; /* P for Print */
else
data[i++] = 'M'; /* M for Mail */
for (j = 0; optbuf[j]; j++) /* Copy any options */
data[i++] = optbuf[j];
}
#endif /* NOFRILLS */
data[i] = '\0'; /* Make sure it's null-terminated */
aln = (int)strlen((char *)data); /* Get overall length of attributes */
/* Change this code to break attribute data up into multiple packets! */
j = (spsiz < 95) ? (92 - bctl) : (spsiz - 2 - bctl);
if (aln > j) { /* Check length of result */
spack('A',pktnum,0,(CHAR *)""); /* send an empty attribute packet */
debug(F101,"sattr pkt too long","",aln); /* if too long */
debug(F101,"sattr spsiz","",spsiz);
} else { /* Otherwise */
spack('A',pktnum,aln,data); /* send the real thing. */
debug(F111,"sattr",data,aln);
}
return(0);
}
static char *refused = "";
static char *reason[] = {
"size", "type", "date", "creator", "account", "area", "password",
"blocksize", "access", "encoding", "disposition", "protection",
"protection", "origin", "format", "sys-dependent", "size" };
static int nreason = sizeof(reason) / sizeof(char *);
char *
getreason(s) char *s; { /* Decode attribute refusal reason */
char c, *p;
p = s;
if (*p++ != 'N') return(""); /* Should start with N */
if ((c = *p) > SP) { /* get reason, */
c -= '!'; /* get offset */
p = ((unsigned int) ((CHAR) c) <= nreason) ? reason[c] : "unknown";
}
return(p);
}
int
rsattr(s) CHAR *s; { /* Read response to attribute packet */
debug(F111,"rsattr: ",s,*s);
if (*s == 'N') { /* If it's 'N' followed by anything, */
refused = getreason((char *)s); /* they are refusing, get reason. */
debug(F110,"refused",refused,0);
tlog(F110,"refused",refused,0L);
return(-1);
} else refused = "";
return(0);
}
int
gattr(s, yy) CHAR *s; struct zattr *yy; { /* Read incoming attribute packet */
char c;
int aln, i;
#define ABUFL 40 /* Temporary buffer for conversions */
char abuf[ABUFL];
#define FTBUFL 10 /* File type buffer */
static char ftbuf[FTBUFL];
#define DTBUFL 40 /* File creation date */
static char dtbuf[DTBUFL];
#define TSBUFL 10 /* Transfer syntax */
static char tsbuf[TSBUFL];
#define IDBUFL 10 /* System ID */
static char idbuf[IDBUFL];
#ifndef DYNAMIC
#define DSBUFL 100 /* Disposition */
static char dsbuf[DSBUFL];
#define SPBUFL 512 /* System-dependent parameters */
static char spbuf[SPBUFL];
#else
#define DSBUFL 100 /* Disposition */
static char *dsbuf = NULL;
#define SPBUFL 512 /* System-dependent parameters */
static char *spbuf = NULL;
#endif /* DYNAMIC */
#define RPBUFL 20 /* Attribute reply */
static char rpbuf[RPBUFL];
char *rp; /* Pointer to reply buffer */
int retcode; /* Return code */
/* fill in the attributes we have received */
rp = rpbuf; /* Initialize reply buffer */
*rp++ = 'N'; /* for negative reply. */
retcode = 0; /* Initialize return code. */
while (c = *s++) { /* Get attribute tag */
aln = xunchar(*s++); /* Length of attribute string */
switch (c) {
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 */
break;
case '"': /* file type */
for (i = 0; (i < aln) && (i < FTBUFL); i++)
ftbuf[i] = *s++; /* Copy it into a static string */
ftbuf[i] = '\0';
if (i < aln) s += (aln - i);
if (attypi) { /* TYPE attribute is enabled? */
yy->type.val = ftbuf; /* Pointer to string */
yy->type.len = i; /* Length of string */
debug(F101,"gattr file type",tsbuf,i);
if (
*ftbuf != 'A' && *ftbuf != 'B' /* Unknown type? */
#ifdef VMS
/* or (VMS) our FILE TYPE is LABELED and the incoming file is text... */
|| binary == XYFT_L && *ftbuf == 'A'
#endif /* VMS */
) {
discard = 1; /* Reject the file */
retcode = -1;
*rp++ = c;
break;
}
/*
The following code moved here from opena() so we set binary mode
as soon as requested by the attribute packet. That way when the first
data packet comes, the mode of transfer can be displayed correctly
before opena() is called.
*/
if (bsavef) { /* If somehow file mode */
binary = bsave; /* was saved but not restored, */
bsavef = 0; /* restore it. */
debug(F101,"gattr restoring binary","",binary);
}
if (yy->type.val[0] == 'A') { /* Check received attributes. */
bsave = binary; /* ASCII. Save global file type */
bsavef = 1; /* ( restore it in clsof() ) */
binary = XYFT_T; /* Set current type to Text. */
debug(F100,"gattr attribute A = text","",binary); /* */
} else if (yy->type.val[0] == 'B') {
bsave = binary; /* Binary. Save global file type */
bsavef = 1;
#ifdef VMS
if (binary != XYFT_L && binary != XYFT_U) /* VMS cases */
#endif /* VMS */
binary = XYFT_B;
debug(F101,"gattr attribute B = binary","",binary);
}
}
break;
case '#': /* File creation date */
for (i = 0; (i < aln) && (i < DTBUFL); i++)
dtbuf[i] = *s++; /* Copy it into a static string */
if (i < aln) s += (aln - i);
dtbuf[i] = '\0';
if (atdati) {
yy->date.val = dtbuf; /* Pointer to string */
yy->date.len = i; /* Length of string */
if (fncact == XYFX_U) { /* Receiving in update mode? */
if (zstime(filnam,yy,1) > 0) { /* Compare dates */
discard = 1; /* If incoming file is older, */
*rp++ = c; /* discard it, reason = date. */
retcode = -1; /* Rejection notice. */
}
}
}
break;
case '(': /* File Block Size */
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 (atblki)
yy->blksize = atol(abuf); /* Convert to number */
break;
case '*': /* Encoding (transfer syntax) */
for (i = 0; (i < aln) && (i < TSBUFL); i++)
tsbuf[i] = *s++; /* Copy it into a static string */
if (i < aln) s += (aln - i);
tsbuf[i] = '\0';
if (atenci) {
yy->encoding.val = tsbuf; /* Pointer to string */
yy->encoding.len = i; /* Length of string */
debug(F101,"gattr encoding",tsbuf,i);
switch (*tsbuf) {
#ifndef NOCSETS
case 'A': /* Normal (maybe extended) ASCII */
tcharset = TC_USASCII; /* Transparent chars untranslated */
break;
case 'C': /* Specified character set */
for (i = 0; i < ntcsets; i++) {
if (!strcmp(tcsinfo[i].designator,tsbuf+1)) break;
}
debug(F101,"gattr xfer charset lookup","",i);
if (i == ntcsets) { /* If unknown character set, */
debug(F110,"gattr: xfer charset unknown",tsbuf+1,0);
if (!unkcs) { /* and SET UNKNOWN DISCARD, */
retcode = -1; /* reject the file. */
*rp++ = c;
}
} else {
tcharset = tcsinfo[i].code; /* if known, use it */
rx = xlr[tcharset][fcharset]; /* xlation function */
}
debug(F101,"gattr tcharset","",tcharset);
break;
#endif /* NOCSETS */
default: /* Something else. */
debug(F110,"gattr unk encoding attribute",tsbuf,0);
if (!unkcs) { /* If SET UNK DISC */
retcode = -1; /* reject the file */
*rp++ = c;
}
break;
}
}
break;
case '+': /* disposition */
#ifdef DYNAMIC
if (!dsbuf)
if ((dsbuf = malloc(DSBUFL+1)) == NULL)
fatal("gtattr: no memory for dsbuf");
#endif /* DYNAMIC */
for (i = 0; (i < aln) && (i < DSBUFL); i++)
dsbuf[i] = *s++; /* Copy it into a static string */
dsbuf[i] = '\0';
if (i < aln) s += (aln - i);
if (atdisi) {
yy->disp.val = dsbuf; /* Pointer to string */
yy->disp.len = i; /* Length of string */
if (
#ifndef datageneral /* MAIL supported only for */
#ifndef OS2 /* UNIX, VMS, and OS-9 */
#ifndef MAC
#ifndef GEMDOS
#ifndef AMIGA
*dsbuf != 'M' &&
#endif /* AMIGA */
#endif /* GEMDOS */
#endif /* MAC */
#endif /* OS/2 */
#endif /* datageneral */
*dsbuf != 'P') {
retcode = -1;
*rp++ = c;
}
}
break;
case '.': /* Sender's system ID */
for (i = 0; (i < aln) && (i < IDBUFL); i++)
idbuf[i] = *s++; /* Copy it into a static string */
idbuf[i] = '\0';
if (i < aln) s += (aln - i);
if (atsidi) {
yy->systemid.val = idbuf; /* Pointer to string */
yy->systemid.len = i; /* Length of string */
}
break;
case '0': /* System-dependent parameters */
#ifdef DYNAMIC
if (!spbuf && !(spbuf = malloc(SPBUFL)))
fatal("gattr: no memory for spbuf");
#endif /* DYNAMIC */
for (i = 0; (i < aln) && (i < SPBUFL); i++)
spbuf[i] = *s++; /* Copy it into a static string */
spbuf[i] = '\0';
if (i < aln) s += (aln - i);
if (atsysi) {
yy->sysparam.val = spbuf; /* Pointer to string */
yy->sysparam.len = i; /* Length of string */
}
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;
default: /* Unknown attribute */
s += aln; /* Just skip past it */
break;
}
}
/* Check file length 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 (!zchkspa(filnam,(yy->length))) { /* Check space */
retcode = -1;
*rp++ = '1';
}
} else if (yy->lengthk > -1L) { /* Length in K attribute rec'd? */
if (!zchkspa(filnam,(yy->lengthk * 1024))) {
retcode = -1; /* Check space */
*rp++ = '!';
}
}
}
if (yy->length > -1L) { /* Get the file size */
fsize = yy->length;
} else if (yy->lengthk > -1L) {
fsize = yy->lengthk * 1024L;
} else fsize = -1L;
#ifdef DEBUG
if (deblog) {
sprintf(abuf,"%ld",fsize);
debug(F110,"gattr fsize",abuf,0);
}
#endif /* DEBUG */
if (retcode == 0) rp = rpbuf; /* Null reply string if accepted */
*rp = '\0'; /* End of reply string */
yy->reply.val = rpbuf; /* Add it to attribute structure */
yy->reply.len = (int)strlen(rpbuf);
debug(F111,"gattr return",rpbuf,retcode);
return(retcode);
}
/* I N I T A T T R -- Initialize file attribute structure */
int
initattr(yy) struct zattr *yy; {
yy->lengthk = yy->length = -1L;
yy->type.val = "";
yy->type.len = 0;
yy->date.val = "";
yy->date.len = 0;
yy->encoding.val = "";
yy->encoding.len = 0;
yy->disp.val = "";
yy->disp.len = 0;
yy->systemid.val = "";
yy->systemid.len = 0;
yy->sysparam.val = "";
yy->sysparam.len = 0;
yy->creator.val = "";
yy->creator.len = 0;
yy->account.val = "";
yy->account.len = 0;
yy->area.val = "";
yy->area.len = 0;
yy->passwd.val = "";
yy->passwd.len = 0;
yy->blksize = -1L;
yy->access.val = "";
yy->access.len = 0;
yy->lprotect.val = "";
yy->lprotect.len = 0;
yy->gprotect.val = "";
yy->gprotect.len = 0;
yy->recfm.val = "";
yy->recfm.len = 0;
yy->reply.val = "";
yy->reply.len = 0;
return(0);
}
/* A D E B U -- Write attribute packet info to debug log */
int
adebu(f,zz) char *f; struct zattr *zz; {
#ifdef DEBUG
if (deblog == 0) return(0);
debug(F110,"Attributes for incoming file ",f,0);
debug(F101," length in K","",(int) zz->lengthk);
debug(F111," file type",zz->type.val,zz->type.len);
debug(F111," creation date",zz->date.val,zz->date.len);
debug(F111," creator",zz->creator.val,zz->creator.len);
debug(F111," account",zz->account.val,zz->account.len);
debug(F111," area",zz->area.val,zz->area.len);
debug(F111," password",zz->passwd.val,zz->passwd.len);
debug(F101," blksize","",(int) zz->blksize);
debug(F111," access",zz->access.val,zz->access.len);
debug(F111," encoding",zz->encoding.val,zz->encoding.len);
debug(F111," disposition",zz->disp.val,zz->disp.len);
debug(F111," lprotection",zz->lprotect.val,zz->lprotect.len);
debug(F111," gprotection",zz->gprotect.val,zz->gprotect.len);
debug(F111," systemid",zz->systemid.val,zz->systemid.len);
debug(F111," recfm",zz->recfm.val,zz->recfm.len);
debug(F111," sysparam",zz->sysparam.val,zz->sysparam.len);
debug(F101," length","",(int) zz->length);
debug(F110," reply",zz->reply.val,0);
#endif /* DEBUG */
return(0);
}
/* O P E N A -- Open a file, with attributes. */
/*
This function tries to open a new file to put the arriving data in. The
filename is the one in the srvcmd buffer. File collision actions are:
OVERWRITE (the existing file is overwritten), RENAME (the new file is
renamed), BACKUP (the existing file is renamed), DISCARD (the new file is
refused), UPDATE (the incoming file replaces the existing file only if the
incoming file has a newer creation date).
Returns 0 on failure, nonzero on success.
*/
int
opena(f,zz) char *f; struct zattr *zz; {
int x;
static struct filinfo fcb; /* Must be static! */
debug(F111,"opena discard",f,discard);
adebu(f,zz); /* Write attributes to debug log */
ffc = 0L; /* Init file character counter */
#ifdef COMMENT
/*
This code moved to sattr().
*/
if (bsavef) { /* If somehow file mode */
binary = bsave; /* was saved but not restored, */
bsavef = 0; /* restore it. */
debug(F101,"opena restoring binary","",binary);
}
if (zz->type.val[0] == 'A') { /* Check received attributes */
#ifdef VMS
if (binary == XYFT_L) /* Refuse to receive a file in */
return(0); /* labeled mode if sent as text. */
#endif /* VMS */
bsave = binary; /* ASCII. Save global file type */
bsavef = 1; /* ( restore it in clsof() ) */
binary = XYFT_T; /* Set current type to Text. */
debug(F100,"opena attribute A = text","",binary);
} else if (zz->type.val[0] == 'B') {
bsave = binary; /* Binary. Save global file type */
bsavef = 1;
#ifdef VMS
if (binary != XYFT_L && binary != XYFT_U) /* Special VMS cases */
#endif /* VMS */
binary = XYFT_B;
debug(F101,"opena attribute B = binary","",binary);
}
#endif /* COMMENT */
/* Set up file control structure */
fcb.bs = fblksiz; /* Blocksize */
#ifndef NOCSETS
fcb.cs = fcharset; /* Character set */
#else
fcb.cs = 0; /* Character set */
#endif /* NOCSETS */
fcb.rl = frecl; /* Record Length */
fcb.fmt = frecfm; /* Record Format */
fcb.org = forg; /* Organization */
fcb.cc = fcctrl; /* Carriage control */
fcb.typ = binary; /* Type */
fcb.dsp = (fncact == XYFX_A) ? XYFZ_A : XYFZ_N; /* Disposition */
fcb.os_specific = '\0'; /* OS specific info */
#ifdef VMS
fcb.lblopts = lf_opts; /* VMS Labeled file options */
#else
fcb.lblopts = 0;
#endif /* VMS */
if (x = openo(f,zz,&fcb)) { /* Try to open the file. */
tlog(F110," as",f,0L); /* OK, open, record name. */
if (binary) { /* Log file mode in transaction log */
tlog(F101," mode: binary","",(long) binary);
} else { /* If text mode, check character set */
tlog(F100," mode: text","",0L);
#ifndef NOCSETS
tlog(F110," file character set",fcsinfo[fcharset].name,0L);
if (tcharset == TC_TRANSP)
tlog(F110," xfer character set","transparent",0L);
else
tlog(F110," xfer character set",tcsinfo[tcharset].name,0L);
#endif /* NOCSETS */
debug(F111," opena charset",zz->encoding.val,zz->encoding.len);
}
if (fsize > -1L) screen(SCR_FS,0,fsize,"");
#ifdef datageneral
/* Need to turn on multi-tasking console interrupt task here, since multiple */
/* files may be received. */
if ((local) && (!quiet)) /* Only do this if local & not quiet */
consta_mt(); /* Start the asynch read task */
#endif /* datageneral */
} else { /* Did not open file OK. */
#ifdef ATTSV
extern char *sys_errlist[];
extern int errno;
screen(SCR_EM,0,0l,sys_errlist[errno]);
#else
#ifdef BSD4
extern char *sys_errlist[];
extern int errno;
screen(SCR_EM,0,0l,sys_errlist[errno]);
#else
screen(SCR_EM,0,0l,"Can't open output file");
#endif /* BSD4 */
#endif /* ATTSV */
tlog(F110,"Failure to open",f,0L);
}
return(x); /* Pass on return code from openo */
}
/* C A N N E D -- Check if current file transfer cancelled */
int
canned(buf) CHAR *buf; {
if (*buf == 'X') cxseen = 1;
if (*buf == 'Z') czseen = 1;
debug(F101,"canned: cxseen","",cxseen);
debug(F101," czseen","",czseen);
return((czseen || cxseen) ? 1 : 0);
}
/* O P E N I -- Open an existing file for input */
int
openi(name) char *name; {
int x, filno;
char *name2;
if (memstr) return(1); /* Just return if file is memory. */
debug(F110,"openi",name,0);
debug(F101," sndsrc","",sndsrc);
filno = (sndsrc == 0) ? ZSTDIO : ZIFILE; /* ... */
debug(F101," file number","",filno);
if (server && !en_cwd) { /* If running as server */
zstrip(name,&name2); /* and CWD is disabled... */
if ( /* check if pathname was included. */
#ifdef VMS
zchkpath(name)
#else
strcmp(name,name2)
#endif /* VMS */
) {
tlog(F110,name,"authorization failure",0L);
debug(F110," openi authorization failure",name,0);
return(0);
} else name = name2;
}
if (zopeni(filno,name)) { /* Otherwise, try to open it. */
debug(F110," ok",name,0);
return(1);
} else { /* If not found, */
char xname[100]; /* convert the name */
zrtol(name,xname); /* to local form and then */
x = zopeni(filno,xname); /* try opening it again. */
debug(F101," zopeni","",x);
if (x) {
debug(F110," ok",xname,0);
return(1); /* It worked. */
} else {
#ifdef COMMENT
screen(SCR_EM,0,0l,"Can't open file"); /* It didn't work. */
#endif /* COMMENT */
tlog(F110,xname,"could not be opened",0L);
debug(F110," openi failed",xname,0);
return(0);
}
}
}
/* O P E N O -- Open a new file for output. */
int
openo(name,zz,fcb) char *name; struct zattr *zz; struct filinfo *fcb; {
char *name2;
if (stdouf) /* Receiving to stdout? */
return(zopeno(ZSTDIO,"",zz,NULL));
debug(F110,"openo: name",name,0);
if (cxseen || czseen || discard) { /* If interrupted, get out before */
debug(F100," open cancelled","",0); /* destroying existing file. */
return(1); /* Pretend to succeed. */
}
if (server && !en_cwd) { /* If running as server */
zstrip(name,&name2); /* and CWD is disabled, */
if (strcmp(name,name2)) { /* check if pathname was included. */
tlog(F110,name,"authorization failure",0L);
debug(F110," openo authorization failure",name,0);
return(0);
} else name = name2;
}
if (zopeno(ZOFILE,name,zz,fcb) == 0) { /* Try to open the file */
debug(F110,"openo failed",name,0);
tlog(F110,"Failure to open",name,0L);
return(0);
} else {
debug(F110,"openo ok, name",name,0);
return(1);
}
}
/* O P E N T -- Open the terminal for output, in place of a file */
int
opent(zz) struct zattr *zz; {
ffc = tfc = 0L;
if (bsavef) { /* If somehow file mode */
binary = bsave; /* was saved but not restored, */
bsavef = 0; /* restore it. */
debug(F101,"opena restoring binary","",binary);
}
bsave = binary;
bsavef = 1;
binary = XYFT_T;
return(zopeno(ZCTERM,"",zz,NULL));
}
/* C L S I F -- Close the current input file. */
int
clsif() {
int x = 0;
#ifdef datageneral
if ((local) && (!quiet)) /* Only do this if local & not quiet */
if (nfils < 1) /* More files to send ... leave it on! */
connoi_mt();
#endif /* datageneral */
if (memstr) { /* If input was memory string, */
memstr = 0; /* indicate no more. */
} else x = zclose(ZIFILE); /* else close input file. */
if (cxseen || czseen) /* If interrupted */
screen(SCR_ST,ST_INT,0l,""); /* say so */
else if (discard) /* If I'm refusing */
screen(SCR_ST,ST_REFU,0l,refused); /* say why */
else { /* Otherwise */
fstats(); /* update statistics */
screen(SCR_ST,ST_OK,0l,""); /* and say transfer was OK */
}
hcflg = 0; /* Reset flags */
*filnam = '\0'; /* and current file name */
return(x);
}
/* C L S O F -- Close an output file. */
/* Call with disp != 0 if file is to be discarded. */
/* Returns -1 upon failure to close, 0 or greater on success. */
int
clsof(disp) int disp; {
int x;
debug(F101,"clsof disp","",disp);
if (bsavef) { /* If we saved global file type */
debug(F101,"clsof restoring binary","",binary);
binary = bsave; /* restore it */
bsavef = 0; /* only this once. */
}
#ifdef datageneral
if ((local) && (!quiet)) /* Only do this if local & not quiet */
connoi_mt();
#endif /* datageneral */
cxseen = 0; /* Reset per-file interruption flag */
if ((x = zclose(ZOFILE)) < 0) { /* Try to close the file */
tlog(F100,"Failure to close",filnam,0L);
screen(SCR_ST,ST_ERR,0l,"");
} else if (disp) { /* Interrupted or refused */
if (keep == 0) { /* If not keep incomplete files */
if (*filnam) zdelet(filnam); /* Delete it */
debug(F100,"Discarded","",0);
tlog(F100,"Discarded","",0L);
screen(SCR_ST,ST_DISC,0l,"");
} else { /* Keep incomplete copy */
if (ffc) ffc++; /* This is off by one (why?) */
fstats();
debug(F100,"Incomplete","",0);
tlog(F100,"Incomplete","",0L);
screen(SCR_ST,ST_INC,0l,"");
}
} else { /* Nothing wrong, just keep it */
debug(F100,"Closed","",0); /* and give comforting messages. */
if (ffc) ffc++; /* Correct off-by-1 error */
fstats();
screen(SCR_ST,ST_OK,0l,"");
}
return(x); /* Send back zclose() return code. */
}
#ifdef SUNOS4S5
tolower(c) char c; { return((c)-'A'+'a'); }
toupper(c) char c; { return((c)-'a'+'A'); }
#endif /* SUNOS4S5 */