Category : C Source Code
Archive   : PCKERMIT.ZIP
Filename : LCKFNS1.C

char *fnsv = " ";

/* C K C F N S -- System-independent Kermit protocol support functions. */

/* ...Part 1 (others moved to ckcfn2 to make this module small enough) */
/*
Author: Frank da Cruz (SY.FDC@CU20B),
Columbia University Center for Computing Activities, January 1985.
Copyright (C) 1985, Trustees of Columbia University in the City of New York.
Permission is granted to any individual or institution to use, copy, or
redistribute this software so long as it is not sold for profit, provided this
copyright notice is retained.
*/
/*
System-dependent primitives defined in:

lcktio.c -- terminal i/o
lckfio.c -- file i/o, directory structure
*/
#include "stdios.h" /* Standard header for LC and Greenleaf */
#include "lckerm.h" /* Symbol definitions for Kermit */
#include "lckdeb.h" /* Debug formats, typedefs, etc. */

#ifndef NULL
#define NULL 0
#endif

/* Externals from lckmain.c */
extern int spsiz, rpsiz, timint, rtimo, npad, chklen, ebq, ebqflg, rpt, rptq,
rptflg, capas;
extern int filatr, nxtcas, capflg, wndsiz, wndmax, sldwnd, window;
extern int pktnum, prvpkt, sndtyp, bctr, bctu,
size, osize, maxsize, spktl, nfils, warn, timef;
extern int parity, speed, turn, turnch,
delay, displa, pktlog, tralog, seslog, xflg, mypadn;
extern long filcnt, ffc, flci, flco, tlci, tlco, tfc, fsize;
extern int deblog, hcflg, binary, fncnv, local, server, cxseen, czseen;
extern char padch, mypadc, seol, eol, ctlq, myctlq, sstate;
extern char filnam[], sndpkt[], recpkt[], data[], srvcmd[], *srvptr, stchr,
mystch;
extern char fildat[];
extern char *cmarg, *cmarg2, **cmlist;
long zchki(), zfree();
char *strcpy();
int rcvflag = FALSE;

/* Variables local to this module */

static char *memptr; /* Pointer for memory strings */

static char cmdstr[100]; /* Unix system command string */

static int sndsrc; /* Flag for where to send from: */
/* -1: name in cmdata */
/* 0: stdin */
/* >0: list in cmlist */

static int memstr, /* Flag for input from memory string */
t, /* Current character */
next; /* Next character */

/* E N C S T R -- Encode a string from memory. */

/* Call this instead of getpkt() if source is a string, rather than a file. */

encstr(s) char* s; {
int m; char *p;

m = memstr; p = memptr; /* Save these. */

memptr = s; /* Point to the string. */
memstr = 1; /* Flag memory string as source. */
next = -1; /* Initialize character lookahead. */
getpkt(spsiz); /* Fill a packet from the string. */
memstr = m; /* Restore memory string flag */
memptr = p; /* and pointer */
next = -1; /* Put this back as we found it. */
}

/* E N C O D E - Kermit packet encoding procedure */

encode(a) int a; { /* The current character */
int a7; /* Low order 7 bits of character */
int b8; /* 8th bit of character */

if (rptflg) { /* Repeat processing? */
if (a == next) { /* Got a run... */
if (++rpt < 94) /* Below max, just count */
return;
else if (rpt == 94) { /* Reached max, must dump */
data[size++] = rptq;
data[size++] = tochar(rpt);
rpt = 0;
}
} else if (rpt == 1) { /* Run broken, only 2? */
rpt = 0; /* Yes, reset repeat flag & count. */
encode(a); /* Do the character twice. */
if (size <= maxsize) osize = size;
rpt = 0;
encode(a);
return;
} else if (rpt > 1) { /* More than two */
data[size++] = rptq; /* Insert the repeat prefix */
data[size++] = tochar(++rpt); /* and count. */
rpt = 0; /* Reset repeat counter. */
}
}
a7 = a & 0177; /* Isolate ASCII part */
b8 = a & 0200; /* and 8th (parity) bit. */

if (ebqflg && b8) { /* Do 8th bit prefix if necessary. */
data[size++] = ebq;
a = a7;
}
if ((a7 < SP) || (a7==DEL)) { /* Do control prefix if necessary */
data[size++] = myctlq;
a = ctl(a);
}
if (a7 == myctlq) /* Prefix the control prefix */
data[size++] = myctlq;

if ((rptflg) && (a7 == rptq)) /* If it's the repeat prefix, */
data[size++] = myctlq; /* quote it if doing repeat counts. */

if ((ebqflg) && (a7 == ebq)) /* Prefix the 8th bit prefix */
data[size++] = myctlq; /* if doing 8th-bit prefixes */

data[size++] = a; /* Finally, insert the character */
data[size] = '\0'; /* itself, and mark the end. */
}

/* D E C O D E -- Kermit packet decoding procedure */

/* Call with string to be decoded and an output function. */
/* Returns 0 on success, -1 on failure (e.g. disk full). */

decode(buf,fn) char *buf; int (*fn)(); {
unsigned int a, a7, b8; /* Low order 7 bits, and the 8th bit */

rpt = 0; /* Initialize repeat count. */
while ((a = *buf++) != '\0') {
if (rptflg) { /* Repeat processing? */
if (a == rptq) { /* Yes, got a repeat prefix? */
rpt = unchar(*buf++); /* Yes, get the repeat count, */
a = *buf++; /* and get the prefixed character. */
}
}
b8 = 0; /* Check high order "8th" bit */
if (ebqflg) { /* 8th-bit prefixing? */
if (a == ebq) { /* Yes, got an 8th-bit prefix? */
b8 = 0200; /* Yes, remember this, */
a = *buf++; /* and get the prefixed character. */
}
}
if (a == ctlq) { /* If control prefix, */
a = *buf++; /* get its operand. */
a7 = a & 0177; /* Only look at low 7 bits. */
if ((a7 >= 0100 && a7 <= 0137) || a7 == '?') /* Uncontrollify */
a = ctl(a); /* if in control range. */
}
a |= b8; /* OR in the 8th bit */
if (rpt == 0) rpt = 1; /* If no repeats, then one */
#ifdef NLCHAR
if (!binary) { /* If in text mode, */
if (a == CR) continue; /* discard carriage returns, */
if (a == LF) a = NLCHAR; /* convert LF to system's newline. */
}
#endif
for (; rpt > 0; rpt--) { /* Output the char RPT times */
ffc++, tfc++; /* Count the character */
if ((*fn)(a) < 0) return(-1); /* Send it to the output function. */
}
}
return(0);
}

/* Output functions passed to 'decode': */

putsrv(c) char c; { /* Put character in server command buffer */
*srvptr++ = c;
*srvptr = '\0'; /* Make sure buffer is null-terminated */
return(0);
}


putfil(c) char c; { /* Output char to file. */
if (zchout(ZOFILE,c) < 0) {
czseen = 1; /* If write error... */
debug(F101,"putfil zchout write error, setting czseen","",1);
return(-1);
}
return(0);
}

/* G E T P K T -- Fill a packet data field */

/*
Gets characters from the current source -- file or memory string.
Encodes the data into the packet, filling the packet optimally.

Uses global variables:
t -- current character.
next -- next character.
data -- the packet data buffer.
size -- number of characters in the data buffer.

Returns the size as value of the function, and also sets global size,
and fills (and null-terminates) the global data array.

Before calling getpkt the first time for a given source (file or string),
set the variable 'next' to -1.
*/

getpkt(maxsize) int maxsize; { /* Fill one packet buffer */
int i; /* Loop index. */

static char leftover[6] = { '\0', '\0', '\0', '\0', '\0', '\0' };

debug(F101,"getpkt, entering with next","",next);
debug(F101," t","",t);
if (next < 0) { /* If first time through, */
t = getchxx(); /* get first character of file, */
*leftover = '\0'; /* discard any interrupted leftovers. */
}

/* Do any leftovers */

for (size = 0; (data[size] = leftover[size]) != '\0'; size++)
;
*leftover = '\0';

/* Now fill up the rest of the packet. */

rpt = 0; /* Clear out any old repeat count. */
while(t >= 0) { /* Until EOF... */
next = getchxx(); /* Get next character for lookahead. */
osize = size; /* Remember current position. */
encode(t); /* Encode the current character. */
t = next; /* Next is now current. */
next = 0; /* No more next. */


if (size == maxsize) { /* If the packet is exactly full, */

debug(F101,"getpkt exact fit","",size);
return(size); /* and return. */
}
if (size > maxsize) { /* If too big, save some for next. */
for (i = 0; (leftover[i] = data[osize+i]) != '\0'; i++)
;

debug(F111,"getpkt leftover",leftover,size);
debug(F101," osize","",osize);
size = osize; /* Return truncated packet. */
data[size] = '\0';
return(size);
}
}

debug(F101,"getpkt eof/eot","",size);
return(size); /* Return any partial final buffer. */
}

/* G E T C H X X -- Get the next character from file (or pipe). */
/* renamed by Jan A. van der Eijk, because getch() is a standard C function */
/*
On systems like Unix, the Macintosh, etc, that use a single character
(NLCHAR, defined in ckcdeb.h) to separate lines in text files, and
when in text/ascii mode (binary == 0), this function maps the newline
character to CRLF. If NLCHAR is not defined, then this mapping is
not done, even in text mode.
*/
getchxx() { /* Get next character */
int x; int a; /* The character to return. */
static int b = 0; /* A character to remember. */

if (b > 0) { /* Do we have a LF saved? */
b = 0; /* Yes, return that. */
return(LF);
}

if (memstr) /* Try to get the next character */
x = ((a = *memptr++) == '\0'); /* from the appropriate source, */
else /* memory or the current file. */
x = (zchin(ZIFILE,&a) == -1);

if (x)
return(-1); /* No more, return -1 for EOF. */
else { /* Otherwise, read the next char. */
ffc++, tfc++; /* Count it. */
#ifdef NLCHAR
if (!binary && (a == NLCHAR)) { /* If nl and we must do nl-CRLF */
b = 1; /* mapping, remember a linefeed, */
return(CR); /* and return a carriage return. */
} else return(a); /* General case, return the char. */
#else
return(a);
#endif
}
}


/* C A N N E D -- Check if current file transfer cancelled */

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);
}

/* T I N I T -- Initialize a transaction */

tinit() {
memstr = 0; /* Reset memory-string flag */
memptr = NULL; /* and pointer */
bctu = 1; /* Reset block check type to 1 */
filcnt = 0; /* Reset file counter */
tfc = tlci = tlco = 0; /* Reset character counters */
prvpkt = -1; /* Reset packet number */
pktnum = 0;
cxseen = czseen = 0; /* Reset interrupt flags */
*filnam = '\0'; /* Clear file name */
}


/* R I N I T -- Respond to S packet */

rinit(d) char *d; {

tfc = tlci = tlco = 0;
spar(d);
rpar(d);
ack1(d);
}

/* S I N I T -- Make sure file exists, then send Send-Init packet */

sinit() {
int x; char *tp;

sndsrc = nfils; /* Where to look for files to send */
if (sndsrc < 0) { /* Must expand from 'send' command */
nfils = zxpand(cmarg); /* Look up literal name. */
if (nfils < 0) {
screen(SCR_EM,0,0l,"Too many files");
return(0);
} else if (nfils == 0) { /* If none found, */
char xname[100]; /* convert the name. */
zrtol(cmarg,xname);
nfils = zxpand(xname); /* Look it up again. */
}
if (nfils < 1) { /* If no match, report error. */
screen(SCR_EM,0,0l,"File not found");
return(0);
}
x = gnfile(); /* Position to first file. */
if (x < 1) {
screen(SCR_EM,0,0l,"No readable file to send");
return(0);
}
} else if (sndsrc > 0) { /* Command line arglist -- */
x = gnfile(); /* Get the first file from it. */
if (x < 1) return(0); /* (if any) */
} else if (sndsrc == 0) { /* memory always exist... */
if ((cmarg2 != NULL) && (*cmarg2)) {
strcpy(filnam,cmarg2); /* If F packet, filnam is used */
cmarg2 = ""; /* if provided, */
} else /* otherwise */
return(0); /* just use this. */
tlog(F110,"Sending from",cmdstr,0l);
}

debug(F101,"sinit: nfils","",nfils);
debug(F110," filnam",filnam,0);
debug(F110," cmdstr",cmdstr,0);
ttflui(); /* Flush input buffer. */
x = rpar(data); /* Send a Send-Init packet. */
if (!local) sleep(delay);
spack('S',pktnum,x,data);
return(1);
}


/* R C V F I L -- Receive a file */

rcvfil() {
int x;
ffc = flci = flco = 0; /* Init per-file counters */
rcvflag = TRUE;
srvptr = srvcmd; /* Decode file name from packet. */
decode(data,putsrv);
if (*srvcmd == '\0') *srvcmd = 'x'; /* Watch out for null F packet. */
screen(SCR_FN,0,0l,srvcmd); /* Put it on screen */
tlog(F110,"Receiving",srvcmd,0l); /* Transaction log entry */
if (cmarg2 != NULL && *cmarg2 != '\0') { /* Check for alternate name */
strcpy(srvcmd,cmarg2); /* Got one, use it. */
*cmarg2 = '\0';
} else if ( fncnv) { /* Do not allow pathnames being send */
char xname[100]; /* convert the name. */
zltor(srvcmd,xname);
strcpy(srvcmd,xname);
}
x = openo(srvcmd,filnam); /* Try to open it */
if (x) {
tlog(F110," as",filnam,0l);
screen(SCR_AN,0,0l,filnam);
intmsg(++filcnt);
} else {
tlog(F110,"Failure to open",filnam,0l);
screen(SCR_EM,0,0l,"Can't open file");
}
return(x); /* Pass on return code from openo */
}

/* R E O F -- Receive End Of File */

reof() {

if (cxseen == 0) cxseen = (*data == 'D');
clsof();
if (cxseen || czseen) {
tlog(F100," *** Discarding","",0l);
} else {
tlog(F100," end of file","",0l);
tlog(F101," file characters ","",ffc);
tlog(F101," communication line in ","",flci);
tlog(F101," communication line out ","",flco);
}
}

/* R E O T -- Receive End Of Transaction */

reot() {
char *tp;
cxseen = czseen = 0;
if (filcnt > 1) {
tlog(F101," files","",filcnt);
tlog(F101," total file characters ","",tfc);
tlog(F101," communication line in ","",tlci);
tlog(F101," communication line out ","",tlco);
}
}

/* S F I L E -- Send File header packet for global "filnam" */

sfile() {
char pktnam[100]; /* Local copy of name */

if (*cmarg2 != '\0') { /* If we have a send-as name, */
strcpy(pktnam,cmarg2); /* copy it literally, */
cmarg2 = ""; /* and blank it out for next time. */
} else { /* Otherwise use actual file name: */
if (fncnv) { /* If converting names, */
zltor(filnam,pktnam); /* convert it to common form, */
} else { /* otherwise, */
strcpy(pktnam,filnam); /* copy it literally. */
}
}
debug(F110,"sfile",filnam,0);
debug(F110," pktnam",pktnam,0);
if (openi(filnam) == 0) /* Try to open the file */
return(0);

flci = flco = ffc = 0; /* OK, Init counters, etc. */
rcvflag = FALSE;
encstr(pktnam); /* Encode the name. */
nxtpkt(&pktnum); /* Increment the packet number */
ttflui(); /* Clear pending input */
spack('F',pktnum,size,data); /* Send the F packet */
if (displa) {
screen(SCR_FN,'F',(long)pktnum,filnam); /* Update screen */
screen(SCR_AN,0,0l,pktnam);
screen(SCR_FS,0,(long)fsize,"");
intmsg(++filcnt); /* Count file, give interrupt msg */
}
tlog(F110,"Sending",filnam,0l); /* Transaction log entry */
tlog(F110," as",pktnam,0l);
next = -1; /* Init file character lookahead. */
return(1);
}


/* S D A T A -- Send a data packet */

sdata() {
int len;
if (cxseen || czseen) return(0); /* If interrupted, done. */
if ((len = getpkt(spsiz-chklen-3)) == 0) return(0); /* If no data, done. */
nxtpkt(&pktnum); /* Increment the packet number */
spack('D',pktnum,len,data); /* Send the packet */
return(1);
}


/* S E O F -- Send an End-Of-File packet */

seof() {
nxtpkt(&pktnum); /* Increment the packet number */
if (czseen || cxseen) {
spack('Z',pktnum,1,"D");
tlog(F100," *** interrupted, sending discard request","",0l);
} else {
spack('Z',pktnum,0,"");
tlog(F100," end of file","",0l);
tlog(F101," file characters ","",ffc);
tlog(F101," communication line in ","",flci);
tlog(F101," communication line out ","",flco);
}
}


/* S E O T -- Send an End-Of-Transaction packet */

seot() {
char *tp;
nxtpkt(&pktnum); /* Increment the packet number */
spack('B',pktnum,0,"");
cxseen = czseen = 0;
if (filcnt > 1) {
tlog(F101," files","",filcnt);
tlog(F101," total file characters ","",tfc);
tlog(F101," communication line in ","",tlci);
tlog(F101," communication line out ","",tlco);
}
}

/* R P A R -- Fill the data array with my send-init parameters */

rpar(data) char data[]; {
data[0] = tochar(rpsiz); /* Biggest packet I can receive */
data[1] = tochar(rtimo); /* When I want to be timed out */
data[2] = tochar(mypadn); /* How much padding I need (none) */
data[3] = ctl(mypadc); /* Padding character I want */
data[4] = tochar(eol); /* End-Of-Line character I want */
data[5] = CTLQ; /* Control-Quote character I send */
if (parity || ebqflg && (ebq != 'N')) { /* 8-bit quoting */
data[6] = '&';
ebqflg = 1;
} else {
data[6] = 'Y';
}
data[7] = bctr + '0'; /* Block check type */
data[8] = MYRPTQ; /* Do repeat counts */
data[9] = tochar(capas); /* Capabilities */
data[10] = tochar(wndmax); /* Maximum window size I want */
data[11] = '\0';
return(11); /* Return the length. */
}

/* S P A R -- Get the other system's Send-Init parameters. */

spar(data) char data[]; {
int len, x;

len = strlen(data); /* Number of fields */

spsiz = (len-- > 0) ? unchar(data[0]) : DSPSIZ; /* Packet size */
if (spsiz < 10 || spsiz > DSPSIZ) spsiz = DSPSIZ;

x = (len-- > 0) ? unchar(data[1]) : DMYTIM; /* Timeout */
if (!timef) { /* Only use if not overridden */
timint = x;
if (timint < 0) timint = DMYTIM;
}

npad = 0; padch = '\0'; /* Padding */
if (len-- > 0) {
npad = unchar(data[2]);
if (len-- > 0) padch = ctl(data[3]); else padch = 0;
}

seol = (len-- > 0) ? unchar(data[4]) : '\r'; /* Terminator he wants */
if ((seol < 2) || (seol > 037)) seol = '\r';

ctlq = (len-- > 0) ? data[5] : CTLQ; /* Control prefix */

if (len-- > 0) {
ebq = data[6];
if ((ebq > 040 && ebq < 0100) || (ebq > 0140 && ebq < 0177)) {
ebqflg = 1;
} else if ((parity || ebqflg) && (ebq == 'Y')) {
ebqflg = 1;
ebq = '&';
} else if (ebq == 'N') {
ebqflg = 0;
} else ebqflg = 0;
} else ebqflg = 0;

chklen = 1; /* Block check */
if (len-- > 0) {
chklen = data[7] - '0';
if ((chklen < 1) || (chklen > 3)) chklen = 1;
}
bctr = chklen;

if (len-- > 0) { /* Repeat prefix */
rptq = data[8];
rptflg = ((rptq > 040 && rptq < 0100) || (rptq > 0140 && rptq < 0177));
} else rptflg = 0;

filatr = 0;
sldwnd = 0;
if (len-- > 0) { /* Capabilities */
capflg = unchar(data[9]) & capas; /* Supported by both */
if ( (capflg & 0x0008) == 0x0008) filatr = 1; /* File attributes ? */
if ( (capflg & 0x0004) == 0x0004) sldwnd = 1; /* Sliding windows ? */
}
wndsiz = (len-- > 0) ? unchar(data[10]) : 0; /* Window size he wants */
if ( wndsiz > wndmax ) wndsiz = wndmax;
else if ( wndsiz <= 0 ) {
sldwnd = 0;
wndsiz = 0;
}
if (deblog) sdebu(len);

}

/* S D E B U -- Record spar results in debugging log */

sdebu(len) int len; {

debug(F111,"spar: data",data,len);
debug(F101," spsiz ","",spsiz);
debug(F101," timint","",timint);
debug(F101," npad ","",npad);
debug(F101," padch ","",padch);
debug(F101," eol ","",eol);
debug(F101," ctlq ","",ctlq);
debug(F101," ebq ","",ebq);
debug(F101," ebqflg","",ebqflg);
debug(F101," chklen","",chklen);
debug(F101," rptq ","",rptq);
debug(F101," rptflg","",rptflg);
debug(F101," capflg","",capflg);
}

/* G N F I L E -- Get the next file name from a file group. */

/* Returns 1 if there's a next file, 0 otherwise */

gnfile() {
int x; long y;

/* If file group interruption (C-Z) occured, fail. */

debug(F101,"gnfile: czseen","",czseen);

if (czseen) {
tlog(F100,"Transaction cancelled","",0l);
return(0);
}

/* If input was memory string, there is no next file. */

if (sndsrc == 0) return(0);

/* If file list comes from command line args, get the next list element. */

y = -1;
while (y < 0) { /* Keep trying till we get one... */

if (sndsrc > 0) {
if (nfils-- > 0) {
strcpy(filnam,*cmlist++);

debug(F111,"gnfile: cmlist filnam",filnam,nfils);
} else {
*filnam = '\0';

debug(F101,"gnfile cmlist: nfils","",nfils);
return(0);
}
}

/* Otherwise, step to next element of internal wildcard expansion list. */

if (sndsrc < 0) {
x = znext(filnam);
debug(F111,"gnfile znext: filnam",filnam,x);
if (x == 0) return(0);
}

/* Get here with a filename. */

y = zchki(filnam); /* Check if file readable */
if (y < 0) {
debug(F110,"gnfile skipping:",filnam,0);
tlog(F111,filnam,"not sent, reason",(long)y);
screen(SCR_ST,ST_SKIP,0l,filnam);
} else fsize = y;
}
return(1);
}

/* O P E N I -- Open an existing file for input */

openi(name) char *name; {
int x, filno;
if (memstr) return(1); /* Just return if file is memory. */

filno = ZIFILE; /* ... */

debug(F110,"openi",name,0);
debug(F101," sndsrc","",sndsrc);
debug(F101," file number","",filno);

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 */
debug(F110," zrtol:",xname,0);
x = zopeni(filno,xname); /* try opening it again. */
debug(F101," zopeni","",x);
if (x) {
debug(F110," ok",xname,0);
return(1); /* It worked. */
} else {
screen(SCR_EM,0,0l,"Can't open file"); /* It didn't work. */
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. */

/* Returns actual name under which the file was opened in string 'name2'. */

openo(name,name2) char *name, *name2; {
char xname[100], *xp;

debug(F110,"openo: name",name,0);

if (cxseen || czseen) { /* If interrupted, get out before */
debug(F100," open cancelled","",0); /* destroying existing file. */
return(1); /* Pretend to succeed. */
}
xp = xname; /* OK to proceed. */
if (fncnv) /* If desired, */
zrtol(name,xp); /* convert name to local form */
else /* otherwise, */
strcpy(xname,name); /* use it literally */

debug(F110,"openo: xname",xname,0);

if (warn) { /* File collision avoidance? */
if (zchki(xname) > 0) { /* Yes, file exists? */
znewn(xname,&xp); /* Yes, make new name. */
strcpy(xname,xp);
debug(F110," exists, new name ",xname,0);
}
}
if (zopeno(ZOFILE,xname) == 0) { /* Try to open the file */
debug(F110,"openo failed",xname,0);
tlog(F110,"Failure to open",xname,0l);
return(0);
} else {
strcpy(name2,xname);
debug(F110,"openo ok, name2",name2,0);
return(1);
}
}


/* C L S I F -- Close the current input file. */

clsif() {
if (memstr) { /* If input was memory string, */
memstr = 0; /* indicate no more. */
} else zclose(ZIFILE); /* else close input file. */

if (czseen || cxseen)
screen(SCR_ST,ST_DISC,0l,"");
else
screen(SCR_ST,ST_OK,0l,"");
hcflg = 0; /* Reset flags, */
if ( !rcvflag)
{
*filnam = '\0'; /* and current file name */
cxseen = 0;
}
window = 0; /* Reset window flag */

}


/* C L S O F -- Close an output file. */

clsof() {
zclose(ZOFILE); /* Close it. */
if (czseen || cxseen) {
if (*filnam && rcvflag) zdelet(filnam); /* Delete it if interrupted. */
debug(F100,"Discarded","",0);
tlog(F100,"Discarded","",0l);
screen(SCR_ST,ST_DISC,0l,"");
} else {
if ( filatr) zfpdat(filnam,fildat); /* Stamp the file with orginal date */
debug(F100,"Closed","",0);
screen(SCR_ST,ST_OK,0l,"");
}
rcvflag=cxseen = 0; /* Reset file interruption flag */
*filnam = '\0'; /* and current file name. */
window = 0; /* Reset window flag */
}

/* S A T T R -- Send the attribute packet. */

/* send multiple attribute packets, in case the attribute won't fit in
current packet, set nxtcase to the case we did break out of */

sattr() {

int index,len;


index = 2; /* start of data field */
switch(nxtcas){
case 1:

sprintf(&data[index],"%ld",fsize); /* Convert to character string */
len = strlen(&data[index]); /* Get the length of data field */
data[index - 2] = '1'; /* set attribute type,file size */
data[ index - 1 ] = tochar(len); /* Put it in the packet */
index += (len + 2); /* start of next data field */
case 2:
if (zfcdat(filnam,&data[index])) { /* Get the time and date stamp */
len = strlen(&data[index]); /* Get the length of data field */
if ( (index + len) > (spsiz - chklen - 3)) {
nxtcas = 2; /* does not fit in packet */
break ; /* start here next packet */
}
screen(SCR_DT,0,0L,&data[index]);
data[index - 2] = '#'; /* set attribute type */
data[index -1] = tochar(len); /* Put it in the packect */
index += (len + 2); /* start of next data field */
}
default:
nxtcas = 1; /* we are done for this file */
break;
}
data[index - 2] = '\0'; /* delimit the string */
len = strlen(data);
nxtpkt(&pktnum); /* Increment the packet number */
spack('A',pktnum,len,data); /* Send the packet */
next = -1;
if (nxtcas > 1 ) return(1);
else return(0); /* Last time called, return 0 */

}

/* R D A T T R -- Read the attribute packet. */

rdattr(data) char data[]; {

int len, index,i;
char string[100]; /* Local scratch variable */
long int atol();

len = strlen(data); /* Number of fields */

index = 0;
while (1) {

switch(data[index++]){

case '!': /* File length in Kbytes */
len = unchar(data[index++]);
for (i=0; i < len; i++ ) string[i] = data[index++];
string[i] = '\0';
fsize = (long) (atoi(string) + 1) ;
screen(SCR_QE,0,fsize,"Approximate file size (Kbytes)");
fsize = fsize * 1024L; /* Change size to bytes */
if ( fsize > zfree(filnam)){
cxseen = 1 ; /* Set to true so file will be deleted */
return(0);
}
break;
case '#': /* ISO Julian file creation date */
len = unchar(data[index++]);
for (i=0; i < len; i++ ) fildat[i] = data[index++];
fildat[i] = '\0';
screen(SCR_DT,0,0L,fildat);
break;
case '1': /* file size in bytes */
len = unchar(data[index++]);
for (i=0; i < len; i++ ) string[i] = data[index++];
string[i] = '\0';
fsize = atol(string) ;
screen(SCR_QE,0,fsize,"File size (bytes)");
if ( fsize > zfree(filnam)) {
cxseen = 1 ; /* Set to true so file will be deleted */
return(0);
}
break;
default: /* Non supported attributes */
len = unchar(data[index++]);
for (i=0; i < len; i++ ) string[i] = data[index++];
string[i] = '\0';
break;
}
if ( data[index] == '\0') break; /* End of data packet */
}
return(1);
}